88 lines
1.8 KiB
C
88 lines
1.8 KiB
C
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
|
|
#ifndef NORCSID
|
|
# define RCS_SYMB "$Header$"
|
|
#endif
|
|
|
|
#define NIL 0
|
|
#define TRUE 1
|
|
#define FALSE 0
|
|
|
|
#define DEFAULTTYPE 500
|
|
#define INTTYPE 501
|
|
#define FLOATTYPE 502
|
|
#define DOUBLETYPE 503
|
|
#define STRINGTYPE 504
|
|
|
|
#define ABSSYM 520
|
|
#define ASCSYM 521
|
|
#define ATNSYM 522
|
|
#define CDBLSYM 524
|
|
#define CHRSYM 525
|
|
#define CINTSYM 526
|
|
#define COSSYM 527
|
|
#define CSNGSYM 528
|
|
#define CVISYM 529
|
|
#define CVSSYM 530
|
|
#define CVDSYM 531
|
|
#define EOFSYM 532
|
|
#define EXPSYM 533
|
|
#define FIXSYM 534
|
|
#define FRESYM 535
|
|
#define HEXSYM 536
|
|
#define INPSYM 538
|
|
#define INSTRSYM 539
|
|
#define LEFTSYM 540
|
|
#define LENSYM 541
|
|
#define LOCSYM 542
|
|
#define LOGSYM 543
|
|
#define LPOSSYM 544
|
|
#define MKISYM 546
|
|
#define MKSSYM 547
|
|
#define MKDSYM 548
|
|
#define OCTSYM 549
|
|
#define PEEKSYM 550
|
|
#define POSSYM 551
|
|
#define RIGHTSYM 552
|
|
#define RNDSYM 553
|
|
#define SGNSYM 554
|
|
#define SINSYM 555
|
|
#define SPACESYM 556
|
|
#define SPCSYM 557
|
|
#define SQRSYM 558
|
|
#define STRSYM 559
|
|
#define STRINGSYM 560
|
|
#define TABSYM 561
|
|
#define TANSYM 562
|
|
#define VALSYM 564
|
|
#define VARPTRSYM 565
|
|
/* some stuff forgotten */
|
|
#define INTSYM 567
|
|
#define AUTOSYM 568
|
|
#define LISTSYM 569
|
|
#define LOADSYM 570
|
|
#define MERGESYM 571
|
|
#define TRONSYM 572
|
|
#define TROFFSYM 0 /* NIEUW : was 573, werkte als TRON */
|
|
/* IMPSYM, EQVSYM en XORSYM zijn tokens geworden */
|
|
#define OUTSYM 577
|
|
|
|
#define MAXDIMENSIONS 10
|
|
|
|
typedef struct SYMBOL{
|
|
char *symname;
|
|
int symalias;
|
|
int symtype;
|
|
int dimensions; /* dimension array/function */
|
|
int dimlimit[MAXDIMENSIONS]; /* type of parameter */
|
|
int dimalias[MAXDIMENSIONS];
|
|
struct SYMBOL *nextsym;
|
|
int isfunction;
|
|
int parmsize;
|
|
int isparam;
|
|
} Symbol;
|
|
|
|
extern Symbol *srchsymbol();
|