![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ctype.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / jove|
Return to ctype.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / jove |
1.1 root 1: /*************************************************************************
2: * This program is copyright (C) 1985, 1986 by Jonathan Payne. It is *
3: * provided to you without charge for use only on a licensed Unix *
4: * system. You may copy JOVE provided that this notice is included with *
5: * the copy. You may not sell copies of this program or versions *
6: * modified for use on microcomputer systems, unless the copies are *
7: * included with a Unix system distribution and the source is provided. *
8: *************************************************************************/
9:
10: #include "jove.h"
11: #include "ctype.h"
12:
13: int SyntaxTable = FUNDAMENTAL; /* Current table to use. */
14:
15: char CharTable[NMAJORS][128] = {
16: { _C, _C, _C, _C, _C, _C, _C, _C,
17: _C, _C, _C, _C, _C, _C, _C, _C,
18: _C, _C, _C, _C, _C, _C, _C, _C,
19: _C, _C, _C, _C, _C, _C, _C, _C,
20: _P, _P, _P, _P, _P, _P, _P, _P,
21: _Op|_P, _Cl|_P, _P, _P, _P, _P, _P, _P,
22: _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N,
23: _W|_N, _W|_N, _P, _P, _P, _P, _P, _P,
24: _P, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
25: _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
26: _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
27: _W|_U, _W|_U, _W|_U, _Op|_P, _P, _Cl|_P, _P, _P,
28: _P, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
29: _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
30: _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
31: _W|_L, _W|_L, _W|_L, _Op|_P, _P, _Cl|_P, _P, _C },
32:
33: { _C, _C, _C, _C, _C, _C, _C, _C,
34: _C, _C, _C, _C, _C, _C, _C, _C,
35: _C, _C, _C, _C, _C, _C, _C, _C,
36: _C, _C, _C, _C, _C, _C, _C, _C,
37: _P, _P, _P, _P, _P, _P, _P, _P|_W,
38: _Op|_P, _Cl|_P, _P, _P, _P, _P, _P, _P,
39: _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N,
40: _W|_N, _W|_N, _P, _P, _P, _P, _P, _P,
41: _P, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
42: _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
43: _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
44: _W|_U, _W|_U, _W|_U, _Op|_P, _P, _Cl|_P, _P, _P,
45: _P, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
46: _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
47: _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
48: _W|_L, _W|_L, _W|_L, _Op|_P, _P, _Cl|_P, _P, _C },
49:
50: { _C, _C, _C, _C, _C, _C, _C, _C,
51: _C, _C, _C, _C, _C, _C, _C, _C,
52: _C, _C, _C, _C, _C, _C, _C, _C,
53: _C, _C, _C, _C, _C, _C, _C, _C,
54: _P, _P, _P, _P, _P|_W, _P, _P, _P,
55: _Op|_P, _Cl|_P, _P, _P, _P, _P, _P, _P,
56: _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N,
57: _W|_N, _W|_N, _P, _P, _P, _P, _P, _P,
58: _P, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
59: _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
60: _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
61: _W|_U, _W|_U, _W|_U, _Op|_P, _P, _Cl|_P, _P, _P|_W,
62: _P, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
63: _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
64: _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
65: _W|_L, _W|_L, _W|_L, _Op|_P, _P, _Cl|_P, _P, _C
66: #ifndef LISP
67: }
68: #else
69: },
70:
71: { _C, _C, _C, _C, _C, _C, _C, _C,
72: _C, _C, _C, _C, _C, _C, _C, _C,
73: _C, _C, _C, _C, _C, _C, _C, _C,
74: _C, _C, _C, _C, _C, _C, _C, _C,
75: _P, _W|_P, _P, _P, _W|_P, _W|_P, _W|_P, _P,
76: _Op|_P, _Cl|_P, _W|_P, _W|_P, _P, _W|_P, _P, _P,
77: _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N, _W|_N,
78: _W|_N, _W|_N, _W|_P, _P, _W|_P, _W|_P, _W|_P, _W|_P,
79: _W|_P, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
80: _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
81: _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U, _W|_U,
82: _W|_U, _W|_U, _W|_U, _Op|_P, _P, _Cl|_P, _W|_P, _W|_P,
83: _P, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
84: _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
85: _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L, _W|_L,
86: _W|_L, _W|_L, _W|_L, _Op|_W|_P, _W|_P, _Cl|_W|_P, _W|_P, _W|_C },
87: #endif
88: };
89:
90: ismword(c)
91: {
92: return ((CharTable[curbuf->b_major])[c]&(_W));
93: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.