/vendor/peg/leg.c
C | 1083 lines | 1024 code | 58 blank | 1 comment | 212 complexity | a0ee8b59d7f7d24a4bfcc2fe68929607 MD5 | raw file
1/* A recursive-descent parser generated by peg 0.1.1 */ 2 3#include <stdio.h> 4#include <stdlib.h> 5#include <string.h> 6#define YYRULECOUNT 36 7 8# include "tree.h" 9# include "version.h" 10 11# include <stdio.h> 12# include <stdlib.h> 13# include <unistd.h> 14# include <string.h> 15# include <libgen.h> 16# include <assert.h> 17 18 typedef struct Header Header; 19 20 struct Header { 21 char *text; 22 Header *next; 23 }; 24 25 FILE *input= 0; 26 27 int verboseFlag= 0; 28 29 static int lineNumber= 0; 30 static char *fileName= 0; 31 static char *trailer= 0; 32 static Header *headers= 0; 33 34 void makeHeader(char *text); 35 void makeTrailer(char *text); 36 37 void yyerror(char *message); 38 39# define YY_INPUT(buf, result, max) \ 40 { \ 41 int c= getc(input); \ 42 if ('\n' == c || '\r' == c) ++lineNumber; \ 43 result= (EOF == c) ? 0 : (*(buf)= c, 1); \ 44 } 45 46# define YY_LOCAL(T) static T 47# define YY_RULE(T) static T 48 49#ifndef YY_VARIABLE 50#define YY_VARIABLE(T) static T 51#endif 52#ifndef YY_LOCAL 53#define YY_LOCAL(T) static T 54#endif 55#ifndef YY_ACTION 56#define YY_ACTION(T) static T 57#endif 58#ifndef YY_RULE 59#define YY_RULE(T) static T 60#endif 61#ifndef YY_PARSE 62#define YY_PARSE(T) T 63#endif 64#ifndef YYPARSE 65#define YYPARSE yyparse 66#endif 67#ifndef YYPARSEFROM 68#define YYPARSEFROM yyparsefrom 69#endif 70#ifndef YY_INPUT 71#define YY_INPUT(buf, result, max_size) \ 72 { \ 73 int yyc= getchar(); \ 74 result= (EOF == yyc) ? 0 : (*(buf)= yyc, 1); \ 75 yyprintf((stderr, "<%c>", yyc)); \ 76 } 77#endif 78#ifndef YY_BEGIN 79#define YY_BEGIN ( yybegin= yypos, 1) 80#endif 81#ifndef YY_END 82#define YY_END ( yyend= yypos, 1) 83#endif 84#ifdef YY_DEBUG 85# define yyprintf(args) fprintf args 86#else 87# define yyprintf(args) 88#endif 89#ifndef YYSTYPE 90#define YYSTYPE int 91#endif 92 93#ifndef YY_PART 94 95typedef void (*yyaction)(char *yytext, int yyleng); 96typedef struct _yythunk { int begin, end; yyaction action; struct _yythunk *next; } yythunk; 97 98YY_VARIABLE(char * ) yybuf= 0; 99YY_VARIABLE(int ) yybuflen= 0; 100YY_VARIABLE(int ) yypos= 0; 101YY_VARIABLE(int ) yylimit= 0; 102YY_VARIABLE(char * ) yytext= 0; 103YY_VARIABLE(int ) yytextlen= 0; 104YY_VARIABLE(int ) yybegin= 0; 105YY_VARIABLE(int ) yyend= 0; 106YY_VARIABLE(int ) yytextmax= 0; 107YY_VARIABLE(yythunk *) yythunks= 0; 108YY_VARIABLE(int ) yythunkslen= 0; 109YY_VARIABLE(int ) yythunkpos= 0; 110YY_VARIABLE(YYSTYPE ) yy; 111YY_VARIABLE(YYSTYPE *) yyval= 0; 112YY_VARIABLE(YYSTYPE *) yyvals= 0; 113YY_VARIABLE(int ) yyvalslen= 0; 114 115YY_LOCAL(int) yyrefill(void) 116{ 117 int yyn; 118 while (yybuflen - yypos < 512) 119 { 120 yybuflen *= 2; 121 yybuf= realloc(yybuf, yybuflen); 122 } 123 YY_INPUT((yybuf + yypos), yyn, (yybuflen - yypos)); 124 if (!yyn) return 0; 125 yylimit += yyn; 126 return 1; 127} 128 129YY_LOCAL(int) yymatchDot(void) 130{ 131 if (yypos >= yylimit && !yyrefill()) return 0; 132 ++yypos; 133 return 1; 134} 135 136YY_LOCAL(int) yymatchChar(int c) 137{ 138 if (yypos >= yylimit && !yyrefill()) return 0; 139 if (yybuf[yypos] == c) 140 { 141 ++yypos; 142 yyprintf((stderr, " ok yymatchChar(%c) @ %s\n", c, yybuf+yypos)); 143 return 1; 144 } 145 yyprintf((stderr, " fail yymatchChar(%c) @ %s\n", c, yybuf+yypos)); 146 return 0; 147} 148 149YY_LOCAL(int) yymatchString(char *s) 150{ 151 int yysav= yypos; 152 while (*s) 153 { 154 if (yypos >= yylimit && !yyrefill()) return 0; 155 if (yybuf[yypos] != *s) 156 { 157 yypos= yysav; 158 return 0; 159 } 160 ++s; 161 ++yypos; 162 } 163 return 1; 164} 165 166YY_LOCAL(int) yymatchClass(unsigned char *bits) 167{ 168 int c; 169 if (yypos >= yylimit && !yyrefill()) return 0; 170 c= yybuf[yypos]; 171 if (bits[c >> 3] & (1 << (c & 7))) 172 { 173 ++yypos; 174 yyprintf((stderr, " ok yymatchClass @ %s\n", yybuf+yypos)); 175 return 1; 176 } 177 yyprintf((stderr, " fail yymatchClass @ %s\n", yybuf+yypos)); 178 return 0; 179} 180 181YY_LOCAL(void) yyDo(yyaction action, int begin, int end) 182{ 183 while (yythunkpos >= yythunkslen) 184 { 185 yythunkslen *= 2; 186 yythunks= realloc(yythunks, sizeof(yythunk) * yythunkslen); 187 } 188 yythunks[yythunkpos].begin= begin; 189 yythunks[yythunkpos].end= end; 190 yythunks[yythunkpos].action= action; 191 ++yythunkpos; 192} 193 194YY_LOCAL(int) yyText(int begin, int end) 195{ 196 int yyleng= end - begin; 197 if (yyleng <= 0) 198 yyleng= 0; 199 else 200 { 201 while (yytextlen < (yyleng - 1)) 202 { 203 yytextlen *= 2; 204 yytext= realloc(yytext, yytextlen); 205 } 206 memcpy(yytext, yybuf + begin, yyleng); 207 } 208 yytext[yyleng]= '\0'; 209 return yyleng; 210} 211 212YY_LOCAL(void) yyDone(void) 213{ 214 int pos; 215 for (pos= 0; pos < yythunkpos; ++pos) 216 { 217 yythunk *thunk= &yythunks[pos]; 218 int yyleng= thunk->end ? yyText(thunk->begin, thunk->end) : thunk->begin; 219 yyprintf((stderr, "DO [%d] %p %s\n", pos, thunk->action, yytext)); 220 thunk->action(yytext, yyleng); 221 } 222 yythunkpos= 0; 223} 224 225YY_LOCAL(void) yyCommit() 226{ 227 if ((yylimit -= yypos)) 228 { 229 memmove(yybuf, yybuf + yypos, yylimit); 230 } 231 yybegin -= yypos; 232 yyend -= yypos; 233 yypos= yythunkpos= 0; 234} 235 236YY_LOCAL(int) yyAccept(int tp0) 237{ 238 if (tp0) 239 { 240 fprintf(stderr, "accept denied at %d\n", tp0); 241 return 0; 242 } 243 else 244 { 245 yyDone(); 246 yyCommit(); 247 } 248 return 1; 249} 250 251YY_LOCAL(void) yyPush(char *text, int count) { yyval += count; } 252YY_LOCAL(void) yyPop(char *text, int count) { yyval -= count; } 253YY_LOCAL(void) yySet(char *text, int count) { yyval[count]= yy; } 254 255#endif /* YY_PART */ 256 257#define YYACCEPT yyAccept(yythunkpos0) 258 259YY_RULE(int) yy_end_of_line(); /* 36 */ 260YY_RULE(int) yy_comment(); /* 35 */ 261YY_RULE(int) yy_space(); /* 34 */ 262YY_RULE(int) yy_braces(); /* 33 */ 263YY_RULE(int) yy_range(); /* 32 */ 264YY_RULE(int) yy_char(); /* 31 */ 265YY_RULE(int) yy_END(); /* 30 */ 266YY_RULE(int) yy_BEGIN(); /* 29 */ 267YY_RULE(int) yy_DOT(); /* 28 */ 268YY_RULE(int) yy_class(); /* 27 */ 269YY_RULE(int) yy_literal(); /* 26 */ 270YY_RULE(int) yy_CLOSE(); /* 25 */ 271YY_RULE(int) yy_OPEN(); /* 24 */ 272YY_RULE(int) yy_COLON(); /* 23 */ 273YY_RULE(int) yy_PLUS(); /* 22 */ 274YY_RULE(int) yy_STAR(); /* 21 */ 275YY_RULE(int) yy_QUESTION(); /* 20 */ 276YY_RULE(int) yy_primary(); /* 19 */ 277YY_RULE(int) yy_NOT(); /* 18 */ 278YY_RULE(int) yy_suffix(); /* 17 */ 279YY_RULE(int) yy_action(); /* 16 */ 280YY_RULE(int) yy_AND(); /* 15 */ 281YY_RULE(int) yy_prefix(); /* 14 */ 282YY_RULE(int) yy_BAR(); /* 13 */ 283YY_RULE(int) yy_sequence(); /* 12 */ 284YY_RULE(int) yy_SEMICOLON(); /* 11 */ 285YY_RULE(int) yy_expression(); /* 10 */ 286YY_RULE(int) yy_EQUAL(); /* 9 */ 287YY_RULE(int) yy_identifier(); /* 8 */ 288YY_RULE(int) yy_RPERCENT(); /* 7 */ 289YY_RULE(int) yy_end_of_file(); /* 6 */ 290YY_RULE(int) yy_trailer(); /* 5 */ 291YY_RULE(int) yy_definition(); /* 4 */ 292YY_RULE(int) yy_declaration(); /* 3 */ 293YY_RULE(int) yy__(); /* 2 */ 294YY_RULE(int) yy_grammar(); /* 1 */ 295 296YY_ACTION(void) yy_9_primary(char *yytext, int yyleng) 297{ 298 yyprintf((stderr, "do yy_9_primary\n")); 299 push(makePredicate("YY_END")); ; 300} 301YY_ACTION(void) yy_8_primary(char *yytext, int yyleng) 302{ 303 yyprintf((stderr, "do yy_8_primary\n")); 304 push(makePredicate("YY_BEGIN")); ; 305} 306YY_ACTION(void) yy_7_primary(char *yytext, int yyleng) 307{ 308 yyprintf((stderr, "do yy_7_primary\n")); 309 push(makeAction(yytext)); ; 310} 311YY_ACTION(void) yy_6_primary(char *yytext, int yyleng) 312{ 313 yyprintf((stderr, "do yy_6_primary\n")); 314 push(makeDot()); ; 315} 316YY_ACTION(void) yy_5_primary(char *yytext, int yyleng) 317{ 318 yyprintf((stderr, "do yy_5_primary\n")); 319 push(makeClass(yytext)); ; 320} 321YY_ACTION(void) yy_4_primary(char *yytext, int yyleng) 322{ 323 yyprintf((stderr, "do yy_4_primary\n")); 324 push(makeString(yytext)); ; 325} 326YY_ACTION(void) yy_3_primary(char *yytext, int yyleng) 327{ 328 yyprintf((stderr, "do yy_3_primary\n")); 329 push(makeName(findRule(yytext))); ; 330} 331YY_ACTION(void) yy_2_primary(char *yytext, int yyleng) 332{ 333 yyprintf((stderr, "do yy_2_primary\n")); 334 Node *name= makeName(findRule(yytext)); name->name.variable= pop(); push(name); ; 335} 336YY_ACTION(void) yy_1_primary(char *yytext, int yyleng) 337{ 338 yyprintf((stderr, "do yy_1_primary\n")); 339 push(makeVariable(yytext)); ; 340} 341YY_ACTION(void) yy_3_suffix(char *yytext, int yyleng) 342{ 343 yyprintf((stderr, "do yy_3_suffix\n")); 344 push(makePlus (pop())); ; 345} 346YY_ACTION(void) yy_2_suffix(char *yytext, int yyleng) 347{ 348 yyprintf((stderr, "do yy_2_suffix\n")); 349 push(makeStar (pop())); ; 350} 351YY_ACTION(void) yy_1_suffix(char *yytext, int yyleng) 352{ 353 yyprintf((stderr, "do yy_1_suffix\n")); 354 push(makeQuery(pop())); ; 355} 356YY_ACTION(void) yy_3_prefix(char *yytext, int yyleng) 357{ 358 yyprintf((stderr, "do yy_3_prefix\n")); 359 push(makePeekNot(pop())); ; 360} 361YY_ACTION(void) yy_2_prefix(char *yytext, int yyleng) 362{ 363 yyprintf((stderr, "do yy_2_prefix\n")); 364 push(makePeekFor(pop())); ; 365} 366YY_ACTION(void) yy_1_prefix(char *yytext, int yyleng) 367{ 368 yyprintf((stderr, "do yy_1_prefix\n")); 369 push(makePredicate(yytext)); ; 370} 371YY_ACTION(void) yy_1_sequence(char *yytext, int yyleng) 372{ 373 yyprintf((stderr, "do yy_1_sequence\n")); 374 Node *f= pop(); push(Sequence_append(pop(), f)); ; 375} 376YY_ACTION(void) yy_1_expression(char *yytext, int yyleng) 377{ 378 yyprintf((stderr, "do yy_1_expression\n")); 379 Node *f= pop(); push(Alternate_append(pop(), f)); ; 380} 381YY_ACTION(void) yy_2_definition(char *yytext, int yyleng) 382{ 383 yyprintf((stderr, "do yy_2_definition\n")); 384 Node *e= pop(); Rule_setExpression(pop(), e); ; 385} 386YY_ACTION(void) yy_1_definition(char *yytext, int yyleng) 387{ 388 yyprintf((stderr, "do yy_1_definition\n")); 389 if (push(beginRule(findRule(yytext)))->rule.expression) 390 fprintf(stderr, "rule '%s' redefined\n", yytext); ; 391} 392YY_ACTION(void) yy_1_trailer(char *yytext, int yyleng) 393{ 394 yyprintf((stderr, "do yy_1_trailer\n")); 395 makeTrailer(yytext); ; 396} 397YY_ACTION(void) yy_1_declaration(char *yytext, int yyleng) 398{ 399 yyprintf((stderr, "do yy_1_declaration\n")); 400 makeHeader(yytext); ; 401} 402 403YY_RULE(int) yy_end_of_line() 404{ int yypos0= yypos, yythunkpos0= yythunkpos; 405 yyprintf((stderr, "%s\n", "end_of_line")); 406 { int yypos2= yypos, yythunkpos2= yythunkpos; if (!yymatchString("\r\n")) goto l3; goto l2; 407 l3:; yypos= yypos2; yythunkpos= yythunkpos2; if (!yymatchChar('\n')) goto l4; goto l2; 408 l4:; yypos= yypos2; yythunkpos= yythunkpos2; if (!yymatchChar('\r')) goto l1; 409 } 410 l2:; 411 yyprintf((stderr, " ok %s @ %s\n", "end_of_line", yybuf+yypos)); 412 return 1; 413 l1:; yypos= yypos0; yythunkpos= yythunkpos0; 414 yyprintf((stderr, " fail %s @ %s\n", "end_of_line", yybuf+yypos)); 415 return 0; 416} 417YY_RULE(int) yy_comment() 418{ int yypos0= yypos, yythunkpos0= yythunkpos; 419 yyprintf((stderr, "%s\n", "comment")); if (!yymatchChar('#')) goto l5; 420 l6:; 421 { int yypos7= yypos, yythunkpos7= yythunkpos; 422 { int yypos8= yypos, yythunkpos8= yythunkpos; if (!yy_end_of_line()) goto l8; goto l7; 423 l8:; yypos= yypos8; yythunkpos= yythunkpos8; 424 } if (!yymatchDot()) goto l7; goto l6; 425 l7:; yypos= yypos7; yythunkpos= yythunkpos7; 426 } if (!yy_end_of_line()) goto l5; 427 yyprintf((stderr, " ok %s @ %s\n", "comment", yybuf+yypos)); 428 return 1; 429 l5:; yypos= yypos0; yythunkpos= yythunkpos0; 430 yyprintf((stderr, " fail %s @ %s\n", "comment", yybuf+yypos)); 431 return 0; 432} 433YY_RULE(int) yy_space() 434{ int yypos0= yypos, yythunkpos0= yythunkpos; 435 yyprintf((stderr, "%s\n", "space")); 436 { int yypos10= yypos, yythunkpos10= yythunkpos; if (!yymatchChar(' ')) goto l11; goto l10; 437 l11:; yypos= yypos10; yythunkpos= yythunkpos10; if (!yymatchChar('\t')) goto l12; goto l10; 438 l12:; yypos= yypos10; yythunkpos= yythunkpos10; if (!yy_end_of_line()) goto l9; 439 } 440 l10:; 441 yyprintf((stderr, " ok %s @ %s\n", "space", yybuf+yypos)); 442 return 1; 443 l9:; yypos= yypos0; yythunkpos= yythunkpos0; 444 yyprintf((stderr, " fail %s @ %s\n", "space", yybuf+yypos)); 445 return 0; 446} 447YY_RULE(int) yy_braces() 448{ int yypos0= yypos, yythunkpos0= yythunkpos; 449 yyprintf((stderr, "%s\n", "braces")); 450 { int yypos14= yypos, yythunkpos14= yythunkpos; if (!yymatchChar('{')) goto l15; 451 l16:; 452 { int yypos17= yypos, yythunkpos17= yythunkpos; 453 { int yypos18= yypos, yythunkpos18= yythunkpos; if (!yymatchChar('}')) goto l18; goto l17; 454 l18:; yypos= yypos18; yythunkpos= yythunkpos18; 455 } if (!yymatchDot()) goto l17; goto l16; 456 l17:; yypos= yypos17; yythunkpos= yythunkpos17; 457 } if (!yymatchChar('}')) goto l15; goto l14; 458 l15:; yypos= yypos14; yythunkpos= yythunkpos14; 459 { int yypos19= yypos, yythunkpos19= yythunkpos; if (!yymatchChar('}')) goto l19; goto l13; 460 l19:; yypos= yypos19; yythunkpos= yythunkpos19; 461 } if (!yymatchDot()) goto l13; 462 } 463 l14:; 464 yyprintf((stderr, " ok %s @ %s\n", "braces", yybuf+yypos)); 465 return 1; 466 l13:; yypos= yypos0; yythunkpos= yythunkpos0; 467 yyprintf((stderr, " fail %s @ %s\n", "braces", yybuf+yypos)); 468 return 0; 469} 470YY_RULE(int) yy_range() 471{ int yypos0= yypos, yythunkpos0= yythunkpos; 472 yyprintf((stderr, "%s\n", "range")); 473 { int yypos21= yypos, yythunkpos21= yythunkpos; if (!yy_char()) goto l22; if (!yymatchChar('-')) goto l22; if (!yy_char()) goto l22; goto l21; 474 l22:; yypos= yypos21; yythunkpos= yythunkpos21; if (!yy_char()) goto l20; 475 } 476 l21:; 477 yyprintf((stderr, " ok %s @ %s\n", "range", yybuf+yypos)); 478 return 1; 479 l20:; yypos= yypos0; yythunkpos= yythunkpos0; 480 yyprintf((stderr, " fail %s @ %s\n", "range", yybuf+yypos)); 481 return 0; 482} 483YY_RULE(int) yy_char() 484{ int yypos0= yypos, yythunkpos0= yythunkpos; 485 yyprintf((stderr, "%s\n", "char")); 486 { int yypos24= yypos, yythunkpos24= yythunkpos; if (!yymatchChar('\\')) goto l25; if (!yymatchClass((unsigned char *)"\000\000\000\000\204\000\000\000\000\000\000\070\146\100\124\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l25; goto l24; 487 l25:; yypos= yypos24; yythunkpos= yythunkpos24; if (!yymatchChar('\\')) goto l26; if (!yymatchClass((unsigned char *)"\000\000\000\000\000\000\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l26; if (!yymatchClass((unsigned char *)"\000\000\000\000\000\000\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l26; if (!yymatchClass((unsigned char *)"\000\000\000\000\000\000\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l26; goto l24; 488 l26:; yypos= yypos24; yythunkpos= yythunkpos24; if (!yymatchChar('\\')) goto l27; if (!yymatchClass((unsigned char *)"\000\000\000\000\000\000\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l27; 489 { int yypos28= yypos, yythunkpos28= yythunkpos; if (!yymatchClass((unsigned char *)"\000\000\000\000\000\000\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l28; goto l29; 490 l28:; yypos= yypos28; yythunkpos= yythunkpos28; 491 } 492 l29:; goto l24; 493 l27:; yypos= yypos24; yythunkpos= yythunkpos24; 494 { int yypos30= yypos, yythunkpos30= yythunkpos; if (!yymatchChar('\\')) goto l30; goto l23; 495 l30:; yypos= yypos30; yythunkpos= yythunkpos30; 496 } if (!yymatchDot()) goto l23; 497 } 498 l24:; 499 yyprintf((stderr, " ok %s @ %s\n", "char", yybuf+yypos)); 500 return 1; 501 l23:; yypos= yypos0; yythunkpos= yythunkpos0; 502 yyprintf((stderr, " fail %s @ %s\n", "char", yybuf+yypos)); 503 return 0; 504} 505YY_RULE(int) yy_END() 506{ int yypos0= yypos, yythunkpos0= yythunkpos; 507 yyprintf((stderr, "%s\n", "END")); if (!yymatchChar('>')) goto l31; if (!yy__()) goto l31; 508 yyprintf((stderr, " ok %s @ %s\n", "END", yybuf+yypos)); 509 return 1; 510 l31:; yypos= yypos0; yythunkpos= yythunkpos0; 511 yyprintf((stderr, " fail %s @ %s\n", "END", yybuf+yypos)); 512 return 0; 513} 514YY_RULE(int) yy_BEGIN() 515{ int yypos0= yypos, yythunkpos0= yythunkpos; 516 yyprintf((stderr, "%s\n", "BEGIN")); if (!yymatchChar('<')) goto l32; if (!yy__()) goto l32; 517 yyprintf((stderr, " ok %s @ %s\n", "BEGIN", yybuf+yypos)); 518 return 1; 519 l32:; yypos= yypos0; yythunkpos= yythunkpos0; 520 yyprintf((stderr, " fail %s @ %s\n", "BEGIN", yybuf+yypos)); 521 return 0; 522} 523YY_RULE(int) yy_DOT() 524{ int yypos0= yypos, yythunkpos0= yythunkpos; 525 yyprintf((stderr, "%s\n", "DOT")); if (!yymatchChar('.')) goto l33; if (!yy__()) goto l33; 526 yyprintf((stderr, " ok %s @ %s\n", "DOT", yybuf+yypos)); 527 return 1; 528 l33:; yypos= yypos0; yythunkpos= yythunkpos0; 529 yyprintf((stderr, " fail %s @ %s\n", "DOT", yybuf+yypos)); 530 return 0; 531} 532YY_RULE(int) yy_class() 533{ int yypos0= yypos, yythunkpos0= yythunkpos; 534 yyprintf((stderr, "%s\n", "class")); if (!yymatchChar('[')) goto l34; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l34; 535 l35:; 536 { int yypos36= yypos, yythunkpos36= yythunkpos; 537 { int yypos37= yypos, yythunkpos37= yythunkpos; if (!yymatchChar(']')) goto l37; goto l36; 538 l37:; yypos= yypos37; yythunkpos= yythunkpos37; 539 } if (!yy_range()) goto l36; goto l35; 540 l36:; yypos= yypos36; yythunkpos= yythunkpos36; 541 } yyText(yybegin, yyend); if (!(YY_END)) goto l34; if (!yymatchChar(']')) goto l34; if (!yy__()) goto l34; 542 yyprintf((stderr, " ok %s @ %s\n", "class", yybuf+yypos)); 543 return 1; 544 l34:; yypos= yypos0; yythunkpos= yythunkpos0; 545 yyprintf((stderr, " fail %s @ %s\n", "class", yybuf+yypos)); 546 return 0; 547} 548YY_RULE(int) yy_literal() 549{ int yypos0= yypos, yythunkpos0= yythunkpos; 550 yyprintf((stderr, "%s\n", "literal")); 551 { int yypos39= yypos, yythunkpos39= yythunkpos; if (!yymatchClass((unsigned char *)"\000\000\000\000\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l40; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l40; 552 l41:; 553 { int yypos42= yypos, yythunkpos42= yythunkpos; 554 { int yypos43= yypos, yythunkpos43= yythunkpos; if (!yymatchClass((unsigned char *)"\000\000\000\000\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l43; goto l42; 555 l43:; yypos= yypos43; yythunkpos= yythunkpos43; 556 } if (!yy_char()) goto l42; goto l41; 557 l42:; yypos= yypos42; yythunkpos= yythunkpos42; 558 } yyText(yybegin, yyend); if (!(YY_END)) goto l40; if (!yymatchClass((unsigned char *)"\000\000\000\000\200\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l40; if (!yy__()) goto l40; goto l39; 559 l40:; yypos= yypos39; yythunkpos= yythunkpos39; if (!yymatchClass((unsigned char *)"\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l38; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l38; 560 l44:; 561 { int yypos45= yypos, yythunkpos45= yythunkpos; 562 { int yypos46= yypos, yythunkpos46= yythunkpos; if (!yymatchClass((unsigned char *)"\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l46; goto l45; 563 l46:; yypos= yypos46; yythunkpos= yythunkpos46; 564 } if (!yy_char()) goto l45; goto l44; 565 l45:; yypos= yypos45; yythunkpos= yythunkpos45; 566 } yyText(yybegin, yyend); if (!(YY_END)) goto l38; if (!yymatchClass((unsigned char *)"\000\000\000\000\004\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l38; if (!yy__()) goto l38; 567 } 568 l39:; 569 yyprintf((stderr, " ok %s @ %s\n", "literal", yybuf+yypos)); 570 return 1; 571 l38:; yypos= yypos0; yythunkpos= yythunkpos0; 572 yyprintf((stderr, " fail %s @ %s\n", "literal", yybuf+yypos)); 573 return 0; 574} 575YY_RULE(int) yy_CLOSE() 576{ int yypos0= yypos, yythunkpos0= yythunkpos; 577 yyprintf((stderr, "%s\n", "CLOSE")); if (!yymatchChar(')')) goto l47; if (!yy__()) goto l47; 578 yyprintf((stderr, " ok %s @ %s\n", "CLOSE", yybuf+yypos)); 579 return 1; 580 l47:; yypos= yypos0; yythunkpos= yythunkpos0; 581 yyprintf((stderr, " fail %s @ %s\n", "CLOSE", yybuf+yypos)); 582 return 0; 583} 584YY_RULE(int) yy_OPEN() 585{ int yypos0= yypos, yythunkpos0= yythunkpos; 586 yyprintf((stderr, "%s\n", "OPEN")); if (!yymatchChar('(')) goto l48; if (!yy__()) goto l48; 587 yyprintf((stderr, " ok %s @ %s\n", "OPEN", yybuf+yypos)); 588 return 1; 589 l48:; yypos= yypos0; yythunkpos= yythunkpos0; 590 yyprintf((stderr, " fail %s @ %s\n", "OPEN", yybuf+yypos)); 591 return 0; 592} 593YY_RULE(int) yy_COLON() 594{ int yypos0= yypos, yythunkpos0= yythunkpos; 595 yyprintf((stderr, "%s\n", "COLON")); if (!yymatchChar(':')) goto l49; if (!yy__()) goto l49; 596 yyprintf((stderr, " ok %s @ %s\n", "COLON", yybuf+yypos)); 597 return 1; 598 l49:; yypos= yypos0; yythunkpos= yythunkpos0; 599 yyprintf((stderr, " fail %s @ %s\n", "COLON", yybuf+yypos)); 600 return 0; 601} 602YY_RULE(int) yy_PLUS() 603{ int yypos0= yypos, yythunkpos0= yythunkpos; 604 yyprintf((stderr, "%s\n", "PLUS")); if (!yymatchChar('+')) goto l50; if (!yy__()) goto l50; 605 yyprintf((stderr, " ok %s @ %s\n", "PLUS", yybuf+yypos)); 606 return 1; 607 l50:; yypos= yypos0; yythunkpos= yythunkpos0; 608 yyprintf((stderr, " fail %s @ %s\n", "PLUS", yybuf+yypos)); 609 return 0; 610} 611YY_RULE(int) yy_STAR() 612{ int yypos0= yypos, yythunkpos0= yythunkpos; 613 yyprintf((stderr, "%s\n", "STAR")); if (!yymatchChar('*')) goto l51; if (!yy__()) goto l51; 614 yyprintf((stderr, " ok %s @ %s\n", "STAR", yybuf+yypos)); 615 return 1; 616 l51:; yypos= yypos0; yythunkpos= yythunkpos0; 617 yyprintf((stderr, " fail %s @ %s\n", "STAR", yybuf+yypos)); 618 return 0; 619} 620YY_RULE(int) yy_QUESTION() 621{ int yypos0= yypos, yythunkpos0= yythunkpos; 622 yyprintf((stderr, "%s\n", "QUESTION")); if (!yymatchChar('?')) goto l52; if (!yy__()) goto l52; 623 yyprintf((stderr, " ok %s @ %s\n", "QUESTION", yybuf+yypos)); 624 return 1; 625 l52:; yypos= yypos0; yythunkpos= yythunkpos0; 626 yyprintf((stderr, " fail %s @ %s\n", "QUESTION", yybuf+yypos)); 627 return 0; 628} 629YY_RULE(int) yy_primary() 630{ int yypos0= yypos, yythunkpos0= yythunkpos; 631 yyprintf((stderr, "%s\n", "primary")); 632 { int yypos54= yypos, yythunkpos54= yythunkpos; if (!yy_identifier()) goto l55; yyDo(yy_1_primary, yybegin, yyend); if (!yy_COLON()) goto l55; if (!yy_identifier()) goto l55; 633 { int yypos56= yypos, yythunkpos56= yythunkpos; if (!yy_EQUAL()) goto l56; goto l55; 634 l56:; yypos= yypos56; yythunkpos= yythunkpos56; 635 } yyDo(yy_2_primary, yybegin, yyend); goto l54; 636 l55:; yypos= yypos54; yythunkpos= yythunkpos54; if (!yy_identifier()) goto l57; 637 { int yypos58= yypos, yythunkpos58= yythunkpos; if (!yy_EQUAL()) goto l58; goto l57; 638 l58:; yypos= yypos58; yythunkpos= yythunkpos58; 639 } yyDo(yy_3_primary, yybegin, yyend); goto l54; 640 l57:; yypos= yypos54; yythunkpos= yythunkpos54; if (!yy_OPEN()) goto l59; if (!yy_expression()) goto l59; if (!yy_CLOSE()) goto l59; goto l54; 641 l59:; yypos= yypos54; yythunkpos= yythunkpos54; if (!yy_literal()) goto l60; yyDo(yy_4_primary, yybegin, yyend); goto l54; 642 l60:; yypos= yypos54; yythunkpos= yythunkpos54; if (!yy_class()) goto l61; yyDo(yy_5_primary, yybegin, yyend); goto l54; 643 l61:; yypos= yypos54; yythunkpos= yythunkpos54; if (!yy_DOT()) goto l62; yyDo(yy_6_primary, yybegin, yyend); goto l54; 644 l62:; yypos= yypos54; yythunkpos= yythunkpos54; if (!yy_action()) goto l63; yyDo(yy_7_primary, yybegin, yyend); goto l54; 645 l63:; yypos= yypos54; yythunkpos= yythunkpos54; if (!yy_BEGIN()) goto l64; yyDo(yy_8_primary, yybegin, yyend); goto l54; 646 l64:; yypos= yypos54; yythunkpos= yythunkpos54; if (!yy_END()) goto l53; yyDo(yy_9_primary, yybegin, yyend); 647 } 648 l54:; 649 yyprintf((stderr, " ok %s @ %s\n", "primary", yybuf+yypos)); 650 return 1; 651 l53:; yypos= yypos0; yythunkpos= yythunkpos0; 652 yyprintf((stderr, " fail %s @ %s\n", "primary", yybuf+yypos)); 653 return 0; 654} 655YY_RULE(int) yy_NOT() 656{ int yypos0= yypos, yythunkpos0= yythunkpos; 657 yyprintf((stderr, "%s\n", "NOT")); if (!yymatchChar('!')) goto l65; if (!yy__()) goto l65; 658 yyprintf((stderr, " ok %s @ %s\n", "NOT", yybuf+yypos)); 659 return 1; 660 l65:; yypos= yypos0; yythunkpos= yythunkpos0; 661 yyprintf((stderr, " fail %s @ %s\n", "NOT", yybuf+yypos)); 662 return 0; 663} 664YY_RULE(int) yy_suffix() 665{ int yypos0= yypos, yythunkpos0= yythunkpos; 666 yyprintf((stderr, "%s\n", "suffix")); if (!yy_primary()) goto l66; 667 { int yypos67= yypos, yythunkpos67= yythunkpos; 668 { int yypos69= yypos, yythunkpos69= yythunkpos; if (!yy_QUESTION()) goto l70; yyDo(yy_1_suffix, yybegin, yyend); goto l69; 669 l70:; yypos= yypos69; yythunkpos= yythunkpos69; if (!yy_STAR()) goto l71; yyDo(yy_2_suffix, yybegin, yyend); goto l69; 670 l71:; yypos= yypos69; yythunkpos= yythunkpos69; if (!yy_PLUS()) goto l67; yyDo(yy_3_suffix, yybegin, yyend); 671 } 672 l69:; goto l68; 673 l67:; yypos= yypos67; yythunkpos= yythunkpos67; 674 } 675 l68:; 676 yyprintf((stderr, " ok %s @ %s\n", "suffix", yybuf+yypos)); 677 return 1; 678 l66:; yypos= yypos0; yythunkpos= yythunkpos0; 679 yyprintf((stderr, " fail %s @ %s\n", "suffix", yybuf+yypos)); 680 return 0; 681} 682YY_RULE(int) yy_action() 683{ int yypos0= yypos, yythunkpos0= yythunkpos; 684 yyprintf((stderr, "%s\n", "action")); if (!yymatchChar('{')) goto l72; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l72; 685 l73:; 686 { int yypos74= yypos, yythunkpos74= yythunkpos; if (!yy_braces()) goto l74; goto l73; 687 l74:; yypos= yypos74; yythunkpos= yythunkpos74; 688 } yyText(yybegin, yyend); if (!(YY_END)) goto l72; if (!yymatchChar('}')) goto l72; if (!yy__()) goto l72; 689 yyprintf((stderr, " ok %s @ %s\n", "action", yybuf+yypos)); 690 return 1; 691 l72:; yypos= yypos0; yythunkpos= yythunkpos0; 692 yyprintf((stderr, " fail %s @ %s\n", "action", yybuf+yypos)); 693 return 0; 694} 695YY_RULE(int) yy_AND() 696{ int yypos0= yypos, yythunkpos0= yythunkpos; 697 yyprintf((stderr, "%s\n", "AND")); if (!yymatchChar('&')) goto l75; if (!yy__()) goto l75; 698 yyprintf((stderr, " ok %s @ %s\n", "AND", yybuf+yypos)); 699 return 1; 700 l75:; yypos= yypos0; yythunkpos= yythunkpos0; 701 yyprintf((stderr, " fail %s @ %s\n", "AND", yybuf+yypos)); 702 return 0; 703} 704YY_RULE(int) yy_prefix() 705{ int yypos0= yypos, yythunkpos0= yythunkpos; 706 yyprintf((stderr, "%s\n", "prefix")); 707 { int yypos77= yypos, yythunkpos77= yythunkpos; if (!yy_AND()) goto l78; if (!yy_action()) goto l78; yyDo(yy_1_prefix, yybegin, yyend); goto l77; 708 l78:; yypos= yypos77; yythunkpos= yythunkpos77; if (!yy_AND()) goto l79; if (!yy_suffix()) goto l79; yyDo(yy_2_prefix, yybegin, yyend); goto l77; 709 l79:; yypos= yypos77; yythunkpos= yythunkpos77; if (!yy_NOT()) goto l80; if (!yy_suffix()) goto l80; yyDo(yy_3_prefix, yybegin, yyend); goto l77; 710 l80:; yypos= yypos77; yythunkpos= yythunkpos77; if (!yy_suffix()) goto l76; 711 } 712 l77:; 713 yyprintf((stderr, " ok %s @ %s\n", "prefix", yybuf+yypos)); 714 return 1; 715 l76:; yypos= yypos0; yythunkpos= yythunkpos0; 716 yyprintf((stderr, " fail %s @ %s\n", "prefix", yybuf+yypos)); 717 return 0; 718} 719YY_RULE(int) yy_BAR() 720{ int yypos0= yypos, yythunkpos0= yythunkpos; 721 yyprintf((stderr, "%s\n", "BAR")); if (!yymatchChar('|')) goto l81; if (!yy__()) goto l81; 722 yyprintf((stderr, " ok %s @ %s\n", "BAR", yybuf+yypos)); 723 return 1; 724 l81:; yypos= yypos0; yythunkpos= yythunkpos0; 725 yyprintf((stderr, " fail %s @ %s\n", "BAR", yybuf+yypos)); 726 return 0; 727} 728YY_RULE(int) yy_sequence() 729{ int yypos0= yypos, yythunkpos0= yythunkpos; 730 yyprintf((stderr, "%s\n", "sequence")); if (!yy_prefix()) goto l82; 731 l83:; 732 { int yypos84= yypos, yythunkpos84= yythunkpos; if (!yy_prefix()) goto l84; yyDo(yy_1_sequence, yybegin, yyend); goto l83; 733 l84:; yypos= yypos84; yythunkpos= yythunkpos84; 734 } 735 yyprintf((stderr, " ok %s @ %s\n", "sequence", yybuf+yypos)); 736 return 1; 737 l82:; yypos= yypos0; yythunkpos= yythunkpos0; 738 yyprintf((stderr, " fail %s @ %s\n", "sequence", yybuf+yypos)); 739 return 0; 740} 741YY_RULE(int) yy_SEMICOLON() 742{ int yypos0= yypos, yythunkpos0= yythunkpos; 743 yyprintf((stderr, "%s\n", "SEMICOLON")); if (!yymatchChar(';')) goto l85; if (!yy__()) goto l85; 744 yyprintf((stderr, " ok %s @ %s\n", "SEMICOLON", yybuf+yypos)); 745 return 1; 746 l85:; yypos= yypos0; yythunkpos= yythunkpos0; 747 yyprintf((stderr, " fail %s @ %s\n", "SEMICOLON", yybuf+yypos)); 748 return 0; 749} 750YY_RULE(int) yy_expression() 751{ int yypos0= yypos, yythunkpos0= yythunkpos; 752 yyprintf((stderr, "%s\n", "expression")); if (!yy_sequence()) goto l86; 753 l87:; 754 { int yypos88= yypos, yythunkpos88= yythunkpos; if (!yy_BAR()) goto l88; if (!yy_sequence()) goto l88; yyDo(yy_1_expression, yybegin, yyend); goto l87; 755 l88:; yypos= yypos88; yythunkpos= yythunkpos88; 756 } 757 yyprintf((stderr, " ok %s @ %s\n", "expression", yybuf+yypos)); 758 return 1; 759 l86:; yypos= yypos0; yythunkpos= yythunkpos0; 760 yyprintf((stderr, " fail %s @ %s\n", "expression", yybuf+yypos)); 761 return 0; 762} 763YY_RULE(int) yy_EQUAL() 764{ int yypos0= yypos, yythunkpos0= yythunkpos; 765 yyprintf((stderr, "%s\n", "EQUAL")); if (!yymatchChar('=')) goto l89; if (!yy__()) goto l89; 766 yyprintf((stderr, " ok %s @ %s\n", "EQUAL", yybuf+yypos)); 767 return 1; 768 l89:; yypos= yypos0; yythunkpos= yythunkpos0; 769 yyprintf((stderr, " fail %s @ %s\n", "EQUAL", yybuf+yypos)); 770 return 0; 771} 772YY_RULE(int) yy_identifier() 773{ int yypos0= yypos, yythunkpos0= yythunkpos; 774 yyprintf((stderr, "%s\n", "identifier")); yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l90; if (!yymatchClass((unsigned char *)"\000\000\000\000\000\040\000\000\376\377\377\207\376\377\377\007\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l90; 775 l91:; 776 { int yypos92= yypos, yythunkpos92= yythunkpos; if (!yymatchClass((unsigned char *)"\000\000\000\000\000\040\377\003\376\377\377\207\376\377\377\007\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l92; goto l91; 777 l92:; yypos= yypos92; yythunkpos= yythunkpos92; 778 } yyText(yybegin, yyend); if (!(YY_END)) goto l90; if (!yy__()) goto l90; 779 yyprintf((stderr, " ok %s @ %s\n", "identifier", yybuf+yypos)); 780 return 1; 781 l90:; yypos= yypos0; yythunkpos= yythunkpos0; 782 yyprintf((stderr, " fail %s @ %s\n", "identifier", yybuf+yypos)); 783 return 0; 784} 785YY_RULE(int) yy_RPERCENT() 786{ int yypos0= yypos, yythunkpos0= yythunkpos; 787 yyprintf((stderr, "%s\n", "RPERCENT")); if (!yymatchString("%}")) goto l93; if (!yy__()) goto l93; 788 yyprintf((stderr, " ok %s @ %s\n", "RPERCENT", yybuf+yypos)); 789 return 1; 790 l93:; yypos= yypos0; yythunkpos= yythunkpos0; 791 yyprintf((stderr, " fail %s @ %s\n", "RPERCENT", yybuf+yypos)); 792 return 0; 793} 794YY_RULE(int) yy_end_of_file() 795{ int yypos0= yypos, yythunkpos0= yythunkpos; 796 yyprintf((stderr, "%s\n", "end_of_file")); 797 { int yypos95= yypos, yythunkpos95= yythunkpos; if (!yymatchDot()) goto l95; goto l94; 798 l95:; yypos= yypos95; yythunkpos= yythunkpos95; 799 } 800 yyprintf((stderr, " ok %s @ %s\n", "end_of_file", yybuf+yypos)); 801 return 1; 802 l94:; yypos= yypos0; yythunkpos= yythunkpos0; 803 yyprintf((stderr, " fail %s @ %s\n", "end_of_file", yybuf+yypos)); 804 return 0; 805} 806YY_RULE(int) yy_trailer() 807{ int yypos0= yypos, yythunkpos0= yythunkpos; 808 yyprintf((stderr, "%s\n", "trailer")); if (!yymatchString("%%")) goto l96; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l96; 809 l97:; 810 { int yypos98= yypos, yythunkpos98= yythunkpos; if (!yymatchDot()) goto l98; goto l97; 811 l98:; yypos= yypos98; yythunkpos= yythunkpos98; 812 } yyText(yybegin, yyend); if (!(YY_END)) goto l96; yyDo(yy_1_trailer, yybegin, yyend); 813 yyprintf((stderr, " ok %s @ %s\n", "trailer", yybuf+yypos)); 814 return 1; 815 l96:; yypos= yypos0; yythunkpos= yythunkpos0; 816 yyprintf((stderr, " fail %s @ %s\n", "trailer", yybuf+yypos)); 817 return 0; 818} 819YY_RULE(int) yy_definition() 820{ int yypos0= yypos, yythunkpos0= yythunkpos; 821 yyprintf((stderr, "%s\n", "definition")); if (!yy_identifier()) goto l99; yyDo(yy_1_definition, yybegin, yyend); if (!yy_EQUAL()) goto l99; if (!yy_expression()) goto l99; yyDo(yy_2_definition, yybegin, yyend); 822 { int yypos100= yypos, yythunkpos100= yythunkpos; if (!yy_SEMICOLON()) goto l100; goto l101; 823 l100:; yypos= yypos100; yythunkpos= yythunkpos100; 824 } 825 l101:; 826 yyprintf((stderr, " ok %s @ %s\n", "definition", yybuf+yypos)); 827 return 1; 828 l99:; yypos= yypos0; yythunkpos= yythunkpos0; 829 yyprintf((stderr, " fail %s @ %s\n", "definition", yybuf+yypos)); 830 return 0; 831} 832YY_RULE(int) yy_declaration() 833{ int yypos0= yypos, yythunkpos0= yythunkpos; 834 yyprintf((stderr, "%s\n", "declaration")); if (!yymatchString("%{")) goto l102; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l102; 835 l103:; 836 { int yypos104= yypos, yythunkpos104= yythunkpos; 837 { int yypos105= yypos, yythunkpos105= yythunkpos; if (!yymatchString("%}")) goto l105; goto l104; 838 l105:; yypos= yypos105; yythunkpos= yythunkpos105; 839 } if (!yymatchDot()) goto l104; goto l103; 840 l104:; yypos= yypos104; yythunkpos= yythunkpos104; 841 } yyText(yybegin, yyend); if (!(YY_END)) goto l102; if (!yy_RPERCENT()) goto l102; yyDo(yy_1_declaration, yybegin, yyend); 842 yyprintf((stderr, " ok %s @ %s\n", "declaration", yybuf+yypos)); 843 return 1; 844 l102:; yypos= yypos0; yythunkpos= yythunkpos0; 845 yyprintf((stderr, " fail %s @ %s\n", "declaration", yybuf+yypos)); 846 return 0; 847} 848YY_RULE(int) yy__() 849{ 850 yyprintf((stderr, "%s\n", "_")); 851 l107:; 852 { int yypos108= yypos, yythunkpos108= yythunkpos; 853 { int yypos109= yypos, yythunkpos109= yythunkpos; if (!yy_space()) goto l110; goto l109; 854 l110:; yypos= yypos109; yythunkpos= yythunkpos109; if (!yy_comment()) goto l108; 855 } 856 l109:; goto l107; 857 l108:; yypos= yypos108; yythunkpos= yythunkpos108; 858 } 859 yyprintf((stderr, " ok %s @ %s\n", "_", yybuf+yypos)); 860 return 1; 861} 862YY_RULE(int) yy_grammar() 863{ int yypos0= yypos, yythunkpos0= yythunkpos; 864 yyprintf((stderr, "%s\n", "grammar")); if (!yy__()) goto l111; 865 { int yypos114= yypos, yythunkpos114= yythunkpos; if (!yy_declaration()) goto l115; goto l114; 866 l115:; yypos= yypos114; yythunkpos= yythunkpos114; if (!yy_definition()) goto l111; 867 } 868 l114:; 869 l112:; 870 { int yypos113= yypos, yythunkpos113= yythunkpos; 871 { int yypos116= yypos, yythunkpos116= yythunkpos; if (!yy_declaration()) goto l117; goto l116; 872 l117:; yypos= yypos116; yythunkpos= yythunkpos116; if (!yy_definition()) goto l113; 873 } 874 l116:; goto l112; 875 l113:; yypos= yypos113; yythunkpos= yythunkpos113; 876 } 877 { int yypos118= yypos, yythunkpos118= yythunkpos; if (!yy_trailer()) goto l118; goto l119; 878 l118:; yypos= yypos118; yythunkpos= yythunkpos118; 879 } 880 l119:; if (!yy_end_of_file()) goto l111; 881 yyprintf((stderr, " ok %s @ %s\n", "grammar", yybuf+yypos)); 882 return 1; 883 l111:; yypos= yypos0; yythunkpos= yythunkpos0; 884 yyprintf((stderr, " fail %s @ %s\n", "grammar", yybuf+yypos)); 885 return 0; 886} 887 888#ifndef YY_PART 889 890typedef int (*yyrule)(); 891 892YY_PARSE(int) YYPARSEFROM(yyrule yystart) 893{ 894 int yyok; 895 if (!yybuflen) 896 { 897 yybuflen= 1024; 898 yybuf= malloc(yybuflen); 899 yytextlen= 1024; 900 yytext= malloc(yytextlen); 901 yythunkslen= 32; 902 yythunks= malloc(sizeof(yythunk) * yythunkslen); 903 yyvalslen= 32; 904 yyvals= malloc(sizeof(YYSTYPE) * yyvalslen); 905 yybegin= yyend= yypos= yylimit= yythunkpos= 0; 906 } 907 yybegin= yyend= yypos; 908 yythunkpos= 0; 909 yyval= yyvals; 910 yyok= yystart(); 911 if (yyok) yyDone(); 912 yyCommit(); 913 return yyok; 914 (void)yyrefill; 915 (void)yymatchDot; 916 (void)yymatchChar; 917 (void)yymatchString; 918 (void)yymatchClass; 919 (void)yyDo; 920 (void)yyText; 921 (void)yyDone; 922 (void)yyCommit; 923 (void)yyAccept; 924 (void)yyPush; 925 (void)yyPop; 926 (void)yySet; 927 (void)yytextmax; 928} 929 930YY_PARSE(int) YYPARSE(void) 931{ 932 return YYPARSEFROM(yy_grammar); 933} 934 935#endif 936 937 938void yyerror(char *message) 939{ 940 fprintf(stderr, "%s:%d: %s", fileName, lineNumber, message); 941 if (yytext[0]) fprintf(stderr, " near token '%s'", yytext); 942 if (yypos < yylimit || !feof(input)) 943 { 944 yybuf[yylimit]= '\0'; 945 fprintf(stderr, " before text \""); 946 while (yypos < yylimit) 947 { 948 if ('\n' == yybuf[yypos] || '\r' == yybuf[yypos]) break; 949 fputc(yybuf[yypos++], stderr); 950 } 951 if (yypos == yylimit) 952 { 953 int c; 954 while (EOF != (c= fgetc(input)) && '\n' != c && '\r' != c) 955 fputc(c, stderr); 956 } 957 fputc('\"', stderr); 958 } 959 fprintf(stderr, "\n"); 960 exit(1); 961} 962 963void makeHeader(char *text) 964{ 965 Header *header= (Header *)malloc(sizeof(Header)); 966 header->text= strdup(text); 967 header->next= headers; 968 headers= header; 969} 970 971void makeTrailer(char *text) 972{ 973 trailer= strdup(text); 974} 975 976static void version(char *name) 977{ 978 printf("%s version %d.%d.%d\n", name, PEG_MAJOR, PEG_MINOR, PEG_LEVEL); 979} 980 981static void usage(char *name) 982{ 983 version(name); 984 fprintf(stderr, "usage: %s [<option>...] [<file>...]\n", name); 985 fprintf(stderr, "where <option> can be\n"); 986 fprintf(stderr, " -h print this help information\n"); 987 fprintf(stderr, " -o <ofile> write output to <ofile>\n"); 988 fprintf(stderr, " -v be verbose\n"); 989 fprintf(stderr, " -V print version number and exit\n"); 990 fprintf(stderr, "if no <file> is given, input is read from stdin\n"); 991 fprintf(stderr, "if no <ofile> is given, output is written to stdout\n"); 992 exit(1); 993} 994 995int main(int argc, char **argv) 996{ 997 Node *n; 998 int c; 999 1000 output= stdout; 1001 input= stdin; 1002 lineNumber= 1; 1003 fileName= "<stdin>"; 1004 1005 while (-1 != (c= getopt(argc, argv, "Vho:v"))) 1006 { 1007 switch (c) 1008 { 1009 case 'V': 1010 version(basename(argv[0])); 1011 exit(0); 1012 1013 case 'h': 1014 usage(basename(argv[0])); 1015 break; 1016 1017 case 'o': 1018 if (!(output= fopen(optarg, "w"))) 1019 { 1020 perror(optarg); 1021 exit(1); 1022 } 1023 break; 1024 1025 case 'v': 1026 verboseFlag= 1; 1027 break; 1028 1029 default: 1030 fprintf(stderr, "for usage try: %s -h\n", argv[0]); 1031 exit(1); 1032 } 1033 } 1034 argc -= optind; 1035 argv += optind; 1036 1037 if (argc) 1038 { 1039 for (; argc; --argc, ++argv) 1040 { 1041 if (!strcmp(*argv, "-")) 1042 { 1043 input= stdin; 1044 fileName= "<stdin>"; 1045 } 1046 else 1047 { 1048 if (!(input= fopen(*argv, "r"))) 1049 { 1050 perror(*argv); 1051 exit(1); 1052 } 1053 fileName= *argv; 1054 } 1055 lineNumber= 1; 1056 if (!yyparse()) 1057 yyerror("syntax error"); 1058 if (input != stdin) 1059 fclose(input); 1060 } 1061 } 1062 else 1063 if (!yyparse()) 1064 yyerror("syntax error"); 1065 1066 if (verboseFlag) 1067 for (n= rules; n; n= n->any.next) 1068 Rule_print(n); 1069 1070 Rule_compile_c_header(); 1071 1072 for (; headers; headers= headers->next) 1073 fprintf(output, "%s\n", headers->text); 1074 1075 if (rules) 1076 Rule_compile_c(rules); 1077 1078 if (trailer) 1079 fprintf(output, "%s\n", trailer); 1080 1081 return 0; 1082} 1083