Mercurial > ~dholland > hg > ag > index.cgi
diff help2html/mhh6.c @ 0:13d2b8934445
Import AnaGram (near-)release tree into Mercurial.
| author | David A. Holland |
|---|---|
| date | Sat, 22 Dec 2007 17:52:45 -0500 |
| parents | |
| children | ec2b657edf13 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/help2html/mhh6.c Sat Dec 22 17:52:45 2007 -0500 @@ -0,0 +1,2197 @@ + +/* + * AnaGram, A System for Syntax Directed Programming + * File generated by: Version 2.40-current, built Jun 13 2007 + * + * 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 MHH6_H_1193795958 +#include "mhh6.h" +#endif + +#ifndef MHH6_H_1193795958 +#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]) + + + +mhh6_pcb_type mhh6_pcb; +#define PCB mhh6_pcb + +#line 387 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + /* ----- Embedded C --------------------------------------------*/ + + +#include <stdio.h> +#include <string.h> +#include <malloc.h> +#include <assert.h> +#include <ctype.h> +#include <assert.h> +#include <err.h> +#include "uintarray.h" +#include "support.h" +#include "buffer.h" +#include "stringdict.h" +#include "must.h" + + int verbose = 0; + + int total1sttextline = 0; + int total1sttextlineb = 0; + int total1sttableline = 0; + int total1stlist1line = 0; + int total1stlist2line = 0; + int total1stlisttabline = 0; + int total1stcodeline = 0; + + int title_count =0; + int title_line_count = 0; + + char *helpentStr; + struct buffer title; + struct buffer title1; + struct buffer titleLine; + struct buffer titleLine1; + struct stringdict *titleDict; + struct stringdict *titleDict1; // upper case + struct stringdict *titleLineDict; + struct stringdict *titleLineDict1; // upper case + struct buffer topicFrag; + struct buffer tabFrag; + struct buffer blankFrag; + struct buffer topicBody; + struct stringdict *topicBodyDict; + struct uintarray titleToTitleLine; + struct intstack paragType; + + enum paragTypes {Tnone=0, Ttext=1, Ttable=2, Tlist1=3, Tlist2=4, + Tlisttab=5, Tcode=6}; + + char *charToEntity(const char *instring); + void putTitle(void); + void appendTitle(void); + void saveTitleLine(void); + void appendEnd(int c); + void removeFinalNewline(void); + void saveTopicBody(void); + void printDict(const struct stringdict *dictionary); + void writeSortedHtml(FILE *output); + void writeFullTopics(FILE *output, const struct stringdict *dictionary, + const struct stringdict *dictionary1, + const struct stringdict *dictionaryb); + void writeTitles(FILE *output, const struct stringdict *dictionary, + const struct stringdict *dictionary1); + int processLinkString(FILE *filein, FILE *fileout); + + + // replace &, <, > in S with entities + char *charToEntity(const char *s) { + char *ret; + int i, j, len=0; + + for (i=0; s[i]; i++) { + if (s[i] == '&') len += 5; /* & */ + else if (s[i] == '<') len += 4; /* < */ + else if (s[i] == '>') len += 4; /* > */ + else len++; + } + + ret = malloc(len+1); + if (!ret) { + errx(1, "Out of memory"); + } + + for (i=j=0; s[i]; i++) { + if (s[i] == '&') { strcpy(ret+j, "&"); j += 5; } + else if (s[i] == '<' ) { strcpy(ret+j, "<"); j += 4; } + else if (s[i] == '>' ) { strcpy(ret+j, ">"); j += 4; } + else ret[j++] = s[i]; + } + ret[j] = 0; + + return ret; + } + + // Save title both ways, make map entry for title<--->title line + void saveTitle(void) { + if (stringdict_exists(titleDict, title.text)) { + fprintf( stderr, "Warning: Repeated title %s\n", title.text ); + } +#if 0 + else if (!strcmp(title.text, "Secret of Life")) { + // Do not save "Secret of Life" title + return; + } +#endif + else { + // Save title in dictionary + unsigned titleIndex = stringdict_intern(titleDict, title.text); + + // Save title in upper case dictionary + stringdict_intern(titleDict1, title1.text); + + // count() should give next index + unsigned titleLineIndex = stringdict_count(titleLineDict); + + // use an array for this (the keys are array indexes anyway) + if (titleIndex >= uintarray_num(&titleToTitleLine)) { + unsigned x, old = uintarray_num(&titleToTitleLine); + uintarray_setsize(&titleToTitleLine, titleIndex+1); + for (x=old; x<titleIndex; x++) { + uintarray_set(&titleToTitleLine, x, (unsigned) -1); + } + } + // Store indices in map + uintarray_set(&titleToTitleLine, titleIndex, titleLineIndex); + } + } + + + void putTitle(void) { + // Save title itself in both reg. and upper case title dicts + saveTitle(); + buffer_append(&titleLine, title.text); + buffer_append(&titleLine1, title1.text); + } + + + void appendTitle() { + // Save title itself in both reg. and upper case title dicts + saveTitle(); + buffer_append(&titleLine, ", "); + buffer_append(&titleLine1, ", "); + buffer_append(&titleLine, title.text); + buffer_append(&titleLine1, title1.text); + } + + + void saveTitleLine() { +#if 0 + static int foundSoL=0; + if (stringdict_count(titleLineDict)==0 && + strcmp(titleLine.text, "Secret of Life")!=0 && foundSoL==0) { + fprintf(stderr, "Warning: Secret of Life does not lead file!\n"); + } +#endif + +#if 0 + if (!strcmp(titleLine.text, "Secret of Life")) { + // Don't save title line in dicts. + // Should be at beginning of help file + assert(stringdict_count(titleLineDict)==0); + foundSoL = 1; + if (verbose) { + printf( "\n Found Secret of Life!\n\n" ); + } + } + else +#endif + if ( stringdict_exists(titleLineDict, titleLine.text) ) { + fprintf( stderr, "Warning: Repeated title line %s\n", + titleLine.text ); + } + else { + // Save title line in dictionary + stringdict_intern(titleLineDict, titleLine.text); + // Save title line in upper case dictionary + stringdict_intern(titleLineDict1, titleLine1.text); + } + buffer_clear(&titleLine); + buffer_clear(&titleLine1); + } + + + // Append the latter part of the line + void appendEnd(int c) { + buffer_add(&topicBody, c); + buffer_append(&topicBody, topicFrag.text); + buffer_append(&topicBody, "\n" ); + buffer_clear(&topicFrag); + } + + // Append a cell to the table row + void appendTableCell(int c) { + // Could insert <pre> </pre> or <code> </code> tags here for cell + buffer_append(&topicBody, "<code> " ); + buffer_add(&topicBody, c); + buffer_append(&topicBody, topicFrag.text); + buffer_append(&topicBody, "</code>" ); + //buffer_append(&topicBody, "\n" ); + buffer_clear(&topicFrag); + } + + void removeFinalNewline(void) { + int x = topicBody.len; + assert(topicBody.text[x-2]=='\n' && topicBody.text[x-1]=='\n'); + topicBody.text[x-1] = 0; + } + + void saveTopicBody(void) { +#if 0 + // do not save Secret of Life topic body + if (stringdict_count(titleLineDict) != 0) { +#endif + // save topic body + stringdict_intern(topicBodyDict, topicBody.text); +#if 0 + } +#endif + buffer_clear(&topicBody); + } + +/* + void startTable(void) { + // If we don't currently have table, start a new one + if (paragType.top() != Ttable) { + // Start table + paragType.push( Ttable ); + } + } +*/ + + void finishList(int listtype){ + //printf( "\nfinishList() - top type = %d, listtype = %d, " + // "stack size = %d\n" + // " titleLineDict size = %d\n", + // paragType.top(), listtype, paragType.size(), + // titleLineDict.size() ); + assert(intstack_top(¶gType) == listtype); + intstack_pop(¶gType); + buffer_append(&topicBody, "\n</ul>"); + } + + void printDict(const struct stringdict *dictionary) { + unsigned i; + for (i=0; i<stringdict_count(dictionary); i++) { + printf("%4d: %s\n", i, stringdict_getbynum(dictionary, i)); + } + } + + char *SqueezeWS(const char *Input) { + /* return a (strdup()-like) copy of Input, with whitespace squeezed out */ + char *copy; + int cnt, outcnt; + + copy = must_malloc(strlen(Input)+1); + + for (cnt=0, outcnt=0; Input[cnt]; cnt++) { + unsigned char ch = Input[cnt]; + if (!isspace(ch)) { + copy[outcnt]=ch; + outcnt++; + } + } + copy[outcnt]=0; + + return copy; + } + + void writeFullTopics(FILE *output, + const struct stringdict *dictionary, /* title lines */ + const struct stringdict *dictionary1, /* UC titlelines*/ + const struct stringdict *dictionaryb) /* topic bodies */ + { + unsigned i; + +#if 0 + /* Write "Secret of Life" topic at beginning of topics */ + //fprintf(output, "Secret of Life>\n\n"); + //fprintf(output, "No help message for this topic.\n##\n"); +#endif + + assert( stringdict_count(dictionary) == stringdict_count(dictionary1) ); + struct permutation *perm = mySort(dictionary1); // Sort dictionary1 + + + /* Write out topics in a definition list <dl> */ + fprintf( output, "\n\n<dl>\n\n" ); + + // write dictionary, sorted according to dict1 + for (i = 0; i < stringdict_count(dictionary); i++) { + //fprintf(output, "<dt><b><a name=\"%04d\">%s</a></b></dt>\n" + // "<dd>%s\n</dd><br/>\n\n", + // perm->v[i], + // stringdict_getbynum(dictionary, perm->v[i]), + // stringdict_getbynum(dictionaryb, perm->v[i]) ); + + char *anchorname=SqueezeWS(stringdict_getbynum(dictionary, perm->v[i])); + fprintf(output, "<dt><b><a name=\"%s\">%s</a></b></dt>\n" + "<dd>%s\n</dd>\n\n", + anchorname, + stringdict_getbynum(dictionary, perm->v[i]), + stringdict_getbynum(dictionaryb, perm->v[i]) ); + free(anchorname); + } + fprintf( output, "\n\n</dl>\n\n" ); + permutation_destroy(perm); + } + + void writeTitles(FILE *output, + const struct stringdict *dictionary, /* titles */ + const struct stringdict *dictionary1) /* uppercase titles */ + { + assert( stringdict_count(dictionary) == stringdict_count(dictionary1) ); + struct permutation *perm = mySort(dictionary1); // Sort dictionary1 + + /* Write 2-column table of titles */ + /* + // n_t is true title count w/o Secret of Life + int n_t = stringdict_count(dictionary); + // we better have some titles + assert( n_t >= 2 ); + // n_t1 is #titles in 1st column + int n_t1 = n_t%2 ? n_t/2 +1 : n_t/2; + // n_t2 is #titles in 2nd column + int n_t2 = n_t%2; + int i; + fprintf( output, "\n\n<table width=\"100%%\" " + "style=\"margin-left: auto ; margin-right: auto\" \n" + " cellpadding=\"15\" cellspacing=\"5\" >\n" + "<tr align=\"left\">\n" + "<td valign=\"top\" style=\"white-space: nowrap\">" + "\n\n\n"); + + // Write out dictionary sorted acc. to dictionary1 + // write out the first half, sorted + for (i = 0; i < n_t1; i++) { + fprintf(output, " \xA9%s\xAA\n<br/>", + stringdict_getbynum(dictionary, perm->v[i])); + } + + fprintf(output, "</td>\n\n"); + fprintf(output, "<td valign=\"top\" style=\"white-space: nowrap\">\n\n"); + + // write out the last half, sorted + for ( i = n_t1; i < n_t; i++) { + fprintf(output, " \xA9%s\xAA\n<br/>", + stringdict_getbynum(dictionary, perm->v[i])); + } + + fprintf(output, "</td>\n</tr>\n</table>\n\n<hr><br/><br/>\n\n" ); + */ + + /* Write 1-column list of titles */ + + // n_t is true title count w/o Secret of Life + unsigned n_t = stringdict_count(dictionary); + // we better have some titles + assert( n_t >= 2 ); + unsigned i; + + fprintf(output, "<h2>Help Topic Index</h2>\n\n" ); + // Write out the index, sorted acc. to dictionary1 + for (i = 0; i < n_t; i++) { + fprintf(output, "\xA9%s\xAA\n<br/>", + stringdict_getbynum(dictionary, perm->v[i])); + } + } + + void writeSortedHtml( FILE *output ) { + /* Leading HTML */ + +#ifdef XML_OUTPUT + fprintf(output, "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n" + "<?xml-stylesheet type=\"text/xsl\" href=\"../ag_web.xml\"?>\n" + "\n" + "<body rootdir=\"..\" navname=\"Documentation: AnaGram Help\">\n"); + +#else + fprintf(output, "<html>\n<head>\n"); + fprintf(output, "<title>AnaGram Help Topics - HTML version</title>\n"); + fprintf(output, "</head>\n\n\n"); + fprintf(output, "<body bgcolor=\"#ffffff\" text=\"#000000\""); + fprintf(output, " link=\"#0033CC\" vlink=\"#CC0033\" alink=\"#CC0099\">"); + fprintf(output, "\n\n\n"); +#endif + + /* Write page title */ +#ifdef XML_OUTPUT + fprintf(output, "<h1>AnaGram Help</h1>\n\n"); +#else + fprintf(output, "<hr><h2>AnaGram Help Topics - HTML Version</h2><hr>\n\n"); +#endif + /* Write 2-column table of titles */ + writeTitles( output, titleDict, titleDict1 ); + + /* Write full topics in single- column table */ + //fprintf( output, "\n\n<table width=\"100%%\">\n<tr><td>\n<p>\n\n"); + //writeFullTopics( output, titleLineDict, titleLineDict1, topicBodyDict ); + //fprintf( output, "</td></tr>\n</table>\n" ); + + /* Write full topics directly to the output page */ + writeFullTopics( output, titleLineDict, titleLineDict1, topicBodyDict ); + +#ifdef XML_OUTPUT + fprintf(output,"\n</body>\n"); +#else + /* Ending HTML */ + fprintf( output, "\n<p><br/><address><a " + "NAME=\"copyright\">AnaGram Help Topics, HTML version.</a>\n" + "<br> Copyright © Parsifal Software, 2001.<br>\n" + "All Rights Reserved.</address>" + "\n\n</body>\n</html>\n\n" ); +#endif + } + + int processLinkString( FILE *filein, FILE *fileout ) { + struct buffer linkString; // lower case + struct buffer linkString1; // upper case version + unsigned index; + int c; + int wspaceFlag =0; + + buffer_init(&linkString); + buffer_init(&linkString1); + + while ( (c=fgetc(filein)) != EOF ) { + + if ( c != 0xAA) { // test for end of link char + if ( c == 0x20 || c == 0x0D || c == 0x0A ) { + // don't append these chars + wspaceFlag = 1; + } + else { + if (wspaceFlag) { + // Replace space, cr, lf with single space + buffer_add(&linkString, 0x20); + buffer_add(&linkString1, toupper(0x20)); + } + buffer_add(&linkString, c); + buffer_add(&linkString1, toupper(c)); + wspaceFlag = 0; + } + } + else { + // end of link - look up using upper case string + if (!stringdict_exists(titleDict1, linkString1.text)) { + // try match w/o final S + if ( linkString1.text[linkString1.len - 1] == 'S' ) { + linkString1.text[linkString1.len - 1] = 0; + if (stringdict_exists(titleDict1, linkString1.text)) { + goto matched; // Eccch - a goto! + } + } + + fprintf(stderr, "Can't find this link in titleDict1: %s\n", + linkString1.text); + return 21; + } + + /* find corresp. index in title line direc. */ + matched: + + index = stringdict_findbyname(titleDict1, linkString1.text); + + unsigned ilink = uintarray_get(&titleToTitleLine, index); + assert(ilink != (unsigned) -1); + + // Write out string, linked to title line + char *linkname=SqueezeWS(stringdict_getbynum(titleLineDict, ilink)); + //fprintf(fileout, "<a href=\"#%04d\">%s</a>", ilink, linkString.text); + fprintf( fileout, "<a href=\"#%s\">%s</a>", linkname, linkString.text); + free(linkname); + + buffer_cleanup(&linkString); + buffer_cleanup(&linkString1); + + return 0; // normal return - have found and written link + } + } + // Error - unexpected end of file + fprintf(stderr, "Error: EOF detected while searching for end of link.\n"); + fprintf(stderr, " Current link string is: %s\n", linkString.text ); + return 23; + } + + static void init(void) { + buffer_init(&title); + buffer_init(&title1); + buffer_init(&titleLine); + buffer_init(&titleLine1); + titleDict = stringdict_create(); + titleDict1 = stringdict_create(); + titleLineDict = stringdict_create(); + titleLineDict1 = stringdict_create(); + topicBodyDict = stringdict_create(); + buffer_init(&topicFrag); + buffer_init(&tabFrag); + buffer_init(&blankFrag); + buffer_init(&topicBody); + intstack_init(¶gType); + uintarray_init(&titleToTitleLine); + } + +/* -- Main Program -- */ + +int main(int argc, char *argv[]) { + + FILE *input; + + long fileLength; + size_t stringLength; + char *helpsrcString; + + init(); + + if (verbose) { + printf( "\n This program reads a help.src-type file, " + "replaces &, <, > with entities,\n" + "sorts in a case-insensitive manner and writes " + "to output file as HTML\n" + "with a preceding list of the help topics. \n\n" ); + } + + /* Check for enough arguments */ + if (argc != 3) { + fprintf(stderr, "Usage: mhh6 helpdata.src help.html\n"); + return 1; + } + + /* Open input file */ + input = fopen(argv[1],"r"); + if (input == NULL) { + fprintf(stderr, "Cannot open %s\n", argv[1]); + return 2; + } + + /* find out how big the input file is */ + if (fseek(input, SEEK_SET, SEEK_END)) { + fprintf(stderr, "Strange problems with %s\n", argv[1]); + return 3; + } + fileLength = ftell(input); + if (fileLength < 0 ) { // -1L is error return + fprintf(stderr, "Error getting file length (%ld) of %s\n", + fileLength, argv[1]); + return 4; + } + + /* fseek to beginning of file */ + if (fseek(input, 0, SEEK_SET)) { + fprintf(stderr, "Strange problems with %s\n", argv[1]); + return 5; + } + + /* Allocate storage for input string */ + helpsrcString = must_malloc(fileLength + 1); + + /* read file */ + stringLength = fread(helpsrcString, 1, (unsigned)fileLength, input); + if (stringLength == 0) { + fprintf(stderr, "Unable to read %s\n", argv[1]); + free(helpsrcString); + fclose(input); + return 7; + } + // Terminate string with null + helpsrcString[stringLength] = 0; + + /* first, replace < > & with entities */ + helpentStr = charToEntity( helpsrcString ); + + /* no more need for input string or file */ + free(helpsrcString); + fclose(input); + + /* initialize stack of parag types */ + intstack_push(¶gType, Tnone); + + /* call parser */ + PCB.pointer = (unsigned char *)(const char *)helpentStr; + mhh6(); + + /* Print file statistics */ + if (verbose) { + printf("No. of title lines in line dict.= %d\n", + stringdict_count(titleLineDict) ); + printDict(titleLineDict); // print title lines + printf( "\n\n" ); + + printf( "title count = %d, includes Secret of Life \n\n", title_count ); + printf( "title line count = %d, includes Secret of Life \n\n", + title_line_count ); + printf( "total1sttextline = %d, \n", total1sttextline ); + printf( "total1sttextlineb = %d \n", total1sttextlineb ); + printf( "total1sttableline = %d \n", total1sttableline ); + printf( "total1stlist1line = %d \n", total1stlist1line ); + printf( "total1stlist2line = %d \n", total1stlist2line ); + printf( "total1stlisttabline = %d \n", total1stlisttabline ); + printf( "total1stcodeline = %d \n", total1stcodeline ); + } + + /* check for error */ + if (verbose) { + printf( "PCB.exit_flag = %d (%d for success)\n", PCB.exit_flag, + AG_SUCCESS_CODE); + } + if (PCB.exit_flag != AG_SUCCESS_CODE) { + fprintf(stderr, "File %s: error at line %d, column %d\n", + argv[1], + PCB.line, + PCB.column); + return 8; + } + + // Write sorted title lines & topics as HTML to intermediate file + FILE *intermed; + const char *filename = "intermed.html"; + /* Open intermediate file */ + intermed = fopen(filename ,"w+"); // create intermediate text file + if (intermed == NULL) { + fprintf(stderr, "Cannot open %s\n", filename); + return 9; + } + if (verbose) { + printf( "Writing sorted title lines & topic bodies to " + "intermediate file in HTML format...\n"); + } + writeSortedHtml(intermed); + rewind(intermed); + + /* Create output HTML file, inserting links */ + FILE *output; + /* Open output file */ + output = fopen(argv[2] ,"w"); + if (output == NULL) { + fprintf(stderr, "Cannot open %s\n", argv[2]); + return 10; + } + + if (verbose) { + printf( "Writing output file with HTML links...\n"); + } + + int c = 0; + int ctest = 0; + + while ( (c=fgetc(intermed)) != EOF ){ + + if ( c == 0xA9 ) { // begins link string + // printf( "\n Found beginning of link" ); + int itest = processLinkString(intermed, output); + if (itest !=0) return itest; // error return + } + else { + ctest = fputc( c, output ); // write out current character + if (ctest == EOF) return 11; + } + } + + fclose(intermed); + fclose(output); + + + /* done */ + if (verbose) { + printf( "All done.\n" ); + } + return 0; // normal return + +} /* -- End of main() function -- */ + +#line 719 "mhh6.c" + +#ifndef CONVERT_CASE +#define CONVERT_CASE(c) (c) +#endif +#ifndef TAB_SPACING +#define TAB_SPACING 8 +#endif + +static void ag_rp_1(void) { +#line 71 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + title_line_count++; + // buffer_append(&titleLine, "</h3>\n<p>"); + saveTitleLine(); + +#line 734 "mhh6.c" +} + +#define ag_rp_2() (title_count++, putTitle()) + +#define ag_rp_3() (title_count++, appendTitle()) + +#define ag_rp_4(c) (buffer_start(&title, c), buffer_start(&title1, toupper(c))) + +#define ag_rp_5(c) (buffer_add(&title, c), buffer_add(&title1, toupper(c))) + +static void ag_rp_6(void) { +#line 92 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + saveTopicBody(); +#line 748 "mhh6.c" +} + +#define ag_rp_7() (buffer_append(&topicBody,"\n")) + +#define ag_rp_8() (buffer_append(&topicBody,"\n")) + +#define ag_rp_9() (finishList(Tlist1)) + +#define ag_rp_10() (finishList(Tlist2)) + +#define ag_rp_11() (finishList(Tlisttab)) + +#define ag_rp_12() (finishList(Tlist1)) + +#define ag_rp_13() (finishList(Tlisttab)) + +#define ag_rp_14() (buffer_append(&topicBody, "<p>")) + +#define ag_rp_15() (buffer_append(&topicBody, "</p>")) + +#define ag_rp_16() (buffer_append(&topicBody, "\n</table>\n\n")) + +#define ag_rp_17() (buffer_append(&topicBody, "</li>\n")) + +#define ag_rp_18() (buffer_append(&topicBody, "</li>\n")) + +#define ag_rp_19() (buffer_append(&topicBody, "</li>\n")) + +#define ag_rp_20() (buffer_append(&topicBody, "</li>\n")) + +#define ag_rp_21() (buffer_append(&topicBody, "</li>\n")) + +#define ag_rp_22() (buffer_append(&topicBody, "</li>\n")) + +#define ag_rp_23() (buffer_append(&topicBody, "\n</pre>")) + +static void ag_rp_24(int c) { +#line 172 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + total1sttextline++; + appendEnd(c); + +#line 790 "mhh6.c" +} + +static void ag_rp_25(int c) { +#line 176 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + total1sttextlineb++; + buffer_add(&topicBody, 0x20); + appendEnd(c); + +#line 799 "mhh6.c" +} + +#define ag_rp_26(c) (appendEnd(c)) + +#define ag_rp_27() (buffer_append(&topicBody, "</td></tr>")) + +static void ag_rp_28(int c) { +#line 211 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + + total1sttableline++; + buffer_append(&topicBody, + "\n\n<table cellpadding=\"7\" cellspacing=\"2\" >\n<tr><td> "); + appendTableCell(c); + buffer_clear(&tabFrag); + buffer_clear(&blankFrag); + +#line 816 "mhh6.c" +} + +static void ag_rp_29(int c) { +#line 222 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + buffer_append(&topicBody, "</td>\n<td> "); + appendTableCell(c); + buffer_clear(&tabFrag); + buffer_clear(&blankFrag); + +#line 826 "mhh6.c" +} + +#define ag_rp_30() (buffer_append(&topicBody, "</td></tr>")) + +static void ag_rp_31(int c) { +#line 234 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + buffer_append(&topicBody, "\n\n<tr><td> "); + appendTableCell(c); + buffer_clear(&tabFrag); + buffer_clear(&blankFrag); + +#line 838 "mhh6.c" +} + +static void ag_rp_32(int c) { +#line 242 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + buffer_append(&topicBody, "</td>\n<td> "); + appendTableCell(c); + buffer_clear(&tabFrag); + buffer_clear(&blankFrag); + +#line 848 "mhh6.c" +} + +static void ag_rp_33(int c) { +#line 252 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + total1stlist1line++; + if (intstack_top(¶gType) != Tlist1) { + intstack_push(¶gType, Tlist1); + buffer_append(&topicBody, "\n<ul>"); + } + buffer_append(&topicBody, "\n<li>"); + buffer_add(&topicBody, 0x20); + appendEnd(c); + +#line 862 "mhh6.c" +} + +#define ag_rp_34(c) (appendEnd(c)) + +static void ag_rp_35(int c) { +#line 268 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + total1stlist2line++; + if (intstack_top(¶gType) != Tlist2) { + intstack_push(¶gType, Tlist2); + buffer_append(&topicBody, "\n<ul>"); + } + buffer_append(&topicBody, "\n<li>"); + buffer_append(&topicBody, " "); + appendEnd(c); + +#line 878 "mhh6.c" +} + +#define ag_rp_36(c) (appendEnd(c)) + +static void ag_rp_37(int t, int c) { +#line 284 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + total1stlisttabline++; + if (intstack_top(¶gType) != Tlisttab) { + intstack_push(¶gType, Tlisttab); + buffer_append(&topicBody, "\n<ul>"); + } + buffer_append(&topicBody, "\n<li>"); + buffer_add(&topicBody, t); + appendEnd(c); + +#line 894 "mhh6.c" +} + +#define ag_rp_38(c) (appendEnd(c)) + +static void ag_rp_39(int c) { +#line 301 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + total1stcodeline++; + buffer_append(&topicBody, "\n<pre> "); + appendEnd(c); + +#line 905 "mhh6.c" +} + +static void ag_rp_40(int c) { +#line 306 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + total1stcodeline++; + buffer_append(&topicBody, "\n<pre> "); + appendEnd(c); + +#line 914 "mhh6.c" +} + +static void ag_rp_41(int c) { +#line 311 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + total1stcodeline++; + buffer_append(&topicBody, "\n<pre> "); + appendEnd(c); + +#line 923 "mhh6.c" +} + +static void ag_rp_42(int c) { +#line 316 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + total1stcodeline++; + buffer_append(&topicBody, "\n<pre> "); + appendEnd(c); + +#line 932 "mhh6.c" +} + +static void ag_rp_43(int c) { +#line 320 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + + total1stcodeline++; + buffer_append(&topicBody, "\n<pre> "); + appendEnd(c); + +#line 942 "mhh6.c" +} + +static void ag_rp_44(int c) { +#line 326 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + total1stcodeline++; + buffer_append(&topicBody, "\n<pre> "); + appendEnd(c); + +#line 951 "mhh6.c" +} + +static void ag_rp_45(int c) { +#line 330 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + + total1stcodeline++; + buffer_append(&topicBody, "\n<pre> "); + appendEnd(c); + +#line 961 "mhh6.c" +} + +static void ag_rp_46(int c) { +#line 339 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + buffer_append(&topicBody, " "); + appendEnd(c); + +#line 969 "mhh6.c" +} + +static void ag_rp_47(int c) { +#line 343 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + buffer_append(&topicBody, " "); + appendEnd(c); + +#line 977 "mhh6.c" +} + +static void ag_rp_48(int c) { +#line 347 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + buffer_append(&topicBody, " "); + appendEnd(c); + +#line 985 "mhh6.c" +} + +static void ag_rp_49(int c) { +#line 351 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + buffer_append(&topicBody, " "); + appendEnd(c); + +#line 993 "mhh6.c" +} + +static void ag_rp_50(int c) { +#line 355 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + buffer_append(&topicBody, " "); + appendEnd(c); + +#line 1001 "mhh6.c" +} + +static void ag_rp_51(int c) { +#line 359 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + buffer_append(&topicBody, " "); + appendEnd(c); + +#line 1009 "mhh6.c" +} + +static void ag_rp_52(int c) { +#line 363 "/disk/disk0/home/dholland/projects/ag/src/help2html/mhh6.syn" + buffer_append(&topicBody, " "); + appendEnd(c); + +#line 1017 "mhh6.c" +} + +#define ag_rp_53(c) (buffer_start(&topicFrag, c)) + +#define ag_rp_54(c) (buffer_add(&topicFrag, c)) + +#define ag_rp_55(c) (buffer_start(&topicFrag, c)) + +#define ag_rp_56(c) (buffer_add(&topicFrag, c)) + +#define ag_rp_57(t) (buffer_start(&tabFrag, t)) + +#define ag_rp_58(t) (buffer_add(&tabFrag, t)) + +#define ag_rp_59() (buffer_start(&blankFrag, 0x20)) + +#define ag_rp_60() (buffer_add(&blankFrag, 0x20)) + + +#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 int const ag_null_value NULL_VALUE_INITIALIZER; + +static const unsigned char ag_rpx[] = { + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 1, 2, 3, 4, 5, 0, 0, 0, 6, 7, 8, 0, 0, 9, 10, 11, + 0, 0, 0, 12, 13, 0, 0, 0, 0, 14, 0, 0, 0, 0, 15, 16, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 17, 18, 19, 0, 0, 0, 0, 20, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 21, 22, 23, 0, 0, 0, 0, 24, 25, 26, + 27, 0, 0, 0, 0, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, + 59, 60 +}; + +static const unsigned char ag_key_itt[] = { + 0 +}; + +static const unsigned short ag_key_pt[] = { +0 +}; + +static const unsigned char ag_key_ch[] = { + 0, 32,255, 32,255, 32,255, 32,255, 32,255, 32,255, 32,255, 32,255, 10, + 13, 32, 35,255, 10, 13, 35,255, 32,255, 32,255, 32,255, 32,255, 32,255, + 32,255, 32,255, 32,255, 32,255 +}; + +static const unsigned char ag_key_act[] = { + 0,3,4,1,4,2,4,1,4,1,4,1,4,1,4,1,4,3,3,2,3,4,3,3,3,4,3,4,1,4,2,4,1,4,1, + 4,1,4,1,4,1,4,2,4 +}; + +static const unsigned char ag_key_parm[] = { + 0, 84, 0, 83, 0, 0, 0, 82, 0, 81, 0, 80, 0, 79, 0, 78, 0, 25, + 26, 0, 24, 0, 25, 26, 24, 0, 84, 0, 83, 0, 0, 0, 82, 0, 81, 0, + 80, 0, 79, 0, 78, 0, 0, 0 +}; + +static const unsigned char ag_key_jmp[] = { + 0, 7, 0, 1, 0, 3, 0, 5, 0, 7, 0, 9, 0, 11, 0, 13, 0, 0, + 3, 15, 9, 0, 11, 14, 18, 0, 20, 0, 26, 0, 28, 0, 30, 0, 32, 0, + 34, 0, 36, 0, 38, 0, 40, 0 +}; + +static const unsigned char ag_key_index[] = { + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 17, 22, 22, 22, 0, 0, 17, 0, 0, 0, 0, 0, 0, 0, 17, 22, 22, + 22, 0, 17, 22, 0, 0, 22, 22, 42, 0, 0, 0, 0, 0, 0, 0, 17, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 22, 22, 0, 22, + 0, 0, 0, 17, 17, 0, 22, 0, 0, 0, 0, 0, 0, 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, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0 +}; + +static const unsigned char ag_key_ends[] = { +35,35,0, 10,35,35,0, 32,0, 35,0, 35,35,0, 10,35,35,0, 35,0, +32,0, +}; + +#define AG_TCV(x) ag_tcv[(x)] + +static const unsigned char ag_tcv[] = { + 8, 22, 22, 22, 22, 22, 22, 76, 22, 77, 2, 22, 22, 3, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 5, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 21, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22 +}; + +#ifndef SYNTAX_ERROR +#define SYNTAX_ERROR fprintf(stderr,"%s, line %d, column %d\n", \ + (PCB).error_message, (PCB).line, (PCB).column) +#endif + +#ifndef FIRST_LINE +#define FIRST_LINE 1 +#endif + +#ifndef FIRST_COLUMN +#define FIRST_COLUMN 1 +#endif + +#ifndef PARSER_STACK_OVERFLOW +#define PARSER_STACK_OVERFLOW {fprintf(stderr, \ + "\nParser stack overflow, line %d, column %d\n",\ + (PCB).line, (PCB).column);} +#endif + +#ifndef REDUCTION_TOKEN_ERROR +#define REDUCTION_TOKEN_ERROR {fprintf(stderr, \ + "\nReduction token error, line %d, column %d\n", \ + (PCB).line, (PCB).column);} +#endif + + +#ifndef INPUT_CODE +#define INPUT_CODE(T) (T) +#endif + +typedef enum + {ag_accept_key, ag_set_key, ag_jmp_key, ag_end_key, ag_no_match_key, + ag_cf_accept_key, ag_cf_set_key, ag_cf_end_key} key_words; + +static void ag_get_key_word(int ag_k) { + int ag_save = (int) ((PCB).la_ptr - (PCB).pointer); + const unsigned char *ag_p; + int ag_ch; + while (1) { + switch (ag_key_act[ag_k]) { + case ag_cf_end_key: { + const unsigned char *sp = ag_key_ends + ag_key_jmp[ag_k]; + do { + if ((ag_ch = *sp++) == 0) { + int ag_k1 = ag_key_parm[ag_k]; + int ag_k2 = ag_key_pt[ag_k1]; + if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) goto ag_fail; + (PCB).token_number = (mhh6_token_type) ag_key_pt[ag_k1 + 1]; + return; + } + } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch); + goto ag_fail; + } + case ag_end_key: { + const unsigned char *sp = ag_key_ends + ag_key_jmp[ag_k]; + do { + if ((ag_ch = *sp++) == 0) { + (PCB).token_number = (mhh6_token_type) ag_key_parm[ag_k]; + return; + } + } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch); + } + case ag_no_match_key: +ag_fail: + (PCB).la_ptr = (PCB).pointer + ag_save; + return; + case ag_cf_set_key: { + int ag_k1 = ag_key_parm[ag_k]; + int ag_k2 = ag_key_pt[ag_k1]; + ag_k = ag_key_jmp[ag_k]; + if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) break; + ag_save = (int) ((PCB).la_ptr - (PCB).pointer); + (PCB).token_number = (mhh6_token_type) ag_key_pt[ag_k1+1]; + break; + } + case ag_set_key: + ag_save = (int) ((PCB).la_ptr - (PCB).pointer); + (PCB).token_number = (mhh6_token_type) ag_key_parm[ag_k]; + case ag_jmp_key: + ag_k = ag_key_jmp[ag_k]; + break; + case ag_accept_key: + (PCB).token_number = (mhh6_token_type) ag_key_parm[ag_k]; + return; + case ag_cf_accept_key: { + int ag_k1 = ag_key_parm[ag_k]; + int ag_k2 = ag_key_pt[ag_k1]; + if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) + (PCB).la_ptr = (PCB).pointer + ag_save; + else (PCB).token_number = (mhh6_token_type) ag_key_pt[ag_k1+1]; + return; + } + } + ag_ch = CONVERT_CASE(*(PCB).la_ptr++); + ag_p = &ag_key_ch[ag_k]; + if (ag_ch <= 255) while (*ag_p < ag_ch) ag_p++; + if (ag_ch > 255 || *ag_p != ag_ch) { + (PCB).la_ptr = (PCB).pointer + ag_save; + return; + } + ag_k = (int) (ag_p - ag_key_ch); + } +} + + +#ifndef AG_NEWLINE +#define AG_NEWLINE 10 +#endif + +#ifndef AG_RETURN +#define AG_RETURN 13 +#endif + +#ifndef AG_FORMFEED +#define AG_FORMFEED 12 +#endif + +#ifndef AG_TABCHAR +#define AG_TABCHAR 9 +#endif + +static void ag_track(void) { + int ag_k = (int) ((PCB).la_ptr - (PCB).pointer); + while (ag_k--) { + switch (*(PCB).pointer++) { + case AG_NEWLINE: + (PCB).column = 1, (PCB).line++; + case AG_RETURN: + case AG_FORMFEED: + break; + case AG_TABCHAR: + (PCB).column += (TAB_SPACING) - ((PCB).column - 1) % (TAB_SPACING); + break; + default: + (PCB).column++; + } + } +} + + +static void ag_prot(void) { + int ag_k; + ag_k = 128 - ++(PCB).btsx; + if (ag_k <= (PCB).ssx) { + (PCB).exit_flag = AG_STACK_ERROR_CODE; + PARSER_STACK_OVERFLOW; + return; + } + (PCB).bts[(PCB).btsx] = (PCB).sn; + (PCB).bts[ag_k] = (PCB).ssx; + (PCB).vs[ag_k] = (PCB).vs[(PCB).ssx]; + (PCB).ss[ag_k] = (PCB).ss[(PCB).ssx]; +} + +static void ag_undo(void) { + if ((PCB).drt == -1) return; + while ((PCB).btsx) { + int ag_k = 128 - (PCB).btsx; + (PCB).sn = (PCB).bts[(PCB).btsx--]; + (PCB).ssx = (PCB).bts[ag_k]; + (PCB).vs[(PCB).ssx] = (PCB).vs[ag_k]; + (PCB).ss[(PCB).ssx] = (PCB).ss[ag_k]; + } + (PCB).token_number = (mhh6_token_type) (PCB).drt; + (PCB).ssx = (PCB).dssx; + (PCB).sn = (PCB).dsn; + (PCB).drt = -1; +} + + +static const unsigned char ag_tstt[] = { +22,3,2,0,1,10,11,12,14,15, +2,0, +3,2,0,1, +22,0,16,19,20, +22,8,5,3,2,0,1,11,13,14,15, +77,22,5,0, +21,0, +3,2,0,9, +8,5,0,4,6,7, +22,8,5,3,2,0, +22,5,0,6,7, +2,0, +22,21,5,3,2,0,1,14,15, +5,0, +8,0, +22,0,20, +22,21,5,0,17,27,28,35,36,37, +77,22,5,0, +22,21,5,0,38, +84,83,82,81,80,79,78,76,0,31,33,34,45,48,56,59,63,64, +77,0,30,42,43,69,70, +3,2,0,1,14, +26,25,24,0,18, +77,22,21,5,3,2,0,67,68, +22,21,0, +84,83,82,81,80,79,78,77,76,26,25,24,22,21,3,2,0,39,40,41, +22,21,0, +22,21,0, +22,21,0, +22,21,0, +22,21,0, +22,21,0, +22,21,0, +84,83,82,81,80,79,78,0,65, +26,25,24,22,21,5,3,2,0,36,37, +77,76,26,25,24,22,21,3,2,0,60,61,62, +76,26,25,24,3,2,0,56,57,58,59, +77,5,0, +84,83,82,81,80,79,78,77,76,26,25,24,22,21,3,2,0,49,50,51, +76,26,25,24,3,2,0,45,46,47,48, +77,22,21,5,0,71,72, +77,3,2,0,9,70, +77,0,44,70,75, +26,25,24,22,21,5,3,2,0,36,37, +84,83,82,81,80,79,78,77,76,22,21,5,3,2,0,1,28,29,30,31,32,33,34,35,36,37,42, + 43,45,48,52,56,59,63,64,69,70, +5,3,2,0,6,7, +5,3,2,0,6,7, +5,3,2,0,6,7, +77,22,21,5,0, +3,2,0,9, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +22,21,0,39, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +22,21,0, +22,21,0, +22,21,0, +22,21,0, +22,21,0, +22,21,0, +22,21,0, +77,22,21,5,3,2,0,67,68, +22,21,0,60, +77,0,30,42,43,69,70, +77,0, +76,0,56,59, +22,21,0, +22,21,0, +77,22,21,5,3,2,0,67,68, +22,21,0,49, +84,83,82,81,80,79,78,77,0,30,34,42,43,63,64,69,70, +5,0, +76,0,45,48, +5,0, +22,21,0, +77,22,21,5,0,71,72, +77,22,21,5,0,71,72, +77,3,2,0,9,70, +77,5,0, +26,25,24,22,21,3,2,0,53,54,55, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +3,2,0,9, +77,22,21,5,3,2,0,67,68, +77,22,21,5,3,2,0,67,68, +3,2,0,9, +77,76,22,21,5,3,2,0,73,74, +22,21,0, +22,21,0, +77,22,21,5,0,71,72, +22,21,5,0, +77,22,21,5,3,2,0,67,68, +22,21,0,53, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +3,2,0,9, +76,22,21,5,0, +77,76,22,21,5,3,2,0,73,74, +77,76,22,21,5,3,2,0,73,74, +22,21,0, +22,21,0, +3,2,0,9, +77,76,22,21,5,3,2,0,73,74, +77,22,21,5,3,2,0,67,68, +3,2,0,9, + +}; + + +static unsigned const char ag_astt[839] = { + 8,1,1,7,1,0,1,1,1,1,3,7,1,9,5,3,2,7,1,1,1,8,8,8,1,1,7,1,3,1,1,1,10,10,10,4, + 1,4,1,1,7,1,8,1,7,3,1,1,5,5,5,5,5,7,8,1,7,1,1,3,7,8,8,8,1,1,7,1,1,1,9,5,3, + 7,2,7,1,4,4,4,7,1,1,2,1,1,1,10,10,10,4,1,1,1,7,1,1,1,1,1,1,1,1,1,5,2,2,1,1, + 1,1,1,1,1,2,5,1,1,1,1,1,1,1,4,1,1,1,1,1,7,3,2,2,2,2,8,8,7,1,1,1,1,7,5,5,5, + 5,5,5,5,5,5,5,5,5,1,1,5,5,7,1,1,2,1,1,7,1,1,7,1,1,7,1,1,7,1,1,7,1,1,7,1,1, + 7,1,1,1,1,1,1,1,4,3,5,5,5,4,4,4,5,5,7,3,1,8,5,5,5,5,1,1,5,5,7,1,1,1,1,5,5, + 5,5,5,7,1,1,3,1,1,1,7,8,8,8,8,8,8,8,8,5,5,5,5,1,1,5,5,7,1,1,1,1,5,5,5,5,5, + 7,1,1,3,1,10,8,8,2,7,1,1,2,1,2,7,2,1,2,4,3,1,1,5,5,5,4,4,4,5,5,7,3,1,1,1,1, + 1,1,1,1,2,1,4,4,4,1,9,7,3,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,8, + 7,1,1,1,8,8,7,1,1,1,8,8,7,1,1,10,10,10,10,5,1,2,7,2,2,2,2,2,8,8,7,1,1,2,2, + 2,2,8,8,7,1,1,1,1,5,3,2,2,2,2,8,8,7,1,1,2,2,2,2,8,8,7,1,1,2,2,2,2,8,8,7,1, + 1,2,2,2,2,8,8,7,1,1,2,2,2,2,8,8,7,1,1,2,2,2,2,8,8,7,1,1,2,2,2,2,8,8,7,1,1, + 1,1,7,1,1,7,1,1,7,1,1,7,1,1,7,1,1,7,1,1,7,2,2,2,2,8,8,7,1,1,1,1,5,3,2,4,2, + 1,1,1,1,1,7,1,5,3,1,1,1,7,1,1,7,2,2,2,2,8,8,7,1,1,1,1,5,3,1,1,1,1,1,1,1,2, + 4,2,2,1,1,1,1,1,1,1,7,1,5,3,1,10,5,1,1,7,10,8,8,2,7,1,1,10,8,8,2,7,1,1,2,1, + 2,7,2,1,1,1,7,5,5,5,1,1,5,5,7,1,1,2,1,3,7,3,1,3,7,3,1,3,7,3,1,2,7,2,1,2,7, + 2,1,2,7,2,1,2,7,2,1,2,7,2,1,2,7,2,1,2,7,2,1,2,7,2,1,2,7,2,2,2,2,2,8,8,7,1, + 1,2,2,2,2,8,8,7,1,1,2,2,2,2,8,8,7,1,1,2,2,2,2,8,8,7,1,1,2,2,2,2,8,8,7,1,1, + 2,2,2,2,8,8,7,1,1,2,2,2,2,8,8,7,1,1,1,2,7,2,2,2,2,2,8,8,7,1,1,2,2,2,2,8,8, + 7,1,1,1,2,7,2,5,2,2,2,2,5,5,7,1,2,1,1,7,1,1,7,10,8,8,2,7,1,1,1,1,1,7,2,2,2, + 2,8,8,7,1,1,1,1,5,3,1,2,7,2,1,2,7,2,1,2,7,2,1,2,7,2,1,2,7,2,1,2,7,2,1,2,7, + 2,1,2,7,2,1,2,7,2,10,10,10,10,5,5,2,2,2,2,5,5,7,1,2,5,2,2,2,2,5,5,7,1,2,1, + 1,7,1,1,7,1,2,7,2,5,2,2,2,2,5,5,7,1,2,2,2,2,2,8,8,7,1,1,1,2,7,2 +}; + + +static const unsigned char ag_pstt[] = { +3,1,2,0,2,0,4,4,2,3, +2,1, +1,16,18,16, +23,3,7,6,5, +3,8,8,1,9,4,9,11,8,2,3, +24,24,24,21, +10,20, +11,12,7,12, +14,13,8,14,13,14, +15,13,13,15,15,9, +15,13,10,13,15, +9,11, +16,16,16,1,2,12,2,2,16, +4,6, +7,14, +23,15,17, +45,45,45,16,22,21,29,20,19,18, +24,24,24,22, +23,23,24,18,25, +26,27,28,29,30,31,32,37,43,39,40,34,39,38,36,35,33,33, +124,37,43,42,42,41,40, +1,44,28,44,44, +45,46,47,22,19, +120,120,120,120,49,49,23,48,49, +50,50,24, +48,48,48,48,48,48,48,48,48,48,48,48,51,51,48,48,25,52,52,50, +53,53,26, +54,54,27, +55,55,28, +56,56,29, +57,57,30, +58,58,31, +59,59,32, +60,61,62,63,64,65,66,82,84, +41,41,41,45,45,45,41,41,34,42,18, +69,78,78,78,78,67,67,78,78,35,68,68,69, +70,73,73,73,73,73,36,71,71,75,35, +72,73,37, +76,76,76,76,76,76,76,76,61,61,61,61,74,74,61,61,38,75,75,76, +77,56,56,56,56,56,39,78,78,58,38, +125,80,80,126,40,79,80, +124,11,90,41,90,81, +124,51,53,82,83, +38,38,38,45,45,45,38,38,43,44,18, +26,27,28,29,30,31,32,124,84,45,45,45,1,16,44,16,30,30,30,33,34,35,30,20,19, + 18,42,42,39,38,85,36,35,33,33,41,40, +13,86,86,45,13,86, +13,87,87,46,13,87, +13,88,88,47,13,88, +121,121,121,121,86, +11,87,49,87, +120,120,120,120,89,89,50,48,89, +120,120,120,120,90,90,51,48,90, +51,51,49,47, +120,120,120,120,91,91,53,48,91, +120,120,120,120,92,92,54,48,92, +120,120,120,120,93,93,55,48,93, +120,120,120,120,94,94,56,48,94, +120,120,120,120,95,95,57,48,95, +120,120,120,120,96,96,58,48,96, +120,120,120,120,97,97,59,48,97, +98,98,60, +99,99,61, +100,100,62, +101,101,63, +102,102,64, +103,103,65, +104,104,66, +120,120,120,120,105,105,67,48,105, +67,67,79,77, +124,80,81,42,42,41,40, +72,70, +70,74,72,35, +106,106,72, +107,107,73, +120,120,120,120,108,108,74,48,108, +74,74,62,60, +26,27,28,29,30,31,32,124,63,64,65,42,42,33,33,41,40, +73,77, +77,57,55,38, +127,92, +109,109,80, +125,110,110,126,81,79,110, +125,111,111,126,82,79,111, +124,11,97,83,97,112, +72,113,84, +68,68,68,114,114,68,68,85,115,115,70, +11,27,86,27, +11,26,87,26, +11,25,88,25, +11,88,89,88, +11,89,90,89, +11,112,91,112, +11,111,92,111, +11,110,93,110, +11,109,94,109, +11,108,95,108, +11,107,96,107, +11,106,97,106, +120,120,120,120,116,116,98,48,116, +120,120,120,120,117,117,99,48,117, +120,120,120,120,118,118,100,48,118, +120,120,120,120,119,119,101,48,119, +120,120,120,120,120,120,102,48,120, +120,120,120,120,121,121,103,48,121, +120,120,120,120,122,122,104,48,122, +11,105,105,105, +120,120,120,120,123,123,106,48,123, +120,120,120,120,124,124,107,48,124, +11,101,108,101, +93,122,122,122,122,93,93,109,125,95, +126,126,110, +127,127,111, +125,128,128,126,112,79,128, +107,107,129,113, +120,120,120,120,130,130,114,48,130, +114,114,69,67, +11,119,116,119, +11,118,117,118, +11,117,118,117, +11,116,119,116, +11,115,120,115, +11,114,121,114, +11,113,122,113, +11,104,123,104, +11,100,124,100, +123,123,123,123,94, +93,122,122,122,122,93,93,126,125,96, +93,122,122,122,122,93,93,127,125,98, +131,131,128, +132,132,129, +11,103,130,103, +93,122,122,122,122,93,93,131,125,99, +120,120,120,120,133,133,132,48,133, +11,102,133,102, + +}; + + +static const unsigned short ag_sbt[] = { + 0, 10, 12, 16, 21, 32, 36, 38, 42, 48, 54, 59, 61, 70, + 72, 74, 77, 87, 91, 96, 114, 121, 126, 131, 140, 143, 163, 166, + 169, 172, 175, 178, 181, 184, 193, 204, 217, 228, 231, 251, 262, 269, + 275, 280, 291, 328, 334, 340, 346, 351, 355, 364, 373, 377, 386, 395, + 404, 413, 422, 431, 440, 443, 446, 449, 452, 455, 458, 461, 470, 474, + 481, 483, 487, 490, 493, 502, 506, 523, 525, 529, 531, 534, 541, 548, + 554, 557, 568, 572, 576, 580, 584, 588, 592, 596, 600, 604, 608, 612, + 616, 625, 634, 643, 652, 661, 670, 679, 683, 692, 701, 705, 715, 718, + 721, 728, 732, 741, 745, 749, 753, 757, 761, 765, 769, 773, 777, 781, + 786, 796, 806, 809, 812, 816, 826, 835, 839 +}; + + +static const unsigned short ag_sbe[] = { + 3, 11, 14, 17, 26, 35, 37, 40, 44, 53, 56, 60, 66, 71, + 73, 75, 80, 90, 94, 104, 115, 123, 129, 137, 142, 159, 165, 168, + 171, 174, 177, 180, 183, 191, 201, 213, 223, 230, 247, 257, 266, 272, + 276, 288, 305, 331, 337, 343, 350, 353, 361, 370, 375, 383, 392, 401, + 410, 419, 428, 437, 442, 445, 448, 451, 454, 457, 460, 467, 472, 475, + 482, 484, 489, 492, 499, 504, 514, 524, 526, 530, 533, 538, 545, 551, + 556, 564, 570, 574, 578, 582, 586, 590, 594, 598, 602, 606, 610, 614, + 622, 631, 640, 649, 658, 667, 676, 681, 689, 698, 703, 712, 717, 720, + 725, 731, 738, 743, 747, 751, 755, 759, 763, 767, 771, 775, 779, 785, + 793, 803, 808, 811, 814, 823, 832, 837, 839 +}; + + +static const unsigned char ag_fl[] = { + 1,1,2,1,2,0,1,2,1,2,1,2,0,1,3,1,2,0,1,6,1,1,4,1,2,3,3,3,1,1,3,1,1,1,1, + 1,1,1,2,2,2,2,3,1,3,0,1,2,0,1,3,1,1,2,1,2,0,1,2,1,2,0,1,2,3,3,1,2,0,1, + 2,1,2,0,1,2,1,2,0,1,2,3,1,1,2,0,1,3,4,3,2,0,1,0,1,4,5,2,4,5,5,3,6,3,5, + 3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,2,1,2,1,2,1,2 +}; + +static const unsigned char ag_ptt[] = { + 0, 1, 1, 6, 6, 7, 7, 4, 9, 9, 12, 12, 13, 13, 10, 14, 14, 15, + 15, 11, 16, 19, 19, 20, 20, 18, 18, 18, 17, 27, 27, 29, 29, 29, 29, 29, + 29, 28, 28, 28, 28, 28, 28, 35, 35, 37, 40, 40, 41, 41, 36, 30, 42, 42, + 46, 46, 47, 47, 31, 50, 50, 51, 51, 45, 45, 45, 54, 54, 55, 55, 32, 57, + 57, 58, 58, 33, 61, 61, 62, 62, 56, 56, 34, 63, 63, 68, 68, 38, 38, 39, + 43, 72, 72, 74, 74, 69, 69, 44, 75, 75, 48, 49, 52, 53, 59, 60, 64, 64, + 64, 64, 64, 64, 64, 65, 65, 65, 65, 65, 65, 65, 67, 67, 73, 73, 70, 70, + 71, 71 +}; + + +static void ag_ra(void) +{ + switch(ag_rpx[(PCB).ag_ap]) { + case 1: ag_rp_1(); break; + case 2: ag_rp_2(); break; + case 3: ag_rp_3(); break; + case 4: ag_rp_4(VS(0)); break; + case 5: ag_rp_5(VS(1)); break; + case 6: ag_rp_6(); break; + case 7: ag_rp_7(); break; + case 8: ag_rp_8(); break; + case 9: ag_rp_9(); break; + case 10: ag_rp_10(); break; + case 11: ag_rp_11(); break; + case 12: ag_rp_12(); break; + case 13: ag_rp_13(); break; + case 14: ag_rp_14(); break; + case 15: ag_rp_15(); break; + case 16: ag_rp_16(); break; + case 17: ag_rp_17(); break; + case 18: ag_rp_18(); break; + case 19: ag_rp_19(); break; + case 20: ag_rp_20(); break; + case 21: ag_rp_21(); break; + case 22: ag_rp_22(); break; + case 23: ag_rp_23(); break; + case 24: ag_rp_24(VS(0)); break; + case 25: ag_rp_25(VS(1)); break; + case 26: ag_rp_26(VS(0)); break; + case 27: ag_rp_27(); break; + case 28: ag_rp_28(VS(2)); break; + case 29: ag_rp_29(VS(3)); break; + case 30: ag_rp_30(); break; + case 31: ag_rp_31(VS(2)); break; + case 32: ag_rp_32(VS(3)); break; + case 33: ag_rp_33(VS(2)); break; + case 34: ag_rp_34(VS(0)); break; + case 35: ag_rp_35(VS(3)); break; + case 36: ag_rp_36(VS(0)); break; + case 37: ag_rp_37(VS(1), VS(2)); break; + case 38: ag_rp_38(VS(0)); break; + case 39: ag_rp_39(VS(1)); break; + case 40: ag_rp_40(VS(1)); break; + case 41: ag_rp_41(VS(1)); break; + case 42: ag_rp_42(VS(1)); break; + case 43: ag_rp_43(VS(1)); break; + case 44: ag_rp_44(VS(1)); break; + case 45: ag_rp_45(VS(1)); break; + case 46: ag_rp_46(VS(1)); break; + case 47: ag_rp_47(VS(1)); break; + case 48: ag_rp_48(VS(1)); break; + case 49: ag_rp_49(VS(1)); break; + case 50: ag_rp_50(VS(1)); break; + case 51: ag_rp_51(VS(1)); break; + case 52: ag_rp_52(VS(1)); break; + case 53: ag_rp_53(VS(0)); break; + case 54: ag_rp_54(VS(1)); break; + case 55: ag_rp_55(VS(0)); break; + case 56: ag_rp_56(VS(1)); break; + case 57: ag_rp_57(VS(0)); break; + case 58: ag_rp_58(VS(1)); break; + case 59: ag_rp_59(); break; + case 60: ag_rp_60(); break; + } + (PCB).la_ptr = (PCB).pointer; +} + +#define TOKEN_NAMES mhh6_token_names +const char *const mhh6_token_names[87] = { + "help sourcefile", + "blank line", + "'\\n'", + "'\\r'", + "eof line", + "blank", + "", + "", + "eof", + "eol", + "help sourcefile", + "topic", + "", + "", + "", + "", + "title line", + "topic lines", + "end topic", + "title line too", + "title", + "','", + "lead title char", + "title char", + "\"##\"", + "\"\\n##\"", + "\"\\r\\n##\"", + "topic lines too", + "text parag", + "parag", + "table parag", + "list1 parag", + "list2 parag", + "listtab parag", + "code parag", + "partial text parag", + "text block", + "", + "first text line", + "other text line", + "", + "", + "table parag too", + "first table line", + "other table line", + "list1 block", + "", + "", + "first list1 line", + "other list1 line", + "", + "", + "first list2 line", + "other list2 line", + "", + "", + "listtab block", + "", + "", + "first listtab line", + "other listtab line", + "", + "", + "code parag too", + "first code line", + "other code line", + "lead topic char", + "text frag", + "", + "first table line body", + "tab seq", + "blank seq", + "", + "table frag", + "", + "other table line body", + "bullet", + "tab", + "\" \"", + "\" \"", + "\" \"", + "\" \"", + "\" \"", + "\" \"", + "\" \"", + "text char", + "table char", + +}; + +#ifndef MISSING_FORMAT +#define MISSING_FORMAT "Missing %s" +#endif +#ifndef UNEXPECTED_FORMAT +#define UNEXPECTED_FORMAT "Unexpected %s" +#endif +#ifndef UNNAMED_TOKEN +#define UNNAMED_TOKEN "input" +#endif + + +static void ag_diagnose(void) { + int ag_snd = (PCB).sn; + int ag_k = ag_sbt[ag_snd]; + + if (*TOKEN_NAMES[ag_tstt[ag_k]] && ag_astt[ag_k + 1] == ag_action_8) { + sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]); + } + else if (ag_astt[ag_sbe[(PCB).sn]] == ag_action_8 + && (ag_k = (int) ag_sbe[(PCB).sn] + 1) == (int) ag_sbt[(PCB).sn+1] - 1 + && *TOKEN_NAMES[ag_tstt[ag_k]]) { + sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]); + } + else if ((PCB).token_number && *TOKEN_NAMES[(PCB).token_number]) { + sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, TOKEN_NAMES[(PCB).token_number]); + } + else if (isprint(INPUT_CODE((*(PCB).pointer))) && INPUT_CODE((*(PCB).pointer)) != '\\') { + char buf[20]; + sprintf(buf, "\'%c\'", (char) INPUT_CODE((*(PCB).pointer))); + sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, buf); + } + else sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, UNNAMED_TOKEN); + (PCB).error_message = (PCB).ag_msg; + + +} +static int ag_action_1_r_proc(void); +static int ag_action_2_r_proc(void); +static int ag_action_3_r_proc(void); +static int ag_action_4_r_proc(void); +static int ag_action_1_s_proc(void); +static int ag_action_3_s_proc(void); +static int ag_action_1_proc(void); +static int ag_action_2_proc(void); +static int ag_action_3_proc(void); +static int ag_action_4_proc(void); +static int ag_action_5_proc(void); +static int ag_action_6_proc(void); +static int ag_action_7_proc(void); +static int ag_action_8_proc(void); +static int ag_action_9_proc(void); +static int ag_action_10_proc(void); +static int ag_action_11_proc(void); +static int ag_action_8_proc(void); + + +static int (*const ag_r_procs_scan[])(void) = { + ag_action_1_r_proc, + ag_action_2_r_proc, + ag_action_3_r_proc, + ag_action_4_r_proc +}; + +static int (*const ag_s_procs_scan[])(void) = { + ag_action_1_s_proc, + ag_action_2_r_proc, + ag_action_3_s_proc, + ag_action_4_r_proc +}; + +static int (*const ag_gt_procs_scan[])(void) = { + ag_action_1_proc, + ag_action_2_proc, + ag_action_3_proc, + ag_action_4_proc, + ag_action_5_proc, + ag_action_6_proc, + ag_action_7_proc, + ag_action_8_proc, + ag_action_9_proc, + ag_action_10_proc, + ag_action_11_proc, + ag_action_8_proc +}; + + +static int ag_action_10_proc(void) { + int ag_t = (PCB).token_number; + (PCB).btsx = 0, (PCB).drt = -1; + do { + ag_track(); + (PCB).token_number = (mhh6_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr)); + (PCB).la_ptr++; + if (ag_key_index[(PCB).sn]) { + unsigned ag_k = ag_key_index[(PCB).sn]; + int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer)); + if (ag_ch <= 255) { + while (ag_key_ch[ag_k] < ag_ch) ag_k++; + if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k); + } + } + } while ((PCB).token_number == (mhh6_token_type) ag_t); + (PCB).la_ptr = (PCB).pointer; + return 1; +} + +static int ag_action_11_proc(void) { + int ag_t = (PCB).token_number; + + (PCB).btsx = 0, (PCB).drt = -1; + do { + (PCB).vs[(PCB).ssx] = *(PCB).pointer; + (PCB).ssx--; + ag_track(); + ag_ra(); + if ((PCB).exit_flag != AG_RUNNING_CODE) return 0; + (PCB).ssx++; + (PCB).token_number = (mhh6_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr)); + (PCB).la_ptr++; + if (ag_key_index[(PCB).sn]) { + unsigned ag_k = ag_key_index[(PCB).sn]; + int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer)); + if (ag_ch <= 255) { + while (ag_key_ch[ag_k] < ag_ch) ag_k++; + if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k); + } + } + } + while ((PCB).token_number == (mhh6_token_type) ag_t); + (PCB).la_ptr = (PCB).pointer; + return 1; +} + +static int ag_action_3_r_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + (PCB).btsx = 0, (PCB).drt = -1; + (PCB).reduction_token = (mhh6_token_type) ag_ptt[(PCB).ag_ap]; + ag_ra(); + return (PCB).exit_flag == AG_RUNNING_CODE; +} + +static int ag_action_3_s_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + (PCB).btsx = 0, (PCB).drt = -1; + (PCB).reduction_token = (mhh6_token_type) ag_ptt[(PCB).ag_ap]; + ag_ra(); + return (PCB).exit_flag == AG_RUNNING_CODE; +} + +static int ag_action_4_r_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + (PCB).reduction_token = (mhh6_token_type) ag_ptt[(PCB).ag_ap]; + return 1; +} + +static int ag_action_2_proc(void) { + (PCB).btsx = 0, (PCB).drt = -1; + if ((PCB).ssx >= 128) { + (PCB).exit_flag = AG_STACK_ERROR_CODE; + PARSER_STACK_OVERFLOW; + } + (PCB).vs[(PCB).ssx] = *(PCB).pointer; + (PCB).ss[(PCB).ssx] = (PCB).sn; + (PCB).ssx++; + (PCB).sn = (PCB).ag_ap; + ag_track(); + return 0; +} + +static int ag_action_9_proc(void) { + if ((PCB).drt == -1) { + (PCB).drt=(PCB).token_number; + (PCB).dssx=(PCB).ssx; + (PCB).dsn=(PCB).sn; + } + ag_prot(); + (PCB).vs[(PCB).ssx] = ag_null_value; + (PCB).ss[(PCB).ssx] = (PCB).sn; + (PCB).ssx++; + (PCB).sn = (PCB).ag_ap; + (PCB).la_ptr = (PCB).pointer; + return (PCB).exit_flag == AG_RUNNING_CODE; +} + +static int ag_action_2_r_proc(void) { + (PCB).ssx++; + (PCB).sn = (PCB).ag_ap; + return 0; +} + +static int ag_action_7_proc(void) { + --(PCB).ssx; + (PCB).la_ptr = (PCB).pointer; + (PCB).exit_flag = AG_SUCCESS_CODE; + return 0; +} + +static int ag_action_1_proc(void) { + ag_track(); + (PCB).exit_flag = AG_SUCCESS_CODE; + return 0; +} + +static int ag_action_1_r_proc(void) { + (PCB).exit_flag = AG_SUCCESS_CODE; + return 0; +} + +static int ag_action_1_s_proc(void) { + (PCB).exit_flag = AG_SUCCESS_CODE; + return 0; +} + +static int ag_action_4_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + (PCB).reduction_token = (mhh6_token_type) ag_ptt[(PCB).ag_ap]; + (PCB).btsx = 0, (PCB).drt = -1; + (PCB).vs[(PCB).ssx] = *(PCB).pointer; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + else (PCB).ss[(PCB).ssx] = (PCB).sn; + ag_track(); + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; + unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + (PCB).ag_ap = ag_pstt[ag_t1]; + if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break; + } + return 0; +} + +static int ag_action_3_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap] - 1; + (PCB).btsx = 0, (PCB).drt = -1; + (PCB).vs[(PCB).ssx] = *(PCB).pointer; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + else (PCB).ss[(PCB).ssx] = (PCB).sn; + ag_track(); + (PCB).reduction_token = (mhh6_token_type) ag_ptt[(PCB).ag_ap]; + ag_ra(); + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; + unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + (PCB).ag_ap = ag_pstt[ag_t1]; + if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break; + } + return 0; +} + +static int ag_action_8_proc(void) { + ag_undo(); + (PCB).la_ptr = (PCB).pointer; + (PCB).exit_flag = AG_SYNTAX_ERROR_CODE; + ag_diagnose(); + SYNTAX_ERROR; + {(PCB).la_ptr = (PCB).pointer + 1; ag_track();} + return (PCB).exit_flag == AG_RUNNING_CODE; +} + +static int ag_action_5_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap]; + (PCB).btsx = 0, (PCB).drt = -1; + if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + else { + (PCB).ss[(PCB).ssx] = (PCB).sn; + } + (PCB).la_ptr = (PCB).pointer; + (PCB).reduction_token = (mhh6_token_type) ag_ptt[(PCB).ag_ap]; + ag_ra(); + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; + unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + (PCB).ag_ap = ag_pstt[ag_t1]; + if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break; + } + return (PCB).exit_flag == AG_RUNNING_CODE; +} + +static int ag_action_6_proc(void) { + int ag_sd = ag_fl[(PCB).ag_ap]; + (PCB).reduction_token = (mhh6_token_type) ag_ptt[(PCB).ag_ap]; + if ((PCB).drt == -1) { + (PCB).drt=(PCB).token_number; + (PCB).dssx=(PCB).ssx; + (PCB).dsn=(PCB).sn; + } + if (ag_sd) { + (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; + } + else { + ag_prot(); + (PCB).vs[(PCB).ssx] = ag_null_value; + (PCB).ss[(PCB).ssx] = (PCB).sn; + } + (PCB).la_ptr = (PCB).pointer; + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbe[(PCB).sn] + 1; + unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1; + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + (PCB).ag_ap = ag_pstt[ag_t1]; + if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break; + } + return (PCB).exit_flag == AG_RUNNING_CODE; +} + + +void init_mhh6(void) { + (PCB).la_ptr = (PCB).pointer; + (PCB).ss[0] = (PCB).sn = (PCB).ssx = 0; + (PCB).exit_flag = AG_RUNNING_CODE; + (PCB).line = FIRST_LINE; + (PCB).column = FIRST_COLUMN; + (PCB).btsx = 0, (PCB).drt = -1; +} + +void mhh6(void) { + init_mhh6(); + (PCB).exit_flag = AG_RUNNING_CODE; + while ((PCB).exit_flag == AG_RUNNING_CODE) { + unsigned ag_t1 = ag_sbt[(PCB).sn]; + if (ag_tstt[ag_t1]) { + unsigned ag_t2 = ag_sbe[(PCB).sn] - 1; + (PCB).token_number = (mhh6_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr)); + (PCB).la_ptr++; + if (ag_key_index[(PCB).sn]) { + unsigned ag_k = ag_key_index[(PCB).sn]; + int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer)); + if (ag_ch <= 255) { + while (ag_key_ch[ag_k] < ag_ch) ag_k++; + if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k); + } + } + do { + unsigned ag_tx = (ag_t1 + ag_t2)/2; + if (ag_tstt[ag_tx] > (unsigned char)(PCB).token_number) + ag_t1 = ag_tx + 1; + else ag_t2 = ag_tx; + } while (ag_t1 < ag_t2); + if (ag_tstt[ag_t1] != (unsigned char)(PCB).token_number) + ag_t1 = ag_sbe[(PCB).sn]; + } + (PCB).ag_ap = ag_pstt[ag_t1]; + (ag_gt_procs_scan[ag_astt[ag_t1]])(); + } +} + +