Mercurial > ~dholland > hg > ag > index.cgi
diff tests/agcl/oldagsrc/good/pgg24b.cpp @ 0:13d2b8934445
Import AnaGram (near-)release tree into Mercurial.
| author | David A. Holland |
|---|---|
| date | Sat, 22 Dec 2007 17:52:45 -0500 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/agcl/oldagsrc/good/pgg24b.cpp Sat Dec 22 17:52:45 2007 -0500 @@ -0,0 +1,3357 @@ +/* + AnaGram Syntax Analyzer. + Copyright (c) Jerome T. Holland, 1989, 1990, 1991, 1992 + All Rights Reserved. +*/ + #include HEADERS + #include STDLIB + #include STDIO + #include STRING + #include DATA + #include TREES + #include STK + #include CTYPE + #include ASSERT + #include PGG + #include MYALLOC + #include UT + +/* + * AnaGram, A System for Syntax Directed Programming + * File generated by: ... + * + * AnaGram Parsing Engine + * Copyright 1993-2002 Parsifal Software. All Rights Reserved. + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * 3. This notice may not be removed or altered from any source distribution. + */ + +#ifndef PGG24B_H +#include "pgg24b.h" +#endif + +#ifndef PGG24B_H +#error Mismatched header file +#endif + +#include <ctype.h> +#include <stdio.h> + +#define RULE_CONTEXT (&((PCB).cs[(PCB).ssx])) +#define ERROR_CONTEXT ((PCB).cs[(PCB).error_frame_ssx]) +#define CONTEXT ((PCB).cs[(PCB).ssx]) + + +#define CHANGE_REDUCTION(x) pgg_change_reduction(pgg_##x##_token) +int pgg_change_reduction(pgg_token_type); + +#define TOKEN_NAMES pgg_token_names +const char *const pgg_token_names[244] = { + "syntax definition", + "", + "\"->\"", + "", + "", + "", + "", + "','", + "", + "", + "", + "\"...\"", + "", + "'='", + "", + "'!'", + "", + "'{'", + "", + "'['", + "", + "'('", + "", + "'-'", + "", + "'+'", + "", + "']'", + "", + "'}'", + "", + "')'", + "", + "single quote", + "", + "'~'", + "", + "'|'", + "syntax definition", + "", + "", + "", + "", + "statement", + "", + "", + "eof", + "production", + "", + "left hand side", + "right hand side", + "", + "", + "", + "definition", + "embedded c", + "configuration section", + "token name list", + "type definition", + "", + "name", + "'$'", + "", + "error", + "", + "vp rule spec", + "", + "", + "reduction procedure", + "vp rules", + "grammar rule", + "", + "rule element", + "parameter name", + "", + "c expression", + "';'", + "type name", + "", + "", + "", + "\"::\"", + "", + "", + "", + "", + "template field head", + "'>'", + "'<'", + "", + "", + "'*'", + "", + "", + "letter", + "", + "", + "\"enum\"", + "blank char", + "c comment", + "continuation", + "comment", + "", + "carriage return", + "", + "newline", + "", + "vertical space", + "\"//\"", + "", + "", + "", + "character", + "signed number", + "'^'", + "", + "quoted character", + "char const", + "", + "", + "", + "decimal number", + "'0'", + "octal number", + "\"0x\"", + "\"0X\"", + "", + "hex number", + "", + "", + "", + "hex digit", + "", + "token", + "mid rule action", + "", + "virtual production", + "", + "", + "'&'", + "", + "", + "escape sequence", + "octal escape", + "", + "hex escape", + "character range", + "\"..\"", + "enum definition", + "enum statement", + "keyword string", + "keyword string head", + "string", + "double quote", + "", + "", + "", + "string char", + "simple string char", + "\"\\\\a\"", + "\"\\\\b\"", + "\"\\\\f\"", + "\"\\\\n\"", + "\"\\\\r\"", + "\"\\\\t\"", + "\"\\\\v\"", + "\"\\\\\\\\\"", + "\"\\\\?\"", + "\"\\\\\\'\"", + "\"\\\\\\\"\"", + "", + "backslash", + "", + "\"\\\\x\"", + "any digit", + "nonoctal digit", + "':'", + "", + "", + "configuration parameters", + "configuration parameter list", + "", + "configuration parameter", + "attribute statement", + "keyword kluge", + "\"distinguish\"", + "\"left\"", + "token list", + "\"right\"", + "\"nonassoc\"", + "\"sticky\"", + "\"subgrammar\"", + "\"hidden\"", + "", + "", + "\"disregard\"", + "\"lexeme\"", + "\"reserve\"", + "\"keywords\"", + "\"rename\"", + "\"macro\"", + "macro name", + "", + "tokens", + "'\\?'", + "\"}...\"", + "\"]...\"", + "\"?...\"", + "\"}/...\"", + "\"]/...\"", + "embedded c head", + "", + "", + "", + "", + "c code first", + "", + "", + "c character constant", + "c string constant", + "", + "simple c char", + "", + "", + "", + "", + "\"\\\\\\n\"", + "", + "\"*/\"", + "\"/*\"", + "", + "c literal elem", + "", + "", + "", + "", + "", + "", + "", + "", + "", + "", + "", + "", + +}; + + +/* Line -, pgg24b.syn */ + int null_warning(int n) { + extern void warning_here(const char *,...); + if (n == 0) warning_here("Null character in keyword string"); + return n; + } +/* Line -, pgg24b.syn */ +pgg_pcb_type pgcb; +#define PCB pgcb + +#define PARSER_STACK_OVERFLOW parse_stack_overflow() +#define SYNTAX_ERROR log_syntax_error() +#define GET_CONTEXT CONTEXT.y = PCB.line, CONTEXT.x = PCB.column; + +#define REDUCTION_TOKEN_ERROR reduction_token_error() + +int save_case_sensitive; + +void reduction_token_error(void) { + assert(0); +} + +extern tsd *rename_macro_list; + +extern int parse_abort_flag; +void log_error_location(int, int); +void log_error(void); +void show_error(void); + +void parse_stack_overflow(void) { + int eline = PCB.line, ecol = PCB.column; + reset_stk(); + log_error_location(ecol,eline); + ass("Nesting too deep"); + log_error(); + sss("Syntax Analysis aborted"); + show_error(); + parse_abort_flag = 1; + PCB.exit_flag = AG_SEMANTIC_ERROR_CODE; +} + +extern string_dict *cast_dict; +extern int character_seen; +extern int enum_base; +extern unsigned char *input_base; +extern int nest_comments; +extern int precedence_level; +extern int syntax_error_flag; +extern int case_sensitive; +extern int n_statements; + + void log_error_location(int,int); + void log_error_here(void); + void log_error(void); + + //node make_or_node(node,node); + //node make_and_node(node,node); + //node make_minus_node(node,node); + //node make_tilde_node(node); + //node ss1(int); + //node ss2(void); + CharSetExpression *ss2(void); + //node ss3(void); + + void acs(int); + void aws(int); + void atkn(unsigned); + void copyoff(void); + void copyon(void); + //void definition_1(node); + void definition_1(CharSetExpression *); + void definition_2(int); + void definition_3(int); + //int form_element_1(node); + int form_element_1(CharSetExpression *); + int form_spec_2(int, int); + int form1(void); + int form2(void); + void gp2(void); + void gp3(void); + void gp4(int); + void gp5(int); + int head_list_1(int); + int head_list_2(int); +static int head_list_3(int); + void ics(void); + //int identify_node(node); + int identify_node(CharSetExpression *); + //void init_reserve(int); + void iws(void); + int mid_line(int); + int new_cast_spec_1(void); + int new_cast_spec_2(void); + //void new_reserve(void); + int null_warning(int); +/* void pf2(int, int, int); */ + void pf2x(int, int); + int pr3(int); + int pr4(int); + int proc_spec_4(int); + int proc_spec_5(void); + void production(int); + void range(int, int); + void scs(int); +static void set_prec(int,int); +/* + void suppress(void); + void suppress_all(void); + void suppress_except(void); + void suppress_initial(void); +*/ + void sws(int); + void tp4(int); + int vp_form3(int); + int vp_s(void); + int vp_1(void); + int vp_2(void); + int vp_3(void); + int vp_4(void); + int vp_5(int); + int vp_6(int); + int vp_7(int); + int vp_8(int); + int vp_8a(int); + int vp_9(void); + int vp_10(void); + +/* +static int reserve(int pt) { + int key = map_token_number[vp_s()].key; + map_key_word[key].reserve = pt; + return pt; +} +*/ + +/* +static void anomalous(void) { + map_token_number[vp_s()].anomalous = 1; +} +*/ + +int *disregard_list = NULL; +int n_disregard_list = 0; + +static void disregard(int tn) { + iws(); + if (n_disregard_list) { + int *p = disregard_list; + while (n_disregard_list--) aws(*p++); + free(disregard_list); + } + xws(tn); + disregard_list = build_list(); + n_disregard_list = fis(); +} + +extern tsd *syntax_errors; + +static void log_syntax_error(void) { + int eline = PCB.line, ecol = PCB.column; + int flag = PCB.error_frame_token == pgg_c_comment_token || + PCB.error_frame_token == pgg_embedded_c_token; + + reset_stk(); + if (flag && PCB.token_number == pgg_eof_token) { + eline = ERROR_CONTEXT.y; + ecol = ERROR_CONTEXT.x; + } + log_error_location(ecol,eline); + apprintf("%s in %s", + PCB.error_message,pgg_token_names[PCB.error_frame_token]); + log_error(); + syntax_error_flag++; + if (syntax_errors->nt < 50) return; + sss("Too many syntax errors, parse aborted"); + log_error(); + PCB.exit_flag = AG_SYNTAX_ERROR_CODE; +} + +static int head_list_3(int type) { + int i, n = tis(); + for (i = 0; i < n; i ++) { + int tn = list_base[i]; + token_number_map *tp = &map_token_number[tn]; + int ptt = tp->value_type; + if (ptt && ptt != type) { + log_error_here(); + apprintf("Type Redefinition of T%03d: ", tn); + atkn(tn); + log_error(); + } + tp->value_type = type; + if (ptt == 0 && tp->rp_arg && type == void_token_type) { + log_error_here(); + apprintf("Void token, %s, used as parameter", + dict_str(tkn_dict,tp->token_name)); + log_error(); + } + } + return type; +} + +static void set_prec(int left, int right){ + int n = tis(); + precedence_level++; + while (n--) { + int k = list_base[n]; + token_number_map *tp = &map_token_number[k]; + tp->left_associative = left; + tp->right_associative = right; + tp->precedence_level = precedence_level; + } + rws(); +} + +static void set_sticky(void){ + int n = tis(); + while (n--) { + int k = list_base[n]; + token_number_map *tp = &map_token_number[k]; + tp->sticky = 1; + } + rws(); +} + +static void set_subgrammar(void){ + int n = tis(); + while (n--) { + int k = list_base[n]; + token_number_map *tp = &map_token_number[k]; + tp->subgrammar = 1; + } + rws(); +} + +void set_hidden(void) { + int *lb = list_base; + int n = tis(); + while (n--) map_token_number[*lb++].fine_structure = 1; + rws(); +} + +void set_lexeme(void) { + int n = tis(); + while (n--) { + token_number_map *tp = &map_token_number[list_base[n]]; +/* tp->lexeme = tp->subgrammar = 1; */ + tp->lexeme = 1; + } + rws(); +} + +void set_reserved_words(void) { + int n = tis(); + while (n--) { + token_number_map *tp = &map_token_number[list_base[n]]; + tp->reserved_word = 1; + } + rws(); +} + +void parse(void) { + pgcb.pointer = input_base; + pgg(); +} + +#ifndef CONVERT_CASE +#define CONVERT_CASE(c) (c) +#endif +#ifndef TAB_SPACING +#define TAB_SPACING 8 +#endif + +static void ag_rp_1(void) { +/* Line -, pgg24b.syn */ + n_statements++; +} + +static void ag_rp_2(void) { +/* Line -, pgg24b.syn */ + n_statements++; +} + +static void ag_rp_3(int t) { +/* Line -, pgg24b.syn */ + production(t); +} + +static void ag_rp_4(void) { +/* Line -, pgg24b.syn */ + n_statements++; +} + +static void ag_rp_5(int t) { +/* Line -, pgg24b.syn */ + production(t); +} + +static void ag_rp_6(void) { +/* Line -, pgg24b.syn */ + n_statements++; +} + +static int ag_rp_7(int type) { +/* Line -, pgg24b.syn */ + return iws(),type; +} + +static int ag_rp_8(int type) { +/* Line -, pgg24b.syn */ + return concat_list(),type; +} + +static int ag_rp_9(void) { +/* Line -, pgg24b.syn */ + return n_statements++, 0; +} + +static int ag_rp_10(int d) { +/* Line -, pgg24b.syn */ + return n_statements++, head_list_3(d); +} + +static void ag_rp_11(int x) { +/* Line -, pgg24b.syn */ + sws(head_list_2(x)); +} + +static void ag_rp_12(int x) { +/* Line -, pgg24b.syn */ + aws(head_list_2(x)); +} + +static int ag_rp_13(void) { +/* Line -, pgg24b.syn */ + return 0; +} + +static int ag_rp_14(void) { +/* Line -, pgg24b.syn */ + return 1; +} + +static int ag_rp_15(void) { +/* Line -, pgg24b.syn */ + return ids(cast_dict),fis(); +} + +static void ag_rp_16(int n) { +/* Line -, pgg24b.syn */ + sws(n); +} + +static void ag_rp_17(int n) { +/* Line -, pgg24b.syn */ + aws(n); +} + +static void ag_rp_18(int pn) { +/* Line -, pgg24b.syn */ + sws((iws(),vp_form3(pn))); +} + +static int ag_rp_19(int s) { +/* Line -, pgg24b.syn */ + return vp_form3(s); +} + +static void ag_rp_20(int n) { +/* Line -, pgg24b.syn */ + sws(form_spec_2(form1(),n)); +} + +static void ag_rp_21(int n) { +/* Line -, pgg24b.syn */ + sws(n); +} + +static void ag_rp_22(int n) { +/* Line -, pgg24b.syn */ + aws(n); +} + +static int ag_rp_23(int s) { +/* Line -, pgg24b.syn */ + return form_spec_2(form2(),s); +} + +static void ag_rp_24(int e, int p) { +/* Line -, pgg24b.syn */ + iws(),pf2x(e,p); +} + +static void ag_rp_25(int e, int p) { +/* Line -, pgg24b.syn */ + pf2x(e,p); +} + +static int ag_rp_26(void) { +/* Line -, pgg24b.syn */ + return 0; +} + +static int ag_rp_27(void) { +/* Line -, pgg24b.syn */ + return proc_spec_4(0); +} + +static int ag_rp_28(void) { +/* Line -, pgg24b.syn */ + return proc_spec_4(1); +} + +static void ag_rp_29(void) { +/* Line -, pgg24b.syn */ + concat_string(); +} + +static void ag_rp_30(void) { +/* Line -, pgg24b.syn */ + sss("::"); +} + +static void ag_rp_31(void) { +/* Line -, pgg24b.syn */ + concat_string(); +} + +static void ag_rp_32(void) { +/* Line -, pgg24b.syn */ + ass("::"); +} + +static void ag_rp_33(void) { +/* Line -, pgg24b.syn */ + concat_string(); +} + +static void ag_rp_34(void) { +/* Line -, pgg24b.syn */ + concat_string(); +} + +static void ag_rp_35(void) { +/* Line -, pgg24b.syn */ + acs('>'), concat_string(); +} + +static void ag_rp_36(void) { +/* Line -, pgg24b.syn */ + acs('<'); +} + +static void ag_rp_37(void) { +/* Line -, pgg24b.syn */ + acs(','), concat_string(); +} + +static void ag_rp_38(void) { +/* Line -, pgg24b.syn */ + scs('('); +} + +static void ag_rp_39(void) { +/* Line -, pgg24b.syn */ + concat_string(), acs(')'); +} + +static void ag_rp_40(void) { +/* Line -, pgg24b.syn */ + sss(" *"); +} + +static void ag_rp_41(void) { +/* Line -, pgg24b.syn */ + concat_string(); +} + +static void ag_rp_42(void) { +/* Line -, pgg24b.syn */ + concat_string(); +} + +static void ag_rp_43(int c) { +/* Line -, pgg24b.syn */ + scs(c); +} + +static void ag_rp_44(int c) { +/* Line -, pgg24b.syn */ + acs(c); +} + +static void ag_rp_45(int c) { +/* Line -, pgg24b.syn */ + acs(' '), acs(c); +} + +static void ag_rp_46(int c) { +/* Line -, pgg24b.syn */ + sss("enum "), acs(c); +} + +static void ag_rp_47(int c) { +/* Line -, pgg24b.syn */ + acs(c); +} + +static void ag_rp_48(int c) { +/* Line -, pgg24b.syn */ + acs(' '), acs(c); +} + +static int ag_rp_49(int x) { +/* Line -, pgg24b.syn */ + return x & 0x1f; +} + +static int ag_rp_50(int c) { +/* Line -, pgg24b.syn */ + return (character_seen=1),c; +} + +static int ag_rp_51(int s, int n) { +/* Line -, pgg24b.syn */ + return s*n; +} + +static int ag_rp_52(void) { +/* Line -, pgg24b.syn */ + return 1; +} + +static int ag_rp_53(void) { +/* Line -, pgg24b.syn */ + return -1; +} + +static int ag_rp_54(int n) { +/* Line -, pgg24b.syn */ + return n; +} + +static int ag_rp_55(int n) { +/* Line -, pgg24b.syn */ + return n; +} + +static int ag_rp_56(int d) { +/* Line -, pgg24b.syn */ + return d - '0'; +} + +static int ag_rp_57(int n, int d) { +/* Line -, pgg24b.syn */ + return 10*n + d - '0'; +} + +static int ag_rp_58(void) { +/* Line -, pgg24b.syn */ + return 0; +} + +static int ag_rp_59(int n, int d) { +/* Line -, pgg24b.syn */ + return 8*n + d - '0'; +} + +static int ag_rp_60(int d) { +/* Line -, pgg24b.syn */ + return d; +} + +static int ag_rp_61(int n, int d) { +/* Line -, pgg24b.syn */ + return 16*n + d; +} + +static int ag_rp_62(int d) { +/* Line -, pgg24b.syn */ + return d-'0'; +} + +static int ag_rp_63(int d) { +/* Line -, pgg24b.syn */ + return (d&7)+9; +} + +static int ag_rp_64(int p) { +/* Line -, pgg24b.syn */ + return vp_8a(p); +} + +static int ag_rp_65(CharSetExpression * n) { +/* Line -, pgg24b.syn */ + return form_element_1(n); +} + +static CharSetExpression * ag_rp_66(CharSetExpression * u, CharSetExpression * i) { +/* Line -, pgg24b.syn */ + return new CharSetUnion(u,i); +} + +static CharSetExpression * ag_rp_67(CharSetExpression * u, CharSetExpression * i) { +/* Line -, pgg24b.syn */ + return new CharSetDifference(u,i); +} + +static CharSetExpression * ag_rp_68(CharSetExpression * i, CharSetExpression * n) { +/* Line -, pgg24b.syn */ + return new CharSetIntersection(i,n); +} + +static CharSetExpression * ag_rp_69(CharSetExpression * n) { +/* Line -, pgg24b.syn */ + return new CharSetComplement(n); +} + +static int ag_rp_70(int c) { +/* Line -, pgg24b.syn */ + return case_sensitive ? (c) : toupper(c); +} + +static CharSetExpression * ag_rp_71(int c) { +/* Line -, pgg24b.syn */ + return new IndividualCode(c); +} + +static CharSetExpression * ag_rp_72(int c) { +/* Line -, pgg24b.syn */ + return new IndividualChar(c); +} + +static CharSetExpression * ag_rp_73(void) { +/* Line -, pgg24b.syn */ + return ss2(); +} + +static CharSetExpression * ag_rp_74(CharSetExpression * x) { +/* Line -, pgg24b.syn */ + return x; +} + +static CharSetExpression * ag_rp_75(int l, int r) { +/* Line -, pgg24b.syn */ + return (character_seen=1),new CharRange(l,r); +} + +static CharSetExpression * ag_rp_76(int l, int r) { +/* Line -, pgg24b.syn */ + return new CodeRange(l,r); +} + +static void ag_rp_77(CharSetExpression * n) { +/* Line -, pgg24b.syn */ + definition_1(n); +} + +static void ag_rp_78(int p) { +/* Line -, pgg24b.syn */ + definition_2(p); +} + +static void ag_rp_79(int p) { +/* Line -, pgg24b.syn */ + definition_2(vp_8a(p)); +} + +static void ag_rp_80(void) { +/* Line -, pgg24b.syn */ + definition_3(enum_base++); +} + +static void ag_rp_81(int n) { +/* Line -, pgg24b.syn */ + definition_3(enum_base = n), enum_base++; +} + +static void ag_rp_82(int n) { +/* Line -, pgg24b.syn */ + definition_3(enum_base = n), enum_base++; +} + +static void ag_rp_83(void) { +/* Line -, pgg24b.syn */ + ics(); +} + +static int ag_rp_84(int n) { +/* Line -, pgg24b.syn */ + return null_warning(n); +} + +static int ag_rp_85(void) { +/* Line -, pgg24b.syn */ + return '\a'; +} + +static int ag_rp_86(void) { +/* Line -, pgg24b.syn */ + return '\b'; +} + +static int ag_rp_87(void) { +/* Line -, pgg24b.syn */ + return '\f'; +} + +static int ag_rp_88(void) { +/* Line -, pgg24b.syn */ + return '\n'; +} + +static int ag_rp_89(void) { +/* Line -, pgg24b.syn */ + return '\r'; +} + +static int ag_rp_90(void) { +/* Line -, pgg24b.syn */ + return '\t'; +} + +static int ag_rp_91(void) { +/* Line -, pgg24b.syn */ + return '\v'; +} + +static int ag_rp_92(void) { +/* Line -, pgg24b.syn */ + return '\\'; +} + +static int ag_rp_93(void) { +/* Line -, pgg24b.syn */ + return '\?'; +} + +static int ag_rp_94(void) { +/* Line -, pgg24b.syn */ + return '\''; +} + +static int ag_rp_95(void) { +/* Line -, pgg24b.syn */ + return '"'; +} + +static int ag_rp_96(int n) { +/* Line -, pgg24b.syn */ + return n&7; +} + +static int ag_rp_97(int n, int d) { +/* Line -, pgg24b.syn */ + return n*8 + (d&7); +} + +static int ag_rp_98(int n, int d) { +/* Line -, pgg24b.syn */ + return n*8 + (d&7); +} + +static int ag_rp_99(int x) { +/* Line -, pgg24b.syn */ + return x; +} + +static void ag_rp_100(int c) { +/* Line -, pgg24b.syn */ + acs(c); +} + +static void ag_rp_101(int c) { +/* Line -, pgg24b.syn */ + acs(c); +} + +static void ag_rp_102(int c) { +/* Line -, pgg24b.syn */ + acs(c); +} + +static void ag_rp_103(int c) { +/* Line -, pgg24b.syn */ + acs(c); +} + +static void ag_rp_104(int c) { +/* Line -, pgg24b.syn */ + acs(c); +} + +static void ag_rp_105(int c) { +/* Line -, pgg24b.syn */ + acs(null_warning(c)); +} + +static void ag_rp_106(int c) { +/* Line -, pgg24b.syn */ + acs(null_warning(c)); +} + +static void ag_rp_107(int c) { +/* Line -, pgg24b.syn */ + acs(null_warning(c)); +} + +static void ag_rp_108(int c) { +/* Line -, pgg24b.syn */ + acs(null_warning(c)); +} + +static int ag_rp_109(void) { +/* Line -, pgg24b.syn */ + return 0; +} + +static int ag_rp_110(void) { +/* Line -, pgg24b.syn */ + return ids(cvar_dict),fis(); +} + +static void ag_rp_111(int c) { +/* Line -, pgg24b.syn */ + scs(c); +} + +static void ag_rp_112(int c) { +/* Line -, pgg24b.syn */ + acs(c); +} + +static void ag_rp_113(void) { +/* Line -, pgg24b.syn */ + gp4(1); +} + +static void ag_rp_114(void) { +/* Line -, pgg24b.syn */ + gp4(0); +} + +static void ag_rp_115(void) { +/* Line -, pgg24b.syn */ + gp2(); +} + +static void ag_rp_116(void) { +/* Line -, pgg24b.syn */ + gp3(); +} + +static void ag_rp_117(void) { +/* Line -, pgg24b.syn */ + gp3(); +} + +static void ag_rp_118(int n) { +/* Line -, pgg24b.syn */ + gp5(n); +} + +static void ag_rp_119(void) { +/* Line -, pgg24b.syn */ + concat_string(), gp4(1); +} + +static void ag_rp_120(void) { +/* Line -, pgg24b.syn */ + sss("distinguish_"); +} + +static void ag_rp_121(void) { +/* Line -, pgg24b.syn */ + set_prec(1,0); +} + +static void ag_rp_122(void) { +/* Line -, pgg24b.syn */ + set_prec(0,1); +} + +static void ag_rp_123(void) { +/* Line -, pgg24b.syn */ + set_prec(0,0); +} + +static void ag_rp_124(void) { +/* Line -, pgg24b.syn */ + set_sticky(); +} + +static void ag_rp_125(void) { +/* Line -, pgg24b.syn */ + set_subgrammar(); +} + +static void ag_rp_126(void) { +/* Line -, pgg24b.syn */ + set_hidden(); +} + +static void ag_rp_127(int t) { +/* Line -, pgg24b.syn */ + disregard(t); +} + +static void ag_rp_128(void) { +/* Line -, pgg24b.syn */ + set_lexeme(); +} + +static void ag_rp_129(void) { +/* Line -, pgg24b.syn */ + set_reserved_words(); +} + +static void ag_rp_130(int oldName, int newName) { +/* Line -, pgg24b.syn */ + at(rename_macro_list,oldName,newName); +} + +static int ag_rp_131(void) { +/* Line -, pgg24b.syn */ + return (PCB).pointer-input_base-1; +} + +static void ag_rp_132(CharSetExpression * n) { +/* Line -, pgg24b.syn */ + distinguishSets.push(identify_node(n)); +} + +static void ag_rp_133(CharSetExpression * n) { +/* Line -, pgg24b.syn */ + distinguishSets.push(identify_node(n)); +} + +static void ag_rp_134(int t) { +/* Line -, pgg24b.syn */ + sws(t); +} + +static void ag_rp_135(int t) { +/* Line -, pgg24b.syn */ + aws(t); +} + +static int ag_rp_136(void) { +/* Line -, pgg24b.syn */ + return vp_s(); +} + +static int ag_rp_137(void) { +/* Line -, pgg24b.syn */ + return vp_5(vp_s()); +} + +static int ag_rp_138(void) { +/* Line -, pgg24b.syn */ + return vp_1(); +} + +static int ag_rp_139(void) { +/* Line -, pgg24b.syn */ + return vp_2(); +} + +static int ag_rp_140(void) { +/* Line -, pgg24b.syn */ + return vp_3(); +} + +static int ag_rp_141(void) { +/* Line -, pgg24b.syn */ + return vp_4(); +} + +static int ag_rp_142(CharSetExpression * n) { +/* Line -, pgg24b.syn */ + return vp_5(form_element_1(n)); +} + +static int ag_rp_143(CharSetExpression * n) { +/* Line -, pgg24b.syn */ + return vp_6(form_element_1(n)); +} + +static int ag_rp_144(CharSetExpression * n) { +/* Line -, pgg24b.syn */ + return vp_7(form_element_1(n)); +} + +static int ag_rp_145(void) { +/* Line -, pgg24b.syn */ + return vp_9(); +} + +static int ag_rp_146(void) { +/* Line -, pgg24b.syn */ + return vp_10(); +} + +static int ag_rp_147(void) { +/* Line -, pgg24b.syn */ + return mid_line(proc_spec_4(0)); +} + +static int ag_rp_148(void) { +/* Line -, pgg24b.syn */ + return mid_line(proc_spec_4(1)); +} + +static void ag_rp_149(void) { +/* Line -, pgg24b.syn */ + copyon(); +} + +static void ag_rp_150(void) { +/* Line -, pgg24b.syn */ + copyoff(); +} + +static void ag_rp_151(void) { +/* Line -, pgg24b.syn */ + copyoff(); +} + +static void ag_rp_152(void) { +/* Line -, pgg24b.syn */ + copyon(); +} + +static void ag_rp_153(void) { +/* Line -, pgg24b.syn */ + copyoff(); +} + +static void ag_rp_154(void) { +/* Line -, pgg24b.syn */ +if (nest_comments) PCB.reduction_token = pgg_c_comment_head_token; +} + + +#define READ_COUNTS +#define WRITE_COUNTS +#undef V +#define V(i,t) (*t (&(PCB).vs[(PCB).ssx + i])) +#undef VS +#define VS(i) (PCB).vs[(PCB).ssx + i] + +#ifndef GET_CONTEXT +#define GET_CONTEXT CONTEXT = (PCB).input_context +#endif + +typedef enum { + ag_action_1, + ag_action_2, + ag_action_3, + ag_action_4, + ag_action_5, + ag_action_6, + ag_action_7, + ag_action_8, + ag_action_9, + ag_action_10, + ag_action_11, + ag_action_12 +} ag_parser_action; + + +#ifndef NULL_VALUE_INITIALIZER +#define NULL_VALUE_INITIALIZER = { 0 } +#endif + +static pgg_vs_type const ag_null_value NULL_VALUE_INITIALIZER; + +static const unsigned char ag_rpx[] = { + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 4, 5, 6, + 7, 0, 8, 0, 0, 0, 0, 0, 0, 0, 9, 10, 11, 12, 13, 14, 15, 0, + 16, 0, 17, 18, 0, 0, 0, 19, 20, 21, 0, 22, 23, 24, 25, 0, 26, 27, + 28, 0, 0, 0, 0, 29, 0, 30, 31, 32, 33, 0, 0, 34, 35, 36, 37, 38, + 39, 40, 0, 41, 0, 42, 43, 44, 45, 46, 47, 48, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 49, 50, 51, 0, 0, 52, 53, 0, 54, 0, 0, 55, 56, 57, 58, 59, 60, + 61, 62, 63, 0, 64, 65, 0, 0, 66, 67, 0, 68, 0, 69, 70, 0, 0, 0, + 0, 0, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 0, 0, 0, 0, + 0, 0, 83, 0, 0, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, + 97, 98, 0, 0, 99,100,101,102,103,104,105,106,107,108,109,110,111,112, + 0, 0, 0, 0, 0, 0, 0,113,114,115,116,117,118, 0,119,120,121,122, + 123,124,125,126, 0, 0,127,128,129,130,131, 0, 0, 0, 0, 0,132,133, + 0,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148, 0, 0, + 0, 0, 0, 0,149,150,151, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0,152,153, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,154 +}; + +static const unsigned char ag_key_itt[] = { + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0 +}; + +static const unsigned short ag_key_pt[] = { + 0, 11, 0,147,0 +}; + +static const unsigned char ag_key_ch[] = { + 0, 42, 47,255, 47,255, 42, 47,255, 46,255, 46,255, 42, 47,255, 88,120, + 255, 46, 47,255,114,116,255,115,255,105,255,102,120,255,101,255,110,115, + 255,101,105,255,116,117,255, 46, 47,255, 45, 46, 47, 48, 58, 63, 93,100, + 101,104,108,110,114,115,125,255, 47,255, 42, 47,255,114,116,255,115,255, + 105,255,102,120,255,101,255,110,115,255,101,105,255,116,117,255, 47,100, + 101,104,108,110,114,115,255, 42, 47,255, 88,120,255, 47, 48, 58,255, 42, + 47,255, 46, 47,255, 46, 47,255, 45, 46, 47, 58, 63, 93,125,255, 58,255, + 45, 47,255, 42, 47,255, 88,120,255, 47, 48, 58, 92,125,255, 47,255, 47, + 58,255,114,116,255,115,255,105,255,102,120,255,101,255,110,115,255,101, + 105,255,116,117,255, 47,100,101,104,108,110,114,115,255, 42, 47,255, 88, + 120,255, 47, 48, 58, 92,255, 88,120,255, 48,255, 42, 47,255, 45, 47,255, + 42, 47,255, 88,120,255, 47, 48,255, 88,120,255, 47, 48,255, 88,120,255, + 47, 48, 58, 92,125,255, 47, 58,255,114,116,255,115,255,105,255,102,120, + 255,101,255,110,115,255,101,105,255,116,117,255,100,101,104,108,110,114, + 115,255, 42, 47,255, 46, 47,255, 46, 47,255, 47, 93,125,255, 42, 47,255, + 47, 92,255, 92,255, 42, 47,255, 88,120,255, 47, 48,125,255, 34, 39, 63, + 92, 97, 98,102,110,114,116,118,120,255, 92,255, 88,120,255, 48,125,255, + 46, 47,255, 46, 47,255, 47, 93,125,255, 46,255, 46,255, 46, 47,255, 46, + 47,255, 46, 47, 63, 93,125,255, 46, 47,255, 46, 47,255, 46, 47, 63, 93, + 125,255, 46, 47, 63,255, 46, 47,255, 46, 47,255, 93,125,255, 46, 47,255, + 93,255, 46, 47,255,125,255,125,255, 46,255, 46,255, 42, 47,255, 46, 47, + 255, 46, 47,255, 46, 47, 63, 93,125,255, 47,107,255, 47,109,255, 88,120, + 255, 47, 48,255, 88,120,255, 48, 58,255, 47, 92,255, 42, 47,255, 46, 47, + 255, 46, 47,255, 46, 47, 63, 93,125,255 +}; + +static const unsigned char ag_key_act[] = { + 0,0,0,4,2,4,3,3,4,5,4,6,4,0,0,4,0,0,4,3,3,4,3,3,4,2,4,2,4,3,3,4,2,4,3, + 3,4,2,3,4,3,3,4,3,3,4,3,2,2,2,3,3,2,2,3,3,2,3,2,2,2,4,3,4,0,0,4,3,3,4, + 2,4,2,4,3,3,4,2,4,3,3,4,2,3,4,3,3,4,2,2,3,3,2,3,2,2,4,0,0,4,0,0,4,2,2, + 3,4,0,0,4,3,3,4,3,3,4,3,7,2,3,3,2,2,4,3,4,3,3,4,0,0,4,0,0,4,2,2,3,3,3, + 4,3,4,3,3,4,3,3,4,2,4,2,4,3,3,4,2,4,3,3,4,2,3,4,3,3,4,3,2,3,3,2,3,2,2, + 4,0,0,4,0,0,4,2,2,3,3,4,0,0,4,2,4,0,0,4,3,2,4,0,0,4,0,0,4,2,2,4,0,0,4, + 3,2,4,0,0,4,3,2,3,3,3,4,3,3,4,3,3,4,2,4,2,4,3,3,4,2,4,3,3,4,2,3,4,3,3, + 4,2,3,3,2,3,2,2,4,0,0,4,3,3,4,3,3,4,2,2,2,4,0,0,4,2,3,4,3,4,0,0,4,0,0, + 4,2,2,3,4,0,0,0,0,0,0,0,0,0,0,0,0,4,2,4,0,0,4,2,3,4,3,3,4,3,3,4,3,2,2, + 4,5,4,6,4,3,3,4,3,3,4,2,3,3,2,2,4,3,3,4,3,3,4,7,3,3,2,2,4,7,3,3,4,3,3, + 4,3,3,4,2,2,4,3,3,4,2,4,3,3,4,2,4,3,4,5,4,6,4,0,0,4,3,3,4,3,3,4,2,2,3, + 2,2,4,3,3,4,3,3,4,0,0,4,3,2,4,0,0,4,2,3,4,3,3,4,0,0,4,3,3,4,3,3,4,7,2, + 3,2,2,4 +}; + +static const unsigned char ag_key_parm[] = { + 0,229,108, 0, 0, 0,228,229, 0, 0, 0, 2, 0,229,108, 0,125,124, + 0,206,209, 0,195,185, 0, 0, 0, 0, 0,186,196, 0, 0, 0,199,197, + 0, 0,188, 0,190,191, 0,205,208, 0, 2, 0, 0, 0, 81,207, 0, 0, + 97,192, 0,189, 0, 0, 0, 0,108, 0,229,108, 0,195,185, 0, 0, 0, + 0, 0,186,196, 0, 0, 0,199,197, 0, 0,188, 0,190,191, 0, 0, 0, + 97,192, 0,189, 0, 0, 0,229,108, 0,125,124, 0, 0, 0, 81, 0,229, + 108, 0,206,209, 0,205,208, 0, 2, 0, 0, 81,207, 0, 0, 0, 81, 0, + 2,108, 0,229,108, 0,125,124, 0, 0, 0, 81,226,205, 0,229, 0,108, + 81, 0,195,185, 0, 0, 0, 0, 0,186,196, 0, 0, 0,199,197, 0, 0, + 188, 0,190,191, 0,108, 0, 97,192, 0,189, 0, 0, 0,229,108, 0,125, + 124, 0, 0, 0, 81,226, 0,125,124, 0, 0, 0,229,108, 0, 2, 0, 0, + 229,108, 0,125,124, 0, 0, 0, 0,125,124, 0,108, 0, 0,125,124, 0, + 229, 0, 81,226,205, 0,229, 81, 0,195,185, 0, 0, 0, 0, 0,186,196, + 0, 0, 0,199,197, 0, 0,188, 0,190,191, 0, 0, 97,192, 0,189, 0, + 0, 0,229,108, 0,206,209, 0,205,208, 0, 0, 0, 0, 0,229,108, 0, + 0,226, 0,226, 0,229,108, 0,125,124, 0, 0, 0,205, 0,169,168,167, + 166,159,160,161,162,163,164,165,173, 0, 0, 0,125,124, 0, 0,205, 0, + 206,209, 0,205,208, 0,108, 0, 0, 0, 0, 0, 2, 0,206,209, 0,205, + 208, 0, 0,108,207, 0, 0, 0,206,209, 0,205,208, 0, 0,108,207, 0, + 0, 0, 0,108,207, 0,206,209, 0,205,208, 0, 0, 0, 0,206,209, 0, + 0, 0,205,208, 0, 0, 0,205, 0, 0, 0, 2, 0,229,108, 0,206,209, + 0,205,208, 0, 0, 0,207, 0, 0, 0,229,198, 0,229,200, 0,125,124, + 0,229, 0, 0,125,124, 0, 0, 81, 0,229,226, 0,229,108, 0,206,209, + 0,205,208, 0, 0, 0,207, 0, 0, 0 +}; + +static const unsigned short ag_key_jmp[] = { + 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, + 0, 12, 15, 0, 19, 25, 0, 22, 0, 25, 0, 43, 45, 0, 29, 0, 57, 61, + 0, 34, 66, 0, 70, 75, 0, 84, 87, 0, 4, 11, 13, 16, 6, 8, 19, 27, + 33, 37, 32, 49, 37, 40, 43, 0, 91, 0, 0, 0, 0, 93, 99, 0, 67, 0, + 70, 0,117,119, 0, 74, 0,131,135, 0, 79,140, 0,144,149, 0, 64, 72, + 107,111, 77,123, 82, 85, 0, 0, 0, 0, 0, 0, 0, 97,100,158, 0, 0, + 0, 0,171,174, 0,178,181, 0,160,162,107,165,167,110,113, 0,185, 0, + 187,189, 0, 0, 0, 0, 0, 0, 0,129,132,191,193,195, 0,199, 0,201, + 203, 0,207,213, 0,146, 0,149, 0,231,233, 0,153, 0,245,249, 0,158, + 254, 0,258,263, 0,205,151,221,225,156,237,161,164, 0, 0, 0, 0, 0, + 0, 0,176,179,272,274, 0, 0, 0, 0,187, 0, 0, 0, 0,276,192, 0, + 0, 0, 0, 0, 0, 0,198,201, 0, 0, 0, 0,278,207, 0, 0, 0, 0, + 280,213,282,284,286, 0,290,292, 0,294,300, 0,225, 0,228, 0,318,320, + 0,232, 0,332,336, 0,237,341, 0,345,350, 0,230,308,312,235,324,240, + 243, 0, 0, 0, 0,359,362, 0,366,369, 0,254,257,260, 0, 0, 0, 0, + 267,373, 0,375, 0, 0, 0, 0, 0, 0, 0,275,278,377, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,285, 0, 0, 0, 0,300,381, 0, + 387,390, 0,394,397, 0,385,306,309, 0, 0, 0,316, 0,407,410, 0,414, + 417, 0,318,401,403,320,323, 0,430,433, 0,437,440, 0,421,424,426,332, + 335, 0,444,447,449, 0,453,456, 0,460,463, 0,348,351, 0,467,470, 0, + 357, 0,474,477, 0,362, 0,481, 0, 0, 0,369, 0, 0, 0, 0,489,492, + 0,496,499, 0,371,373,485,376,379, 0,503,505, 0,513,515, 0, 0, 0, + 0,520,394, 0, 0, 0, 0,400,522, 0,524,526, 0, 0, 0, 0,535,538, + 0,542,545, 0,528,409,531,412,415, 0 +}; + +static const unsigned short ag_key_index[] = { + 4, 6, 46, 62, 0, 0, 0, 88, 0, 0, 0, 0, 0,103, 4,116, 0,124, + 88, 4,126, 0,126,126, 62, 62, 0, 0, 0, 0, 0,135, 0, 4,116,141, + 143, 0,167, 0, 0, 0, 0, 0, 0, 4, 0,182,190,195,126,126,204, 0, + 204,210, 4,195, 62, 62,216,141,141, 0,222,124, 62, 4,246,263, 0, 0, + 0, 0, 0, 4,263,270,273,204,281,298,190,303,312,204,204,190, 0,298, + 204,190,326,190,338,344,338,190,312, 62,273, 62,204,190, 62,216, 0,141, + 4, 62, 0, 62, 0,141,141,141,141,141, 62, 62,141,141,141,141,141,141, + 4, 0,141, 0, 62, 62, 0, 0, 0, 4,273, 0, 0, 0,298,298,298,298, + 298,354,360,365,367,367,263, 0,382,382,382,382, 0, 0,204,204,263,263, + 263,190,190,312, 4, 0, 0, 0,222, 4,388,391,388,141,397, 0, 0,190, + 0, 4, 0,141,403, 88, 0, 4, 0, 0,406,263,298,263,263,263,190,263, + 263,382,382,298,418,418,190,190,338,338, 0,263,141,141,141,190, 62, 62, + 0, 0, 0,263,141,141, 62,190,190,141,190,298, 62,141, 0, 62 +}; + +static const unsigned char ag_key_ends[] = { +47,0, 42,0, 62,0, 58,0, 46,46,46,0, 46,46,0, 46,46,46,0, +101,103,97,114,100,0, 105,110,103,117,105,115,104,0, 110,117,109,0, +105,100,100,101,110,0, 116,0, 101,109,101,0, +111,110,97,115,115,111,99,0, 97,109,101,0, 101,114,118,101,0, +103,104,116,0, 105,99,107,121,0, 98,103,114,97,109,109,97,114,0, +46,46,0, 46,46,46,0, 47,0, 101,103,97,114,100,0, +105,110,103,117,105,115,104,0, 110,117,109,0, 105,100,100,101,110,0, +116,0, 101,109,101,0, 111,110,97,115,115,111,99,0, 97,109,101,0, +101,114,118,101,0, 103,104,116,0, 105,99,107,121,0, +98,103,114,97,109,109,97,114,0, 58,0, 62,0, 46,46,0, 58,0, +46,46,46,0, 46,46,0, 46,46,46,0, 46,46,0, 46,46,46,0, 58,0, +62,0, 47,0, 58,0, 10,0, 46,46,46,0, 42,0, 47,0, 58,0, 47,0, +101,103,97,114,100,0, 105,110,103,117,105,115,104,0, 110,117,109,0, +105,100,100,101,110,0, 116,0, 101,109,101,0, +111,110,97,115,115,111,99,0, 97,109,101,0, 101,114,118,101,0, +103,104,116,0, 105,99,107,121,0, 98,103,114,97,109,109,97,114,0, +58,0, 10,0, 62,0, 47,0, 42,0, 58,0, 10,0, 46,46,46,0, 42,0, +58,0, 101,103,97,114,100,0, 105,110,103,117,105,115,104,0, +110,117,109,0, 105,100,100,101,110,0, 116,0, 101,109,101,0, +111,110,97,115,115,111,99,0, 97,109,101,0, 101,114,118,101,0, +103,104,116,0, 105,99,107,121,0, 98,103,114,97,109,109,97,114,0, +46,46,0, 46,46,46,0, 46,46,0, 46,46,46,0, 10,0, 10,0, +46,46,46,0, 46,46,46,0, 47,0, 46,46,0, 46,46,46,0, 46,46,0, +46,46,46,0, 47,0, 46,46,46,0, 46,46,0, 46,46,46,0, 46,46,0, +46,46,46,0, 46,46,0, 47,0, 46,46,46,0, 46,46,0, 46,46,46,0, +46,46,0, 46,46,46,0, 46,46,0, 47,0, 46,46,46,0, 46,46,0, +46,46,46,0, 46,46,0, 46,46,46,0, 46,46,0, 46,46,46,0, 46,46,0, +46,46,46,0, 46,46,46,0, 46,46,46,0, 46,46,0, 46,46,46,0, +46,46,0, 46,46,46,0, 42,0, 101,121,119,111,114,100,115,0, 42,0, +97,99,114,111,0, 42,0, 58,0, 42,0, 10,0, 46,46,0, 46,46,46,0, +46,46,0, 46,46,46,0, 46,46,0, 46,46,46,0, +}; + +#define AG_TCV(x) ag_tcv[(x)] + +static const unsigned char ag_tcv[] = { + 46,242,242,242,242,242,242,242,242, 98,105,107,107,103,242,242,242,242, + 242,242,242,242,242,242,242,242, 46,242,242,242,242,242, 98, 15,153,243, + 61,243,139, 33, 21, 31, 91, 25, 7, 23,243,243,122,240,240,240,240,240, + 240,240,241,241,176, 76, 88, 13, 87,204,243,132,132,132,132,132,132,239, + 239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239, + 239, 19,171, 27,114,239,243,132,132,132,132,132,132,239,239,239,239,239, + 239,239,239,239,239,239,239,239,239,239,239,239,239,239,239, 17, 37, 29, + 35,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, + 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, + 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, + 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, + 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, + 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, + 242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242, + 242,242,242,242 +}; + +#ifndef SYNTAX_ERROR +#define SYNTAX_ERROR fprintf(stderr,"%s, line %d, column %d\n", \ + (PCB).error_message, (PCB).line, (PCB).column) +#endif + +#ifndef FIRST_LINE +#define FIRST_LINE 1 +#endif + +#ifndef FIRST_COLUMN +#define FIRST_COLUMN 1 +#endif + +#ifndef PARSER_STACK_OVERFLOW +#define PARSER_STACK_OVERFLOW {fprintf(stderr, \ + "\nParser stack overflow, line %d, column %d\n",\ + (PCB).line, (PCB).column);} +#endif + +#ifndef REDUCTION_TOKEN_ERROR +#define REDUCTION_TOKEN_ERROR {fprintf(stderr, \ + "\nReduction token error, line %d, column %d\n", \ + (PCB).line, (PCB).column);} +#endif + + +#ifndef INPUT_CODE +#define INPUT_CODE(T) (T) +#endif + +typedef enum + {ag_accept_key, ag_set_key, ag_jmp_key, ag_end_key, ag_no_match_key, + ag_cf_accept_key, ag_cf_set_key, ag_cf_end_key} key_words; + +static void ag_get_key_word(int ag_k) { + int ag_save = (int) ((PCB).la_ptr - (PCB).pointer); + const unsigned char *ag_p; + int ag_ch; + while (1) { + switch (ag_key_act[ag_k]) { + case ag_cf_end_key: { + const unsigned char *sp = ag_key_ends + ag_key_jmp[ag_k]; + do { + if ((ag_ch = *sp++) == 0) { + int ag_k1 = ag_key_parm[ag_k]; + int ag_k2 = ag_key_pt[ag_k1]; + if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) goto ag_fail; + (PCB).token_number = (pgg_token_type) ag_key_pt[ag_k1 + 1]; + return; + } + } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch); + goto ag_fail; + } + case ag_end_key: { + const unsigned char *sp = ag_key_ends + ag_key_jmp[ag_k]; + do { + if ((ag_ch = *sp++) == 0) { + (PCB).token_number = (pgg_token_type) ag_key_parm[ag_k]; + return; + } + } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch); + } + case ag_no_match_key: +ag_fail: + (PCB).la_ptr = (PCB).pointer + ag_save; + return; + case ag_cf_set_key: { + int ag_k1 = ag_key_parm[ag_k]; + int ag_k2 = ag_key_pt[ag_k1]; + ag_k = ag_key_jmp[ag_k]; + if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) break; + ag_save = (int) ((PCB).la_ptr - (PCB).pointer); + (PCB).token_number = (pgg_token_type) ag_key_pt[ag_k1+1]; + break; + } + case ag_set_key: + ag_save = (int) ((PCB).la_ptr - (PCB).pointer); + (PCB).token_number = (pgg_token_type) ag_key_parm[ag_k]; + case ag_jmp_key: + ag_k = ag_key_jmp[ag_k]; + break; + case ag_accept_key: + (PCB).token_number = (pgg_token_type) ag_key_parm[ag_k]; + return; + case ag_cf_accept_key: { + int ag_k1 = ag_key_parm[ag_k]; + int ag_k2 = ag_key_pt[ag_k1]; + if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) + (PCB).la_ptr = (PCB).pointer + ag_save; + else (PCB).token_number = (pgg_token_type) ag_key_pt[ag_k1+1]; + return; + } + } + ag_ch = CONVERT_CASE(*(PCB).la_ptr++); + ag_p = &ag_key_ch[ag_k]; + if (ag_ch <= 255) while (*ag_p < ag_ch) ag_p++; + if (ag_ch > 255 || *ag_p != ag_ch) { + (PCB).la_ptr = (PCB).pointer + ag_save; + return; + } + ag_k = (int) (ag_p - ag_key_ch); + } +} + + +#ifndef AG_NEWLINE +#define AG_NEWLINE 10 +#endif + +#ifndef AG_RETURN +#define AG_RETURN 13 +#endif + +#ifndef AG_FORMFEED +#define AG_FORMFEED 12 +#endif + +#ifndef AG_TABCHAR +#define AG_TABCHAR 9 +#endif + +static void ag_track(void) { + int ag_k = (int) ((PCB).la_ptr - (PCB).pointer); + while (ag_k--) { + switch (*(PCB).pointer++) { + case AG_NEWLINE: + (PCB).column = 1, (PCB).line++; + case AG_RETURN: + case AG_FORMFEED: + break; + case AG_TABCHAR: + (PCB).column += (TAB_SPACING) - ((PCB).column - 1) % (TAB_SPACING); + break; + default: + (PCB).column++; + } + } +} + + +static void ag_prot(void) { + int ag_k; + ag_k = 128 - ++(PCB).btsx; + if (ag_k <= (PCB).ssx) { + (PCB).exit_flag = AG_STACK_ERROR_CODE; + PARSER_STACK_OVERFLOW; + return; + } + (PCB).bts[(PCB).btsx] = (PCB).sn; + (PCB).bts[ag_k] = (PCB).ssx; + (PCB).vs[ag_k] = (PCB).vs[(PCB).ssx]; + (PCB).ss[ag_k] = (PCB).ss[(PCB).ssx]; + (PCB).cs[ag_k] = (PCB).cs[(PCB).ssx]; +} + +static void ag_undo(void) { + if ((PCB).drt == -1) return; + while ((PCB).btsx) { + int ag_k = 128 - (PCB).btsx; + (PCB).sn = (PCB).bts[(PCB).btsx--]; + (PCB).ssx = (PCB).bts[ag_k]; + (PCB).vs[(PCB).ssx] = (PCB).vs[ag_k]; + (PCB).ss[(PCB).ssx] = (PCB).ss[ag_k]; + (PCB).cs[(PCB).ssx] = (PCB).cs[ag_k]; + } + (PCB).token_number = (pgg_token_type) (PCB).drt; + (PCB).ssx = (PCB).dssx; + (PCB).sn = (PCB).dsn; + (PCB).drt = -1; +} + + + +static const int ag_rtt[] = { + 99,227, 0 +}; + +static const unsigned char ag_tstt[] = { +239,229,132,108,105,103,98,46,21,19,17,0,3,4,5,38,99,227, +243,242,241,240,239,229,228,204,176,171,153,139,132,122,114,107,105,103,98, + 91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,99,227, +229,98,0,3,99,227, +239,132,108,105,103,46,21,19,17,0,39,40,101,104, +243,242,241,240,239,204,176,171,153,139,132,122,114,107,105,103,98,91,88,87, + 76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,110,111, +105,0, +105,103,0,104, +239,229,199,197,196,195,192,191,190,189,188,186,185,132,108,107,105,103,98, + 97,46,35,27,21,19,17,0,3,99,101,104,106,227, +239,132,63,46,21,19,17,0,20,41,42,45,47,48,49,54,55,56,57,58,59,60,93,210, +243,242,241,240,239,204,176,171,153,139,132,122,114,107,98,91,88,87,76,61, + 37,35,33,31,29,27,25,23,21,19,17,15,13,7,0, +105,0, +105,103,0,104, +105,0, +241,240,239,229,132,125,124,122,114,108,105,103,98,91,81,35,33,25,23,21,0,3, + 4,8,9,99,100,101,102,104,227, +243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98, + 91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,15,13,7,0,104,212,213,214, +241,240,239,229,209,208,207,206,205,204,176,139,132,122,108,105,103,98,91, + 88,87,81,61,46,37,31,29,27,25,23,21,13,11,7,2,0,3,4,5,99,227, +31,0, +239,132,81,0,60,62,77,93, +239,229,199,197,196,195,192,191,190,189,188,186,185,132,108,105,103,98,97, + 35,27,0,3,4,5,99,179,227, +243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,98,91,88,87, + 76,61,37,35,33,31,29,27,25,23,21,19,15,13,7,0,99,101,211,215,218,219, + 227, +108,105,103,61,46,13,7,2,0,12, +239,132,0,57,59,60,93, +108,105,103,46,7,2,0,6, +108,105,103,46,2,0,1,50, +108,105,103,0,39,101,104, +108,105,103,0,39,101,104, +239,132,63,46,21,19,17,0,20,41,43,44,47,48,49,54,55,56,57,58,59,60,93,210, +46,0, +105,0, +105,0, +105,103,0,102,104, +243,242,241,240,239,229,226,205,204,176,171,153,139,132,125,124,122,114,108, + 107,105,103,98,91,88,87,81,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7, + 0,3,99,100,101,102,104,227, +105,0, +243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98, + 91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,15,13,7,0,104,212, +241,240,239,229,132,122,98,0,3,99,227, +239,229,132,98,0,82, +108,105,103,91,88,87,81,31,27,21,7,0,78,79,86, +31,0, +239,199,197,196,195,192,191,190,189,188,186,185,132,108,105,103,97,35,27,0, + 39,40,101,104, +27,0,26, +243,242,241,240,239,204,176,171,153,139,132,122,114,107,98,91,88,87,76,61, + 37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,233,234,235, +243,242,241,240,239,204,176,171,153,139,132,122,114,107,98,91,88,87,76,61, + 37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,236,237,238, +153,0, +33,0, +105,103,0,104, +243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98, + 91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,216, +29,0,28, +243,242,241,240,239,229,226,204,176,171,153,139,132,125,124,122,114,108,107, + 105,103,98,91,88,87,81,61,37,35,33,31,27,25,23,21,19,17,15,13,7,0,3,4,8, + 9,99,100,101,102,104,227, +241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,15,0,14,16,18,20, + 22,24,34,60,93,112,113,116,118,120,134,135,136,137,138,140,146,150,151, +229,108,105,103,98,46,7,2,0,3,4,5,99,227, +108,105,103,61,46,7,2,0, +108,105,103,46,7,2,0,6, +241,240,239,229,153,132,125,124,122,114,108,105,103,98,35,33,29,25,23,21,19, + 17,15,0,3,4,8,9,99,100,101,102,104,227, +239,132,0,59,60,93, +241,240,239,229,153,132,125,124,122,114,108,105,103,98,46,37,35,33,25,23,21, + 19,17,15,13,0,3,4,5,99,227, +241,240,239,153,132,125,124,122,114,108,105,103,46,37,35,33,25,23,21,19,17, + 15,13,0,12,14,16,18,20,22,24,34,53,60,68,70,71,72,74,93,112,113,116,118, + 120,133,134,135,136,137,138,140,146,150,151, +239,229,132,108,107,105,103,98,46,21,19,17,0,3,99,101,104,106,227, +239,229,132,108,107,105,103,98,46,37,21,19,17,2,0,1,3,36,50,51,52,99,101, + 104,106,227, +108,105,103,46,0,39,101,104, +108,105,103,46,0,39,101,104, +229,98,0,3,4,99,227, +239,229,132,98,0,3,4,5,99,227, +239,229,132,98,0,83, +91,21,0,20,80,84,85,89,90,92, +239,229,132,98,81,0,3,4,5,99,227, +239,132,81,0,60,62,77,93, +108,105,103,91,87,31,27,21,7,0, +239,229,132,108,105,103,98,0,3,4,8,9,99,100,101,102,104,227, +239,199,197,196,195,192,191,190,189,188,186,185,132,97,35,27,0,34,60,93,96, + 149,180,181,182,183,184,193, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +243,242,241,240,239,204,176,171,153,139,132,122,114,107,105,103,98,91,88,87, + 76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,232, +243,242,241,240,239,204,176,171,139,132,122,114,107,98,91,88,87,76,61,37,35, + 33,31,29,27,25,23,21,19,17,15,13,7,0,233, +243,242,241,240,239,204,176,171,153,139,132,122,114,107,105,103,98,91,88,87, + 76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,232, +243,242,241,240,239,204,176,171,153,139,132,122,114,107,98,91,88,87,76,61, + 37,35,31,29,27,25,23,21,19,17,15,13,7,0,236, +105,0, +243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98, + 91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,99,101,218, + 219,220,227, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +243,242,241,240,239,229,226,204,176,171,153,139,132,122,114,108,107,105,103, + 98,91,88,87,61,37,35,33,31,27,25,23,21,19,17,15,13,7,0,3,4,8,9,99,100, + 101,102,104,227, +243,242,241,240,239,226,204,176,171,153,139,132,122,114,107,91,88,87,61,37, + 35,33,31,27,25,23,21,19,17,15,13,7,0,55,75,210,222, +241,240,239,229,153,132,125,124,122,114,108,105,103,98,35,33,25,23,21,19,17, + 15,0,3,4,8,9,99,100,101,102,104,227, +241,240,239,229,205,153,132,125,124,122,114,108,105,103,98,37,35,33,29,25, + 23,21,19,17,15,13,0,3,4,8,9,99,100,101,102,104,227, +243,242,241,240,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160, + 159,139,132,122,114,107,98,91,88,87,76,61,37,35,33,31,29,27,25,23,21,19, + 17,15,13,7,0,142,143,144,145,152,154,155,156,157,170,172, +241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,15,0,14,16,18,20, + 22,24,34,60,64,65,70,72,74,93,112,113,116,118,120,133,134,135,136,137, + 138,140,146,150,151, +241,240,239,205,153,132,125,124,122,114,37,35,33,29,25,23,21,19,17,15,13,0, + 12,14,16,18,20,22,24,34,60,64,65,67,68,69,70,72,74,93,112,113,116,118, + 120,133,134,135,136,137,138,140,146,150,151, +209,208,206,205,204,176,108,105,103,46,37,29,27,13,7,0, +241,240,239,229,132,125,124,122,114,108,105,103,98,35,33,25,23,21,0,3,4,8,9, + 99,100,101,102,104,227, +241,240,239,229,132,125,124,122,114,108,105,103,98,35,33,25,23,21,0,3,4,8,9, + 99,100,101,102,104,227, +241,240,125,124,122,0,119,121,126, +243,241,240,239,204,176,171,153,139,132,122,114,91,88,87,76,61,37,35,33,31, + 29,27,25,23,21,19,17,15,13,7,0, +243,242,241,240,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160, + 159,153,139,132,122,114,107,98,91,88,87,76,61,37,35,31,29,27,25,23,21, + 19,17,15,13,7,0,117,142,143,144,145,170,172, +241,240,239,229,132,125,124,122,114,108,105,103,98,35,33,25,23,21,0,3,4,8,9, + 99,100,101,102,104,227, +241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113, + 116,118,120,135,137,138,140,146, +209,208,207,206,205,204,176,147,139,108,105,103,46,37,31,29,27,25,23,13,11, + 7,0, +241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113, + 116,118,120,138,140,146, +139,0, +207,204,108,105,103,46,25,23,11,0,10,22,24, +209,208,207,206,205,204,176,108,105,103,46,37,29,27,25,23,13,11,7,0,10,22, + 24, +241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,15,0,14,16,18,20, + 22,24,34,60,72,93,112,113,116,118,120,133,134,135,136,137,138,140,146, + 150,151, +209,208,206,205,176,108,105,103,46,37,29,27,13,7,0,73, +108,105,103,46,37,13,7,0,6,12,68, +243,242,241,240,239,226,204,176,171,153,139,132,122,114,107,91,88,87,61,37, + 35,33,31,27,25,23,21,19,17,15,13,7,0,55,75,210,222, +37,0,36,51, +241,240,239,229,153,132,125,124,122,114,108,105,103,98,35,33,25,23,21,19,17, + 15,0,3,4,8,9,99,100,101,102,104,227, +241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,15,0,14,16,18,20, + 22,24,34,60,70,71,72,74,93,112,113,116,118,120,133,134,135,136,137,138, + 140,146,150,151, +37,0,36,51, +229,98,0,3,99,227, +239,132,0,60,93, +239,229,132,98,0,3,4,5,99,227, +239,229,132,108,105,103,98,91,87,31,27,21,7,0,3,4,5,99,227, +239,132,0,60,93, +91,21,0,20,80,84,85,89,90,92, +91,21,0,20,85,89,90,92, +87,7,0, +229,98,0,3,4,99,227, +229,98,0,3,4,99,227, +229,98,0,3,4,99,227, +229,98,0,3,4,99,187,227, +229,98,0,3,4,99,227, +108,105,103,29,7,0,6,100,101,102,104,194,202, +108,105,103,29,7,0,6,100,101,102,104,194,202, +229,98,0,3,4,99,187,227, +229,98,0,3,4,99,187,227, +229,98,0,3,4,99,187,227, +229,98,0,3,4,99,187,227, +229,98,0,3,4,99,187,227, +229,98,0,3,4,99,187,227, +229,108,105,103,98,0,3,4,8,99,100,101,102,104,227, +239,132,0,60,93, +241,240,239,229,132,122,98,13,0,3,4,5,99,227, +239,132,0,60,93, +108,105,103,27,13,0,12, +108,105,103,27,0,39,40,101,104, +153,0, +33,0, +105,103,0,104, +243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98, + 91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,216, +243,242,241,240,239,226,204,176,171,153,139,132,122,114,107,91,88,87,61,37, + 35,33,31,27,25,23,21,19,15,13,7,0,218,219,223,224, +76,0, +240,122,0, +241,240,132,122,0,127,131, +240,122,0, +240,122,0, +241,132,0, +241,240,132,122,0, +243,242,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160,159,153, + 139,114,107,98,91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7, + 0,142,143,144,145,157,170,172, +209,208,206,205,37,29,27,13,7,0,6,12,68, +209,206,37,27,0,26,36,66, +208,37,0,36,66, +37,0,36,66, +205,29,0,28, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +241,240,132,122,0,127,131, +240,229,209,208,207,206,205,204,176,147,139,122,108,105,103,98,46,37,31,29, + 27,25,23,13,11,7,0,123, +241,240,122,0, +229,209,208,207,206,205,204,176,147,139,108,105,103,98,46,37,31,29,27,25,23, + 13,11,7,0,3,4,5,99,227, +229,209,208,207,206,205,204,176,147,139,108,105,103,98,46,37,31,29,27,25,23, + 13,11,7,0,3,4,5,99,227, +33,23,0,32, +31,25,23,0,22,24,30, +241,240,229,125,124,122,114,108,105,103,98,25,23,0,3,4,8,9,99,100,101,102, + 104,227, +241,240,239,229,132,125,124,122,114,108,105,103,98,35,33,25,23,21,0,3,4,8,9, + 99,100,101,102,104,227, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113, + 116,118,120,137,138,140,146, +241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113, + 116,118,120,137,138,140,146, +209,208,206,205,176,108,105,103,46,37,29,27,13,7,0,73, +239,229,132,108,105,103,98,0,3,4,8,9,99,100,101,102,104,227, +76,0, +239,132,0,60,93, +31,0,30, +239,229,132,98,81,0,3,4,5,99,227, +229,108,105,103,98,91,87,31,27,21,7,0,3,4,5,99,227, +239,229,198,132,98,0,3,99,227, +229,200,98,0,3,99,227, +229,198,98,0,3,99,227, +229,98,17,0,3,16,99,227, +241,240,239,229,153,132,125,124,122,114,98,35,33,25,23,21,19,17,0,3,16,18, + 20,22,24,34,60,93,99,112,113,116,118,120,133,135,136,137,138,140,146, + 150,151,227, +29,0,28, +239,132,0,60,93,148, +241,240,239,132,125,124,122,114,35,33,29,25,23,21,0,20,22,24,34,60,93,112, + 113,116,118,120,135,137,138,140,146, +17,0,16, +241,240,239,229,132,122,108,105,103,98,17,0,3,99,100,101,102,104,227, +13,0,12, +241,240,239,229,132,122,98,0,3,99,227, +241,240,239,153,132,125,124,122,81,25,23,0,22,24,60,62,77,93,113,118,120, + 150,151, +239,229,199,197,196,195,192,191,190,189,188,186,185,132,108,107,105,103,98, + 97,35,27,0,3,34,60,93,96,99,101,104,106,149,182,183,184,193,227, +105,0, +243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98, + 91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,99,101,218, + 219,220,227, +153,0, +33,0, +243,242,241,240,239,229,226,204,176,171,153,139,132,122,114,107,98,91,88,87, + 76,61,37,35,33,31,27,25,23,21,19,15,13,7,0,3,99,218,219,224,227, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +243,242,241,240,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160, + 159,153,139,132,122,114,107,98,91,88,87,76,61,37,35,33,31,29,27,25,23, + 21,19,17,15,13,7,0,131, +229,209,208,206,205,204,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,15,0,14,16,18,20, + 22,24,34,60,65,70,72,74,93,112,113,116,118,120,133,134,135,136,137,138, + 140,146,150,151, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227, +241,240,229,209,208,207,206,205,204,176,147,139,132,122,108,105,103,98,46, + 37,31,29,27,25,23,13,11,7,0,131, +240,229,209,208,207,206,205,204,176,147,139,122,108,105,103,98,46,37,31,29, + 27,25,23,13,11,7,0, +243,242,241,240,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160, + 159,153,139,132,122,114,107,98,91,88,87,76,61,37,35,31,29,27,25,23,21, + 19,17,15,13,7,0,117,142,143,144,145,170,172, +229,209,208,207,206,205,204,176,139,108,105,103,98,46,37,31,29,27,25,23,13, + 11,7,0,3,4,5,99,227, +229,209,208,207,206,205,204,176,139,108,105,103,98,87,46,37,31,29,27,25,23, + 13,11,7,0,3,4,5,99,227, +241,240,125,124,122,114,25,23,0,22,24,112,113,118,120, +241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113, + 116,118,120,138,140,146, +209,208,207,206,205,204,176,139,108,105,103,46,37,31,29,27,25,23,13,11,7,0, +209,208,207,206,205,204,176,139,108,105,103,46,37,31,29,27,25,23,13,11,7,0, +239,132,0,177,178, +229,209,208,206,205,108,105,103,98,46,37,29,27,0,3,4,5,99,227, +229,98,0,3,4,99,227, +229,98,0,3,4,99,227, +229,98,0,3,4,99,187,227, +241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,0,16,18,20,22,24, + 34,60,93,112,113,116,118,120,133,135,136,137,138,140,146,150,151,203, +108,105,103,29,13,7,0,12, +108,105,103,29,25,23,7,0,22,24, +239,132,0,60,93,148, +153,0,150,151, +33,0,32, +241,240,239,229,209,208,206,205,132,122,108,105,103,98,46,37,29,27,13,7,0,3, + 4,5,99,227, +229,98,17,0,3,16,99,227, +239,229,132,98,0,3,99,201,227, +108,105,103,29,7,0,6,100,101,102,104,194,202, +241,240,125,124,122,114,33,25,23,0,22,24,112,113,116,118,120, +241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113, + 116,118,120,135,137,138,140,146, +241,240,239,229,132,122,98,0,3,4,99,227, +241,240,239,153,132,125,124,122,114,35,33,29,25,23,21,19,17,0,16,18,20,22, + 24,34,60,93,112,113,116,118,120,133,135,136,137,138,140,146,150,151, +243,242,241,240,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160, + 159,153,139,132,122,114,107,98,91,88,87,76,61,37,35,31,29,27,25,23,21, + 19,17,15,13,7,0,117,142,143,144,145,170,172, +108,105,103,29,25,23,7,0,22,24, +239,229,132,98,0,3,99,201,227, +33,0,32, +241,240,239,132,122,108,105,103,27,0, + +}; + + +static unsigned const char ag_astt[4209] = { + 5,1,5,8,8,8,1,5,5,5,5,7,1,1,1,0,1,1,3,3,3,3,3,1,3,3,3,3,3,3,3,3,3,3,3,3,3, + 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,7,2,1,1,9,5,3,3,1,8,8,1,8,1,5,8,8,8, + 7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, + 1,1,1,1,7,1,3,3,7,8,1,7,1,5,1,5,5,5,5,5,5,5,5,5,5,5,5,1,9,8,1,9,5,5,5,5,5, + 5,5,7,3,3,1,1,3,1,2,2,1,8,1,1,1,7,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,9,9,9,9, + 9,9,9,9,9,9,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,8,1,7,1, + 3,7,5,5,5,1,5,5,5,5,5,1,8,1,1,5,5,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1,1,5,5,5,5, + 5,5,5,5,5,5,5,5,5,5,5,5,8,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,7,1,1,1, + 2,10,10,10,1,5,5,5,5,5,5,5,5,10,10,5,5,5,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, + 5,7,1,1,3,1,1,3,7,2,2,1,7,1,1,1,1,5,1,5,5,5,5,5,5,5,5,5,5,5,5,8,8,8,1,5,5, + 5,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,1,1,1,1,1,1,4,1,1, + 1,1,1,1,1,1,7,1,1,1,1,1,1,1,4,4,4,1,4,1,4,4,7,1,2,2,7,1,2,1,1,4,4,4,4,1,4, + 7,1,4,4,4,4,1,7,1,3,1,8,1,7,1,1,1,1,8,1,7,1,1,1,2,2,1,5,1,1,1,7,1,3,3,3,1, + 1,1,1,1,1,1,1,2,1,1,1,3,7,3,7,1,7,8,1,7,3,1,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5, + 5,5,5,1,5,8,1,9,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,7,3,3,3,1,3,1,1,3,7, + 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,8,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, + 7,1,3,2,2,2,1,2,2,9,5,3,3,1,4,4,4,4,7,1,5,5,5,8,1,5,1,5,5,8,5,7,1,1,1,1,7, + 8,8,8,8,8,8,8,8,8,8,8,8,8,1,8,1,8,8,5,7,1,1,1,1,1,7,3,1,1,1,1,1,1,1,1,5,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,7,1,1,3,1,1,1,1,1,1,1,1,1, + 1,1,1,1,1,1,1,1,1,1,1,1,1,5,1,1,1,1,1,1,1,1,1,1,1,7,1,1,3,3,7,3,7,8,1,7,1, + 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,5,8,8,8,8,8,8,8,8, + 8,7,1,1,7,3,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5,5,1,5,8,1,1,5,5,5,5,5,5,5,5,5, + 5,5,5,5,5,5,5,5,5,7,1,1,2,2,1,2,1,2,1,1,5,5,2,2,2,5,5,5,1,1,1,1,1,1,1,1,1, + 7,1,1,1,1,2,2,1,2,1,1,1,2,1,2,2,1,2,1,1,1,1,1,1,1,5,5,5,1,5,5,5,7,1,1,2,1, + 1,4,4,4,1,4,4,4,7,4,4,4,4,1,4,7,1,5,5,5,1,5,5,5,5,5,5,1,8,1,1,5,5,5,5,5,5, + 5,5,5,7,1,1,3,3,1,3,1,3,1,1,2,2,7,2,1,1,5,5,5,1,5,5,5,5,5,5,5,5,5,1,5,5,5, + 5,5,5,5,5,5,5,5,7,1,1,3,1,1,5,5,2,2,2,5,5,5,1,4,4,4,4,4,1,1,1,1,1,1,1,1,1, + 7,1,1,1,1,1,2,2,1,1,2,2,1,2,1,1,1,1,1,2,1,2,1,2,1,1,1,1,1,1,1,1,4,1,4,1,9, + 8,1,9,4,4,4,4,7,3,3,1,1,3,1,4,1,4,1,9,8,1,9,4,1,4,4,4,1,7,1,3,1,2,1,1,3,1, + 1,3,1,1,8,1,4,7,1,1,1,1,8,1,4,7,1,1,1,1,1,5,1,1,1,1,8,1,8,1,7,1,1,1,1,1,4, + 4,4,4,7,1,1,1,7,2,2,1,2,1,1,1,5,1,5,1,5,7,1,1,2,1,1,2,2,1,7,1,1,1,1,5,5,5, + 5,5,5,5,5,5,7,5,1,5,1,8,1,1,7,1,1,2,2,1,2,1,2,1,1,2,1,1,1,1,1,1,1,1,1,1,1, + 2,1,1,5,7,1,1,1,1,1,1,3,1,1,1,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,3,1, + 1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, + 7,3,9,9,9,9,9,9,9,1,9,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, + 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,7, + 3,9,9,9,9,9,9,9,1,9,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,3, + 7,9,9,9,9,9,1,9,9,9,1,9,9,9,9,1,9,9,9,9,9,9,9,9,9,9,9,1,9,4,9,9,9,9,9,1,9, + 9,9,7,3,1,1,1,3,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,3,1,1,5,5,5,5,5,1, + 5,5,5,5,5,5,5,5,5,1,5,8,1,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,7,1,1,2,2,1, + 2,1,2,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4, + 7,2,1,1,1,5,5,5,1,5,5,5,5,5,5,1,8,1,1,5,5,5,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1, + 1,5,5,5,1,5,5,5,5,5,5,5,1,8,1,1,5,5,5,5,5,5,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1, + 1,2,2,2,2,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, + 2,2,2,2,2,2,2,2,2,7,2,2,2,2,1,1,1,1,2,1,1,5,5,2,2,2,5,5,5,1,1,1,1,1,1,1,1, + 1,7,1,1,1,1,2,2,1,2,1,2,1,1,1,1,1,1,2,1,2,1,2,1,1,1,1,1,1,1,1,5,5,2,4,2,2, + 5,5,5,1,4,1,1,4,1,1,1,1,1,1,1,7,1,1,1,1,1,2,2,1,2,1,2,1,2,1,1,1,1,1,1,1,2, + 1,2,1,2,1,1,1,1,1,1,1,1,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,7,5,5,5,1,5,5,5,5,5, + 1,8,1,1,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1,1,5,5,5,1,5,5,5,5,5,1,8,1,1,5,5,5,5, + 5,7,1,1,3,3,1,3,1,3,1,1,2,2,1,1,1,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,1,1,1,1,1,1,1,1,7,2,2,2,2,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2, + 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,7,1,1,1,1,1,1,1,5,5,5,1,5, + 5,5,5,5,1,8,1,1,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1,1,5,5,2,2,5,5,5,1,1,1,1,1,1, + 7,1,2,2,1,2,1,1,1,2,1,2,1,1,1,1,1,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4, + 4,4,7,5,5,2,2,5,5,5,1,1,1,1,1,1,7,1,2,2,1,2,1,1,1,2,1,2,2,2,2,1,5,1,1,4,4, + 4,4,1,1,1,7,2,1,1,4,4,1,4,4,1,4,4,4,4,4,4,4,4,1,1,4,1,4,7,2,1,1,5,5,2,2,2, + 5,5,5,1,1,1,1,1,1,1,1,1,7,1,1,1,1,2,2,1,2,1,1,1,1,2,1,2,1,2,1,1,1,1,1,1,1, + 1,4,4,4,4,1,4,4,4,4,4,4,4,4,4,7,2,4,4,4,4,4,1,1,7,3,1,2,4,4,4,4,4,4,4,4,4, + 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,7,2,1,1,1,1,5,1,3,5,5,5,1,5, + 5,5,5,5,5,1,8,1,1,5,5,5,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1,1,5,5,2,2,2,5,5,5,1, + 1,1,1,1,1,1,1,1,7,1,1,1,1,2,2,1,2,1,2,1,1,1,1,1,2,1,2,1,2,1,1,1,1,1,1,1,1, + 1,5,1,3,1,9,5,3,3,1,2,2,7,2,1,8,1,8,1,7,1,1,1,1,1,5,1,5,5,5,5,1,5,5,5,5,5, + 5,7,1,1,2,1,1,2,2,5,2,1,1,1,7,2,1,1,1,1,1,1,1,1,5,2,2,1,1,2,1,1,7,1,1,7,1, + 1,1,1,1,1,7,1,1,1,1,1,1,7,1,1,1,1,1,1,7,1,1,1,2,1,1,1,7,1,1,1,1,1,8,1,8,1, + 7,1,1,1,1,1,3,1,1,8,1,8,1,7,1,1,1,1,1,3,1,1,1,7,1,1,1,2,1,1,1,7,1,1,1,2,1, + 1,1,7,1,1,1,2,1,1,1,7,1,1,1,2,1,1,1,7,1,1,1,2,1,1,1,7,1,1,1,2,1,1,1,8,1,1, + 7,1,1,1,1,1,1,1,1,1,2,2,7,2,1,10,10,10,1,10,10,1,8,7,1,1,1,1,1,2,2,7,2,1,4, + 4,4,4,1,7,1,1,8,1,5,7,1,3,1,1,3,7,3,7,8,1,7,1,8,8,8,8,8,8,8,8,8,8,8,8,8,8, + 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,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,1,1,1,1,1,1,7,1,1,1,1,1,7,2,2,7,2,2,2,2,7,1,2, + 2,2,5,2,2,5,2,2,5,10,10,10,10,5,2,2,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,1,2,2, + 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,7,2,2,2,2,2,1,1,4,4,4,4,4,4,4,1, + 1,7,3,1,2,1,1,1,1,7,2,1,3,1,1,5,1,3,1,5,1,3,1,1,7,2,1,5,5,5,5,5,5,5,5,1,5, + 5,5,5,5,5,7,1,1,2,1,1,2,2,2,2,7,1,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, + 4,4,4,4,4,4,4,7,1,10,10,10,5,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5, + 5,7,1,1,2,1,1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5,7,1,1,2,1,1, + 1,1,7,2,1,1,1,7,1,1,2,8,8,1,8,8,8,8,1,8,1,1,8,8,7,1,1,1,1,1,1,1,1,1,1,8,8, + 8,1,8,8,8,8,8,1,8,1,1,8,8,8,8,8,7,1,1,1,1,1,1,1,1,1,1,1,5,5,5,5,5,5,5,5,1, + 5,5,5,5,5,5,7,1,1,3,1,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,1,1,5,5, + 5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,1,5,5,2,2,5,5,5,1,1,1,1,1,1,7,1,2,2,1, + 2,1,1,1,2,1,2,1,1,1,1,5,5,2,2,5,5,5,1,1,1,1,1,1,7,1,2,2,1,2,1,1,1,2,1,2,1, + 1,1,1,4,4,4,4,1,4,4,4,4,4,4,4,4,4,7,2,8,1,8,1,8,1,1,7,1,1,1,1,1,1,1,1,1,1, + 1,7,2,2,7,2,1,1,7,2,5,1,5,1,5,7,1,1,2,1,1,1,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1, + 1,4,1,1,4,9,7,3,3,1,1,1,9,7,3,3,1,1,1,9,7,3,3,1,1,9,1,7,3,1,3,1,5,5,2,1,2, + 2,5,5,5,1,9,1,1,1,1,1,1,1,7,3,1,1,1,2,2,1,2,1,3,1,1,2,1,2,2,1,2,1,1,1,1,1, + 1,1,1,7,3,2,2,5,1,1,3,5,5,2,2,5,5,5,1,1,1,5,1,1,1,7,1,2,2,1,2,1,1,1,2,1,2, + 1,1,1,1,1,1,7,1,2,2,2,1,2,2,1,8,1,9,5,7,3,3,3,1,3,1,1,1,7,1,2,2,2,1,2,2,9, + 5,3,3,1,5,5,2,2,2,5,5,5,1,1,1,7,2,2,1,2,1,1,2,1,2,2,1,2,1,1,1,1,1,1,1,1,1, + 1,1,1,2,1,9,8,1,9,1,1,5,7,3,1,1,1,1,3,1,1,3,1,3,3,1,1,1,3,7,9,9,9,9,9,1,9, + 9,9,1,9,9,9,9,1,9,9,9,9,9,9,9,9,9,9,9,1,9,3,9,9,9,9,9,1,9,9,9,7,3,1,1,1,3, + 1,3,7,3,7,9,9,9,9,9,1,9,9,9,9,1,9,9,9,9,9,9,9,9,9,4,9,9,9,1,9,9,9,9,9,9,9, + 9,9,7,3,3,1,1,3,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,1,4,4,2,2,4,4, + 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, + 4,4,4,7,2,1,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,3,1,1,1,5,5,5,5,5,5,5,5, + 1,5,5,5,5,5,5,7,1,1,2,1,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,1,5,5, + 2,2,2,5,5,5,1,1,1,1,1,1,1,1,1,7,1,1,1,1,2,2,1,2,2,1,1,1,1,1,1,2,1,2,1,2,1, + 1,1,1,1,1,1,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,1,1,5,5,5,5,5,5,5, + 5,1,5,5,5,5,5,5,7,1,1,2,1,1,2,2,4,4,4,4,4,4,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4, + 4,4,4,4,4,7,2,10,4,4,4,4,4,4,4,4,4,4,10,4,4,4,4,4,4,4,4,4,4,4,4,4,4,7,2,2, + 2,2,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, + 2,2,2,2,2,2,7,1,1,1,1,1,1,1,1,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5, + 7,1,1,3,1,1,1,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5,5,7,1,1,3,1,1,5, + 5,5,5,5,1,1,1,7,2,2,2,2,1,2,5,5,2,2,5,5,5,1,1,1,1,1,1,7,1,2,2,1,2,1,1,1,2, + 1,2,2,2,2,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,7,4,4,4,4,4,4,4,1,4,4, + 4,4,4,4,4,4,4,4,4,4,4,7,2,2,7,2,1,1,5,5,5,5,5,5,5,1,5,5,5,5,7,1,1,2,1,1,1, + 1,7,1,1,1,1,1,1,7,1,1,1,1,1,1,7,1,1,1,2,1,5,5,2,2,2,5,5,5,1,1,1,1,1,1,1,1, + 7,1,1,1,2,2,1,2,1,1,1,2,1,2,2,1,2,1,1,1,1,1,1,1,4,4,4,4,1,4,7,1,4,4,4,4,1, + 1,4,7,1,1,2,2,7,1,1,3,2,7,2,1,1,7,2,10,10,10,1,5,5,5,5,10,10,5,5,5,1,5,5,5, + 5,5,5,7,1,1,3,1,1,1,9,1,7,3,1,3,1,2,1,2,9,7,3,3,1,1,1,8,1,8,1,7,1,1,1,1,1, + 3,1,5,5,5,5,5,1,1,1,1,7,2,2,2,2,2,1,2,5,5,2,2,5,5,5,1,1,1,1,1,1,7,1,2,2,1, + 2,1,1,1,2,1,2,1,1,1,1,1,9,9,9,1,9,9,1,7,1,1,1,1,5,5,2,2,2,5,5,5,1,1,1,5,1, + 1,1,1,1,7,1,1,1,2,2,1,2,1,1,1,2,1,2,2,1,2,1,1,1,1,1,1,2,2,2,2,2,2,2,1,1,2, + 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,7,1, + 1,1,1,1,1,1,4,4,4,4,1,1,4,7,1,1,2,1,2,9,7,3,3,1,1,1,7,2,9,9,9,9,9,4,4,4,4, + 7 +}; + + +static const unsigned short ag_pstt[] = { +3,1,3,3,3,3,2,3,3,3,3,0,2,2,3,0,2,1, +301,301,301,301,301,1,299,301,301,301,301,301,301,301,301,301,301,301,301, + 301,301,301,301,301,301,301,301,301,301,301,301,301,301,301,301,301,301, + 301,1,302,1, +1,2,4,2,2,1, +8,8,4,5,5,23,8,8,8,3,7,8,6,5, +9,9,9,9,9,9,9,9,9,9,9,9,9,9,123,123,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, + 4,9,125, +118,5, +10,10,6,10, +24,1,24,24,24,24,24,24,24,24,24,24,24,24,4,120,12,12,119,24,24,24,24,24,24, + 24,7,119,119,11,12,119,1, +96,96,16,27,13,18,14,8,17,26,26,27,25,24,23,24,24,24,22,21,48,20,15,19, +122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122, + 122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,124, +117,10, +28,28,11,28, +115,12, +6,6,6,1,6,6,6,6,6,4,29,29,31,6,6,6,6,6,6,6,13,31,31,14,14,31,14,30,14,29,1, +272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,32,32,272, + 272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272, + 14,32,33,33,274, +97,97,97,1,3,3,3,3,3,3,3,3,97,97,3,3,3,34,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, + 15,34,34,102,34,1, +53,16, +96,96,35,17,36,37,36,15, +3,1,3,3,3,3,3,3,3,3,3,3,3,3,38,38,38,2,3,3,3,18,2,2,38,2,39,1, +45,45,45,45,45,1,45,45,45,40,45,45,45,45,4,45,45,45,45,45,45,45,45,45,41,45, + 275,45,45,45,45,45,45,45,45,19,45,44,46,45,43,42,1, +50,50,50,49,50,47,50,50,20,48, +96,96,21,51,48,50,15, +46,46,46,46,52,46,22,53, +36,36,36,36,54,23,55,37, +4,5,5,24,56,6,5, +4,5,5,25,57,6,5, +96,96,16,27,13,18,14,26,17,26,30,30,59,58,23,58,58,58,22,21,48,20,15,19, +31,27, +116,28, +60,29, +29,29,30,108,29, +105,105,105,105,105,1,105,105,105,105,105,105,105,105,105,105,105,105,4,105, + 29,29,2,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, + 105,105,105,31,2,2,106,30,106,29,1, +269,32, +273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,32,32,273, + 273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,273, + 33,32,271, +98,98,98,1,98,98,2,4,2,2,1, +79,79,79,79,35,61, +73,73,73,63,64,73,62,73,73,63,73,36,66,63,65, +67,37, +68,68,68,68,68,68,68,68,68,68,68,68,68,4,5,5,68,68,23,38,7,68,6,5, +69,39,217, +71,71,71,71,71,71,71,70,308,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71, + 71,71,71,71,71,71,71,71,71,40,71,71,310, +73,73,73,73,73,73,73,72,73,73,73,73,73,73,73,73,73,73,73,73,73,73,316,73,73, + 73,73,73,73,73,73,73,73,73,41,73,73,318, +281,42, +280,43, +74,74,44,74, +75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75, + 75,75,75,282,75,75,75,75,75,75,75,75,75,45,75, +76,46,268, +6,6,6,6,6,1,6,6,6,6,6,6,6,6,6,6,6,4,6,29,29,31,6,6,6,6,6,6,6,6,6,6,6,6,6,6, + 6,6,6,6,47,31,31,10,10,31,10,30,10,29,1, +130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,77,48,78,83,82,91,133, + 132,93,166,15,92,92,165,87,132,172,95,171,94,94,94,94,84,81, +1,3,3,3,2,3,3,3,49,2,2,51,2,1, +50,50,50,49,50,50,50,50, +47,47,47,47,52,47,51,53, +6,6,6,1,6,6,6,6,6,6,4,29,29,31,6,6,6,6,6,6,6,6,6,52,31,31,8,8,31,8,30,8,29, + 1, +96,96,53,49,50,15, +3,3,3,1,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,3,54,2,2,5,2,1, +130,130,96,182,96,130,130,130,88,70,70,70,70,70,90,89,85,86,13,79,80,77,47, + 55,100,78,83,82,91,133,132,93,101,166,62,99,63,98,97,15,92,92,165,87, + 132,98,148,96,98,94,94,94,94,84,81, +33,1,33,4,120,12,12,119,33,33,33,33,56,119,119,11,12,119,1, +32,1,32,4,120,12,12,119,32,102,32,32,32,54,57,55,119,103,38,104,104,119,11, + 12,119,1, +4,5,5,35,58,56,6,5, +4,5,5,34,59,57,6,5, +1,105,112,105,105,105,1, +106,1,106,2,61,2,2,106,2,1, +81,81,81,81,62,107, +108,13,63,89,77,111,77,110,109,111, +3,1,3,2,3,64,2,2,87,2,1, +96,96,35,65,36,112,36,15, +74,74,74,76,74,74,74,76,74,66, +6,1,6,4,29,29,31,67,31,31,52,52,31,52,30,52,29,1, +96,114,115,116,117,120,121,122,123,124,125,113,96,126,90,218,68,129,130,15, + 128,118,131,220,131,131,127,119, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,69,2,2,17,2,1, +305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305, + 305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,70, + 305, +307,307,307,307,307,307,307,70,307,307,307,307,307,307,307,307,307,307,307, + 307,307,307,307,307,307,307,307,307,307,307,307,307,307,309,307, +313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313, + 313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,72, + 313, +315,315,315,315,315,315,315,72,315,315,315,315,315,315,315,315,315,315,315, + 315,315,315,315,315,315,315,315,315,315,315,315,315,315,317,315, +279,74, +283,283,283,283,283,1,283,283,283,40,283,283,283,283,4,283,283,283,283,283, + 283,283,283,283,283,283,41,283,276,283,283,283,283,283,135,283,283,283, + 75,283,134,133,132,283,1, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,76,2,2,18,2,1, +6,6,6,6,6,1,6,6,6,6,6,6,6,6,6,4,6,29,29,31,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, + 6,77,31,31,11,11,31,11,30,11,29,1, +290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290, + 290,290,290,290,290,290,290,290,290,14,290,290,290,78,266,137,19,136, +6,6,6,1,6,6,6,6,6,6,4,29,29,31,6,6,6,6,6,6,6,6,79,31,31,13,13,31,13,30,13, + 29,1, +6,6,6,1,6,6,6,6,6,6,6,4,29,29,31,6,6,6,6,6,6,6,6,6,6,6,80,31,31,12,12,31,12, + 30,12,29,1, +203,203,204,204,203,203,203,139,138,196,195,194,193,192,191,190,189,188,187, + 186,203,204,204,203,203,203,203,203,203,203,203,203,203,203,203,203,203, + 203,203,203,203,203,203,203,203,81,203,208,185,210,144,143,142,144,203, + 141,140, +130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,77,82,78,83,82,91,133, + 132,93,166,146,54,145,98,97,15,92,92,165,87,132,98,148,96,98,94,94,94, + 94,84,81, +130,130,96,70,182,96,130,130,130,88,70,90,89,70,85,86,13,79,80,77,47,83,100, + 78,83,82,91,133,132,93,166,147,54,148,57,149,145,98,97,15,92,92,165,87, + 132,98,148,96,98,94,94,94,94,84,81, +255,255,255,255,150,255,255,255,255,255,255,255,255,255,255,84, +6,6,6,1,6,6,6,6,6,4,29,29,31,6,6,6,6,6,85,31,31,16,16,31,16,30,16,29,1, +6,6,6,1,6,6,6,6,6,4,29,29,31,6,6,6,6,6,86,31,31,15,15,31,15,30,15,29,1, +139,139,151,151,152,87,154,153,151, +155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155, + 155,155,155,155,155,155,155,155,155,155,155,155,88, +158,158,158,158,158,158,158,139,138,196,195,194,193,192,191,190,189,188,187, + 186,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158, + 158,158,158,158,158,158,158,158,89,156,156,156,156,156,141,140, +6,6,6,1,6,6,6,6,6,4,29,29,31,6,6,6,6,6,90,31,31,21,21,31,21,30,21,29,1, +130,130,96,96,130,130,130,88,90,89,85,86,13,91,91,133,132,93,166,15,92,92, + 165,87,132,157,94,94,94,94, +164,164,164,164,164,164,164,158,164,164,164,164,164,164,164,164,164,164,164, + 164,164,164,92, +130,130,96,96,130,130,130,88,90,89,85,86,13,93,91,133,132,93,166,15,92,92, + 165,87,132,157,157,157, +159,151, +161,162,170,170,170,170,85,86,160,95,263,163,164, +149,149,161,149,149,162,149,149,149,149,149,149,149,149,85,86,149,160,149, + 96,263,163,164, +130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,77,97,78,83,82,91,133, + 132,93,166,165,15,92,92,165,87,132,165,148,96,165,94,94,94,94,84,81, +212,212,212,212,166,212,212,212,212,212,212,212,212,212,98,67, +70,70,70,70,70,47,52,99,69,100,66, +290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290, + 290,290,290,290,290,290,290,290,290,14,290,290,290,100,71,167,19,136, +102,42,103,64, +6,6,6,1,6,6,6,6,6,6,4,29,29,31,6,6,6,6,6,6,6,6,102,31,31,22,22,31,22,30,22, + 29,1, +130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,77,103,78,83,82,91, + 133,132,93,166,99,65,98,97,15,92,92,165,87,132,98,148,96,98,94,94,94,94, + 84,81, +102,41,103,40, +1,2,113,2,2,1, +96,96,106,80,15, +168,1,168,2,107,2,2,168,2,1, +3,1,3,3,3,3,2,3,3,3,3,3,3,108,2,2,91,2,1, +96,96,92,93,15, +108,13,110,89,169,111,169,110,109,111, +108,13,83,89,85,110,109,95, +171,170,112, +1,172,113,172,172,172,1, +1,173,114,173,173,173,1, +1,174,115,174,174,174,1, +1,175,116,175,175,175,241,1, +1,176,117,176,176,176,1, +4,29,29,177,52,118,178,177,30,177,29,239,177, +4,29,29,177,52,119,179,177,30,177,29,238,177, +1,175,120,175,175,175,237,1, +1,175,121,175,175,175,236,1, +1,175,122,175,175,175,235,1, +1,175,123,175,175,175,234,1, +1,175,124,175,175,175,233,1, +1,175,125,175,175,175,232,1, +1,4,29,29,181,126,181,181,180,181,180,30,180,29,1, +96,96,127,230,15, +100,100,100,1,100,100,183,182,128,183,183,182,183,1, +96,96,129,224,15, +223,223,223,223,47,130,184, +4,5,5,23,131,185,219,6,5, +289,132, +288,133, +186,186,134,186, +187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, + 187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187, + 187,135,187, +190,190,190,190,190,190,190,190,190,40,190,190,190,190,190,190,190,190,190, + 190,190,41,190,190,190,190,190,190,190,190,190,136,189,188,190,190, +191,137, +197,197,138, +145,145,146,145,139,192,143, +199,199,201, +198,198,200, +207,207,180, +206,206,206,206,179, +205,205,205,205,205,139,138,196,195,194,193,192,191,190,189,188,187,186,193, + 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205, + 205,205,205,205,205,144,205,209,185,211,205,141,140, +70,70,70,70,70,70,70,47,52,145,69,100,61, +194,195,102,69,146,259,196,55, +197,102,60,196,55, +102,59,196,58, +198,76,149,257, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,150,2,2,256,2,1, +145,145,146,145,151,199,143, +141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,141, + 141,141,141,141,141,141,141,152,200, +140,140,140,134, +1,3,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,154,2,2,129,2,1, +1,3,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,155,2,2,127,2,1, +202,201,156,128, +203,85,86,157,163,164,167, +204,204,1,204,204,204,204,4,29,29,31,204,204,158,31,31,204,204,31,204,30, + 204,29,1, +205,205,205,1,205,205,205,205,205,4,29,29,31,205,205,205,205,205,159,31,31, + 205,205,31,205,30,205,29,1, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,160,2,2,9,2,1, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,161,2,2,262,2,1, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,162,2,2,261,2,1, +130,130,96,96,130,130,130,88,90,89,85,86,13,163,91,133,132,93,166,15,92,92, + 165,87,132,206,206,206,206, +130,130,96,96,130,130,130,88,90,89,85,86,13,164,91,133,132,93,166,15,92,92, + 165,87,132,207,207,207,207, +212,212,212,212,166,212,212,212,212,212,212,212,212,212,165,68, +208,1,208,4,29,29,31,166,31,31,208,208,31,208,30,208,29,1, +209,167, +96,96,168,82,15, +203,169,90, +3,1,3,2,3,170,2,2,88,2,1, +1,3,3,3,2,3,3,3,3,3,3,171,2,2,86,2,1, +231,1,210,231,2,172,2,2,1, +1,211,2,173,2,2,1, +1,212,2,174,2,2,1, +1,2,80,175,2,213,2,1, +130,130,96,1,182,96,130,130,130,88,2,90,89,85,86,13,79,80,176,2,83,82,91, + 133,132,93,166,15,2,92,92,165,87,132,240,96,240,94,94,94,94,84,81,1, +76,177,249, +96,96,247,214,15,177, +130,130,96,96,130,130,130,88,90,89,247,85,86,13,179,91,133,132,93,166,15,92, + 92,165,87,132,215,94,94,94,94, +80,180,216, +99,99,99,1,99,99,4,29,29,2,105,181,2,2,106,30,106,29,1, +47,182,217, +101,101,101,1,101,101,2,4,2,2,1, +130,130,96,182,96,130,130,130,35,85,86,184,133,132,36,225,36,15,228,87,132, + 226,81, +96,1,114,115,116,117,120,121,122,123,124,125,113,96,4,120,12,12,119,126,90, + 24,185,119,129,130,15,128,119,11,12,119,118,222,222,127,119,1, +287,186, +283,283,283,283,283,1,283,283,283,40,283,283,283,283,4,283,283,283,283,283, + 283,283,283,283,283,283,41,283,285,283,283,283,283,283,135,283,283,283, + 187,283,134,133,132,283,1, +298,188, +297,189, +293,293,293,293,293,1,293,293,293,293,40,293,293,293,293,293,294,293,293, + 293,291,293,293,293,41,293,293,293,293,293,293,293,293,293,190,294,294, + 189,188,293,1, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,191,2,2,267,2,1, +202,202,145,145,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202, + 202,202,202,146,145,202,202,202,202,202,202,202,202,202,202,202,202,202, + 202,202,202,202,202,202,202,202,202,192,144, +1,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,193,2,2,178,2,1, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,194,2,2,265,2,1, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,195,2,2,260,2,1, +130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,77,196,78,83,82,91, + 133,132,93,166,56,145,98,97,15,92,92,165,87,132,98,148,96,98,94,94,94, + 94,84,81, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,197,2,2,264,2,1, +1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,198,2,2,258,2,1, +145,145,138,138,138,138,138,138,138,138,138,138,146,145,138,138,138,138,138, + 138,138,138,138,138,138,138,138,138,199,144, +142,135,135,135,135,135,135,135,135,135,135,142,135,135,135,135,135,135,135, + 135,135,135,135,135,135,135,200, +158,158,158,158,158,158,158,139,138,196,195,194,193,192,191,190,189,188,187, + 186,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158, + 158,158,158,158,158,158,158,158,201,218,218,218,218,218,141,140, +1,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,202,2,2,20,2,1, +1,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,3,203,2,2,19,2,1, +130,130,130,130,130,88,85,86,204,133,132,169,169,87,132, +130,130,96,96,130,130,130,88,90,89,85,86,13,205,91,133,132,93,166,15,92,92, + 165,87,132,155,155,155, +153,153,153,153,153,153,153,159,153,153,153,153,153,153,153,153,153,153,153, + 153,153,206, +152,152,152,152,152,152,152,159,152,152,152,152,152,152,152,152,152,152,152, + 152,152,207, +214,214,208,213,219, +1,3,3,3,3,3,3,3,2,3,3,3,3,209,2,2,72,2,1, +1,220,210,220,220,220,1, +1,221,211,221,221,221,1, +1,175,212,175,175,175,242,1, +130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,213,83,82,91,133,132, + 93,166,15,92,92,165,87,132,253,96,253,94,94,94,94,84,81,222, +173,173,173,173,47,173,214,223, +251,251,251,251,85,86,251,215,163,164, +96,96,216,214,15,176, +182,217,227,81, +202,218,168, +215,215,215,1,3,3,3,3,215,215,3,3,3,2,3,3,3,3,3,3,219,2,2,216,2,1, +1,2,80,220,2,224,2,1, +244,1,244,2,221,2,2,225,1, +4,29,29,177,52,222,226,177,30,177,29,252,177, +130,130,130,130,130,88,227,85,86,223,133,132,174,174,175,87,132, +130,130,96,96,130,130,130,88,90,89,85,86,13,224,91,133,132,93,166,15,92,92, + 165,87,132,228,94,94,94,94, +245,245,245,1,245,245,229,225,229,229,229,1, +130,130,96,182,96,130,130,130,88,90,89,247,85,86,13,79,80,226,83,82,91,133, + 132,93,166,15,92,92,165,87,132,254,96,254,94,94,94,94,84,81, +158,158,158,158,158,158,158,139,138,196,195,194,193,192,191,190,189,188,187, + 186,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158, + 158,158,158,158,158,158,158,158,227,230,230,230,230,230,141,140, +250,250,250,250,85,86,250,228,163,164, +244,1,244,2,229,2,2,231,1, +202,230,128, +245,245,245,245,245,243,243,243,243,231, + +}; + + +static const unsigned short ag_sbt[] = { + 0, 18, 59, 65, 79, 118, 120, 124, 157, 181, 216, 218, 222, 224, + 255, 297, 338, 340, 348, 376, 419, 429, 436, 444, 452, 459, 466, 490, + 492, 494, 496, 501, 551, 553, 593, 604, 610, 625, 627, 651, 654, 692, + 730, 732, 734, 738, 778, 781, 832, 873, 887, 895, 903, 937, 943, 974, + 1029,1048,1074,1082,1090,1097,1107,1113,1123,1134,1142,1152,1170,1198, + 1220,1258,1293,1331,1366,1368,1413,1435,1483,1520,1553,1590,1647,1694, + 1749,1765,1794,1823,1832,1864,1917,1946,1976,1999,2027,2029,2042,2065, + 2108,2124,2135,2172,2176,2209,2255,2259,2265,2270,2280,2299,2304,2314, + 2322,2325,2332,2339,2346,2354,2361,2374,2387,2395,2403,2411,2419,2427, + 2435,2450,2455,2469,2474,2481,2490,2492,2494,2498,2538,2574,2576,2579, + 2586,2589,2592,2595,2600,2650,2663,2671,2676,2680,2684,2706,2713,2741, + 2745,2775,2805,2809,2816,2840,2869,2891,2913,2935,2964,2993,3009,3027, + 3029,3034,3037,3048,3065,3074,3081,3088,3096,3140,3143,3149,3180,3183, + 3202,3205,3216,3239,3277,3279,3324,3326,3328,3369,3391,3439,3462,3484, + 3506,3552,3574,3596,3626,3653,3706,3735,3765,3780,3808,3830,3852,3857, + 3876,3883,3890,3898,3938,3946,3956,3962,3966,3969,3995,4003,4012,4025, + 4042,4072,4084,4124,4177,4187,4196,4199,4209 +}; + + +static const unsigned short ag_sbe[] = { + 11, 56, 61, 74, 115, 119, 122, 150, 164, 215, 217, 220, 223, 244, + 292, 332, 339, 343, 369, 411, 427, 431, 442, 449, 455, 462, 473, 491, + 493, 495, 498, 543, 552, 590, 600, 608, 621, 626, 646, 652, 688, 726, + 731, 733, 736, 776, 779, 821, 849, 881, 894, 901, 926, 939, 968, 997, + 1041,1062,1078,1086,1092,1101,1111,1115,1128,1137,1151,1159,1186,1214, + 1256,1291,1329,1364,1367,1406,1429,1472,1515,1542,1579,1635,1664,1715, + 1764,1783,1812,1828,1863,1909,1935,1959,1998,2012,2028,2038,2061,2082, + 2122,2131,2167,2173,2198,2226,2256,2261,2267,2274,2293,2301,2306,2316, + 2324,2327,2334,2341,2348,2356,2366,2379,2389,2397,2405,2413,2421,2429, + 2440,2452,2463,2471,2479,2485,2491,2493,2496,2536,2569,2575,2578,2583, + 2588,2591,2594,2599,2642,2659,2667,2673,2677,2682,2700,2710,2739,2744, + 2769,2799,2807,2812,2829,2858,2885,2907,2929,2948,2977,3007,3016,3028, + 3031,3035,3042,3059,3070,3077,3084,3091,3114,3141,3145,3163,3181,3194, + 3203,3212,3227,3261,3278,3317,3325,3327,3362,3385,3437,3456,3478,3500, + 3523,3568,3590,3624,3652,3698,3729,3759,3773,3793,3829,3851,3854,3870, + 3878,3885,3892,3914,3944,3953,3958,3963,3967,3989,3998,4007,4017,4034, + 4055,4079,4101,4169,4184,4191,4197,4208,4209 +}; + + +static const unsigned char ag_fl[] = { + 1,1,2,0,1,2,0,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,1,1,2,0,1,0,2,4,2,2,1, + 1,1,2,3,1,2,3,2,1,1,1,1,2,1,3,1,3,4,2,1,2,2,1,2,1,1,2,1,1,2,2,2,2,3,2, + 0,2,4,1,2,0,1,3,1,0,4,0,5,1,1,2,4,2,4,1,3,2,1,2,1,2,1,2,3,3,2,3,2,1,1, + 1,2,1,2,1,0,1,2,3,1,2,3,3,2,2,2,1,2,0,1,2,1,3,3,3,0,1,1,1,1,2,1,1,2,1, + 2,0,2,1,2,1,1,1,1,1,1,1,3,3,1,4,1,2,1,1,1,1,1,1,1,1,1,3,5,4,3,3,3,1,3, + 3,4,3,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,1,1,2,1,1,2,2,2,1,2, + 1,2,0,3,1,2,2,3,0,2,3,1,3,1,2,3,3,4,3,1,2,2,2,2,2,2,2,2,2,2,3,2,4,7,1, + 2,0,1,1,2,6,3,4,1,3,1,3,3,4,3,4,3,3,2,4,4,2,4,3,2,1,2,0,1,2,0,2,1,1,3, + 2,2,0,2,1,3,1,3,2,2,0,2,1,2,2,1,1,2,2,2,1,2,2,1,1,2,1,2,0,1,2,1,1,2,1, + 2,0,1,2,1 +}; + +static const unsigned char ag_ptt[] = { + 0, 4, 4, 5, 5, 1, 9, 9, 6, 10, 12, 14, 16, 18, 20, 22, 24, 26, + 28, 30, 32, 34, 36, 40, 40, 42, 42, 44, 44, 45, 45, 38, 41, 41, 43, 43, + 47, 47, 47, 52, 52, 47, 50, 48, 48, 48, 49, 49, 57, 57, 59, 59, 58, 58, + 64, 64, 66, 67, 67, 69, 69, 65, 53, 53, 53, 51, 71, 70, 70, 74, 68, 68, + 68, 62, 62, 79, 79, 62, 77, 82, 77, 83, 77, 80, 80, 80, 78, 86, 86, 89, + 85, 90, 92, 92, 84, 84, 93, 93, 93, 96, 96, 96, 60, 3, 3, 8, 8, 8, + 100,100,104,104,102,102,106,106,106, 39, 39, 39, 39,110,110,111,111,101, + 112,112,116,113,120,120,118,118,119,119,126,126,119,121,121,123,123,127, + 127,131,131, 72, 72,133,133,135,135,135,137,137,138,138,117,117,117,117, + 117,140,140,140,140,140,146,146, 54, 54, 54,148,148,148,149,149,150,152, + 152,152,151,157,157,157,142,142,142,142,142,142,142,142,142,142,142,170, + 172,144,143,143,145,154,154,154,154,154,155,155,156,156, 73, 73,178,178, + 177, 56,181,181,179,180,180,182,182,182,182,182,182,182,182,184,183,183, + 183,183,183,183,183,183,183,183,183,183,201,201,202,202,202,194,193,193, + 187,203,203,136,136,136,136,136,136,136,136,136,136,136,134,134, 55,212, + 213,213,214,214,210,211,211,215,215,215,215,215,216,216,220,220,220,220, + 220,220,222, 75,223,223,223,224,224,224,224, 99,227,227, 99,233,233,233, + 234,234,235,235,219,236,236,236,237,237,238,238,218,232 +}; + +static const unsigned char *ag_valid(int ag_k) { + const unsigned char *ag_tp = &ag_tstt[ag_sbt[(PCB).sn+1]]; + while (*--ag_tp != (unsigned char) ag_k) if (*ag_tp == 0) return NULL; + return ag_tp; +} + +int pgg_change_reduction(pgg_token_type ag_k) { + if (!ag_valid(ag_k)) return 0; + (PCB).reduction_token = ag_k; + return 1; +} + +static void ag_default(const int *ag_tp) { + (PCB).ag_dsn = (PCB).sn; + (PCB).ag_dtl = ag_tp; + while (!ag_valid((pgg_token_type) *ag_tp)) ag_tp++; + (PCB).reduction_token = (pgg_token_type) *ag_tp; +} + + + +static void ag_ra(void) +{ + switch(ag_rpx[(PCB).ag_ap]) { + case 1: ag_rp_1(); break; + case 2: ag_rp_2(); break; + case 3: ag_rp_3(V(0,(int *))); break; + case 4: ag_rp_4(); break; + case 5: ag_rp_5(V(0,(int *))); break; + case 6: ag_rp_6(); break; + case 7: V(0,(int *)) = ag_rp_7(V(0,(int *))); break; + case 8: V(0,(int *)) = ag_rp_8(V(0,(int *))); break; + case 9: V(0,(int *)) = ag_rp_9(); break; + case 10: V(0,(int *)) = ag_rp_10(V(0,(int *))); break; + case 11: ag_rp_11(V(0,(int *))); break; + case 12: ag_rp_12(V(2,(int *))); break; + case 13: V(0,(int *)) = ag_rp_13(); break; + case 14: V(0,(int *)) = ag_rp_14(); break; + case 15: V(0,(int *)) = ag_rp_15(); break; + case 16: ag_rp_16(V(0,(int *))); break; + case 17: ag_rp_17(V(1,(int *))); break; + case 18: ag_rp_18(V(0,(int *))); break; + case 19: V(0,(int *)) = ag_rp_19(V(1,(int *))); break; + case 20: ag_rp_20(V(0,(int *))); break; + case 21: ag_rp_21(V(0,(int *))); break; + case 22: ag_rp_22(V(1,(int *))); break; + case 23: V(0,(int *)) = ag_rp_23(V(1,(int *))); break; + case 24: ag_rp_24(V(0,(int *)), V(1,(int *))); break; + case 25: ag_rp_25(V(1,(int *)), V(2,(int *))); break; + case 26: V(0,(int *)) = ag_rp_26(); break; + case 27: V(0,(int *)) = ag_rp_27(); break; + case 28: V(0,(int *)) = ag_rp_28(); break; + case 29: ag_rp_29(); break; + case 30: ag_rp_30(); break; + case 31: ag_rp_31(); break; + case 32: ag_rp_32(); break; + case 33: ag_rp_33(); break; + case 34: ag_rp_34(); break; + case 35: ag_rp_35(); break; + case 36: ag_rp_36(); break; + case 37: ag_rp_37(); break; + case 38: ag_rp_38(); break; + case 39: ag_rp_39(); break; + case 40: ag_rp_40(); break; + case 41: ag_rp_41(); break; + case 42: ag_rp_42(); break; + case 43: ag_rp_43(V(0,(int *))); break; + case 44: ag_rp_44(V(1,(int *))); break; + case 45: ag_rp_45(V(2,(int *))); break; + case 46: ag_rp_46(V(2,(int *))); break; + case 47: ag_rp_47(V(1,(int *))); break; + case 48: ag_rp_48(V(2,(int *))); break; + case 49: V(0,(int *)) = ag_rp_49(V(1,(int *))); break; + case 50: V(0,(int *)) = ag_rp_50(V(1,(int *))); break; + case 51: V(0,(int *)) = ag_rp_51(V(0,(int *)), V(1,(int *))); break; + case 52: V(0,(int *)) = ag_rp_52(); break; + case 53: V(0,(int *)) = ag_rp_53(); break; + case 54: V(0,(int *)) = ag_rp_54(V(1,(int *))); break; + case 55: V(0,(int *)) = ag_rp_55(V(1,(int *))); break; + case 56: V(0,(int *)) = ag_rp_56(V(0,(int *))); break; + case 57: V(0,(int *)) = ag_rp_57(V(0,(int *)), V(1,(int *))); break; + case 58: V(0,(int *)) = ag_rp_58(); break; + case 59: V(0,(int *)) = ag_rp_59(V(0,(int *)), V(1,(int *))); break; + case 60: V(0,(int *)) = ag_rp_60(V(0,(int *))); break; + case 61: V(0,(int *)) = ag_rp_61(V(0,(int *)), V(1,(int *))); break; + case 62: V(0,(int *)) = ag_rp_62(V(0,(int *))); break; + case 63: V(0,(int *)) = ag_rp_63(V(0,(int *))); break; + case 64: V(0,(int *)) = ag_rp_64(V(0,(int *))); break; + case 65: V(0,(int *)) = ag_rp_65(V(0,(CharSetExpression * *))); break; + case 66: V(0,(CharSetExpression * *)) = ag_rp_66(V(0,(CharSetExpression * *)), V(2,(CharSetExpression * *))); break; + case 67: V(0,(CharSetExpression * *)) = ag_rp_67(V(0,(CharSetExpression * *)), V(2,(CharSetExpression * *))); break; + case 68: V(0,(CharSetExpression * *)) = ag_rp_68(V(0,(CharSetExpression * *)), V(3,(CharSetExpression * *))); break; + case 69: V(0,(CharSetExpression * *)) = ag_rp_69(V(1,(CharSetExpression * *))); break; + case 70: V(0,(int *)) = ag_rp_70(V(0,(int *))); break; + case 71: V(0,(CharSetExpression * *)) = ag_rp_71(V(0,(int *))); break; + case 72: V(0,(CharSetExpression * *)) = ag_rp_72(V(0,(int *))); break; + case 73: V(0,(CharSetExpression * *)) = ag_rp_73(); break; + case 74: V(0,(CharSetExpression * *)) = ag_rp_74(V(1,(CharSetExpression * *))); break; + case 75: V(0,(CharSetExpression * *)) = ag_rp_75(V(1,(int *)), V(3,(int *))); break; + case 76: V(0,(CharSetExpression * *)) = ag_rp_76(V(0,(int *)), V(3,(int *))); break; + case 77: ag_rp_77(V(2,(CharSetExpression * *))); break; + case 78: ag_rp_78(V(2,(int *))); break; + case 79: ag_rp_79(V(2,(int *))); break; + case 80: ag_rp_80(); break; + case 81: ag_rp_81(V(2,(int *))); break; + case 82: ag_rp_82(V(2,(int *))); break; + case 83: ag_rp_83(); break; + case 84: V(0,(int *)) = ag_rp_84(V(0,(int *))); break; + case 85: V(0,(int *)) = ag_rp_85(); break; + case 86: V(0,(int *)) = ag_rp_86(); break; + case 87: V(0,(int *)) = ag_rp_87(); break; + case 88: V(0,(int *)) = ag_rp_88(); break; + case 89: V(0,(int *)) = ag_rp_89(); break; + case 90: V(0,(int *)) = ag_rp_90(); break; + case 91: V(0,(int *)) = ag_rp_91(); break; + case 92: V(0,(int *)) = ag_rp_92(); break; + case 93: V(0,(int *)) = ag_rp_93(); break; + case 94: V(0,(int *)) = ag_rp_94(); break; + case 95: V(0,(int *)) = ag_rp_95(); break; + case 96: V(0,(int *)) = ag_rp_96(V(1,(int *))); break; + case 97: V(0,(int *)) = ag_rp_97(V(0,(int *)), V(1,(int *))); break; + case 98: V(0,(int *)) = ag_rp_98(V(0,(int *)), V(1,(int *))); break; + case 99: V(0,(int *)) = ag_rp_99(V(1,(int *))); break; + case 100: ag_rp_100(V(0,(int *))); break; + case 101: ag_rp_101(V(0,(int *))); break; + case 102: ag_rp_102(V(1,(int *))); break; + case 103: ag_rp_103(V(1,(int *))); break; + case 104: ag_rp_104(V(1,(int *))); break; + case 105: ag_rp_105(V(0,(int *))); break; + case 106: ag_rp_106(V(1,(int *))); break; + case 107: ag_rp_107(V(0,(int *))); break; + case 108: ag_rp_108(V(1,(int *))); break; + case 109: V(0,(int *)) = ag_rp_109(); break; + case 110: V(0,(int *)) = ag_rp_110(); break; + case 111: ag_rp_111(V(0,(int *))); break; + case 112: ag_rp_112(V(1,(int *))); break; + case 113: ag_rp_113(); break; + case 114: ag_rp_114(); break; + case 115: ag_rp_115(); break; + case 116: ag_rp_116(); break; + case 117: ag_rp_117(); break; + case 118: ag_rp_118(V(2,(int *))); break; + case 119: ag_rp_119(); break; + case 120: ag_rp_120(); break; + case 121: ag_rp_121(); break; + case 122: ag_rp_122(); break; + case 123: ag_rp_123(); break; + case 124: ag_rp_124(); break; + case 125: ag_rp_125(); break; + case 126: ag_rp_126(); break; + case 127: ag_rp_127(V(2,(int *))); break; + case 128: ag_rp_128(); break; + case 129: ag_rp_129(); break; + case 130: ag_rp_130(V(4,(int *)), V(6,(int *))); break; + case 131: V(0,(int *)) = ag_rp_131(); break; + case 132: ag_rp_132(V(5,(CharSetExpression * *))); break; + case 133: ag_rp_133(V(2,(CharSetExpression * *))); break; + case 134: ag_rp_134(V(0,(int *))); break; + case 135: ag_rp_135(V(2,(int *))); break; + case 136: V(0,(int *)) = ag_rp_136(); break; + case 137: V(0,(int *)) = ag_rp_137(); break; + case 138: V(0,(int *)) = ag_rp_138(); break; + case 139: V(0,(int *)) = ag_rp_139(); break; + case 140: V(0,(int *)) = ag_rp_140(); break; + case 141: V(0,(int *)) = ag_rp_141(); break; + case 142: V(0,(int *)) = ag_rp_142(V(0,(CharSetExpression * *))); break; + case 143: V(0,(int *)) = ag_rp_143(V(0,(CharSetExpression * *))); break; + case 144: V(0,(int *)) = ag_rp_144(V(0,(CharSetExpression * *))); break; + case 145: V(0,(int *)) = ag_rp_145(); break; + case 146: V(0,(int *)) = ag_rp_146(); break; + case 147: V(0,(int *)) = ag_rp_147(); break; + case 148: V(0,(int *)) = ag_rp_148(); break; + case 149: ag_rp_149(); break; + case 150: ag_rp_150(); break; + case 151: ag_rp_151(); break; + case 152: ag_rp_152(); break; + case 153: ag_rp_153(); break; + case 154: ag_default(&ag_rtt[0]); ag_rp_154(); break; + } + (PCB).la_ptr = (PCB).pointer; +} + + +static const unsigned char ag_ctn[] = { + 0,0, 99,1, 0,0, 0,0,101,1, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, + 0,0, 0,0,210,1, 60,1, 58,1, 58,1, 56,1, 55,1, 0,0, 49,1, 57,1, 47,1, + 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,100,1, 0,0, 0,0, 0,0, 0,0, 77,1, + 0,0, 58,2,179,1, 56,2,219,1,218,1,215,1,215,1,215,1, 0,0, 55,2, 0,0, + 54,2, 0,0, 0,0, 57,1, 0,0, 57,2, 50,1, 50,1, 0,0, 0,0, 0,0, 0,0, + 0,0, 77,2, 77,2, 0,0, 86,1, 0,0, 0,0, 58,3,179,2, 0,0, 0,0, 0,0, + 0,0, 0,0,215,2, 0,0, 0,0,134,1,134,1,136,1, 0,0,150,1,136,1,136,1, + 136,1, 0,0, 0,0,113,1,112,1, 0,0, 0,0, 0,0,146,1, 0,0, 0,0,136,1, + 136,1, 70,1, 70,1, 0,0, 68,1, 0,0, 0,0, 0,0, 0,0, 0,0, 77,3, 77,3, + 0,0, 0,0, 0,0, 0,0, 0,0,182,1,183,1,183,1,183,1,183,1,183,1,183,1, + 183,1,183,1,183,1,183,1,183,1,183,1,182,1,182,1,182,1,182,1,182,1, 0,0, + 0,0, 0,0, 0,0, 0,0, 75,1,134,2,143,1,145,1, 0,0,143,1,152,1,152,1, + 152,1, 65,1, 0,0, 69,1, 69,1,136,2,136,2, 0,0, 0,0,121,1,113,2,112,2, + 0,0, 0,0,146,2, 0,0, 0,0,136,2,136,2, 0,0, 0,0, 70,2, 73,1, 68,2, + 77,4, 0,0, 86,3, 0,0, 0,0, 0,0, 0,0,187,1, 0,0, 0,0,149,2,183,2, + 149,2, 0,0,182,2, 0,0,182,2, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,134,3, + 127,1,150,3,136,3,136,3, 0,0,136,3,136,3,127,1,123,1,146,3, 0,0, 0,0, + 146,3, 0,0, 0,0, 0,0, 73,2, 68,3,183,3,183,3,183,3,187,2,148,1, 0,0, + 149,3,182,3,146,4, 0,0, 0,0, 0,0,203,1,148,2,183,5,201,1,203,2,116,1, + 0,0, 0,0,116,2,201,1 +}; + +#ifndef MISSING_FORMAT +#define MISSING_FORMAT "Missing %s" +#endif +#ifndef UNEXPECTED_FORMAT +#define UNEXPECTED_FORMAT "Unexpected %s" +#endif +#ifndef UNNAMED_TOKEN +#define UNNAMED_TOKEN "input" +#endif + + +static void ag_diagnose(void) { + int ag_snd = (PCB).sn; + int ag_k = ag_sbt[ag_snd]; + + if (*TOKEN_NAMES[ag_tstt[ag_k]] && ag_astt[ag_k + 1] == ag_action_8) { + sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]); + } + else if (ag_astt[ag_sbe[(PCB).sn]] == ag_action_8 + && (ag_k = (int) ag_sbe[(PCB).sn] + 1) == (int) ag_sbt[(PCB).sn+1] - 1 + && *TOKEN_NAMES[ag_tstt[ag_k]]) { + sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]); + } + else if ((PCB).token_number && *TOKEN_NAMES[(PCB).token_number]) { + sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, TOKEN_NAMES[(PCB).token_number]); + } + else if (isprint(INPUT_CODE((*(PCB).pointer))) && INPUT_CODE((*(PCB).pointer)) != '\\') { + char buf[20]; + sprintf(buf, "\'%c\'", (char) INPUT_CODE((*(PCB).pointer))); + sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, buf); + } + else sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, UNNAMED_TOKEN); + (PCB).error_message = (PCB).ag_msg; + + +{ + int ag_sx, ag_t; + + ag_sx = (PCB).ssx; + (PCB).ss[ag_sx] = (PCB).sn; + do { + while (ag_sx && ag_ctn[2*(ag_snd = (PCB).ss[ag_sx])] == 0) ag_sx--; + if (ag_sx) { + ag_t = ag_ctn[2*ag_snd]; + ag_sx -= ag_ctn[2*ag_snd +1]; + ag_snd = (PCB).ss[ag_sx]; + } + else { + ag_snd = 0; + ag_t = ag_ptt[0]; + } + } while (ag_sx && *TOKEN_NAMES[ag_t]==0); + if (*TOKEN_NAMES[ag_t] == 0) ag_t = 0; + (PCB).error_frame_ssx = ag_sx; + (PCB).error_frame_token = (pgg_token_type) ag_t; +} + + +} +static int ag_action_1_r_proc(void); +static int ag_action_2_r_proc(void); +static int ag_action_3_r_proc(void); +static int ag_action_4_r_proc(void); +static int ag_action_1_s_proc(void); +static int ag_action_3_s_proc(void); +static int ag_action_1_proc(void); +static int ag_action_2_proc(void); +static int ag_action_3_proc(void); +static int ag_action_4_proc(void); +static int ag_action_5_proc(void); +static int ag_action_6_proc(void); +static int ag_action_7_proc(void); +static int ag_action_8_proc(void); +static int ag_action_9_proc(void); +static int ag_action_10_proc(void); +static int ag_action_11_proc(void); +static int ag_action_8_proc(void); + + +static int (*const ag_r_procs_scan[])(void) = { + ag_action_1_r_proc, + ag_action_2_r_proc, + ag_action_3_r_proc, + ag_action_4_r_proc +}; + +static int (*const ag_s_procs_scan[])(void) = { + ag_action_1_s_proc, + ag_action_2_r_proc, + ag_action_3_s_proc, + ag_action_4_r_proc +}; + +static int (*const ag_gt_procs_scan[])(void) = { + ag_action_1_proc, + ag_action_2_proc, + ag_action_3_proc, + ag_action_4_proc, + ag_action_5_proc, + ag_action_6_proc, + ag_action_7_proc, + ag_action_8_proc, + ag_action_9_proc, + ag_action_10_proc, + ag_action_11_proc, + ag_action_8_proc +}; + + +static int ag_action_1_er_proc(void); +static int ag_action_2_er_proc(void); +static int ag_action_3_er_proc(void); +static int ag_action_4_er_proc(void); + +static int (*const ag_er_procs_scan[])(void) = { + ag_action_1_er_proc, + ag_action_2_er_proc, + ag_action_3_er_proc, + ag_action_4_er_proc +}; + + +static void ag_error_resynch(void) { + int ag_k; + int ag_ssx = (PCB).ssx; + + ag_diagnose(); + SYNTAX_ERROR; + if ((PCB).exit_flag != AG_RUNNING_CODE) return; + while (1) { + ag_k = ag_sbt[(PCB).sn]; + while (ag_tstt[ag_k] != 63 && ag_tstt[ag_k]) ag_k++; + if (ag_tstt[ag_k] || (PCB).ssx == 0) break; + (PCB).sn = (PCB).ss[--(PCB).ssx]; + } + if (ag_tstt[ag_k] == 0) { + (PCB).sn = PCB.ss[(PCB).ssx = ag_ssx]; + (PCB).exit_flag = AG_SYNTAX_ERROR_CODE; + return; + } + ag_k = ag_sbt[(PCB).sn]; + while (ag_tstt[ag_k] != 63 && ag_tstt[ag_k]) ag_k++; + (PCB).ag_ap = ag_pstt[ag_k]; + (ag_er_procs_scan[ag_astt[ag_k]])(); + while (1) { + ag_k = ag_sbt[(PCB).sn]; + while (ag_tstt[ag_k] != (unsigned char) (PCB).token_number && ag_tstt[ag_k]) + ag_k++; + if (ag_tstt[ag_k] && ag_astt[ag_k] != ag_action_10) break; + if ((PCB).token_number == 46) + {(PCB).exit_flag = AG_SYNTAX_ERROR_CODE; return;} + {(PCB).la_ptr = (PCB).pointer + 1; ag_track();} + (PCB).token_number = (pgg_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr)); + (PCB).la_ptr++; + if (ag_key_index[(PCB).sn]) { + unsigned ag_k = ag_key_index[(PCB).sn]; + int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer)); + if (ag_ch <= 255) { + while (ag_key_ch[ag_k] < ag_ch) ag_k++; + if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k); + } + } + } + (PCB).la_ptr = (PCB).pointer; +} + + +static int ag_action_10_proc(void) { + int ag_t = (PCB).token_number; + (PCB).btsx = 0, (PCB).drt = -1; + do { + ag_track(); + (PCB).token_number = (pgg_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr)); + (PCB).la_ptr++; + if (ag_key_index[(PCB).sn]) { + unsigned ag_k = ag_key_index[(PCB).sn]; + int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer)); + if (ag_ch <= 255) { + while (ag_key_ch[ag_k] < ag_ch) ag_k++; + if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k); + } + } + } while ((PCB).token_number == (pgg_token_type) ag_t); + (PCB).la_ptr = (PCB).pointer; + return 1; +} + +static int ag_action_11_proc(void) { + int ag_t = (PCB).token_number; + + (PCB).btsx = 0, (PCB).drt = -1; + do { + (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer; + (PCB).ssx--; + ag_track(); + ag_ra(); + if ((PCB).exit_flag != AG_RUNNING_CODE) return 0; + (PCB).ssx++; + (PCB).token_number = (pgg_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr)); + (PCB).la_ptr++; + if (ag_key_index[(PCB).sn]) { + unsigned ag_k = ag_key_index[(PCB).sn]; + int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer)); + if (ag_ch <= 255) { + while (ag_key_ch[ag_k] < ag_ch) ag_k++; + if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k); + } + } + } + while ((PCB).token_number == (pgg_token_type) ag_t); + (PCB).la_ptr = (PCB).pointer; + return 1; +} + +static int ag_action_3_r_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + (PCB).btsx = 0, (PCB).drt = -1; + (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap]; + ag_ra(); + return (PCB).exit_flag == AG_RUNNING_CODE; +} + +static int ag_action_3_s_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + (PCB).btsx = 0, (PCB).drt = -1; + (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap]; + ag_ra(); + return (PCB).exit_flag == AG_RUNNING_CODE; +} + +static int ag_action_4_r_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap]; + return 1; +} + +static int ag_action_2_proc(void) { + (PCB).btsx = 0, (PCB).drt = -1; + if ((PCB).ssx >= 128) { + (PCB).exit_flag = AG_STACK_ERROR_CODE; + PARSER_STACK_OVERFLOW; + } + (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer; + GET_CONTEXT; + (PCB).ss[(PCB).ssx] = (PCB).sn; + (PCB).ssx++; + (PCB).sn = (PCB).ag_ap; + ag_track(); + return 0; +} + +static int ag_action_9_proc(void) { + if ((PCB).drt == -1) { + (PCB).drt=(PCB).token_number; + (PCB).dssx=(PCB).ssx; + (PCB).dsn=(PCB).sn; + } + ag_prot(); + (PCB).vs[(PCB).ssx] = ag_null_value; + GET_CONTEXT; + (PCB).ss[(PCB).ssx] = (PCB).sn; + (PCB).ssx++; + (PCB).sn = (PCB).ag_ap; + (PCB).la_ptr = (PCB).pointer; + return (PCB).exit_flag == AG_RUNNING_CODE; +} + +static int ag_action_2_r_proc(void) { + (PCB).ssx++; + (PCB).sn = (PCB).ag_ap; + return 0; +} + +static int ag_action_7_proc(void) { + --(PCB).ssx; + (PCB).la_ptr = (PCB).pointer; + (PCB).exit_flag = AG_SUCCESS_CODE; + return 0; +} + +static int ag_action_1_proc(void) { + ag_track(); + (PCB).exit_flag = AG_SUCCESS_CODE; + return 0; +} + +static int ag_action_1_r_proc(void) { + (PCB).exit_flag = AG_SUCCESS_CODE; + return 0; +} + +static int ag_action_1_s_proc(void) { + (PCB).exit_flag = AG_SUCCESS_CODE; + return 0; +} + +static int ag_action_4_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap]; + (PCB).btsx = 0, (PCB).drt = -1; + (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + else GET_CONTEXT; + (PCB).ss[(PCB).ssx] = (PCB).sn; + ag_track(); + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; + unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + if (ag_tstt[ag_t1] != (PCB).reduction_token) { + (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; + REDUCTION_TOKEN_ERROR; break;} + (PCB).ag_ap = ag_pstt[ag_t1]; + if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break; + } + return 0; +} + +static int ag_action_3_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + (PCB).btsx = 0, (PCB).drt = -1; + (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + else GET_CONTEXT; + (PCB).ss[(PCB).ssx] = (PCB).sn; + ag_track(); + (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap]; + ag_ra(); + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; + unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + if (ag_tstt[ag_t1] != (PCB).reduction_token) { + (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; + REDUCTION_TOKEN_ERROR; break;} + (PCB).ag_ap = ag_pstt[ag_t1]; + if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break; + } + return 0; +} + +static int ag_action_8_proc(void) { + int ag_k = ag_sbt[(PCB).sn]; + while (ag_tstt[ag_k] != 63 && ag_tstt[ag_k]) ag_k++; + if (ag_tstt[ag_k] == 0) ag_undo(); + (PCB).la_ptr = (PCB).pointer; + ag_error_resynch(); + return (PCB).exit_flag == AG_RUNNING_CODE; +} + +static int ag_action_5_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap]; + (PCB).btsx = 0, (PCB).drt = -1; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + else { + GET_CONTEXT; + (PCB).ss[(PCB).ssx] = (PCB).sn; + } + (PCB).la_ptr = (PCB).pointer; + (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap]; + ag_ra(); + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; + unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + if (ag_tstt[ag_t1] != (PCB).reduction_token) { + (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; + REDUCTION_TOKEN_ERROR; break;} + (PCB).ag_ap = ag_pstt[ag_t1]; + if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break; + } + return (PCB).exit_flag == AG_RUNNING_CODE; +} + +static int ag_action_6_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap]; + (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap]; + if ((PCB).drt == -1) { + (PCB).drt=(PCB).token_number; + (PCB).dssx=(PCB).ssx; + (PCB).dsn=(PCB).sn; + } + if (ag_sd) { + (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + } + else { + ag_prot(); + (PCB).vs[(PCB).ssx] = ag_null_value; + GET_CONTEXT; + (PCB).ss[(PCB).ssx] = (PCB).sn; + } + (PCB).la_ptr = (PCB).pointer; + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; + unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + if (ag_tstt[ag_t1] != (PCB).reduction_token) { + (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; + REDUCTION_TOKEN_ERROR; break;} + (PCB).ag_ap = ag_pstt[ag_t1]; + if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break; + } + return (PCB).exit_flag == AG_RUNNING_CODE; +} + + +static int ag_action_2_er_proc(void) { + (PCB).btsx = 0, (PCB).drt = -1; + (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer; + (PCB).ssx++; + (PCB).sn = (PCB).ag_ap; + return 0; +} + +static int ag_action_1_er_proc(void) { + (PCB).btsx = 0, (PCB).drt = -1; + (PCB).exit_flag = AG_SUCCESS_CODE; + return 0; +} + +static int ag_action_4_er_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + (PCB).btsx = 0, (PCB).drt = -1; + (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap]; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + else (PCB).ss[(PCB).ssx] = (PCB).sn; + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; + unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + if (ag_tstt[ag_t1] != (PCB).reduction_token) { + (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; + REDUCTION_TOKEN_ERROR; break;} + (PCB).ag_ap = ag_pstt[ag_t1]; + if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break; + } + return 0; +} + +static int ag_action_3_er_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + (PCB).btsx = 0, (PCB).drt = -1; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + else (PCB).ss[(PCB).ssx] = (PCB).sn; + (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap]; + ag_ra(); + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; + unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + if (ag_tstt[ag_t1] != (PCB).reduction_token) { + (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; + REDUCTION_TOKEN_ERROR; break;} + (PCB).ag_ap = ag_pstt[ag_t1]; + if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break; + } + return 0; +} + + +void init_pgg(void) { + (PCB).la_ptr = (PCB).pointer; + (PCB).ss[0] = (PCB).sn = (PCB).ssx = 0; + (PCB).exit_flag = AG_RUNNING_CODE; + (PCB).line = FIRST_LINE; + (PCB).column = FIRST_COLUMN; + (PCB).btsx = 0, (PCB).drt = -1; +} + +void pgg(void) { + init_pgg(); + (PCB).exit_flag = AG_RUNNING_CODE; + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbt[(PCB).sn]; + if (ag_tstt[ag_t1]) { + unsigned ag_t2 = ag_sbe[(PCB).sn] - 1; + (PCB).token_number = (pgg_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr)); + (PCB).la_ptr++; + if (ag_key_index[(PCB).sn]) { + unsigned ag_k = ag_key_index[(PCB).sn]; + int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer)); + if (ag_ch <= 255) { + while (ag_key_ch[ag_k] < ag_ch) ag_k++; + if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k); + } + } + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] > (unsigned char)(PCB).token_number) + ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + if (ag_tstt[ag_t1] != (unsigned char)(PCB).token_number) + ag_t1 = ag_sbe[(PCB).sn]; + } + (PCB).ag_ap = ag_pstt[ag_t1]; + (ag_gt_procs_scan[ag_astt[ag_t1]])(); + } +} + +