29 lines
702 B
C
29 lines
702 B
C
|
/*
|
||
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
||
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
||
|
|
*
|
||
|
|
* Author: Ceriel J.H. Jacobs
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* 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 */
|
||
|
|
|
||
|
|
/* stripped down version of the one in the Modula-2 compiler */
|
||
|
|
|
||
|
|
/* $Header$ */
|
||
|
|
|
||
|
|
/* Token structure. Keep it small, as it is part of a parse-tree node
|
||
|
|
*/
|
||
|
|
struct token {
|
||
|
|
short tk_symb; /* token itself */
|
||
|
|
unsigned short tk_lineno; /* linenumber on which it occurred */
|
||
|
|
struct idf *tk_idf; /* IDENT */
|
||
|
|
};
|
||
|
|
|
||
|
|
#define TOK_IDF tk_idf
|
||
|
|
|
||
|
|
extern struct token dot, aside;
|
||
|
|
extern int ForeignFlag;
|
||
|
|
|
||
|
|
#define DOT dot.tk_symb
|
||
|
|
#define ASIDE aside.tk_symb
|