source: buchla-68k/orig/GP/CTYPE.C@ 6888aa2

Last change on this file since 6888aa2 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.
  • Property mode set to 100755
File size: 3.1 KB
Line 
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
29char _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
36char __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
Note: See TracBrowser for help on using the repository browser.