home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
p
/
p2c.zip
/
P2C.H
< prev
next >
Wrap
C/C++ Source or Header
|
1987-03-27
|
1KB
|
37 lines
/*---- p2c.h ------------------------------------------------------
Defines and Global Variable for the Pascal to C translator
3/25/87 Daniel Kegel (seismo!rochester!srs!dan)
-------------------------------------------------------------------*/
#define MAXTOKLEN 2048 /* maximum token length */
/* Note: even comments are jammed into a token; that's why this is big. */
typedef struct { /* holds keywords, operators, etc. */
char str[MAXTOKLEN];
int kind; /* code from table of wnodes */
} token;
typedef struct {
int ktype; /* the meaning of the keyword */
char *pname; /* the Pascal name of the keyword */
char *cname; /* the C name of the keyword */
} wnode;
/* Allocate or Reallocate n 'type' items */
#define MALLOC(type, n) \
((type *) DoMalloc((unsigned) sizeof(type) * (n)))
#define REALLOC(ptr, type, n) \
((type *) DoRealloc((char *)ptr, (unsigned) sizeof(type) * (n)))
#ifndef TRUE
#define TRUE 1
#define FALSE 0
#endif
#ifndef boolean
#define boolean int
#endif
/*--- The Global Variable ---------*/
token cTok; /* current token from scanner */