/*
 * Name:	MicroEMACS
 * 		AT&T UNIX PC 7300/3b1 terminal keyboard.
 * Version:	29
 * Last edit:	25-Apr-86
 * By:		{sun, amdahl, mtxinu, cbosgd}!rtech!daveb
 *
 * This is presently a vanilla implementation, but may in time
 * support function keys and mouse mapping.
 */
#include	"def.h"

/*
 * Names for the keys with basic keycode
 * between KFIRST and KLAST (inclusive). This is used by
 * the key name routine in "kbd.c".
 *
 * It is presently unimplemented on the 7300 (daveb).
 */
char	*keystrings[] = {

	NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
	NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
	NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
	NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL
};


/*
 * Read in a key, doing the low level mapping
 * of ASCII code to 11 bit code.
 */
getkbd()
{
	register int	c;
	register int	n;

	c = ttgetc();
	if (c == Esc) {
		c = ttgetc();
		if (ISLOWER(c) != FALSE)	/* Copy the standard	*/
			c = TOUPPER(c);		/* META code.		*/
		if (c>=0x00 && c<=0x1F)
			c = KCTRL | (c+'@');
		return (KMETA | c);
	}
	return (c);
}


/*
 * Terminal specific keymap initialization.
 */
ttykeymapinit()
{
}