![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to char.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / icon / tran|
Return to char.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / tran |
1.1 root 1: /*
2: * Initialization for arrays used to classify characters.
3: */
4:
5: #include "char.h"
6:
7: /*
8: * chrtype - classifies each ASCII character as space (_S),
9: * upper-case letter (_U), lower-case letter (_L), or
10: * digit (_N), or other alphabetic (_A, e.g. "_").
11: */
12:
13: char chrtype[] = {
14: 0, 0, 0, 0, 0, 0, 0, 0, /* NUL-BEL */
15: 0, _S, _S, _S, _S, _S, 0, 0, /* BS -SI */
16: 0, 0, 0, 0, 0, 0, 0, 0, /* DLE-ETB */
17: 0, 0, 0, 0, 0, 0, 0, 0, /* CAN-US */
18: _S, 0, 0, 0, 0, 0, 0, 0, /* !"#$%&' */
19: 0, 0, 0, 0, 0, 0, 0, 0, /* ()*+,-./ */
20: _N, _N, _N, _N, _N, _N, _N, _N, /* 01234567 */
21: _N, _N, 0, 0, 0, 0, 0, 0, /* 89:;<=>? */
22: 0, _U, _U, _U, _U, _U, _U, _U, /* @ABCDEFG */
23: _U, _U, _U, _U, _U, _U, _U, _U, /* HIJKLMNO */
24: _U, _U, _U, _U, _U, _U, _U, _U, /* PQRSTUVW */
25: _U, _U, _U, 0, 0, 0, 0, _A, /* XYZ[\]^_ */
26: 0, _L, _L, _L, _L, _L, _L, _L, /* `abcdefg */
27: _L, _L, _L, _L, _L, _L, _L, _L, /* hijklmno */
28: _L, _L, _L, _L, _L, _L, _L, _L, /* pqrstuvw */
29: _L, _L, _L, 0, 0, 0, 0, 0 /* xyz{|}~ */
30: };
31:
32: /*
33: * ctran - translation table for all input except in string literals.
34: */
35:
36: char ctran[] = {
37: 000, 001, 002, 003, 004, 005, 006, 007, /* NUL-BEL */
38: 010, 011, 012, 013, 014, 015, 016, 017, /* BS -SI */
39: 020, 021, 022, 023, 024, 025, 026, 027, /* DLE-ETB */
40: 030, 031, 032, 033, 034, 035, 036, 037, /* CAN-US */
41: ' ', '!', '"', '#', '$', '%', '&', '\'', /* !"#$%&' */
42: '(', ')', '*', '+', ',', '-', '.', '/', /* ()*+,-./ */
43: '0', '1', '2', '3', '4', '5', '6', '7', /* 01234567 */
44: '8', '9', ':', ';', '<', '=', '>', '?', /* 89:;<=>? */
45: '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G', /* @ABCDEFG */
46: 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', /* HIJKLMNO */
47: 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', /* PQRSTUVW */
48: 'X', 'Y', 'Z', '[', '\\', ']', '^', '_', /* XYZ[\]^_ */
49: '`', 'a', 'b', 'c', 'd', 'e', 'f', 'g', /* `abcdefg */
50: 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', /* hijklmno */
51: 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', /* pqrstuvw */
52: 'x', 'y', 'z', '{', '|', '}', '~', 0177, /* xyz{|}~ */
53: };
54:
55: /*
56: * esctab - translates single-character escapes in string literals.
57: */
58:
59: char esctab[] = {
60: 000, 001, 002, 003, 004, 005, 006, 007, /* NUL-BEL */
61: 010, 011, 012, 013, 014, 015, 016, 017, /* BS -SI */
62: 020, 021, 022, 023, 024, 025, 026, 027, /* DLE-ETB */
63: 030, 031, 032, 033, 034, 035, 036, 037, /* CAN-US */
64: ' ', '!', '"', '#', '$', '%', '&', '\'', /* !"#$%&' */
65: '(', ')', '*', '+', ',', '-', '.', '/', /* ()*+,-./ */
66: 000, 001, 002, 003, 004, 005, 006, 007, /* 01234567 */
67: 010, 011, ':', ';', '<', '=', '>', '?', /* 89:;<=>? */
68: '@', 'A', '\b', 'C', 0177, 033, 014, 'G', /* @ABCDEFG */
69: 'H', 'I', 'J', 'K', '\n', 'M', '\n', 'O', /* HIJKLMNO */
70: 'P', 'Q', '\r', 'S', '\t', 'U', 013, 'W', /* PQRSTUVW */
71: 'X', 'Y', 'Z', '[', '\\', ']', '^', '_', /* XYZ[\]^_ */
72: '`', 'a', '\b', 'c', 0177, 033, 014, 'g', /* `abcdefg */
73: 'h', 'i', 'j', 'k', '\n', 'm', '\n', 'o', /* hijklmno */
74: 'p', 'q', '\r', 's', '\t', 'u', 013, 'w', /* pqrstuvw */
75: 'x', 'y', 'z', '{', '|', '}', '~', 0177, /* xyz{|}~ */
76: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.