Source file `o_keywords.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(* camlp5r *)

let keywords =
  ["!"; "!+"; "!-"; "!="; "#"; "%"; "&"; "&&"; "'"; "("; ")"; "*"; "**"; "+";
   "+!"; "+."; "+="; ","; "-"; "-!"; "-."; "->"; "."; ".."; "/"; ":"; "::";
   ":="; ":>"; ";"; ";;"; "<"; "<-"; "<="; "<>"; "="; "=="; ">"; ">="; ">}";
   "?"; "@"; "["; "[%"; "[%%"; "[<"; "[@"; "[@@"; "[@@@"; "[|"; "]"; "^"; "_";
   "`"; "and"; "as"; "asr"; "assert"; "begin"; "class"; "constraint"; "do";
   "done"; "downto"; "else"; "end"; "exception"; "external"; "false"; "for";
   "fun"; "function"; "functor"; "if"; "in"; "include"; "inherit";
   "initializer"; "land"; "lazy"; "let"; "lor"; "lsl"; "lsr"; "lxor"; "match";
   "method"; "mod"; "module"; "mutable"; "new"; "nonrec"; "object"; "of";
   "open"; "or"; "private"; "rec"; "sig"; "struct"; "then"; "to"; "true";
   "try"; "type"; "val"; "virtual"; "when"; "while"; "with"; "{"; "{<"; "|";
   "|]"; "||"; "}"; "~"; "~-"; "~-."]
let keywords_hash = Hashtbl.create 23
let _ = List.iter (fun k -> Hashtbl.add keywords_hash k k) keywords