|
|
|
/*
|
|
|
|
* err.h
|
|
|
|
*
|
|
|
|
* Standard error handling mechanism
|
|
|
|
*
|
|
|
|
* SOFTWARE RIGHTS
|
|
|
|
*
|
|
|
|
* We reserve no LEGAL rights to the Purdue Compiler Construction Tool
|
|
|
|
* Set (PCCTS) -- PCCTS is in the public domain. An individual or
|
|
|
|
* company may do whatever they wish with source code distributed with
|
|
|
|
* PCCTS or the code generated by PCCTS, including the incorporation of
|
|
|
|
* PCCTS, or its output, into commerical software.
|
|
|
|
*
|
|
|
|
* We encourage users to develop software with PCCTS. However, we do ask
|
|
|
|
* that credit is given to us for developing PCCTS. By "credit",
|
|
|
|
* we mean that if you incorporate our source code into one of your
|
|
|
|
* programs (commercial product, research project, or otherwise) that you
|
|
|
|
* acknowledge this fact somewhere in the documentation, research report,
|
|
|
|
* etc... If you like PCCTS and have developed a nice tool with the
|
|
|
|
* output, please mention that you developed it using PCCTS. In
|
|
|
|
* addition, we ask that this header remain intact in our source code.
|
|
|
|
* As long as these guidelines are kept, we expect to continue enhancing
|
|
|
|
* this system and expect to make other tools available as they are
|
|
|
|
* completed.
|
|
|
|
*
|
|
|
|
* Has grown to hold all kinds of stuff (err.h is increasingly misnamed)
|
|
|
|
*
|
|
|
|
* ANTLR 1.33
|
|
|
|
* Terence Parr
|
|
|
|
* Parr Research Corporation
|
|
|
|
* with Purdue University and AHPCRC, University of Minnesota
|
|
|
|
* 1989-1995
|
|
|
|
*/
|
|
|
|
|
|
|
|
#ifndef ERR_H
|
|
|
|
#define ERR_H
|
|
|
|
|
|
|
|
#include "btconfig.h"
|
|
|
|
|
|
|
|
#include <string.h>
|
|
|
|
#include <stdarg.h>
|
|
|
|
|
|
|
|
#ifdef DUM
|
|
|
|
/* Define usable bits per unsigned int word (used for set stuff) */
|
|
|
|
#ifdef PC
|
|
|
|
#define BSETWORDSIZE 16
|
|
|
|
#define BSETLOGWORDSIZE 4
|
|
|
|
#else
|
|
|
|
#define BSETWORDSIZE 32
|
|
|
|
#define BSETLOGWORDSIZE 5
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#define BSETWORDSIZE 8
|
|
|
|
#define BSETLOGWORDSIZE 3 /* SetWordType is 8bits */
|
|
|
|
|
|
|
|
#define BSETMODWORD(x) ((x) & (BSETWORDSIZE-1)) /* x % BSETWORDSIZE */
|
|
|
|
#define BSETDIVWORD(x) ((x) >> BSETLOGWORDSIZE) /* x / BSETWORDSIZE */
|
|
|
|
|
|
|
|
/* This is not put into the global pccts_parser structure because it is
|
|
|
|
* hidden and does not need to be saved during a "save state" operation
|
|
|
|
*/
|
|
|
|
/* maximum of 32 bits/unsigned int and must be 8 bits/byte */
|
|
|
|
static SetWordType bitmask[] = {
|
|
|
|
0x00000001, 0x00000002, 0x00000004, 0x00000008,
|
|
|
|
0x00000010, 0x00000020, 0x00000040, 0x00000080
|
|
|
|
};
|
|
|
|
|
|
|
|
void
|
|
|
|
zzresynch(SetWordType *wd,SetWordType mask)
|
|
|
|
{
|
|
|
|
static int consumed = 1;
|
|
|
|
|
|
|
|
/* if you enter here without having consumed a token from last resynch
|
|
|
|
* force a token consumption.
|
|
|
|
*/
|
|
|
|
if ( !consumed ) {zzCONSUME; return;}
|
|
|
|
|
|
|
|
/* if current token is in resynch set, we've got what we wanted */
|
|
|
|
if ( wd[LA(1)]&mask || LA(1) == zzEOF_TOKEN ) {consumed=0; return;}
|
|
|
|
|
|
|
|
/* scan until we find something in the resynch set */
|
|
|
|
while ( !(wd[LA(1)]&mask) && LA(1) != zzEOF_TOKEN ) {zzCONSUME;}
|
|
|
|
consumed=1;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
zzconsumeUntil(SetWordType *st)
|
|
|
|
{
|
|
|
|
while ( !zzset_el(LA(1), st) ) { zzCONSUME; }
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
zzconsumeUntilToken(int t)
|
|
|
|
{
|
|
|
|
while ( LA(1)!=t ) { zzCONSUME; }
|
|
|
|
}
|
|
|
|
|
|
|
|
/* input looks like:
|
|
|
|
* zzFAIL(k, e1, e2, ...,&zzMissSet,&zzMissText,&zzBadTok,&zzBadText)
|
|
|
|
* where the zzMiss stuff is set here to the token that did not match
|
|
|
|
* (and which set wasn't it a member of).
|
|
|
|
*/
|
|
|
|
void
|
|
|
|
zzFAIL(int k, ...)
|
|
|
|
{
|
|
|
|
#ifdef LL_K
|
|
|
|
static char text[LL_K*ZZLEXBUFSIZE+1];
|
|
|
|
SetWordType *f[LL_K];
|
|
|
|
#else
|
|
|
|
static char text[ZZLEXBUFSIZE+1];
|
|
|
|
SetWordType *f[1];
|
|
|
|
#endif
|
|
|
|
SetWordType **miss_set;
|
|
|
|
char **miss_text;
|
|
|
|
int *bad_tok;
|
|
|
|
char **bad_text;
|
|
|
|
int *err_k;
|
|
|
|
int i;
|
|
|
|
va_list ap;
|
|
|
|
/* Removed because it shadows a parameter. gcc 3.4 complains.
|
|
|
|
I think removing it preserves the behavior of gcc 3.3 and previous.
|
|
|
|
int k;
|
|
|
|
*/
|
|
|
|
va_start(ap, k);
|
|
|
|
text[0] = '\0';
|
|
|
|
for (i=1; i<=k; i++) /* collect all lookahead sets */
|
|
|
|
{
|
|
|
|
f[i-1] = va_arg(ap, SetWordType *);
|
|
|
|
}
|
|
|
|
for (i=1; i<=k; i++) /* look for offending token */
|
|
|
|
{
|
|
|
|
if ( i>1 ) strcat(text, " ");
|
|
|
|
strcat(text, LATEXT(i));
|
|
|
|
if ( !zzset_el((unsigned)LA(i), f[i-1]) ) break;
|
|
|
|
}
|
|
|
|
miss_set = va_arg(ap, SetWordType **);
|
|
|
|
miss_text = va_arg(ap, char **);
|
|
|
|
bad_tok = va_arg(ap, int *);
|
|
|
|
bad_text = va_arg(ap, char **);
|
|
|
|
err_k = va_arg(ap, int *);
|
|
|
|
if ( i>k )
|
|
|
|
{
|
|
|
|
/* bad; lookahead is permutation that cannot be matched,
|
|
|
|
* but, the ith token of lookahead is valid at the ith position
|
|
|
|
* (The old LL sub 1 (k) versus LL(k) parsing technique)
|
|
|
|
*/
|
|
|
|
*miss_set = NULL;
|
|
|
|
*miss_text = zzlextext;
|
|
|
|
*bad_tok = LA(1);
|
|
|
|
*bad_text = LATEXT(1);
|
|
|
|
*err_k = k;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
/* fprintf(stderr, "%s not in %dth set\n", zztokens[LA(i)], i);*/
|
|
|
|
*miss_set = f[i-1];
|
|
|
|
*miss_text = text;
|
|
|
|
*bad_tok = LA(i);
|
|
|
|
*bad_text = LATEXT(i);
|
|
|
|
if ( i==1 ) *err_k = 1;
|
|
|
|
else *err_k = k;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
zzsave_antlr_state(zzantlr_state *buf)
|
|
|
|
{
|
|
|
|
#ifdef LL_K
|
|
|
|
int i;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef ZZCAN_GUESS
|
|
|
|
buf->guess_start = zzguess_start;
|
|
|
|
buf->guessing = zzguessing;
|
|
|
|
#endif
|
|
|
|
buf->asp = zzasp;
|
|
|
|
#ifdef GENAST
|
|
|
|
buf->ast_sp = zzast_sp;
|
|
|
|
#endif
|
|
|
|
#ifdef ZZINF_LOOK
|
|
|
|
buf->inf_labase = zzinf_labase;
|
|
|
|
buf->inf_last = zzinf_last;
|
|
|
|
#endif
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
buf->dirty = zzdirty;
|
|
|
|
#endif
|
|
|
|
#ifdef LL_K
|
|
|
|
for (i=0; i<LL_K; i++) buf->tokenLA[i] = zztokenLA[i];
|
|
|
|
for (i=0; i<LL_K; i++) strcpy(buf->textLA[i], zztextLA[i]);
|
|
|
|
buf->lap = zzlap;
|
|
|
|
buf->labase = zzlabase;
|
|
|
|
#else
|
|
|
|
buf->token = zztoken;
|
|
|
|
strcpy(buf->text, zzlextext);
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
zzrestore_antlr_state(zzantlr_state *buf)
|
|
|
|
{
|
|
|
|
#ifdef LL_K
|
|
|
|
int i;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef ZZCAN_GUESS
|
|
|
|
zzguess_start = buf->guess_start;
|
|
|
|
zzguessing = buf->guessing;
|
|
|
|
#endif
|
|
|
|
zzasp = buf->asp;
|
|
|
|
#ifdef GENAST
|
|
|
|
zzast_sp = buf->ast_sp;
|
|
|
|
#endif
|
|
|
|
#ifdef ZZINF_LOOK
|
|
|
|
zzinf_labase = buf->inf_labase;
|
|
|
|
zzinf_last = buf->inf_last;
|
|
|
|
#endif
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
zzdirty = buf->dirty;
|
|
|
|
#endif
|
|
|
|
#ifdef LL_K
|
|
|
|
for (i=0; i<LL_K; i++) zztokenLA[i] = buf->tokenLA[i];
|
|
|
|
for (i=0; i<LL_K; i++) strcpy(zztextLA[i], buf->textLA[i]);
|
|
|
|
zzlap = buf->lap;
|
|
|
|
zzlabase = buf->labase;
|
|
|
|
#else
|
|
|
|
zztoken = buf->token;
|
|
|
|
strcpy(zzlextext, buf->text);
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
zzedecode(SetWordType *a)
|
|
|
|
{
|
|
|
|
SetWordType *p = a;
|
|
|
|
SetWordType *endp = &(p[zzSET_SIZE]);
|
|
|
|
unsigned e = 0;
|
|
|
|
|
|
|
|
if ( zzset_deg(a)>1 ) fprintf(stderr, " {");
|
|
|
|
do {
|
|
|
|
SetWordType t = *p;
|
|
|
|
SetWordType *b = &(bitmask[0]);
|
|
|
|
do {
|
|
|
|
if ( t & *b ) fprintf(stderr, " %s", zztokens[e]);
|
|
|
|
e++;
|
|
|
|
} while (++b < &(bitmask[sizeof(SetWordType)*8]));
|
|
|
|
} while (++p < endp);
|
|
|
|
if ( zzset_deg(a)>1 ) fprintf(stderr, " }");
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifndef USER_ZZSYN
|
|
|
|
/* standard error reporting function */
|
|
|
|
void
|
|
|
|
zzsyn(char *text, int tok, char *egroup, SetWordType *eset, int etok, int k, char *bad_text)
|
|
|
|
{
|
|
|
|
|
|
|
|
fprintf(stderr, "line %d: syntax error at \"%s\"", zzline, (tok==zzEOF_TOKEN)?"EOF":bad_text);
|
|
|
|
if ( !etok && !eset ) {fprintf(stderr, "\n"); return;}
|
|
|
|
if ( k==1 ) fprintf(stderr, " missing");
|
|
|
|
else
|
|
|
|
{
|
|
|
|
fprintf(stderr, "; \"%s\" not", bad_text);
|
|
|
|
if ( zzset_deg(eset)>1 ) fprintf(stderr, " in");
|
|
|
|
}
|
|
|
|
if ( zzset_deg(eset)>0 ) zzedecode(eset);
|
|
|
|
else fprintf(stderr, " %s", zztokens[etok]);
|
|
|
|
if ( strlen(egroup) > 0 ) fprintf(stderr, " in %s", egroup);
|
|
|
|
fprintf(stderr, "\n");
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* is b an element of set p? */
|
|
|
|
int
|
|
|
|
zzset_el(unsigned b, SetWordType *p)
|
|
|
|
{
|
|
|
|
return( p[BSETDIVWORD(b)] & bitmask[BSETMODWORD(b)] );
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
zzset_deg(SetWordType *a)
|
|
|
|
{
|
|
|
|
/* Fast compute degree of a set... the number
|
|
|
|
of elements present in the set. Assumes
|
|
|
|
that all word bits are used in the set
|
|
|
|
*/
|
|
|
|
SetWordType *p = a;
|
|
|
|
SetWordType *endp = &(a[zzSET_SIZE]);
|
|
|
|
int degree = 0;
|
|
|
|
|
|
|
|
if ( a == NULL ) return 0;
|
|
|
|
while ( p < endp )
|
|
|
|
{
|
|
|
|
SetWordType t = *p;
|
|
|
|
SetWordType *b = &(bitmask[0]);
|
|
|
|
do {
|
|
|
|
if (t & *b) ++degree;
|
|
|
|
} while (++b < &(bitmask[sizeof(SetWordType)*8]));
|
|
|
|
p++;
|
|
|
|
}
|
|
|
|
|
|
|
|
return(degree);
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
|
|
|
|
#ifdef LL_K
|
|
|
|
int
|
|
|
|
_zzmatch(int _t, char **zzBadText, char **zzMissText,
|
|
|
|
int *zzMissTok, int *zzBadTok,
|
|
|
|
SetWordType **zzMissSet)
|
|
|
|
{
|
|
|
|
if ( zzdirty==LL_K ) {
|
|
|
|
zzCONSUME;
|
|
|
|
}
|
|
|
|
if ( LA(1)!=_t ) {
|
|
|
|
*zzBadText = *zzMissText=LATEXT(1);
|
|
|
|
*zzMissTok= _t; *zzBadTok=LA(1);
|
|
|
|
*zzMissSet=NULL;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
zzMakeAttr
|
|
|
|
zzdirty++;
|
|
|
|
zzlabase++;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
_zzmatch_wsig(int _t)
|
|
|
|
{
|
|
|
|
if ( zzdirty==LL_K ) {
|
|
|
|
zzCONSUME;
|
|
|
|
}
|
|
|
|
if ( LA(1)!=_t ) {
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
zzMakeAttr
|
|
|
|
zzdirty++;
|
|
|
|
zzlabase++;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
#else
|
|
|
|
|
|
|
|
int
|
|
|
|
_zzmatch(int _t, char **zzBadText, char **zzMissText,
|
|
|
|
int *zzMissTok, int *zzBadTok, SetWordType **zzMissSet)
|
|
|
|
{
|
|
|
|
if ( zzdirty ) {zzCONSUME;}
|
|
|
|
if ( LA(1)!=_t ) {
|
|
|
|
*zzBadText = *zzMissText=LATEXT(1);
|
|
|
|
*zzMissTok= _t; *zzBadTok=LA(1);
|
|
|
|
*zzMissSet=NULL;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
zzdirty = 1;
|
|
|
|
zzMakeAttr
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
_zzmatch_wsig(int _t)
|
|
|
|
{
|
|
|
|
if ( zzdirty ) {zzCONSUME;}
|
|
|
|
if ( LA(1)!=_t ) {
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
zzdirty = 1;
|
|
|
|
zzMakeAttr
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif /*LL_K*/
|
|
|
|
|
|
|
|
#else
|
|
|
|
|
|
|
|
int
|
|
|
|
_zzmatch(int _t, const char **zzBadText, const char **zzMissText,
|
|
|
|
int *zzMissTok, int *zzBadTok,
|
|
|
|
SetWordType **zzMissSet)
|
|
|
|
{
|
|
|
|
if ( LA(1)!=_t ) {
|
|
|
|
*zzBadText = *zzMissText=LATEXT(1);
|
|
|
|
*zzMissTok= _t; *zzBadTok=LA(1);
|
|
|
|
*zzMissSet=NULL;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
zzMakeAttr
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
_zzmatch_wsig(int _t)
|
|
|
|
{
|
|
|
|
if ( LA(1)!=_t ) return 0;
|
|
|
|
zzMakeAttr
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif /*DEMAND_LOOK*/
|
|
|
|
|
|
|
|
#ifdef ZZINF_LOOK
|
|
|
|
void
|
|
|
|
_inf_zzgettok(void)
|
|
|
|
{
|
|
|
|
if ( zzinf_labase >= zzinf_last )
|
|
|
|
{NLA = zzEOF_TOKEN; strcpy(NLATEXT, "");}
|
|
|
|
else {
|
|
|
|
NLA = zzinf_tokens[zzinf_labase];
|
|
|
|
zzline = zzinf_line[zzinf_labase]; /* wrong in 1.21 */
|
|
|
|
strcpy(NLATEXT, zzinf_text[zzinf_labase]);
|
|
|
|
zzinf_labase++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef ZZINF_LOOK
|
|
|
|
/* allocate default size text,token and line arrays;
|
|
|
|
* then, read all of the input reallocing the arrays as needed.
|
|
|
|
* Once the number of total tokens is known, the LATEXT(i) array (zzinf_text)
|
|
|
|
* is allocated and it's pointers are set to the tokens in zzinf_text_buffer.
|
|
|
|
*/
|
|
|
|
void
|
|
|
|
zzfill_inf_look(void)
|
|
|
|
{
|
|
|
|
int tok, line;
|
|
|
|
int zzinf_token_buffer_size = ZZINF_DEF_TOKEN_BUFFER_SIZE;
|
|
|
|
int zzinf_text_buffer_size = ZZINF_DEF_TEXT_BUFFER_SIZE;
|
|
|
|
int zzinf_text_buffer_index = 0;
|
|
|
|
int zzinf_lap = 0;
|
|
|
|
|
|
|
|
/* allocate text/token buffers */
|
|
|
|
zzinf_text_buffer = (char *) malloc(zzinf_text_buffer_size);
|
|
|
|
if ( zzinf_text_buffer == NULL )
|
|
|
|
{
|
|
|
|
fprintf(stderr, "cannot allocate lookahead text buffer (%d bytes)\n",
|
|
|
|
zzinf_text_buffer_size);
|
|
|
|
exit(PCCTS_EXIT_FAILURE);
|
|
|
|
}
|
|
|
|
zzinf_tokens = (int *) calloc(zzinf_token_buffer_size,sizeof(int));
|
|
|
|
if ( zzinf_tokens == NULL )
|
|
|
|
{
|
|
|
|
fprintf(stderr, "cannot allocate token buffer (%d tokens)\n",
|
|
|
|
zzinf_token_buffer_size);
|
|
|
|
exit(PCCTS_EXIT_FAILURE);
|
|
|
|
}
|
|
|
|
zzinf_line = (int *) calloc(zzinf_token_buffer_size,sizeof(int));
|
|
|
|
if ( zzinf_line == NULL )
|
|
|
|
{
|
|
|
|
fprintf(stderr, "cannot allocate line buffer (%d ints)\n",
|
|
|
|
zzinf_token_buffer_size);
|
|
|
|
exit(PCCTS_EXIT_FAILURE);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* get tokens, copying text to text buffer */
|
|
|
|
zzinf_text_buffer_index = 0;
|
|
|
|
do {
|
|
|
|
zzgettok();
|
|
|
|
line = zzreal_line;
|
|
|
|
while ( zzinf_lap>=zzinf_token_buffer_size )
|
|
|
|
{
|
|
|
|
zzinf_token_buffer_size += ZZINF_BUFFER_TOKEN_CHUNK_SIZE;
|
|
|
|
zzinf_tokens = (int *) realloc(zzinf_tokens,
|
|
|
|
zzinf_token_buffer_size*sizeof(int));
|
|
|
|
if ( zzinf_tokens == NULL )
|
|
|
|
{
|
|
|
|
fprintf(stderr, "cannot allocate lookahead token buffer (%d tokens)\n",
|
|
|
|
zzinf_token_buffer_size);
|
|
|
|
exit(PCCTS_EXIT_FAILURE);
|
|
|
|
}
|
|
|
|
zzinf_line = (int *) realloc(zzinf_line,
|
|
|
|
zzinf_token_buffer_size*sizeof(int));
|
|
|
|
if ( zzinf_line == NULL )
|
|
|
|
{
|
|
|
|
fprintf(stderr, "cannot allocate lookahead line buffer (%d ints)\n",
|
|
|
|
zzinf_token_buffer_size);
|
|
|
|
exit(PCCTS_EXIT_FAILURE);
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
while ( (zzinf_text_buffer_index+strlen(NLATEXT)+1) >= zzinf_text_buffer_size )
|
|
|
|
{
|
|
|
|
zzinf_text_buffer_size += ZZINF_BUFFER_TEXT_CHUNK_SIZE;
|
|
|
|
zzinf_text_buffer = (char *) realloc(zzinf_text_buffer,
|
|
|
|
zzinf_text_buffer_size);
|
|
|
|
if ( zzinf_text_buffer == NULL )
|
|
|
|
{
|
|
|
|
fprintf(stderr, "cannot allocate lookahead text buffer (%d bytes)\n",
|
|
|
|
zzinf_text_buffer_size);
|
|
|
|
exit(PCCTS_EXIT_FAILURE);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* record token and text and line of input symbol */
|
|
|
|
tok = zzinf_tokens[zzinf_lap] = NLA;
|
|
|
|
strcpy(&zzinf_text_buffer[zzinf_text_buffer_index], NLATEXT);
|
|
|
|
zzinf_text_buffer_index += strlen(NLATEXT)+1;
|
|
|
|
zzinf_line[zzinf_lap] = line;
|
|
|
|
zzinf_lap++;
|
|
|
|
} while (tok!=zzEOF_TOKEN);
|
|
|
|
zzinf_labase = 0;
|
|
|
|
zzinf_last = zzinf_lap-1;
|
|
|
|
|
|
|
|
/* allocate ptrs to text of ith token */
|
|
|
|
zzinf_text = (char **) calloc(zzinf_last+1,sizeof(char *));
|
|
|
|
if ( zzinf_text == NULL )
|
|
|
|
{
|
|
|
|
fprintf(stderr, "cannot allocate lookahead text buffer (%d)\n",
|
|
|
|
zzinf_text_buffer_size);
|
|
|
|
exit(PCCTS_EXIT_FAILURE);
|
|
|
|
}
|
|
|
|
zzinf_text_buffer_index = 0;
|
|
|
|
zzinf_lap = 0;
|
|
|
|
/* set ptrs so that zzinf_text[i] is the text of the ith token found on input */
|
|
|
|
while (zzinf_lap<=zzinf_last)
|
|
|
|
{
|
|
|
|
zzinf_text[zzinf_lap++] = &zzinf_text_buffer[zzinf_text_buffer_index];
|
|
|
|
zzinf_text_buffer_index += strlen(&zzinf_text_buffer[zzinf_text_buffer_index])+1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
int
|
|
|
|
_zzsetmatch(SetWordType *e, char **zzBadText, char **zzMissText,
|
|
|
|
int *zzMissTok, int *zzBadTok,
|
|
|
|
SetWordType **zzMissSet)
|
|
|
|
{
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
#ifdef LL_K
|
|
|
|
if ( zzdirty==LL_K ) {zzCONSUME;}
|
|
|
|
#else
|
|
|
|
if ( zzdirty ) {zzCONSUME;}
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
if ( !zzset_el((unsigned)LA(1), e) ) {
|
|
|
|
*zzBadText = LATEXT(1); *zzMissText=NULL;
|
|
|
|
*zzMissTok= 0; *zzBadTok=LA(1);
|
|
|
|
*zzMissSet=e;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
#ifdef LL_K
|
|
|
|
zzdirty++;
|
|
|
|
#else
|
|
|
|
zzdirty = 1;
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
zzMakeAttr
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
_zzmatch_wdfltsig(int tokenWanted, SetWordType *whatFollows)
|
|
|
|
{
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
#ifdef LL_K
|
|
|
|
if ( zzdirty==LL_K ) {
|
|
|
|
zzCONSUME;
|
|
|
|
}
|
|
|
|
#else
|
|
|
|
if ( zzdirty ) {zzCONSUME;}
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
if ( LA(1)!=tokenWanted )
|
|
|
|
{
|
|
|
|
fprintf(stderr,
|
|
|
|
"line %d: syntax error at \"%s\" missing %s\n",
|
|
|
|
zzline,
|
|
|
|
(LA(1)==zzEOF_TOKEN)?"<eof>":(char*)LATEXT(1),
|
|
|
|
zztokens[tokenWanted]);
|
|
|
|
zzconsumeUntil( whatFollows );
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
zzMakeAttr
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
#ifdef LL_K
|
|
|
|
zzdirty++;
|
|
|
|
zzlabase++;
|
|
|
|
#else
|
|
|
|
zzdirty = 1;
|
|
|
|
#endif
|
|
|
|
#else
|
|
|
|
/* zzCONSUME; consume if not demand lookahead */
|
|
|
|
#endif
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
_zzsetmatch_wdfltsig(SetWordType *tokensWanted,
|
|
|
|
int tokenTypeOfSet,
|
|
|
|
SetWordType *whatFollows)
|
|
|
|
{
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
#ifdef LL_K
|
|
|
|
if ( zzdirty==LL_K ) {zzCONSUME;}
|
|
|
|
#else
|
|
|
|
if ( zzdirty ) {zzCONSUME;}
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
if ( !zzset_el((unsigned)LA(1), tokensWanted) )
|
|
|
|
{
|
|
|
|
fprintf(stderr,
|
|
|
|
"line %d: syntax error at \"%s\" missing %s\n",
|
|
|
|
zzline,
|
|
|
|
(LA(1)==zzEOF_TOKEN)?"<eof>":(char*)LATEXT(1),
|
|
|
|
zztokens[tokenTypeOfSet]);
|
|
|
|
zzconsumeUntil( whatFollows );
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
zzMakeAttr
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
#ifdef LL_K
|
|
|
|
zzdirty++;
|
|
|
|
zzlabase++;
|
|
|
|
#else
|
|
|
|
zzdirty = 1;
|
|
|
|
#endif
|
|
|
|
#else
|
|
|
|
/* zzCONSUME; consume if not demand lookahead */
|
|
|
|
#endif
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
_zzsetmatch_wsig(SetWordType *e)
|
|
|
|
{
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
#ifdef LL_K
|
|
|
|
if ( zzdirty==LL_K ) {zzCONSUME;}
|
|
|
|
#else
|
|
|
|
if ( zzdirty ) {zzCONSUME;}
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
if ( !zzset_el((unsigned)LA(1), e) ) return 0;
|
|
|
|
#ifdef DEMAND_LOOK
|
|
|
|
#ifdef LL_K
|
|
|
|
zzdirty++;
|
|
|
|
#else
|
|
|
|
zzdirty = 1;
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
zzMakeAttr
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef USER_ZZMODE_STACK
|
|
|
|
static int zzmstk[ZZMAXSTK] = { -1 };
|
|
|
|
static int zzmdep = 0;
|
|
|
|
static char zzmbuf[70];
|
|
|
|
|
|
|
|
void
|
|
|
|
zzmpush( int m )
|
|
|
|
{
|
|
|
|
if(zzmdep == ZZMAXSTK - 1) {
|
|
|
|
sprintf(zzmbuf, "Mode stack overflow ");
|
|
|
|
zzerr(zzmbuf);
|
|
|
|
} else {
|
|
|
|
zzmstk[zzmdep++] = zzauto;
|
|
|
|
zzmode(m);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
zzmpop( void )
|
|
|
|
{
|
|
|
|
if(zzmdep == 0)
|
|
|
|
{ sprintf(zzmbuf, "Mode stack underflow ");
|
|
|
|
zzerr(zzmbuf);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{ zzmdep--;
|
|
|
|
zzmode(zzmstk[zzmdep]);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
zzsave_mode_stack( int modeStack[], int *modeLevel )
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
memcpy(modeStack, zzmstk, sizeof(zzmstk));
|
|
|
|
*modeLevel = zzmdep;
|
|
|
|
zzmdep = 0;
|
|
|
|
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
zzrestore_mode_stack( int modeStack[], int *modeLevel )
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
|
|
|
|
memcpy(zzmstk, modeStack, sizeof(zzmstk));
|
|
|
|
zzmdep = *modeLevel;
|
|
|
|
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
#endif /* USER_ZZMODE_STACK */
|
|
|
|
|
|
|
|
#endif /* ERR_H */
|