let yyact = [|
(fun _ -> failwith "parser")
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 1 : 'chunk_list_0) in
Obj.repr(
# 84 "tmpl-engine/tmplParser.mly"
( T.Tmpl (None, List.rev _1) )
# 164 "tmpl-engine/tmplParser.ml"
: Template.template))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 2 : 'init) in
let _2 = (Parsing.peek_val __caml_parser_env 1 : 'chunk_list_0) in
Obj.repr(
# 85 "tmpl-engine/tmplParser.mly"
( T.Tmpl (Some _1, List.rev _2) )
# 172 "tmpl-engine/tmplParser.ml"
: Template.template))
; (fun __caml_parser_env ->
let _2 = (Parsing.peek_val __caml_parser_env 1 : string) in
Obj.repr(
# 89 "tmpl-engine/tmplParser.mly"
( _2 )
# 179 "tmpl-engine/tmplParser.ml"
: 'init))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 0 : 'text) in
Obj.repr(
# 94 "tmpl-engine/tmplParser.mly"
( T.Tmpl_Text _1 )
# 186 "tmpl-engine/tmplParser.ml"
: 'chunk))
; (fun __caml_parser_env ->
let _2 = (Parsing.peek_val __caml_parser_env 1 : string) in
Obj.repr(
# 96 "tmpl-engine/tmplParser.mly"
( T.Tmpl_Caml _2 )
# 193 "tmpl-engine/tmplParser.ml"
: 'chunk))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 2 : 'block_begin) in
let _2 = (Parsing.peek_val __caml_parser_env 1 : 'chunk_list_0) in
let _3 = (Parsing.peek_val __caml_parser_env 0 : 'block_end) in
Obj.repr(
# 98 "tmpl-engine/tmplParser.mly"
( if _1.bd_id <> _3 then
raise Invalid_template;
get_block (List.rev _2) _1 )
# 204 "tmpl-engine/tmplParser.ml"
: 'chunk))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
Obj.repr(
# 104 "tmpl-engine/tmplParser.mly"
( _1 )
# 211 "tmpl-engine/tmplParser.ml"
: 'text))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in
let _2 = (Parsing.peek_val __caml_parser_env 0 : 'text) in
Obj.repr(
# 105 "tmpl-engine/tmplParser.mly"
( _1 ^ _2 )
# 219 "tmpl-engine/tmplParser.ml"
: 'text))
; (fun __caml_parser_env ->
let _2 = (Parsing.peek_val __caml_parser_env 1 : string) in
Obj.repr(
# 110 "tmpl-engine/tmplParser.mly"
( { bd_id = _2;
bd_args = [];
bd_ocaml = None; } )
# 228 "tmpl-engine/tmplParser.ml"
: 'block_begin))
; (fun __caml_parser_env ->
let _2 = (Parsing.peek_val __caml_parser_env 2 : string) in
let _3 = (Parsing.peek_val __caml_parser_env 1 : string) in
Obj.repr(
# 115 "tmpl-engine/tmplParser.mly"
( { bd_id = _2;
bd_args = [];
bd_ocaml = Some _3; } )
# 238 "tmpl-engine/tmplParser.ml"
: 'block_begin))
; (fun __caml_parser_env ->
let _2 = (Parsing.peek_val __caml_parser_env 3 : string) in
let _4 = (Parsing.peek_val __caml_parser_env 1 : 'args_list_1) in
Obj.repr(
# 120 "tmpl-engine/tmplParser.mly"
( { bd_id = _2;
bd_args = _4;
bd_ocaml = None; } )
# 248 "tmpl-engine/tmplParser.ml"
: 'block_begin))
; (fun __caml_parser_env ->
let _2 = (Parsing.peek_val __caml_parser_env 4 : string) in
let _4 = (Parsing.peek_val __caml_parser_env 2 : 'args_list_1) in
let _5 = (Parsing.peek_val __caml_parser_env 1 : string) in
Obj.repr(
# 125 "tmpl-engine/tmplParser.mly"
( { bd_id = _2;
bd_args = _4;
bd_ocaml = Some _5; } )
# 259 "tmpl-engine/tmplParser.ml"
: 'block_begin))
; (fun __caml_parser_env ->
let _2 = (Parsing.peek_val __caml_parser_env 1 : string) in
Obj.repr(
# 132 "tmpl-engine/tmplParser.mly"
( _2 )
# 266 "tmpl-engine/tmplParser.ml"
: 'block_end))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 0 : 'chunk) in
Obj.repr(
# 135 "tmpl-engine/tmplParser.mly"
( [_1] )
# 273 "tmpl-engine/tmplParser.ml"
: 'chunk_list_1))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 1 : 'chunk_list_1) in
let _2 = (Parsing.peek_val __caml_parser_env 0 : 'chunk) in
Obj.repr(
# 136 "tmpl-engine/tmplParser.mly"
( _2 :: _1 )
# 281 "tmpl-engine/tmplParser.ml"
: 'chunk_list_1))
; (fun __caml_parser_env ->
Obj.repr(
# 140 "tmpl-engine/tmplParser.mly"
( [] )
# 287 "tmpl-engine/tmplParser.ml"
: 'chunk_list_0))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 0 : 'chunk_list_1) in
Obj.repr(
# 141 "tmpl-engine/tmplParser.mly"
( _1 )
# 294 "tmpl-engine/tmplParser.ml"
: 'chunk_list_0))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 0 : 'arg) in
Obj.repr(
# 145 "tmpl-engine/tmplParser.mly"
( [_1] )
# 301 "tmpl-engine/tmplParser.ml"
: 'args_list_1))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 2 : 'args_list_1) in
let _3 = (Parsing.peek_val __caml_parser_env 0 : 'arg) in
Obj.repr(
# 146 "tmpl-engine/tmplParser.mly"
( _3 :: _1 )
# 309 "tmpl-engine/tmplParser.ml"
: 'args_list_1))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 2 : string) in
let _3 = (Parsing.peek_val __caml_parser_env 0 : string) in
Obj.repr(
# 150 "tmpl-engine/tmplParser.mly"
( (_1, _3) )
# 317 "tmpl-engine/tmplParser.ml"
: 'arg))
; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0)))
|]