~ubuntu-branches/ubuntu/lucid/cdrdao/lucid

/* Abstract syntax tree

 *

 * Macros, definitions

 *

 * 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.

 *

 * ANTLR 1.33

 * Terence Parr

 * Parr Research Corporation

 * with Purdue University and AHPCRC, University of Minnesota

 * 1989-2000

 */

 

#ifndef ZZAST_H

#define ZZAST_H

 

#define zzastOvfChk                                                                                                             \

                        if ( zzast_sp <= 0 )                                        \

            {                                                           \

                fprintf(stderr, zzStackOvfMsg, __FILE__, __LINE__);     \

                exit(PCCTS_EXIT_FAILURE);                                               \

            }

 

#ifndef USER_DEFINED_AST

#ifndef AST_FIELDS

#define AST_FIELDS

#endif

 

typedef struct _ast {

            struct _ast *right, *down;

#ifdef zzAST_DOUBLE

            struct _ast *left, *up;

#endif

            AST_FIELDS

} AST;

 

#else

 

#ifdef zzAST_DOUBLE

#define AST_REQUIRED_FIELDS   struct _ast *right, *down, *left, *up;

#else

#define AST_REQUIRED_FIELDS   struct _ast *right, *down;

#endif

 

#endif

 

 

/* N o d e  a c c e s s  m a c r o s */

#define zzchild(t)              (((t)==NULL)? (AST *) NULL:(t->down))   /* MR19 */

#define zzsibling(t)    (((t)==NULL)? (AST *) NULL:(t->right))  /* MR19 */

 

 

/* define global variables needed by #i stack */

#define zzASTgvars                                                                                              \

        AST *zzastStack[ZZAST_STACKSIZE];                                                       \

        int zzast_sp = ZZAST_STACKSIZE;

 

#define zzASTVars       AST *_ast = NULL, *_sibling = NULL, *_tail = NULL

#define zzSTR           ( (_tail==NULL)?(&_sibling):(&(_tail->right)) )

#define zzastCur        (zzastStack[zzast_sp])

#define zzastArg(i)     (zzastStack[zztsp-i])

#define zzastPush(p) zzastOvfChk; zzastStack[--zzast_sp] = p;

#define zzastDPush      --zzast_sp

#define zzastMARK       zztsp=zzast_sp;         /* Save state of stack */

#define zzastREL        zzast_sp=zztsp;         /* Return state of stack */

#define zzrm_ast        {zzfree_ast(*_root); _tail = _sibling = (*_root)=NULL;}

 

extern int zzast_sp;

extern AST *zzastStack[];

 

/* MR26 */

 

#ifdef PCCTS_USE_STDARG

AST *zztmake(AST *, ...);

#else

AST *zztmake();

#endif

 

#ifdef __USE_PROTOS

void zzlink(AST **, AST **, AST **);

void zzsubchild(AST **, AST **, AST **);

void zzsubroot(AST **, AST **, AST **);

void zzpre_ast(AST *, void (*)(AST *), void (*)(AST *), void (*)(AST *));

void zzfree_ast(AST *);

AST *zzdup_ast(AST *);

void zztfree(AST *);

void zzdouble_link(AST *, AST *, AST *);

AST *zzastnew(void);

 

#else

 

void zzlink();

AST *zzastnew();

void zzsubchild();

void zzsubroot();

void zzpre_ast();

void zzfree_ast();

AST *zzdup_ast();

void zztfree();

void zzdouble_link();

#endif

 

#endif