File: [local] / src / usr.bin / mg / cinfo.c (download)
Revision 1.3, Mon Jan 29 01:58:06 2001 UTC (23 years, 3 months ago) by niklas
Branch: MAIN
CVS Tags: OPENBSD_2_9_BASE, OPENBSD_2_9 Changes since 1.2: +2 -0 lines
$OpenBSD$
|
/* $OpenBSD: cinfo.c,v 1.3 2001/01/29 01:58:06 niklas Exp $ */
/*
* Character class tables.
* Do it yourself character classification
* macros, that understand the multinational character set,
* and let me ask some questions the standard macros (in
* ctype.h) don't let you ask.
*/
#include "def.h"
/*
* This table, indexed by a character drawn
* from the 256 member character set, is used by my
* own character type macros to answer questions about the
* type of a character. It handles the full multinational
* character set, and lets me ask some questions that the
* standard "ctype" macros cannot ask.
*/
char cinfo[256] = {
_C, _C, _C, _C, /* 0x0X */
_C, _C, _C, _C,
_C, _C, _C, _C,
_C, _C, _C, _C,
_C, _C, _C, _C, /* 0x1X */
_C, _C, _C, _C,
_C, _C, _C, _C,
_C, _C, _C, _C,
0, _P, 0, 0, /* 0x2X */
_W, _W, 0, _W,
0, 0, 0, 0,
0, 0, _P, 0,
_D | _W, _D | _W, _D | _W, _D | _W, /* 0x3X */
_D | _W, _D | _W, _D | _W, _D | _W,
_D | _W, _D | _W, 0, 0,
0, 0, 0, _P,
0, _U | _W, _U | _W, _U | _W, /* 0x4X */
_U | _W, _U | _W, _U | _W, _U | _W,
_U | _W, _U | _W, _U | _W, _U | _W,
_U | _W, _U | _W, _U | _W, _U | _W,
_U | _W, _U | _W, _U | _W, _U | _W, /* 0x5X */
_U | _W, _U | _W, _U | _W, _U | _W,
_U | _W, _U | _W, _U | _W, 0,
0, 0, 0, 0,
0, _L | _W, _L | _W, _L | _W, /* 0x6X */
_L | _W, _L | _W, _L | _W, _L | _W,
_L | _W, _L | _W, _L | _W, _L | _W,
_L | _W, _L | _W, _L | _W, _L | _W,
_L | _W, _L | _W, _L | _W, _L | _W, /* 0x7X */
_L | _W, _L | _W, _L | _W, _L | _W,
_L | _W, _L | _W, _L | _W, 0,
0, 0, 0, _C,
0, 0, 0, 0, /* 0x8X */
0, 0, 0, 0,
0, 0, 0, 0,
0, 0, 0, 0,
0, 0, 0, 0, /* 0x9X */
0, 0, 0, 0,
0, 0, 0, 0,
0, 0, 0, 0,
0, 0, 0, 0, /* 0xAX */
0, 0, 0, 0,
0, 0, 0, 0,
0, 0, 0, 0,
0, 0, 0, 0, /* 0xBX */
0, 0, 0, 0,
0, 0, 0, 0,
0, 0, 0, 0,
_U | _W, _U | _W, _U | _W, _U | _W, /* 0xCX */
_U | _W, _U | _W, _U | _W, _U | _W,
_U | _W, _U | _W, _U | _W, _U | _W,
_U | _W, _U | _W, _U | _W, _U | _W,
0, _U | _W, _U | _W, _U | _W, /* 0xDX */
_U | _W, _U | _W, _U | _W, _U | _W,
_U | _W, _U | _W, _U | _W, _U | _W,
_U | _W, _U | _W, 0, _W,
_L | _W, _L | _W, _L | _W, _L | _W, /* 0xEX */
_L | _W, _L | _W, _L | _W, _L | _W,
_L | _W, _L | _W, _L | _W, _L | _W,
_L | _W, _L | _W, _L | _W, _L | _W,
0, _L | _W, _L | _W, _L | _W, /* 0xFX */
_L | _W, _L | _W, _L | _W, _L | _W,
_L | _W, _L | _W, _L | _W, _L | _W,
_L | _W, _L | _W, 0, 0
};
/*
* Find the name of a keystroke. Needs to be changed to handle 8-bit printing
* characters and function keys better. Returns a pointer to the terminating
* '\0'.
*/
char *
keyname(cp, k)
char *cp;
int k;
{
char *np;
if (k < 0)
k = CHARMASK(k);/* sign extended char */
switch (k) {
case CCHR('@'):
np = "NUL";
break;
case CCHR('I'):
np = "TAB";
break;
case CCHR('J'):
np = "LFD";
break; /* yuck, but that's what GNU calls it */
case CCHR('M'):
np = "RET";
break;
case CCHR('['):
np = "ESC";
break;
case ' ':
np = "SPC";
break; /* yuck again */
case CCHR('?'):
np = "DEL";
break;
default:
#ifdef FKEYS
if (k >= KFIRST && k <= KLAST &&
(np = keystrings[k - KFIRST]) != NULL)
break;
#endif
if (k > CCHR('?')) {
*cp++ = '0';
*cp++ = ((k >> 6) & 7) + '0';
*cp++ = ((k >> 3) & 7) + '0';
*cp++ = (k & 7) + '0';
*cp = '\0';
return cp;
}
if (k < ' ') {
*cp++ = 'C';
*cp++ = '-';
k = CCHR(k);
if (ISUPPER(k))
k = TOLOWER(k);
}
*cp++ = k;
*cp = '\0';
return cp;
}
(VOID) strcpy(cp, np);
return cp + strlen(cp);
}