preccx.c

編譯器的辭法分析器工具

}
static STATUS hid182(){
PARSER AT, hid181;
static STATUS p_tok;
P_PAND((TOPARSER AT)(),(TOPARSER hid181)());
return p_tok;
}
static VOID hid183(){
char *n; VV(5)=(getname(&V(3)),                  GETNEWNAME(&n,plainenv,NULL),P_ATA(n,V(3))); 
}
static STATUS hid184(){
PARSER hid182;ACTION hid183;
return p_attach0n(TOPARSER hid182,0,hid183,0);
}
STATUS result(){
PARSER hid184;
return((TOPARSER hid184)());
}

                /* here is one overpull */

int starflag=0;
char *starqual;

static VOID hid185(){
starflag=1;VV(2)=(getname(&V(2)),V(2));
}
static STATUS hid186(){
PARSER expr;ACTION hid185;
return p_attach0n(TOPARSER expr,0,hid185,0);
}
static STATUS hid187(){
PARSER hid186;
return p_option0n(TOPARSER hid186,0);
}
static STATUS hid188(){
PARSER STAR, hid187;
static STATUS p_tok;
P_PAND((TOPARSER STAR)(),(TOPARSER hid187)());
return p_tok;
}
static VOID hid189(){
 char *n;if(starflag){                  VV(2)=(GETNEWNAME(&n,plainenv,NULL),P_ITR(n,V(1),V(3)));                   }  else {                  VV(2)=(GETNEWNAME(&n,plainenv,NULL),P_INF(n,V(1)));                  }  starflag=0; 
}
static STATUS hid190(){
PARSER hid188;ACTION hid189;
return p_attach0n(TOPARSER hid188,0,hid189,0);
}
STATUS starop(){
PARSER hid190;
return((TOPARSER hid190)());
}

static VOID hid191(){
 VV(1)="p_anything0"; 
}
static STATUS hid192(){
PARSER QUESTION;ACTION hid191;
return p_attach0n(TOPARSER QUESTION,0,hid191,0);
}
STATUS anymatch(){
PARSER hid192;
return((TOPARSER hid192)());
}

/* recall that exprnames get saved in the cbuff */

static STATUS hid193 (){
PARSER plingmatch, exprname;
static STATUS p_tok;
p_tok = (TOPARSER plingmatch) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER exprname) ();
}
static STATUS hid194 (){
PARSER plingexpr, hid193;
static STATUS p_tok;
p_tok = (TOPARSER plingexpr) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid193) ();
}
static STATUS hid195 (){
PARSER finishmatch, hid194;
static STATUS p_tok;
p_tok = (TOPARSER finishmatch) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid194) ();
}
static STATUS hid196 (){
PARSER dollarplingmatch, hid195;
static STATUS p_tok;
p_tok = (TOPARSER dollarplingmatch) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid195) ();
}
static STATUS hid197 (){
PARSER eofmatch, hid196;
static STATUS p_tok;
p_tok = (TOPARSER eofmatch) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid196) ();
}
static STATUS hid198 (){
PARSER beginmatch, hid197;
static STATUS p_tok;
p_tok = (TOPARSER beginmatch) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid197) ();
}
static STATUS hid199 (){
PARSER anymatch, hid198;
static STATUS p_tok;
p_tok = (TOPARSER anymatch) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid198) ();
}
static STATUS hid200 (){
PARSER untilmatch, hid199;
static STATUS p_tok;
p_tok = (TOPARSER untilmatch) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid199) ();
}
static STATUS hid201 (){
PARSER result, hid200;
static STATUS p_tok;
p_tok = (TOPARSER result) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid200) ();
}
static STATUS hid202 (){
PARSER phantom, hid201;
static STATUS p_tok;
p_tok = (TOPARSER phantom) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid201) ();
}
static STATUS hid203 (){
PARSER test, hid202;
static STATUS p_tok;
p_tok = (TOPARSER test) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid202) ();
}
static STATUS hid204 (){
PARSER range, hid203;
static STATUS p_tok;
p_tok = (TOPARSER range) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid203) ();
}
static STATUS hid205 (){
PARSER antiliteral, hid204;
static STATUS p_tok;
p_tok = (TOPARSER antiliteral) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid204) ();
}
static STATUS hid206 (){
PARSER literal, hid205;
static STATUS p_tok;
p_tok = (TOPARSER literal) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid205) ();
}
static STATUS hid207 (){
PARSER option, hid206;
static STATUS p_tok;
p_tok = (TOPARSER option) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid206) ();
}
static STATUS hid208 (){
PARSER bracket, hid207;
static STATUS p_tok;
p_tok = (TOPARSER bracket) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid207) ();
}
STATUS seqoperand(){
PARSER hid208;
return((TOPARSER hid208)());
}

static STATUS hid209(){
PARSER PLING, bracket;
static STATUS p_tok;
P_PAND((TOPARSER PLING)(),(TOPARSER bracket)());
return p_tok;
}
static VOID hid210(){
 char *n;   VV(2)=(GETNEWNAME(&n,plainenv,NULL),P_ERR(n,V(2))); 
}
static STATUS hid211(){
PARSER hid209;ACTION hid210;
return p_attach0n(TOPARSER hid209,0,hid210,0);
}
STATUS plingexpr(){
PARSER hid211;
return((TOPARSER hid211)());
}

static STATUS hid212(){
PARSER WHITESPACE, OPENBRACKET;
static STATUS p_tok;
P_PAND((TOPARSER WHITESPACE)(),(TOPARSER OPENBRACKET)());
return p_tok;
}
static STATUS hid213(){
PARSER expression, hid212;
static STATUS p_tok;
P_PAND((TOPARSER expression)(),(TOPARSER hid212)());
return p_tok;
}
static STATUS hid214(){
PARSER WHITESPACE, hid213;
static STATUS p_tok;
P_PAND((TOPARSER WHITESPACE)(),(TOPARSER hid213)());
return p_tok;
}
static STATUS hid215(){
PARSER CLOSEBRACKET, hid214;
static STATUS p_tok;
P_PAND((TOPARSER CLOSEBRACKET)(),(TOPARSER hid214)());
return p_tok;
}
static VOID hid216(){
char *n;VV(5)=(GETNEWNAME(&n,plainenv,NULL),P_PHA(n,V(3))); 
}
static STATUS hid217(){
PARSER hid215;ACTION hid216;
return p_attach0n(TOPARSER hid215,0,hid216,0);
}
STATUS phantom(){
PARSER hid217;
return((TOPARSER hid217)());
}

/* a literal is anything inside angle brackets.
 * an antiliteral is anything inside anti angle brackets.
 * anglebrackets inside may be escaped to protect them
 */

static VOID hid218(){
 VV(1) = putchar(T(1)); 
}
static STATUS hid219(){
PARSER NOTARIGHTANGLEBRACKET;ACTION hid218;
return p_attach0n(TOPARSER NOTARIGHTANGLEBRACKET,0,hid218,0);
}
static STATUS hid220 (){
PARSER COMMENT, hid219;
static STATUS p_tok;
p_tok = (TOPARSER COMMENT) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid219) ();
}
static STATUS hid221 (){
PARSER CHARCONST, hid220;
static STATUS p_tok;
p_tok = (TOPARSER CHARCONST) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid220) ();
}
static STATUS hid222 (){
PARSER STRING, hid221;
static STATUS p_tok;
p_tok = (TOPARSER STRING) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid221) ();
}
STATUS lstuff(){
PARSER hid222;
return((TOPARSER hid222)());
}

static VOID hid223(){
 VV(1) = putchar(T(1)); 
}
static STATUS hid224(){
PARSER NOTALEFTANGLEBRACKET;ACTION hid223;
return p_attach0n(TOPARSER NOTALEFTANGLEBRACKET,0,hid223,0);
}
static STATUS hid225 (){
PARSER COMMENT, hid224;
static STATUS p_tok;
p_tok = (TOPARSER COMMENT) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid224) ();
}
static STATUS hid226 (){
PARSER CHARCONST, hid225;
static STATUS p_tok;
p_tok = (TOPARSER CHARCONST) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid225) ();
}
static STATUS hid227 (){
PARSER STRING, hid226;
static STATUS p_tok;
p_tok = (TOPARSER STRING) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid226) ();
}
STATUS alstuff(){
PARSER hid227;
return((TOPARSER hid227)());
}

static VOID hid228(){
 VV(2) = V(1); 
}
static STATUS hid229(){
PARSER lstuff;ACTION hid228;
return p_attach0n(TOPARSER lstuff,0,hid228,0);
}
static STATUS hid230(){
PARSER hid229;
return p_many0n(TOPARSER hid229,0);
}
static STATUS hid231(){
PARSER lstuff, hid230;
static STATUS p_tok;
P_PAND((TOPARSER lstuff)(),(TOPARSER hid230)());
return p_tok;
}
static VOID hid232(){
 VV(0)=""; 
}
static STATUS hid233(){
PARSER p_nothing0;ACTION hid232;
return p_attach0n(TOPARSER p_nothing0,0,hid232,0);
}
static STATUS hid234 (){
PARSER hid231, hid233;
static STATUS p_tok;
p_tok = (TOPARSER hid231) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid233) ();
}
STATUS lstuffs(){
PARSER hid234;
return((TOPARSER hid234)());
}

/* close the accumulator for lstuffs */

static VOID hid235(){
VV(1)=V(1);getname(&V(1));
}
static STATUS hid236(){
PARSER lstuffs;ACTION hid235;
return p_attach0n(TOPARSER lstuffs,0,hid235,0);
}
STATUS lits(){
PARSER hid236;
return((TOPARSER hid236)());
}

static VOID hid237(){
 VV(2) = V(1); 
}
static STATUS hid238(){
PARSER alstuff;ACTION hid237;
return p_attach0n(TOPARSER alstuff,0,hid237,0);
}
static STATUS hid239(){
PARSER hid238;
return p_many0n(TOPARSER hid238,0);
}
static STATUS hid240(){
PARSER alstuff, hid239;
static STATUS p_tok;
P_PAND((TOPARSER alstuff)(),(TOPARSER hid239)());
return p_tok;
}
static VOID hid241(){
 VV(0)=""; 
}
static STATUS hid242(){
PARSER p_nothing0;ACTION hid241;
return p_attach0n(TOPARSER p_nothing0,0,hid241,0);
}
static STATUS hid243 (){
PARSER hid240, hid242;
static STATUS p_tok;
p_tok = (TOPARSER hid240) ();
return (GOODSTATUS(p_tok))?p_tok:(TOPARSER hid242) ();
}
STATUS alstuffs(){
PARSER hid243;
return((TOPARSER hid243)());
}

/* close the accumulator for alstuffs */

static VOID hid244(){
VV(1)=V(1);getname(&V(1));
}
static STATUS hid245(){
PARSER alstuffs;ACTION hid244;
return p_attach0n(TOPARSER alstuffs,0,hid244,0);
}
STATUS alits(){
PARSER hid245;
return((TOPARSER hid245)());
}

static STATUS hid246(){
PARSER lits, RIGHTANGLEBRACKET;
static STATUS p_tok;
P_PAND((TOPARSER lits)(),(TOPARSER RIGHTANGLEBRACKET)());
return p_tok;
}
static STATUS hid247(){
PARSER LEFTANGLEBRACKET, hid246;
static STATUS p_tok;
P_PAND((TOPARSER LEFTANGLEBRACKET)(),(TOPARSER hid246)());
return p_tok;
}
static VOID hid248(){
 VV(3) = V(2); 
}
static STATUS hid249(){
PARSER hid247;ACTION hid248;
return p_attach0n(TOPARSER hid247,0,hid248,0);
}
STATUS LITERAL(){
PARSER hid249;
return((TOPARSER hid249)());
}

static STATUS hid250(){
PARSER alits, LEFTANGLEBRACKET;
static STATUS p_tok;
P_PAND((TOPARSER alits)(),(TOPARSER LEFTANGLEBRACKET)());
return p_tok;
}
static STATUS hid251(){
PARSER RIGHTANGLEBRACKET, hid250;
static STATUS p_tok;
P_PAND((TOPARSER RIGHTANGLEBRACKET)(),(TOPARSER hid250)());
return p_tok;
}
static VOID hid252(){
 VV(3) = V(2) ; 
}
static STATUS hid253(){
PARSER hid251;ACTION hid252;
return p_attach0n(TOPARSER hid251,0,hid252,0);
}
static STATUS hid254(){
PARSER hid253, p_nothing0;
static STATUS p_tok;
P_PAND((TOPARSER hid253)(),(TOPARSER p_nothing0)());
return p_tok;
}
STATUS ANTILITERAL(){
PARSER hid254;
return((TOPARSER hid254)());
}


static VOID hid255(){
char *n;VV(1)=(GETNEWNAME(&n,plainenv,NULL),P_LIT(n,V(1))); 
}
static STATUS hid256(){
PARSER LITERAL;ACTION hid255;
return p_attach0n(TOPARSER LITERAL,0,hid255,0);
}
STATUS literal(){
PARSER hid256;
return((TOPARSER hid256)());
}

static VOID hid257(){
char *n;VV(1)=(GETNEWNAME(&n,plainenv,NULL),P_ALI(n,V(1))); 
}
static STATUS hid258(){
PARSER ANTILITERAL;ACTION hid257;
return p_attach0n(TOPARSER ANTILITERAL,0,hid257,0);
}
STATUS antiliteral(){
PARSER hid258;
return((TOPARSER hid258)());
}

static STATUS hid259(){
PARSER expr, CLOSEPAREN;
static STATUS p_tok;
P_PAND((TOPARSER expr)(),(TOPARSER CLOSEPAREN)());
return p_tok;
}
static STATUS hid260(){
PARSER OPENPAREN, hid259;
static STATUS p_tok;
P_PAND((TOPARSER OPENPAREN)(),(TOPARSER hid259)());
return p_tok;
}
static VOID hid261(){
char *n;VV(3)=(getname(&V(2)),GETNEWNAME(&n,plainenv,NULL),P_RAN(n,V(2)));
}
static STATUS hid262(){
PARSER hid260;ACTION hid261;
return p_attach0n(TOPARSER hid260,0,hid261,0);
}
STATUS range(){
PARSER hid262;
return((TOPARSER hid262)());
}

static STATUS hid263(){
PARSER expr, OPENPAREN;
static STATUS p_tok;
P_PAND((TOPARSER expr)(),(TOPARSER OPENPAREN)());
return p_tok;
}
static STATUS hid264(){
PARSER CLOSEPAREN, hid263;
static STATUS p_tok;
P_PAND((TOPARSER CLOSEPAREN)(),(TOPARSER hid263)());
return p_tok;
}
static VOID hid265(){
char *n;VV(3)=(getname(&V(2)),GETNEWNAME(&n,plainenv,NULL),P_TST(n,V(2)));
}
static STATUS hid266(){
PARSER hid264;ACTION hid265;
return p_attach0n(TOPARSER hid264,0,hid265,0);
}
STATUS test(){
PARSER hid266;
return((TOPARSER hid266)());
}

static VOID hid267(){
 VV(1)="p_first0"; 
}
static STATUS hid268(){
PARSER CARET;ACTION hid267;
return p_attach0n(TOPARSER CARET,0,hid267,0);
}
STATUS beginmatch(){
PARSER hid268;
return((TOPARSER hid268)());
}

static VOID hid269(){
 VV(1)="p_last0"; 
}
static STATUS hid270(){
PARSER DOLLAR;ACTION hid269;
return p_attach0n(TOPARSER DOLLAR,0,hid269,0);
}
STATUS finishmatch(){
PARSER hid270;
return((TOPARSER hid270)());
}

static VOID hid271(){
 VV(1)="p_uniq0"; 
}
static STATUS hid272(){
PARSER PLING;ACTION hid271;
return p_attach0n(TOPARSER PLING,0,hid271,0);
}
STATUS plingmatch(){
PARSER hid272;
return((TOPARSER hid272)());
}

static STATUS hid273(){
PARSER DOLLAR, PLING;
static STATUS p_tok;
P_PAND((TOPARSER DOLLAR)(),(TOPARSER PLING)());
return p_tok;
}
static VOID hid274(){
 VV(2)="p_lastuniq0"; 
}
static STATUS hid275(){
PARSER hid273;ACTION hid274;
return p_attach0n(TOPARSER hid273,0,hid274,0);
}
STATUS dollarplingmatch(){
PARSER hid275;
return((TOPARSER hid275)());
}

static STATUS hid276(){
PARSER DOLLAR, DOLLAR;
static STATUS p_tok;
P_PAND((TOPARSER DOLLAR)(),(TOPARSER DOLLAR)());
return p_tok;
}
static VOID hid277(){
 VV(2)="p_eof0"; 
}
static STATUS hid278(){
PARSER hid276;ACTION hid277;
return p_attach0n(TOPARSER hid276,0,hid277,0);
}
STATUS eofmatch(){
PARSER hid278;
return((TOPARSER hid278)());
}

                /* another overpull */

static VOID hid279(){
 char *n;VV(2)=(GETNEWNAME(&n,plainenv,NULL),P_SOM(n,V(1))); 
}
static STATUS hid280(){
PARSER PLUS;ACTION hid279;
return p_attach0n(TOPARSER PLUS,0,hid279,0);
}
STATUS plusop(){
PARSER hid280;
return((TOPARSER hid280)());
}

static STATUS hid281(){
PARSER expr, CLOSEPAREN;
static STATUS p_tok;
P_PAND((TOPARSER expr)(),(TOPARSER CLOSEPAREN)());
return p_tok;
}
static STATUS hid282(){
PARSER OPENPAREN, hid281;
static STATUS p_tok;
P_PAND((TOPARSER OPENPAREN)(),(TOPARSER hid281)());
return p_tok;
}
static STATUS hid283(){
PARSER SLASH, hid282;
static STATUS p_tok;
P_PAND((TOPARSER SLASH)(),(TOPARSER hid282)());
return p_tok;
}
static VOID hid284(){
char *n;   VV(5)=(getname(&V(4)),GETNEWNAME(&n,plainenv,NULL),P_HID(n,V(1),V(4)));
}
static STATUS hid285(){
PARSER hid283;ACTION hid284;
return p_attach0n(TOPARSER hid283,0,hid284,0);
}
STATUS hideop(){
PARSER hid285;
return((TOPARSER hid285)());
}

static STATUS hid286(){
PARSER WHITESPACE, seqoperand;
static STATUS p_tok;
P_PAND((TOPARSER WHITESPACE)(),(TOPARSER seqoperand)());
return p_tok;
}
static STATUS hid287(){
PARSER ELLIPSIS, hid286;
static STATUS p_tok;
P_PAND((TOPARSER ELLIPSIS)(),(TOPARSER hid286)());
return p_tok;
}
static VOID hid288(){
 char *n;VV(3)=(GETNEWNAME(&n,plainenv,NULL),P_UNT(n,V(3))); 
}
static STATUS hid289(){
PARSER hid287;ACTION hid288;
return p_attach0n(TOPARSER hid287,0,hid288,0);
}
STATUS untilmatch(){
PARSER hid289;
return((TOPARSER hid289)());
}


                /* ------- finis -------- */

MAIN(line)