let yyact = [|
(fun _ -> failwith "parser")
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 1 : 'faust_exp) in
Obj.repr(
# 16 "parser.mly"
( _1 )
# 167 "parser.ml"
: Types.faust_exp))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
Obj.repr(
# 17 "parser.mly"
( Const(N (int_of_string _1)) )
# 174 "parser.ml"
: 'faust_exp))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in
Obj.repr(
# 18 "parser.mly"
( Const(R (float_of_string _1)) )
# 181 "parser.ml"
: 'faust_exp))
; (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(
# 19 "parser.mly"
( Const(R (float_of_string (_1 ^ "." ^ _3))) )
# 189 "parser.ml"
: 'faust_exp))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
Obj.repr(
# 20 "parser.mly"
( Ident(symbol_of_string _1) )
# 196 "parser.ml"
: 'faust_exp))
; (fun __caml_parser_env ->
let _2 = (Parsing.peek_val __caml_parser_env 1 : 'faust_exp) in
Obj.repr(
# 21 "parser.mly"
( _2 )
# 203 "parser.ml"
: 'faust_exp))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 2 : 'faust_exp) in
let _3 = (Parsing.peek_val __caml_parser_env 0 : 'faust_exp) in
Obj.repr(
# 22 "parser.mly"
( Par(_1,_3) )
# 211 "parser.ml"
: 'faust_exp))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 2 : 'faust_exp) in
let _3 = (Parsing.peek_val __caml_parser_env 0 : 'faust_exp) in
Obj.repr(
# 23 "parser.mly"
( Split(_1,_3) )
# 219 "parser.ml"
: 'faust_exp))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 2 : 'faust_exp) in
let _3 = (Parsing.peek_val __caml_parser_env 0 : 'faust_exp) in
Obj.repr(
# 24 "parser.mly"
( Merge(_1,_3) )
# 227 "parser.ml"
: 'faust_exp))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 2 : 'faust_exp) in
let _3 = (Parsing.peek_val __caml_parser_env 0 : 'faust_exp) in
Obj.repr(
# 25 "parser.mly"
( Seq(_1,_3) )
# 235 "parser.ml"
: 'faust_exp))
; (fun __caml_parser_env ->
let _1 = (Parsing.peek_val __caml_parser_env 2 : 'faust_exp) in
let _3 = (Parsing.peek_val __caml_parser_env 0 : 'faust_exp) in
Obj.repr(
# 26 "parser.mly"
( Rec(_1,_3) )
# 243 "parser.ml"
: 'faust_exp))
; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0)))
|]