testsuite/tests/tool-lexyacc/chars.mll


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

(* TEST
 ocamllex_flags = " -q ";
*)

{
let f' _ = ()
let f1 _ = ()
let f2 _ _ = ()
}

rule token = parse
  | 'a' { f' '"' }
  | 'b' { f2 '\o170' '"' }
  | 'c' { f1 "\u{1F42B}" }
  | 'd' { f1 {|}|} }
  | 'e' { (* " *) } (* " *) }
  | 'f' { (* {%foo bar| *) } (* |bar} *) }