1 | /*
|
---|
2 | ============================================================================
|
---|
3 | ctype.c -- extended character type table, ala' Unix(tm)
|
---|
4 | Version 8 -- 1987-06-16 -- D.N. Lynx Crowe
|
---|
5 |
|
---|
6 | This character type table supports the extended ctype.h macros.
|
---|
7 | See the ctype.h header file for further notes.
|
---|
8 |
|
---|
9 | WARNING: SYS5CODE must be defined properly in ctype.h for the macros
|
---|
10 | to work with this table.
|
---|
11 | ============================================================================
|
---|
12 | */
|
---|
13 |
|
---|
14 | #define _CTYPE_C
|
---|
15 |
|
---|
16 | #include "ctype.h"
|
---|
17 |
|
---|
18 | #define _CS _C|_S
|
---|
19 | #define _PS _P|_S
|
---|
20 | #define _NX _N|_X
|
---|
21 | #define _UX _U|_X
|
---|
22 | #define _LX _L|_X
|
---|
23 |
|
---|
24 | /* |
---|
25 |
|
---|
26 | */
|
---|
27 |
|
---|
28 | #if SYS5CODE
|
---|
29 | char _ctype[] = { /* this table handles EOF as a legal value */
|
---|
30 |
|
---|
31 | /* -1 EOF */ 0, /* -1 EOF */
|
---|
32 | #else
|
---|
33 |
|
---|
34 | ___atab() { return; } /* dummy function to force the loader to see __atab */
|
---|
35 |
|
---|
36 | char __atab[] = { /* EOF won't work properly with this table */
|
---|
37 | #endif
|
---|
38 |
|
---|
39 | /* Octal */ /* Hex */
|
---|
40 | /* 000..007 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 00..07 */
|
---|
41 | /* 010..017 */ _C, _CS, _CS, _CS, _CS, _CS, _C, _C, /* 08..0F */
|
---|
42 | /* 020..027 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 10..17 */
|
---|
43 | /* 030..037 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 18..1F */
|
---|
44 | /* 040..047 */ _PS, _P, _P, _P, _P, _P, _P, _P, /* 20..27 */
|
---|
45 | /* 050..057 */ _P, _P, _P, _P, _P, _P, _P, _P, /* 28..2F */
|
---|
46 | /* 060..067 */ _NX, _NX, _NX, _NX, _NX, _NX, _NX, _NX, /* 30..37 */
|
---|
47 | /* 070..077 */ _NX, _NX, _P, _P, _P, _P, _P, _P, /* 38..3F */
|
---|
48 |
|
---|
49 | /* 100..107 */ _P, _UX, _UX, _UX, _UX, _UX, _UX, _U, /* 40..47 */
|
---|
50 | /* 110..117 */ _U, _U, _U, _U, _U, _U, _U, _U, /* 48..4F */
|
---|
51 | /* 120..127 */ _U, _U, _U, _U, _U, _U, _U, _U, /* 50..57 */
|
---|
52 | /* 130..137 */ _U, _U, _U, _P, _P, _P, _P, _P, /* 58..5F */
|
---|
53 | /* 140..147 */ _P, _LX, _LX, _LX, _LX, _LX, _LX, _L, /* 60..67 */
|
---|
54 | /* 150..157 */ _L, _L, _L, _L, _L, _L, _L, _L, /* 68..6F */
|
---|
55 | /* 160..167 */ _L, _L, _L, _L, _L, _L, _L, _L, /* 70..77 */
|
---|
56 | /* 170..177 */ _L, _L, _L, _P, _P, _P, _P, _C, /* 78..7F */
|
---|
57 |
|
---|
58 | /* 200..207 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 80..87 */
|
---|
59 | /* 210..217 */ _C, _CS, _CS, _CS, _CS, _CS, _C, _C, /* 88..8F */
|
---|
60 | /* 220..227 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 90..97 */
|
---|
61 | /* 230..237 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 98..9F */
|
---|
62 | /* 240..247 */ _PS, _P, _P, _P, _P, _P, _P, _P, /* A0..A7 */
|
---|
63 | /* 250..257 */ _P, _P, _P, _P, _P, _P, _P, _P, /* A8..AF */
|
---|
64 | /* 260..267 */ _NX, _NX, _NX, _NX, _NX, _NX, _NX, _NX, /* B0..B7 */
|
---|
65 | /* 270..277 */ _NX, _NX, _P, _P, _P, _P, _P, _P, /* B8..BF */
|
---|
66 |
|
---|
67 | /* 300..307 */ _P, _UX, _UX, _UX, _UX, _UX, _UX, _U, /* C0..C7 */
|
---|
68 | /* 310..317 */ _U, _U, _U, _U, _U, _U, _U, _U, /* C8..CF */
|
---|
69 | /* 320..327 */ _U, _U, _U, _U, _U, _U, _U, _U, /* D0..D7 */
|
---|
70 | /* 330..337 */ _U, _U, _U, _P, _P, _P, _P, _P, /* D8..DF */
|
---|
71 | /* 340..347 */ _P, _LX, _LX, _LX, _LX, _LX, _LX, _L, /* E0..E7 */
|
---|
72 | /* 350..357 */ _L, _L, _L, _L, _L, _L, _L, _L, /* E8..EF */
|
---|
73 | /* 360..367 */ _L, _L, _L, _L, _L, _L, _L, _L, /* F0..F7 */
|
---|
74 | /* 370..377 */ _L, _L, _L, _P, _P, _P, _P, _C /* F8..FF */
|
---|
75 | };
|
---|
76 |
|
---|