1987-03-10 17:51:10 +00:00
|
|
|
/*
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
*/
|
1986-03-10 13:07:55 +00:00
|
|
|
/* $Header$ */
|
|
|
|
/* D E F I N I T I O N S F O R T H E L E X I C A L A N A L Y Z E R */
|
|
|
|
|
|
|
|
/* A token from the input stream is represented by an integer,
|
|
|
|
called a "symbol", but it may have other information associated
|
|
|
|
to it.
|
|
|
|
*/
|
|
|
|
|
1986-09-24 13:53:16 +00:00
|
|
|
#include "nofloat.h"
|
1986-12-04 16:29:44 +00:00
|
|
|
#include "file_info.h"
|
1987-03-27 10:37:58 +00:00
|
|
|
#include "nopp.h"
|
1986-09-24 13:53:16 +00:00
|
|
|
|
1986-03-10 13:07:55 +00:00
|
|
|
/* the structure of a token: */
|
|
|
|
struct token {
|
|
|
|
int tok_symb; /* the token itself */
|
|
|
|
char *tok_file; /* the file it (probably) comes from */
|
|
|
|
unsigned int tok_line; /* the line it (probably) comes from */
|
|
|
|
union {
|
|
|
|
struct idf *tok_idf; /* for IDENTIFIER & TYPE_IDENTIFIER */
|
1986-03-25 16:40:43 +00:00
|
|
|
struct { /* for STRING */
|
|
|
|
char *tok_bts; /* row of bytes */
|
|
|
|
int tok_len; /* length of row of bytes */
|
|
|
|
} tok_string;
|
1986-03-10 13:07:55 +00:00
|
|
|
struct { /* for INTEGER */
|
|
|
|
int tok_fund; /* INT or LONG */
|
|
|
|
arith tok_ival;
|
|
|
|
} tok_integer;
|
1986-09-12 09:16:07 +00:00
|
|
|
#ifndef NOFLOAT
|
1986-03-10 13:07:55 +00:00
|
|
|
char *tok_fval;
|
1991-12-17 14:11:15 +00:00
|
|
|
#endif /* NOFLOAT */
|
1986-03-10 13:07:55 +00:00
|
|
|
} tok_data;
|
|
|
|
};
|
|
|
|
|
|
|
|
#define tk_symb tok_symb
|
|
|
|
#define tk_file tok_file
|
|
|
|
#define tk_line tok_line
|
|
|
|
#define tk_idf tok_data.tok_idf
|
1986-03-25 16:40:43 +00:00
|
|
|
#define tk_bts tok_data.tok_string.tok_bts
|
|
|
|
#define tk_len tok_data.tok_string.tok_len
|
1986-03-10 13:07:55 +00:00
|
|
|
#define tk_fund tok_data.tok_integer.tok_fund
|
|
|
|
#define tk_ival tok_data.tok_integer.tok_ival
|
1986-09-12 09:16:07 +00:00
|
|
|
#ifndef NOFLOAT
|
1986-03-10 13:07:55 +00:00
|
|
|
#define tk_fval tok_data.tok_fval
|
1991-12-17 14:11:15 +00:00
|
|
|
#endif /* NOFLOAT */
|
1986-03-10 13:07:55 +00:00
|
|
|
|
|
|
|
extern struct token dot, ahead, aside;
|
1989-10-30 16:19:35 +00:00
|
|
|
extern int token_nmb; /* number of the ahead token */
|
|
|
|
extern int tk_nmb_at_last_syn_err; /* token number at last syntax error */
|
1986-03-10 13:07:55 +00:00
|
|
|
|
1987-03-27 10:37:58 +00:00
|
|
|
#ifndef NOPP
|
1986-03-10 13:07:55 +00:00
|
|
|
extern int ReplaceMacros; /* "LLlex.c" */
|
|
|
|
extern int AccDefined; /* "LLlex.c" */
|
1987-03-27 10:37:58 +00:00
|
|
|
extern int Unstacked; /* "LLlex.c" */
|
1986-03-10 13:07:55 +00:00
|
|
|
extern int UnknownIdIsZero; /* "LLlex.c" */
|
1991-12-17 14:11:15 +00:00
|
|
|
#endif /* NOPP */
|
1987-03-27 10:37:58 +00:00
|
|
|
extern int EoiForNewline; /* "LLlex.c" */
|
|
|
|
extern int AccFileSpecifier; /* "LLlex.c" */
|
1986-03-10 13:07:55 +00:00
|
|
|
extern int SkipEscNewline; /* "LLlex.c" */
|
1987-03-10 17:51:10 +00:00
|
|
|
extern int File_Inserted; /* "LLlex.c" */
|
1986-03-10 13:07:55 +00:00
|
|
|
|
|
|
|
extern int NoUnstack; /* buffer.c */
|
|
|
|
|
|
|
|
extern int err_occurred; /* "error.c" */
|
|
|
|
|
|
|
|
#define DOT dot.tk_symb
|
|
|
|
#define AHEAD ahead.tk_symb
|
|
|
|
#define ASIDE aside.tk_symb
|
|
|
|
|
|
|
|
#define EOF (-1)
|