Switched the keyword from string to a sum type

1 files changed, 59 insertions, 59 deletions

diff --git a/lib/qparser/idents.ml b/lib/qparser/idents.ml
index baf23dc..02fbac2 100644
--- a/lib/qparser/idents.ml
+++ b/lib/qparser/idents.ml
@@ -8,10 +8,10 @@ let _ =
     (fun (kwd, tok) -> Hashtbl.add keyword_table kwd tok)
     [
       ("ACT", ACT);
-      ("ADDLIB", KEYWORD "INCLIB");
-      ("ADDOBJ", KEYWORD "ADDOBJ");
-      ("ADD OBJ", KEYWORD "ADDOBJ");
-      ("ADDQST", KEYWORD "INCLIB");
+      ("ADDLIB", KEYWORD T.IncLib);
+      ("ADDOBJ", KEYWORD T.Addobj);
+      ("ADD OBJ", KEYWORD T.Addobj);
+      ("ADDQST", KEYWORD T.IncLib);
       ("AND", AND);
       ("ARRCOMP", FUNCTION T.Arrcomp);
       ("ARRPOS", FUNCTION T.Arrpos);
@@ -20,17 +20,17 @@ let _ =
         ; "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");
+      ("CLA", KEYWORD T.Cla);
+      ("CLEAR", KEYWORD T.Clear);
+      ("*CLEAR", KEYWORD T.Clear');
+      ("CLOSE", KEYWORD T.Close);
+      ("CLOSE ALL", KEYWORD T.CloseAll);
+      ("CLR", KEYWORD T.Clear);
+      ("*CLR", KEYWORD T.Clear');
+      ("CLS", KEYWORD T.Cls);
+      ("CMDCLEAR", KEYWORD T.CmdClear);
+      ("CMDCLR", KEYWORD T.CmdClear);
+      ("COPYARR", KEYWORD T.CopyArr);
       ("COUNTOBJ", FUNCTION T.Countobj);
       ("CURACTS", IDENT "CURACTS");
       ("$CURACTS", IDENT "$CURACTS");
@@ -39,30 +39,30 @@ let _ =
       (*
         ; "DEBUG",            KEYWORD "DEBUG"
 *);
-      ("DELACT", KEYWORD "DELACT");
-      ("DEL ACT", KEYWORD "DELACT");
-      ("DELLIB", KEYWORD "FREELIB");
-      ("DELOBJ", KEYWORD "DELOBJ");
-      ("DEL OBJ", KEYWORD "DELOBJ");
+      ("DELACT", KEYWORD T.DelAct);
+      ("DEL ACT", KEYWORD T.DelAct);
+      ("DELLIB", KEYWORD T.FreeLib);
+      ("DELOBJ", KEYWORD T.DelObj);
+      ("DEL OBJ", KEYWORD T.DelObj);
       ("DESC", FUNCTION T.Desc);
       ("$DESC", FUNCTION T.Desc')
       (*
         ; "DISABLESCROLL",    KEYWORD "DISABLESCROLL"
         ; "DISABLESUBEX",     KEYWORD "DISABLESUBEX"
 *);
-      ("DYNAMIC", KEYWORD "DYNAMIC");
+      ("DYNAMIC", KEYWORD T.Dynamic);
       ("DYNEVAL", FUNCTION T.Dyneval);
       ("$DYNEVAL", FUNCTION T.Dyneval');
       ("ELSE", ELSE);
       ("ELSEIF", ELIF);
       ("END", END);
-      ("EXEC", KEYWORD "EXEC");
-      ("EXIT", KEYWORD "EXIT")
+      ("EXEC", KEYWORD T.Exec);
+      ("EXIT", KEYWORD T.Exit)
       (*
         ; "FCOLOR",           KEYWORD "FCOLOR"
         ; "$FNAME",           KEYWORD "$FNAME"
 *);
-      ("FREELIB", KEYWORD "FREELIB")
+      ("FREELIB", KEYWORD T.FreeLib)
       (*
         ; "FSIZE",            KEYWORD "FSIZE"
 *);
@@ -70,26 +70,26 @@ let _ =
       ("$FUNC", FUNCTION T.Func');
       ("GETOBJ", FUNCTION T.Getobj);
       ("$GETOBJ", FUNCTION T.Getobj');
-      ("GOSUB", KEYWORD "GOSUB");
-      ("GOTO", KEYWORD "GOTO") (*
+      ("GOSUB", KEYWORD T.Gosub);
+      ("GOTO", KEYWORD T.Goto) (*
         ; "GC",               KEYWORD "GC"
 *);
-      ("GS", KEYWORD "GOSUB");
-      ("GT", KEYWORD "GOTO");
+      ("GS", KEYWORD T.Gosub);
+      ("GT", KEYWORD T.Goto);
       ("IF", IF);
       ("IIF", FUNCTION T.Iif);
       ("$IIF", FUNCTION T.Iif');
-      ("INCLIB", KEYWORD "INCLIB");
+      ("INCLIB", KEYWORD T.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");
+      ("JUMP", KEYWORD T.Jump);
+      ("KILLALL", KEYWORD T.KillAll);
+      ("KILLOBJ", KEYWORD T.KillObj);
+      ("KILLQST", KEYWORD T.FreeLib);
+      ("KILLVAR", KEYWORD T.KillVar);
       ("LCASE", FUNCTION T.Lcase);
       ("$LCASE", FUNCTION T.Lcase')
       (*
@@ -99,19 +99,19 @@ let _ =
       ("LET", LET);
       ("LOC", FUNCTION T.Loc);
       ("MAINTXT", IDENT "MAINTXT");
-      ("$MAINTXT", IDENT "MAINTXT");
+      ("$MAINTXT", IDENT "$MAINTXT");
       ("MAX", FUNCTION T.Max);
       ("$MAX", FUNCTION T.Max');
-      ("MENU", KEYWORD "MENU");
+      ("MENU", KEYWORD T.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");
+      ("MSG", KEYWORD T.Msg);
+      ("NL", KEYWORD T.Nl);
+      ("*NL", KEYWORD T.Nl');
       ("NO", NO) (*
         ; "NOSAVE",           KEYWORD "NOSAVE"
 *);
@@ -123,33 +123,33 @@ let _ =
       ("$ONOBJADD", IDENT "$ONOBJADD");
       ("$ONOBJDEL", IDENT "$ONOBJDEL");
       ("$ONOBJSEL", IDENT "$ONOBJSEL");
-      ("OPENGAME", KEYWORD "OPENGAME");
-      ("OPENQST", KEYWORD "OPENQST");
+      ("OPENGAME", KEYWORD T.OpenGame);
+      ("OPENQST", KEYWORD T.OpenQst);
       ("OR", OR);
-      ("P", KEYWORD "P");
-      ("*P", KEYWORD "*P");
-      ("PL", KEYWORD "PL");
-      ("*PL", KEYWORD "*PL");
-      ("PLAY", KEYWORD "PLAY");
+      ("P", KEYWORD T.P);
+      ("*P", KEYWORD T.P');
+      ("PL", KEYWORD T.Pl);
+      ("*PL", KEYWORD T.Pl');
+      ("PLAY", KEYWORD T.Play);
       ("QSPVER", FUNCTION T.Qspver);
       ("$QSPVER", FUNCTION T.Qspver');
       ("RAND", FUNCTION T.Rand);
-      ("REFINT", KEYWORD "REFINT");
+      ("REFINT", KEYWORD T.RefInt);
       ("REPLACE", FUNCTION T.Replace);
       ("$REPLACE", FUNCTION T.Replace');
       ("RGB", FUNCTION T.Rgb);
       ("RND", FUNCTION T.Rnd);
-      ("SAVEGAME", KEYWORD "SAVEGAME");
+      ("SAVEGAME", KEYWORD T.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");
+      ("SETTIMER", KEYWORD T.SetTimer);
+      ("SHOWACTS", KEYWORD T.ShowActs);
+      ("SHOWINPUT", KEYWORD T.ShowInput);
+      ("SHOWOBJS", KEYWORD T.ShowObjs);
+      ("SHOWSTAT", KEYWORD T.ShowStat);
       ("STATTXT", FUNCTION T.Stattxt);
       ("$STATTXT", FUNCTION T.Stattxt');
       ("STR", FUNCTION T.Str);
@@ -162,8 +162,8 @@ let _ =
       ("$TRIM", FUNCTION T.Trim');
       ("UCASE", FUNCTION T.Ucase);
       ("$UCASE", FUNCTION T.Ucase');
-      ("UNSEL", KEYWORD "UNSELECT");
-      ("UNSELECT", KEYWORD "UNSELECT");
+      ("UNSEL", KEYWORD T.Unselect);
+      ("UNSELECT", KEYWORD T.Unselect);
       ("USEHTML", IDENT "USEHTML");
       ("USERCOM", IDENT "USERCOM");
       ("$USERCOM", IDENT "$USERCOM");
@@ -172,8 +172,8 @@ let _ =
       ("USRTXT", IDENT "USER_TEXT");
       ("$USRTXT", IDENT "USER_TEXT");
       ("VAL", FUNCTION T.Val);
-      ("VIEW", KEYWORD "VIEW");
-      ("WAIT", KEYWORD "WAIT");
-      ("XGOTO", KEYWORD "XGOTO");
-      ("XGT", KEYWORD "XGOTO");
+      ("VIEW", KEYWORD T.View);
+      ("WAIT", KEYWORD T.Wait);
+      ("XGOTO", KEYWORD T.XGoto);
+      ("XGT", KEYWORD T.XGoto);
     ]