/*
 * (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	573
#define XORSYM	574
#define EQVSYM	575
#define IMPSYM	576
#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();