This commit is contained in:
Paul
parent
f857751606
commit
aae2e8e05f
168 changed files with 11625 additions and 0 deletions
293
Utils/Parser Generator/SOURCE/yymwork.c
Normal file
293
Utils/Parser Generator/SOURCE/yymwork.c
Normal file
|
|
@ -0,0 +1,293 @@
|
|||
/************************************************************
|
||||
yymwork.c
|
||||
This file can be freely modified for the generation of
|
||||
custom code.
|
||||
|
||||
Copyright (c) 1999 Bumble-Bee Software Ltd.
|
||||
************************************************************/
|
||||
|
||||
#include <string.h>
|
||||
#include "myacc.h"
|
||||
|
||||
#ifdef YYPROTOTYPE
|
||||
int YYCDECL yymwork(yymparse_t YYFAR *yy)
|
||||
#else
|
||||
int YYCDECL yymwork(yy)
|
||||
yymparse_t YYFAR *yy;
|
||||
#endif
|
||||
{
|
||||
int errorpop = 0;
|
||||
yyassert(yy != NULL);
|
||||
yyassert(yymisfastparser(yy)); /* make sure it's a fast parser */
|
||||
|
||||
while (1) {
|
||||
unsigned char type;
|
||||
short sr;
|
||||
yystack_t state = yympeek(yy); /* get top state */
|
||||
|
||||
while (1) {
|
||||
if (yy->yymstateaction[state].lookahead) {
|
||||
int index;
|
||||
if (!yy->yymlookahead) {
|
||||
yy->yymlookahead = 1;
|
||||
yy->yymchar = (*yy->yymgettoken)(yy);
|
||||
if (yy->yymchar < 0) {
|
||||
yy->yymchar = 0;
|
||||
}
|
||||
#ifdef YYDEBUG
|
||||
yymdgettoken(yy, yy->yymchar);
|
||||
#endif
|
||||
}
|
||||
index = yy->yymstateaction[state].base + yy->yymchar;
|
||||
if (index >= 0 && index < yy->yymtokenaction_size) {
|
||||
if (yy->yymtokenaction[index].check == state) {
|
||||
type = yy->yymtokenaction[index].type;
|
||||
sr = yy->yymtokenaction[index].sr;
|
||||
break; /* escape from loop */
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
type = yy->yymstateaction[state].type;
|
||||
sr = yy->yymstateaction[state].sr;
|
||||
if (type != YYAT_DEFAULT) {
|
||||
break; /* escape from loop */
|
||||
}
|
||||
state = sr;
|
||||
}
|
||||
|
||||
/* action */
|
||||
switch (type) {
|
||||
case YYAT_SHIFT:
|
||||
#ifdef YYDEBUG
|
||||
yymdshift(yy, yy->yymchar);
|
||||
#endif
|
||||
if (yy->yymskip > 0) {
|
||||
yymsetskip(yy, yy->yymskip - 1);
|
||||
}
|
||||
if (!yympush(yy, sr)) {
|
||||
#ifdef YYDEBUG
|
||||
yymdabort(yy);
|
||||
#endif
|
||||
if (yy->yymwipeflg) {
|
||||
yymwipe(yy); /* clean up */
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
memcpy(&((char YYFAR *) yy->yymattributestackptr)[yy->yymtop *
|
||||
yy->yymattribute_size], yy->yymlvalptr, yy->yymattribute_size);
|
||||
yy->yymlookahead = 0;
|
||||
continue; /* go to top of while loop */
|
||||
case YYAT_REDUCE:
|
||||
#ifdef YYDEBUG
|
||||
yymdreduce(yy, sr);
|
||||
#endif
|
||||
yy->yymretireflg = 0;
|
||||
if (yy->yymreduction[sr].action != -1) {
|
||||
/* user actions in here */
|
||||
if (yy->yymreduction[sr].length > 0) {
|
||||
memcpy(yy->yymvalptr, &((char YYFAR *) yy->yymattributestackptr)
|
||||
[(yy->yymtop + 1 - yy->yymreduction[sr].length) *
|
||||
yy->yymattribute_size], yy->yymattribute_size);
|
||||
}
|
||||
|
||||
yy->yymerrorflg = 0;
|
||||
yy->yymexitflg = 0;
|
||||
(*yy->yymparseaction)(yy, yy->yymreduction[sr].action);
|
||||
|
||||
/* check for special user requected actions */
|
||||
if (yy->yymexitflg) {
|
||||
#ifdef YYDEBUG
|
||||
yymdexit(yy, yy->yymexitcode);
|
||||
#endif
|
||||
return yy->yymexitcode;
|
||||
}
|
||||
if (yy->yymerrorflg) {
|
||||
errorpop = yy->yymerrorpop;
|
||||
#ifdef YYDEBUG
|
||||
yymdthrowerror(yy, yy->yymerrorpop);
|
||||
#endif
|
||||
yy->yymerrorcount++;
|
||||
break; /* go to error handler */
|
||||
}
|
||||
}
|
||||
|
||||
yympop(yy, yy->yymreduction[sr].length);
|
||||
{
|
||||
yystack_t state = yympeek(yy); /* get top state */
|
||||
short next;
|
||||
|
||||
int nonterm = yy->yymreduction[sr].nonterm;
|
||||
while (1) {
|
||||
int index = yy->yymstategoto[state].base + nonterm;
|
||||
if (index >= 0 && index < yy->yymnontermgoto_size) {
|
||||
if (yy->yymnontermgoto[index].check == state) {
|
||||
next = yy->yymnontermgoto[index].next;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
next = yy->yymstategoto[state].def;
|
||||
if (next == -1) {
|
||||
break;
|
||||
}
|
||||
state = next;
|
||||
}
|
||||
yyassert(next != -1);
|
||||
|
||||
if (!yympush(yy, next)) {
|
||||
#ifdef YYDEBUG
|
||||
yymdabort(yy);
|
||||
#endif
|
||||
if (yy->yymwipeflg) {
|
||||
yymwipe(yy); /* clean up */
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
if (yy->yymreduction[sr].action != -1) {
|
||||
memcpy(&((char YYFAR *) yy->yymattributestackptr)
|
||||
[yy->yymtop * yy->yymattribute_size],
|
||||
yy->yymvalptr, yy->yymattribute_size);
|
||||
}
|
||||
if (yy->yymretireflg) {
|
||||
#ifdef YYDEBUG
|
||||
yymdretire(yy, yy->yymretirecode);
|
||||
#endif
|
||||
return yy->yymretirecode;
|
||||
}
|
||||
continue; /* go to top of while loop */
|
||||
case YYAT_ERROR:
|
||||
#ifdef YYDEBUG
|
||||
yymdsyntaxerror(yy);
|
||||
#endif
|
||||
if (yy->yymskip == 0) {
|
||||
yy->yymerrorcount++;
|
||||
(*yy->yymsyntaxerror)(yy);
|
||||
}
|
||||
break; /* go to error handler */
|
||||
default:
|
||||
yyassert(type == YYAT_ACCEPT);
|
||||
#ifdef YYDEBUG
|
||||
yymdaccept(yy);
|
||||
#endif
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* error handler */
|
||||
if (yy->yymskip < 3 || errorpop > 0) {
|
||||
#ifdef YYDEBUG
|
||||
yymdattemptrecovery(yy);
|
||||
#endif
|
||||
yy->yympopflg = 0; /* clear flag */
|
||||
while (1) {
|
||||
state = yympeek(yy); /* get top state */
|
||||
while (1) {
|
||||
int index = yy->yymstateaction[state].base + YYTK_ERROR;
|
||||
if (index >= 0 && index < yy->yymtokenaction_size) {
|
||||
if (yy->yymtokenaction[index].check == state) {
|
||||
type = yy->yymtokenaction[index].type;
|
||||
sr = yy->yymtokenaction[index].sr;
|
||||
break; /* escape from loop */
|
||||
}
|
||||
}
|
||||
|
||||
type = yy->yymstateaction[state].type;
|
||||
sr = yy->yymstateaction[state].sr;
|
||||
if (type != YYAT_DEFAULT) {
|
||||
break; /* escape from loop */
|
||||
}
|
||||
state = sr;
|
||||
}
|
||||
|
||||
if (type == YYAT_SHIFT) {
|
||||
if (errorpop <= 0) {
|
||||
#ifdef YYDEBUG
|
||||
yymdshift(yy, YYTK_ERROR);
|
||||
#endif
|
||||
if (!yympush(yy, sr)) {
|
||||
#ifdef YYDEBUG
|
||||
yymdabort(yy);
|
||||
#endif
|
||||
if (yy->yymwipeflg) {
|
||||
yymwipe(yy); /* clean up */
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
yymsetskip(yy, 3); /* skip 3 erroneous characters */
|
||||
break;
|
||||
}
|
||||
errorpop--;
|
||||
}
|
||||
|
||||
yy->yympopflg = 1;
|
||||
|
||||
/* clean up any symbol attributes */
|
||||
if (yy->yymdestructorptr != NULL) {
|
||||
int action;
|
||||
state = yympeek(yy);
|
||||
action = yy->yymdestructorptr[state];
|
||||
if (action != -1) {
|
||||
/* user actions in here */
|
||||
memcpy(yy->yymvalptr, &((char YYFAR *) yy->yymattributestackptr)
|
||||
[yy->yymtop * yy->yymattribute_size],
|
||||
yy->yymattribute_size);
|
||||
|
||||
(*yy->yymparseaction)(yy, action);
|
||||
|
||||
memcpy(&((char YYFAR *) yy->yymattributestackptr)
|
||||
[yy->yymtop * yy->yymattribute_size], yy->yymvalptr,
|
||||
yy->yymattribute_size);
|
||||
}
|
||||
}
|
||||
yympop(yy, 1);
|
||||
if (yy->yymtop < 0) {
|
||||
#ifdef YYDEBUG
|
||||
yymdabort(yy);
|
||||
#endif
|
||||
if (yy->yymwipeflg) {
|
||||
yymwipe(yy); /* clean up */
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
if (yy->yymlookahead) {
|
||||
if (yy->yymchar != 0) {
|
||||
#ifdef YYDEBUG
|
||||
yymddiscard(yy, yy->yymchar);
|
||||
#endif
|
||||
(*yy->yymdiscard)(yy, yy->yymchar);
|
||||
|
||||
/* clean up any token attributes */
|
||||
if (yy->yymtokendestptr != NULL) {
|
||||
int index = yy->yymtokendestbase + yy->yymchar;
|
||||
if (index >= 0 && index < yy->yymtokendest_size) {
|
||||
int action = yy->yymtokendestptr[index];
|
||||
if (action != -1) {
|
||||
/* user actions in here */
|
||||
memcpy(yy->yymvalptr, yy->yymlvalptr, yy->yymattribute_size);
|
||||
|
||||
(*yy->yymparseaction)(yy, action);
|
||||
|
||||
memcpy(yy->yymlvalptr, yy->yymvalptr, yy->yymattribute_size);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
yy->yymlookahead = 0; /* skip erroneous character */
|
||||
}
|
||||
else {
|
||||
#ifdef YYDEBUG
|
||||
yymdabort(yy);
|
||||
#endif
|
||||
if (yy->yymwipeflg) {
|
||||
yymwipe(yy); /* clean up */
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue