ref: fd42edfe6fc500c76edbb047c6b3cd86d000c576
dir: /leg.c/
/* A recursive-descent parser generated by peg 0.1.0 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define YYRULECOUNT 35
# include "tree.h"
# include "version.h"
# include <stdio.h>
# include <stdlib.h>
# include <unistd.h>
# include <string.h>
# include <libgen.h>
# include <assert.h>
typedef struct Header Header;
struct Header {
char *text;
Header *next;
};
FILE *input= 0;
int verboseFlag= 0;
static int lineNumber= 0;
static char *fileName= 0;
static char *trailer= 0;
static Header *headers= 0;
void makeHeader(char *text);
void makeTrailer(char *text);
void yyerror(char *message);
# define YY_INPUT(buf, result, max) \
{ \
int c= getc(input); \
if ('\n' == c || '\r' == c) ++lineNumber; \
result= (EOF == c) ? 0 : (*(buf)= c, 1); \
}
# define YY_LOCAL(T) static T
# define YY_RULE(T) static T
#ifndef YY_VARIABLE
#define YY_VARIABLE(T) static T
#endif
#ifndef YY_LOCAL
#define YY_LOCAL(T) static T
#endif
#ifndef YY_ACTION
#define YY_ACTION(T) static T
#endif
#ifndef YY_RULE
#define YY_RULE(T) static T
#endif
#ifndef YY_PARSE
#define YY_PARSE(T) T
#endif
#ifndef YYPARSE
#define YYPARSE yyparse
#endif
#ifndef YYPARSEFROM
#define YYPARSEFROM yyparsefrom
#endif
#ifndef YY_INPUT
#define YY_INPUT(buf, result, max_size) \
{ \
int yyc= getchar(); \
result= (EOF == yyc) ? 0 : (*(buf)= yyc, 1); \
yyprintf((stderr, "<%c>", yyc)); \
}
#endif
#ifndef YY_BEGIN
#define YY_BEGIN ( yybegin= yypos, 1)
#endif
#ifndef YY_END
#define YY_END ( yyend= yypos, 1)
#endif
#ifdef YY_DEBUG
# define yyprintf(args) fprintf args
#else
# define yyprintf(args)
#endif
#ifndef YYSTYPE
#define YYSTYPE int
#endif
#ifndef YY_PART
typedef void (*yyaction)(char *yytext, int yyleng);
typedef struct _yythunk { int begin, end; yyaction action; struct _yythunk *next; } yythunk;
YY_VARIABLE(char * ) yybuf= 0;
YY_VARIABLE(int ) yybuflen= 0;
YY_VARIABLE(int ) yypos= 0;
YY_VARIABLE(int ) yylimit= 0;
YY_VARIABLE(char * ) yytext= 0;
YY_VARIABLE(int ) yytextlen= 0;
YY_VARIABLE(int ) yybegin= 0;
YY_VARIABLE(int ) yyend= 0;
YY_VARIABLE(int ) yytextmax= 0;
YY_VARIABLE(yythunk *) yythunks= 0;
YY_VARIABLE(int ) yythunkslen= 0;
YY_VARIABLE(int ) yythunkpos= 0;
YY_VARIABLE(YYSTYPE ) yy;
YY_VARIABLE(YYSTYPE *) yyval= 0;
YY_VARIABLE(YYSTYPE *) yyvals= 0;
YY_VARIABLE(int ) yyvalslen= 0;
YY_LOCAL(int) yyrefill(void)
{
int yyn;
while (yybuflen - yypos < 512)
{
yybuflen *= 2;
yybuf= realloc(yybuf, yybuflen);
}
YY_INPUT((yybuf + yypos), yyn, (yybuflen - yypos));
if (!yyn) return 0;
yylimit += yyn;
return 1;
}
YY_LOCAL(int) yymatchDot(void)
{
if (yypos >= yylimit && !yyrefill()) return 0;
++yypos;
return 1;
}
YY_LOCAL(int) yymatchChar(int c)
{
if (yypos >= yylimit && !yyrefill()) return 0;
if (yybuf[yypos] == c)
{
++yypos;
yyprintf((stderr, " ok yymatchChar(%c) @ %s\n", c, yybuf+yypos));
return 1;
}
yyprintf((stderr, " fail yymatchChar(%c) @ %s\n", c, yybuf+yypos));
return 0;
}
YY_LOCAL(int) yymatchString(char *s)
{
int yysav= yypos;
while (*s)
{
if (yypos >= yylimit && !yyrefill()) return 0;
if (yybuf[yypos] != *s)
{
yypos= yysav;
return 0;
}
++s;
++yypos;
}
return 1;
}
YY_LOCAL(int) yymatchClass(unsigned char *bits)
{
int c;
if (yypos >= yylimit && !yyrefill()) return 0;
c= yybuf[yypos];
if (bits[c >> 3] & (1 << (c & 7)))
{
++yypos;
yyprintf((stderr, " ok yymatchClass @ %s\n", yybuf+yypos));
return 1;
}
yyprintf((stderr, " fail yymatchClass @ %s\n", yybuf+yypos));
return 0;
}
YY_LOCAL(void) yyDo(yyaction action, int begin, int end)
{
while (yythunkpos >= yythunkslen)
{
yythunkslen *= 2;
yythunks= realloc(yythunks, sizeof(yythunk) * yythunkslen);
}
yythunks[yythunkpos].begin= begin;
yythunks[yythunkpos].end= end;
yythunks[yythunkpos].action= action;
++yythunkpos;
}
YY_LOCAL(int) yyText(int begin, int end)
{
int yyleng= end - begin;
if (yyleng <= 0)
yyleng= 0;
else
{
while (yytextlen < (yyleng - 1))
{
yytextlen *= 2;
yytext= realloc(yytext, yytextlen);
}
memcpy(yytext, yybuf + begin, yyleng);
}
yytext[yyleng]= '\0';
return yyleng;
}
YY_LOCAL(void) yyDone(void)
{
int pos;
for (pos= 0; pos < yythunkpos; ++pos)
{
yythunk *thunk= &yythunks[pos];
int yyleng= thunk->end ? yyText(thunk->begin, thunk->end) : thunk->begin;
yyprintf((stderr, "DO [%d] %p %s\n", pos, thunk->action, yytext));
thunk->action(yytext, yyleng);
}
yythunkpos= 0;
}
YY_LOCAL(void) yyCommit()
{
if ((yylimit -= yypos))
{
memmove(yybuf, yybuf + yypos, yylimit);
}
yybegin -= yypos;
yyend -= yypos;
yypos= yythunkpos= 0;
}
YY_LOCAL(int) yyAccept(int tp0)
{
if (tp0)
{
fprintf(stderr, "accept denied at %d\n", tp0);
return 0;
}
else
{
yyDone();
yyCommit();
}
return 1;
}
YY_LOCAL(void) yyPush(char *text, int count) { yyval += count; }
YY_LOCAL(void) yyPop(char *text, int count) { yyval -= count; }
YY_LOCAL(void) yySet(char *text, int count) { yyval[count]= yy; }
#endif /* YY_PART */
#define YYACCEPT yyAccept(yythunkpos0)
YY_RULE(int) yy_end_of_line(); /* 35 */
YY_RULE(int) yy_comment(); /* 34 */
YY_RULE(int) yy_space(); /* 33 */
YY_RULE(int) yy_range(); /* 32 */
YY_RULE(int) yy_char(); /* 31 */
YY_RULE(int) yy_END(); /* 30 */
YY_RULE(int) yy_BEGIN(); /* 29 */
YY_RULE(int) yy_DOT(); /* 28 */
YY_RULE(int) yy_class(); /* 27 */
YY_RULE(int) yy_literal(); /* 26 */
YY_RULE(int) yy_CLOSE(); /* 25 */
YY_RULE(int) yy_OPEN(); /* 24 */
YY_RULE(int) yy_COLON(); /* 23 */
YY_RULE(int) yy_PLUS(); /* 22 */
YY_RULE(int) yy_STAR(); /* 21 */
YY_RULE(int) yy_QUESTION(); /* 20 */
YY_RULE(int) yy_primary(); /* 19 */
YY_RULE(int) yy_NOT(); /* 18 */
YY_RULE(int) yy_suffix(); /* 17 */
YY_RULE(int) yy_action(); /* 16 */
YY_RULE(int) yy_AND(); /* 15 */
YY_RULE(int) yy_prefix(); /* 14 */
YY_RULE(int) yy_BAR(); /* 13 */
YY_RULE(int) yy_sequence(); /* 12 */
YY_RULE(int) yy_SEMICOLON(); /* 11 */
YY_RULE(int) yy_expression(); /* 10 */
YY_RULE(int) yy_EQUAL(); /* 9 */
YY_RULE(int) yy_identifier(); /* 8 */
YY_RULE(int) yy_RPERCENT(); /* 7 */
YY_RULE(int) yy_end_of_file(); /* 6 */
YY_RULE(int) yy_trailer(); /* 5 */
YY_RULE(int) yy_definition(); /* 4 */
YY_RULE(int) yy_declaration(); /* 3 */
YY_RULE(int) yy__(); /* 2 */
YY_RULE(int) yy_grammar(); /* 1 */
YY_ACTION(void) yy_9_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_9_primary\n"));
push(makePredicate("YY_END")); ;
}
YY_ACTION(void) yy_8_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_8_primary\n"));
push(makePredicate("YY_BEGIN")); ;
}
YY_ACTION(void) yy_7_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_7_primary\n"));
push(makeAction(yytext)); ;
}
YY_ACTION(void) yy_6_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_6_primary\n"));
push(makeDot()); ;
}
YY_ACTION(void) yy_5_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_5_primary\n"));
push(makeClass(yytext)); ;
}
YY_ACTION(void) yy_4_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_4_primary\n"));
push(makeString(yytext)); ;
}
YY_ACTION(void) yy_3_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_3_primary\n"));
push(makeName(findRule(yytext))); ;
}
YY_ACTION(void) yy_2_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_2_primary\n"));
Node *name= makeName(findRule(yytext)); name->name.variable= pop(); push(name); ;
}
YY_ACTION(void) yy_1_primary(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_1_primary\n"));
push(makeVariable(yytext)); ;
}
YY_ACTION(void) yy_3_suffix(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_3_suffix\n"));
push(makePlus (pop())); ;
}
YY_ACTION(void) yy_2_suffix(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_2_suffix\n"));
push(makeStar (pop())); ;
}
YY_ACTION(void) yy_1_suffix(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_1_suffix\n"));
push(makeQuery(pop())); ;
}
YY_ACTION(void) yy_3_prefix(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_3_prefix\n"));
push(makePeekNot(pop())); ;
}
YY_ACTION(void) yy_2_prefix(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_2_prefix\n"));
push(makePeekFor(pop())); ;
}
YY_ACTION(void) yy_1_prefix(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_1_prefix\n"));
push(makePredicate(yytext)); ;
}
YY_ACTION(void) yy_1_sequence(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_1_sequence\n"));
Node *f= pop(); push(Sequence_append(pop(), f)); ;
}
YY_ACTION(void) yy_1_expression(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_1_expression\n"));
Node *f= pop(); push(Alternate_append(pop(), f)); ;
}
YY_ACTION(void) yy_2_definition(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_2_definition\n"));
Node *e= pop(); Rule_setExpression(pop(), e); ;
}
YY_ACTION(void) yy_1_definition(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_1_definition\n"));
if (push(beginRule(findRule(yytext)))->rule.expression)
fprintf(stderr, "rule '%s' redefined\n", yytext); ;
}
YY_ACTION(void) yy_1_trailer(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_1_trailer\n"));
makeTrailer(yytext); ;
}
YY_ACTION(void) yy_1_declaration(char *yytext, int yyleng)
{
yyprintf((stderr, "do yy_1_declaration\n"));
makeHeader(yytext); ;
}
YY_RULE(int) yy_end_of_line()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "end_of_line"));
{ int yypos2= yypos, yythunkpos2= yythunkpos; if (!yymatchString("\r\n")) goto l3; goto l2;
l3:; yypos= yypos2; yythunkpos= yythunkpos2; if (!yymatchChar('\n')) goto l4; goto l2;
l4:; yypos= yypos2; yythunkpos= yythunkpos2; if (!yymatchChar('\r')) goto l1;
}
l2:;
yyprintf((stderr, " ok %s @ %s\n", "end_of_line", yybuf+yypos));
return 1;
l1:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "end_of_line", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_comment()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "comment")); if (!yymatchChar('#')) goto l5;
l6:;
{ int yypos7= yypos, yythunkpos7= yythunkpos;
{ int yypos8= yypos, yythunkpos8= yythunkpos; if (!yy_end_of_line()) goto l8; goto l7;
l8:; yypos= yypos8; yythunkpos= yythunkpos8;
} if (!yymatchDot()) goto l7; goto l6;
l7:; yypos= yypos7; yythunkpos= yythunkpos7;
} if (!yy_end_of_line()) goto l5;
yyprintf((stderr, " ok %s @ %s\n", "comment", yybuf+yypos));
return 1;
l5:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "comment", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_space()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "space"));
{ int yypos10= yypos, yythunkpos10= yythunkpos; if (!yymatchChar(' ')) goto l11; goto l10;
l11:; yypos= yypos10; yythunkpos= yythunkpos10; if (!yymatchChar('\t')) goto l12; goto l10;
l12:; yypos= yypos10; yythunkpos= yythunkpos10; if (!yy_end_of_line()) goto l9;
}
l10:;
yyprintf((stderr, " ok %s @ %s\n", "space", yybuf+yypos));
return 1;
l9:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "space", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_range()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "range"));
{ int yypos14= yypos, yythunkpos14= yythunkpos; if (!yy_char()) goto l15; if (!yymatchChar('-')) goto l15; if (!yy_char()) goto l15; goto l14;
l15:; yypos= yypos14; yythunkpos= yythunkpos14; if (!yy_char()) goto l13;
}
l14:;
yyprintf((stderr, " ok %s @ %s\n", "range", yybuf+yypos));
return 1;
l13:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "range", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_char()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "char"));
{ int yypos17= yypos, yythunkpos17= yythunkpos; if (!yymatchChar('\\')) goto l18; 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 l18; goto l17;
l18:; yypos= yypos17; yythunkpos= yythunkpos17; if (!yymatchChar('\\')) goto l19; 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 l19; 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 l19; 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 l19; goto l17;
l19:; yypos= yypos17; yythunkpos= yythunkpos17; if (!yymatchChar('\\')) goto l20; 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 l20;
{ int yypos21= yypos, yythunkpos21= 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 l21; goto l22;
l21:; yypos= yypos21; yythunkpos= yythunkpos21;
}
l22:; goto l17;
l20:; yypos= yypos17; yythunkpos= yythunkpos17;
{ int yypos23= yypos, yythunkpos23= yythunkpos; if (!yymatchChar('\\')) goto l23; goto l16;
l23:; yypos= yypos23; yythunkpos= yythunkpos23;
} if (!yymatchDot()) goto l16;
}
l17:;
yyprintf((stderr, " ok %s @ %s\n", "char", yybuf+yypos));
return 1;
l16:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "char", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_END()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "END")); if (!yymatchChar('>')) goto l24; if (!yy__()) goto l24;
yyprintf((stderr, " ok %s @ %s\n", "END", yybuf+yypos));
return 1;
l24:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "END", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_BEGIN()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "BEGIN")); if (!yymatchChar('<')) goto l25; if (!yy__()) goto l25;
yyprintf((stderr, " ok %s @ %s\n", "BEGIN", yybuf+yypos));
return 1;
l25:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "BEGIN", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_DOT()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "DOT")); if (!yymatchChar('.')) goto l26; if (!yy__()) goto l26;
yyprintf((stderr, " ok %s @ %s\n", "DOT", yybuf+yypos));
return 1;
l26:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "DOT", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_class()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "class")); if (!yymatchChar('[')) goto l27; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l27;
l28:;
{ int yypos29= yypos, yythunkpos29= yythunkpos;
{ int yypos30= yypos, yythunkpos30= yythunkpos; if (!yymatchChar(']')) goto l30; goto l29;
l30:; yypos= yypos30; yythunkpos= yythunkpos30;
} if (!yy_range()) goto l29; goto l28;
l29:; yypos= yypos29; yythunkpos= yythunkpos29;
} yyText(yybegin, yyend); if (!(YY_END)) goto l27; if (!yymatchChar(']')) goto l27; if (!yy__()) goto l27;
yyprintf((stderr, " ok %s @ %s\n", "class", yybuf+yypos));
return 1;
l27:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "class", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_literal()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "literal"));
{ int yypos32= yypos, yythunkpos32= 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 l33; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l33;
l34:;
{ int yypos35= yypos, yythunkpos35= yythunkpos;
{ int yypos36= yypos, yythunkpos36= 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 l36; goto l35;
l36:; yypos= yypos36; yythunkpos= yythunkpos36;
} if (!yy_char()) goto l35; goto l34;
l35:; yypos= yypos35; yythunkpos= yythunkpos35;
} yyText(yybegin, yyend); if (!(YY_END)) goto l33; 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 l33; if (!yy__()) goto l33; goto l32;
l33:; yypos= yypos32; yythunkpos= yythunkpos32; 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 l31; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l31;
l37:;
{ int yypos38= yypos, yythunkpos38= yythunkpos;
{ int yypos39= yypos, yythunkpos39= 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 l39; goto l38;
l39:; yypos= yypos39; yythunkpos= yythunkpos39;
} if (!yy_char()) goto l38; goto l37;
l38:; yypos= yypos38; yythunkpos= yythunkpos38;
} yyText(yybegin, yyend); if (!(YY_END)) goto l31; 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 l31; if (!yy__()) goto l31;
}
l32:;
yyprintf((stderr, " ok %s @ %s\n", "literal", yybuf+yypos));
return 1;
l31:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "literal", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_CLOSE()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "CLOSE")); if (!yymatchChar(')')) goto l40; if (!yy__()) goto l40;
yyprintf((stderr, " ok %s @ %s\n", "CLOSE", yybuf+yypos));
return 1;
l40:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "CLOSE", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_OPEN()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "OPEN")); if (!yymatchChar('(')) goto l41; if (!yy__()) goto l41;
yyprintf((stderr, " ok %s @ %s\n", "OPEN", yybuf+yypos));
return 1;
l41:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "OPEN", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_COLON()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "COLON")); if (!yymatchChar(':')) goto l42; if (!yy__()) goto l42;
yyprintf((stderr, " ok %s @ %s\n", "COLON", yybuf+yypos));
return 1;
l42:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "COLON", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_PLUS()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "PLUS")); if (!yymatchChar('+')) goto l43; if (!yy__()) goto l43;
yyprintf((stderr, " ok %s @ %s\n", "PLUS", yybuf+yypos));
return 1;
l43:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "PLUS", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_STAR()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "STAR")); if (!yymatchChar('*')) goto l44; if (!yy__()) goto l44;
yyprintf((stderr, " ok %s @ %s\n", "STAR", yybuf+yypos));
return 1;
l44:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "STAR", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_QUESTION()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "QUESTION")); if (!yymatchChar('?')) goto l45; if (!yy__()) goto l45;
yyprintf((stderr, " ok %s @ %s\n", "QUESTION", yybuf+yypos));
return 1;
l45:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "QUESTION", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_primary()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "primary"));
{ int yypos47= yypos, yythunkpos47= yythunkpos; if (!yy_identifier()) goto l48; yyDo(yy_1_primary, yybegin, yyend); if (!yy_COLON()) goto l48; if (!yy_identifier()) goto l48;
{ int yypos49= yypos, yythunkpos49= yythunkpos; if (!yy_EQUAL()) goto l49; goto l48;
l49:; yypos= yypos49; yythunkpos= yythunkpos49;
} yyDo(yy_2_primary, yybegin, yyend); goto l47;
l48:; yypos= yypos47; yythunkpos= yythunkpos47; if (!yy_identifier()) goto l50;
{ int yypos51= yypos, yythunkpos51= yythunkpos; if (!yy_EQUAL()) goto l51; goto l50;
l51:; yypos= yypos51; yythunkpos= yythunkpos51;
} yyDo(yy_3_primary, yybegin, yyend); goto l47;
l50:; yypos= yypos47; yythunkpos= yythunkpos47; if (!yy_OPEN()) goto l52; if (!yy_expression()) goto l52; if (!yy_CLOSE()) goto l52; goto l47;
l52:; yypos= yypos47; yythunkpos= yythunkpos47; if (!yy_literal()) goto l53; yyDo(yy_4_primary, yybegin, yyend); goto l47;
l53:; yypos= yypos47; yythunkpos= yythunkpos47; if (!yy_class()) goto l54; yyDo(yy_5_primary, yybegin, yyend); goto l47;
l54:; yypos= yypos47; yythunkpos= yythunkpos47; if (!yy_DOT()) goto l55; yyDo(yy_6_primary, yybegin, yyend); goto l47;
l55:; yypos= yypos47; yythunkpos= yythunkpos47; if (!yy_action()) goto l56; yyDo(yy_7_primary, yybegin, yyend); goto l47;
l56:; yypos= yypos47; yythunkpos= yythunkpos47; if (!yy_BEGIN()) goto l57; yyDo(yy_8_primary, yybegin, yyend); goto l47;
l57:; yypos= yypos47; yythunkpos= yythunkpos47; if (!yy_END()) goto l46; yyDo(yy_9_primary, yybegin, yyend);
}
l47:;
yyprintf((stderr, " ok %s @ %s\n", "primary", yybuf+yypos));
return 1;
l46:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "primary", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_NOT()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "NOT")); if (!yymatchChar('!')) goto l58; if (!yy__()) goto l58;
yyprintf((stderr, " ok %s @ %s\n", "NOT", yybuf+yypos));
return 1;
l58:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "NOT", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_suffix()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "suffix")); if (!yy_primary()) goto l59;
{ int yypos60= yypos, yythunkpos60= yythunkpos;
{ int yypos62= yypos, yythunkpos62= yythunkpos; if (!yy_QUESTION()) goto l63; yyDo(yy_1_suffix, yybegin, yyend); goto l62;
l63:; yypos= yypos62; yythunkpos= yythunkpos62; if (!yy_STAR()) goto l64; yyDo(yy_2_suffix, yybegin, yyend); goto l62;
l64:; yypos= yypos62; yythunkpos= yythunkpos62; if (!yy_PLUS()) goto l60; yyDo(yy_3_suffix, yybegin, yyend);
}
l62:; goto l61;
l60:; yypos= yypos60; yythunkpos= yythunkpos60;
}
l61:;
yyprintf((stderr, " ok %s @ %s\n", "suffix", yybuf+yypos));
return 1;
l59:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "suffix", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_action()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "action")); if (!yymatchChar('{')) goto l65; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l65;
l66:;
{ int yypos67= yypos, yythunkpos67= yythunkpos; if (!yymatchClass((unsigned char *)"\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\337\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377")) goto l67; goto l66;
l67:; yypos= yypos67; yythunkpos= yythunkpos67;
} yyText(yybegin, yyend); if (!(YY_END)) goto l65; if (!yymatchChar('}')) goto l65; if (!yy__()) goto l65;
yyprintf((stderr, " ok %s @ %s\n", "action", yybuf+yypos));
return 1;
l65:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "action", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_AND()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "AND")); if (!yymatchChar('&')) goto l68; if (!yy__()) goto l68;
yyprintf((stderr, " ok %s @ %s\n", "AND", yybuf+yypos));
return 1;
l68:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "AND", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_prefix()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "prefix"));
{ int yypos70= yypos, yythunkpos70= yythunkpos; if (!yy_AND()) goto l71; if (!yy_action()) goto l71; yyDo(yy_1_prefix, yybegin, yyend); goto l70;
l71:; yypos= yypos70; yythunkpos= yythunkpos70; if (!yy_AND()) goto l72; if (!yy_suffix()) goto l72; yyDo(yy_2_prefix, yybegin, yyend); goto l70;
l72:; yypos= yypos70; yythunkpos= yythunkpos70; if (!yy_NOT()) goto l73; if (!yy_suffix()) goto l73; yyDo(yy_3_prefix, yybegin, yyend); goto l70;
l73:; yypos= yypos70; yythunkpos= yythunkpos70; if (!yy_suffix()) goto l69;
}
l70:;
yyprintf((stderr, " ok %s @ %s\n", "prefix", yybuf+yypos));
return 1;
l69:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "prefix", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_BAR()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "BAR")); if (!yymatchChar('|')) goto l74; if (!yy__()) goto l74;
yyprintf((stderr, " ok %s @ %s\n", "BAR", yybuf+yypos));
return 1;
l74:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "BAR", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_sequence()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "sequence")); if (!yy_prefix()) goto l75;
l76:;
{ int yypos77= yypos, yythunkpos77= yythunkpos; if (!yy_prefix()) goto l77; yyDo(yy_1_sequence, yybegin, yyend); goto l76;
l77:; yypos= yypos77; yythunkpos= yythunkpos77;
}
yyprintf((stderr, " ok %s @ %s\n", "sequence", yybuf+yypos));
return 1;
l75:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "sequence", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_SEMICOLON()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "SEMICOLON")); if (!yymatchChar(';')) goto l78; if (!yy__()) goto l78;
yyprintf((stderr, " ok %s @ %s\n", "SEMICOLON", yybuf+yypos));
return 1;
l78:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "SEMICOLON", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_expression()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "expression")); if (!yy_sequence()) goto l79;
l80:;
{ int yypos81= yypos, yythunkpos81= yythunkpos; if (!yy_BAR()) goto l81; if (!yy_sequence()) goto l81; yyDo(yy_1_expression, yybegin, yyend); goto l80;
l81:; yypos= yypos81; yythunkpos= yythunkpos81;
}
yyprintf((stderr, " ok %s @ %s\n", "expression", yybuf+yypos));
return 1;
l79:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "expression", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_EQUAL()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "EQUAL")); if (!yymatchChar('=')) goto l82; if (!yy__()) goto l82;
yyprintf((stderr, " ok %s @ %s\n", "EQUAL", yybuf+yypos));
return 1;
l82:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "EQUAL", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_identifier()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "identifier")); yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l83; 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 l83;
l84:;
{ int yypos85= yypos, yythunkpos85= 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 l85; goto l84;
l85:; yypos= yypos85; yythunkpos= yythunkpos85;
} yyText(yybegin, yyend); if (!(YY_END)) goto l83; if (!yy__()) goto l83;
yyprintf((stderr, " ok %s @ %s\n", "identifier", yybuf+yypos));
return 1;
l83:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "identifier", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_RPERCENT()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "RPERCENT")); if (!yymatchString("%}")) goto l86; if (!yy__()) goto l86;
yyprintf((stderr, " ok %s @ %s\n", "RPERCENT", yybuf+yypos));
return 1;
l86:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "RPERCENT", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_end_of_file()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "end_of_file"));
{ int yypos88= yypos, yythunkpos88= yythunkpos; if (!yymatchDot()) goto l88; goto l87;
l88:; yypos= yypos88; yythunkpos= yythunkpos88;
}
yyprintf((stderr, " ok %s @ %s\n", "end_of_file", yybuf+yypos));
return 1;
l87:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "end_of_file", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_trailer()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "trailer")); if (!yymatchString("%%")) goto l89; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l89;
l90:;
{ int yypos91= yypos, yythunkpos91= yythunkpos; if (!yymatchDot()) goto l91; goto l90;
l91:; yypos= yypos91; yythunkpos= yythunkpos91;
} yyText(yybegin, yyend); if (!(YY_END)) goto l89; yyDo(yy_1_trailer, yybegin, yyend);
yyprintf((stderr, " ok %s @ %s\n", "trailer", yybuf+yypos));
return 1;
l89:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "trailer", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_definition()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "definition")); if (!yy_identifier()) goto l92; yyDo(yy_1_definition, yybegin, yyend); if (!yy_EQUAL()) goto l92; if (!yy_expression()) goto l92; yyDo(yy_2_definition, yybegin, yyend);
{ int yypos93= yypos, yythunkpos93= yythunkpos; if (!yy_SEMICOLON()) goto l93; goto l94;
l93:; yypos= yypos93; yythunkpos= yythunkpos93;
}
l94:;
yyprintf((stderr, " ok %s @ %s\n", "definition", yybuf+yypos));
return 1;
l92:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "definition", yybuf+yypos));
return 0;
}
YY_RULE(int) yy_declaration()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "declaration")); if (!yymatchString("%{")) goto l95; yyText(yybegin, yyend); if (!(YY_BEGIN)) goto l95;
l96:;
{ int yypos97= yypos, yythunkpos97= yythunkpos;
{ int yypos98= yypos, yythunkpos98= yythunkpos; if (!yymatchString("%}")) goto l98; goto l97;
l98:; yypos= yypos98; yythunkpos= yythunkpos98;
} if (!yymatchDot()) goto l97; goto l96;
l97:; yypos= yypos97; yythunkpos= yythunkpos97;
} yyText(yybegin, yyend); if (!(YY_END)) goto l95; if (!yy_RPERCENT()) goto l95; yyDo(yy_1_declaration, yybegin, yyend);
yyprintf((stderr, " ok %s @ %s\n", "declaration", yybuf+yypos));
return 1;
l95:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "declaration", yybuf+yypos));
return 0;
}
YY_RULE(int) yy__()
{
yyprintf((stderr, "%s\n", "_"));
l100:;
{ int yypos101= yypos, yythunkpos101= yythunkpos;
{ int yypos102= yypos, yythunkpos102= yythunkpos; if (!yy_space()) goto l103; goto l102;
l103:; yypos= yypos102; yythunkpos= yythunkpos102; if (!yy_comment()) goto l101;
}
l102:; goto l100;
l101:; yypos= yypos101; yythunkpos= yythunkpos101;
}
yyprintf((stderr, " ok %s @ %s\n", "_", yybuf+yypos));
return 1;
}
YY_RULE(int) yy_grammar()
{ int yypos0= yypos, yythunkpos0= yythunkpos;
yyprintf((stderr, "%s\n", "grammar")); if (!yy__()) goto l104;
{ int yypos107= yypos, yythunkpos107= yythunkpos; if (!yy_declaration()) goto l108; goto l107;
l108:; yypos= yypos107; yythunkpos= yythunkpos107; if (!yy_definition()) goto l104;
}
l107:;
l105:;
{ int yypos106= yypos, yythunkpos106= yythunkpos;
{ int yypos109= yypos, yythunkpos109= yythunkpos; if (!yy_declaration()) goto l110; goto l109;
l110:; yypos= yypos109; yythunkpos= yythunkpos109; if (!yy_definition()) goto l106;
}
l109:; goto l105;
l106:; yypos= yypos106; yythunkpos= yythunkpos106;
}
{ int yypos111= yypos, yythunkpos111= yythunkpos; if (!yy_trailer()) goto l111; goto l112;
l111:; yypos= yypos111; yythunkpos= yythunkpos111;
}
l112:; if (!yy_end_of_file()) goto l104;
yyprintf((stderr, " ok %s @ %s\n", "grammar", yybuf+yypos));
return 1;
l104:; yypos= yypos0; yythunkpos= yythunkpos0;
yyprintf((stderr, " fail %s @ %s\n", "grammar", yybuf+yypos));
return 0;
}
#ifndef YY_PART
typedef int (*yyrule)();
YY_PARSE(int) YYPARSEFROM(yyrule yystart)
{
int yyok;
if (!yybuflen)
{
yybuflen= 1024;
yybuf= malloc(yybuflen);
yytextlen= 1024;
yytext= malloc(yytextlen);
yythunkslen= 32;
yythunks= malloc(sizeof(yythunk) * yythunkslen);
yyvalslen= 32;
yyvals= malloc(sizeof(YYSTYPE) * yyvalslen);
yybegin= yyend= yypos= yylimit= yythunkpos= 0;
}
yybegin= yyend= yypos;
yythunkpos= 0;
yyval= yyvals;
yyok= yystart();
if (yyok) yyDone();
yyCommit();
return yyok;
(void)yyrefill;
(void)yymatchDot;
(void)yymatchChar;
(void)yymatchString;
(void)yymatchClass;
(void)yyDo;
(void)yyText;
(void)yyDone;
(void)yyCommit;
(void)yyAccept;
(void)yyPush;
(void)yyPop;
(void)yySet;
(void)yytextmax;
}
YY_PARSE(int) YYPARSE(void)
{
return YYPARSEFROM(yy_grammar);
}
#endif
void yyerror(char *message)
{
fprintf(stderr, "%s:%d: %s", fileName, lineNumber, message);
if (yytext[0]) fprintf(stderr, " near token '%s'", yytext);
if (yypos < yylimit || !feof(input))
{
yybuf[yylimit]= '\0';
fprintf(stderr, " before text \"");
while (yypos < yylimit)
{
if ('\n' == yybuf[yypos] || '\r' == yybuf[yypos]) break;
fputc(yybuf[yypos++], stderr);
}
if (yypos == yylimit)
{
int c;
while (EOF != (c= fgetc(input)) && '\n' != c && '\r' != c)
fputc(c, stderr);
}
fputc('\"', stderr);
}
fprintf(stderr, "\n");
exit(1);
}
void makeHeader(char *text)
{
Header *header= (Header *)malloc(sizeof(Header));
header->text= strdup(text);
header->next= headers;
headers= header;
}
void makeTrailer(char *text)
{
trailer= strdup(text);
}
static void version(char *name)
{
printf("%s version %d.%d.%d\n", name, PEG_MAJOR, PEG_MINOR, PEG_LEVEL);
}
static void usage(char *name)
{
version(name);
fprintf(stderr, "usage: %s [<option>...] [<file>...]\n", name);
fprintf(stderr, "where <option> can be\n");
fprintf(stderr, " -h print this help information\n");
fprintf(stderr, " -o <ofile> write output to <ofile>\n");
fprintf(stderr, " -v be verbose\n");
fprintf(stderr, " -V print version number and exit\n");
fprintf(stderr, "if no <file> is given, input is read from stdin\n");
fprintf(stderr, "if no <ofile> is given, output is written to stdout\n");
exit(1);
}
int main(int argc, char **argv)
{
Node *n;
int c;
output= stdout;
input= stdin;
lineNumber= 1;
fileName= "<stdin>";
while (-1 != (c= getopt(argc, argv, "Vho:v")))
{
switch (c)
{
case 'V':
version(basename(argv[0]));
exit(0);
case 'h':
usage(basename(argv[0]));
break;
case 'o':
if (!(output= fopen(optarg, "w")))
{
perror(optarg);
exit(1);
}
break;
case 'v':
verboseFlag= 1;
break;
default:
fprintf(stderr, "for usage try: %s -h\n", argv[0]);
exit(1);
}
}
argc -= optind;
argv += optind;
if (argc)
{
for (; argc; --argc, ++argv)
{
if (!strcmp(*argv, "-"))
{
input= stdin;
fileName= "<stdin>";
}
else
{
if (!(input= fopen(*argv, "r")))
{
perror(*argv);
exit(1);
}
fileName= *argv;
}
lineNumber= 1;
if (!yyparse())
yyerror("syntax error");
if (input != stdin)
fclose(input);
}
}
else
if (!yyparse())
yyerror("syntax error");
if (verboseFlag)
for (n= rules; n; n= n->any.next)
Rule_print(n);
Rule_compile_c_header();
for (; headers; headers= headers->next)
fprintf(output, "%s\n", headers->text);
Rule_compile_c(rules);
if (trailer)
fprintf(output, "%s\n", trailer);
return 0;
}