Mercurial > ~dholland > hg > ag > index.cgi

comparison tests/agcl/parsifal/good/ss-sscx.cpp @ 0:13d2b8934445

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 Copyright 1992, Jerome T. Holland
3 See the file COPYING for license and usage terms.
4
5 An example syntax and supporting classes for implementing a spreadsheet
6
7 Class definitions are found in sscxdefs.h
8
9 This example is largely intended to serve as an illustration, and is
10 incomplete in a number of ways. In particular, the expression syntax
11 is that of C, except for identifiers, and only a few functions are
12 implemented. More may be implemented trivially by following the
13 patterns provided.
14
15 The supported operations are:
16 Conditional expressions: ? :
17 Logical operators: !, &, |
18 Comparison operators: ==, !=, <, <=, >, >=
19 Binary arithmetic operators: +, -, *, /
20 Exponentiation: **
21 Unary arithmetic operators: +, -
22 Parentheses
23 Function calls abs, sin, asin, atan
24
25 A note on the technique used for compilation:
26
27 The basic approach is to build a Reverse Polish Notation stack.
28 During parsing, the constants, cell locators, and operators are
29 stacked on separate temporary stacks. When parsing is complete,
30 these stacks are unloaded into arrays belonging to the cell
31 expression object. Note that there is a one to one correspondence
32 between items on the constant stack and fd (fetch double) operators
33 in the op stack. Since there are no branching instructions, there
34 there is one and ony one constant corresponding to a fd operation
35 so it is sufficient to simply increment an index into the constant
36 array as execution progresses, to know which constant to use. The
37 same logic holds for cell locators.
38 */
39
40 #include <math.h>
41 #include "agstk.h"
42 #include <string.h>
43 #include <errno.h>
44 #include "sscxdefs.h"
45
46
47 /*
48 * AnaGram, A System for Syntax Directed Programming
49 * File generated by: ...
50 *
51 * AnaGram Parsing Engine
52 * Copyright 1993-2002 Parsifal Software. All Rights Reserved.
53 *
54 * This software is provided 'as-is', without any express or implied
55 * warranty. In no event will the authors be held liable for any damages
56 * arising from the use of this software.
57 *
58 * Permission is granted to anyone to use this software for any purpose,
59 * including commercial applications, and to alter it and redistribute it
60 * freely, subject to the following restrictions:
61 *
62 * 1. The origin of this software must not be misrepresented; you must not
63 * claim that you wrote the original software. If you use this software
64 * in a product, an acknowledgment in the product documentation would be
65 * appreciated but is not required.
66 * 2. Altered source versions must be plainly marked as such, and must not be
67 * misrepresented as being the original software.
68 * 3. This notice may not be removed or altered from any source distribution.
69 */
70
71 #ifndef SS-SSCX_H
72 #include "ss-sscx.h"
73 #endif
74
75 #ifndef SS-SSCX_H
76 #error Mismatched header file
77 #endif
78
79 #include <ctype.h>
80 #include <stdio.h>
81
82 #define RULE_CONTEXT (&((PCB).cs[(PCB).ssx]))
83 #define ERROR_CONTEXT ((PCB).cs[(PCB).error_frame_ssx])
84 #define CONTEXT ((PCB).cs[(PCB).ssx])
85
86
87
88 parseKernel_pcb_type parseKernel_pcb;
89 #define PCB parseKernel_pcb
90
91 #line - "ss-sscx.syn"
92 // Stacks for use in parsing and compiling
93
94 AgStack<double> doubleStack;
95 AgStack<Locator> locatorStack;
96 AgStack<CellExpression::Op> opStack;
97
98 // Data for a simple minded test
99
100 CellExpression *Locator::expression[3][3];
101 int Locator::maxRow = 3;
102 int Locator::maxCol = 3;
103
104 char *expressionText[3][3] = {
105 {"17", "19", "-23"},
106 {"2*a1", "b1 - a2", "a2+b2"},
107 {"b2 + c2", "a3-a2", "a2/b2"}
108 };
109
110 /*
111 Constructor for CellExpression
112
113 Parses the input text and creates byte code for later execution by
114 the value() function.
115 */
116
117 CellExpression::CellExpression(char *text)
118 : constant(0), nConstants(0),
119 locator(0), nLocators(0),
120 op(0), nOps(0),
121 errorFlag(0), busy(0), cycle(0)
122 {
123 doubleStack.reset();
124 locatorStack.reset();
125 opStack.reset();
126 PCB.pointer = (unsigned char *) text;
127 parseKernel(); // Parse expression
128 if (PCB.exit_flag != AG_SUCCESS_CODE) {errorFlag = 1; return;}
129 // save parse results
130 nConstants = doubleStack.size();
131 nLocators = locatorStack.size();
132 nOps = opStack.size();
133 constant = new double[nConstants];
134 locator = new Locator[nLocators];
135 op = new Op[nOps];
136 int i;
137 for (i = nConstants; i--;) constant[i] = doubleStack.pop();
138 for (i = nLocators; i--;) locator[i] = locatorStack.pop();
139 for (i = nOps; i--;) op[i] = opStack.pop();
140 }
141
142 // Function to execute byte code
143
144 Number CellExpression::value() {
145 if (errorFlag) return Number();
146 if (busy) { // Check for cyclic definition
147 errorFlag = cycle = 1;
148 return Number();
149 }
150 busy = 1;
151 int constantIndex = 0;
152 int locatorIndex = 0;
153
154 AgStack<Number> stack; // Arithmetic stack for byte code interpreter
155
156 Number temp; // temporary variable
157 int pc = 0;
158 while (pc < nOps && errorFlag == 0) {
159 switch (op[pc]) {
160 case add: stack.pop(temp); stack.top() += temp; break;
161 case sub: stack.pop(temp); stack.top() -= temp; break;
162 case mpy: stack.pop(temp); stack.top() *= temp; break;
163 case div: stack.pop(temp); stack.top() /= temp; break;
164 case pow: stack.pop(temp); stack.top() = stack.top().pow(temp); break;
165 case lt: stack.pop(temp); stack.top() = stack.top() < temp; break;
166 case le: stack.pop(temp); stack.top() = stack.top() <= temp; break;
167 case gt: stack.pop(temp); stack.top() = stack.top() > temp; break;
168 case ge: stack.pop(temp); stack.top() = stack.top() >= temp; break;
169 case eq: stack.pop(temp); stack.top() = stack.top() == temp; break;
170 case ne: stack.pop(temp); stack.top() = stack.top() != temp; break;
171 case and: stack.pop(temp); stack.top() = stack.top() != Number(0) & temp != Number(0); break;
172 case or: stack.pop(temp); stack.top() = stack.top() != Number(0) | temp != Number(0); break;
173 case minus: stack.top() = -stack.top(); break;
174 case not: stack.top() = stack.top() == Number(0); break;
175 case cond: {
176 Number secondOption = stack.pop();
177 Number firstOption = stack.pop();
178 if (stack.top().bad) break;
179 stack.top() = (stack.top() != Number(0)) ? firstOption : secondOption;
180 break;
181 }
182 case abs: stack.top() = stack.top().abs(); break;
183 case sin: stack.top() = stack.top().sin(); break;
184 case asin: stack.top() = stack.top().asin(); break;
185 case atan: stack.top() = stack.top().atan(); break;
186 case atan2: temp = stack.pop(); stack.top() = stack.top().atan2(temp); break;
187 // Fetch double
188 case fd: stack.push(constant[constantIndex++]); break;
189 // Fetch cell value
190 case fc: {
191 CellExpression *x = locator[locatorIndex++].cellExpression();
192 Number temp;
193 if (x != 0) temp = x->value();
194 stack.push(temp);
195 break;
196 }
197 }
198 pc++;
199 }
200 busy = 0;
201 return stack.top();
202 }
203
204 // Rather trivial test
205
206 int main() {
207 int i, j;
208 // Initialize CellExpresions
209 for (i = 0; i < 3; i++) for (j = 0; j < 3; j++) {
210 Locator::expression[i][j] = new CellExpression(expressionText[i][j]);
211 }
212 // Calculate and print out values
213 for (i = 0; i < 3; i++) for (j = 0; j < 3; j++) {
214 printf("cell[%d][%d] = %G\n", i, j, (double) (Locator::expression[i][j]->value()));
215 }
216 return 0;
217 }
218
219 #line - "ss-sscx.cpp"
220
221 #ifndef CONVERT_CASE
222 #define CONVERT_CASE(c) (c)
223 #endif
224 #ifndef TAB_SPACING
225 #define TAB_SPACING 8
226 #endif
227
228 #define ag_rp_1() (opStack.push(CellExpression::cond))
229
230 #define ag_rp_2() (opStack.push(CellExpression::or))
231
232 #define ag_rp_3() (opStack.push(CellExpression::and))
233
234 #define ag_rp_4(x, y) (opStack.push(CellExpression::eq))
235
236 #define ag_rp_5(x, y) (opStack.push(CellExpression::ne))
237
238 #define ag_rp_6() (opStack.push(CellExpression::lt))
239
240 #define ag_rp_7() (opStack.push(CellExpression::le))
241
242 #define ag_rp_8() (opStack.push(CellExpression::gt))
243
244 #define ag_rp_9() (opStack.push(CellExpression::ge))
245
246 #define ag_rp_10() (opStack.push(CellExpression::add))
247
248 #define ag_rp_11() (opStack.push(CellExpression::sub))
249
250 #define ag_rp_12(x, y) (opStack.push(CellExpression::mpy))
251
252 #define ag_rp_13(x, y) (opStack.push(CellExpression::div))
253
254 #define ag_rp_14() (opStack.push(CellExpression::pow))
255
256 #define ag_rp_15(x) (doubleStack.push(x), opStack.push(CellExpression::fd))
257
258 #define ag_rp_16(n) (locatorStack.push(n), opStack.push(CellExpression::fc))
259
260 #define ag_rp_17() (opStack.push(CellExpression::abs))
261
262 #define ag_rp_18() (opStack.push(CellExpression::sin))
263
264 #define ag_rp_19() (opStack.push(CellExpression::sin))
265
266 #define ag_rp_20() (opStack.push(CellExpression::atan))
267
268 #define ag_rp_21() (opStack.push(CellExpression::atan2))
269
270 #define ag_rp_22() (opStack.push(CellExpression::minus))
271
272 #define ag_rp_23() (opStack.push(CellExpression::not))
273
274 #define ag_rp_24(x, e) (x*pow(10,e))
275
276 #define ag_rp_25(x, e) (x*pow(10,-e))
277
278 #define ag_rp_26(i, f) (i+f)
279
280 #define ag_rp_27(f) (f)
281
282 #define ag_rp_28(d) (d-'0')
283
284 #define ag_rp_29(x, d) (10*x + d-'0')
285
286 #define ag_rp_30(d) ((d-'0')/10.)
287
288 #define ag_rp_31(d, f) ((d-'0' + f)/10.)
289
290 #define ag_rp_32(d) (d-'0')
291
292 #define ag_rp_33(x, d) (10*x + d-'0')
293
294 #define ag_rp_34(c, r) (Locator(r-1,c))
295
296 #define ag_rp_35(c, r) (Locator(r-1,c).setAbsoluteCol())
297
298 #define ag_rp_36(c, r) (Locator(r-1,c).setAbsoluteRow())
299
300 #define ag_rp_37(c, r) (Locator(r-1,c).setAbsoluteRow().setAbsoluteCol())
301
302 #define ag_rp_38(c) (c - 'a')
303
304 #define ag_rp_39(c) (c = 'A')
305
306 #define ag_rp_40(n) (n)
307
308 #define ag_rp_41(c, n) (26*c + n)
309
310 #define ag_rp_42(d) (d - '0')
311
312 #define ag_rp_43(n, d) (10*n + d - '0')
313
314
315 #define READ_COUNTS
316 #define WRITE_COUNTS
317 #undef V
318 #define V(i,t) (*t (&(PCB).vs[(PCB).ssx + i]))
319 #undef VS
320 #define VS(i) (PCB).vs[(PCB).ssx + i]
321
322 #ifndef GET_CONTEXT
323 #define GET_CONTEXT CONTEXT = (PCB).input_context
324 #endif
325
326 typedef enum {
327 ag_action_1,
328 ag_action_2,
329 ag_action_3,
330 ag_action_4,
331 ag_action_5,
332 ag_action_6,
333 ag_action_7,
334 ag_action_8,
335 ag_action_9,
336 ag_action_10,
337 ag_action_11,
338 ag_action_12
339 } ag_parser_action;
340
341
342 #ifndef NULL_VALUE_INITIALIZER
343 #define NULL_VALUE_INITIALIZER = { 0 }
344 #endif
345
346 static parseKernel_vs_type const ag_null_value NULL_VALUE_INITIALIZER;
347
348 static const unsigned char ag_rpx[] = {
349 0, 0, 0, 1, 0, 2, 0, 3, 0, 4, 5, 0, 6, 7, 8, 9, 0, 10,
350 11, 0, 12, 13, 0, 14, 15, 16, 17, 18, 19, 20, 21, 0, 22, 0, 23, 0,
351 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 25, 26, 0, 0,
352 0, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43
353 };
354
355 static const unsigned char ag_key_itt[] = {
356 0
357 };
358
359 static const unsigned short ag_key_pt[] = {
360 0
361 };
362
363 static const unsigned char ag_key_ch[] = {
364 0, 42, 47,255, 98,115,116,255, 47, 97,115,255, 42,255, 42, 47,255, 98,
365 115,116,255, 33, 42, 47, 60, 61, 62, 97,115,255, 98,115,116,255, 97,115,
366 255, 42, 47,255, 33, 42, 47, 60, 61, 62,255, 42, 47,255, 47,255, 33, 42,
367 60, 61, 62,255, 33, 60, 61, 62,255, 33, 61,255
368 };
369
370 static const unsigned char ag_key_act[] = {
371 0,0,0,4,3,3,3,4,2,2,3,4,3,4,0,0,4,3,3,3,4,3,3,2,3,3,3,2,3,4,3,3,3,4,2,
372 3,4,0,0,4,3,3,2,3,3,3,4,0,0,4,2,4,3,3,3,3,3,4,3,3,3,3,4,3,3,4
373 };
374
375 static const unsigned char ag_key_parm[] = {
376 0, 39, 44, 0, 91, 93, 94, 0, 0, 0, 92, 0, 43, 0, 39, 44, 0, 91,
377 93, 94, 0, 77, 86, 0, 79, 76, 81, 0, 92, 0, 91, 93, 94, 0, 0, 92,
378 0, 39, 44, 0, 77, 86, 0, 79, 76, 81, 0, 39, 44, 0, 0, 0, 77, 86,
379 79, 76, 81, 0, 77, 79, 76, 81, 0, 77, 76, 0
380 };
381
382 static const unsigned char ag_key_jmp[] = {
383 0, 0, 0, 0, 0, 2, 5, 0, 1, 4, 8, 0, 11, 0, 0, 0, 0, 23,
384 25, 28, 0, 13, 15, 14, 17, 19, 21, 17, 31, 0, 34, 36, 39, 0, 30, 42,
385 0, 0, 0, 0, 45, 47, 37, 49, 51, 53, 0, 0, 0, 0, 47, 0, 55, 57,
386 59, 61, 63, 0, 65, 67, 69, 71, 0, 73, 75, 0
387 };
388
389 static const unsigned char ag_key_index[] = {
390 8, 0, 12, 21, 34, 0, 0, 12, 12, 0, 40, 0, 0, 40, 8, 8, 8, 8,
391 50, 50, 50, 50, 40, 40, 34, 34, 34, 34, 0, 0, 0, 0, 52, 58, 58, 58,
392 63, 0, 0, 0, 40, 40, 0, 0, 40, 0, 0, 34, 34, 34, 34, 8, 34, 8,
393 34, 8, 34, 34, 34, 8, 34, 8, 34, 8, 34, 8, 34, 8, 34, 8, 34, 8,
394 34, 8, 34, 8, 34, 0, 40, 40, 0, 0, 40, 0, 0, 0, 0, 58, 58, 58,
395 58, 58, 58, 58, 58, 63, 0, 0, 40, 40, 40, 8, 34, 8, 34, 0
396 };
397
398 static const unsigned char ag_key_ends[] = {
399 115,0, 105,110,0, 97,110,0, 105,110,0, 47,0, 61,0, 42,0,
400 61,0, 61,0, 61,0, 115,0, 105,110,0, 97,110,0, 105,110,0, 115,0,
401 105,110,0, 97,110,0, 105,110,0, 61,0, 42,0, 61,0, 61,0, 61,0,
402 61,0, 42,0, 61,0, 61,0, 61,0, 61,0, 61,0, 61,0, 61,0, 61,0,
403 61,0,
404 };
405
406 #define AG_TCV(x) ag_tcv[(x)]
407
408 static const unsigned char ag_tcv[] = {
409 6, 65, 65, 65, 65, 65, 65, 65, 65, 64, 48, 64, 64, 64, 65, 65, 65, 65,
410 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 64, 96, 65, 65,
411 60, 65, 75, 65, 90, 89, 84, 82, 95, 83, 54, 85, 57, 57, 57, 57, 57, 57,
412 57, 57, 57, 57, 72, 65, 78, 65, 80, 73, 65, 66, 66, 66, 66, 67, 66, 66,
413 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66,
414 66, 65, 65, 65, 65, 65, 65, 68, 68, 68, 68, 69, 68, 68, 68, 68, 68, 68,
415 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 65, 74, 65,
416 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
417 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
418 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
419 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
420 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
421 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
422 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
423 65, 65, 65, 65
424 };
425
426 #ifndef SYNTAX_ERROR
427 #define SYNTAX_ERROR fprintf(stderr,"%s, line %d, column %d\n", \
428 (PCB).error_message, (PCB).line, (PCB).column)
429 #endif
430
431 #ifndef FIRST_LINE
432 #define FIRST_LINE 1
433 #endif
434
435 #ifndef FIRST_COLUMN
436 #define FIRST_COLUMN 1
437 #endif
438
439 #ifndef PARSER_STACK_OVERFLOW
440 #define PARSER_STACK_OVERFLOW {fprintf(stderr, \
441 "\nParser stack overflow, line %d, column %d\n",\
442 (PCB).line, (PCB).column);}
443 #endif
444
445 #ifndef REDUCTION_TOKEN_ERROR
446 #define REDUCTION_TOKEN_ERROR {fprintf(stderr, \
447 "\nReduction token error, line %d, column %d\n", \
448 (PCB).line, (PCB).column);}
449 #endif
450
451
452 #ifndef INPUT_CODE
453 #define INPUT_CODE(T) (T)
454 #endif
455
456 typedef enum
457 {ag_accept_key, ag_set_key, ag_jmp_key, ag_end_key, ag_no_match_key,
458 ag_cf_accept_key, ag_cf_set_key, ag_cf_end_key} key_words;
459
460 static void ag_get_key_word(int ag_k) {
461 int ag_save = (int) ((PCB).la_ptr - (PCB).pointer);
462 const unsigned char *ag_p;
463 int ag_ch;
464 while (1) {
465 switch (ag_key_act[ag_k]) {
466 case ag_cf_end_key: {
467 const unsigned char *sp = ag_key_ends + ag_key_jmp[ag_k];
468 do {
469 if ((ag_ch = *sp++) == 0) {
470 int ag_k1 = ag_key_parm[ag_k];
471 int ag_k2 = ag_key_pt[ag_k1];
472 if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) goto ag_fail;
473 (PCB).token_number = (parseKernel_token_type) ag_key_pt[ag_k1 + 1];
474 return;
475 }
476 } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch);
477 goto ag_fail;
478 }
479 case ag_end_key: {
480 const unsigned char *sp = ag_key_ends + ag_key_jmp[ag_k];
481 do {
482 if ((ag_ch = *sp++) == 0) {
483 (PCB).token_number = (parseKernel_token_type) ag_key_parm[ag_k];
484 return;
485 }
486 } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch);
487 }
488 case ag_no_match_key:
489 ag_fail:
490 (PCB).la_ptr = (PCB).pointer + ag_save;
491 return;
492 case ag_cf_set_key: {
493 int ag_k1 = ag_key_parm[ag_k];
494 int ag_k2 = ag_key_pt[ag_k1];
495 ag_k = ag_key_jmp[ag_k];
496 if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) break;
497 ag_save = (int) ((PCB).la_ptr - (PCB).pointer);
498 (PCB).token_number = (parseKernel_token_type) ag_key_pt[ag_k1+1];
499 break;
500 }
501 case ag_set_key:
502 ag_save = (int) ((PCB).la_ptr - (PCB).pointer);
503 (PCB).token_number = (parseKernel_token_type) ag_key_parm[ag_k];
504 case ag_jmp_key:
505 ag_k = ag_key_jmp[ag_k];
506 break;
507 case ag_accept_key:
508 (PCB).token_number = (parseKernel_token_type) ag_key_parm[ag_k];
509 return;
510 case ag_cf_accept_key: {
511 int ag_k1 = ag_key_parm[ag_k];
512 int ag_k2 = ag_key_pt[ag_k1];
513 if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)])
514 (PCB).la_ptr = (PCB).pointer + ag_save;
515 else (PCB).token_number = (parseKernel_token_type) ag_key_pt[ag_k1+1];
516 return;
517 }
518 }
519 ag_ch = CONVERT_CASE(*(PCB).la_ptr++);
520 ag_p = &ag_key_ch[ag_k];
521 if (ag_ch <= 255) while (*ag_p < ag_ch) ag_p++;
522 if (ag_ch > 255 || *ag_p != ag_ch) {
523 (PCB).la_ptr = (PCB).pointer + ag_save;
524 return;
525 }
526 ag_k = (int) (ag_p - ag_key_ch);
527 }
528 }
529
530
531 #ifndef AG_NEWLINE
532 #define AG_NEWLINE 10
533 #endif
534
535 #ifndef AG_RETURN
536 #define AG_RETURN 13
537 #endif
538
539 #ifndef AG_FORMFEED
540 #define AG_FORMFEED 12
541 #endif
542
543 #ifndef AG_TABCHAR
544 #define AG_TABCHAR 9
545 #endif
546
547 static void ag_track(void) {
548 int ag_k = (int) ((PCB).la_ptr - (PCB).pointer);
549 while (ag_k--) {
550 switch (*(PCB).pointer++) {
551 case AG_NEWLINE:
552 (PCB).column = 1, (PCB).line++;
553 case AG_RETURN:
554 case AG_FORMFEED:
555 break;
556 case AG_TABCHAR:
557 (PCB).column += (TAB_SPACING) - ((PCB).column - 1) % (TAB_SPACING);
558 break;
559 default:
560 (PCB).column++;
561 }
562 }
563 }
564
565
566 static void ag_prot(void) {
567 int ag_k;
568 ag_k = 128 - ++(PCB).btsx;
569 if (ag_k <= (PCB).ssx) {
570 (PCB).exit_flag = AG_STACK_ERROR_CODE;
571 PARSER_STACK_OVERFLOW;
572 return;
573 }
574 (PCB).bts[(PCB).btsx] = (PCB).sn;
575 (PCB).bts[ag_k] = (PCB).ssx;
576 (PCB).vs[ag_k] = (PCB).vs[(PCB).ssx];
577 (PCB).ss[ag_k] = (PCB).ss[(PCB).ssx];
578 }
579
580 static void ag_undo(void) {
581 if ((PCB).drt == -1) return;
582 while ((PCB).btsx) {
583 int ag_k = 128 - (PCB).btsx;
584 (PCB).sn = (PCB).bts[(PCB).btsx--];
585 (PCB).ssx = (PCB).bts[ag_k];
586 (PCB).vs[(PCB).ssx] = (PCB).vs[ag_k];
587 (PCB).ss[(PCB).ssx] = (PCB).ss[ag_k];
588 }
589 (PCB).token_number = (parseKernel_token_type) (PCB).drt;
590 (PCB).ssx = (PCB).dssx;
591 (PCB).sn = (PCB).dsn;
592 (PCB).drt = -1;
593 }
594
595
596 static const unsigned char ag_tstt[] = {
597 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
598 96,95,90,89,85,84,83,82,80,78,75,74,73,72,69,68,67,66,65,64,60,57,54,48,0,
599 46,47,
600 96,95,90,89,85,84,83,82,80,78,75,74,73,72,69,68,67,66,65,64,60,57,54,48,43,
601 0,41,42,
602 64,48,44,39,0,1,
603 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,4,5,7,10,12,14,17,22,23,
604 24,25,28,30,31,33,34,35,37,49,53,58,61,87,88,
605 96,95,90,89,85,84,83,82,80,78,75,74,73,72,69,68,67,66,65,64,60,57,54,0,
606 48,0,
607 96,95,90,89,85,84,83,82,80,78,75,74,73,72,69,68,67,66,65,64,60,57,54,48,0,
608 43,0,
609 57,0,55,
610 95,89,86,85,84,83,82,81,80,79,78,77,76,75,74,73,72,69,67,64,57,54,48,44,39,
611 6,0,56,
612 69,68,67,66,0,58,61,
613 69,68,67,66,60,57,0,59,61,
614 69,67,0,
615 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
616 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
617 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
618 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
619 90,64,48,44,39,0,1,70,71,
620 90,64,48,44,39,0,1,70,71,
621 90,64,48,44,39,0,1,70,71,
622 90,64,48,44,39,0,1,70,71,
623 95,89,86,85,84,83,82,81,80,79,78,77,76,75,74,73,72,64,48,44,39,6,0,1,70,71,
624 95,89,86,85,84,83,82,81,80,79,78,77,76,75,74,73,72,64,48,44,39,6,0,1,70,71,
625 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,23,24,28,30,31,33,34,35,
626 37,49,53,58,61,87,88,
627 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,23,24,28,30,31,33,34,35,
628 37,49,53,58,61,87,88,
629 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,23,24,28,30,31,33,34,35,
630 37,49,53,58,61,87,88,
631 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,5,7,10,12,14,17,22,23,24,
632 25,28,30,31,33,34,35,37,49,53,58,61,87,88,
633 90,0,31,
634 90,0,31,
635 90,0,31,
636 90,0,31,
637 86,0,29,
638 85,84,0,26,27,
639 83,82,0,23,24,
640 81,80,79,78,0,18,19,20,21,
641 77,76,0,15,16,
642 75,0,13,
643 74,73,0,8,11,
644 6,0,
645 57,0,55,
646 57,0,55,
647 69,68,67,66,60,57,0,59,61,
648 57,0,59,
649 57,0,
650 83,82,57,0,51,
651 89,0,32,
652 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,5,7,10,12,14,17,22,23,24,
653 25,28,30,31,33,34,35,37,49,53,58,61,87,88,
654 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,5,7,10,12,14,17,22,23,24,
655 25,28,30,31,33,34,35,37,49,53,58,61,87,88,
656 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,5,7,10,12,14,17,22,23,24,
657 25,28,30,31,33,34,35,37,49,53,58,61,87,88,
658 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,5,7,10,12,14,17,22,23,24,
659 25,28,30,31,33,34,35,37,49,53,58,61,87,88,
660 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
661 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,23,24,25,28,30,31,33,34,
662 35,37,49,53,58,61,87,88,
663 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
664 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,23,24,25,28,30,31,33,34,
665 35,37,49,53,58,61,87,88,
666 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
667 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,23,24,25,28,30,31,33,34,
668 35,37,49,53,58,61,87,88,
669 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,22,23,24,25,28,30,31,33,
670 34,35,37,49,53,58,61,87,88,
671 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,22,23,24,25,28,30,31,33,
672 34,35,37,49,53,58,61,87,88,
673 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
674 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,17,22,23,24,25,28,30,31,
675 33,34,35,37,49,53,58,61,87,88,
676 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
677 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,17,22,23,24,25,28,30,31,
678 33,34,35,37,49,53,58,61,87,88,
679 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
680 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,17,22,23,24,25,28,30,31,
681 33,34,35,37,49,53,58,61,87,88,
682 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
683 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,17,22,23,24,25,28,30,31,
684 33,34,35,37,49,53,58,61,87,88,
685 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
686 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,14,17,22,23,24,25,28,30,
687 31,33,34,35,37,49,53,58,61,87,88,
688 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
689 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,14,17,22,23,24,25,28,30,
690 31,33,34,35,37,49,53,58,61,87,88,
691 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
692 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,12,14,17,22,23,24,25,28,
693 30,31,33,34,35,37,49,53,58,61,87,88,
694 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
695 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,10,12,14,17,22,23,24,25,
696 28,30,31,33,34,35,37,49,53,58,61,87,88,
697 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
698 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,5,7,10,12,14,17,22,23,24,
699 25,28,30,31,33,34,35,37,49,53,58,61,87,88,
700 57,0,59,
701 57,0,
702 57,0,
703 57,0,52,
704 57,0,52,
705 95,89,86,85,84,83,82,81,80,79,78,77,76,75,74,73,72,64,48,44,39,6,0,1,70,71,
706 95,89,0,32,36,
707 89,0,32,
708 89,0,32,
709 89,0,32,
710 85,84,0,26,27,
711 85,84,0,26,27,
712 83,82,0,23,24,
713 83,82,0,23,24,
714 83,82,0,23,24,
715 83,82,0,23,24,
716 81,80,79,78,0,18,19,20,21,
717 81,80,79,78,0,18,19,20,21,
718 77,76,0,15,16,
719 75,0,13,
720 72,0,9,
721 57,0,
722 57,0,
723 57,0,
724 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
725 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,5,7,10,12,14,17,22,23,24,
726 25,28,30,31,33,34,35,37,49,53,58,61,87,88,
727 96,94,93,92,91,90,83,82,69,68,67,66,64,60,57,54,48,44,39,0,1,70,71,
728 96,94,93,92,91,90,83,82,69,68,67,66,60,57,54,0,2,3,5,7,10,12,14,17,22,23,24,
729 25,28,30,31,33,34,35,37,49,53,58,61,87,88,
730 89,0,32,
731
732 };
733
734
735 static unsigned const char ag_astt[1823] = {
736 8,8,8,8,8,8,8,8,8,8,8,8,1,8,8,8,1,1,1,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
737 1,1,1,1,1,1,1,1,1,8,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
738 8,7,1,1,9,9,1,1,5,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,0,1,1,1,1,1,1,1,1,
739 1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
740 9,5,3,7,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,5,3,7,1,7,2,5,5,5,
741 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,10,1,5,5,5,5,7,3,2,2,2,2,7,1,2,2,2,2,2,1,
742 2,7,1,2,1,1,5,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,5,5,5,5,5,5,5,
743 5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,
744 1,3,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,5,1,1,1,1,7,1,1,3,5,1,1,
745 1,1,7,1,1,3,5,1,1,1,1,7,1,1,3,5,1,1,1,1,7,1,1,3,5,5,5,5,5,5,5,5,5,5,5,5,5,
746 5,5,5,5,1,1,1,1,5,7,1,1,3,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,1,1,1,1,5,7,1,
747 1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,2,1,1,1,1,1,1,1,1,1,2,1,1,1,1,
748 1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,3,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,
749 1,1,2,2,2,2,1,2,1,7,2,2,1,1,2,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,2,2,
750 2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,7,1,1,7,1,
751 1,7,1,1,7,1,1,5,1,1,1,5,1,1,1,1,5,1,1,1,1,1,1,5,1,1,1,1,1,1,5,1,1,1,5,1,1,
752 1,5,1,1,3,7,1,4,2,1,5,2,2,2,2,2,1,2,7,1,2,2,7,1,10,4,1,1,8,7,1,1,7,3,1,1,1,
753 1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,
754 1,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
755 1,1,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
756 1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,
757 1,1,1,1,1,1,1,1,1,1,2,1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,1,
758 1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,2,1,1,1,1,1,1,1,1,1,1,2,1,1,5,5,5,5,
759 5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,
760 1,1,2,1,1,1,1,1,1,1,1,1,1,2,1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,
761 1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,2,1,1,1,1,1,1,1,1,1,1,2,1,1,1,
762 1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,
763 1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,5,5,5,5,5,
764 5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,
765 1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,
766 1,1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,
767 1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,1,1,1,1,1,1,1,1,2,2,2,2,
768 1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,
769 5,5,5,1,1,1,7,1,1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,
770 1,1,1,1,1,1,2,1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,1,1,1,1,1,
771 1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,5,5,5,5,5,
772 5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,
773 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,
774 7,1,1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
775 1,1,2,1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,1,1,1,1,1,1,1,1,2,
776 2,2,2,1,2,1,7,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,5,5,5,5,5,5,5,
777 5,5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,
778 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,2,7,1,10,4,10,4,2,7,1,2,7,1,5,5,5,
779 5,5,5,5,5,5,5,5,5,5,5,5,5,5,1,1,1,1,5,7,1,1,3,1,1,7,2,1,1,7,2,1,7,2,1,7,2,
780 1,1,4,1,1,1,1,4,1,1,1,1,4,1,1,1,1,4,1,1,1,1,4,1,1,1,1,4,1,1,1,1,1,1,4,1,1,
781 1,1,1,1,1,1,4,1,1,1,1,1,1,4,1,1,1,4,1,1,7,1,10,4,10,4,10,4,5,5,5,5,5,5,5,5,
782 5,5,5,5,1,5,5,5,1,1,1,7,1,1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,1,1,1,1,
783 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,1,1,
784 1,7,1,1,3,1,1,1,1,1,1,1,1,2,2,2,2,1,2,1,7,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,
785 1,1,1,1,1,1,2,1,1,1,7,2
786 };
787
788
789 static const unsigned char ag_pstt[] = {
790 4,4,4,4,4,4,4,4,4,4,4,4,3,4,4,4,3,1,2,0,3,3,4,
791 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6,1,5,6,
792 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,8,2,7,8,
793 128,128,1,2,130,128,
794 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,4,24,25,0,39,38,37,36,35,34,33,
795 25,26,33,32,31,27,30,29,28,24,13,10,12,68,23,22,
796 42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,44,
797 45,6,
798 37,37,37,37,37,37,37,37,37,37,37,37,37,37,37,37,37,37,37,37,37,37,37,37,39,
799 40,8,
800 40,9,55,
801 52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,57,41,52,52,52,
802 52,10,54,
803 66,66,67,67,11,42,68,
804 66,66,67,67,43,70,12,44,69,
805 45,45,46,
806 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,14,3,3,
807 155,
808 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,15,3,3,
809 141,
810 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,16,3,3,
811 142,
812 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,17,3,3,
813 149,
814 129,3,3,1,2,18,3,3,153,
815 129,3,3,1,2,19,3,3,152,
816 129,3,3,1,2,20,3,3,151,
817 129,3,3,1,2,21,3,3,150,
818 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,3,3,1,2,
819 129,22,3,3,147,
820 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,3,3,1,2,
821 129,23,3,3,146,
822 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,24,24,25,25,26,34,31,27,30,29,
823 28,24,13,10,12,68,23,22,
824 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,25,24,25,25,26,33,31,27,30,29,
825 28,24,13,10,12,68,23,22,
826 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,26,24,25,25,26,32,31,27,30,29,
827 28,24,13,10,12,68,23,22,
828 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,27,24,25,46,38,37,36,35,34,33,
829 25,26,33,32,31,27,30,29,28,24,13,10,12,68,23,22,
830 17,28,47,
831 17,29,48,
832 17,30,49,
833 17,31,50,
834 51,22,52,
835 53,55,16,56,54,
836 16,15,11,58,57,
837 59,61,63,65,8,66,64,62,60,
838 67,69,6,70,68,
839 71,4,72,
840 73,75,2,76,74,
841 1,39,
842 40,58,59,
843 40,53,51,
844 66,66,67,67,77,70,42,78,69,
845 70,43,79,
846 71,62,
847 80,81,81,45,81,
848 82,46,31,
849 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,47,24,25,83,38,37,36,35,34,33,
850 25,26,33,32,31,27,30,29,28,24,13,10,12,68,23,22,
851 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,48,24,25,84,38,37,36,35,34,33,
852 25,26,33,32,31,27,30,29,28,24,13,10,12,68,23,22,
853 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,49,24,25,85,38,37,36,35,34,33,
854 25,26,33,32,31,27,30,29,28,24,13,10,12,68,23,22,
855 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,50,24,25,86,38,37,36,35,34,33,
856 25,26,33,32,31,27,30,29,28,24,13,10,12,68,23,22,
857 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,51,3,3,
858 145,
859 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,52,24,25,25,26,23,32,31,27,30,
860 29,28,24,13,10,12,68,23,22,
861 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,53,3,3,
862 144,
863 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,54,24,25,25,26,21,32,31,27,30,
864 29,28,24,13,10,12,68,23,22,
865 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,55,3,3,
866 143,
867 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,56,24,25,25,26,20,32,31,27,30,
868 29,28,24,13,10,12,68,23,22,
869 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,57,24,25,87,25,26,87,32,31,27,
870 30,29,28,24,13,10,12,68,23,22,
871 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,58,24,25,88,25,26,88,32,31,27,
872 30,29,28,24,13,10,12,68,23,22,
873 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,59,3,3,
874 140,
875 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,60,24,25,89,33,25,26,33,32,31,
876 27,30,29,28,24,13,10,12,68,23,22,
877 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,61,3,3,
878 139,
879 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,62,24,25,90,33,25,26,33,32,31,
880 27,30,29,28,24,13,10,12,68,23,22,
881 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,63,3,3,
882 138,
883 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,64,24,25,91,33,25,26,33,32,31,
884 27,30,29,28,24,13,10,12,68,23,22,
885 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,65,3,3,
886 137,
887 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,66,24,25,92,33,25,26,33,32,31,
888 27,30,29,28,24,13,10,12,68,23,22,
889 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,67,3,3,
890 136,
891 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,68,24,25,93,34,33,25,26,33,32,
892 31,27,30,29,28,24,13,10,12,68,23,22,
893 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,69,3,3,
894 135,
895 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,70,24,25,94,34,33,25,26,33,32,
896 31,27,30,29,28,24,13,10,12,68,23,22,
897 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,71,3,3,
898 134,
899 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,72,24,25,95,35,34,33,25,26,33,
900 32,31,27,30,29,28,24,13,10,12,68,23,22,
901 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,73,3,3,
902 133,
903 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,74,24,25,96,36,35,34,33,25,26,
904 33,32,31,27,30,29,28,24,13,10,12,68,23,22,
905 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,75,3,3,
906 132,
907 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,76,24,25,97,38,37,36,35,34,33,
908 25,26,33,32,31,27,30,29,28,24,13,10,12,68,23,22,
909 70,77,98,
910 71,63,
911 71,64,
912 60,80,99,
913 60,81,100,
914 129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,3,3,1,2,
915 129,82,3,3,148,
916 101,82,83,29,102,
917 82,84,28,
918 82,85,27,
919 82,86,26,
920 53,55,18,56,54,
921 53,55,17,56,54,
922 16,15,15,58,57,
923 16,15,14,58,57,
924 16,15,13,58,57,
925 16,15,12,58,57,
926 59,61,63,65,10,66,64,62,60,
927 59,61,63,65,9,66,64,62,60,
928 67,69,7,70,68,
929 71,5,72,
930 103,97,104,
931 71,65,
932 61,50,
933 61,49,
934 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,101,3,3,
935 154,
936 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,102,24,25,105,38,37,36,35,34,33,
937 25,26,33,32,31,27,30,29,28,24,13,10,12,68,23,22,
938 129,129,129,129,129,129,129,129,129,129,129,129,3,129,129,129,3,1,2,103,3,3,
939 131,
940 14,18,19,20,21,17,16,15,66,66,67,67,11,56,9,104,24,25,3,38,37,36,35,34,33,
941 25,26,33,32,31,27,30,29,28,24,13,10,12,68,23,22,
942 82,105,30,
943
944 };
945
946
947 static const unsigned short ag_sbt[] = {
948 0, 23, 50, 78, 84, 126, 150, 152, 177, 179, 182, 210, 217, 226,
949 229, 252, 275, 298, 321, 330, 339, 348, 357, 383, 409, 442, 475, 508,
950 549, 552, 555, 558, 561, 564, 569, 574, 583, 588, 591, 596, 598, 601,
951 604, 613, 616, 618, 623, 626, 667, 708, 749, 790, 813, 847, 870, 904,
952 927, 961, 996,1031,1054,1090,1113,1149,1172,1208,1231,1267,1290,1327,
953 1350,1387,1410,1448,1471,1510,1533,1574,1577,1579,1581,1584,1587,1613,
954 1618,1621,1624,1627,1632,1637,1642,1647,1652,1657,1666,1675,1680,1683,
955 1686,1688,1690,1692,1715,1756,1779,1820,1823
956 };
957
958
959 static const unsigned short ag_sbe[] = {
960 19, 47, 75, 82, 99, 149, 151, 176, 178, 180, 208, 214, 223, 228,
961 248, 271, 294, 317, 326, 335, 344, 353, 379, 405, 424, 457, 490, 523,
962 550, 553, 556, 559, 562, 566, 571, 578, 585, 589, 593, 597, 599, 602,
963 610, 614, 617, 621, 624, 641, 682, 723, 764, 809, 828, 866, 885, 923,
964 942, 976,1011,1050,1069,1109,1128,1168,1187,1227,1246,1286,1305,1346,
965 1365,1406,1425,1467,1486,1529,1548,1575,1578,1580,1582,1585,1609,1615,
966 1619,1622,1625,1629,1634,1639,1644,1649,1654,1661,1670,1677,1681,1684,
967 1687,1689,1691,1711,1730,1775,1794,1821,1823
968 };
969
970
971 static const unsigned char ag_fl[] = {
972 2,2,1,5,1,3,1,3,1,3,3,1,3,3,3,3,1,3,3,1,3,3,1,3,1,1,4,4,4,4,6,3,2,2,2,
973 1,1,2,0,1,3,1,2,0,1,3,1,0,1,4,4,3,0,1,2,2,1,2,1,2,1,2,2,3,3,4,1,1,1,2,
974 1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
975 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,1,2,2,2,2,2,2,2,2,2,
976 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
977 };
978
979 static const unsigned char ag_ptt[] = {
980 0, 4, 5, 5, 7, 7, 10, 10, 12, 12, 12, 14, 14, 14, 14, 14, 17, 17,
981 17, 22, 22, 22, 25, 25, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 1,
982 41, 41, 42, 42, 1, 46, 46, 47, 47, 1, 87, 51, 51, 87, 87, 49, 56, 56,
983 49, 49, 53, 53, 55, 55, 52, 52, 88, 88, 88, 88, 61, 61, 58, 58, 59, 59,
984 38, 38, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40,
985 40, 40, 40, 40, 40, 40, 40, 40, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45,
986 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 50, 50, 62, 62, 63,
987 63, 70, 70, 71, 71, 9, 8, 11, 13, 15, 16, 18, 19, 20, 21, 23, 24, 26,
988 27, 29, 2, 3, 32, 31, 30, 33, 34, 35, 36, 37
989 };
990
991
992 static void ag_ra(void)
993 {
994 switch(ag_rpx[(PCB).ag_ap]) {
995 case 1: ag_rp_1(); break;
996 case 2: ag_rp_2(); break;
997 case 3: ag_rp_3(); break;
998 case 4: ag_rp_4(V(0,(void *)), V(2,(void *))); break;
999 case 5: ag_rp_5(V(0,(void *)), V(2,(void *))); break;
1000 case 6: ag_rp_6(); break;
1001 case 7: ag_rp_7(); break;
1002 case 8: ag_rp_8(); break;
1003 case 9: ag_rp_9(); break;
1004 case 10: ag_rp_10(); break;
1005 case 11: ag_rp_11(); break;
1006 case 12: ag_rp_12(V(0,(void *)), V(2,(void *))); break;
1007 case 13: ag_rp_13(V(0,(void *)), V(2,(void *))); break;
1008 case 14: ag_rp_14(); break;
1009 case 15: ag_rp_15(V(0,(double *))); break;
1010 case 16: ag_rp_16(V(0,(Locator *))); break;
1011 case 17: ag_rp_17(); break;
1012 case 18: ag_rp_18(); break;
1013 case 19: ag_rp_19(); break;
1014 case 20: ag_rp_20(); break;
1015 case 21: ag_rp_21(); break;
1016 case 22: ag_rp_22(); break;
1017 case 23: ag_rp_23(); break;
1018 case 24: V(0,(double *)) = ag_rp_24(V(0,(double *)), V(3,(int *))); break;
1019 case 25: V(0,(double *)) = ag_rp_25(V(0,(double *)), V(3,(int *))); break;
1020 case 26: V(0,(double *)) = ag_rp_26(V(0,(double *)), V(2,(double *))); break;
1021 case 27: V(0,(double *)) = ag_rp_27(V(1,(double *))); break;
1022 case 28: V(0,(double *)) = ag_rp_28(V(0,(int *))); break;
1023 case 29: V(0,(double *)) = ag_rp_29(V(0,(double *)), V(1,(int *))); break;
1024 case 30: V(0,(double *)) = ag_rp_30(V(0,(int *))); break;
1025 case 31: V(0,(double *)) = ag_rp_31(V(0,(int *)), V(1,(double *))); break;
1026 case 32: V(0,(int *)) = ag_rp_32(V(0,(int *))); break;
1027 case 33: V(0,(int *)) = ag_rp_33(V(0,(int *)), V(1,(int *))); break;
1028 case 34: V(0,(Locator *)) = ag_rp_34(V(0,(int *)), V(1,(int *))); break;
1029 case 35: V(0,(Locator *)) = ag_rp_35(V(1,(int *)), V(2,(int *))); break;
1030 case 36: V(0,(Locator *)) = ag_rp_36(V(0,(int *)), V(2,(int *))); break;
1031 case 37: V(0,(Locator *)) = ag_rp_37(V(1,(int *)), V(3,(int *))); break;
1032 case 38: V(0,(int *)) = ag_rp_38(V(0,(int *))); break;
1033 case 39: V(0,(int *)) = ag_rp_39(V(0,(int *))); break;
1034 case 40: V(0,(int *)) = ag_rp_40(V(0,(int *))); break;
1035 case 41: V(0,(int *)) = ag_rp_41(V(0,(int *)), V(1,(int *))); break;
1036 case 42: V(0,(int *)) = ag_rp_42(V(0,(int *))); break;
1037 case 43: V(0,(int *)) = ag_rp_43(V(0,(int *)), V(1,(int *))); break;
1038 }
1039 (PCB).la_ptr = (PCB).pointer;
1040 }
1041
1042 #define TOKEN_NAMES parseKernel_token_names
1043 const char *const parseKernel_token_names[97] = {
1044 "input string",
1045 "white space",
1046 "real",
1047 "cell name",
1048 "input string",
1049 "expression",
1050 "eof",
1051 "logical or expression",
1052 "'\\?'",
1053 "':'",
1054 "logical and expression",
1055 "'|'",
1056 "equality expression",
1057 "'&'",
1058 "relational expression",
1059 "\"==\"",
1060 "\"!=\"",
1061 "additive expression",
1062 "'<'",
1063 "\"<=\"",
1064 "'>'",
1065 "\">=\"",
1066 "multiplicative expression",
1067 "'+'",
1068 "'-'",
1069 "factor",
1070 "'*'",
1071 "'/'",
1072 "primary",
1073 "\"**\"",
1074 "\"abs\"",
1075 "'('",
1076 "')'",
1077 "\"sin\"",
1078 "\"asin\"",
1079 "\"atan\"",
1080 "','",
1081 "'!'",
1082 "",
1083 "\"/*\"",
1084 "",
1085 "",
1086 "",
1087 "\"*/\"",
1088 "\"//\"",
1089 "",
1090 "",
1091 "",
1092 "'\\n'",
1093 "simple real",
1094 "",
1095 "",
1096 "exponent",
1097 "integer part",
1098 "'.'",
1099 "fraction part",
1100 "",
1101 "digit",
1102 "column",
1103 "row",
1104 "'$'",
1105 "letter",
1106 "",
1107 "",
1108 "",
1109 "",
1110 "",
1111 "",
1112 "",
1113 "",
1114 "",
1115 "",
1116 "':'",
1117 "'\\?'",
1118 "'|'",
1119 "'&'",
1120 "\"==\"",
1121 "\"!=\"",
1122 "'<'",
1123 "\"<=\"",
1124 "'>'",
1125 "\">=\"",
1126 "'+'",
1127 "'-'",
1128 "'*'",
1129 "'/'",
1130 "\"**\"",
1131 "real",
1132 "cell name",
1133 "')'",
1134 "'('",
1135 "\"abs\"",
1136 "\"sin\"",
1137 "\"asin\"",
1138 "\"atan\"",
1139 "','",
1140 "'!'",
1141
1142 };
1143
1144 #ifndef MISSING_FORMAT
1145 #define MISSING_FORMAT "Missing %s"
1146 #endif
1147 #ifndef UNEXPECTED_FORMAT
1148 #define UNEXPECTED_FORMAT "Unexpected %s"
1149 #endif
1150 #ifndef UNNAMED_TOKEN
1151 #define UNNAMED_TOKEN "input"
1152 #endif
1153
1154
1155 static void ag_diagnose(void) {
1156 int ag_snd = (PCB).sn;
1157 int ag_k = ag_sbt[ag_snd];
1158
1159 if (*TOKEN_NAMES[ag_tstt[ag_k]] && ag_astt[ag_k + 1] == ag_action_8) {
1160 sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]);
1161 }
1162 else if (ag_astt[ag_sbe[(PCB).sn]] == ag_action_8
1163 && (ag_k = (int) ag_sbe[(PCB).sn] + 1) == (int) ag_sbt[(PCB).sn+1] - 1
1164 && *TOKEN_NAMES[ag_tstt[ag_k]]) {
1165 sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]);
1166 }
1167 else if ((PCB).token_number && *TOKEN_NAMES[(PCB).token_number]) {
1168 sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, TOKEN_NAMES[(PCB).token_number]);
1169 }
1170 else if (isprint(INPUT_CODE((*(PCB).pointer))) && INPUT_CODE((*(PCB).pointer)) != '\\') {
1171 char buf[20];
1172 sprintf(buf, "\'%c\'", (char) INPUT_CODE((*(PCB).pointer)));
1173 sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, buf);
1174 }
1175 else sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, UNNAMED_TOKEN);
1176 (PCB).error_message = (PCB).ag_msg;
1177
1178
1179 }
1180 static int ag_action_1_r_proc(void);
1181 static int ag_action_2_r_proc(void);
1182 static int ag_action_3_r_proc(void);
1183 static int ag_action_4_r_proc(void);
1184 static int ag_action_1_s_proc(void);
1185 static int ag_action_3_s_proc(void);
1186 static int ag_action_1_proc(void);
1187 static int ag_action_2_proc(void);
1188 static int ag_action_3_proc(void);
1189 static int ag_action_4_proc(void);
1190 static int ag_action_5_proc(void);
1191 static int ag_action_6_proc(void);
1192 static int ag_action_7_proc(void);
1193 static int ag_action_8_proc(void);
1194 static int ag_action_9_proc(void);
1195 static int ag_action_10_proc(void);
1196 static int ag_action_11_proc(void);
1197 static int ag_action_8_proc(void);
1198
1199
1200 static int (*const ag_r_procs_scan[])(void) = {
1201 ag_action_1_r_proc,
1202 ag_action_2_r_proc,
1203 ag_action_3_r_proc,
1204 ag_action_4_r_proc
1205 };
1206
1207 static int (*const ag_s_procs_scan[])(void) = {
1208 ag_action_1_s_proc,
1209 ag_action_2_r_proc,
1210 ag_action_3_s_proc,
1211 ag_action_4_r_proc
1212 };
1213
1214 static int (*const ag_gt_procs_scan[])(void) = {
1215 ag_action_1_proc,
1216 ag_action_2_proc,
1217 ag_action_3_proc,
1218 ag_action_4_proc,
1219 ag_action_5_proc,
1220 ag_action_6_proc,
1221 ag_action_7_proc,
1222 ag_action_8_proc,
1223 ag_action_9_proc,
1224 ag_action_10_proc,
1225 ag_action_11_proc,
1226 ag_action_8_proc
1227 };
1228
1229
1230 static int ag_action_10_proc(void) {
1231 int ag_t = (PCB).token_number;
1232 (PCB).btsx = 0, (PCB).drt = -1;
1233 do {
1234 ag_track();
1235 (PCB).token_number = (parseKernel_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));
1236 (PCB).la_ptr++;
1237 if (ag_key_index[(PCB).sn]) {
1238 unsigned ag_k = ag_key_index[(PCB).sn];
1239 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));
1240 if (ag_ch <= 255) {
1241 while (ag_key_ch[ag_k] < ag_ch) ag_k++;
1242 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);
1243 }
1244 }
1245 } while ((PCB).token_number == (parseKernel_token_type) ag_t);
1246 (PCB).la_ptr = (PCB).pointer;
1247 return 1;
1248 }
1249
1250 static int ag_action_11_proc(void) {
1251 int ag_t = (PCB).token_number;
1252
1253 (PCB).btsx = 0, (PCB).drt = -1;
1254 do {
1255 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;
1256 (PCB).ssx--;
1257 ag_track();
1258 ag_ra();
1259 if ((PCB).exit_flag != AG_RUNNING_CODE) return 0;
1260 (PCB).ssx++;
1261 (PCB).token_number = (parseKernel_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));
1262 (PCB).la_ptr++;
1263 if (ag_key_index[(PCB).sn]) {
1264 unsigned ag_k = ag_key_index[(PCB).sn];
1265 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));
1266 if (ag_ch <= 255) {
1267 while (ag_key_ch[ag_k] < ag_ch) ag_k++;
1268 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);
1269 }
1270 }
1271 }
1272 while ((PCB).token_number == (parseKernel_token_type) ag_t);
1273 (PCB).la_ptr = (PCB).pointer;
1274 return 1;
1275 }
1276
1277 static int ag_action_3_r_proc(void) {
1278 int ag_sd = ag_fl[(PCB).ag_ap] - 1;
1279 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
1280 (PCB).btsx = 0, (PCB).drt = -1;
1281 (PCB).reduction_token = (parseKernel_token_type) ag_ptt[(PCB).ag_ap];
1282 ag_ra();
1283 return (PCB).exit_flag == AG_RUNNING_CODE;
1284 }
1285
1286 static int ag_action_3_s_proc(void) {
1287 int ag_sd = ag_fl[(PCB).ag_ap] - 1;
1288 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
1289 (PCB).btsx = 0, (PCB).drt = -1;
1290 (PCB).reduction_token = (parseKernel_token_type) ag_ptt[(PCB).ag_ap];
1291 ag_ra();
1292 return (PCB).exit_flag == AG_RUNNING_CODE;
1293 }
1294
1295 static int ag_action_4_r_proc(void) {
1296 int ag_sd = ag_fl[(PCB).ag_ap] - 1;
1297 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
1298 (PCB).reduction_token = (parseKernel_token_type) ag_ptt[(PCB).ag_ap];
1299 return 1;
1300 }
1301
1302 static int ag_action_2_proc(void) {
1303 (PCB).btsx = 0, (PCB).drt = -1;
1304 if ((PCB).ssx >= 128) {
1305 (PCB).exit_flag = AG_STACK_ERROR_CODE;
1306 PARSER_STACK_OVERFLOW;
1307 }
1308 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;
1309 (PCB).ss[(PCB).ssx] = (PCB).sn;
1310 (PCB).ssx++;
1311 (PCB).sn = (PCB).ag_ap;
1312 ag_track();
1313 return 0;
1314 }
1315
1316 static int ag_action_9_proc(void) {
1317 if ((PCB).drt == -1) {
1318 (PCB).drt=(PCB).token_number;
1319 (PCB).dssx=(PCB).ssx;
1320 (PCB).dsn=(PCB).sn;
1321 }
1322 ag_prot();
1323 (PCB).vs[(PCB).ssx] = ag_null_value;
1324 (PCB).ss[(PCB).ssx] = (PCB).sn;
1325 (PCB).ssx++;
1326 (PCB).sn = (PCB).ag_ap;
1327 (PCB).la_ptr = (PCB).pointer;
1328 return (PCB).exit_flag == AG_RUNNING_CODE;
1329 }
1330
1331 static int ag_action_2_r_proc(void) {
1332 (PCB).ssx++;
1333 (PCB).sn = (PCB).ag_ap;
1334 return 0;
1335 }
1336
1337 static int ag_action_7_proc(void) {
1338 --(PCB).ssx;
1339 (PCB).la_ptr = (PCB).pointer;
1340 (PCB).exit_flag = AG_SUCCESS_CODE;
1341 return 0;
1342 }
1343
1344 static int ag_action_1_proc(void) {
1345 ag_track();
1346 (PCB).exit_flag = AG_SUCCESS_CODE;
1347 return 0;
1348 }
1349
1350 static int ag_action_1_r_proc(void) {
1351 (PCB).exit_flag = AG_SUCCESS_CODE;
1352 return 0;
1353 }
1354
1355 static int ag_action_1_s_proc(void) {
1356 (PCB).exit_flag = AG_SUCCESS_CODE;
1357 return 0;
1358 }
1359
1360 static int ag_action_4_proc(void) {
1361 int ag_sd = ag_fl[(PCB).ag_ap] - 1;
1362 (PCB).reduction_token = (parseKernel_token_type) ag_ptt[(PCB).ag_ap];
1363 (PCB).btsx = 0, (PCB).drt = -1;
1364 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;
1365 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
1366 else (PCB).ss[(PCB).ssx] = (PCB).sn;
1367 ag_track();
1368 while ((PCB).exit_flag == AG_RUNNING_CODE) {
1369 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
1370 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
1371 do {
1372 unsigned ag_tx = (ag_t1 + ag_t2)/2;
1373 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
1374 else ag_t2 = ag_tx;
1375 } while (ag_t1 < ag_t2);
1376 (PCB).ag_ap = ag_pstt[ag_t1];
1377 if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break;
1378 }
1379 return 0;
1380 }
1381
1382 static int ag_action_3_proc(void) {
1383 int ag_sd = ag_fl[(PCB).ag_ap] - 1;
1384 (PCB).btsx = 0, (PCB).drt = -1;
1385 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;
1386 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
1387 else (PCB).ss[(PCB).ssx] = (PCB).sn;
1388 ag_track();
1389 (PCB).reduction_token = (parseKernel_token_type) ag_ptt[(PCB).ag_ap];
1390 ag_ra();
1391 while ((PCB).exit_flag == AG_RUNNING_CODE) {
1392 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
1393 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
1394 do {
1395 unsigned ag_tx = (ag_t1 + ag_t2)/2;
1396 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
1397 else ag_t2 = ag_tx;
1398 } while (ag_t1 < ag_t2);
1399 (PCB).ag_ap = ag_pstt[ag_t1];
1400 if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break;
1401 }
1402 return 0;
1403 }
1404
1405 static int ag_action_8_proc(void) {
1406 ag_undo();
1407 (PCB).la_ptr = (PCB).pointer;
1408 (PCB).exit_flag = AG_SYNTAX_ERROR_CODE;
1409 ag_diagnose();
1410 SYNTAX_ERROR;
1411 {(PCB).la_ptr = (PCB).pointer + 1; ag_track();}
1412 return (PCB).exit_flag == AG_RUNNING_CODE;
1413 }
1414
1415 static int ag_action_5_proc(void) {
1416 int ag_sd = ag_fl[(PCB).ag_ap];
1417 (PCB).btsx = 0, (PCB).drt = -1;
1418 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
1419 else {
1420 (PCB).ss[(PCB).ssx] = (PCB).sn;
1421 }
1422 (PCB).la_ptr = (PCB).pointer;
1423 (PCB).reduction_token = (parseKernel_token_type) ag_ptt[(PCB).ag_ap];
1424 ag_ra();
1425 while ((PCB).exit_flag == AG_RUNNING_CODE) {
1426 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
1427 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
1428 do {
1429 unsigned ag_tx = (ag_t1 + ag_t2)/2;
1430 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
1431 else ag_t2 = ag_tx;
1432 } while (ag_t1 < ag_t2);
1433 (PCB).ag_ap = ag_pstt[ag_t1];
1434 if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break;
1435 }
1436 return (PCB).exit_flag == AG_RUNNING_CODE;
1437 }
1438
1439 static int ag_action_6_proc(void) {
1440 int ag_sd = ag_fl[(PCB).ag_ap];
1441 (PCB).reduction_token = (parseKernel_token_type) ag_ptt[(PCB).ag_ap];
1442 if ((PCB).drt == -1) {
1443 (PCB).drt=(PCB).token_number;
1444 (PCB).dssx=(PCB).ssx;
1445 (PCB).dsn=(PCB).sn;
1446 }
1447 if (ag_sd) {
1448 (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
1449 }
1450 else {
1451 ag_prot();
1452 (PCB).vs[(PCB).ssx] = ag_null_value;
1453 (PCB).ss[(PCB).ssx] = (PCB).sn;
1454 }
1455 (PCB).la_ptr = (PCB).pointer;
1456 while ((PCB).exit_flag == AG_RUNNING_CODE) {
1457 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
1458 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
1459 do {
1460 unsigned ag_tx = (ag_t1 + ag_t2)/2;
1461 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
1462 else ag_t2 = ag_tx;
1463 } while (ag_t1 < ag_t2);
1464 (PCB).ag_ap = ag_pstt[ag_t1];
1465 if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break;
1466 }
1467 return (PCB).exit_flag == AG_RUNNING_CODE;
1468 }
1469
1470
1471 void init_parseKernel(void) {
1472 (PCB).la_ptr = (PCB).pointer;
1473 (PCB).ss[0] = (PCB).sn = (PCB).ssx = 0;
1474 (PCB).exit_flag = AG_RUNNING_CODE;
1475 (PCB).line = FIRST_LINE;
1476 (PCB).column = FIRST_COLUMN;
1477 (PCB).btsx = 0, (PCB).drt = -1;
1478 }
1479
1480 void parseKernel(void) {
1481 init_parseKernel();
1482 (PCB).exit_flag = AG_RUNNING_CODE;
1483 while ((PCB).exit_flag == AG_RUNNING_CODE) {
1484 unsigned ag_t1 = ag_sbt[(PCB).sn];
1485 if (ag_tstt[ag_t1]) {
1486 unsigned ag_t2 = ag_sbe[(PCB).sn] - 1;
1487 (PCB).token_number = (parseKernel_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));
1488 (PCB).la_ptr++;
1489 if (ag_key_index[(PCB).sn]) {
1490 unsigned ag_k = ag_key_index[(PCB).sn];
1491 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));
1492 if (ag_ch <= 255) {
1493 while (ag_key_ch[ag_k] < ag_ch) ag_k++;
1494 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);
1495 }
1496 }
1497 do {
1498 unsigned ag_tx = (ag_t1 + ag_t2)/2;
1499 if (ag_tstt[ag_tx] > (unsigned char)(PCB).token_number)
1500 ag_t1 = ag_tx + 1;
1501 else ag_t2 = ag_tx;
1502 } while (ag_t1 < ag_t2);
1503 if (ag_tstt[ag_t1] != (unsigned char)(PCB).token_number)
1504 ag_t1 = ag_sbe[(PCB).sn];
1505 }
1506 (PCB).ag_ap = ag_pstt[ag_t1];
1507 (ag_gt_procs_scan[ag_astt[ag_t1]])();
1508 }
1509 }
1510
1511