Mercurial > ~dholland > hg > ag > index.cgi
comparison tests/agcl/contrib/good/parse.c @ 0:13d2b8934445
Import AnaGram (near-)release tree into Mercurial.
author | David A. Holland |
---|---|
date | Sat, 22 Dec 2007 17:52:45 -0500 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:13d2b8934445 |
---|---|
1 /* | |
2 * AnaGram, A System for Syntax Directed Programming | |
3 * Copyright 1993-1994 Steve Holland. All rights reserved. | |
4 * See the file COPYING for license and usage terms. | |
5 */ | |
6 /* Embedded C code */ | |
7 #include <exec/lists.h> | |
8 #include <intuition/classes.h> | |
9 #include <proto/intuition.h> | |
10 #include "OOLib.h" | |
11 #include "Expr.h" | |
12 #include "PushString.h" | |
13 #include "ClassManager.h" | |
14 #include "Driver/VariableClass.h" | |
15 #include "Number.h" | |
16 #include "Util.h" | |
17 | |
18 struct List ExprList; | |
19 | |
20 #define SYNTAX_ERROR fprintf(stderr,"%s, line %d, column %d\n", (PCB).error_message, (PCB).line, (PCB).column) | |
21 #define PARSER_STACK_OVERFLOW {fprintf(stderr, "\nParser stack overflow, line %d, column %d\n", (PCB).line, (PCB).column);} | |
22 #define REDUCTION_TOKEN_ERROR {fprintf(stderr, "\nReduction token error, line %d, column %d\n", (PCB).line, (PCB).column);} | |
23 | |
24 Object *VariableProto=NULL; /* remember to initialize this */ | |
25 | |
26 void Prepare_parse(void) | |
27 { | |
28 VariableProto=NewObject(FindOOClass("numberclass"),NULL,NM_ID,VARIABLECLASS_ID,TAG_END); | |
29 if (!VariableProto) Warning(183,"Unable to create prototype variable object"); | |
30 if (!ExprList.lh_Head) NewList(&ExprList); | |
31 } | |
32 | |
33 void End_parse(void) | |
34 { | |
35 if (VariableProto) DisposeObject(VariableProto); | |
36 VariableProto=NULL; | |
37 } | |
38 | |
39 | |
40 /* | |
41 * AnaGram, A System for Syntax Directed Programming | |
42 * File generated by: ... | |
43 * | |
44 * AnaGram Parsing Engine | |
45 * Copyright 1993-2002 Parsifal Software. All Rights Reserved. | |
46 * | |
47 * This software is provided 'as-is', without any express or implied | |
48 * warranty. In no event will the authors be held liable for any damages | |
49 * arising from the use of this software. | |
50 * | |
51 * Permission is granted to anyone to use this software for any purpose, | |
52 * including commercial applications, and to alter it and redistribute it | |
53 * freely, subject to the following restrictions: | |
54 * | |
55 * 1. The origin of this software must not be misrepresented; you must not | |
56 * claim that you wrote the original software. If you use this software | |
57 * in a product, an acknowledgment in the product documentation would be | |
58 * appreciated but is not required. | |
59 * 2. Altered source versions must be plainly marked as such, and must not be | |
60 * misrepresented as being the original software. | |
61 * 3. This notice may not be removed or altered from any source distribution. | |
62 */ | |
63 | |
64 #ifndef PARSE_H | |
65 #include "parse.h" | |
66 #endif | |
67 | |
68 #ifndef PARSE_H | |
69 #error Mismatched header file | |
70 #endif | |
71 | |
72 #include <ctype.h> | |
73 #include <stdio.h> | |
74 | |
75 #define RULE_CONTEXT (&((PCB).cs[(PCB).ssx])) | |
76 #define ERROR_CONTEXT ((PCB).cs[(PCB).error_frame_ssx]) | |
77 #define CONTEXT ((PCB).cs[(PCB).ssx]) | |
78 | |
79 | |
80 | |
81 parse_pcb_type parse_pcb; | |
82 #define PCB parse_pcb | |
83 | |
84 #ifndef CONVERT_CASE | |
85 | |
86 static const char agCaseTable[31] = { | |
87 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, | |
88 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, | |
89 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0, | |
90 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20 | |
91 }; | |
92 | |
93 static int agConvertCase(int c) { | |
94 if (c >= 'a' && c <= 'z') return c ^= 0x20; | |
95 if (c >= 0xe0 && c < 0xff) c ^= agCaseTable[c-0xe0]; | |
96 return c; | |
97 } | |
98 | |
99 #define CONVERT_CASE(c) agConvertCase(c) | |
100 | |
101 #endif | |
102 | |
103 | |
104 #ifndef TAB_SPACING | |
105 #define TAB_SPACING 8 | |
106 #endif | |
107 | |
108 static void ag_rp_1(void) { | |
109 #line - "parse.syn" | |
110 PCB.exit_flag=AG_SUCCESS_CODE; | |
111 #line - "parse.c" | |
112 } | |
113 | |
114 static void ag_rp_2(void) { | |
115 #line - "parse.syn" | |
116 Object *Result; | |
117 struct ExprNode *Node; | |
118 char *String=NULL; | |
119 Result=EvalExpr(&ExprList); | |
120 if (Result) { | |
121 GetAttr(NM_NumberString,Result,(ULONG *)&String); | |
122 if (String) printf("%s\n",String); | |
123 DisposeObject(Result); | |
124 } | |
125 | |
126 while (Node=(struct ExprNode *)RemHead(&ExprList)) { | |
127 if (Node->Op != OP_FUNC && Node->Data) DisposeObject(Node->Data); | |
128 Free(Node); | |
129 } | |
130 | |
131 #line - "parse.c" | |
132 } | |
133 | |
134 static void ag_rp_3(int a) { | |
135 #line - "parse.syn" | |
136 ReverseTopExprStack(&ExprList,a);Push(&ExprList,OP_GROUP,a,NULL); | |
137 #line - "parse.c" | |
138 } | |
139 | |
140 static void ag_rp_4(void) { | |
141 #line - "parse.syn" | |
142 struct Locale *Locale;DoMethod(VariableProto,VCM_NEWLOCALE,&Locale); | |
143 #line - "parse.c" | |
144 } | |
145 | |
146 static struct LocaleNode * ag_rp_5(void) { | |
147 #line - "parse.syn" | |
148 struct LocaleNode *Locale;DoMethod(VariableProto,VCM_TAKELOCALE,NULL,&Locale);return Locale; | |
149 #line - "parse.c" | |
150 } | |
151 | |
152 static void ag_rp_6(struct String * Str) { | |
153 #line - "parse.syn" | |
154 if (Str && GetString(Str)) { | |
155 NewObject(FindOOClass("numberclass"),NULL, | |
156 NM_ID,VARIABLECLASS_ID, | |
157 VA_Create,TRUE, | |
158 NM_NumberString,GetString(Str), | |
159 VA_NoObject,TRUE, | |
160 TAG_END); | |
161 DeleteString(Str); | |
162 } | |
163 else ParsePanic(PP_MEM); | |
164 | |
165 #line - "parse.c" | |
166 } | |
167 | |
168 static void ag_rp_7(struct String * Str, Object * Num) { | |
169 #line - "parse.syn" | |
170 Object *Const; | |
171 if (Str && GetString(Str)) { | |
172 Const=NewObject(FindOOClass("numberclass"),NULL, | |
173 NM_ID,VARIABLECLASS_ID, | |
174 NM_NumberString,GetString(Str), | |
175 VA_Constant,TRUE, | |
176 VA_Create,TRUE, | |
177 TAG_END); | |
178 DeleteString(Str); | |
179 if (Const && Num) DoMethod(Const,VCM_ASSIGNFORCE,Num); | |
180 if (Const) DisposeObject(Const); | |
181 } | |
182 else ParsePanic(PP_MEM); | |
183 if (Num) DisposeObject(Num); | |
184 | |
185 #line - "parse.c" | |
186 } | |
187 | |
188 static void ag_rp_8(struct String * Str) { | |
189 #line - "parse.syn" | |
190 if (Str && GetString(Str)) { | |
191 NewObject(FindOOClass("numberclass"),NULL, | |
192 NM_ID,VARIABLECLASS_ID, | |
193 VA_Create,TRUE, | |
194 NM_NumberString,GetString(Str), | |
195 VA_NoObject,TRUE, | |
196 TAG_END); | |
197 DeleteString(Str); | |
198 } | |
199 else ParsePanic(PP_MEM); | |
200 | |
201 #line - "parse.c" | |
202 } | |
203 | |
204 static void ag_rp_9(struct String * Str) { | |
205 #line - "parse.syn" | |
206 if (Str && GetString(Str)) { | |
207 NewObject(FindOOClass("numberclass"),NULL, | |
208 NM_ID,VARIABLECLASS_ID, | |
209 NM_NumberString,GetString(Str), | |
210 VA_ByReference,TRUE, | |
211 VA_Create,TRUE, | |
212 VA_NoObject,TRUE, | |
213 TAG_END); | |
214 DeleteString(Str); | |
215 } | |
216 else ParsePanic(PP_MEM); | |
217 | |
218 #line - "parse.c" | |
219 } | |
220 | |
221 static void ag_rp_10(struct String * Str, Object * Num) { | |
222 #line - "parse.syn" | |
223 Object *Const; | |
224 if (Str && GetString(Str)) { | |
225 Const=NewObject(FindOOClass("numberclass"),NULL, | |
226 NM_ID,VARIABLECLASS_ID, | |
227 NM_NumberString,GetString(Str), | |
228 VA_Constant,TRUE, | |
229 VA_Create,TRUE, | |
230 TAG_END); | |
231 if (Const && Num) DoMethod(Const,VCM_ASSIGNFORCE,Num); | |
232 if (Const) DisposeObject(Const); | |
233 DeleteString(Str); | |
234 | |
235 } | |
236 else ParsePanic(PP_MEM); | |
237 if (Num) DisposeObject(Num); | |
238 | |
239 #line - "parse.c" | |
240 } | |
241 | |
242 static void ag_rp_11(void) { | |
243 #line - "parse.syn" | |
244 ReverseTopExprStack(&ExprList,2);Push(&ExprList,OP_FUNC,2,FUNC_GT); | |
245 #line - "parse.c" | |
246 } | |
247 | |
248 static void ag_rp_12(void) { | |
249 #line - "parse.syn" | |
250 ReverseTopExprStack(&ExprList,2);Push(&ExprList,OP_FUNC,2,FUNC_LT); | |
251 #line - "parse.c" | |
252 } | |
253 | |
254 static void ag_rp_13(void) { | |
255 #line - "parse.syn" | |
256 ReverseTopExprStack(&ExprList,2);Push(&ExprList,OP_FUNC,2,FUNC_COMP); | |
257 #line - "parse.c" | |
258 } | |
259 | |
260 static void ag_rp_14(void) { | |
261 #line - "parse.syn" | |
262 ReverseTopExprStack(&ExprList,2);Push(&ExprList,OP_FUNC,2,FUNC_GTEQ); | |
263 #line - "parse.c" | |
264 } | |
265 | |
266 static void ag_rp_15(void) { | |
267 #line - "parse.syn" | |
268 ReverseTopExprStack(&ExprList,2);Push(&ExprList,OP_FUNC,2,FUNC_LTEQ); | |
269 #line - "parse.c" | |
270 } | |
271 | |
272 static int ag_rp_16(void) { | |
273 #line - "parse.syn" | |
274 return 1; | |
275 #line - "parse.c" | |
276 } | |
277 | |
278 static int ag_rp_17(void) { | |
279 #line - "parse.syn" | |
280 return 1; | |
281 #line - "parse.c" | |
282 } | |
283 | |
284 static int ag_rp_18(int n) { | |
285 #line - "parse.syn" | |
286 return n+1; | |
287 #line - "parse.c" | |
288 } | |
289 | |
290 static void ag_rp_19(Object * s) { | |
291 #line - "parse.syn" | |
292 Push(&ExprList,OP_ASSIGN,0,s); | |
293 #line - "parse.c" | |
294 } | |
295 | |
296 static void ag_rp_20(struct String * f, unsigned n) { | |
297 #line - "parse.syn" | |
298 ReverseTopExprStack(&ExprList,n);Push(&ExprList,OP_FUNC,n,GetString(f));DeleteString(f); | |
299 #line - "parse.c" | |
300 } | |
301 | |
302 static void ag_rp_21(void) { | |
303 #line - "parse.syn" | |
304 ReverseTopExprStack(&ExprList,2);Push(&ExprList,OP_FUNC,2,FUNC_ADD); | |
305 #line - "parse.c" | |
306 } | |
307 | |
308 static void ag_rp_22(void) { | |
309 #line - "parse.syn" | |
310 ReverseTopExprStack(&ExprList,2);Push(&ExprList,OP_FUNC,2,FUNC_SUB); | |
311 #line - "parse.c" | |
312 } | |
313 | |
314 static unsigned ag_rp_23(void) { | |
315 #line - "parse.syn" | |
316 return 0; | |
317 #line - "parse.c" | |
318 } | |
319 | |
320 static unsigned ag_rp_24(void) { | |
321 #line - "parse.syn" | |
322 return 1; | |
323 #line - "parse.c" | |
324 } | |
325 | |
326 static unsigned ag_rp_25(unsigned a) { | |
327 #line - "parse.syn" | |
328 return a+1; | |
329 #line - "parse.c" | |
330 } | |
331 | |
332 static void ag_rp_26(void) { | |
333 #line - "parse.syn" | |
334 ReverseTopExprStack(&ExprList,2);Push(&ExprList,OP_FUNC,2,FUNC_MUL); | |
335 #line - "parse.c" | |
336 } | |
337 | |
338 static void ag_rp_27(void) { | |
339 #line - "parse.syn" | |
340 ReverseTopExprStack(&ExprList,2);Push(&ExprList,OP_FUNC,2,FUNC_DIV); | |
341 #line - "parse.c" | |
342 } | |
343 | |
344 static void ag_rp_28(void) { | |
345 #line - "parse.syn" | |
346 Push(&ExprList,OP_FUNC,1,FUNC_OPPOSITE); | |
347 #line - "parse.c" | |
348 } | |
349 | |
350 static void ag_rp_29(void) { | |
351 #line - "parse.syn" | |
352 ReverseTopExprStack(&ExprList,2);Push(&ExprList,OP_FUNC,2,FUNC_POW); | |
353 #line - "parse.c" | |
354 } | |
355 | |
356 static void ag_rp_30(Object * Vari) { | |
357 #line - "parse.syn" | |
358 Push(&ExprList,OP_VAR,1,Vari); | |
359 #line - "parse.c" | |
360 } | |
361 | |
362 static Object * ag_rp_31(struct String * Str) { | |
363 #line - "parse.syn" | |
364 Object *Result; | |
365 if (Str && GetString(Str)) { | |
366 DiscardBlanks(Str); | |
367 Result=NewObject(FindOOClass("numberclass"),NULL, | |
368 NM_NumberString,GetString(Str), | |
369 TAG_END); | |
370 DeleteString(Str); | |
371 if (Result) return Result; | |
372 } | |
373 ParsePanic(PP_MEM); | |
374 return NULL; | |
375 | |
376 #line - "parse.c" | |
377 } | |
378 | |
379 static struct String * ag_rp_32(struct String * s) { | |
380 #line - "parse.syn" | |
381 return s; | |
382 #line - "parse.c" | |
383 } | |
384 | |
385 static struct String * ag_rp_33(int c) { | |
386 #line - "parse.syn" | |
387 struct String *String;String=CreateString();StringInsChar(String,strlen(GetString(String)),c);return String; | |
388 #line - "parse.c" | |
389 } | |
390 | |
391 static struct String * ag_rp_34(struct String * String, int c) { | |
392 #line - "parse.syn" | |
393 return StringInsChar(String,strlen(GetString(String)),c); | |
394 #line - "parse.c" | |
395 } | |
396 | |
397 static struct String * ag_rp_35(struct String * String, int c) { | |
398 #line - "parse.syn" | |
399 return StringInsChar(String,strlen(GetString(String)),c); | |
400 #line - "parse.c" | |
401 } | |
402 | |
403 | |
404 #define READ_COUNTS | |
405 #define WRITE_COUNTS | |
406 #undef V | |
407 #define V(i,t) (*t (&(PCB).vs[(PCB).ssx + i])) | |
408 #undef VS | |
409 #define VS(i) (PCB).vs[(PCB).ssx + i] | |
410 | |
411 #ifndef GET_CONTEXT | |
412 #define GET_CONTEXT CONTEXT = (PCB).input_context | |
413 #endif | |
414 | |
415 typedef enum { | |
416 ag_action_1, | |
417 ag_action_2, | |
418 ag_action_3, | |
419 ag_action_4, | |
420 ag_action_5, | |
421 ag_action_6, | |
422 ag_action_7, | |
423 ag_action_8, | |
424 ag_action_9, | |
425 ag_action_10, | |
426 ag_action_11, | |
427 ag_action_12 | |
428 } ag_parser_action; | |
429 | |
430 | |
431 #ifndef NULL_VALUE_INITIALIZER | |
432 #define NULL_VALUE_INITIALIZER = { 0 } | |
433 #endif | |
434 | |
435 static parse_vs_type const ag_null_value NULL_VALUE_INITIALIZER; | |
436 | |
437 static const unsigned char ag_rpx[] = { | |
438 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 0, 0, 0, 6, 7, | |
439 8, 9, 10, 0, 11, 12, 13, 14, 15, 16, 17, 18, 0, 19, 20, 0, 21, 22, | |
440 23, 24, 25, 0, 26, 27, 0, 28, 29, 0, 30, 0, 31, 32, 33, 34, 35 | |
441 }; | |
442 | |
443 static const unsigned char ag_key_itt[] = { | |
444 0 | |
445 }; | |
446 | |
447 static const unsigned short ag_key_pt[] = { | |
448 0 | |
449 }; | |
450 | |
451 static const unsigned char ag_key_ch[] = { | |
452 0, 47, 68, 80, 81, 86,255, 47, 61, 67, 68, 80, 81, 86,255, 68, 80, 81, | |
453 86,255, 42,255, 47, 67, 86,255, 47,255, 47, 61,255, 61,255, 47, 67,255, | |
454 67,255, 47, 61, 67, 86,255, 67, 86,255 | |
455 }; | |
456 | |
457 static const unsigned char ag_key_act[] = { | |
458 0,3,3,3,3,3,4,3,3,3,3,3,3,3,4,3,3,3,3,4,3,4,3,3,3,4,3,4,3,3,4,3,4,3,3, | |
459 4,3,4,3,3,3,3,4,3,3,4 | |
460 }; | |
461 | |
462 static const unsigned char ag_key_parm[] = { | |
463 0, 46, 59, 60, 62, 61, 0, 46, 68, 65, 59, 60, 62, 61, 0, 59, 60, 62, | |
464 61, 0, 49, 0, 46, 65, 61, 0, 46, 0, 46, 68, 0, 68, 0, 46, 65, 0, | |
465 65, 0, 46, 68, 65, 61, 0, 65, 61, 0 | |
466 }; | |
467 | |
468 static const unsigned char ag_key_jmp[] = { | |
469 0, 0, 2, 8, 13, 17, 0, 20, 22, 24, 29, 35, 40, 44, 0, 47, 53, 58, | |
470 62, 0, 65, 0, 67, 69, 74, 0, 77, 0, 79, 81, 0, 83, 0, 85, 87, 0, | |
471 92, 0, 97, 99,101,106, 0,109,114, 0 | |
472 }; | |
473 | |
474 static const unsigned char ag_key_index[] = { | |
475 1, 0, 7, 15, 20, 22, 26, 0, 28, 0, 28, 31, 31, 31, 31, 31, 26, 33, | |
476 26, 26, 31, 36, 0, 0, 0, 15, 31, 0, 31, 26, 0, 0, 26, 0, 26, 0, | |
477 26, 0, 0, 26, 0, 26, 0, 26, 0, 26, 0, 26, 0, 0, 1, 26, 0, 38, | |
478 0, 0, 31, 31, 31, 0, 0, 0, 43, 22, 0, 0, 43, 0, 0, 0, 0, 43, | |
479 0, 43, 0, 0, 0 | |
480 }; | |
481 | |
482 static const unsigned char ag_key_ends[] = { | |
483 42,0, 69,70,73,78,69,0, 82,73,78,84,0, 85,73,84,0, 65,82,0, | |
484 42,0, 61,0, 79,78,83,84,0, 69,70,73,78,69,0, 82,73,78,84,0, | |
485 85,73,84,0, 65,82,0, 69,70,73,78,69,0, 82,73,78,84,0, 85,73,84,0, | |
486 65,82,0, 47,0, 42,0, 79,78,83,84,0, 65,82,0, 42,0, 42,0, 61,0, | |
487 61,0, 42,0, 79,78,83,84,0, 79,78,83,84,0, 42,0, 61,0, | |
488 79,78,83,84,0, 65,82,0, 79,78,83,84,0, 65,82,0, | |
489 }; | |
490 #define AG_TCV(x) (((int)(x) >= 0 && (int)(x) <= 308) ? ag_tcv[(x)] : 0) | |
491 | |
492 static const unsigned char ag_tcv[] = { | |
493 54, 50, 50, 50, 50, 50, 50, 50, 50, 44, 51, 50, 50, 51, 50, 50, 50, 50, | |
494 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 44, 50, 50, 50, | |
495 50, 50, 50, 50, 57, 56, 71, 69, 63, 70, 50, 72, 50, 50, 50, 50, 50, 50, | |
496 50, 50, 50, 50, 50, 55, 67, 64, 66, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
497 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
498 50, 50, 50, 50, 73, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
499 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
500 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
501 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
502 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
503 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
504 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
505 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
506 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
507 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
508 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
509 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, | |
510 50, 50, 50 | |
511 }; | |
512 | |
513 #ifndef SYNTAX_ERROR | |
514 #define SYNTAX_ERROR fprintf(stderr,"%s, line %d, column %d\n", \ | |
515 (PCB).error_message, (PCB).line, (PCB).column) | |
516 #endif | |
517 | |
518 #ifndef FIRST_LINE | |
519 #define FIRST_LINE 1 | |
520 #endif | |
521 | |
522 #ifndef FIRST_COLUMN | |
523 #define FIRST_COLUMN 1 | |
524 #endif | |
525 | |
526 #ifndef PARSER_STACK_OVERFLOW | |
527 #define PARSER_STACK_OVERFLOW {fprintf(stderr, \ | |
528 "\nParser stack overflow, line %d, column %d\n",\ | |
529 (PCB).line, (PCB).column);} | |
530 #endif | |
531 | |
532 #ifndef REDUCTION_TOKEN_ERROR | |
533 #define REDUCTION_TOKEN_ERROR {fprintf(stderr, \ | |
534 "\nReduction token error, line %d, column %d\n", \ | |
535 (PCB).line, (PCB).column);} | |
536 #endif | |
537 | |
538 | |
539 typedef enum | |
540 {ag_accept_key, ag_set_key, ag_jmp_key, ag_end_key, ag_no_match_key, | |
541 ag_cf_accept_key, ag_cf_set_key, ag_cf_end_key} key_words; | |
542 | |
543 #ifndef GET_INPUT | |
544 #define GET_INPUT ((PCB).input_code = getchar()) | |
545 #endif | |
546 | |
547 | |
548 static int ag_look_ahead(void) { | |
549 if ((PCB).rx < (PCB).fx) { | |
550 return CONVERT_CASE((PCB).lab[(PCB).rx++]); | |
551 } | |
552 GET_INPUT; | |
553 (PCB).fx++; | |
554 return CONVERT_CASE((PCB).lab[(PCB).rx++] = (PCB).input_code); | |
555 } | |
556 | |
557 static void ag_get_key_word(int ag_k) { | |
558 int save_index = (PCB).rx; | |
559 const unsigned char *sp; | |
560 int ag_ch; | |
561 while (1) { | |
562 switch (ag_key_act[ag_k]) { | |
563 case ag_cf_end_key: | |
564 sp = ag_key_ends + ag_key_jmp[ag_k]; | |
565 do { | |
566 if ((ag_ch = *sp++) == 0) { | |
567 int ag_k1 = ag_key_parm[ag_k]; | |
568 int ag_k2 = ag_key_pt[ag_k1]; | |
569 if (ag_key_itt[ag_k2 + ag_look_ahead()]) goto ag_fail; | |
570 (PCB).rx--; | |
571 (PCB).token_number = (parse_token_type) ag_key_pt[ag_k1 + 1]; | |
572 return; | |
573 } | |
574 } while (ag_look_ahead() == ag_ch); | |
575 goto ag_fail; | |
576 case ag_end_key: | |
577 sp = ag_key_ends + ag_key_jmp[ag_k]; | |
578 do { | |
579 if ((ag_ch = *sp++) == 0) { | |
580 (PCB).token_number = (parse_token_type) ag_key_parm[ag_k]; | |
581 return; | |
582 } | |
583 } while (ag_look_ahead() == ag_ch); | |
584 case ag_no_match_key: | |
585 ag_fail: | |
586 (PCB).rx = save_index; | |
587 return; | |
588 case ag_cf_set_key: { | |
589 int ag_k1 = ag_key_parm[ag_k]; | |
590 int ag_k2 = ag_key_pt[ag_k1]; | |
591 ag_k = ag_key_jmp[ag_k]; | |
592 if (ag_key_itt[ag_k2 + (ag_ch = ag_look_ahead())]) break; | |
593 save_index = --(PCB).rx; | |
594 (PCB).token_number = (parse_token_type) ag_key_pt[ag_k1+1]; | |
595 break; | |
596 } | |
597 case ag_set_key: | |
598 save_index = (PCB).rx; | |
599 (PCB).token_number = (parse_token_type) ag_key_parm[ag_k]; | |
600 case ag_jmp_key: | |
601 ag_k = ag_key_jmp[ag_k]; | |
602 ag_ch = ag_look_ahead(); | |
603 break; | |
604 case ag_accept_key: | |
605 (PCB).token_number = (parse_token_type) ag_key_parm[ag_k]; | |
606 return; | |
607 case ag_cf_accept_key: { | |
608 int ag_k1 = ag_key_parm[ag_k]; | |
609 int ag_k2 = ag_key_pt[ag_k1]; | |
610 if (ag_key_itt[ag_k2 + ag_look_ahead()]) (PCB).rx = save_index; | |
611 else { | |
612 (PCB).rx--; | |
613 (PCB).token_number = (parse_token_type) ag_key_pt[ag_k1+1]; | |
614 } | |
615 return; | |
616 } | |
617 default: | |
618 /* not reachable; here to suppress compiler warnings */ | |
619 goto ag_fail; | |
620 } | |
621 if (ag_ch <= 255) while (ag_key_ch[ag_k] < ag_ch) ag_k++; | |
622 if (ag_ch > 255 || ag_key_ch[ag_k] != ag_ch) { | |
623 (PCB).rx = save_index; | |
624 return; | |
625 } | |
626 } | |
627 } | |
628 | |
629 | |
630 #ifndef AG_NEWLINE | |
631 #define AG_NEWLINE 10 | |
632 #endif | |
633 | |
634 #ifndef AG_RETURN | |
635 #define AG_RETURN 13 | |
636 #endif | |
637 | |
638 #ifndef AG_FORMFEED | |
639 #define AG_FORMFEED 12 | |
640 #endif | |
641 | |
642 #ifndef AG_TABCHAR | |
643 #define AG_TABCHAR 9 | |
644 #endif | |
645 | |
646 static void ag_track(void) { | |
647 int ag_k = 0; | |
648 while (ag_k < (PCB).rx) { | |
649 int ag_ch = (PCB).lab[ag_k++]; | |
650 switch (ag_ch) { | |
651 case AG_NEWLINE: | |
652 (PCB).column = 1, (PCB).line++; | |
653 case AG_RETURN: | |
654 case AG_FORMFEED: | |
655 break; | |
656 case AG_TABCHAR: | |
657 (PCB).column += (TAB_SPACING) - ((PCB).column - 1) % (TAB_SPACING); | |
658 break; | |
659 default: | |
660 (PCB).column++; | |
661 } | |
662 } | |
663 ag_k = 0; | |
664 while ((PCB).rx < (PCB).fx) (PCB).lab[ag_k++] = (PCB).lab[(PCB).rx++]; | |
665 (PCB).fx = ag_k; | |
666 (PCB).rx = 0; | |
667 } | |
668 | |
669 | |
670 static void ag_prot(void) { | |
671 int ag_k; | |
672 ag_k = 1000 - ++(PCB).btsx; | |
673 if (ag_k <= (PCB).ssx) { | |
674 (PCB).exit_flag = AG_STACK_ERROR_CODE; | |
675 PARSER_STACK_OVERFLOW; | |
676 return; | |
677 } | |
678 (PCB).bts[(PCB).btsx] = (PCB).sn; | |
679 (PCB).bts[ag_k] = (PCB).ssx; | |
680 (PCB).vs[ag_k] = (PCB).vs[(PCB).ssx]; | |
681 (PCB).ss[ag_k] = (PCB).ss[(PCB).ssx]; | |
682 } | |
683 | |
684 static void ag_undo(void) { | |
685 if ((PCB).drt == -1) return; | |
686 while ((PCB).btsx) { | |
687 int ag_k = 1000 - (PCB).btsx; | |
688 (PCB).sn = (PCB).bts[(PCB).btsx--]; | |
689 (PCB).ssx = (PCB).bts[ag_k]; | |
690 (PCB).vs[(PCB).ssx] = (PCB).vs[ag_k]; | |
691 (PCB).ss[(PCB).ssx] = (PCB).ss[ag_k]; | |
692 } | |
693 (PCB).token_number = (parse_token_type) (PCB).drt; | |
694 (PCB).ssx = (PCB).dssx; | |
695 (PCB).sn = (PCB).dsn; | |
696 (PCB).drt = -1; | |
697 } | |
698 | |
699 | |
700 static const unsigned char ag_tstt[] = { | |
701 73,70,62,61,60,59,57,51,50,46,44,0,1,52,53, | |
702 73,72,71,70,69,67,66,64,63,57,56,55,51,50,44,0,48, | |
703 51,46,44,0,1, | |
704 73,70,62,61,60,59,57,50,0,2,3,4,5,6,8,10,11,15,16,18,19,27,28,32,33,35,37, | |
705 38,40,58, | |
706 73,72,71,70,69,67,66,64,63,57,56,55,51,50,49,44,0, | |
707 73,70,65,63,61,57,56,51,50,46,44,0,1,52,53, | |
708 73,70,57,51,50,46,44,0,1,52,53, | |
709 73,70,57,50,0,2,3,11,14,19,20,27,28,32,33,35,37,38,40,58, | |
710 73,50,44,0, | |
711 73,70,57,50,0,2,3,11,27,33,37,38,40,58, | |
712 73,72,71,70,69,68,67,66,64,63,57,56,55,51,50,46,44,0,1,52,53, | |
713 73,0,42, | |
714 57,0,11, | |
715 72,71,0,39,41, | |
716 64,0,26, | |
717 70,69,0,36,37, | |
718 55,51,46,44,0,1,52,53, | |
719 73,65,51,50,46,44,0,1,52,53, | |
720 73,51,50,46,44,0,1,52,53, | |
721 73,51,50,46,44,0,1,52,53, | |
722 68,67,66,0,29,30,31, | |
723 73,65,50,0,2,3,17,25,58, | |
724 73,50,0,2,3,58, | |
725 73,50,0,2,3,58, | |
726 55,0,9, | |
727 73,70,62,61,60,59,57,54,50,0,2,3,5,7,8,10,11,15,16,18,19,27,28,32,33,35,37, | |
728 38,40,58, | |
729 68,67,66,55,0,9,29,30,31, | |
730 56,0,13, | |
731 73,0,42, | |
732 73,57,51,50,46,44,0,1,52,53, | |
733 73,57,50,0,2,3,11,27,33,40,58, | |
734 73,70,57,56,50,0,2,3,11,14,19,20,27,28,32,33,34,35,37,38,40,58, | |
735 73,57,51,50,46,44,0,1,52,53, | |
736 73,57,50,0,2,3,11,27,33,40,58, | |
737 73,57,51,50,46,44,0,1,52,53, | |
738 73,57,50,0,2,3,11,27,33,40,58, | |
739 73,70,57,51,50,46,44,0,1,52,53, | |
740 73,70,57,50,0,2,3,11,27,32,33,35,37,38,40,58, | |
741 73,70,57,50,0,2,3,11,27,33,35,37,38,40,58, | |
742 73,70,57,51,50,46,44,0,1,52,53, | |
743 73,70,57,50,0,2,3,11,27,33,35,37,38,40,58, | |
744 73,70,57,51,50,46,44,0,1,52,53, | |
745 73,70,57,50,0,2,3,11,27,28,32,33,35,37,38,40,58, | |
746 73,70,64,57,51,50,46,44,0,1,52,53, | |
747 73,70,64,57,50,0,2,3,11,26,27,28,32,33,35,37,38,40,58, | |
748 73,70,64,57,51,50,46,44,0,1,52,53, | |
749 73,70,64,57,50,0,2,3,11,26,27,28,32,33,35,37,38,40,58, | |
750 73,51,50,46,44,0,1,52,53, | |
751 73,50,0,2,3,58, | |
752 57,0,11, | |
753 73,70,63,62,61,60,59,57,56,54,51,50,46,44,0,1,52,53, | |
754 51,46,44,0,1,52,53, | |
755 73,70,57,50,0,2,3,11,19,20,27,28,32,33,35,37,38,40,58, | |
756 73,72,71,70,69,68,67,66,65,63,61,57,56,55,51,50,46,44,0,1,52,53, | |
757 63,0,24, | |
758 56,0,13, | |
759 70,69,0,36,37, | |
760 72,71,0,39,41, | |
761 72,71,0,39,41, | |
762 73,70,57,50,0,2,3,11,27,28,32,33,35,37,38,40,58, | |
763 73,70,57,50,0,2,3,11,27,28,32,33,35,37,38,40,58, | |
764 64,0,26, | |
765 73,65,63,61,56,50,0,12,21, | |
766 73,70,65,61,57,56,51,50,46,44,0,1,52,53, | |
767 73,70,57,56,50,0,2,3,11,14,19,20,27,28,32,33,34,35,37,38,40,58, | |
768 73,50,0,2,3,27,58, | |
769 73,65,63,61,57,56,50,0,2,3,16,22,23,25,58, | |
770 56,0,13, | |
771 73,50,0,2,3,58, | |
772 73,50,0,2,3,58, | |
773 63,0,24, | |
774 73,65,63,61,57,50,0,12,21, | |
775 73,50,0,2,3,27,58, | |
776 73,65,61,50,0,2,3,16,23,25,58, | |
777 57,0,11, | |
778 73,70,57,50,0,2,3,11,14,19,20,27,28,32,33,35,37,38,40,58, | |
779 56,0,13, | |
780 | |
781 }; | |
782 | |
783 | |
784 static unsigned const char ag_astt[823] = { | |
785 8,8,8,8,8,8,8,1,8,1,1,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,1,9,1,9,5,3, | |
786 2,1,1,1,1,1,1,2,7,1,1,0,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9, | |
787 9,9,9,9,9,9,9,3,9,7,5,5,5,5,5,5,5,1,5,1,1,7,1,1,3,5,5,5,1,5,1,1,7,1,1,3,2, | |
788 1,1,2,7,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,10,10,10,4,2,1,1,2,7,1,1,1,2,1,1,1,1, | |
789 1,5,5,5,5,5,5,5,5,5,5,5,5,5,1,5,1,1,7,1,1,3,1,5,1,1,4,1,1,1,5,1,1,1,4,1,1, | |
790 1,5,1,1,5,1,1,1,7,1,1,3,5,5,1,5,1,1,7,1,1,3,5,1,5,1,1,7,1,1,3,5,1,5,1,1,7, | |
791 1,1,3,1,1,1,4,1,1,1,2,1,2,7,2,1,3,1,1,2,2,7,3,1,1,2,2,7,1,1,1,1,7,3,2,1,1, | |
792 1,1,1,1,1,2,7,1,1,3,3,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,1,1,1, | |
793 7,3,1,4,1,5,5,1,5,1,1,7,1,1,3,2,1,2,7,1,1,1,2,2,2,1,2,1,1,4,2,7,1,1,1,1,1, | |
794 2,1,1,1,1,1,1,1,1,1,1,5,5,1,5,1,1,7,1,1,3,2,1,2,7,1,1,1,2,2,2,1,5,5,1,5,1, | |
795 1,7,1,1,3,2,1,2,7,1,1,1,2,2,2,1,5,5,5,1,5,1,1,7,1,1,3,2,1,1,2,7,1,1,1,2,1, | |
796 1,1,1,1,1,1,2,1,1,2,7,1,1,1,2,1,1,1,1,1,1,5,5,5,1,5,1,1,7,1,1,3,2,1,1,2,7, | |
797 1,1,1,2,1,1,1,1,1,1,5,5,5,1,5,1,1,7,1,1,3,2,1,1,2,7,1,1,1,1,2,1,1,1,1,1,1, | |
798 1,5,5,5,5,1,5,1,1,7,1,1,3,2,1,1,1,2,7,1,1,1,1,1,2,1,1,1,1,1,1,1,5,5,5,5,1, | |
799 5,1,1,7,1,1,3,2,1,1,1,2,7,1,1,1,1,1,2,1,1,1,1,1,1,1,5,1,5,1,1,7,1,1,3,2,2, | |
800 7,1,1,1,1,7,1,5,5,5,5,5,5,5,5,5,5,1,5,1,1,7,1,1,3,1,1,1,5,1,1,3,2,1,1,2,4, | |
801 1,1,1,1,2,1,1,1,1,1,1,1,1,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,1,5,1,1,7,1,1,3,1, | |
802 4,1,1,7,2,1,1,4,1,1,1,1,4,1,1,1,1,4,1,1,2,1,1,2,7,1,1,1,1,2,1,1,1,1,1,1,1, | |
803 2,1,1,2,7,1,1,1,1,2,1,1,1,1,1,1,1,1,7,1,4,4,4,4,4,4,7,1,1,5,5,5,5,5,5,1,5, | |
804 1,1,7,1,1,3,2,1,1,4,2,7,1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,2,2,7,2,1,2,1,2,1, | |
805 8,1,5,5,2,7,2,1,1,1,1,1,1,1,7,1,2,2,7,1,1,1,2,2,7,2,1,1,1,4,1,4,4,4,4,4,4, | |
806 7,1,1,2,2,7,2,1,2,1,2,1,1,2,7,2,1,1,3,1,1,1,7,1,2,1,1,2,7,1,1,1,1,1,2,1,1, | |
807 1,1,1,1,1,1,1,1,7,3 | |
808 }; | |
809 | |
810 | |
811 static const unsigned char ag_pstt[] = { | |
812 3,3,3,3,3,3,3,2,3,1,2,0,2,2,3, | |
813 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4, | |
814 77,1,77,79,77, | |
815 50,6,16,17,18,19,5,50,3,12,8,0,25,25,24,23,7,22,21,8,20,14,20,15,11,13,9,11, | |
816 11,10, | |
817 55,55,55,55,55,55,55,55,55,55,55,55,55,55,56,55,4, | |
818 78,78,78,78,78,78,78,2,78,1,2,5,2,2,83, | |
819 78,78,78,2,78,1,2,6,2,2,96, | |
820 50,6,5,50,7,12,8,7,27,26,10,14,26,15,11,13,9,11,11,10, | |
821 51,51,52,49, | |
822 50,6,5,50,9,12,8,7,46,28,9,28,28,10, | |
823 78,78,78,78,78,78,78,78,78,78,78,78,78,2,78,1,2,10,2,2,84, | |
824 29,39,30, | |
825 5,48,31, | |
826 32,34,33,35,33, | |
827 36,46,37, | |
828 6,39,30,40,38, | |
829 78,2,1,2,16,2,2,88, | |
830 78,78,2,78,1,2,17,2,2,87, | |
831 78,2,78,1,2,18,2,2,86, | |
832 78,2,78,1,2,19,2,2,85, | |
833 41,43,45,9,46,44,42, | |
834 50,47,50,21,16,8,7,48,10, | |
835 50,50,22,6,8,10, | |
836 50,50,23,49,8,10, | |
837 50,24,4, | |
838 50,6,16,17,18,19,5,51,50,25,12,8,2,3,24,23,7,22,21,8,20,14,20,15,11,13,9,11, | |
839 11,10, | |
840 41,43,45,50,27,52,46,44,42, | |
841 53,27,45, | |
842 29,43,30, | |
843 78,78,2,78,1,2,29,2,2,99, | |
844 50,5,50,30,12,8,7,46,44,44,10, | |
845 50,6,5,36,50,31,12,8,7,54,26,10,14,26,15,11,55,13,9,11,11,10, | |
846 78,78,2,78,1,2,32,2,2,98, | |
847 50,5,50,33,12,8,7,46,41,41,10, | |
848 78,78,2,78,1,2,34,2,2,97, | |
849 50,5,50,35,12,8,7,46,40,40,10, | |
850 78,78,78,2,78,1,2,36,2,2,90, | |
851 50,6,5,50,37,12,8,7,46,56,11,13,9,11,11,10, | |
852 50,6,5,50,38,12,8,7,46,11,57,9,11,11,10, | |
853 78,78,78,2,78,1,2,39,2,2,95, | |
854 50,6,5,50,40,12,8,7,46,11,58,9,11,11,10, | |
855 78,78,78,2,78,1,2,41,2,2,94, | |
856 50,6,5,50,42,12,8,7,14,24,15,11,13,9,11,11,10, | |
857 78,78,78,78,2,78,1,2,43,2,2,93, | |
858 50,6,36,5,50,44,12,8,7,59,14,23,15,11,13,9,11,11,10, | |
859 78,78,78,78,2,78,1,2,45,2,2,92, | |
860 50,6,36,5,50,46,12,8,7,60,14,22,15,11,13,9,11,11,10, | |
861 78,2,78,1,2,47,2,2,91, | |
862 50,50,48,61,8,10, | |
863 5,49,62, | |
864 78,78,78,78,78,78,78,78,78,78,2,78,1,2,50,2,2,81, | |
865 2,1,2,78,2,2,80, | |
866 50,6,5,50,28,12,8,7,26,29,14,26,15,11,13,9,11,11,10, | |
867 78,78,78,78,78,78,78,78,78,78,78,78,78,78,2,78,1,2,53,2,2,82, | |
868 63,37,64, | |
869 53,55,32, | |
870 6,39,31,40,38, | |
871 32,34,35,35,33, | |
872 32,34,34,35,33, | |
873 50,6,5,50,59,12,8,7,14,26,15,11,13,9,11,11,10, | |
874 50,6,5,50,60,12,8,7,14,25,15,11,13,9,11,11,10, | |
875 36,61,65, | |
876 11,11,11,11,11,11,62,67,66, | |
877 78,78,78,78,78,78,2,78,1,2,63,2,2,89, | |
878 50,6,5,36,50,64,12,8,7,54,26,10,14,26,15,11,38,13,9,11,11,10, | |
879 50,50,65,48,8,17,10, | |
880 50,47,70,17,13,13,50,66,18,8,69,70,70,68,10, | |
881 53,67,71, | |
882 50,50,68,72,8,10, | |
883 50,50,69,19,8,10, | |
884 63,12,73, | |
885 11,11,11,11,11,11,71,74,66, | |
886 50,50,72,48,8,20,10, | |
887 50,47,17,50,73,18,8,69,15,68,10, | |
888 5,74,75, | |
889 50,6,5,50,75,12,8,7,76,26,10,14,26,15,11,13,9,11,11,10, | |
890 53,76,5, | |
891 | |
892 }; | |
893 | |
894 | |
895 static const unsigned short ag_sbt[] = { | |
896 0, 15, 32, 37, 67, 84, 99, 110, 130, 134, 148, 169, 172, 175, | |
897 180, 183, 188, 196, 206, 215, 224, 231, 240, 246, 252, 255, 285, 294, | |
898 297, 300, 310, 321, 343, 353, 364, 374, 385, 396, 412, 427, 438, 453, | |
899 464, 481, 493, 512, 524, 543, 552, 558, 561, 579, 586, 605, 627, 630, | |
900 633, 638, 643, 648, 665, 682, 685, 694, 708, 730, 737, 752, 755, 761, | |
901 767, 770, 779, 786, 797, 800, 820, 823 | |
902 }; | |
903 | |
904 | |
905 static const unsigned short ag_sbe[] = { | |
906 11, 30, 35, 45, 83, 95, 106, 114, 133, 138, 165, 170, 173, 177, | |
907 181, 185, 192, 202, 211, 220, 227, 234, 242, 248, 253, 264, 289, 295, | |
908 298, 306, 313, 326, 349, 356, 370, 377, 392, 400, 416, 434, 442, 460, | |
909 468, 489, 498, 520, 529, 548, 554, 559, 575, 582, 590, 623, 628, 631, | |
910 635, 640, 645, 652, 669, 683, 691, 704, 713, 732, 744, 753, 757, 763, | |
911 768, 776, 781, 790, 798, 804, 821, 823 | |
912 }; | |
913 | |
914 | |
915 static const unsigned char ag_fl[] = { | |
916 2,1,2,2,2,9,2,2,1,1,1,0,2,0,1,3,1,4,1,2,3,1,3,3,3,4,4,1,2,3,1,3,4,1,3, | |
917 3,0,1,3,1,3,3,1,2,3,3,1,1,1,1,1,2,2,1,1,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1, | |
918 1,1,1,1,1,1,1,2,0,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 | |
919 }; | |
920 | |
921 static const unsigned char ag_ptt[] = { | |
922 0, 6, 6, 4, 5, 8, 8, 8, 8, 8, 14, 21, 12, 22, 22, 22, 17, 17, | |
923 23, 23, 23, 19, 19, 19, 19, 19, 19, 20, 20, 20, 28, 28, 33, 32, 32, 32, | |
924 34, 34, 34, 35, 35, 35, 38, 38, 38, 40, 40, 40, 27, 58, 3, 3, 3, 1, | |
925 48, 48, 1, 43, 43, 45, 45, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, | |
926 47, 47, 47, 47, 52, 52, 53, 53, 7, 9, 13, 11, 2, 10, 15, 16, 18, 24, | |
927 26, 25, 29, 30, 31, 36, 37, 39, 41, 42 | |
928 }; | |
929 | |
930 | |
931 static void ag_ra(void) | |
932 { | |
933 switch(ag_rpx[(PCB).ag_ap]) { | |
934 case 1: ag_rp_1(); break; | |
935 case 2: ag_rp_2(); break; | |
936 case 3: ag_rp_3(V(0,(int *))); break; | |
937 case 4: ag_rp_4(); break; | |
938 case 5: V(0,(struct LocaleNode * *)) = ag_rp_5(); break; | |
939 case 6: ag_rp_6(V(0,(struct String * *))); break; | |
940 case 7: ag_rp_7(V(1,(struct String * *)), V(3,(Object * *))); break; | |
941 case 8: ag_rp_8(V(0,(struct String * *))); break; | |
942 case 9: ag_rp_9(V(1,(struct String * *))); break; | |
943 case 10: ag_rp_10(V(1,(struct String * *)), V(2,(Object * *))); break; | |
944 case 11: ag_rp_11(); break; | |
945 case 12: ag_rp_12(); break; | |
946 case 13: ag_rp_13(); break; | |
947 case 14: ag_rp_14(); break; | |
948 case 15: ag_rp_15(); break; | |
949 case 16: V(0,(int *)) = ag_rp_16(); break; | |
950 case 17: V(0,(int *)) = ag_rp_17(); break; | |
951 case 18: V(0,(int *)) = ag_rp_18(V(2,(int *))); break; | |
952 case 19: ag_rp_19(V(0,(Object * *))); break; | |
953 case 20: ag_rp_20(V(0,(struct String * *)), V(2,(unsigned *))); break; | |
954 case 21: ag_rp_21(); break; | |
955 case 22: ag_rp_22(); break; | |
956 case 23: V(0,(unsigned *)) = ag_rp_23(); break; | |
957 case 24: V(0,(unsigned *)) = ag_rp_24(); break; | |
958 case 25: V(0,(unsigned *)) = ag_rp_25(V(2,(unsigned *))); break; | |
959 case 26: ag_rp_26(); break; | |
960 case 27: ag_rp_27(); break; | |
961 case 28: ag_rp_28(); break; | |
962 case 29: ag_rp_29(); break; | |
963 case 30: ag_rp_30(V(0,(Object * *))); break; | |
964 case 31: V(0,(Object * *)) = ag_rp_31(V(0,(struct String * *))); break; | |
965 case 32: V(0,(struct String * *)) = ag_rp_32(V(0,(struct String * *))); break; | |
966 case 33: V(0,(struct String * *)) = ag_rp_33(V(0,(int *))); break; | |
967 case 34: V(0,(struct String * *)) = ag_rp_34(V(0,(struct String * *)), V(1,(int *))); break; | |
968 case 35: V(0,(struct String * *)) = ag_rp_35(V(0,(struct String * *)), V(1,(int *))); break; | |
969 } | |
970 } | |
971 | |
972 #define TOKEN_NAMES parse_token_names | |
973 const char *const parse_token_names[74] = { | |
974 "LineParse", | |
975 "WhiteSpace", | |
976 "VariNumStr", | |
977 "StringBody", | |
978 "LineParse", | |
979 "Terminated Line", | |
980 "", | |
981 "", | |
982 "Line", | |
983 "';'", | |
984 "\"DEFINE\"", | |
985 "'('", | |
986 "VariableList", | |
987 "')'", | |
988 "Group", | |
989 "\"PRINT\"", | |
990 "\"VAR\"", | |
991 "VariableDecl", | |
992 "\"QUIT\"", | |
993 "Comparison", | |
994 "Comparisons", | |
995 "", | |
996 "VariableListWork", | |
997 "VariListMemb", | |
998 "','", | |
999 "\"CONST\"", | |
1000 "'='", | |
1001 "VariNum", | |
1002 "Assignment", | |
1003 "'>'", | |
1004 "'<'", | |
1005 "\"==\"", | |
1006 "Expression", | |
1007 "FunctionCall", | |
1008 "ArgumentList", | |
1009 "Product", | |
1010 "'+'", | |
1011 "'-'", | |
1012 "PowerFactor", | |
1013 "'*'", | |
1014 "Factor", | |
1015 "'/'", | |
1016 "'^'", | |
1017 "ALNUM", | |
1018 "WS", | |
1019 "WSDISREGARD", | |
1020 "\"/*\"", | |
1021 "ANYTHING", | |
1022 "", | |
1023 "\"*/\"", | |
1024 "", | |
1025 "", | |
1026 "", | |
1027 "", | |
1028 "", | |
1029 "';'", | |
1030 "')'", | |
1031 "'('", | |
1032 "VariNumStr", | |
1033 "\"DEFINE\"", | |
1034 "\"PRINT\"", | |
1035 "\"VAR\"", | |
1036 "\"QUIT\"", | |
1037 "','", | |
1038 "'='", | |
1039 "\"CONST\"", | |
1040 "'>'", | |
1041 "'<'", | |
1042 "\"==\"", | |
1043 "'+'", | |
1044 "'-'", | |
1045 "'*'", | |
1046 "'/'", | |
1047 "'^'", | |
1048 | |
1049 }; | |
1050 | |
1051 #ifndef MISSING_FORMAT | |
1052 #define MISSING_FORMAT "Missing %s" | |
1053 #endif | |
1054 #ifndef UNEXPECTED_FORMAT | |
1055 #define UNEXPECTED_FORMAT "Unexpected %s" | |
1056 #endif | |
1057 #ifndef UNNAMED_TOKEN | |
1058 #define UNNAMED_TOKEN "input" | |
1059 #endif | |
1060 | |
1061 | |
1062 static void ag_diagnose(void) { | |
1063 int ag_snd = (PCB).sn; | |
1064 int ag_k = ag_sbt[ag_snd]; | |
1065 | |
1066 if (*TOKEN_NAMES[ag_tstt[ag_k]] && ag_astt[ag_k + 1] == ag_action_8) { | |
1067 sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]); | |
1068 } | |
1069 else if (ag_astt[ag_sbe[(PCB).sn]] == ag_action_8 | |
1070 && (ag_k = (int) ag_sbe[(PCB).sn] + 1) == (int) ag_sbt[(PCB).sn+1] - 1 | |
1071 && *TOKEN_NAMES[ag_tstt[ag_k]]) { | |
1072 sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]); | |
1073 } | |
1074 else if ((PCB).token_number && *TOKEN_NAMES[(PCB).token_number]) { | |
1075 sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, TOKEN_NAMES[(PCB).token_number]); | |
1076 } | |
1077 else if (isprint((*(PCB).lab)) && (*(PCB).lab) != '\\') { | |
1078 char buf[20]; | |
1079 sprintf(buf, "\'%c\'", (char) (*(PCB).lab)); | |
1080 sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, buf); | |
1081 } | |
1082 else sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, UNNAMED_TOKEN); | |
1083 (PCB).error_message = (PCB).ag_msg; | |
1084 | |
1085 | |
1086 } | |
1087 static int ag_action_1_r_proc(void); | |
1088 static int ag_action_2_r_proc(void); | |
1089 static int ag_action_3_r_proc(void); | |
1090 static int ag_action_4_r_proc(void); | |
1091 static int ag_action_1_s_proc(void); | |
1092 static int ag_action_3_s_proc(void); | |
1093 static int ag_action_1_proc(void); | |
1094 static int ag_action_2_proc(void); | |
1095 static int ag_action_3_proc(void); | |
1096 static int ag_action_4_proc(void); | |
1097 static int ag_action_5_proc(void); | |
1098 static int ag_action_6_proc(void); | |
1099 static int ag_action_7_proc(void); | |
1100 static int ag_action_8_proc(void); | |
1101 static int ag_action_9_proc(void); | |
1102 static int ag_action_10_proc(void); | |
1103 static int ag_action_11_proc(void); | |
1104 static int ag_action_8_proc(void); | |
1105 | |
1106 | |
1107 static int (*const ag_r_procs_scan[])(void) = { | |
1108 ag_action_1_r_proc, | |
1109 ag_action_2_r_proc, | |
1110 ag_action_3_r_proc, | |
1111 ag_action_4_r_proc | |
1112 }; | |
1113 | |
1114 static int (*const ag_s_procs_scan[])(void) = { | |
1115 ag_action_1_s_proc, | |
1116 ag_action_2_r_proc, | |
1117 ag_action_3_s_proc, | |
1118 ag_action_4_r_proc | |
1119 }; | |
1120 | |
1121 static int (*const ag_gt_procs_scan[])(void) = { | |
1122 ag_action_1_proc, | |
1123 ag_action_2_proc, | |
1124 ag_action_3_proc, | |
1125 ag_action_4_proc, | |
1126 ag_action_5_proc, | |
1127 ag_action_6_proc, | |
1128 ag_action_7_proc, | |
1129 ag_action_8_proc, | |
1130 ag_action_9_proc, | |
1131 ag_action_10_proc, | |
1132 ag_action_11_proc, | |
1133 ag_action_8_proc | |
1134 }; | |
1135 | |
1136 | |
1137 static int ag_action_10_proc(void) { | |
1138 int ag_t = (PCB).token_number; | |
1139 (PCB).btsx = 0, (PCB).drt = -1; | |
1140 do { | |
1141 ag_track(); | |
1142 if ((PCB).rx < (PCB).fx) { | |
1143 (PCB).input_code = (PCB).lab[(PCB).rx++]; | |
1144 (PCB).token_number = (parse_token_type) AG_TCV((PCB).input_code);} | |
1145 else { | |
1146 GET_INPUT; | |
1147 (PCB).lab[(PCB).fx++] = (PCB).input_code; | |
1148 (PCB).token_number = (parse_token_type) AG_TCV((PCB).input_code); | |
1149 (PCB).rx++; | |
1150 } | |
1151 if (ag_key_index[(PCB).sn]) { | |
1152 unsigned ag_k = ag_key_index[(PCB).sn]; | |
1153 int ag_ch = CONVERT_CASE((PCB).input_code); | |
1154 if (ag_ch < 255) { | |
1155 while (ag_key_ch[ag_k] < ag_ch) ag_k++; | |
1156 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k); | |
1157 } | |
1158 } | |
1159 } while ((PCB).token_number == (parse_token_type) ag_t); | |
1160 (PCB).rx = 0; | |
1161 return 1; | |
1162 } | |
1163 | |
1164 static int ag_action_11_proc(void) { | |
1165 int ag_t = (PCB).token_number; | |
1166 | |
1167 (PCB).btsx = 0, (PCB).drt = -1; | |
1168 do { | |
1169 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).lab; | |
1170 (PCB).ssx--; | |
1171 ag_track(); | |
1172 ag_ra(); | |
1173 if ((PCB).exit_flag != AG_RUNNING_CODE) return 0; | |
1174 (PCB).ssx++; | |
1175 if ((PCB).rx < (PCB).fx) { | |
1176 (PCB).input_code = (PCB).lab[(PCB).rx++]; | |
1177 (PCB).token_number = (parse_token_type) AG_TCV((PCB).input_code);} | |
1178 else { | |
1179 GET_INPUT; | |
1180 (PCB).lab[(PCB).fx++] = (PCB).input_code; | |
1181 (PCB).token_number = (parse_token_type) AG_TCV((PCB).input_code); | |
1182 (PCB).rx++; | |
1183 } | |
1184 if (ag_key_index[(PCB).sn]) { | |
1185 unsigned ag_k = ag_key_index[(PCB).sn]; | |
1186 int ag_ch = CONVERT_CASE((PCB).input_code); | |
1187 if (ag_ch < 255) { | |
1188 while (ag_key_ch[ag_k] < ag_ch) ag_k++; | |
1189 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k); | |
1190 } | |
1191 } | |
1192 } | |
1193 while ((PCB).token_number == (parse_token_type) ag_t); | |
1194 (PCB).rx = 0; | |
1195 return 1; | |
1196 } | |
1197 | |
1198 static int ag_action_3_r_proc(void) { | |
1199 int ag_sd = ag_fl[(PCB).ag_ap] - 1; | |
1200 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; | |
1201 (PCB).btsx = 0, (PCB).drt = -1; | |
1202 (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; | |
1203 ag_ra(); | |
1204 return (PCB).exit_flag == AG_RUNNING_CODE; | |
1205 } | |
1206 | |
1207 static int ag_action_3_s_proc(void) { | |
1208 int ag_sd = ag_fl[(PCB).ag_ap] - 1; | |
1209 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; | |
1210 (PCB).btsx = 0, (PCB).drt = -1; | |
1211 (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; | |
1212 ag_ra(); | |
1213 return (PCB).exit_flag == AG_RUNNING_CODE; | |
1214 } | |
1215 | |
1216 static int ag_action_4_r_proc(void) { | |
1217 int ag_sd = ag_fl[(PCB).ag_ap] - 1; | |
1218 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; | |
1219 (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; | |
1220 return 1; | |
1221 } | |
1222 | |
1223 static int ag_action_2_proc(void) { | |
1224 (PCB).btsx = 0, (PCB).drt = -1; | |
1225 if ((PCB).ssx >= 1000) { | |
1226 (PCB).exit_flag = AG_STACK_ERROR_CODE; | |
1227 PARSER_STACK_OVERFLOW; | |
1228 } | |
1229 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).lab; | |
1230 (PCB).ss[(PCB).ssx] = (PCB).sn; | |
1231 (PCB).ssx++; | |
1232 (PCB).sn = (PCB).ag_ap; | |
1233 ag_track(); | |
1234 return 0; | |
1235 } | |
1236 | |
1237 static int ag_action_9_proc(void) { | |
1238 if ((PCB).drt == -1) { | |
1239 (PCB).drt=(PCB).token_number; | |
1240 (PCB).dssx=(PCB).ssx; | |
1241 (PCB).dsn=(PCB).sn; | |
1242 } | |
1243 ag_prot(); | |
1244 (PCB).vs[(PCB).ssx] = ag_null_value; | |
1245 (PCB).ss[(PCB).ssx] = (PCB).sn; | |
1246 (PCB).ssx++; | |
1247 (PCB).sn = (PCB).ag_ap; | |
1248 (PCB).rx = 0; | |
1249 return (PCB).exit_flag == AG_RUNNING_CODE; | |
1250 } | |
1251 | |
1252 static int ag_action_2_r_proc(void) { | |
1253 (PCB).ssx++; | |
1254 (PCB).sn = (PCB).ag_ap; | |
1255 return 0; | |
1256 } | |
1257 | |
1258 static int ag_action_7_proc(void) { | |
1259 --(PCB).ssx; | |
1260 (PCB).rx = 0; | |
1261 (PCB).exit_flag = AG_SUCCESS_CODE; | |
1262 return 0; | |
1263 } | |
1264 | |
1265 static int ag_action_1_proc(void) { | |
1266 ag_track(); | |
1267 (PCB).exit_flag = AG_SUCCESS_CODE; | |
1268 return 0; | |
1269 } | |
1270 | |
1271 static int ag_action_1_r_proc(void) { | |
1272 (PCB).exit_flag = AG_SUCCESS_CODE; | |
1273 return 0; | |
1274 } | |
1275 | |
1276 static int ag_action_1_s_proc(void) { | |
1277 (PCB).exit_flag = AG_SUCCESS_CODE; | |
1278 return 0; | |
1279 } | |
1280 | |
1281 static int ag_action_4_proc(void) { | |
1282 int ag_sd = ag_fl[(PCB).ag_ap] - 1; | |
1283 (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; | |
1284 (PCB).btsx = 0, (PCB).drt = -1; | |
1285 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).lab; | |
1286 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; | |
1287 else (PCB).ss[(PCB).ssx] = (PCB).sn; | |
1288 ag_track(); | |
1289 while ((PCB).exit_flag == AG_RUNNING_CODE) { | |
1290 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; | |
1291 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; | |
1292 do { | |
1293 unsigned ag_tx = (ag_t1 + ag_t2)/2; | |
1294 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; | |
1295 else ag_t2 = ag_tx; | |
1296 } while (ag_t1 < ag_t2); | |
1297 (PCB).ag_ap = ag_pstt[ag_t1]; | |
1298 if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break; | |
1299 } | |
1300 return 0; | |
1301 } | |
1302 | |
1303 static int ag_action_3_proc(void) { | |
1304 int ag_sd = ag_fl[(PCB).ag_ap] - 1; | |
1305 (PCB).btsx = 0, (PCB).drt = -1; | |
1306 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).lab; | |
1307 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; | |
1308 else (PCB).ss[(PCB).ssx] = (PCB).sn; | |
1309 ag_track(); | |
1310 (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; | |
1311 ag_ra(); | |
1312 while ((PCB).exit_flag == AG_RUNNING_CODE) { | |
1313 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; | |
1314 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; | |
1315 do { | |
1316 unsigned ag_tx = (ag_t1 + ag_t2)/2; | |
1317 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; | |
1318 else ag_t2 = ag_tx; | |
1319 } while (ag_t1 < ag_t2); | |
1320 (PCB).ag_ap = ag_pstt[ag_t1]; | |
1321 if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break; | |
1322 } | |
1323 return 0; | |
1324 } | |
1325 | |
1326 static int ag_action_8_proc(void) { | |
1327 ag_undo(); | |
1328 (PCB).rx = 0; | |
1329 (PCB).exit_flag = AG_SYNTAX_ERROR_CODE; | |
1330 ag_diagnose(); | |
1331 SYNTAX_ERROR; | |
1332 {(PCB).rx = 1; ag_track();} | |
1333 return (PCB).exit_flag == AG_RUNNING_CODE; | |
1334 } | |
1335 | |
1336 static int ag_action_5_proc(void) { | |
1337 int ag_sd = ag_fl[(PCB).ag_ap]; | |
1338 (PCB).btsx = 0, (PCB).drt = -1; | |
1339 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; | |
1340 else { | |
1341 (PCB).ss[(PCB).ssx] = (PCB).sn; | |
1342 } | |
1343 (PCB).rx = 0; | |
1344 (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; | |
1345 ag_ra(); | |
1346 while ((PCB).exit_flag == AG_RUNNING_CODE) { | |
1347 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; | |
1348 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; | |
1349 do { | |
1350 unsigned ag_tx = (ag_t1 + ag_t2)/2; | |
1351 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; | |
1352 else ag_t2 = ag_tx; | |
1353 } while (ag_t1 < ag_t2); | |
1354 (PCB).ag_ap = ag_pstt[ag_t1]; | |
1355 if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break; | |
1356 } | |
1357 return (PCB).exit_flag == AG_RUNNING_CODE; | |
1358 } | |
1359 | |
1360 static int ag_action_6_proc(void) { | |
1361 int ag_sd = ag_fl[(PCB).ag_ap]; | |
1362 (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; | |
1363 if ((PCB).drt == -1) { | |
1364 (PCB).drt=(PCB).token_number; | |
1365 (PCB).dssx=(PCB).ssx; | |
1366 (PCB).dsn=(PCB).sn; | |
1367 } | |
1368 if (ag_sd) { | |
1369 (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; | |
1370 } | |
1371 else { | |
1372 ag_prot(); | |
1373 (PCB).vs[(PCB).ssx] = ag_null_value; | |
1374 (PCB).ss[(PCB).ssx] = (PCB).sn; | |
1375 } | |
1376 (PCB).rx = 0; | |
1377 while ((PCB).exit_flag == AG_RUNNING_CODE) { | |
1378 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; | |
1379 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; | |
1380 do { | |
1381 unsigned ag_tx = (ag_t1 + ag_t2)/2; | |
1382 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; | |
1383 else ag_t2 = ag_tx; | |
1384 } while (ag_t1 < ag_t2); | |
1385 (PCB).ag_ap = ag_pstt[ag_t1]; | |
1386 if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break; | |
1387 } | |
1388 return (PCB).exit_flag == AG_RUNNING_CODE; | |
1389 } | |
1390 | |
1391 | |
1392 void init_parse(void) { | |
1393 (PCB).rx = (PCB).fx = 0; | |
1394 (PCB).ss[0] = (PCB).sn = (PCB).ssx = 0; | |
1395 (PCB).exit_flag = AG_RUNNING_CODE; | |
1396 (PCB).line = FIRST_LINE; | |
1397 (PCB).column = FIRST_COLUMN; | |
1398 (PCB).btsx = 0, (PCB).drt = -1; | |
1399 } | |
1400 | |
1401 void parse(void) { | |
1402 init_parse(); | |
1403 (PCB).exit_flag = AG_RUNNING_CODE; | |
1404 while ((PCB).exit_flag == AG_RUNNING_CODE) { | |
1405 unsigned ag_t1 = ag_sbt[(PCB).sn]; | |
1406 if (ag_tstt[ag_t1]) { | |
1407 unsigned ag_t2 = ag_sbe[(PCB).sn] - 1; | |
1408 if ((PCB).rx < (PCB).fx) { | |
1409 (PCB).input_code = (PCB).lab[(PCB).rx++]; | |
1410 (PCB).token_number = (parse_token_type) AG_TCV((PCB).input_code);} | |
1411 else { | |
1412 GET_INPUT; | |
1413 (PCB).lab[(PCB).fx++] = (PCB).input_code; | |
1414 (PCB).token_number = (parse_token_type) AG_TCV((PCB).input_code); | |
1415 (PCB).rx++; | |
1416 } | |
1417 if (ag_key_index[(PCB).sn]) { | |
1418 unsigned ag_k = ag_key_index[(PCB).sn]; | |
1419 int ag_ch = CONVERT_CASE((PCB).input_code); | |
1420 if (ag_ch < 255) { | |
1421 while (ag_key_ch[ag_k] < ag_ch) ag_k++; | |
1422 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k); | |
1423 } | |
1424 } | |
1425 do { | |
1426 unsigned ag_tx = (ag_t1 + ag_t2)/2; | |
1427 if (ag_tstt[ag_tx] > (unsigned char)(PCB).token_number) | |
1428 ag_t1 = ag_tx + 1; | |
1429 else ag_t2 = ag_tx; | |
1430 } while (ag_t1 < ag_t2); | |
1431 if (ag_tstt[ag_t1] != (unsigned char)(PCB).token_number) | |
1432 ag_t1 = ag_sbe[(PCB).sn]; | |
1433 } | |
1434 (PCB).ag_ap = ag_pstt[ag_t1]; | |
1435 (ag_gt_procs_scan[ag_astt[ag_t1]])(); | |
1436 } | |
1437 } | |
1438 | |
1439 |