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

view tests/agcl/parsifal/good/xmlp8.cpp @ 24:a4899cdfc2d6 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Obfuscate the regexps to strip off the IBM compiler's copyright banners. I don't want bots scanning github to think they're real copyright notices because that could cause real problems.
author David A. Holland
date Mon, 13 Jun 2022 00:40:23 -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);
    }
  }
}