tl.h

自己写的关于编译原理的实验报告的源代码

/**********************************************************
**   TL.H
**   Coco/R C Taste Example.
**   Adapted to C++ by Frankie Arzu <[e-mail]>
**      from Moessenboeck's (1990) Oberon example
**
**   May 24, 1996  Version 1.06
**   Oct 11, 1997  Version 1.07 (No change)
**   Jun 16, 1998  Version 1.08 (Minor changes)
**********************************************************/

/* object kinds */

#define VARS   0
#define PROCS  1
#define SCOPES 2

/* types */

#define UNDEF  0
#define INT    1
#define BOOL   2

typedef struct Objectnode *Object;
typedef struct Objectnode {
  char name[15];      /* name of the object */
  int  type;          /* type of the object (undef for procs) */
  Object next;        /* to next object in same scope */

  int kind;
  int adr;            /* address in memory or start of proc */
  int level;          /* nesting level of declaration */

  Object locals;      /* to locally declared objects */
  int nextAdr;        /* next free address in this scope */
} Objectnode;

extern Object undefObj; /* object node for erroneous symbols */
extern int curLevel;    /* nesting level of current scope */

void tl_init();
void EnterScope();
void LeaveScope();
int  DataSpace ();
Object NewObj (char name[], int kind);
Object Obj (char name[]);