1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
module MenhirBasics = struct
exception Error
let _eRR =
fun _s ->
raise Error
type token =
| EOF
| CLASS of (
# 3 "src/parser.mly"
(string)
# 16 "src/parser.ml"
)
end
include MenhirBasics
# 1 "src/parser.mly"
open Types
# 25 "src/parser.ml"
type ('s, 'r) _menhir_state
and _menhir_box_prog =
| MenhirBox_prog of (Types.selector option) [@@unboxed]
let _menhir_action_1 =
fun s ->
(
# 10 "src/parser.mly"
( Some s )
# 37 "src/parser.ml"
: (Types.selector option))
let _menhir_action_2 =
fun () ->
(
# 11 "src/parser.mly"
( None )
# 45 "src/parser.ml"
: (Types.selector option))
let _menhir_action_3 =
fun c ->
(
# 14 "src/parser.mly"
( Class c )
# 53 "src/parser.ml"
: (Types.selector))
let _menhir_print_token : token -> string =
fun _tok ->
match _tok with
| CLASS _ ->
"CLASS"
| EOF ->
"EOF"
let _menhir_fail : unit -> 'a =
fun () ->
Printf.eprintf "Internal failure -- please contact the parser generator's developers.\n%!";
assert false
include struct
[@@@ocaml.warning "-4-37"]
let _menhir_goto_prog : type ttv_stack. ttv_stack -> _ -> _menhir_box_prog =
fun _menhir_stack _v ->
MenhirBox_prog _v
let _menhir_run_0 : type ttv_stack. ttv_stack -> _ -> _ -> _menhir_box_prog =
fun _menhir_stack _menhir_lexbuf _menhir_lexer ->
let _tok = _menhir_lexer _menhir_lexbuf in
match (_tok : MenhirBasics.token) with
| EOF ->
let _v = _menhir_action_2 () in
_menhir_goto_prog _menhir_stack _v
| CLASS _v ->
let c = _v in
let _v = _menhir_action_3 c in
let s = _v in
let _v = _menhir_action_1 s in
_menhir_goto_prog _menhir_stack _v
end
let prog =
fun _menhir_lexer _menhir_lexbuf ->
let _menhir_stack = () in
let MenhirBox_prog v = _menhir_run_0 _menhir_stack _menhir_lexbuf _menhir_lexer in
v