Mercurial > ~dholland > hg > ag > index.cgi
view tests/agcl/parsifal/good/xmlp8.cpp @ 23:cac4c76600eb
Update lint ok file for recent change.
| author | David A. Holland |
|---|---|
| date | Mon, 13 Jun 2022 00:17:10 -0400 |
| parents | 13d2b8934445 |
| children |
line wrap: on
line source
/* * XML Syntax * Transcribed from * Extensible Markup Language (XML) 1.0 * W3C Recommendation 10-February-1998 * http://www.w3.org/TR/1998/REC-xml-19980210 * * Transcription Copyright © Parsifal Software, 1999. * * Revision 1 fixed definition of [4] NameChar * * Revision 2, begun 1/24/00 * * Fixed problem with mixed content declaration [51] * Fixed missing S in [52] * Removed unnecessary "sticky" statement */ #include "xmldef8.h" #include <stdio.h> /* * 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 XMLP8_H #include "xmlp8.h" #endif #ifndef XMLP8_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]) #ifndef PCB_TYPE #define PCB_TYPE parse_pcb_type #endif #define PCB (*pcb_pointer) #define PCB_DECL PCB_TYPE *pcb_pointer #define PCB_POINTER pcb_pointer static void ag_delete_wrappers(PCB_DECL); #ifndef DELETE_WRAPPERS #define DELETE_WRAPPERS ag_delete_wrappers(PCB_POINTER) #endif /* Line -, xmlp8.syn */ #define GET_CONTEXT CONTEXT = Context(PCB.line, PCB.column) typedef parse_pcb_struct Pcb; parse_pcb_struct::parse_pcb_struct() : tokenType(Pcb::none), dtdPresent(0) { // Nothing to do } void parse_pcb_struct::spaceChar(int c) { if (c == '\r') c = '\n'; if (textStack.size()) tokenType = textType; spaceStack.concat(c); } void parse_pcb_struct::textChar(int c) { if (spaceStack.size()) tokenType=spaceType; textStack.concat((char)c); } void parse_pcb_struct::normalize(AgString &s) { char *readPointer = s; char *writePointer = readPointer; if (readPointer == NULL) return; while (*readPointer && strchr("\t\r\n ",*readPointer)) readPointer++; while (*readPointer) { while (*readPointer && strchr("\t\r\n ",*readPointer) == NULL) *writePointer++ = *readPointer++; while (*readPointer && strchr("\t\r\n ",*readPointer)) readPointer++; if (*readPointer) *writePointer++ = ' '; } *writePointer = 0; } void parse_pcb_struct::checkAttributes(const Context &context, const AgString &name, Symtab &map) { if (!dtdPresent) return; Element &element = elementMap[name]; AgBaseStack<Attribute> &attributeList = element.attributeList; int i; for (i = 0; i < attributeList.size(); i++) { Attribute &attribute = attributeList[i]; switch (attribute.def.presence) { case Default::REQUIRED: { const char *value = map.findValue(attribute.name); if (value) continue; map[attribute.name] = "VALUE NOT SPECIFIED"; char buf[200]; sprintf(buf, "Required attribute '%s' is missing", (const char *)attribute.name); warningList.push(Warning(context, buf)); break; } case Default::DEFAULT: { const char *value = map[attribute.name]; if (value == 0) value = attribute.def.value; if (attribute.def.fixed && attribute.def.value == value) continue; char buf[200]; sprintf(buf, "Value of fixed attribute '%s' does not match default value ", (const char *) attribute.name); warningList.push(Warning(context, buf)); break; } } } for (i = 0; i < attributeList.size(); i++) { Attribute &attribute = attributeList[i]; if (attribute.type != Attribute::CDATA) normalize(map[attribute.name]); } } int parse_pcb_struct::warnAttval(const Context &context, const char *value, const AttvalPair &p) { if (value == NULL) return 0; char buf[200]; sprintf(buf, "Value of '%s' ignored. Previously specified as '%s'", (const char *) p.name, value); warningList.push(Warning(context, buf)); return 1; } void parse_pcb_struct::startTag(const Context &context, const AgString &name, AttvalList &list) { Symtab map; for (int i = 0; i < list.size(); i++) { AgString &value = map[list[i].name]; if (warnAttval(context, value, list[i])) continue; value = list[i].value; } currentTagName = name; checkAttributes(context, name, map); currentMap = map; tagStack.push(name); mapStack.push(map); tokenType = startType; } void parse_pcb_struct::emptyTag(const Context &context, const AgString &name, AttvalList &list) { Symtab map; for (int i = 0; i < list.size(); i++) { AgString &value = map[list[i].name]; if (warnAttval(context, value, list[i])) continue; map[list[i].name] = list[i].value; } checkAttributes(context, name, map); currentTagName = name; currentMap = map; tokenType = emptyType; } void parse_pcb_struct::endTag(const AgString &name) { currentTagName = name; currentMap = mapStack.pop(); if (name != tagStack.pop()) { error_message = "Element nesting error"; exit_flag = AG_SEMANTIC_ERROR_CODE; tokenType = errorType; return; } tokenType = endType; } void parse_pcb_struct::registerAttributes(const AgString &name, const AgBaseStack<Attribute> &attributeList) { Element &element = elementMap[name]; if (element.name.size() == 0) element.name = name; int i; for (i = 0; i < attributeList.size(); i++) { AgString attributeName = attributeList[i].name; int &index = element.attributeIndex[attributeName]; if (index != -1) { Attribute &attribute = element.attributeList[index]; Context previous = attribute.context; char buf[200]; sprintf(buf, "Redefinition of '%s::%s' ignored. Defined at line %d, column %d", (const char *) name, (const char *) attributeName, previous.line, previous.column); warningList.push(Warning(attributeList[i].context, buf)); continue; } index = element.attributeList.size(); element.attributeList.push(attributeList[i]); } } #ifndef CONVERT_CASE #define CONVERT_CASE(c) (c) #endif #ifndef TAB_SPACING #define TAB_SPACING 8 #endif static inline AgString ag_rp_1(PCB_DECL, int c) { /* Line -, xmlp8.syn */ return AgString().concat(c); } static inline AgString ag_rp_2(PCB_DECL, AgString &s, int c) { /* Line -, xmlp8.syn */ return s.concat(c); } static inline AgString ag_rp_3(PCB_DECL, AgString &s) { /* Line -, xmlp8.syn */ return s; } static inline AgString ag_rp_4(PCB_DECL, AgString &s) { /* Line -, xmlp8.syn */ return s; } static inline AgString ag_rp_5(PCB_DECL) { /* Line -, xmlp8.syn */ return AgString(); } static inline AgString ag_rp_6(PCB_DECL, AgString &s, int c) { /* Line -, xmlp8.syn */ return s.concat(c); } static inline AgString ag_rp_7(PCB_DECL, AgString &s) { /* Line -, xmlp8.syn */ return s.concat(' '); } static inline AgString ag_rp_8(PCB_DECL, AgString &s, int c) { /* Line -, xmlp8.syn */ return s.concat(c); } static inline AgString ag_rp_9(PCB_DECL, AgString &s) { /* Line -, xmlp8.syn */ return s; } static inline AgString ag_rp_10(PCB_DECL) { /* Line -, xmlp8.syn */ return AgString(); } static inline AgString ag_rp_11(PCB_DECL, AgString &s, int c) { /* Line -, xmlp8.syn */ return s.concat(c); } static inline AgString ag_rp_12(PCB_DECL, AgString &s) { /* Line -, xmlp8.syn */ return s.concat(' '); } static inline AgString ag_rp_13(PCB_DECL, AgString &s, int c) { /* Line -, xmlp8.syn */ return s.concat(c); } static inline AgString ag_rp_14(PCB_DECL, AgString &s) { /* Line -, xmlp8.syn */ return s; } static inline void ag_rp_15(PCB_DECL, AgString &t) { /* Line -, xmlp8.syn */ PCB.tokenType = Pcb::commentType, PCB.commentString = t; } static inline AgString ag_rp_16(PCB_DECL) { /* Line -, xmlp8.syn */ return AgString(); } static inline AgString ag_rp_17(PCB_DECL, AgString &s, int c) { /* Line -, xmlp8.syn */ return s.concat(c); } static inline void ag_rp_18(PCB_DECL, int c) { /* Line -, xmlp8.syn */ PCB.textChar(c); } static inline void ag_rp_19(PCB_DECL) { /* Line -, xmlp8.syn */ PCB.spaceChar('\n'); } static inline void ag_rp_20(PCB_DECL, int c) { /* Line -, xmlp8.syn */ PCB.spaceChar(c); } static inline void ag_rp_21(PCB_DECL, AgString &n) { /* Line -, xmlp8.syn */ PCB.dtdPresent=1; } static inline void ag_rp_22(PCB_DECL, AgString &n, AttvalList &l) { /* Line -, xmlp8.syn */ PCB.startTag(CONTEXT, n, l); } static inline AttvalList ag_rp_23(PCB_DECL) { /* Line -, xmlp8.syn */ return AttvalList(); } static inline AttvalList ag_rp_24(PCB_DECL, AttvalList &list, AttvalPair &a) { /* Line -, xmlp8.syn */ return list.push(a); } static inline AttvalPair ag_rp_25(PCB_DECL, AgString &n, AgString &s) { /* Line -, xmlp8.syn */ return AttvalPair(n, s, CONTEXT); } static inline void ag_rp_26(PCB_DECL, AgString &n) { /* Line -, xmlp8.syn */ PCB.endTag(n); } static inline void ag_rp_27(PCB_DECL, int c) { /* Line -, xmlp8.syn */ PCB.textChar(c); } static inline void ag_rp_28(PCB_DECL, int c) { /* Line -, xmlp8.syn */ PCB.textChar(c); } static inline void ag_rp_29(PCB_DECL, int c) { /* Line -, xmlp8.syn */ PCB.spaceChar(c); } static inline void ag_rp_30(PCB_DECL) { /* Line -, xmlp8.syn */ PCB.spaceChar('\n'); } static inline void ag_rp_31(PCB_DECL, AgString &n, AttvalList &l) { /* Line -, xmlp8.syn */ PCB.emptyTag(CONTEXT, n, l); } static inline void ag_rp_32(PCB_DECL, AgString &n, AttributeList &l) { /* Line -, xmlp8.syn */ PCB.registerAttributes(n, l); } static inline AttributeList ag_rp_33(PCB_DECL, Attribute &a) { /* Line -, xmlp8.syn */ return AttributeList().push(a); } static inline AttributeList ag_rp_34(PCB_DECL, AttributeList &l, Attribute &a) { /* Line -, xmlp8.syn */ return l.push(a); } static inline Attribute ag_rp_35(PCB_DECL, AgString &n, Attribute::Type t, Default &d) { /* Line -, xmlp8.syn */ return Attribute(RULE_CONTEXT[1], n, t, d); } static inline Attribute::Type ag_rp_36(PCB_DECL) { /* Line -, xmlp8.syn */ return Attribute::CDATA; } static inline Attribute::Type ag_rp_37(PCB_DECL) { /* Line -, xmlp8.syn */ return Attribute::ID; } static inline Attribute::Type ag_rp_38(PCB_DECL) { /* Line -, xmlp8.syn */ return Attribute::IDREF; } static inline Attribute::Type ag_rp_39(PCB_DECL) { /* Line -, xmlp8.syn */ return Attribute::IDREFS; } static inline Attribute::Type ag_rp_40(PCB_DECL) { /* Line -, xmlp8.syn */ return Attribute::ENTITY; } static inline Attribute::Type ag_rp_41(PCB_DECL) { /* Line -, xmlp8.syn */ return Attribute::ENTITIES; } static inline Attribute::Type ag_rp_42(PCB_DECL) { /* Line -, xmlp8.syn */ return Attribute::NMTOKEN; } static inline Attribute::Type ag_rp_43(PCB_DECL) { /* Line -, xmlp8.syn */ return Attribute::NMTOKENS; } static inline Attribute::Type ag_rp_44(PCB_DECL) { /* Line -, xmlp8.syn */ return Attribute::NOTATION; } static inline Attribute::Type ag_rp_45(PCB_DECL) { /* Line -, xmlp8.syn */ return Attribute::ENUMERATION; } static inline Default ag_rp_46(PCB_DECL) { /* Line -, xmlp8.syn */ return Default(Default::REQUIRED); } static inline Default ag_rp_47(PCB_DECL) { /* Line -, xmlp8.syn */ return Default(); } static inline Default ag_rp_48(PCB_DECL, AgString &v) { /* Line -, xmlp8.syn */ return Default(v); } static inline Default ag_rp_49(PCB_DECL, AgString &v) { /* Line -, xmlp8.syn */ return Default(v,1); } static inline int ag_rp_50(PCB_DECL, int d) { /* Line -, xmlp8.syn */ return d-'0'; } static inline int ag_rp_51(PCB_DECL, int n, int d) { /* Line -, xmlp8.syn */ return 10*n + d-'0'; } static inline int ag_rp_52(PCB_DECL, int d) { /* Line -, xmlp8.syn */ return d-'0'; } static inline int ag_rp_53(PCB_DECL, int n, int d) { /* Line -, xmlp8.syn */ return 16*n + d; } static inline int ag_rp_54(PCB_DECL, int n, int d) { /* Line -, xmlp8.syn */ return 16*n + (d&7) + 9; } static inline int ag_rp_55(PCB_DECL, AgString &s) { /* Line -, xmlp8.syn */ return PCB.currentEntityName = s, PCB.tokenType = Pcb::entityRefType; } #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 const char ag_wdf[] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 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, 5, 0, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, 8, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 5 }; #undef VW #define VW(i,t) *(t) (&(PCB).vs[(PCB).ssx + (i)]) #undef VNO #define VNO new(&(PCB).vs[(PCB).ssx]) #undef VRO #define VRO(to,v) ag_replace_object((to) &(PCB).vs[(PCB).ssx], v) #undef VWD #define VWD(i,t) ag_delete_object((t) &(PCB).vs[(PCB).ssx + (i)]); #undef VDO #define VDO(to, v) ag_delete_object((to) &(PCB).vs[(PCB).ssx], v) template <class NewObject, class OldObject> static inline void ag_replace_object(AgObjectWrapper<OldObject> *p, const NewObject &o) { delete p; new(p) AgObjectWrapper<NewObject >(o); } template <class Object> static inline void ag_delete_object(AgObjectWrapper<Object> *p) { delete p; } template <class NewObject, class OldObject> static inline const NewObject &ag_delete_object(AgObjectWrapper<OldObject> *p, const NewObject &o) { delete p; return o; } #undef AG_WRAP_4 #define AG_WRAP_4 AgObjectWrapper<AttvalPair > #undef AG_WRAP_5 #define AG_WRAP_5 AgObjectWrapper<AgString > #undef AG_WRAP_6 #define AG_WRAP_6 AgObjectWrapper<AttvalList > #undef AG_WRAP_7 #define AG_WRAP_7 AgObjectWrapper<Attribute > #undef AG_WRAP_8 #define AG_WRAP_8 AgObjectWrapper<AttributeList > #undef AG_WRAP_9 #define AG_WRAP_9 AgObjectWrapper<Default > static void ag_delete_wrappers(PCB_DECL) { int sn = (PCB).sn; int sx = (PCB).ssx; while (sx--) { switch (ag_wdf[sn]) { case 4: ag_delete_object((AG_WRAP_4 *) &(PCB).vs[sx]); break; case 5: ag_delete_object((AG_WRAP_5 *) &(PCB).vs[sx]); break; case 6: ag_delete_object((AG_WRAP_6 *) &(PCB).vs[sx]); break; case 7: ag_delete_object((AG_WRAP_7 *) &(PCB).vs[sx]); break; case 8: ag_delete_object((AG_WRAP_8 *) &(PCB).vs[sx]); break; case 9: ag_delete_object((AG_WRAP_9 *) &(PCB).vs[sx]); break; default: break; } sn = (PCB).ss[sx]; } } static parse_vs_type const ag_null_value NULL_VALUE_INITIALIZER; static const unsigned char ag_rpx[] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 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, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 17, 18, 19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 20, 21, 22, 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, 23, 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, 24, 25, 26, 27, 28, 0, 0, 0, 0, 29, 30, 0, 31, 32, 0, 0, 0, 33, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 34, 0, 0, 0, 0, 0, 0, 0, 35, 36, 37, 38, 0, 0, 0, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 4, 0, 0, 0, 0, 34, 0, 0, 0, 0, 0, 0, 49, 50, 51, 52, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 53, 54, 55, 56, 57, 0, 0, 58, 59, 0, 0, 4, 60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 34, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4 }; static const unsigned char ag_key_itt[] = { 0 }; static const unsigned short ag_key_pt[] = { 0 }; static const unsigned char ag_key_ch[] = { 0, 45, 68,255,120,255, 33, 63,255, 60,255, 45, 68,255, 33, 63,255, 60, 255,110,121,255, 70, 73, 80, 82,255,110,121,255, 73, 89,255, 84,255, 73, 255, 84,255, 77, 78,255, 83,255, 70,255, 69,255, 82,255, 68,255, 83,255, 78,255, 69,255, 75,255, 79,255, 84,255, 68, 77, 79,255, 34, 35, 39, 41, 47, 63, 65, 67, 69, 73, 78, 80, 83,101,115,118,255,118,255, 45,255, 60, 255,120,255, 35,255, 45, 91,255, 33, 63,255, 13, 38, 60,255, 33, 63,255, 60,255, 63,255, 47,255, 13, 93,255,120,255, 35,255, 45, 91,255, 33, 47, 63,255, 13, 38, 60,255, 60,255,110,121,255, 34, 39, 63,101,115,255, 93, 255, 39,255,110,121,255, 34, 39, 63,115,255, 80, 83,255, 76, 78,255, 45, 65, 69, 78,255, 33, 63,255, 60,255,120,255, 35,255, 38,255, 65, 69,255, 35,255, 78,255, 73, 89,255, 84,255, 73,255, 84,255, 78,255, 83,255, 70, 255, 69,255, 82,255, 68,255, 83,255, 78,255, 69,255, 75,255, 79,255, 84, 255, 77, 79,255, 67, 69, 73, 78,255, 41,255, 70, 73, 82,255, 35,255 }; static const unsigned char ag_key_act[] = { 0,3,3,4,3,4,2,1,4,2,4,3,3,4,2,0,4,2,4,3,3,4,3,3,3,3,4,3,3,4,3,0,4,2,4, 2,4,2,4,3,2,4,0,4,1,4,2,4,2,4,1,4,0,4,1,4,2,4,2,4,2,4,2,4,3,2,3,4,2,2, 2,3,3,3,3,3,2,2,2,3,3,3,3,3,4,3,4,3,4,3,4,0,4,1,4,3,3,4,2,0,4,3,2,2,4, 3,0,4,2,4,3,4,3,4,3,3,4,0,4,1,4,3,3,4,2,0,0,4,3,2,2,4,3,4,3,3,4,2,3,3, 3,3,4,3,4,3,4,3,3,4,2,3,3,3,4,3,3,4,3,3,4,3,3,2,3,4,2,0,4,2,4,0,4,1,4, 2,4,3,3,4,3,4,3,4,3,0,4,2,4,2,4,2,4,2,4,0,4,1,4,2,4,2,4,1,4,0,4,1,4,2, 4,2,4,2,4,2,4,2,3,4,3,2,2,2,4,3,4,3,3,3,4,2,4 }; static const unsigned short ag_key_parm[] = { 0, 59, 97, 0, 84, 0, 0, 64, 0, 0, 0, 59, 97, 0, 0, 64, 0, 0, 0,124,122, 0,208,207,176,206, 0,123,121, 0,194,193, 0, 0, 0, 0, 0, 0, 0,154, 0, 0,192, 0,191, 0, 0, 0, 0, 0,190, 0,196, 0, 195, 0, 0, 0, 0, 0, 0, 0, 0, 0,239, 0,199, 0, 0, 0, 0,180, 151, 2,155,189, 0, 0, 0,238,237,243,120, 90, 0, 90, 0, 1, 0, 97, 0,226, 0,224, 0, 59, 75, 0, 0, 64, 0, 76, 0, 0, 0, 59, 64, 0, 0, 0, 2, 0,151, 0, 76, 3, 0,226, 0,224, 0, 59, 75, 0, 0,147, 64, 0, 76, 0, 0, 0,147, 0,124,122, 0, 0,123, 2,243,120, 0, 3, 0,121, 0,124,122, 0, 0,123, 2,120, 0,238,237, 0,152,232, 0, 59, 181, 0,250, 0, 0, 64, 0, 0, 0,226, 0,224, 0, 0, 0,155,154, 0, 176, 0,239, 0,194,193, 0, 0, 0, 0, 0, 0, 0, 0, 0,192, 0,191, 0, 0, 0, 0, 0,190, 0,196, 0,195, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,199, 0,189, 0, 0, 0, 0,180, 0,208,207,206, 0, 0, 0 }; static const unsigned short ag_key_jmp[] = { 0, 0, 2, 0, 9, 0, 1, 4, 0, 6, 0, 12, 14, 0, 11, 0, 0, 14, 0, 21, 24, 0, 28, 33, 40, 46, 0, 54, 57, 0, 79, 0, 0, 30, 0, 33, 0, 35, 0, 75, 37, 0, 0, 0, 42, 0, 44, 0, 46, 0, 48, 0, 0, 0, 52, 0, 54, 0, 56, 0, 58, 0, 60, 0, 82, 62, 86, 0, 19, 22, 27, 61, 63, 65, 67, 70, 39, 50, 64, 93, 99,105,113,123, 0,130, 0,137, 0,139, 0, 0, 0, 91, 0,150,152, 0, 95, 0, 0,148, 93, 98, 0,159, 0, 0, 105, 0,162, 0,164, 0,166,168, 0, 0, 0,117, 0,173,175, 0,121, 0, 0, 0,171,119,124, 0,182, 0,184,187, 0,134,191,195,197,205, 0,215, 0,218, 0,223,226, 0,147,230,234,236, 0,246,252, 0,267,273, 0,258, 260,158,278, 0,161, 0, 0,166, 0, 0, 0,171, 0,173, 0,286,289, 0, 294, 0,301, 0,311, 0, 0,184, 0,187, 0,189, 0,191, 0, 0, 0,195, 0,197, 0,199, 0,201, 0, 0, 0,205, 0,207, 0,209, 0,211, 0,213, 0,215,314, 0,306,193,203,217, 0,321, 0,323,328,335, 0,227, 0 }; static const unsigned char ag_key_index[] = { 9, 0, 17, 0, 68, 85, 0, 87, 17, 89, 0,101,108, 0,110,110,110, 87, 0,108,112, 0, 0,114, 0, 0, 0,128,132, 0, 0, 0,137,110,110,110, 0, 0,112,114,143, 0, 0,145, 0, 0, 0,110, 0,110,110, 0,112,112, 0, 0, 0, 0,145, 0,150,110,155, 0, 0, 0, 0, 0,110, 0, 0, 0, 169, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,169, 0,175,175, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,175,175, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,155,155, 0, 0,177, 0,175,175, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,180, 0,155,175, 0,175, 0,182, 0,220,180, 0, 0, 0, 0, 0, 0, 0,225, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,231, 0,225, 0,225,225,225, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,225, 0, 0, 0, 0, 0,225, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; static const unsigned char ag_key_ends[] = { 45,0, 79,67,84,89,80,69,0, 109,108,0, 45,0, 79,67,84,89,80,69,0, 111,34,0, 101,115,34,0, 73,88,69,68,0, 77,80,76,73,69,68,0, 67,68,65,84,65,0, 69,81,85,73,82,69,68,0, 111,39,0, 101,115,39,0, 42,0, 62,0, 62,0, 78,89,0, 68,65,84,65,0, 80,84,89,0, 69,83,0, 65,84,65,0, 84,65,84,73,79,78,0, 85,66,76,73,67,0, 89,83,84,69,77,0, 110,99,111,100,105,110,103,0, 116,97,110,100,97,108,111,110,101,0, 101,114,115,105,111,110,0, 101,114,115,105,111,110,0, 45,0, 33,68,79,67,84,89,80,69,0, 10,0, 45,0, 67,68,65,84,65,91,0, 45,45,0, 62,0, 62,0, 10,0, 93,62,0, 10,0, 45,0, 67,68,65,84,65,91,0, 47,0, 111,34,0, 101,115,34,0, 110,111,39,0, 62,0, 110,99,111,100,105,110,103,0, 116,97,110,100,97,108,111,110,101,0, 93,62,0, 121,101,115,39,0, 111,34,0, 101,115,34,0, 110,111,39,0, 62,0, 116,97,110,100,97,108,111,110,101,0, 85,66,76,73,67,0, 89,83,84,69,77,0, 45,0, 84,84,76,73,83,84,0, 69,77,69,78,84,0, 84,73,84,89,0, 79,84,65,84,73,79,78,0, 78,89,0, 77,80,84,89,0, 80,67,68,65,84,65,0, 68,65,84,65,0, 68,65,84,65,0, 69,83,0, 84,65,84,73,79,78,0, 42,0, 73,88,69,68,0, 77,80,76,73,69,68,0, 69,81,85,73,82,69,68,0, }; #define AG_TCV(x) (((int)(x) >= -1 && (int)(x) <= 255) ? ag_tcv[(x) + 1] : 0) static const unsigned short ag_tcv[] = { 10,262,262,262,262,262,262,262,262,262,253,254,262,262,255,262,262,262, 262,262,262,262,262,262,262,262,262,262,262,262,262,262,262,254,263, 25, 263,263,229,228, 32,167,172,162,163,173,127,260,263,225,225,225,225,225, 225,225,225,225,225,256,222,144, 94, 61,161,263,227,227,227,227,227,227, 257,257,137,257,257,257,257,257,257,257,257,257,257,257,257,257,257,139, 257,257,101,264,106,264,258,264,227,227,227,227,227,227,257,257,137,257, 257,257,257,257,257,257,257,257,257,257,257,257,257,139,257,257,264,168, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264,264, 264,264,264,264,261,264,264,264,264,264,264,264,264,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 264,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259,259, 259,259,259,259,259,259,259,259,259,259,259,259,259,259,264,259,259,259, 259,259,259,259,259 }; #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 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; #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(PCB_DECL) { int ag_k = 0; while (ag_k < (PCB).rx) { int ag_ch = (PCB).lab[ag_k++]; switch (ag_ch) { 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++; } } ag_k = 0; while ((PCB).rx < (PCB).fx) (PCB).lab[ag_k++] = (PCB).lab[(PCB).rx++]; (PCB).fx = ag_k; (PCB).rx = 0; } static void ag_prot(PCB_DECL) { 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(PCB_DECL) { 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 = (parse_token_type) (PCB).drt; (PCB).ssx = (PCB).dssx; (PCB).sn = (PCB).dsn; (PCB).drt = -1; } static const unsigned short ag_tstt[] = { 255,254,253,144,97,84,64,59,0,4,5,80,81, 255,254,253,0,11,13, 255,254,253,144,97,64,59,0,7,8,9,58,63, 144,0,6,140,141, 255,254,253,0, 90,0,85, 259,258,257,256,227,139,137,0,14,65, 264,263,261,260,259,258,257,256,254,253,229,228,227,225,222,173,172,168,167, 163,162,161,144,139,137,127,106,101,94,61,32,25,1,0,60, 255,254,253,64,59,0,7,58,63, 144,97,0,82,83, 259,258,257,256,227,139,137,0,14, 264,263,262,261,260,259,258,257,256,255,254,253,229,228,227,226,225,224,222, 173,172,168,167,163,162,161,144,139,137,127,106,101,94,76,75,64,61,59, 32,25,0,6,41,42,58,63,71,72,140,141,142,148,149,221,223, 255,254,253,64,59,10,0,7,8,9,58,63, 255,254,253,94,0,11,13,87,91, 255,254,253,2,0,11,13,86,87, 261,260,259,258,257,256,227,225,139,137,127,0, 255,254,253,2,0,11,13,70, 264,263,261,260,259,258,257,256,254,253,229,228,227,225,222,173,172,168,167, 163,162,161,144,139,137,127,106,101,94,61,32,25,1,0, 255,254,253,0,11,13, 255,254,253,144,64,59,0,7,8,9,58,63, 261,260,259,258,257,256,255,254,253,227,225,151,139,137,127,61,0,145, 225,0, 225,0, 264,263,261,260,259,258,257,256,255,254,253,229,228,227,225,222,173,172,168, 167,163,162,161,144,139,137,127,106,101,94,76,61,32,25,3,0,73,77,78,79, 259,258,257,256,227,139,137,0,14, 227,225,222,0, 225,222,0, 264,263,262,261,260,259,258,257,256,255,254,253,229,228,227,226,225,224,222, 173,172,168,167,163,162,161,144,139,137,127,106,101,94,76,75,64,61,59, 32,25,0,6,41,42,58,63,71,72,140,141,148,221,223, 147,0,143, 10,0, 94,0, 32,25,0,93, 243,124,123,122,120,0,88,89, 2,0, 264,263,261,260,259,258,257,256,229,228,227,225,222,173,172,168,167,163,162, 161,144,139,137,127,106,101,94,61,32,25,2,0,69, 2,0, 61,0, 259,258,257,256,227,139,137,0,14, 255,254,253,151,61,0,11,13,87, 264,263,261,260,259,258,257,256,255,254,253,229,228,227,225,222,173,172,168, 167,163,162,161,144,139,137,127,106,101,94,76,61,32,25,0,77, 3,0,74, 261,260,259,258,257,256,227,225,222,139,137,127,0, 259,258,257,256,227,139,137,0,14, 255,254,253,121,32,25,0,11,13,87, 260,258,257,256,227,225,139,137,127,0,92,96, 260,258,257,256,227,225,139,137,127,0,92,96, 255,254,253,94,0,11,13,87,91, 255,254,253,2,0,11,13,87, 255,254,253,94,0,11,13,87,91, 255,254,253,2,0,11,13,87, 264,263,261,260,259,258,257,256,254,253,229,228,227,225,222,173,172,168,167, 163,162,161,144,139,137,127,106,101,94,61,32,25,2,0,67,68, 261,260,259,258,257,256,255,254,253,227,225,139,137,127,101,61,0,11,13,100, 259,258,257,256,227,139,137,0,14,146, 151,61,0, 261,260,259,258,257,256,255,254,253,227,225,139,137,127,61,0,11,13,87, 260,258,257,256,227,225,139,137,127,0, 25,0, 32,0, 121,0, 32,25,0,245, 124,123,122,120,0,89, 264,263,261,260,259,258,257,256,254,253,229,228,227,225,222,173,172,168,167, 163,162,161,144,139,137,127,106,101,94,61,32,25,0, 238,237,101,61,0,98,99, 101,61,0,107, 261,260,259,258,257,256,255,254,253,227,225,139,137,127,94,0,11,13,87,91, 61,0, 257,227,139,137,0,244, 257,227,139,137,0,244, 255,254,253,2,0,11,13,87, 255,254,253,0,11,13, 255,254,253,0,11,13, 255,254,253,101,61,0,11,13,87, 255,254,253,250,232,229,181,152,106,64,59,0,27,58,63,102,103,104,105,108, 109,110,111,230,231, 61,0, 32,25,0,37, 258,257,227,225,139,137,127,32,25,0,247,248,249, 32,0, 25,0, 32,25,0,51, 32,25,0,44, 255,254,253,0,11,13, 255,254,253,0,11,13, 255,254,253,0,11,13, 255,254,253,0,11,13, 259,258,257,256,227,139,137,0,14, 255,254,253,250,232,229,181,152,64,59,0,27,58,63,102,103,108,109,110,111, 230,231, 106,0, 264,263,262,261,260,259,258,257,256,255,254,253,228,227,226,225,224,222,173, 172,168,167,163,162,161,144,139,137,127,106,101,94,61,32,25,0,39, 264,263,262,261,260,259,258,257,256,255,254,253,228,227,226,225,224,222,173, 172,168,167,163,162,161,144,139,137,127,106,101,94,61,32,25,0,38, 258,257,227,225,139,137,127,0,247, 263,260,258,257,256,255,254,229,227,225,222,173,172,167,163,162,161,139,137, 127,32,0,56,57, 263,260,258,257,256,255,254,229,227,225,222,173,172,167,163,162,161,139,137, 127,32,25,0,53,54, 255,254,253,0,11,13, 264,263,262,261,260,259,258,257,256,255,254,253,229,228,227,225,222,173,172, 168,167,163,162,161,144,139,137,127,106,101,94,61,32,25,0,49,50, 264,263,262,261,260,259,258,257,256,255,254,253,229,228,227,225,222,173,172, 168,167,163,162,161,144,139,137,127,106,101,94,61,32,25,0,46,47, 259,258,257,256,229,227,139,137,0,14, 259,258,257,256,227,139,137,0,14, 259,258,257,256,227,139,137,0,14, 259,258,257,256,227,139,137,0,14, 261,260,259,258,257,256,227,225,222,139,137,127,0, 255,254,253,61,0,11,13,87, 264,263,262,261,260,259,258,257,256,255,254,253,228,227,226,225,224,222,173, 172,168,167,163,162,161,144,139,137,127,106,101,94,61,32,25,0,41,42,221, 223, 264,263,262,261,260,259,258,257,256,255,254,253,228,227,226,225,224,222,173, 172,168,167,163,162,161,144,139,137,127,106,101,94,61,32,25,0,41,42,221, 223, 263,260,258,257,256,255,254,229,227,225,222,173,172,167,163,162,161,139,137, 127,0, 32,0, 263,260,258,257,256,255,254,229,227,225,222,173,172,167,163,162,161,139,137, 127,32,0, 25,0, 32,25,0,44, 264,263,262,261,260,259,258,257,256,255,254,253,229,228,227,225,222,173,172, 168,167,163,162,161,144,139,137,127,106,101,94,61,25,0, 32,0, 264,263,262,261,260,259,258,257,256,255,254,253,229,228,227,225,222,173,172, 168,167,163,162,161,144,139,137,127,106,101,94,61,32,0, 25,0, 255,254,253,0,11,13, 261,260,259,258,257,256,255,254,253,227,225,139,137,127,0,11,13, 261,260,259,258,257,256,255,254,253,227,225,139,137,127,0,11,13, 261,260,259,258,257,256,255,254,253,227,225,139,137,127,0,11,13,182,183, 261,260,259,258,257,256,255,254,253,227,225,139,137,127,0,11,13, 259,258,257,256,227,139,137,0,14, 238,237,32,25,0,24,98,233, 238,237,0,98,251,252, 259,258,257,256,227,139,137,0,14, 255,254,253,61,0,11,13,87,183, 167,155,154,0,153,156,157,158,159,160, 261,260,259,258,257,256,255,254,253,227,225,139,137,127,0,11,13, 264,263,262,261,260,259,258,257,256,255,254,253,229,228,227,226,225,224,222, 173,172,168,167,163,162,161,144,139,137,127,106,101,94,61,32,25,0,27,28, 34,35,36,41,42,221,223, 264,263,262,261,260,259,258,257,256,255,254,253,229,228,227,226,225,224,222, 173,172,168,167,163,162,161,144,139,137,127,106,101,94,61,32,25,0,27,28, 29,30,31,41,42,221,223, 255,254,253,61,0,11,13,235,236, 255,254,253,61,0,11,13,87, 61,0, 255,254,253,0,11,13, 255,254,253,61,0,11,13,87, 61,0, 261,260,259,258,257,256,255,254,253,227,225,139,137,127,0,11,13, 259,258,257,256,227,139,137,0,14, 61,0, 255,254,253,163,162,161,61,0,164, 259,258,257,256,255,254,253,227,176,167,139,137,0,11,13,87, 255,254,253,61,0,11,13,87, 238,237,32,25,0,24,98,234, 264,263,262,261,260,259,258,257,256,255,254,253,229,228,227,226,225,224,222, 173,172,168,167,163,162,161,144,139,137,127,106,101,94,61,25,0,27,28,34, 41,42,221,223, 32,0, 264,263,262,261,260,259,258,257,256,255,254,253,229,228,227,226,225,224,222, 173,172,168,167,163,162,161,144,139,137,127,106,101,94,61,32,0,27,28,29, 41,42,221,223, 25,0, 239,0, 32,25,0,51, 199,196,195,194,193,192,191,190,189,167,0,184,186,187,188,197,198, 259,258,257,256,227,176,167,139,137,0,14,158,159,165,166, 61,0, 255,254,253,61,0,11,13,87, 255,254,253,0,11,13, 255,254,253,61,0,11,13,87, 261,260,259,258,257,256,227,225,139,137,127,0,18,19, 255,254,253,0,11,13, 255,254,253,0,11,13, 255,254,253,180,172,168,0,11,13,87,177,178,179, 259,258,257,256,255,254,253,227,167,139,137,0,11,13,87, 261,260,259,258,257,256,227,225,139,137,127,0, 255,254,253,173,172,168,163,162,161,0,164, 255,254,253,173,172,168,0,11,13,87, 61,0, 259,258,257,256,227,139,137,0,14, 32,25,0,44, 261,260,259,258,257,256,227,225,139,137,127,0, 255,254,253,172,168,0,11,13,87, 167,0, 208,207,206,32,25,0,37,185, 172,0, 180,172,168,0, 259,258,257,256,255,254,253,227,139,137,0,11,13,87, 168,0, 255,254,253,0,11,13, 180,0, 259,258,257,256,227,167,139,137,0,14,158,159,165,166, 173,172,168,0,169,170,171,174,175, 261,260,259,258,257,256,227,225,139,137,127,0, 172,168,0,203,204,205, 259,258,257,256,227,139,137,0,14, 255,254,253,0,11,13, 259,258,257,256,227,139,137,0,14, 259,258,257,256,255,254,253,227,139,137,0,11,13,87, 259,258,257,256,255,254,253,227,167,139,137,0,11,13,87, 173,172,0,174, 259,258,257,256,255,254,253,227,167,139,137,0,11,13,87, 168,0,169, 172,0, 261,260,259,258,257,256,255,254,253,227,225,139,137,127,0,11,13,87, 168,0,203, 172,0, 261,260,259,258,257,256,255,254,253,227,225,172,168,139,137,127,0,11,13,87, 32,25,0,37, 261,260,259,258,257,256,227,225,139,137,127,0, 259,258,257,256,227,139,137,0,14, 259,258,257,256,227,167,139,137,0,14,158,159,165,166, 259,258,257,256,227,167,139,137,0,14,158,159,165,166, 261,260,259,258,257,256,227,225,139,137,127,0,18,19, 172,168,0,200,201,202, 261,260,259,258,257,256,227,225,139,137,127,0, 255,254,253,173,172,0,11,13,87, 255,254,253,172,168,0,11,13,87, 255,254,253,172,168,0,11,13,87, 259,258,257,256,255,254,253,227,139,137,0,11,13,87, 168,0,200, 172,0, 259,258,257,256,227,139,137,0,14, 261,260,259,258,257,256,255,254,253,227,225,172,168,139,137,127,0,11,13,87, 0 }; static unsigned const char ag_astt[2389] = { 8,8,8,5,5,1,8,8,7,0,1,1,1,1,1,1,7,1,1,1,1,1,5,8,1,1,7,1,1,1,1,1,1,7,1,1,1, 9,9,9,5,1,7,1,2,2,2,2,2,2,2,7,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,4,4,4,4,4,7,1,9,9,9,1,1,5,3,3,3,5,1,7,1,3,2,2,2,2,2,2,2,7, 1,2,2,2,2,2,2,2,2,2,2,2,2,2,1,2,1,2,1,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,1,1, 2,1,2,2,7,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,7,1,1,1,1,1,1,1,1,8,7,1, 1,1,1,1,1,1,5,7,1,1,1,1,10,10,10,10,10,10,10,10,10,10,10,5,1,1,1,8,7,1,1,1, 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10, 10,10,10,10,10,10,10,1,7,1,1,1,7,1,1,1,1,1,5,1,1,7,1,1,3,1,1,10,10,10,10, 10,10,4,4,4,10,10,4,10,10,10,4,7,1,2,7,2,7,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,5,7,1,1,1,1,2,2,2,2,2,2,2,7,1,10,10,3, 7,10,3,7,2,2,2,2,2,2,2,2,2,2,2,2,2,1,2,1,2,1,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2, 2,1,1,2,1,2,2,5,3,2,3,3,3,3,1,3,1,3,1,1,1,7,3,3,7,1,7,1,1,7,3,1,1,1,1,1,5, 1,1,3,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,5,7,3, 3,7,2,7,2,2,2,2,2,2,2,7,1,1,1,1,8,8,7,1,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,5,3,3,7,3,10,10,10,10,10,10,10,10,2, 10,10,10,7,2,2,2,2,2,2,2,7,1,1,1,1,5,5,5,7,3,1,3,1,1,1,1,1,1,1,1,1,7,1,1,1, 1,1,1,1,1,1,1,1,7,1,1,1,1,1,8,7,1,1,1,1,1,1,1,5,7,3,1,3,1,1,1,8,7,1,1,1,1, 1,1,1,5,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,1,1,1,1,1,1,1, 1,1,1,5,7,1,3,10,10,10,10,10,10,1,1,1,10,10,10,10,10,8,5,7,1,1,1,2,2,2,2,2, 2,2,5,1,2,2,2,7,10,10,10,10,10,10,1,1,1,10,10,10,10,10,8,7,1,1,1,9,9,9,9,9, 9,9,9,9,5,3,7,3,7,3,7,1,1,7,3,1,1,1,1,5,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,5,1,1,5,5,7,1,3,1,8,7,1,10,10,10,10,10,10, 1,1,1,10,10,10,10,10,8,7,1,1,1,1,2,7,1,1,1,1,7,1,1,1,1,1,7,1,1,1,1,5,7,3,1, 3,1,1,1,7,1,1,1,1,1,7,1,1,1,1,1,5,5,7,3,1,3,1,1,1,1,1,1,1,1,8,1,1,7,1,1,1, 1,1,1,1,1,1,1,1,1,1,2,7,1,1,7,2,1,1,1,1,1,1,1,5,5,7,1,1,3,3,7,3,7,1,1,7,1, 1,1,7,3,1,1,1,7,1,1,1,1,1,7,1,1,1,1,1,7,1,1,1,1,1,7,1,1,2,2,2,2,2,2,2,7,1, 9,9,9,1,1,1,1,1,1,1,5,3,3,3,3,3,3,3,3,3,3,3,1,7,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,4,4,4,4,4,4,4,7,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,4,4,4,4,4,4,4,7,1,9,9,9,9,9,9,9,5,3,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,8,7,1,1,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,8,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,1,8,7,1,1,2,2,2,2,1,2,2,2,7,1,2,2,2,2,2,2,2,7,1,2,2,2,2, 2,2,2,7,1,2,2,2,2,2,2,2,7,1,10,10,10,10,10,10,10,10,2,10,10,10,7,1,1,1,5,7, 3,1,3,10,10,10,10,10,10,10,10,10,10,10,10,1,10,1,10,1,10,10,10,10,10,10,10, 10,10,10,10,10,10,10,10,10,2,10,7,2,2,1,1,10,10,10,10,10,10,10,10,10,10,10, 10,1,10,1,10,1,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,2,7,2,2, 1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,5,3,7,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,5,3,7,1,1,7,3,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,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,1,1,1,7,1,1,10,10,10,10,10,10,1,1,1,10,10,10, 10,10,7,1,1,10,10,10,10,10,10,1,1,1,10,10,10,10,10,7,1,1,10,10,10,10,10,10, 1,1,1,10,10,10,10,10,7,1,1,1,2,10,10,10,10,10,10,1,1,1,10,10,10,10,10,7,1, 1,2,2,2,2,2,2,2,7,1,1,1,1,1,7,1,1,1,1,1,7,1,1,1,2,2,2,2,2,2,2,7,1,1,1,1,8, 7,1,1,1,2,1,1,1,7,1,1,1,1,1,1,10,10,10,10,10,10,1,1,1,10,10,10,10,10,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,1,1,8,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,1,1,1, 1,1,1,1,1,1,1,8,7,1,1,1,1,1,1,1,1,1,1,1,1,5,7,1,1,3,3,1,1,1,5,7,3,1,3,2,7, 1,1,1,7,1,1,1,1,1,5,7,3,1,3,2,7,10,10,10,10,10,10,1,1,1,10,10,10,10,10,7,1, 1,2,2,2,2,2,2,2,5,1,2,7,5,5,5,3,3,3,5,7,3,8,8,8,8,1,1,1,8,8,8,8,8,7,1,1,1, 1,1,1,8,7,1,1,1,1,1,1,1,7,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,1,1,9,1,9,1,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,5,3,3,3,3,3,1,1,3,7,9,9,9,9,9,9,9,9,9,9,9,9,1, 1,9,1,9,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,5,3,3,3,3,3,1,1,3,7,1,5,1,1,7, 1,1,2,2,2,2,2,2,2,2,1,7,1,1,1,1,2,2,2,2,2,2,2,1,1,2,2,7,1,1,1,1,1,2,7,1,1, 1,8,7,1,1,1,1,1,1,7,1,1,1,1,1,5,7,1,1,3,1,1,1,1,1,1,1,1,1,1,1,7,1,1,1,1,1, 7,1,1,1,1,1,7,1,1,1,1,1,8,8,1,7,1,1,1,1,1,1,8,8,8,8,1,1,1,8,8,8,8,7,1,1,1, 10,10,10,10,10,10,10,10,10,10,10,5,5,5,5,5,5,5,3,3,3,7,3,1,1,1,8,5,8,7,1,1, 1,2,7,2,2,2,2,2,2,2,7,1,1,1,5,3,9,9,9,9,9,9,9,9,9,9,9,5,1,1,1,5,8,7,1,1,1, 1,7,1,2,2,1,1,7,2,2,3,7,5,5,5,7,8,8,8,8,1,1,1,8,8,8,7,1,1,1,1,5,1,1,1,5,3, 1,3,7,2,2,2,2,2,1,2,2,7,1,1,1,1,1,1,8,1,7,1,1,1,1,1,10,10,10,10,10,10,10, 10,10,10,10,4,8,1,7,1,1,1,2,2,2,2,2,2,2,7,1,1,1,1,7,1,1,2,2,2,2,2,2,2,7,1, 8,8,8,8,1,1,1,8,8,8,7,1,1,1,8,8,8,8,1,1,1,8,8,8,8,7,1,1,1,1,3,7,3,8,8,8,8, 1,1,1,8,8,8,8,7,1,1,1,1,5,3,3,7,8,8,8,8,8,8,1,1,1,8,8,8,8,8,7,1,1,1,1,5,3, 3,7,10,10,10,10,10,10,1,1,1,10,10,5,8,10,10,10,7,1,1,1,1,1,7,2,10,10,10,10, 10,10,10,10,10,10,10,4,2,2,2,2,2,2,2,7,1,2,2,2,2,2,1,2,2,7,1,1,1,1,1,2,2,2, 2,2,1,2,2,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,1,1,8,1,7,1,1,1,10,10,10,10, 10,10,10,10,10,10,10,4,1,1,1,5,5,7,3,1,3,1,1,1,5,5,7,3,1,3,1,1,1,5,5,7,3,1, 3,8,8,8,8,1,1,1,8,8,8,7,1,1,1,1,5,3,2,7,2,2,2,2,2,2,2,7,1,10,10,10,10,10, 10,1,1,1,10,10,5,5,10,10,10,7,2,1,2,11 }; static const unsigned short ag_pstt[] = { 2,2,2,94,94,1,2,2,0,0,3,2,2, 4,4,4,1,5,4, 8,8,8,3,9,6,7,2,8,8,9,8,8, 10,3,12,12,11, 7,7,7,8, 13,5,14, 9,9,9,9,9,9,9,6,15,16, 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, 71,71,71,71,71,71,71,71,7,17, 2,2,2,6,7,4,2,2,2, 96,18,9,19,98, 9,9,9,9,9,9,9,10,20, 178,178,178,178,178,178,178,178,178,181,181,181,178,24,178,21,178,22,178, 178,178,178,178,178,178,178,10,178,178,178,178,178,178,182,23,6,178,7, 178,178,11,27,179,27,27,27,27,23,27,11,28,27,27,26,25, 8,8,8,6,7,29,12,8,8,29,8,8, 4,4,4,30,13,30,4,30,31, 4,4,4,100,14,32,4,33,33, 10,10,10,10,10,10,10,10,10,10,10,82, 4,4,4,35,16,34,4,35, 72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72,72, 72,72,72,72,72,72,72,36,17, 4,4,4,18,37,4, 8,8,8,3,6,7,19,8,8,97,8,8, 10,10,10,10,10,10,170,170,170,10,10,170,10,10,10,170,20,38, 274,21, 272,22, 85,85,85,85,85,85,85,85,87,87,87,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,86,85,85,85,90,23,40,39,39,40, 9,9,9,9,9,9,9,24,41, 276,275,271,25, 273,270,26, 178,178,178,178,178,178,178,178,178,181,181,181,178,24,178,21,178,22,178, 178,178,178,178,178,178,178,10,178,178,178,178,178,178,182,23,6,178,7, 178,178,176,175,179,175,175,175,175,23,175,11,175,26,25, 42,28,168, 5,29, 43,30, 45,44,31,108, 48,47,47,47,46,101,49,47, 99,33, 50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50, 50,50,50,50,50,77,34,80, 81,35, 70,36, 9,9,9,9,9,9,9,37,51, 4,4,4,53,53,38,52,4,53, 85,85,85,85,85,85,85,85,87,87,87,85,85,85,85,85,85,85,85,85,85,85,85,85,85, 85,85,85,85,85,86,85,85,85,91,89, 83,40,83, 10,10,10,10,10,10,10,10,279,10,10,10,41, 9,9,9,9,9,9,9,42,54, 4,4,4,100,100,100,43,109,4,109, 55,55,55,55,55,55,55,55,55,44,56,55, 55,55,55,55,55,55,55,55,55,45,57,55, 4,4,4,30,46,30,4,30,58, 4,4,4,100,47,105,4,105, 4,4,4,30,48,30,4,30,59, 4,4,4,100,49,60,4,103, 61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61, 61,61,61,61,61,61,61,75,50,61,78, 10,10,10,10,10,10,4,4,4,10,10,10,10,10,63,118,51,62,4,63, 9,9,9,9,9,9,9,101,64,171, 186,169,53, 10,10,10,10,10,10,4,4,4,10,10,10,10,10,65,54,65,4,65, 111,111,111,111,111,111,111,111,111,112, 107,56, 106,57, 148,58, 66,67,59,302, 68,68,68,46,101,68, 74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74,74, 74,74,74,74,74,74,74,76, 69,70,116,116,62,71,119, 72,73,63,73, 10,10,10,10,10,10,4,4,4,10,10,10,10,10,30,64,30,4,30,74, 173,65, 75,75,75,75,66,76, 75,75,75,75,67,77, 4,4,4,100,68,104,4,104, 4,4,4,69,78,4, 4,4,4,70,79,4, 4,4,4,100,100,71,117,4,117, 85,85,85,81,80,84,82,83,86,6,7,72,85,85,85,85,85,85,86,85,85,85,85,85,85, 129,73, 87,88,74,172, 89,89,89,89,89,89,89,307,307,75,89,89,309, 301,76, 300,77, 90,91,78,92, 93,94,79,292, 4,4,4,80,95,4, 4,4,4,81,96,4, 4,4,4,82,97,4, 4,4,4,83,98,4, 9,9,9,9,9,9,9,84,99, 124,124,124,81,80,84,82,83,6,7,126,124,124,124,124,124,124,124,124,124,124, 124, 100,86, 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45, 45,45,45,45,45,45,45,45,45,45,87,101, 40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40, 40,40,40,40,40,40,40,40,40,40,88,102, 306,306,306,306,306,306,306,308,306, 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103, 103,104,90,103,104, 105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105, 105,105,106,91,105,106, 4,4,4,92,107,4, 108,108,108,108,108,108,108,108,108,108,108,108,108,108,108,108,108,108,108, 108,108,108,108,108,108,108,108,108,108,108,108,108,109,108,93,108,109, 110,110,110,110,110,110,110,110,110,110,110,110,110,110,110,110,110,110,110, 110,110,110,110,110,110,110,110,110,110,110,110,110,110,111,94,110,111, 9,9,9,9,112,9,9,9,95,113, 9,9,9,9,9,9,9,96,114, 9,9,9,9,9,9,9,97,115, 9,9,9,9,9,9,9,98,116, 10,10,10,10,10,10,10,10,280,10,10,10,99, 4,4,4,100,100,128,4,128, 46,46,46,46,46,46,46,46,46,47,47,47,24,46,21,46,22,46,46,46,46,46,46,46,46, 46,46,46,46,46,46,46,46,39,46,101,48,49,26,25, 41,41,41,41,41,41,41,41,41,42,42,42,24,41,21,41,22,41,41,41,41,41,41,41,41, 41,41,41,41,41,41,41,41,41,38,102,43,44,26,25, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,68, 69,104, 61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,63, 64,106, 93,94,107,293, 56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56, 56,56,56,56,56,56,56,56,58, 59,109, 51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51, 51,51,51,51,51,51,51,51,53, 54,111, 4,4,4,112,117,4, 10,10,10,10,10,10,4,4,4,10,10,10,10,10,113,118,4, 10,10,10,10,10,10,4,4,4,10,10,10,10,10,114,119,4, 10,10,10,10,10,10,4,4,4,10,10,10,10,10,115,120,4,121,223, 10,10,10,10,10,10,4,4,4,10,10,10,10,10,116,122,4, 9,9,9,9,9,9,9,117,123, 69,70,124,125,118,127,126,128, 129,70,119,130,131,131, 9,9,9,9,9,9,9,120,132, 4,4,4,134,121,133,4,134,224, 136,137,137,122,137,137,137,135,135,135, 10,10,10,10,10,10,4,4,4,10,10,10,10,10,123,138,4, 139,139,139,139,139,139,139,139,139,139,139,139,84,24,139,21,139,22,139,139, 139,139,139,139,139,139,139,139,139,139,139,139,139,139,140,139,124,139, 139,139,139,140,139,139,26,25, 141,141,141,141,141,141,141,141,141,141,141,141,84,24,141,21,141,22,141,141, 141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,142,125,141, 141,141,141,142,141,141,26,25, 4,4,4,286,126,143,4,289,289, 4,4,4,100,127,285,4,285, 283,128, 4,4,4,129,144,4, 4,4,4,100,130,310,4,310, 312,131, 10,10,10,10,10,10,4,4,4,10,10,10,10,10,132,145,4, 9,9,9,9,9,9,9,101,132, 222,134, 194,194,194,198,198,198,194,135,198, 146,146,146,146,4,4,4,146,146,146,146,146,136,146,4,146, 4,4,4,147,137,147,4,147, 69,70,124,125,138,148,148,148, 34,34,34,34,34,34,34,34,34,34,34,34,84,24,34,21,34,22,34,34,34,34,34,34,34, 34,34,34,34,34,34,34,34,34,34,36,34,34,34,34,34,26,25, 37,140, 26,26,26,26,26,26,26,26,26,26,26,26,84,24,26,21,26,22,26,26,26,26,26,26,26, 26,26,26,26,26,26,26,26,26,26,28,26,26,26,26,26,26,25, 29,142, 149,288, 90,91,144,150, 152,236,235,234,233,232,231,230,229,151,145,153,153,153,153,237,238, 9,9,9,9,9,154,155,9,9,146,156,157,157,158,157, 187,147, 4,4,4,159,148,159,4,159, 4,4,4,149,160,4, 4,4,4,100,150,161,4,313, 162,162,162,162,162,162,162,162,162,162,162,151,163,162, 4,4,4,152,164,4, 4,4,4,153,165,4, 4,4,4,171,166,168,154,167,4,166,170,169,171, 172,172,172,172,4,4,4,172,172,172,172,155,172,4,172, 10,10,10,10,10,10,10,10,10,10,10,199, 194,194,194,194,194,194,202,202,202,157,202, 4,4,4,173,100,173,158,173,4,173, 284,159, 9,9,9,9,9,9,9,160,174, 93,94,101,293, 14,14,14,14,14,14,14,14,14,14,14,15, 4,4,4,100,175,163,175,4,175, 176,164, 177,252,251,87,88,165,253,225, 221,166, 216,101,216,167, 178,178,178,178,4,4,4,178,178,178,168,178,4,178, 179,219, 4,4,4,218,215,4, 220,171, 9,9,9,9,9,155,9,9,172,156,157,157,158,157, 180,184,182,173,183,183,184,181,181, 10,10,10,10,10,10,10,10,10,10,10,294, 187,185,175,186,186,187, 9,9,9,9,9,9,9,176,188, 4,4,4,177,189,4, 9,9,9,9,9,9,9,178,190, 191,191,191,191,4,4,4,191,191,191,179,191,4,191, 192,192,192,192,4,4,4,192,192,192,192,180,192,4,192, 180,212,181,211, 193,193,193,193,4,4,4,193,193,193,193,182,193,4,193, 182,207,205, 208,184, 194,194,194,194,194,194,4,4,4,194,194,194,194,194,185,194,4,194, 185,249,247, 250,187, 10,10,10,10,10,10,4,4,4,10,10,100,195,10,10,10,188,195,4,195, 87,88,189,254, 10,10,10,10,10,10,10,10,10,10,10,213, 9,9,9,9,9,9,9,191,196, 9,9,9,9,9,155,9,9,192,156,157,157,197,157, 9,9,9,9,9,155,9,9,193,156,157,157,198,157, 162,162,162,162,162,162,162,162,162,162,162,194,199,162, 202,200,195,201,201,202, 10,10,10,10,10,10,10,10,10,10,10,214, 4,4,4,100,100,197,209,4,209, 4,4,4,100,100,198,203,4,203, 4,4,4,100,100,199,245,4,245, 203,203,203,203,4,4,4,203,203,203,200,203,4,203, 200,243,241, 244,202, 9,9,9,9,9,9,9,203,204, 10,10,10,10,10,10,4,4,4,10,10,100,100,10,10,10,204,239,4,239, 0 }; static const unsigned short ag_sbt[] = { 0, 13, 19, 32, 37, 41, 44, 54, 89, 98, 103, 112, 167, 179, 188, 197, 209, 217, 251, 257, 269, 287, 289, 291, 331, 340, 344, 347, 400, 403, 405, 407, 411, 419, 421, 454, 456, 458, 467, 476, 512, 515, 528, 537, 547, 559, 571, 580, 588, 597, 605, 641, 661, 671, 674, 693, 703, 705, 707, 709, 713, 719, 752, 759, 763, 783, 785, 791, 797, 805, 811, 817, 826, 851, 853, 857, 870, 872, 874, 878, 882, 888, 894, 900, 906, 915, 937, 939, 976,1013,1022,1046,1071,1077,1114,1151,1161,1170, 1179,1188,1201,1209,1249,1289,1310,1312,1334,1336,1340,1374,1376,1410, 1412,1418,1435,1452,1471,1488,1497,1505,1511,1520,1529,1539,1556,1602, 1648,1657,1665,1667,1673,1681,1683,1700,1709,1711,1720,1736,1744,1752, 1795,1797,1840,1842,1844,1848,1865,1880,1882,1890,1896,1904,1918,1924, 1930,1943,1958,1970,1981,1991,1993,2002,2006,2018,2027,2029,2037,2039, 2043,2057,2059,2065,2067,2081,2090,2102,2108,2117,2123,2132,2146,2161, 2165,2180,2183,2185,2203,2206,2208,2228,2232,2244,2253,2267,2281,2295, 2301,2313,2322,2331,2340,2354,2357,2359,2368,2388 }; static const unsigned short ag_sbe[] = { 8, 16, 26, 33, 40, 42, 51, 87, 94, 100, 110, 152, 173, 183, 192, 208, 213, 250, 254, 263, 285, 288, 290, 326, 338, 343, 346, 387, 401, 404, 406, 409, 416, 420, 452, 455, 457, 465, 472, 510, 513, 527, 535, 543, 556, 568, 575, 584, 592, 601, 638, 657, 668, 673, 689, 702, 704, 706, 708, 711, 717, 751, 756, 761, 778, 784, 789, 795, 801, 808, 814, 822, 837, 852, 855, 866, 871, 873, 876, 880, 885, 891, 897, 903, 913, 925, 938, 974,1011,1020,1043,1068,1074,1111,1148,1159,1168,1177, 1186,1200,1205,1244,1284,1309,1311,1333,1335,1338,1373,1375,1409,1411, 1415,1432,1449,1466,1485,1495,1501,1507,1518,1524,1532,1553,1592,1638, 1652,1661,1666,1670,1677,1682,1697,1707,1710,1718,1732,1740,1748,1787, 1796,1832,1841,1843,1846,1858,1874,1881,1886,1893,1900,1915,1921,1927, 1936,1954,1969,1979,1987,1992,2000,2004,2017,2023,2028,2034,2038,2042, 2053,2058,2062,2066,2075,2084,2101,2104,2115,2120,2130,2142,2157,2163, 2176,2181,2184,2199,2204,2207,2224,2230,2243,2251,2261,2275,2292,2297, 2312,2318,2327,2336,2350,2355,2358,2366,2384,2388 }; static const unsigned char ag_fl[] = { 1,1,2,0,1,4,1,2,1,1,2,1,3,1,2,1,2,1,2,0,1,2,1,1,1,1,2,0,1,3,1,1,1,1,2, 0,1,3,3,3,0,2,2,2,2,0,2,2,2,2,1,2,0,1,3,1,2,0,1,3,1,2,0,1,3,1,2,0,1,3, 4,0,2,1,2,0,1,0,2,0,2,4,1,3,1,1,1,1,1,2,0,1,1,1,0,1,0,2,3,5,0,1,1,3,5, 3,3,3,3,3,1,2,1,1,1,1,0,2,0,2,1,1,1,1,2,0,1,0,4,6,1,1,1,1,1,1,0,1,2,1, 1,1,1,1,2,0,1,1,3,1,1,1,2,1,2,0,1,2,1,1,1,2,1,2,3,3,1,1,3,5,0,3,3,4,1, 2,1,1,1,1,1,1,1,1,1,1,5,7,1,1,1,1,1,1,0,1,1,1,2,1,1,1,2,4,1,2,0,1,6,4, 1,2,6,3,4,2,1,0,1,1,5,5,6,1,2,6,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,2,0,1,7, 4,1,2,0,1,5,1,1,1,3,1,1,7,1,2,0,1,7,4,1,2,0,1,2,1,2,2,2,2,2,2,2,1,1,3, 3,1,1,6,9,2,0,1,1,2,1,1,3,5,4,0,2,6,2,2,3,3,3,1,1,1,2,0,1,2,2,1,6,4 }; static const unsigned short ag_ptt[] = { 0, 8, 8, 9, 9, 4, 13, 13, 11, 14, 14, 17, 17, 19, 19, 18, 21, 22, 22, 23, 23, 20, 29, 29, 29, 30, 30, 31, 31, 24, 34, 34, 34, 35, 35, 36, 36, 24, 37, 37, 38, 38, 38, 38, 38, 39, 39, 39, 39, 39, 46, 46, 47, 47, 44, 49, 49, 50, 50, 44, 53, 53, 54, 54, 51, 56, 56, 57, 57, 51, 58, 60, 60, 67, 67, 68, 68, 69, 69, 70, 70, 63, 65, 71, 72, 77, 77, 77, 78, 78, 79, 79, 73, 74, 81, 81, 83, 83, 5, 80, 87, 87, 86, 86, 86, 86, 93, 93, 85, 91, 96, 96, 92, 7, 7, 7, 99, 99,100,100,103,103,103,104,104,105, 105,107,107, 82,102,102,102,102,102,102,114,114,112,117,117,117,117,118, 118,119,119,115, 89, 89, 89, 89,129,130,130,131,131,125,126,126,126,132, 138,138,133,134,128, 6, 6,141,145,145,146,143,149,149,142,148,148,148, 148,148,148,148,148,148,140,108,153,153,153,153,160,160,164,164,164,164, 157,166,166,166,165,169,170,170,171,171,158,174,175,175,159,177,177,178, 178,179,179,179,156,156,109,182,182,183,184,184,184,186,187,187,187,187, 187,187,187,188,188,200,201,201,202,202,197,203,204,204,205,205,198,185, 185,185,185,116,116,209,215,215,216,216,210,218,219,219,220,220,214,217, 41, 41,221,221,223,223,223, 28, 28, 42, 27,110,110,230,231,233,236,236, 236,233,234,234, 98, 98,235,240,240,113,241,242,245,245, 88,247,247,248, 248,249,249,244,252,252,111,251 }; static void ag_ra(PCB_DECL) { switch(ag_rpx[(PCB).ag_ap]) { case 1: VNO AG_WRAP_5(ag_rp_1(PCB_POINTER, V(0,(int *)))); break; case 2: VRO(AG_WRAP_5 *, ag_rp_2(PCB_POINTER, VW(0, AG_WRAP_5 *), V(1,(int *)))); break; case 3: VWD(0,AG_WRAP_5 *); break; case 4: VWD(2,AG_WRAP_5 *); break; case 5: VNO AG_WRAP_5(ag_rp_3(PCB_POINTER, VW(1, AG_WRAP_5 *))); VWD(1, AG_WRAP_5 *); break; case 6: VNO AG_WRAP_5(ag_rp_4(PCB_POINTER, VW(1, AG_WRAP_5 *))); VWD(1, AG_WRAP_5 *); break; case 7: VNO AG_WRAP_5(ag_rp_5(PCB_POINTER)); break; case 8: VRO(AG_WRAP_5 *, ag_rp_6(PCB_POINTER, VW(0, AG_WRAP_5 *), V(1,(int *)))); break; case 9: VRO(AG_WRAP_5 *, ag_rp_7(PCB_POINTER, VW(0, AG_WRAP_5 *))); break; case 10: VRO(AG_WRAP_5 *, ag_rp_8(PCB_POINTER, VW(0, AG_WRAP_5 *), V(1,(int *)))); break; case 11: VRO(AG_WRAP_5 *, ag_rp_9(PCB_POINTER, VW(0, AG_WRAP_5 *))); break; case 12: VNO AG_WRAP_5(ag_rp_10(PCB_POINTER)); break; case 13: VRO(AG_WRAP_5 *, ag_rp_11(PCB_POINTER, VW(0, AG_WRAP_5 *), V(1,(int *)))); break; case 14: VRO(AG_WRAP_5 *, ag_rp_12(PCB_POINTER, VW(0, AG_WRAP_5 *))); break; case 15: VRO(AG_WRAP_5 *, ag_rp_13(PCB_POINTER, VW(0, AG_WRAP_5 *), V(1,(int *)))); break; case 16: VRO(AG_WRAP_5 *, ag_rp_14(PCB_POINTER, VW(0, AG_WRAP_5 *))); break; case 17: ag_rp_15(PCB_POINTER, VW(1, AG_WRAP_5 *)); VWD(1, AG_WRAP_5 *); break; case 18: VNO AG_WRAP_5(ag_rp_16(PCB_POINTER)); break; case 19: VRO(AG_WRAP_5 *, ag_rp_17(PCB_POINTER, VW(0, AG_WRAP_5 *), V(1,(int *)))); break; case 20: ag_rp_18(PCB_POINTER, V(0,(int *))); break; case 21: ag_rp_19(PCB_POINTER); break; case 22: ag_rp_20(PCB_POINTER, V(0,(int *))); break; case 23: ag_rp_21(PCB_POINTER, VW(2, AG_WRAP_5 *)); VWD(2, AG_WRAP_5 *); break; case 24: ag_rp_22(PCB_POINTER, VW(1, AG_WRAP_5 *), VW(2, AG_WRAP_6 *)); VWD(1, AG_WRAP_5 *); VWD(2, AG_WRAP_6 *); break; case 25: VNO AG_WRAP_6(ag_rp_23(PCB_POINTER)); break; case 26: VRO(AG_WRAP_6 *, ag_rp_24(PCB_POINTER, VW(0, AG_WRAP_6 *), VW(2, AG_WRAP_4 *))); VWD(2, AG_WRAP_4 *); break; case 27: VRO(AG_WRAP_5 *, ag_rp_25(PCB_POINTER, VW(0, AG_WRAP_5 *), VW(2, AG_WRAP_5 *))); VWD(2, AG_WRAP_5 *); break; case 28: ag_rp_26(PCB_POINTER, VW(1, AG_WRAP_5 *)); VWD(1, AG_WRAP_5 *); break; case 29: ag_rp_27(PCB_POINTER, V(0,(int *))); break; case 30: ag_rp_28(PCB_POINTER, V(0,(int *))); break; case 31: ag_rp_29(PCB_POINTER, V(0,(int *))); break; case 32: ag_rp_30(PCB_POINTER); break; case 33: ag_rp_31(PCB_POINTER, VW(1, AG_WRAP_5 *), VW(2, AG_WRAP_6 *)); VWD(1, AG_WRAP_5 *); VWD(2, AG_WRAP_6 *); break; case 34: VWD(3,AG_WRAP_5 *); break; case 35: ag_rp_32(PCB_POINTER, VW(2, AG_WRAP_5 *), VW(3, AG_WRAP_8 *)); VWD(2, AG_WRAP_5 *); VWD(3, AG_WRAP_8 *); break; case 36: VRO(AG_WRAP_7 *, ag_rp_33(PCB_POINTER, VW(0, AG_WRAP_7 *))); break; case 37: VRO(AG_WRAP_8 *, ag_rp_34(PCB_POINTER, VW(0, AG_WRAP_8 *), VW(1, AG_WRAP_7 *))); VWD(1, AG_WRAP_7 *); break; case 38: VNO AG_WRAP_7(ag_rp_35(PCB_POINTER, VW(1, AG_WRAP_5 *), V(3,(Attribute::Type *)), VW(5, AG_WRAP_9 *))); VWD(1, AG_WRAP_5 *); VWD(5, AG_WRAP_9 *); break; case 39: V(0,(Attribute::Type *)) = ag_rp_36(PCB_POINTER); break; case 40: V(0,(Attribute::Type *)) = ag_rp_37(PCB_POINTER); break; case 41: V(0,(Attribute::Type *)) = ag_rp_38(PCB_POINTER); break; case 42: V(0,(Attribute::Type *)) = ag_rp_39(PCB_POINTER); break; case 43: V(0,(Attribute::Type *)) = ag_rp_40(PCB_POINTER); break; case 44: V(0,(Attribute::Type *)) = ag_rp_41(PCB_POINTER); break; case 45: V(0,(Attribute::Type *)) = ag_rp_42(PCB_POINTER); break; case 46: V(0,(Attribute::Type *)) = ag_rp_43(PCB_POINTER); break; case 47: V(0,(Attribute::Type *)) = ag_rp_44(PCB_POINTER); break; case 48: V(0,(Attribute::Type *)) = ag_rp_45(PCB_POINTER); break; case 49: VNO AG_WRAP_9(ag_rp_46(PCB_POINTER)); break; case 50: VNO AG_WRAP_9(ag_rp_47(PCB_POINTER)); break; case 51: VRO(AG_WRAP_5 *, ag_rp_48(PCB_POINTER, VW(0, AG_WRAP_5 *))); break; case 52: VNO AG_WRAP_9(ag_rp_49(PCB_POINTER, VW(2, AG_WRAP_5 *))); VWD(2, AG_WRAP_5 *); break; case 53: V(0,(int *)) = ag_rp_50(PCB_POINTER, V(1,(int *))); break; case 54: V(0,(int *)) = ag_rp_51(PCB_POINTER, V(0,(int *)), V(1,(int *))); break; case 55: V(0,(int *)) = ag_rp_52(PCB_POINTER, V(1,(int *))); break; case 56: V(0,(int *)) = ag_rp_53(PCB_POINTER, V(0,(int *)), V(1,(int *))); break; case 57: V(0,(int *)) = ag_rp_54(PCB_POINTER, V(0,(int *)), V(1,(int *))); break; case 58: V(0,(int *)) = ag_rp_55(PCB_POINTER, VW(1, AG_WRAP_5 *)); VWD(1, AG_WRAP_5 *); break; case 59: VWD(1,AG_WRAP_5 *); break; case 60: VWD(4,AG_WRAP_5 *); break; } } #define TOKEN_NAMES parse_token_names const char *const parse_token_names[265] = { "document", "\"--\"", "\"?>\"", "\"]]>\"", "document", "prolog", "element", "Misc", "", "", "eof", "S", "SpaceChar", "", "Name", "", "NameChar", "Names", "Nmtoken", "", "Nmtokens", "", "", "", "EntityValue", "'\\\"'", "", "PEReference", "Reference", "", "", "", "'\\''", "", "", "", "", "AttValue", "dq AttValString", "sq AttValString", "", "CharRef", "EntityRef", "", "SystemLiteral", "", "", "", "", "", "", "PubidLiteral", "PubidChar", "", "", "", "", "", "Comment", "\"<!--\"", "comment text", "'>'", "Char", "PI", "\"<?\"", "PITarget", "", "", "", "", "", "CDSect", "CDStart", "CData", "CDEnd", "\"<![CDATA[\"", "\"\\r\\n\"", "", "", "", "XMLDecl", "", "doctypedecl", "", "\"<?xml\"", "VersionInfo", "VersionDecl", "", "EncodingDecl", "SDDecl", "\"version\"", "Eq", "VersionNum", "", "'='", "", "", "\"<!DOCTYPE\"", "ExternalID", "", "", "'['", "markupdecl", "", "", "", "']'", "", "elementdecl", "AttlistDecl", "EntityDecl", "NotationDecl", "extSubset", "TextDecl", "", "extSubsetDecl", "conditionalSect", "", "", "", "\"standalone\"", "\"\\'yes\\'\"", "\"\\\"yes\\\"\"", "\"\\'no\\'\"", "\"\\\"no\\\"\"", "LanguageId", "Langcode", "'-'", "Subcode", "", "", "", "ISO639Code", "IanaCode", "UserCode", "", "", "", "", "", "EmptyElementTag", "STag", "content", "ETag", "'<'", "AttributeList", "Attribute", "\"</\"", "content unit", "", "", "\"/>\"", "\"<!ELEMENT\"", "contentspec", "\"EMPTY\"", "\"ANY\"", "Mixed", "Children", "choice", "seq", "", "'\\?'", "'*'", "'+'", "", "cp", "", "'('", "'|'", "", "", "", "')'", "','", "", "", "\"#PCDATA\"", "", "", "", "\")*\"", "\"<!ATTLIST\"", "AttDefs", "AttDef", "AttType", "DefaultDecl", "StringType", "TokenizedType", "EnumeratedType", "\"CDATA\"", "\"ID\"", "\"IDREF\"", "\"IDREFS\"", "\"ENTITY\"", "\"ENTITIES\"", "\"NMTOKEN\"", "\"NMTOKENS\"", "NotationType", "Enumeration", "\"NOTATION\"", "", "", "", "", "", "", "\"#REQUIRED\"", "\"#IMPLIED\"", "\"#FIXED\"", "includeSect", "ignoreSect", "\"<![\"", "\"INCLUDE\"", "\"IGNORE\"", "ignoreSectContents", "", "", "Ignore", "", "", "", "decimal CharRef", "';'", "hex CharRef", "\"&#\"", "", "\"&#x\"", "", "'&'", "'%'", "GEDecl", "PEDecl", "\"<!ENTITY\"", "EntityDef", "PEDef", "NDataDecl", "", "\"SYSTEM\"", "\"PUBLIC\"", "\"NDATA\"", "", "extParsedEnt", "extPE", "\"encoding\"", "EncName", "", "", "", "", "", "\"<!NOTATION\"", "PublicID", "", "", "", "", "", "", "", "", "", "", "", "", "", }; #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(PCB_DECL) { 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((*(PCB).lab)) && (*(PCB).lab) != '\\') { char buf[20]; sprintf(buf, "\'%c\'", (char) (*(PCB).lab)); sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, buf); } else sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, UNNAMED_TOKEN); (PCB).error_message = (PCB).ag_msg; } static int ag_action_1_r_proc(PCB_DECL); static int ag_action_2_r_proc(PCB_DECL); static int ag_action_3_r_proc(PCB_DECL); static int ag_action_4_r_proc(PCB_DECL); static int ag_action_1_s_proc(PCB_DECL); static int ag_action_3_s_proc(PCB_DECL); static int ag_action_1_proc(PCB_DECL); static int ag_action_2_proc(PCB_DECL); static int ag_action_3_proc(PCB_DECL); static int ag_action_4_proc(PCB_DECL); static int ag_action_5_proc(PCB_DECL); static int ag_action_6_proc(PCB_DECL); static int ag_action_7_proc(PCB_DECL); static int ag_action_8_proc(PCB_DECL); static int ag_action_9_proc(PCB_DECL); static int ag_action_10_proc(PCB_DECL); static int ag_action_11_proc(PCB_DECL); static int ag_action_8_proc(PCB_DECL); static int (*const ag_r_procs_scan[])(PCB_DECL) = { 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[])(PCB_DECL) = { 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[])(PCB_DECL) = { 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_10_proc(PCB_DECL) { (PCB).btsx = 0, (PCB).drt = -1; ag_track(PCB_POINTER); return 0; } static int ag_action_11_proc(PCB_DECL) { (PCB).btsx = 0, (PCB).drt = -1; (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).lab; (PCB).ssx--; ag_ra(PCB_POINTER); (PCB).ssx++; ag_track(PCB_POINTER); return 0; } static int ag_action_3_r_proc(PCB_DECL) { 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 = (parse_token_type) ag_ptt[(PCB).ag_ap]; ag_ra(PCB_POINTER); return (PCB).exit_flag == AG_RUNNING_CODE; } static int ag_action_3_s_proc(PCB_DECL) { 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 = (parse_token_type) ag_ptt[(PCB).ag_ap]; ag_ra(PCB_POINTER); return (PCB).exit_flag == AG_RUNNING_CODE; } static int ag_action_4_r_proc(PCB_DECL) { int ag_sd = ag_fl[(PCB).ag_ap] - 1; if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; return 1; } static int ag_action_2_proc(PCB_DECL) { (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).lab; GET_CONTEXT; (PCB).ss[(PCB).ssx] = (PCB).sn; (PCB).ssx++; (PCB).sn = (PCB).ag_ap; ag_track(PCB_POINTER); return 0; } static int ag_action_9_proc(PCB_DECL) { if ((PCB).drt == -1) { (PCB).drt=(PCB).token_number; (PCB).dssx=(PCB).ssx; (PCB).dsn=(PCB).sn; } ag_prot(PCB_POINTER); GET_CONTEXT; (PCB).ss[(PCB).ssx] = (PCB).sn; (PCB).ssx++; (PCB).sn = (PCB).ag_ap; (PCB).rx = 0; return (PCB).exit_flag == AG_RUNNING_CODE; } static int ag_action_2_r_proc(PCB_DECL) { (PCB).ssx++; (PCB).sn = (PCB).ag_ap; return 0; } static int ag_action_7_proc(PCB_DECL) { --(PCB).ssx; (PCB).exit_flag = AG_SUCCESS_CODE; (PCB).rx = 0; return 0; } static int ag_action_1_proc(PCB_DECL) { (PCB).exit_flag = AG_SUCCESS_CODE; ag_track(PCB_POINTER); return 0; } static int ag_action_1_r_proc(PCB_DECL) { (PCB).exit_flag = AG_SUCCESS_CODE; return 0; } static int ag_action_1_s_proc(PCB_DECL) { (PCB).exit_flag = AG_SUCCESS_CODE; return 0; } static int ag_action_4_proc(PCB_DECL) { int ag_sd = ag_fl[(PCB).ag_ap] - 1; (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; (PCB).btsx = 0, (PCB).drt = -1; (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).lab; if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; else GET_CONTEXT; (PCB).ss[(PCB).ssx] = (PCB).sn; ag_track(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 short)(PCB).reduction_token) ag_t1 = ag_tx + 1; else ag_t2 = ag_tx; } while (ag_t1 < ag_t2); (PCB).ag_ap = ag_pstt[ag_t1]; if ((ag_s_procs_scan[ag_astt[ag_t1]])(PCB_POINTER) == 0) break; } return 0; } static int ag_action_3_proc(PCB_DECL) { int ag_sd = ag_fl[(PCB).ag_ap] - 1; (PCB).btsx = 0, (PCB).drt = -1; (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).lab; if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; else GET_CONTEXT; (PCB).ss[(PCB).ssx] = (PCB).sn; ag_track(PCB_POINTER); (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; ag_ra(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 short)(PCB).reduction_token) ag_t1 = ag_tx + 1; else ag_t2 = ag_tx; } while (ag_t1 < ag_t2); (PCB).ag_ap = ag_pstt[ag_t1]; if ((ag_s_procs_scan[ag_astt[ag_t1]])(PCB_POINTER) == 0) break; } return 0; } static int ag_action_8_proc(PCB_DECL) { ag_undo(PCB_POINTER); (PCB).rx = 0; (PCB).exit_flag = AG_SYNTAX_ERROR_CODE; ag_diagnose(PCB_POINTER); SYNTAX_ERROR; {(PCB).rx = 1; ag_track(PCB_POINTER);} return (PCB).exit_flag == AG_RUNNING_CODE; } static int ag_action_5_proc(PCB_DECL) { 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).rx = 0; (PCB).reduction_token = (parse_token_type) ag_ptt[(PCB).ag_ap]; ag_ra(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 short)(PCB).reduction_token) ag_t1 = ag_tx + 1; else ag_t2 = ag_tx; } while (ag_t1 < ag_t2); (PCB).ag_ap = ag_pstt[ag_t1]; if ((ag_r_procs_scan[ag_astt[ag_t1]])(PCB_POINTER) == 0) break; } return (PCB).exit_flag == AG_RUNNING_CODE; } static int ag_action_6_proc(PCB_DECL) { int ag_sd = ag_fl[(PCB).ag_ap]; (PCB).reduction_token = (parse_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_POINTER); (PCB).vs[(PCB).ssx] = ag_null_value; GET_CONTEXT; (PCB).ss[(PCB).ssx] = (PCB).sn; } (PCB).rx = 0; 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 short)(PCB).reduction_token) ag_t1 = ag_tx + 1; else ag_t2 = ag_tx; } while (ag_t1 < ag_t2); (PCB).ag_ap = ag_pstt[ag_t1]; if ((ag_r_procs_scan[ag_astt[ag_t1]])(PCB_POINTER) == 0) break; } return (PCB).exit_flag == AG_RUNNING_CODE; } void init_parse(parse_pcb_type *PCB_POINTER) { unsigned ag_t1; ag_t1 = 0; (PCB).rx = (PCB).fx = 0; (PCB).ss[0] = (PCB).sn = (PCB).ssx = 0; (PCB).exit_flag = AG_RUNNING_CODE; (PCB).key_sp = NULL; (PCB).key_state = 0; (PCB).line = FIRST_LINE; (PCB).column = FIRST_COLUMN; (PCB).btsx = 0, (PCB).drt = -1; while (ag_tstt[ag_t1] == 0) { (PCB).ag_ap = ag_pstt[ag_t1]; (ag_gt_procs_scan[ag_astt[ag_t1]])((PCB_TYPE *)PCB_POINTER); ag_t1 = ag_sbt[(PCB).sn]; } } void parse(parse_pcb_type *PCB_POINTER) { (PCB).lab[(PCB).fx++] = (PCB).input_code; while ((PCB).exit_flag == AG_RUNNING_CODE) { while (1) { const unsigned char *ag_p; int ag_ch; if ((PCB).rx >= (PCB).fx) return; ag_ch = CONVERT_CASE((PCB).lab[(PCB).rx++]); if ((PCB).key_sp) { if (ag_ch != *(PCB).key_sp++) { (PCB).rx = (PCB).save_index; (PCB).key_sp = NULL; (PCB).key_state = 0; break; } else if (*(PCB).key_sp) continue; if (ag_key_act[(PCB).key_state] == ag_cf_end_key) { int ag_k1; int ag_k2; if ((PCB).rx >= (PCB).fx) { (PCB).rx--; (PCB).key_sp--; return; } (PCB).key_sp = NULL; ag_k1 = ag_key_parm[(PCB).key_state]; ag_k2 = ag_key_pt[ag_k1]; if (ag_key_itt[ag_k2 + CONVERT_CASE((PCB).lab[(PCB).rx])]) (PCB).rx = (PCB).save_index; else { (PCB).token_number = (parse_token_type) ag_key_pt[ag_k1+1]; (PCB).key_state = 0; } break; } else { (PCB).token_number = (parse_token_type) ag_key_parm[(PCB).key_state]; (PCB).key_state = 0; (PCB).key_sp = NULL; } break; } if ((PCB).key_state == 0) { (PCB).token_number = (parse_token_type) AG_TCV(ag_ch); if (((PCB).key_state = ag_key_index[(PCB).sn]) == 0) break; (PCB).save_index = 1; } ag_p = &ag_key_ch[(PCB).key_state]; if (ag_ch <= 255) while (*ag_p < ag_ch) ag_p++; if (*ag_p == ag_ch) { (PCB).key_state = (int)(ag_p - ag_key_ch); switch (ag_key_act[(PCB).key_state]) { case ag_cf_set_key: { int ag_k1; int ag_k2; if ((PCB).rx >= (PCB).fx) { (PCB).rx--; return; } ag_k1 = ag_key_parm[(PCB).key_state]; ag_k2 = ag_key_pt[ag_k1]; (PCB).key_state = ag_key_jmp[(PCB).key_state]; if (ag_key_itt[ag_k2 + CONVERT_CASE((PCB).lab[(PCB).rx])]) continue; (PCB).save_index = (PCB).rx; (PCB).token_number = (parse_token_type) ag_key_pt[ag_k1+1]; continue; } case ag_set_key: (PCB).save_index = (PCB).rx; (PCB).token_number = (parse_token_type) ag_key_parm[(PCB).key_state]; case ag_jmp_key: (PCB).key_state = ag_key_jmp[(PCB).key_state]; continue; case ag_cf_end_key: case ag_end_key: (PCB).key_sp = ag_key_ends + ag_key_jmp[(PCB).key_state]; continue; case ag_accept_key: (PCB).token_number = (parse_token_type) ag_key_parm[(PCB).key_state]; (PCB).key_state = 0; break; case ag_cf_accept_key: { int ag_k1; int ag_k2; if ((PCB).rx >= (PCB).fx) { (PCB).rx--; return; } ag_k1 = ag_key_parm[(PCB).key_state]; ag_k2 = ag_key_pt[ag_k1]; if (ag_key_itt[ag_k2 + CONVERT_CASE((PCB).lab[(PCB).rx])]) (PCB).rx = (PCB).save_index; else { (PCB).token_number = (parse_token_type) ag_key_pt[ag_k1+1]; (PCB).key_state = 0; } break; } } break; } else { (PCB).rx = (PCB).save_index; (PCB).key_state = 0; break; } } { unsigned ag_t1 = ag_sbt[(PCB).sn]; unsigned ag_t2 = ag_sbe[(PCB).sn] - 1; do { unsigned ag_tx = (ag_t1 + ag_t2)/2; if (ag_tstt[ag_tx] > (unsigned short)(PCB).token_number) ag_t1 = ag_tx + 1; else ag_t2 = ag_tx; } while (ag_t1 < ag_t2); if (ag_tstt[ag_t1] != (PCB).token_number) ag_t1 = ag_sbe[(PCB).sn]; (PCB).ag_ap = ag_pstt[ag_t1]; (ag_gt_procs_scan[ag_astt[ag_t1]])((PCB_TYPE *)PCB_POINTER); } } }