Commit | Line | Data |
---|---|---|
394a1d25 C |
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 | } |