/* T O K E N   D E S C R I P T O R   D E F I N I T I O N */

/* $Header$ */

struct token	{
	int tk_symb;		/* token itself	*/
	int tk_lineno;		/* linenumber on which it occurred */
	union {
		struct idf *tk_idf;	/* IDENT	*/
		char *tk_str;		/* STRING	*/
		struct {		/* INTEGER	*/
			struct type *tk_type;	/* type	*/
			arith tk_value;	/* value	*/
		} tk_int;
		char *tk_real;		/* REAL		*/
	} tk_data;
};

#define TOK_IDF	tk_data.tk_idf
#define TOK_STR	tk_data.tk_str
#define TOK_ITP	tk_data.tk_int.tk_type
#define TOK_INT	tk_data.tk_int.tk_value
#define TOK_REL	tk_data.tk_real

extern struct token dot, aside;

#define DOT	dot.tk_symb
#define ASIDE	aside.tk_symb