4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/* Abstract syntax tree
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Macros, definitions
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * SOFTWARE RIGHTS
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * We reserve no LEGAL rights to the Purdue Compiler Construction Tool
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Set (PCCTS) -- PCCTS is in the public domain. An individual or
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * company may do whatever they wish with source code distributed with
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * PCCTS or the code generated by PCCTS, including the incorporation of
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * PCCTS, or its output, into commerical software.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * We encourage users to develop software with PCCTS. However, we do ask
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * that credit is given to us for developing PCCTS. By "credit",
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * we mean that if you incorporate our source code into one of your
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * programs (commercial product, research project, or otherwise) that you
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * acknowledge this fact somewhere in the documentation, research report,
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * etc... If you like PCCTS and have developed a nice tool with the
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * output, please mention that you developed it using PCCTS. In
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * addition, we ask that this header remain intact in our source code.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * As long as these guidelines are kept, we expect to continue enhancing
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * this system and expect to make other tools available as they are
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * completed.
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync *
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * ANTLR 1.33
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Terence Parr
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * Parr Research Corporation
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * with Purdue University and AHPCRC, University of Minnesota
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync * 1989-2000
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifndef ZZAST_H
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define ZZAST_H
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzastOvfChk \
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync if ( zzast_sp <= 0 ) \
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync { \
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync fprintf(stderr, zzStackOvfMsg, __FILE__, __LINE__); \
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync exit(PCCTS_EXIT_FAILURE); \
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync }
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifndef USER_DEFINED_AST
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifndef AST_FIELDS
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define AST_FIELDS
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsynctypedef struct _ast {
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync struct _ast *right, *down;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifdef zzAST_DOUBLE
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync struct _ast *left, *up;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync AST_FIELDS
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync} AST;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifdef zzAST_DOUBLE
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define AST_REQUIRED_FIELDS struct _ast *right, *down, *left, *up;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define AST_REQUIRED_FIELDS struct _ast *right, *down;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/* N o d e a c c e s s m a c r o s */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzchild(t) (((t)==NULL)? (AST *) NULL:(t->down)) /* MR19 */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzsibling(t) (((t)==NULL)? (AST *) NULL:(t->right)) /* MR19 */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/* define global variables needed by #i stack */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzASTgvars \
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync AST *zzastStack[ZZAST_STACKSIZE]; \
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync int zzast_sp = ZZAST_STACKSIZE;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzASTVars AST *_ast = NULL, *_sibling = NULL, *_tail = NULL
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzSTR ( (_tail==NULL)?(&_sibling):(&(_tail->right)) )
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzastCur (zzastStack[zzast_sp])
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzastArg(i) (zzastStack[zztsp-i])
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzastPush(p) zzastOvfChk; zzastStack[--zzast_sp] = p;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzastDPush --zzast_sp
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzastMARK zztsp=zzast_sp; /* Save state of stack */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzastREL zzast_sp=zztsp; /* Return state of stack */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#define zzrm_ast {zzfree_ast(*_root); _tail = _sibling = (*_root)=NULL;}
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncextern int zzast_sp;
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncextern AST *zzastStack[];
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync/* MR26 */
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifdef PCCTS_USE_STDARG
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncAST *zztmake(AST *, ...);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncAST *zztmake();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#ifdef __USE_PROTOS
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzlink(AST **, AST **, AST **);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzsubchild(AST **, AST **, AST **);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzsubroot(AST **, AST **, AST **);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzpre_ast(AST *, void (*)(AST *), void (*)(AST *), void (*)(AST *));
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzfree_ast(AST *);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncAST *zzdup_ast(AST *);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zztfree(AST *);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzdouble_link(AST *, AST *, AST *);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncAST *zzastnew(void);
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#else
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzlink();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncAST *zzastnew();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzsubchild();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzsubroot();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzpre_ast();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzfree_ast();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncAST *zzdup_ast();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zztfree();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsyncvoid zzdouble_link();
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync
4fd606d1f5abe38e1f42c38de1d2e895166bd0f4vboxsync#endif