source: buchla-68k/lib700/ctype.c@ 9519422

Last change on this file since 9519422 was 7258c6a, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Use standard integer types.
  • Property mode set to 100644
File size: 3.0 KB
RevLine 
[f40a309]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
[0580615]33
[73dd55f]34void ___atab(void)
35{
36 return;
[f40a309]37}
[7258c6a]38
[f40a309]39int8_t __atab[] = { /* EOF won't work properly with this table */
40#endif
41
42 /* Octal */ /* Hex */
43 /* 000..007 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 00..07 */
44 /* 010..017 */ _C, _CS, _CS, _CS, _CS, _CS, _C, _C, /* 08..0F */
45 /* 020..027 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 10..17 */
46 /* 030..037 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 18..1F */
47 /* 040..047 */ _PS, _P, _P, _P, _P, _P, _P, _P, /* 20..27 */
48 /* 050..057 */ _P, _P, _P, _P, _P, _P, _P, _P, /* 28..2F */
49 /* 060..067 */ _NX, _NX, _NX, _NX, _NX, _NX, _NX, _NX, /* 30..37 */
50 /* 070..077 */ _NX, _NX, _P, _P, _P, _P, _P, _P, /* 38..3F */
51
52 /* 100..107 */ _P, _UX, _UX, _UX, _UX, _UX, _UX, _U, /* 40..47 */
53 /* 110..117 */ _U, _U, _U, _U, _U, _U, _U, _U, /* 48..4F */
54 /* 120..127 */ _U, _U, _U, _U, _U, _U, _U, _U, /* 50..57 */
55 /* 130..137 */ _U, _U, _U, _P, _P, _P, _P, _P, /* 58..5F */
56 /* 140..147 */ _P, _LX, _LX, _LX, _LX, _LX, _LX, _L, /* 60..67 */
57 /* 150..157 */ _L, _L, _L, _L, _L, _L, _L, _L, /* 68..6F */
58 /* 160..167 */ _L, _L, _L, _L, _L, _L, _L, _L, /* 70..77 */
59 /* 170..177 */ _L, _L, _L, _P, _P, _P, _P, _C, /* 78..7F */
60
61 /* 200..207 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 80..87 */
62 /* 210..217 */ _C, _CS, _CS, _CS, _CS, _CS, _C, _C, /* 88..8F */
63 /* 220..227 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 90..97 */
64 /* 230..237 */ _C, _C, _C, _C, _C, _C, _C, _C, /* 98..9F */
65 /* 240..247 */ _PS, _P, _P, _P, _P, _P, _P, _P, /* A0..A7 */
66 /* 250..257 */ _P, _P, _P, _P, _P, _P, _P, _P, /* A8..AF */
67 /* 260..267 */ _NX, _NX, _NX, _NX, _NX, _NX, _NX, _NX, /* B0..B7 */
68 /* 270..277 */ _NX, _NX, _P, _P, _P, _P, _P, _P, /* B8..BF */
69
70 /* 300..307 */ _P, _UX, _UX, _UX, _UX, _UX, _UX, _U, /* C0..C7 */
71 /* 310..317 */ _U, _U, _U, _U, _U, _U, _U, _U, /* C8..CF */
72 /* 320..327 */ _U, _U, _U, _U, _U, _U, _U, _U, /* D0..D7 */
73 /* 330..337 */ _U, _U, _U, _P, _P, _P, _P, _P, /* D8..DF */
74 /* 340..347 */ _P, _LX, _LX, _LX, _LX, _LX, _LX, _L, /* E0..E7 */
75 /* 350..357 */ _L, _L, _L, _L, _L, _L, _L, _L, /* E8..EF */
76 /* 360..367 */ _L, _L, _L, _L, _L, _L, _L, _L, /* F0..F7 */
77 /* 370..377 */ _L, _L, _L, _P, _P, _P, _P, _C /* F8..FF */
78};
79
Note: See TracBrowser for help on using the repository browser.