ack/lang/cem/cemcom/tokenname.c

/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */
/* $Id$ */
/* 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++;
	}
}