blob: b91f26185978e6765a080299a59ee3f555f22ed0 (
plain)
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} *) }
|