OCamlLex case-insenstitive

Question

有没有办法在Ocamllex规范中使用大小写敏感令牌？我已经尝试以这种方式创建大小写敏感令牌:

let token = parser
    ...
   | ['C''c']['A''a']['S''s']['E''e'] { CASE }
    ...

但我正在寻找别的东西,如果存在的话.

Answer 1

使用接受小写和大写的普通令牌词法分析器,并在表格中查找关键词,忽略大小写:

{
type token = Case | Test | Ident of string

let keyword_tbl = Hashtbl.create 64

let _ = List.iter (fun (name, keyword) ->
    Hashtbl.add keyword_tbl name keyword) [
    "case", Case;
    "test", Test;
  ]
}

let ident_char = ['a'-'z' 'A'-'Z' '_']

rule next_token = parse
  | ident_char+ as s {
      let canon = String.lowercase s in
      try Hashtbl.find keyword_tbl canon
      with Not_found ->
        (* `Ident canon` if you want case-insensitive vars as well
         * as keywords *)
        Ident s
    }