- Remove rcsid tag.

+ ANSI C conversion.
This commit is contained in:
carl 2019-05-11 01:06:36 +08:00
parent 82fddaab77
commit e533626413

View file

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