* Copyright (c) 1988 Regents of the University of California.
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
* @(#)termcodes.m4 1.3 (Berkeley) %G%
/* the following allows us to generate our TC values. it is a bit painful. */
define(TCbump, `define(`TCvalue', eval(TCvalue+1))')
define(TCdefine, ``#define'')
define(TC, `TCdefine define(`TCstring', TC_$1) TCstring TCvalue TCbump `
'InitialAscii("$1", TCstring) InitialAids(ifelse($2,,0,0x$2))')
define(Is, `TCdefine TC_$1 TCvalue')
#define IsTc(x) (((x)&0xff) >= TC_LOWEST)
/* This lists the codes which are output from termin() */
char *tc_name; /* what the name is */
char tc_value; /* what the value is */
char *tc_name; /* what the name is */
char tc_value; /* what the value is */
char tc_aid; /* what the AID is */
#define InitialAids(x) x,
#define InitialAscii(x, y) x, y,
#define InitialAscii(x, y)
#endif /* LETS_SEE_ASCII */
static TC_AsciiAids_t TC_AsciiAids[] = {
static TC_Ascii_t TC_Ascii[] = {
static TC_Aids_t TC_Aids[] = {
#endif /* LETS_SEE_ASCII */
/* the following are internal to the parser and generator */
/* (and, generally, should not be specified by the user...) */
TC(CALL) /* INT: call a state sequence */
TC(RETURN) /* INT: return from TC_CALL */
TC(GOTO) /* INT: goto next entry */
TC(NULL) /* Illegal sequence; bell */
Is(LOWEST_USER) /* lowest code settable by user */
TC(ATTN) /* attention generator */
TC(LPRT) /* local print */
TC(DP) /* dup character */
TC(FM) /* field mark character */
TC(CURSEL) /* cursor select */
TC(CENTSIGN) /* EBCDIC cent sign */
TC(RESHOW) /* redisplay the screen */
TC(EINP) /* erase input */
TC(EEOF) /* erase end of field */
TC(DELETE) /* delete character */
TC(INSRT) /* toggle insert mode */
TC(BTAB) /* field back tab */
TC(COLTAB) /* column tab */
TC(COLBAK) /* column back tab */
TC(INDENT) /* indent one tab stop */
TC(UNDENT) /* undent one tab stop */
TC(HOME) /* home the cursor */
TC(DOWN) /* down cursor */
TC(RIGHT) /* right cursor */
TC(LEFT) /* left cursor */
TC(SETTAB) /* set a column tab */
TC(DELTAB) /* delete a column tab */
TC(SETMRG) /* set left margin */
TC(SETHOM) /* set home position */
TC(CLRTAB) /* clear all column tabs */
TC(APLEND) /* treat input as ascii */
TC(PCON) /* xon/xoff on */
TC(PCOFF) /* xon/xoff off */
TC(DISC) /* disconnect (suspend) */
TC(INIT) /* new terminal type */
TC(ALTK) /* alternate keyboard dvorak */
TC(FLINP) /* flush input */
TC(ERASE) /* erase last character */
TC(WERASE) /* erase last word */
TC(FERASE) /* erase field */
TC(SYNCH) /* user and us are in synch */
TC(RESET) /* reset key -unlock keyboard */
TC(MASTER_RESET) /* master reset key; flush, reset, repaint */
TC(XOFF) /* please hold output */
TC(XON) /* please give me output */
TC(ESCAPE) /* enter telnet command mode */
TC(WORDTAB) /* Go to first character of next word */
TC(WORDBACKTAB) /* Go to first character of last word */
TC(WORDEND) /* Go to last character of this/next word */
TC(FIELDEND) /* Go to last non-blank of this field */
Is(LOWEST_AID) /* lowest attn generator */
/* the attention generating keys... */
TC(SELPEN, 7e) /* Really, only SELPEN with DESIGNATOR = space or null */
Is(HIGHEST_AID)-1 /* highest AID value */
#define IsAid(x) (((x) >= TC_LOWEST_AID) && ((x) <= TC_HIGHEST_AID))
Is(HIGHEST)-1 /* highest TC value */
#define TCtoAid(x) TC_AsciiAids[(x)-TC_LOWEST].tc_aid
#define TCtoAid(x) TC_Aids[x-TC_LOWEST]
projects / unix-history / blob