Mercurial > ~dholland > hg > ag > index.cgi
view tests/agcl/parsifal/good/xml2.c @ 20:bb115deb6fb2
Improve agfiles rule.
(1) It didn't depend on $(AGCL) and it absolutely should have.
(2) allow AGFORCE=1 to make it rebuild whether or not it looks out of
date.
(3) Document this.
author | David A. Holland |
---|---|
date | Mon, 13 Jun 2022 00:02:15 -0400 |
parents | 13d2b8934445 |
children |
line wrap: on
line source
/* * 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 XML2_H #include "xml2.h" #endif #ifndef XML2_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]) xml2_pcb_type xml2_pcb; #define PCB xml2_pcb #ifndef CONVERT_CASE #define CONVERT_CASE(c) (c) #endif #ifndef TAB_SPACING #define TAB_SPACING 8 #endif #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 }; 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, 39, 63,115,118,255,118,255,110,121,255, 34, 39, 63,255, 45,255, 60, 255, 45, 91,255, 33, 47, 63,255, 60,255, 33, 63,255, 60,255, 63,255, 93, 255, 60,255, 63,115,255, 39,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,3,3,4,3,4,3,3,4,2,3,3,4,3,4, 3,4,3,3,4,2,0,0,4,2,4,3,0,4,2,4,3,4,3,4,3,4,3,3,4,3,4 }; static const unsigned char ag_key_parm[] = { 0, 61, 99, 0, 85, 0, 0, 68, 0, 0, 0, 61, 99, 0, 0, 68, 0, 0, 0,123, 74,122, 92, 0, 92, 0,126,124, 0, 0,125, 74, 0, 65, 0, 99, 0, 61, 79, 0, 0,151, 68, 0, 0, 0, 61, 68, 0, 0, 0, 74, 0, 80, 0,151, 0, 74,122, 0,123, 0 }; static const unsigned char ag_key_jmp[] = { 0, 0, 2, 0, 9, 0, 1, 4, 0, 6, 0, 12, 14, 0, 11, 0, 0, 14, 0, 21, 26, 28, 38, 0, 45, 0, 52, 55, 0, 26, 59, 63, 0, 65, 0, 67, 0, 76, 78, 0, 37, 0, 0, 0, 40, 0, 85, 0, 0, 46, 0, 88, 0, 90, 0, 93, 0, 95, 97, 0,107, 0 }; static const unsigned char ag_key_index[] = { 9, 0, 17, 0, 19, 24, 29, 0, 33, 17, 35, 0, 44, 49, 0, 29, 51, 51, 33, 33, 0, 49, 0, 44, 53, 44, 55, 0, 0, 57, 51, 51, 51, 51, 51, 0, 0, 0, 0, 0, 0, 0, 60, 0, 0, 0, 51, 0, 0, 0, 0, 0, 0, 0, 60, 0, 0, 0, 0, 0, 49, 0, 0, 0, 49, 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, 121,101,115,39,0, 62,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, 111,34,0, 101,115,34,0, 110,111,39,0, 62,0, 45,0, 33,68,79,67,84,89,80,69,0, 45,0, 67,68,65,84,65,91,0, 45,45,0, 62,0, 93,62,0, 47,0, 62,0, 116,97,110,100,97,108,111,110,101,0, 121,101,115,39,0, }; #define AG_TCV(x) (((int)(x) >= 0 && (int)(x) <= 255) ? ag_tcv[(x)] : 0) static const unsigned char ag_tcv[] = { 161,161,161,161,161,161,161,161,161,155,156,161,161,157,161,161,161,161, 161,161,161,161,161,161,161,161,161,161,161,161,161,161,156,162, 26,162, 162,165,166, 33,162,162,162,162,162,129,160,162,163,163,163,163,163,163, 163,163,163,163,158,162,146, 96, 66,162,162,137,137,137,137,137,137,137, 137,139,137,137,137,137,137,137,137,137,137,137,137,137,137,137,141,137, 137,103,164,108,164,159,164,137,137,137,137,137,137,137,137,139,137,137, 137,137,137,137,137,137,137,137,137,137,137,137,141,137,137,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164, 164,164,164,164 }; #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 GET_INPUT #define GET_INPUT ((PCB).input_code = getchar()) #endif static int ag_look_ahead(void) { if ((PCB).rx < (PCB).fx) { return CONVERT_CASE((PCB).lab[(PCB).rx++]); } GET_INPUT; (PCB).fx++; return CONVERT_CASE((PCB).lab[(PCB).rx++] = (PCB).input_code); } static void ag_get_key_word(int ag_k) { int save_index = (PCB).rx; const unsigned char *sp; int ag_ch; while (1) { switch (ag_key_act[ag_k]) { case ag_cf_end_key: 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 + ag_look_ahead()]) goto ag_fail; (PCB).rx--; (PCB).token_number = (xml2_token_type) ag_key_pt[ag_k1 + 1]; return; } } while (ag_look_ahead() == ag_ch); goto ag_fail; case ag_end_key: sp = ag_key_ends + ag_key_jmp[ag_k]; do { if ((ag_ch = *sp++) == 0) { (PCB).token_number = (xml2_token_type) ag_key_parm[ag_k]; return; } } while (ag_look_ahead() == ag_ch); case ag_no_match_key: ag_fail: (PCB).rx = save_index; 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 + (ag_ch = ag_look_ahead())]) break; save_index = --(PCB).rx; (PCB).token_number = (xml2_token_type) ag_key_pt[ag_k1+1]; break; } case ag_set_key: save_index = (PCB).rx; (PCB).token_number = (xml2_token_type) ag_key_parm[ag_k]; case ag_jmp_key: ag_k = ag_key_jmp[ag_k]; ag_ch = ag_look_ahead(); break; case ag_accept_key: (PCB).token_number = (xml2_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 + ag_look_ahead()]) (PCB).rx = save_index; else { (PCB).rx--; (PCB).token_number = (xml2_token_type) ag_key_pt[ag_k1+1]; } return; } default: /* not reachable; here to suppress compiler warnings */ goto ag_fail; } if (ag_ch <= 255) while (ag_key_ch[ag_k] < ag_ch) ag_k++; if (ag_ch > 255 || ag_key_ch[ag_k] != ag_ch) { (PCB).rx = save_index; return; } } } #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 = 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(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 = (xml2_token_type) (PCB).drt; (PCB).ssx = (PCB).dssx; (PCB).sn = (PCB).dsn; (PCB).drt = -1; } static const unsigned char ag_tstt[] = { 157,156,155,146,142,99,85,68,61,0,1,2,81,82, 157,156,155,0,7,9,10,86, 157,156,155,146,142,99,68,61,0,4,5,6,7,60,67, 146,142,0,3,143, 157,156,155,0,7, 92,0, 157,156,155,126,125,124,87,74,0,88, 159,158,0,11,69, 166,165,164,163,162,160,159,158,156,155,146,141,139,137,129,108,103,96,66, 65,33,26,0,63,64, 157,156,155,68,61,0,4,7,60,67, 146,142,99,0,83,84, 159,158,0,11, 165,164,163,162,161,160,159,158,157,156,155,151,146,142,141,139,137,129,108, 103,96,79,68,66,61,33,29,26,0,3,56,58,59,60,67,75,76,143,144,152,153, 154, 157,156,155,68,61,0,4,5,6,7,60,67, 157,156,155,96,0,7,9,10,90,93, 157,156,155,126,125,124,74,0,7,9,10,89,91, 160,158,157,156,155,129,103,96,74,66,0,14,15, 157,156,155,74,0,7,9,10,73, 166,165,164,163,162,160,159,158,156,155,146,141,139,137,129,108,103,96,66, 33,26,0, 65,0, 157,156,155,0,7,9,10, 157,156,155,146,142,68,61,0,4,5,6,7,60,67, 157,156,155,66,0,7,9,10,148,149,150, 165,164,163,162,161,160,159,158,157,156,155,141,139,137,129,108,103,96,66, 33,26,0, 166,165,164,163,162,160,159,158,156,155,146,141,139,137,129,108,103,96,80, 78,66,33,26,0,63,64,77, 165,164,163,162,161,160,159,158,157,156,155,151,146,142,141,139,137,129,108, 103,96,79,68,66,61,33,29,26,0,3,56,58,59,60,67,75,76,143,152, 151,0,145, 96,0, 33,26,0,95, 122,0, 157,156,155,74,0,7,9,10,90, 74,0, 160,158,129,0, 74,70,0,71,72, 74,0, 66,0, 159,158,0,11, 159,158,0,11,147, 157,156,155,0,7,9,10,148, 66,0, 78,0, 159,158,0,11, 157,156,155,123,33,26,0,7,9,10,90, 163,160,159,158,141,139,137,129,0,94,98, 163,160,159,158,141,139,137,129,0,94,98, 157,156,155,96,0,7,9,10,90,93, 70,0, 157,156,155,103,66,0,7,9,10,102, 157,156,155,96,0,7,9,10,90,93, 159,158,0,11,147, 157,156,155,66,0,7,9,10,90, 163,160,159,158,141,139,137,129,0, 26,0, 33,0, 123,0, 103,100,66,0,101, 103,66,0,109, 33,26,0,38, 66,0, 157,156,155,103,66,0,7,9,10,90, 157,156,155,113,112,111,110,108,68,61,28,0,7,60,67,104,105,106,107, 66,0, 164,163,162,161,160,159,158,157,156,155,146,141,139,137,129,108,103,96,66, 33,29,26,0,42,43,44, 164,163,162,161,160,159,158,157,156,155,146,141,139,137,129,108,103,96,66, 33,29,26,0,39,40,41, 157,156,155,113,112,111,110,68,61,28,0,7,60,67,104,105, 108,0, 164,163,162,161,160,159,158,157,156,155,146,141,139,137,129,108,103,96,66, 29,26,0,42, 33,0, 164,163,162,161,160,159,158,157,156,155,146,141,139,137,129,108,103,96,66, 33,29,0,39, 26,0, 157,156,155,66,0,7,9,10,90, }; static unsigned const char ag_astt[681] = { 8,8,8,5,5,5,1,8,8,7,0,1,1,1,1,1,1,7,1,1,1,1,1,1,1,5,5,8,1,1,7,1,1,1,1,1,1, 1,1,7,1,1,9,9,9,5,3,1,7,8,8,8,8,8,8,1,5,7,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,8,1,1,7,1,1,9,9,9,1,1,5,3,3,3,3,5,5,1,7,1,3,1,1,7,1,1,1, 1,1,1,1,1,1,1,1,1,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,5,1,1,3,1,1,1,1,1,1,8,7,1,1,1,1,1,1,1,1,1,1,1,8,7,1,1,1,1, 1,1,1,5,5,5,1,5,5,5,5,7,1,3,1,1,1,8,7,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,5,1,7,1,1,1,7,1,1,1,1,1,1,5,5,1,1,7,1,1,3,1,1,1,1,1,1,8,7,1, 1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,5,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,5,1,1,1,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,1,9,1,1,1,1,1,1, 1,1,1,1,1,1,9,1,7,3,3,1,3,3,3,3,1,1,3,1,7,3,1,7,1,1,7,3,1,5,1,1,1,5,7,1,3, 1,3,3,7,9,9,9,5,5,1,7,1,3,3,7,3,7,1,1,7,1,1,1,5,1,3,1,1,1,5,1,1,1,3,3,7,3, 7,1,1,7,1,1,1,1,5,5,5,7,1,3,1,3,1,1,1,1,1,1,1,1,7,1,1,1,1,1,1,1,1,1,1,7,1, 1,1,1,1,8,7,1,1,1,1,1,9,5,1,1,1,8,5,7,1,1,1,1,1,1,1,8,7,1,1,1,1,1,1,1,7,1, 3,1,1,1,8,7,1,1,1,1,9,9,9,9,9,9,9,9,5,3,7,3,7,3,7,5,1,5,7,3,1,8,7,1,1,1,7, 3,3,7,1,1,1,5,5,7,1,3,1,3,1,1,1,1,1,1,1,8,1,1,1,7,1,1,1,1,1,1,1,3,7,1,1,1, 1,1,1,1,1,1,1,1,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,1,1,1,1, 1,1,1,1,1,1,1,8,7,1,1,1,9,9,9,9,9,9,9,1,1,9,5,3,3,3,3,3,1,7,9,9,9,9,9,9,9, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,5,3,3,7,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, 9,9,5,3,3,7,1,1,1,5,7,1,3,1,3 }; static const unsigned char ag_pstt[] = { 2,2,2,96,96,96,1,2,2,0,0,3,2,2, 4,4,4,1,4,5,4,6, 9,9,9,3,3,10,7,8,2,9,9,10,9,9,9, 11,13,3,13,12, 8,8,8,9,8, 14,5, 15,15,15,15,15,15,15,101,6,15, 16,16,7,17,17, 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,19,18,18,8,18,19, 2,2,2,7,8,4,2,2,2,2, 98,98,20,10,21,100, 16,16,11,22, 23,23,23,23,23,23,23,23,23,23,23,76,11,25,23,23,23,23,23,23,23,24,7,23,8,23, 25,23,12,25,25,23,25,25,25,25,24,12,26,25,25,26, 9,9,9,7,8,3,9,9,5,9,9,9, 4,4,4,27,14,4,27,4,27,28, 4,4,4,30,30,30,31,15,4,29,4,30,31, 32,32,12,12,12,32,12,12,12,12,16,32,14, 4,4,4,34,17,4,33,4,34, 80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,80,82, 35,19, 4,4,4,20,4,36,4, 9,9,9,3,3,7,8,21,9,9,99,9,9,9, 4,4,4,39,22,4,37,4,38,38,39, 75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,77, 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,40,81,18,18,18,24,18, 40,40, 23,23,23,23,23,23,23,23,23,23,23,76,11,188,23,23,23,23,23,23,23,24,7,23,8, 23,188,23,25,188,188,23,188,188,188,188,24,12,188, 41,26,171, 42,27, 44,43,28,111, 45,107, 4,4,4,103,30,4,106,4,106, 108,31, 11,11,11,13, 86,46,33,46,89, 90,34, 83,35, 16,16,36,47, 16,16,177,48,172, 4,4,4,176,4,49,4,174, 178,39, 92,40, 16,16,41,50, 4,4,4,103,103,103,42,4,112,4,112, 51,51,51,51,51,51,51,51,43,52,51, 51,51,51,51,51,51,51,51,44,53,51, 4,4,4,27,45,4,27,4,27,54, 85,87, 4,4,4,56,121,47,4,55,4,56, 4,4,4,27,48,4,27,4,27,57, 16,16,49,48,172, 4,4,4,58,50,4,58,4,58, 114,114,114,114,114,114,114,114,115, 110,52, 109,53, 151,54, 119,59,119,55,122, 60,61,56,61, 62,63,57,179, 180,58, 4,4,4,103,103,59,4,120,4,120, 64,64,64,64,64,64,64,65,7,8,64,60,64,64,64,64,64,64,65, 132,61, 66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,66,67,66,66,62,66,66, 67, 68,68,68,68,68,68,68,68,68,68,68,68,68,68,68,68,68,68,68,68,68,69,63,68,68, 69, 127,127,127,127,127,127,127,7,8,127,129,127,127,127,127,127, 70,65, 54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,56,54, 57,67, 47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,49,47, 50,69, 4,4,4,103,70,4,131,4,131, }; static const unsigned short ag_sbt[] = { 0, 14, 22, 37, 42, 47, 49, 59, 64, 89, 99, 105, 109, 151, 163, 173, 186, 199, 208, 230, 232, 239, 253, 264, 286, 313, 352, 355, 357, 361, 363, 372, 374, 378, 383, 385, 387, 391, 396, 404, 406, 408, 412, 423, 434, 445, 455, 457, 467, 477, 482, 491, 500, 502, 504, 506, 511, 515, 519, 521, 531, 550, 552, 578, 604, 620, 622, 645, 647, 670, 672, 681 }; static const unsigned short ag_sbe[] = { 9, 17, 30, 39, 45, 48, 57, 61, 86, 94, 102, 107, 137, 156, 167, 180, 196, 203, 229, 231, 235, 246, 257, 285, 309, 341, 353, 356, 359, 362, 367, 373, 377, 380, 384, 386, 389, 393, 399, 405, 407, 410, 418, 431, 442, 449, 456, 462, 471, 479, 486, 499, 501, 503, 505, 509, 513, 517, 520, 526, 542, 551, 574, 600, 614, 621, 643, 646, 668, 671, 676, 681 }; static const unsigned char ag_fl[] = { 1,1,2,0,1,3,1,1,2,1,1,2,0,1,2,2,1,2,0,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,1,1,1,2,0,1,3,1,1,1,2,0,1,3,1,2,0,1,3,1,2,0,1,3,1,2, 0,1,3,3,1,2,0,1,1,1,2,0,1,4,1,2,0,1,0,2,4,1,3,1,1,1,0,1,0,2,3,0,1,0,1, 0,2,1,5,3,3,4,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,4,1,1,1,2,1,2,0,1,2,1,1,1,2,1,2,3,3,1,1,3,2,1,2, 0,1,1,4,3,4,1,1,1,1,1,1,1,2,0,1,1 }; static const unsigned char ag_ptt[] = { 0, 5, 5, 6, 6, 1, 7, 10, 10, 9, 14, 14, 15, 15, 11, 17, 18, 18, 19, 19, 16, 20, 22, 23, 23, 24, 24, 21, 30, 30, 30, 31, 31, 32, 32, 25, 35, 35, 35, 36, 36, 37, 37, 25, 39, 39, 40, 40, 41, 41, 38, 42, 42, 43, 43, 44, 44, 38, 47, 47, 48, 48, 45, 50, 50, 51, 51, 45, 54, 54, 55, 55, 52, 52, 58, 58, 59, 59, 56, 63, 63, 64, 64, 60, 71, 71, 72, 72, 73, 73, 67, 69, 75, 76, 77, 77, 82, 82, 84, 84, 2, 88, 88, 90, 90, 91, 91, 91, 81, 95, 95, 86, 93, 98, 98, 94, 4, 4, 4,101,101,102,102,105,105,105, 106,106,107,107,109,109, 83,104,104,104,104,104,104,116,116,114,119,119, 119,119,120,120,121,121,117, 89, 89, 89, 89,131,132,132,133,133,127,128, 128,128,134,140,140,135,136,130, 3, 3,148,149,149,150,150,150,143,147, 145,152,152,152,152,152,152,153,153,154,154,144 }; static void ag_ra(void) { } #define TOKEN_NAMES xml2_token_names const char *const xml2_token_names[167] = { "document", "document", "prolog", "element", "Misc", "", "", "SpaceChar", "", "S", "", "Name", "", "NameChar", "", "", "Names", "", "", "", "Nmtoken", "Nmtokens", "", "", "", "EntityValue", "'\\\"'", "", "PEReference", "Reference", "", "", "", "'\\''", "", "", "", "", "AttValue", "", "", "", "", "", "", "SystemLiteral", "", "", "", "", "", "", "PubidLiteral", "PubidChar", "", "", "CharData", "", "", "", "Comment", "\"<!--\"", "Char", "", "", "\"--\"", "'>'", "PI", "\"<?\"", "PITarget", "char", "", "", "", "\"?>\"", "CDSect", "CDStart", "CData", "CDEnd", "\"<![CDATA[\"", "\"]]>\"", "XMLDecl", "", "doctypedecl", "", "\"<?xml\"", "VersionInfo", "EncodingDecl", "", "SDDecl", "", "", "\"version\"", "Eq", "VersionNum", "", "'='", "", "", "\"<!DOCTYPE\"", "ExternalID", "", "", "'['", "markupdecl", "", "", "", "']'", "", "elementdecl", "AttlistDecl", "EntityDecl", "NotationDecl", "extSubset", "TextDecl", "", "extSubsetDecl", "conditionalSect", "", "", "", "\"standalone\"", "\"\\'yes\\'\"", "\"\\\"yes\\\"\"", "\"\\'no\\'\"", "\"\\\"no\\\"\"", "Language Id", "Langcode", "'-'", "Subcode", "", "", "", "ISO639Code", "IanaCode", "UserCode", "", "", "", "", "", "EmptyElemTag", "STag", "content", "ETag", "'<'", "Attribute", "", "", "", "\"</\"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", }; #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((*(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(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(); if ((PCB).rx < (PCB).fx) { (PCB).input_code = (PCB).lab[(PCB).rx++]; (PCB).token_number = (xml2_token_type) AG_TCV((PCB).input_code);} else { GET_INPUT; (PCB).lab[(PCB).fx++] = (PCB).input_code; (PCB).token_number = (xml2_token_type) AG_TCV((PCB).input_code); (PCB).rx++; } if (ag_key_index[(PCB).sn]) { unsigned ag_k = ag_key_index[(PCB).sn]; int ag_ch = CONVERT_CASE((PCB).input_code); 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 == (xml2_token_type) ag_t); (PCB).rx = 0; 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).lab; (PCB).ssx--; ag_track(); ag_ra(); if ((PCB).exit_flag != AG_RUNNING_CODE) return 0; (PCB).ssx++; if ((PCB).rx < (PCB).fx) { (PCB).input_code = (PCB).lab[(PCB).rx++]; (PCB).token_number = (xml2_token_type) AG_TCV((PCB).input_code);} else { GET_INPUT; (PCB).lab[(PCB).fx++] = (PCB).input_code; (PCB).token_number = (xml2_token_type) AG_TCV((PCB).input_code); (PCB).rx++; } if (ag_key_index[(PCB).sn]) { unsigned ag_k = ag_key_index[(PCB).sn]; int ag_ch = CONVERT_CASE((PCB).input_code); 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 == (xml2_token_type) ag_t); (PCB).rx = 0; 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 = (xml2_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 = (xml2_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 = (xml2_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).lab; (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).rx = 0; 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).rx = 0; (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 = (xml2_token_type) ag_ptt[(PCB).ag_ap]; (PCB).btsx = 0, (PCB).drt = -1; (PCB).vs[(PCB).ssx] = *(PCB).lab; 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).lab; if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd]; else (PCB).ss[(PCB).ssx] = (PCB).sn; ag_track(); (PCB).reduction_token = (xml2_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).rx = 0; (PCB).exit_flag = AG_SYNTAX_ERROR_CODE; ag_diagnose(); SYNTAX_ERROR; {(PCB).rx = 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).rx = 0; (PCB).reduction_token = (xml2_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 = (xml2_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).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 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_xml2(void) { (PCB).rx = (PCB).fx = 0; (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 xml2(void) { init_xml2(); (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; if ((PCB).rx < (PCB).fx) { (PCB).input_code = (PCB).lab[(PCB).rx++]; (PCB).token_number = (xml2_token_type) AG_TCV((PCB).input_code);} else { GET_INPUT; (PCB).lab[(PCB).fx++] = (PCB).input_code; (PCB).token_number = (xml2_token_type) AG_TCV((PCB).input_code); (PCB).rx++; } if (ag_key_index[(PCB).sn]) { unsigned ag_k = ag_key_index[(PCB).sn]; int ag_ch = CONVERT_CASE((PCB).input_code); 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]])(); } } int main(void) { xml2(); return 0; }