blob: d881fc77d21bf2c068c9f372d90c0c173120f44c (
plain)
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
97
98
99
100
101
102
103
104
105
106
107
108
|
type token =
| STRING of (string)
| EOF
open Parsing;;
# 23 "stringParser.mly"
# 10 "stringParser.ml"
let yytransl_const = [|
0 (* EOF *);
0|]
let yytransl_block = [|
257 (* STRING *);
0|]
let yylhs = "\255\255\
\001\000\001\000\001\000\000\000"
let yylen = "\002\000\
\000\000\001\000\002\000\002\000"
let yydefred = "\000\000\
\000\000\000\000\002\000\000\000\003\000"
let yydgoto = "\002\000\
\004\000"
let yysindex = "\255\255\
\000\255\000\000\000\000\001\255\000\000"
let yyrindex = "\000\000\
\003\000\000\000\000\000\004\000\000\000"
let yygindex = "\000\000\
\000\000"
let yytablesize = 4
let yytable = "\001\000\
\003\000\005\000\001\000\004\000"
let yycheck = "\001\000\
\001\001\001\001\000\000\000\000"
let yynames_const = "\
EOF\000\
"
let yynames_block = "\
STRING\000\
"
let yyact = [|
(fun _ -> failwith "parser")
; (fun __caml_parser_env ->
Obj.repr(
# 38 "stringParser.mly"
( "" )
# 61 "stringParser.ml"
: string))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
Obj.repr(
# 39 "stringParser.mly"
( _1 )
# 68 "stringParser.ml"
: string))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in
let _2 = (Parsing.peek_val __caml_parser_env 0 : string) in
Obj.repr(
# 40 "stringParser.mly"
( _1 ^ _2 )
# 76 "stringParser.ml"
: string))
(* Entry parse_string *)
; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0)))
|]
let yytables =
{ Parsing.actions=yyact;
Parsing.transl_const=yytransl_const;
Parsing.transl_block=yytransl_block;
Parsing.lhs=yylhs;
Parsing.len=yylen;
Parsing.defred=yydefred;
Parsing.dgoto=yydgoto;
Parsing.sindex=yysindex;
Parsing.rindex=yyrindex;
Parsing.gindex=yygindex;
Parsing.tablesize=yytablesize;
Parsing.table=yytable;
Parsing.check=yycheck;
Parsing.error_function=parse_error;
Parsing.names_const=yynames_const;
Parsing.names_block=yynames_block }
let parse_string (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) =
(Parsing.yyparse yytables 1 lexfun lexbuf : string)
;;
# 43 "stringParser.mly"
let parse token_fun lexbuf =
try
parse_string token_fun lexbuf
with
| _ -> assert false
# 109 "stringParser.ml"
|
