calmsacibis995
271 lines
6.3 KiB
Plaintext
271 lines
6.3 KiB
Plaintext
/* #ident "@(#)yacc:dextern 1.6" */
|
|
#ident "$Header: /proj/irix6.5.7m/isms/stand/arcs/tools/myacc/RCS/dextern,v 1.1 1996/03/17 03:08:03 csm Exp $"
|
|
|
|
# include <stdio.h>
|
|
# include <ctype.h>
|
|
# include <memory.h>
|
|
# include <string.h>
|
|
# include <malloc.h>
|
|
# include <values.h>
|
|
# include <locale.h>
|
|
# include <pfmt.h>
|
|
# include <errno.h>
|
|
#ifdef _MODERN_C_
|
|
#include <stdlib.h>
|
|
#else
|
|
#define const
|
|
#endif
|
|
|
|
/* MANIFEST CONSTANT DEFINITIONS */
|
|
|
|
#if u3b || u3b15 || u3b2 || vax || uts
|
|
# define WORD32
|
|
#endif
|
|
|
|
/* base of nonterminal internal numbers */
|
|
# define NTBASE (10000000)
|
|
|
|
/* internal codes for error and accept actions */
|
|
|
|
# define ERRCODE 8190
|
|
# define ACCEPTCODE 8191
|
|
|
|
/* sizes and limits */
|
|
|
|
# define ACTSIZE 24000
|
|
# define MEMSIZE 48000
|
|
# define PSTSIZE 4096
|
|
# define NSTATES 1500
|
|
# define NTERMS 600
|
|
# define NPROD 1200
|
|
# define NNONTERM 2000
|
|
# define TEMPSIZE 5200
|
|
# define CNAMSZ 6250
|
|
# define LSETSIZE 2400
|
|
# define WSETSIZE 2000
|
|
# define NAMESIZE 50
|
|
# define NTYPES 127
|
|
|
|
#ifdef WORD32
|
|
/* bit packing macros (may be machine dependent) */
|
|
# define BIT(a,i) ((a)[(i)>>5] & (1<<((i)&037)))
|
|
# define SETBIT(a,i) ((a)[(i)>>5] |= (1<<((i)&037)))
|
|
|
|
/* number of words needed to hold n+1 bits */
|
|
# define NWORDS(n) (((n)+32)/32)
|
|
|
|
#else
|
|
|
|
/* bit packing macros (may be machine dependent) */
|
|
# define BIT(a,i) ((a)[(i)>>4] & (1<<((i)&017)))
|
|
# define SETBIT(a,i) ((a)[(i)>>4] |= (1<<((i)&017)))
|
|
|
|
/* number of words needed to hold n+1 bits */
|
|
# define NWORDS(n) (((n)+16)/16)
|
|
#endif
|
|
|
|
/* relationships which must hold:
|
|
TBITSET ints must hold NTERMS+1 bits...
|
|
WSETSIZE >= NNONTERM
|
|
LSETSIZE >= NNONTERM
|
|
TEMPSIZE >= NTERMS + NNONTERMs + 1
|
|
TEMPSIZE >= NSTATES
|
|
*/
|
|
|
|
/* associativities */
|
|
|
|
# define NOASC 0 /* no assoc. */
|
|
# define LASC 1 /* left assoc. */
|
|
# define RASC 2 /* right assoc. */
|
|
# define BASC 3 /* binary assoc. */
|
|
|
|
/* flags for state generation */
|
|
|
|
# define DONE 0
|
|
# define MUSTDO 1
|
|
# define MUSTLOOKAHEAD 2
|
|
|
|
/* flags for a rule having an action, and being reduced */
|
|
|
|
# define ACTFLAG 04
|
|
|
|
/* output parser flags */
|
|
# define YYFLAG1 (-10000000)
|
|
|
|
/* bit field descriptions of toklev and levprd entries */
|
|
typedef struct toklev_s {
|
|
unsigned int :15;
|
|
unsigned int type :7; /* must match bit size of NTYPES */
|
|
unsigned int plev :6;
|
|
unsigned int red :1;
|
|
unsigned int assoc :3;
|
|
} TOKLEV;
|
|
|
|
/* macros for getting associativity and precedence levels */
|
|
#define ASSOC(i) ((TOKLEV*)(&i))->assoc
|
|
#define PLEVEL(i) ((TOKLEV*)(&i))->plev
|
|
#define TYPE(i) ((TOKLEV*)(&i))->type
|
|
#define REDBIT(i) ((TOKLEV*)(&i))->red
|
|
|
|
/* macros for setting associativity and precedence levels */
|
|
#define SETASC(i,j) (((TOKLEV*)(&i))->assoc |= (j))
|
|
#define SETPLEV(i,j) (((TOKLEV*)(&i))->plev |= (j))
|
|
#define SETTYPE(i,j) (((TOKLEV*)(&i))->type |= (j))
|
|
#define SETRED(i,j) (((TOKLEV*)(&i))->red |= (j))
|
|
|
|
/* looping macros */
|
|
|
|
# define TLOOP(i) for(i=1;i<=ntokens;++i)
|
|
# define NTLOOP(i) for(i=0;i<=nnonter;++i)
|
|
# define PLOOP(s,i) for(i=s;i<nprod;++i)
|
|
# define SLOOP(i) for(i=0;i<nstate;++i)
|
|
# define WSBUMP(x) ++x
|
|
# define WSLOOP(s,j) for(j=s;j<&wsets[cwp];++j)
|
|
# define ITMLOOP(i,p,q) q=pstate[i+1];for(p=pstate[i];p<q;++p)
|
|
# define SETLOOP(i) for(i=0;i<tbitset;++i)
|
|
|
|
/* I/O descriptors */
|
|
|
|
extern FILE * finput; /* input file */
|
|
extern FILE * faction; /* file for saving actions */
|
|
extern FILE * fdefine; /* file for # defines */
|
|
extern FILE * ftable; /* y.tab.c file */
|
|
extern FILE * ftemp; /* tempfile to pass 2 */
|
|
extern FILE * fdebug; /* tempfile for two debugging info arrays */
|
|
extern FILE * foutput; /* y.output file */
|
|
|
|
/* structure declarations */
|
|
|
|
typedef struct looksets {
|
|
int *lset;
|
|
} LOOKSETS;
|
|
|
|
typedef struct item {
|
|
int *pitem;
|
|
LOOKSETS *look;
|
|
} ITEM;
|
|
|
|
typedef struct toksymb {
|
|
char *name;
|
|
int value;
|
|
} TOKSYMB;
|
|
|
|
typedef struct ntsymb {
|
|
char *name;
|
|
int tvalue;
|
|
} NTSYMB;
|
|
|
|
typedef struct wset {
|
|
int *pitem;
|
|
int flag;
|
|
LOOKSETS ws;
|
|
} WSET;
|
|
|
|
/* token information */
|
|
|
|
extern int ntokens ; /* number of tokens */
|
|
extern TOKSYMB *tokset;
|
|
extern int ntoksz;
|
|
|
|
/* nonterminal information */
|
|
|
|
extern int nnonter ; /* the number of nonterminals */
|
|
extern NTSYMB *nontrst;
|
|
extern int nnontersz;
|
|
|
|
/* grammar rule information */
|
|
|
|
extern int nprod ; /* number of productions */
|
|
extern int **prdptr; /* pointers to descriptions of productions */
|
|
extern int *levprd; /* contains production levels to break conflicts */
|
|
extern char *had_act; /* set if reduction has associated action code */
|
|
|
|
/* state information */
|
|
|
|
extern int nstate ; /* number of states */
|
|
extern ITEM **pstate; /* pointers to the descriptions of the states */
|
|
extern int *tystate; /* contains type information about the states */
|
|
extern int *defact; /* the default action of the state */
|
|
|
|
extern int size;
|
|
|
|
/* lookahead set information */
|
|
|
|
extern int TBITSET;
|
|
extern LOOKSETS *lkst;
|
|
extern int nolook; /* flag to turn off lookahead computations */
|
|
|
|
/* working set information */
|
|
|
|
extern WSET *wsets;
|
|
|
|
/* storage for productions */
|
|
|
|
extern int *mem0;
|
|
extern int *mem;
|
|
extern int *tracemem;
|
|
extern int new_memsize;
|
|
|
|
/* storage for action table */
|
|
|
|
extern int *amem;
|
|
extern int *memp ; /* next free action table position */
|
|
extern int *indgo; /* index to the stored goto table */
|
|
extern int new_actsize;
|
|
|
|
/* temporary vector, indexable by states, terms, or ntokens */
|
|
|
|
extern int *temp1;
|
|
extern int lineno; /* current line number */
|
|
|
|
/* statistics collection variables */
|
|
|
|
extern int zzgoent ;
|
|
extern int zzgobest ;
|
|
extern int zzacent ;
|
|
extern int zzexcp ;
|
|
extern int zzrrconf ;
|
|
extern int zzsrconf ;
|
|
|
|
/* define external functions */
|
|
|
|
extern void setup();
|
|
extern void closure();
|
|
extern void output();
|
|
extern void aryfil();
|
|
extern void error();
|
|
extern void putitem();
|
|
extern void go2out();
|
|
extern void hideprod();
|
|
extern void callopt();
|
|
extern void warray();
|
|
extern char *symnam();
|
|
extern char *writem();
|
|
extern void exp_mem();
|
|
extern void exp_act();
|
|
extern apack();
|
|
extern state();
|
|
|
|
/* file names */
|
|
|
|
extern char *fname_parser;
|
|
extern char *fname_temp;
|
|
extern char *fname_acts;
|
|
extern char *fname_debug;
|
|
extern char *fname_out;
|
|
extern char *fname_userout;
|
|
extern char *fname_defs;
|
|
|
|
extern char modname[]; /* User module name (prefix) */
|
|
extern char *modpref; /* User module name (prefix) plus a '_' */
|
|
|
|
/* default settings for a number of macros */
|
|
|
|
/* command to clobber tempfiles after use */
|
|
|
|
# ifndef ZAPFILE
|
|
# define ZAPFILE(x) (void)unlink(x)
|
|
# endif
|
|
|
|
extern int is_y_plus_plus; /* use C++ style input */
|