diff options
Diffstat (limited to 'lib/idents.ml')
| -rw-r--r-- | lib/idents.ml | 179 |
1 files changed, 0 insertions, 179 deletions
diff --git a/lib/idents.ml b/lib/idents.ml deleted file mode 100644 index baf23dc..0000000 --- a/lib/idents.ml +++ /dev/null @@ -1,179 +0,0 @@ -open Tokens -module T = Qsp_syntax.T - -let keyword_table = Hashtbl.create 53 - -let _ = - List.iter - (fun (kwd, tok) -> Hashtbl.add keyword_table kwd tok) - [ - ("ACT", ACT); - ("ADDLIB", KEYWORD "INCLIB"); - ("ADDOBJ", KEYWORD "ADDOBJ"); - ("ADD OBJ", KEYWORD "ADDOBJ"); - ("ADDQST", KEYWORD "INCLIB"); - ("AND", AND); - ("ARRCOMP", FUNCTION T.Arrcomp); - ("ARRPOS", FUNCTION T.Arrpos); - ("ARRSIZE", FUNCTION T.Arrsize) - (* - ; "BACKIMAGE", KEYWORD "BACKIMAGE" - ; "$BACKIMAGE", KEYWORD "BACKIMAGE" - ; "BCOLOR", KEYWORD "BCOLOR" *); - ("CLA", KEYWORD "CLA"); - ("CLEAR", KEYWORD "CLEAR"); - ("*CLEAR", KEYWORD "*CLEAR"); - ("CLOSE", KEYWORD "CLOSE"); - ("CLOSE ALL", KEYWORD "CLOSEALL"); - ("CLR", KEYWORD "CLEAR"); - ("*CLR", KEYWORD "*CLEAR"); - ("CLS", KEYWORD "CLS"); - ("CMDCLEAR", KEYWORD "CMDCLEAR"); - ("CMDCLR", KEYWORD "CMDCLEAR"); - ("COPYARR", KEYWORD "COPYARR"); - ("COUNTOBJ", FUNCTION T.Countobj); - ("CURACTS", IDENT "CURACTS"); - ("$CURACTS", IDENT "$CURACTS"); - ("CURLOC", IDENT "CURLOC"); - ("$CURLOC", IDENT "$CURLOC") - (* - ; "DEBUG", KEYWORD "DEBUG" -*); - ("DELACT", KEYWORD "DELACT"); - ("DEL ACT", KEYWORD "DELACT"); - ("DELLIB", KEYWORD "FREELIB"); - ("DELOBJ", KEYWORD "DELOBJ"); - ("DEL OBJ", KEYWORD "DELOBJ"); - ("DESC", FUNCTION T.Desc); - ("$DESC", FUNCTION T.Desc') - (* - ; "DISABLESCROLL", KEYWORD "DISABLESCROLL" - ; "DISABLESUBEX", KEYWORD "DISABLESUBEX" -*); - ("DYNAMIC", KEYWORD "DYNAMIC"); - ("DYNEVAL", FUNCTION T.Dyneval); - ("$DYNEVAL", FUNCTION T.Dyneval'); - ("ELSE", ELSE); - ("ELSEIF", ELIF); - ("END", END); - ("EXEC", KEYWORD "EXEC"); - ("EXIT", KEYWORD "EXIT") - (* - ; "FCOLOR", KEYWORD "FCOLOR" - ; "$FNAME", KEYWORD "$FNAME" -*); - ("FREELIB", KEYWORD "FREELIB") - (* - ; "FSIZE", KEYWORD "FSIZE" -*); - ("FUNC", FUNCTION T.Func); - ("$FUNC", FUNCTION T.Func'); - ("GETOBJ", FUNCTION T.Getobj); - ("$GETOBJ", FUNCTION T.Getobj'); - ("GOSUB", KEYWORD "GOSUB"); - ("GOTO", KEYWORD "GOTO") (* - ; "GC", KEYWORD "GC" -*); - ("GS", KEYWORD "GOSUB"); - ("GT", KEYWORD "GOTO"); - ("IF", IF); - ("IIF", FUNCTION T.Iif); - ("$IIF", FUNCTION T.Iif'); - ("INCLIB", KEYWORD "INCLIB"); - ("INPUT", FUNCTION T.Input); - ("$INPUT", FUNCTION T.Input'); - ("INSTR", FUNCTION T.Instr); - ("ISNUM", FUNCTION T.Isnum); - ("ISPLAY", FUNCTION T.Isplay); - ("JUMP", KEYWORD "JUMP"); - ("KILLALL", KEYWORD "KILLALL"); - ("KILLOBJ", KEYWORD "KILLOBJ"); - ("KILLQST", KEYWORD "FREELIB"); - ("KILLVAR", KEYWORD "KILLVAR"); - ("LCASE", FUNCTION T.Lcase); - ("$LCASE", FUNCTION T.Lcase') - (* - ; "LCOLOR", KEYWORD "LCOLOR" -*); - ("LEN", FUNCTION T.Len); - ("LET", LET); - ("LOC", FUNCTION T.Loc); - ("MAINTXT", IDENT "MAINTXT"); - ("$MAINTXT", IDENT "MAINTXT"); - ("MAX", FUNCTION T.Max); - ("$MAX", FUNCTION T.Max'); - ("MENU", KEYWORD "MENU"); - ("MID", FUNCTION T.Mid); - ("$MID", FUNCTION T.Mid'); - ("MIN", FUNCTION T.Min); - ("$MIN", FUNCTION T.Min'); - ("MOD", MOD); - ("MSECSCOUNT", FUNCTION T.Msecscount); - ("MSG", KEYWORD "MSG"); - ("NL", KEYWORD "NL"); - ("*NL", KEYWORD "*NL"); - ("NO", NO) (* - ; "NOSAVE", KEYWORD "NOSAVE" -*); - ("OBJ", OBJ); - ("$ONACTSEL", IDENT "$ONACTSEL"); - ("$ONGLOAD", IDENT "$ONGLOAD"); - ("$ONGSAVE", IDENT "$ONGSAVE"); - ("$ONNEWLOC", IDENT "$ONNEWLOC"); - ("$ONOBJADD", IDENT "$ONOBJADD"); - ("$ONOBJDEL", IDENT "$ONOBJDEL"); - ("$ONOBJSEL", IDENT "$ONOBJSEL"); - ("OPENGAME", KEYWORD "OPENGAME"); - ("OPENQST", KEYWORD "OPENQST"); - ("OR", OR); - ("P", KEYWORD "P"); - ("*P", KEYWORD "*P"); - ("PL", KEYWORD "PL"); - ("*PL", KEYWORD "*PL"); - ("PLAY", KEYWORD "PLAY"); - ("QSPVER", FUNCTION T.Qspver); - ("$QSPVER", FUNCTION T.Qspver'); - ("RAND", FUNCTION T.Rand); - ("REFINT", KEYWORD "REFINT"); - ("REPLACE", FUNCTION T.Replace); - ("$REPLACE", FUNCTION T.Replace'); - ("RGB", FUNCTION T.Rgb); - ("RND", FUNCTION T.Rnd); - ("SAVEGAME", KEYWORD "SAVEGAME"); - ("SELACT", FUNCTION T.Selact); - ("$SELACT", IDENT "$SELACT"); - ("SELOBJ", IDENT "SELOBJ"); - ("$SELOBJ", IDENT "$SELOBJ"); - ("SET", SET); - ("SETTIMER", KEYWORD "SETTIMER"); - ("SHOWACTS", KEYWORD "SHOWACTS"); - ("SHOWINPUT", KEYWORD "SHOWINPUT"); - ("SHOWOBJS", KEYWORD "SHOWOBJS"); - ("SHOWSTAT", KEYWORD "SHOWSTAT"); - ("STATTXT", FUNCTION T.Stattxt); - ("$STATTXT", FUNCTION T.Stattxt'); - ("STR", FUNCTION T.Str); - ("$STR", FUNCTION T.Str'); - ("STRCOMP", FUNCTION T.Strcomp); - ("STRFIND", FUNCTION T.Strfind); - ("$STRFIND", FUNCTION T.Strfind'); - ("STRPOS", FUNCTION T.Strpos); - ("TRIM", FUNCTION T.Trim); - ("$TRIM", FUNCTION T.Trim'); - ("UCASE", FUNCTION T.Ucase); - ("$UCASE", FUNCTION T.Ucase'); - ("UNSEL", KEYWORD "UNSELECT"); - ("UNSELECT", KEYWORD "UNSELECT"); - ("USEHTML", IDENT "USEHTML"); - ("USERCOM", IDENT "USERCOM"); - ("$USERCOM", IDENT "$USERCOM"); - ("USER_TEXT", IDENT "USER_TEXT"); - ("$USER_TEXT", IDENT "USER_TEXT"); - ("USRTXT", IDENT "USER_TEXT"); - ("$USRTXT", IDENT "USER_TEXT"); - ("VAL", FUNCTION T.Val); - ("VIEW", KEYWORD "VIEW"); - ("WAIT", KEYWORD "WAIT"); - ("XGOTO", KEYWORD "XGOTO"); - ("XGT", KEYWORD "XGOTO"); - ] |