148 lines
3.2 KiB
C
148 lines
3.2 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".
|
|
*/
|
|
/* $Header$ */
|
|
/* TOKEN NAME DEFINITIONS */
|
|
|
|
#include "idf.h"
|
|
#include "arith.h"
|
|
#include "LLlex.h"
|
|
#include "tokenname.h"
|
|
#include "Lpars.h"
|
|
|
|
/* To centralize the declaration of %tokens, their presence in this
|
|
file is taken as their declaration. The Makefile will produce
|
|
a grammar file (tokenfile.g) from this file.
|
|
Moreover, rather than looking up a symbol in all these lists
|
|
to find its printable name, a fast version of symbol2str() is
|
|
generated from these tables.
|
|
Consequenty some of these tables are not referenced explicitly
|
|
in the C text any more. To save space and to avoid lint confusion,
|
|
these have been made pseudo-invisible by #ifdefs.
|
|
*/
|
|
|
|
#ifdef ____
|
|
struct tokenname tkspec[] = { /* the names of the special tokens */
|
|
{IDENTIFIER, "identifier"},
|
|
{TYPE_IDENTIFIER, "type_identifier"},
|
|
{STRING, "string"},
|
|
{FILESPECIFIER, "filespecifier"},
|
|
{INTEGER, "integer"},
|
|
{FLOATING, "floating"},
|
|
{0, ""}
|
|
};
|
|
#endif /* ____ */
|
|
|
|
#ifdef ____
|
|
struct tokenname tkcomp[] = { /* names of the composite tokens */
|
|
{NOTEQUAL, "!="},
|
|
{AND, "&&"},
|
|
{PLUSPLUS, "++"},
|
|
{MINMIN, "--"},
|
|
{ARROW, "->"},
|
|
{LEFT, "<<"},
|
|
{LESSEQ, "<="},
|
|
{EQUAL, "=="},
|
|
{GREATEREQ, ">="},
|
|
{RIGHT, ">>"},
|
|
{OR, "||"},
|
|
{0, ""}
|
|
};
|
|
#endif /* ____ */
|
|
|
|
struct tokenname tkidf[] = { /* names of the identifier tokens */
|
|
{ASM, "asm"},
|
|
{AUTO, "auto"},
|
|
{BREAK, "break"},
|
|
{CASE, "case"},
|
|
{CONTINUE, "continue"},
|
|
{DEFAULT, "default"},
|
|
{DO, "do"},
|
|
{ELSE, "else"},
|
|
{ENUM, "enum"},
|
|
{EXTERN, "extern"},
|
|
{FOR, "for"},
|
|
{GOTO, "goto"},
|
|
{IF, "if"},
|
|
{LONG, "long"},
|
|
{REGISTER, "register"},
|
|
{RETURN, "return"},
|
|
{SHORT, "short"},
|
|
{SIZEOF, "sizeof"},
|
|
{STATIC, "static"},
|
|
{STRUCT, "struct"},
|
|
{SWITCH, "switch"},
|
|
{TYPEDEF, "typedef"},
|
|
{UNION, "union"},
|
|
{UNSIGNED, "unsigned"},
|
|
{WHILE, "while"},
|
|
{0, ""}
|
|
};
|
|
|
|
struct tokenname tkother[] = { /* additional keywords from the RM */
|
|
{ENTRY, "entry"},
|
|
{FORTRAN, "fortran"},
|
|
{0, ""}
|
|
};
|
|
|
|
#ifdef ____
|
|
struct tokenname tkfunny[] = { /* internal keywords */
|
|
{CHAR, "char"},
|
|
{INT, "int"},
|
|
{FLOAT, "float"},
|
|
{DOUBLE, "double"},
|
|
{VOID, "void"},
|
|
|
|
{ARRAY, "array"},
|
|
{FUNCTION, "function"},
|
|
{POINTER, "pointer"},
|
|
{FIELD, "field"},
|
|
{NEWLINE, "newline"},
|
|
|
|
{GLOBAL, "global"},
|
|
{IMPLICIT, "implicit"},
|
|
{FORMAL, "formal"},
|
|
{LABEL, "label"},
|
|
{ERRONEOUS, "erroneous"},
|
|
|
|
{PARCOMMA, "parcomma"},
|
|
{INITCOMMA, "initcomma"},
|
|
{CAST, "cast"},
|
|
{POSTINCR, "postfix ++"},
|
|
{POSTDECR, "postfix --"},
|
|
{PLUSAB, "+="},
|
|
{MINAB, "-="},
|
|
{TIMESAB, "*="},
|
|
{DIVAB, "/="},
|
|
{MODAB, "%="},
|
|
{LEFTAB, "<<="},
|
|
{RIGHTAB, ">>="},
|
|
{ANDAB, "&="},
|
|
{XORAB, "^="},
|
|
{ORAB, "|="},
|
|
|
|
{INT2INT, "int2int"},
|
|
{INT2FLOAT, "int2float"},
|
|
{FLOAT2INT, "float2int"},
|
|
{FLOAT2FLOAT, "float2float"},
|
|
{0, ""}
|
|
};
|
|
#endif /* ____ */
|
|
|
|
reserve(resv)
|
|
register struct tokenname resv[];
|
|
{
|
|
/* The names of the tokens described in resv are entered
|
|
as reserved words.
|
|
*/
|
|
while (resv->tn_symbol) {
|
|
struct idf *idf = str2idf(resv->tn_name);
|
|
|
|
if (idf->id_reserved)
|
|
fatal("maximum identifier length insufficient");
|
|
idf->id_reserved = resv->tn_symbol;
|
|
resv++;
|
|
}
|
|
}
|