path: root/src/translators/btparse/err.h

/*
 * 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 bittqmask[] = {
        0x00000001, 0x00000002, 0x00000004, 0x00000008,
        0x00000010, 0x00000020, 0x00000040, 0x00000080
};

void
zzresynch(SetWordType *wd,SetWordType tqmask)
{
        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)]&tqmask || LA(1) == zzEOF_TOKEN ) {consumed=0; return;}

        /* scan until we find something in the resynch set */
        while ( !(wd[LA(1)]&tqmask) && 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)
{
        register SetWordType *p = a;
        register SetWordType *endp = &(p[zzSET_SIZE]);
        register unsigned e = 0;

        if ( zzset_deg(a)>1 ) fprintf(stderr, " {");
        do {
                register SetWordType t = *p;
                register SetWordType *b = &(bittqmask[0]);
                do {
                        if ( t & *b ) fprintf(stderr, " %s", zztokens[e]);
                        e++;
                } while (++b < &(bittqmask[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)] & bittqmask[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
        */
        register SetWordType *p = a;
        register SetWordType *endp = &(a[zzSET_SIZE]);
        register int degree = 0;

        if ( a == NULL ) return 0;
        while ( p < endp )
        {
                register SetWordType t = *p;
                register SetWordType *b = &(bittqmask[0]);
                do {
                        if (t & *b) ++degree;
                } while (++b < &(bittqmask[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 */