From e5336264133339d999a0d449bf17d62fb9cca03a Mon Sep 17 00:00:00 2001 From: carl Date: Sat, 11 May 2019 01:06:36 +0800 Subject: [PATCH] - Remove rcsid tag. + ANSI C conversion. --- lang/basic/src/basic.lex | 268 +++++++++++++++++++-------------------- 1 file changed, 134 insertions(+), 134 deletions(-) diff --git a/lang/basic/src/basic.lex b/lang/basic/src/basic.lex index 11b3e2bf8..39d87e9ff 100644 --- a/lang/basic/src/basic.lex +++ b/lang/basic/src/basic.lex @@ -4,147 +4,147 @@ */ -#ifndef NORCSID -static char rcs_lex[] = "$Id$" ; -#endif + /* This file contains the new lexical analizer */ typedef struct { char *name; - int token, classvalue,length; + int token; + int classvalue; + int length; } Key; Key keywords [] ={ -"abs", FUNCTION, ABSSYM, 0, -"and", ANDSYM, ANDSYM, 0, -"asc", FUNCTION, ASCSYM, 0, -"as", ASSYM, 0, 0, -"atn", FUNCTION, ATNSYM, 0, -"auto", ILLEGAL, 0, 0, -"base", BASESYM, 0, 0, -"call", CALLSYM, 0, 0, -"cdbl", FUNCTION, CDBLSYM, 0, -"chain", ILLEGAL, 0, 0, -"chr", FUNCTION, CHRSYM, 0, -"cint", FUNCTION, CINTSYM, 0, -"clear", CLEARSYM, 0, 0, -"cload", ILLEGAL, 0, 0, -"close", CLOSESYM, 0, 0, -"common", ILLEGAL, 0, 0, -"cont", ILLEGAL, 0, 0, -"cos", FUNCTION, COSSYM, 0, -"csng", FUNCTION, CSNGSYM, 0, -"csave", ILLEGAL, 0, 0, -"cvi", FUNCTION, CVISYM, 0, -"cvs", FUNCTION, CVSSYM, 0, -"cvd", FUNCTION, CVDSYM, 0, -"data", DATASYM, 0, 0, -"defint", DEFINTSYM, 0, 0, -"defsng", DEFSNGSYM, 0, 0, -"defdbl", DEFDBLSYM, 0, 0, -"defstr", DEFSTRSYM, 0, 0, -"def", DEFSYM, 0, 0, -"delete", ILLEGAL, 0, 0, -"dim", DIMSYM, 0, 0, -"edit", ILLEGAL, 0, 0, -"else", ELSESYM, 0, 0, -"end", ENDSYM, 0, 0, -"eof", FUNCTION, EOFSYM, 0, -"eqv", EQVSYM, EQVSYM, 0, -"erase", ILLEGAL, 0, 0, -"error", ERRORSYM, 0, 0, -"err", ERRSYM, 0, 0, -"erl", ERLSYM, 0, 0, -"exp", FUNCTION, EXPSYM, 0, -"field", FIELDSYM, 0, 0, -"fix", FUNCTION, FIXSYM, 0, -"for", FORSYM, 0, 0, -"fre", FUNCTION, FRESYM, 0, -"get", GETSYM, 0, 0, -"gosub", GOSUBSYM, 0, 0, -"goto", GOTOSYM, 0, 0, -"hex", FUNCTION, HEXSYM, 0, -"if", IFSYM, 0, 0, -"imp", IMPSYM, IMPSYM, 0, -"inkey", INKEYSYM, 0, 0, -"input", INPUTSYM, 0, 0, -"inp", FUNCTION, INPSYM, 0, -"instr", FUNCTION, INSTRSYM, 0, -"int", FUNCTION, INTSYM, 0, -"kill", ILLEGAL, 0, 0, -"left", FUNCTION, LEFTSYM, 0, -"len", FUNCTION, LENSYM, 0, -"let", LETSYM, 0, 0, -"line", LINESYM, 0, 0, -"list", LISTSYM, 0, 0, -"llist", ILLEGAL, 0, 0, -"load", LOADSYM, 0, 0, -"loc", FUNCTION, LOCSYM, 0, -"log", FUNCTION, LOGSYM, 0, -"lpos", FUNCTION, LPOSSYM, 0, -"lprint", ILLEGAL, 0, 0, -"lset", LSETSYM, 0, 0, -"merge", MERGESYM, 0, 0, -"mid", MIDSYM, 0, 0, -"mki", FUNCTION, MKISYM, 0, -"mks", FUNCTION, MKSSYM, 0, -"mkd", FUNCTION, MKDSYM, 0, -"mod", MODSYM, 0, 0, -"name", ILLEGAL, 0, 0, -"new", ILLEGAL, 0, 0, -"next", NEXTSYM, 0, 0, -"not", NOTSYM, 0, 0, -"null", ILLEGAL, 0, 0, -"on", ONSYM, 0, 0, -"oct", FUNCTION, OCTSYM, 0, -"open", OPENSYM, 0, 0, -"option", OPTIONSYM, 0, 0, -"or", ORSYM, ORSYM, 0, -"out", FUNCTION, OUTSYM, 0, -"peek", PEEKSYM, 0, 0, -"poke", POKESYM, 0, 0, -"print", PRINTSYM, 0, 0, -"pos", FUNCTION, POSSYM, 0, -"put", PUTSYM, 0, 0, -"randomize", RANDOMIZESYM, 0, 0, -"read", READSYM, 0, 0, -"rem", REMSYM, 0, 0, -"renum", ILLEGAL, 0, 0, -"ren", ILLEGAL, 0, 0, -"restore", RESTORESYM, 0, 0, -"resume", ILLEGAL, 0, 0, -"return", RETURNSYM, 0, 0, -"right", FUNCTION, RIGHTSYM, 0, -"rnd", FUNCTION, RNDSYM, 0, -"run", ILLEGAL, 0, 0, -"save", ILLEGAL, 0, 0, -"step", STEPSYM, 0, 0, -"sgn", FUNCTION, SGNSYM, 0, -"sin", FUNCTION, SINSYM, 0, -"space", FUNCTION, SPACESYM, 0, -"spc", FUNCTION, SPCSYM, 0, -"sqr", FUNCTION, SQRSYM, 0, -"stop", STOPSYM, 0, 0, -"string", FUNCTION, STRINGSYM, 0, -"str", FUNCTION, STRSYM, 0, -"swap", SWAPSYM, 0, 0, -"tab", FUNCTION, TABSYM, 0, -"tan", FUNCTION, TANSYM, 0, -"then", THENSYM, 0, 0, -"to", TOSYM, 0, 0, -"tron", TRONOFFSYM, TRONSYM, 0, -"troff", TRONOFFSYM, TROFFSYM, 0, -"using", USINGSYM, 0, 0, -"usr", FUNCTION, USRSYM, 0, -"val", FUNCTION, VALSYM, 0, -"varptr", FUNCTION, VARPTRSYM, 0, -"wait", ILLEGAL, 0, 0, -"while", WHILESYM, 0, 0, -"wend", WENDSYM, 0, 0, -"width", ILLEGAL, 0, 0, -"write", WRITESYM, 0, 0, -"xor", XORSYM, XORSYM, 0, -0, 0, 0, 0 +{"abs", FUNCTION, ABSSYM, 0}, +{"and", ANDSYM, ANDSYM, 0}, +{"asc", FUNCTION, ASCSYM, 0}, +{"as", ASSYM, 0, 0}, +{"atn", FUNCTION, ATNSYM, 0}, +{"auto", ILLEGAL, 0, 0}, +{"base", BASESYM, 0, 0}, +{"call", CALLSYM, 0, 0}, +{"cdbl", FUNCTION, CDBLSYM, 0}, +{"chain", ILLEGAL, 0, 0}, +{"chr", FUNCTION, CHRSYM, 0}, +{"cint", FUNCTION, CINTSYM, 0}, +{"clear", CLEARSYM, 0, 0}, +{"cload", ILLEGAL, 0, 0}, +{"close", CLOSESYM, 0, 0}, +{"common", ILLEGAL, 0, 0}, +{"cont", ILLEGAL, 0, 0}, +{"cos", FUNCTION, COSSYM, 0}, +{"csng", FUNCTION, CSNGSYM, 0}, +{"csave", ILLEGAL, 0, 0}, +{"cvi", FUNCTION, CVISYM, 0}, +{"cvs", FUNCTION, CVSSYM, 0}, +{"cvd", FUNCTION, CVDSYM, 0}, +{"data", DATASYM, 0, 0}, +{"defint", DEFINTSYM, 0, 0}, +{"defsng", DEFSNGSYM, 0, 0}, +{"defdbl", DEFDBLSYM, 0, 0}, +{"defstr", DEFSTRSYM, 0, 0}, +{"def", DEFSYM, 0, 0}, +{"delete", ILLEGAL, 0, 0}, +{"dim", DIMSYM, 0, 0}, +{"edit", ILLEGAL, 0, 0}, +{"else", ELSESYM, 0, 0}, +{"end", ENDSYM, 0, 0}, +{"eof", FUNCTION, EOFSYM, 0}, +{"eqv", EQVSYM, EQVSYM, 0}, +{"erase", ILLEGAL, 0, 0}, +{"error", ERRORSYM, 0, 0}, +{"err", ERRSYM, 0, 0}, +{"erl", ERLSYM, 0, 0}, +{"exp", FUNCTION, EXPSYM, 0}, +{"field", FIELDSYM, 0, 0}, +{"fix", FUNCTION, FIXSYM, 0}, +{"for", FORSYM, 0, 0}, +{"fre", FUNCTION, FRESYM, 0}, +{"get", GETSYM, 0, 0}, +{"gosub", GOSUBSYM, 0, 0}, +{"goto", GOTOSYM, 0, 0}, +{"hex", FUNCTION, HEXSYM, 0}, +{"if", IFSYM, 0, 0}, +{"imp", IMPSYM, IMPSYM, 0}, +{"inkey", INKEYSYM, 0, 0}, +{"input", INPUTSYM, 0, 0}, +{"inp", FUNCTION, INPSYM, 0}, +{"instr", FUNCTION, INSTRSYM, 0}, +{"int", FUNCTION, INTSYM, 0}, +{"kill", ILLEGAL, 0, 0}, +{"left", FUNCTION, LEFTSYM, 0}, +{"len", FUNCTION, LENSYM, 0}, +{"let", LETSYM, 0, 0}, +{"line", LINESYM, 0, 0}, +{"list", LISTSYM, 0, 0}, +{"llist", ILLEGAL, 0, 0}, +{"load", LOADSYM, 0, 0}, +{"loc", FUNCTION, LOCSYM, 0}, +{"log", FUNCTION, LOGSYM, 0}, +{"lpos", FUNCTION, LPOSSYM, 0}, +{"lprint", ILLEGAL, 0, 0}, +{"lset", LSETSYM, 0, 0}, +{"merge", MERGESYM, 0, 0}, +{"mid", MIDSYM, 0, 0}, +{"mki", FUNCTION, MKISYM, 0}, +{"mks", FUNCTION, MKSSYM, 0}, +{"mkd", FUNCTION, MKDSYM, 0}, +{"mod", MODSYM, 0, 0}, +{"name", ILLEGAL, 0, 0}, +{"new", ILLEGAL, 0, 0}, +{"next", NEXTSYM, 0, 0}, +{"not", NOTSYM, 0, 0}, +{"null", ILLEGAL, 0, 0}, +{"on", ONSYM, 0, 0}, +{"oct", FUNCTION, OCTSYM, 0}, +{"open", OPENSYM, 0, 0}, +{"option", OPTIONSYM, 0, 0}, +{"or", ORSYM, ORSYM, 0}, +{"out", FUNCTION, OUTSYM, 0}, +{"peek", PEEKSYM, 0, 0}, +{"poke", POKESYM, 0, 0}, +{"print", PRINTSYM, 0, 0}, +{"pos", FUNCTION, POSSYM, 0}, +{"put", PUTSYM, 0, 0}, +{"randomize", RANDOMIZESYM, 0, 0}, +{"read", READSYM, 0, 0}, +{"rem", REMSYM, 0, 0}, +{"renum", ILLEGAL, 0, 0}, +{"ren", ILLEGAL, 0, 0}, +{"restore", RESTORESYM, 0, 0}, +{"resume", ILLEGAL, 0, 0}, +{"return", RETURNSYM, 0, 0}, +{"right", FUNCTION, RIGHTSYM, 0}, +{"rnd", FUNCTION, RNDSYM, 0}, +{"run", ILLEGAL, 0, 0}, +{"save", ILLEGAL, 0, 0}, +{"step", STEPSYM, 0, 0}, +{"sgn", FUNCTION, SGNSYM, 0}, +{"sin", FUNCTION, SINSYM, 0}, +{"space", FUNCTION, SPACESYM, 0}, +{"spc", FUNCTION, SPCSYM, 0}, +{"sqr", FUNCTION, SQRSYM, 0}, +{"stop", STOPSYM, 0, 0}, +{"string", FUNCTION, STRINGSYM, 0}, +{"str", FUNCTION, STRSYM, 0}, +{"swap", SWAPSYM, 0, 0}, +{"tab", FUNCTION, TABSYM, 0}, +{"tan", FUNCTION, TANSYM, 0}, +{"then", THENSYM, 0, 0}, +{"to", TOSYM, 0, 0}, +{"tron", TRONOFFSYM, TRONSYM, 0}, +{"troff", TRONOFFSYM, TROFFSYM, 0}, +{"using", USINGSYM, 0, 0}, +{"usr", FUNCTION, USRSYM, 0}, +{"val", FUNCTION, VALSYM, 0}, +{"varptr", FUNCTION, VARPTRSYM, 0}, +{"wait", ILLEGAL, 0, 0}, +{"while", WHILESYM, 0, 0}, +{"wend", WENDSYM, 0, 0}, +{"width", ILLEGAL, 0, 0}, +{"write", WRITESYM, 0, 0}, +{"xor", XORSYM, XORSYM, 0}, +{0, 0, 0, 0} }; /* Keyword index table */