/[ascend]/trunk/base/dummy/compiler/actype.c
ViewVC logotype

Contents of /trunk/base/dummy/compiler/actype.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 491 - (show annotations) (download) (as text)
Tue Apr 18 07:04:34 2006 UTC (18 years, 3 months ago) by wangym
File MIME type: text/x-csrc
File size: 4707 byte(s)
move unused file to dummy dir
1 /*
2 * Ascend Character Types
3 * Shortcut character recognition
4 * Version: $Revision: 1.4 $
5 * Version control file: $RCSfile: actype.c,v $
6 * Date last modified: $Date: 1997/07/18 12:27:43 $
7 * Last modified by: $Author: mthomas $
8 *
9 * This file is part of the Ascend Language Interpreter.
10 *
11 * Copyright (C) 1990, 1993, 1994 Thomas Guthrie Epperly
12 *
13 * The Ascend Language Interpreter is free software; you can redistribute
14 * it and/or modify it under the terms of the GNU General Public License as
15 * published by the Free Software Foundation; either version 2 of the
16 * License, or (at your option) any later version.
17 *
18 * The Ascend Language Interpreter is distributed in hope that it will be
19 * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21 * General Public License for more details.
22 *
23 * You should have received a copy of the GNU General Public License along with
24 * the program; if not, write to the Free Software Foundation, Inc., 675
25 * Mass Ave, Cambridge, MA 02139 USA. Check the file named COPYING.
26 */
27 #include<limits.h>
28 #include <utilities/ascConfig.h>
29 #include "compiler.h"
30 #include "actype.h"
31
32 #ifndef lint
33 static CONST char AcTypeId[] = "$Id: actype.c,v 1.4 1997/07/18 12:27:43 mthomas Exp $";
34 #endif
35
36 CONST unsigned char ascend_char_t[UCHAR_MAX+1] = {
37 0, /* 0 nul */
38 0, /* 1 soh */
39 0, /* 2 stx */
40 0, /* 3 etx */
41 0, /* 4 eot */
42 0, /* 5 enq */
43 0, /* 6 ack */
44 0, /* 7 bel */
45 0, /* 10 bs */
46 9, /* 11 ht */
47 9, /* 12 nl */
48 0, /* 13 vt */
49 9, /* 14 np */
50 9, /* 15 cr */
51 0, /* 16 so */
52 0, /* 17 si */
53 0, /* 20 dle */
54 0, /* 21 dc1 */
55 0, /* 22 dc2 */
56 0, /* 23 dc3 */
57 0, /* 24 dc4 */
58 0, /* 25 nak */
59 0, /* 26 syn */
60 0, /* 27 etb */
61 0, /* 30 can */
62 0, /* 31 em */
63 0, /* 32 sub */
64 0, /* 33 esc */
65 0, /* 34 fs */
66 0, /* 35 gs */
67 0, /* 36 rs */
68 0, /* 37 us */
69 9, /* 40 sp */
70 0, /* 41 ! */
71 0, /* 42 " */
72 0, /* 43 # */
73 0, /* 44 $ */
74 0, /* 45 % */
75 0, /* 46 & */
76 0, /* 47 ' */
77 1, /* 50 ( */
78 1, /* 51 ) */
79 1, /* 52 * */
80 0, /* 53 + */
81 0, /* 54 , */
82 1, /* 55 - */
83 1, /* 56 . */
84 1, /* 57 / */
85 7, /* 60 0 */
86 7, /* 61 1 */
87 7, /* 62 2 */
88 7, /* 63 3 */
89 7, /* 64 4 */
90 7, /* 65 5 */
91 7, /* 66 6 */
92 7, /* 67 7 */
93 7, /* 70 8 */
94 7, /* 71 9 */
95 0, /* 72 : */
96 0, /* 73 ; */
97 0, /* 74 < */
98 0, /* 75 = */
99 0, /* 76 > */
100 1, /* 77 ? */
101 0, /* 100 @ */
102 19, /* 101 A */
103 19, /* 102 B */
104 19, /* 103 C */
105 19, /* 104 D */
106 19, /* 105 E */
107 19, /* 106 F */
108 19, /* 107 G */
109 19, /* 110 H */
110 19, /* 111 I */
111 19, /* 112 J */
112 19, /* 113 K */
113 19, /* 114 L */
114 19, /* 115 M */
115 19, /* 116 N */
116 19, /* 117 O */
117 19, /* 120 P */
118 19, /* 121 Q */
119 19, /* 122 R */
120 19, /* 123 S */
121 19, /* 124 T */
122 19, /* 125 U */
123 19, /* 126 V */
124 19, /* 127 W */
125 19, /* 130 X */
126 19, /* 131 Y */
127 19, /* 132 Z */
128 0, /* 133 [ */
129 0, /* 134 \ */
130 0, /* 135 ] */
131 1, /* 136 ^ */
132 3, /* 137 _ */
133 0, /* 140 ` */
134 19, /* 141 a */
135 19, /* 142 b */
136 19, /* 143 c */
137 19, /* 144 d */
138 19, /* 145 e */
139 19, /* 146 f */
140 19, /* 147 g */
141 19, /* 150 h */
142 19, /* 151 i */
143 19, /* 152 j */
144 19, /* 153 k */
145 19, /* 154 l */
146 19, /* 155 m */
147 19, /* 156 n */
148 19, /* 157 o */
149 19, /* 160 p */
150 19, /* 161 q */
151 19, /* 162 r */
152 19, /* 163 s */
153 19, /* 164 t */
154 19, /* 165 u */
155 19, /* 166 v */
156 19, /* 167 w */
157 19, /* 170 x */
158 19, /* 171 y */
159 19, /* 172 z */
160 0, /* 173 { */
161 0, /* 174 | */
162 0, /* 175 } */
163 0, /* 176 ~ */
164 0, /* 177 del */
165 0,
166 0,
167 0,
168 0,
169 0,
170 0,
171 0,
172 0,
173 0,
174 0,
175 0,
176 0,
177 0,
178 0,
179 0,
180 0,
181 0,
182 0,
183 0,
184 0,
185 0,
186 0,
187 0,
188 0,
189 0,
190 0,
191 0,
192 0,
193 0,
194 0,
195 0,
196 0,
197 0,
198 0,
199 0,
200 0,
201 0,
202 0,
203 0,
204 0,
205 0,
206 0,
207 0,
208 0,
209 0,
210 0,
211 0,
212 0,
213 0,
214 0,
215 0,
216 0,
217 0,
218 0,
219 0,
220 0,
221 0,
222 0,
223 0,
224 0,
225 0,
226 0,
227 0,
228 0,
229 0,
230 0,
231 0,
232 0,
233 0,
234 0,
235 0,
236 0,
237 0,
238 0,
239 0,
240 0,
241 0,
242 0,
243 0,
244 0,
245 0,
246 0,
247 0,
248 0,
249 0,
250 0,
251 0,
252 0,
253 0,
254 0,
255 0,
256 0,
257 0,
258 0,
259 0,
260 0,
261 0,
262 0,
263 0,
264 0,
265 0,
266 0,
267 0,
268 0,
269 0,
270 0,
271 0,
272 0,
273 0,
274 0,
275 0,
276 0,
277 0,
278 0,
279 0,
280 0,
281 0,
282 0,
283 0,
284 0,
285 0,
286 0,
287 0,
288 0,
289 0,
290 0,
291 0,
292 0
293 };

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22