# Library paths for OCaml and libsndfile-ocaml
# OCAML_INCLUDE_PATH
# SNDFILE_PATH
-OCAML_INCLUDE_PATH = /usr/local/lib/ocaml
-SNDFILE_PATH = /Users/karimbarkati/Boulot/2013-07-CRI/Interpretor/libsndfile-ocaml
+OCAML_INCLUDE_PATH = /usr/lib/ocaml
+SNDFILE_PATH = ~/Desktop/libsndfile-ocaml
prefix="${PWD}"
INTERPRETOR_PATH="$prefix/interpretor"
-PREPROCESSOR_PATH="$INTERPRETOR_PATH/faust-0.9.47mr3"
+PREPROCESSOR_PATH="$INTERPRETOR_PATH/preprocessor/faust-0.9.47mr3"
OCAML_INCLUDE_PATH_DEFAULT="/usr/lib/ocaml"
SNDFILE_PATH_DEFAULT="~/Desktop/libsndfile-ocaml"
+++ /dev/null
-types.cmo :
-types.cmx :
-parser.cmo : types.cmo parser.cmi
-parser.cmx : types.cmx parser.cmi
-basic.cmo : types.cmo
-basic.cmx : types.cmx
-symbol.cmo : types.cmo
-symbol.cmx : types.cmx
-aux.cmo :
-aux.cmx :
-value.cmo : types.cmo basic.cmo
-value.cmx : types.cmx basic.cmx
-signal.cmo : value.cmo types.cmo basic.cmo
-signal.cmx : value.cmx types.cmx basic.cmx
-beam.cmo : value.cmo types.cmo signal.cmo basic.cmo
-beam.cmx : value.cmx types.cmx signal.cmx basic.cmx
-process.cmo : value.cmo types.cmo symbol.cmo signal.cmo parser.cmi beam.cmo \
- basic.cmo aux.cmo
-process.cmx : value.cmx types.cmx symbol.cmx signal.cmx parser.cmx beam.cmx \
- basic.cmx aux.cmx
-faustio.cmo : value.cmo types.cmo signal.cmo beam.cmo basic.cmo aux.cmo
-faustio.cmx : value.cmx types.cmx signal.cmx beam.cmx basic.cmx aux.cmx
-preprocess.cmo :
-preprocess.cmx :
-main.cmo : process.cmo preprocess.cmo faustio.cmo aux.cmo
-main.cmx : process.cmx preprocess.cmx faustio.cmx aux.cmx
-parser.cmi : types.cmo
+++ /dev/null
-aux.ml
-basic.ml
-beam.ml
-faustio.ml
-lexer.mll
-lexer.mll
-main.ml
-parser.ml
-parser.mli
-preprocess.ml
-preprocess_stubs.cpp
-preprocess_stubs.cpp
-process.ml
-signal.ml
-symbol.ml
-types.ml
-value.ml
LEXER_MLL = $(filter %.mll, $(SOURCES))
MIDDLE_ML = $(PARSER_MLY:.mly=.ml) $(LEXER_MLL:.mll=.ml)
-preprocessor:
- @(cd $(FAUST_PATH) && $(MAKE))
-
-$(EXEC): $(OBJS) $(COBJS)
+$(EXEC): $(OBJS) $(COBJS) $(CLIBS)
$(CAMLC) $(CAMLC_OPTIONS) -o $(EXEC) $(OBJS) $(COBJS) $(CLIBS)
-$(EXEC).opt: $(OPTOBJS) $(COBJS)
+$(EXEC).opt: $(OPTOBJS) $(COBJS) $(CLIBS)
$(CAMLOPT) $(CAMLOPT_OPTIONS) -o $(EXEC) $(OPTOBJS) $(COBJS) $(CLIBS)
+$(CLIBS):
+ @(cd $(FAUST_PATH) && $(MAKE))
+
document: $(SMLYL) $(OBJS)
$(CAMLDOC) $(CAMLDOC_OPTIONS) $(SMLYL)
+++ /dev/null
-# 1 "lexer.mll"
-
-open Parser
-open Types
-
-# 7 "lexer.ml"
-let __ocaml_lex_tables = {
- Lexing.lex_base =
- "\000\000\217\255\218\255\001\000\222\255\223\255\224\255\225\255\
- \017\000\002\000\001\000\233\255\000\000\236\255\000\000\238\255\
- \000\000\001\000\000\000\018\000\000\000\000\000\247\255\023\000\
- \249\255\250\255\251\255\252\255\253\255\254\255\255\255\003\000\
- \001\000\013\000\248\255\231\255\230\255\014\000\016\000\015\000\
- \246\255\014\000\245\255\024\000\019\000\024\000\244\255\019\000\
- \240\255\002\000\001\000\001\000\028\000\002\000\015\000\003\000\
- \234\255\040\000\024\000\025\000\038\000\029\000\033\000\228\255\
- \044\000\045\000\227\255\032\000\243\255\051\000\039\000\034\000\
- \032\000\041\000\241\255\037\000\057\000\057\000\048\000\057\000\
- \239\255\060\000\044\000\050\000\048\000\058\000\042\000\064\000\
- \237\255\235\255\220\255\065\000\065\000\063\000\049\000\229\255\
- \219\255";
- Lexing.lex_backtrk =
- "\255\255\255\255\255\255\034\000\255\255\255\255\255\255\255\255\
- \029\000\255\255\023\000\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\013\000\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255";
- Lexing.lex_default =
- "\255\255\000\000\000\000\255\255\000\000\000\000\000\000\000\000\
- \255\255\255\255\255\255\000\000\255\255\000\000\255\255\000\000\
- \255\255\255\255\255\255\255\255\255\255\255\255\000\000\255\255\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\255\255\
- \255\255\255\255\000\000\000\000\000\000\255\255\255\255\255\255\
- \000\000\255\255\000\000\255\255\255\255\255\255\000\000\255\255\
- \000\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \000\000\255\255\255\255\255\255\255\255\255\255\255\255\000\000\
- \255\255\255\255\000\000\255\255\000\000\255\255\255\255\255\255\
- \255\255\255\255\000\000\255\255\255\255\255\255\255\255\255\255\
- \000\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \000\000\000\000\000\000\255\255\255\255\255\255\255\255\000\000\
- \000\000";
- Lexing.lex_trans =
- "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\030\000\030\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \030\000\024\000\000\000\013\000\000\000\015\000\000\000\000\000\
- \006\000\005\000\027\000\029\000\004\000\028\000\007\000\026\000\
- \008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\
- \008\000\008\000\003\000\090\000\010\000\000\000\011\000\096\000\
- \022\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\
- \008\000\008\000\008\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\012\000\000\000\089\000\000\000\025\000\
- \000\000\017\000\052\000\018\000\075\000\081\000\021\000\057\000\
- \056\000\020\000\051\000\054\000\037\000\023\000\041\000\067\000\
- \009\000\036\000\016\000\019\000\091\000\069\000\014\000\043\000\
- \032\000\035\000\034\000\045\000\033\000\038\000\002\000\039\000\
- \031\000\040\000\042\000\044\000\049\000\047\000\046\000\048\000\
- \053\000\055\000\050\000\058\000\059\000\060\000\061\000\064\000\
- \063\000\065\000\066\000\068\000\070\000\071\000\072\000\073\000\
- \074\000\076\000\077\000\078\000\079\000\062\000\080\000\082\000\
- \083\000\084\000\085\000\086\000\087\000\088\000\092\000\093\000\
- \094\000\095\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000";
- Lexing.lex_check =
- "\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\000\000\000\000\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \000\000\000\000\255\255\000\000\255\255\000\000\255\255\255\255\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
- \000\000\000\000\000\000\010\000\000\000\255\255\000\000\003\000\
- \000\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\
- \008\000\008\000\008\000\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\000\000\255\255\012\000\255\255\000\000\
- \255\255\000\000\051\000\000\000\016\000\014\000\000\000\049\000\
- \055\000\000\000\050\000\053\000\021\000\000\000\020\000\018\000\
- \000\000\031\000\000\000\000\000\009\000\017\000\000\000\019\000\
- \023\000\032\000\033\000\019\000\023\000\037\000\000\000\038\000\
- \023\000\039\000\041\000\019\000\043\000\044\000\045\000\047\000\
- \052\000\054\000\043\000\057\000\058\000\059\000\060\000\061\000\
- \062\000\064\000\065\000\067\000\069\000\070\000\071\000\072\000\
- \073\000\075\000\076\000\077\000\078\000\060\000\079\000\081\000\
- \082\000\083\000\084\000\085\000\086\000\087\000\091\000\092\000\
- \093\000\094\000\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \000\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
- \255\255\255\255";
- Lexing.lex_base_code =
- "";
- Lexing.lex_backtrk_code =
- "";
- Lexing.lex_default_code =
- "";
- Lexing.lex_trans_code =
- "";
- Lexing.lex_check_code =
- "";
- Lexing.lex_code =
- "";
-}
-
-let rec token lexbuf =
- __ocaml_lex_token_rec lexbuf 0
-and __ocaml_lex_token_rec lexbuf __ocaml_lex_state =
- match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with
- | 0 ->
-# 7 "lexer.mll"
- ( token lexbuf )
-# 156 "lexer.ml"
-
- | 1 ->
-# 9 "lexer.mll"
- ( IDENT Add)
-# 161 "lexer.ml"
-
- | 2 ->
-# 10 "lexer.mll"
- ( IDENT Sub)
-# 166 "lexer.ml"
-
- | 3 ->
-# 11 "lexer.mll"
- ( IDENT Mul)
-# 171 "lexer.ml"
-
- | 4 ->
-# 12 "lexer.mll"
- ( IDENT Div)
-# 176 "lexer.ml"
-
- | 5 ->
-# 13 "lexer.mll"
- ( IDENT Pass)
-# 181 "lexer.ml"
-
- | 6 ->
-# 14 "lexer.mll"
- ( IDENT Stop)
-# 186 "lexer.ml"
-
- | 7 ->
-# 15 "lexer.mll"
- ( IDENT Mem)
-# 191 "lexer.ml"
-
- | 8 ->
-# 16 "lexer.mll"
- ( IDENT Delay)
-# 196 "lexer.ml"
-
- | 9 ->
-# 17 "lexer.mll"
- ( IDENT Floor)
-# 201 "lexer.ml"
-
- | 10 ->
-# 18 "lexer.mll"
- ( IDENT Int)
-# 206 "lexer.ml"
-
- | 11 ->
-# 19 "lexer.mll"
- ( IDENT Sin)
-# 211 "lexer.ml"
-
- | 12 ->
-# 20 "lexer.mll"
- ( IDENT Cos)
-# 216 "lexer.ml"
-
- | 13 ->
-# 21 "lexer.mll"
- ( IDENT Atan)
-# 221 "lexer.ml"
-
- | 14 ->
-# 22 "lexer.mll"
- ( IDENT Atan2)
-# 226 "lexer.ml"
-
- | 15 ->
-# 23 "lexer.mll"
- ( IDENT Sqrt)
-# 231 "lexer.ml"
-
- | 16 ->
-# 24 "lexer.mll"
- ( IDENT Rdtable)
-# 236 "lexer.ml"
-
- | 17 ->
-# 25 "lexer.mll"
- ( IDENT Mod)
-# 241 "lexer.ml"
-
- | 18 ->
-# 26 "lexer.mll"
- ( IDENT Vectorize)
-# 246 "lexer.ml"
-
- | 19 ->
-# 27 "lexer.mll"
- ( IDENT Vconcat)
-# 251 "lexer.ml"
-
- | 20 ->
-# 28 "lexer.mll"
- ( IDENT Vpick )
-# 256 "lexer.ml"
-
- | 21 ->
-# 29 "lexer.mll"
- ( IDENT Serialize)
-# 261 "lexer.ml"
-
- | 22 ->
-# 30 "lexer.mll"
- ( IDENT Larger)
-# 266 "lexer.ml"
-
- | 23 ->
-# 31 "lexer.mll"
- ( IDENT Smaller)
-# 271 "lexer.ml"
-
- | 24 ->
-# 32 "lexer.mll"
- ( IDENT Max)
-# 276 "lexer.ml"
-
- | 25 ->
-# 33 "lexer.mll"
- ( IDENT Min)
-# 281 "lexer.ml"
-
- | 26 ->
-# 34 "lexer.mll"
- ( IDENT Prefix)
-# 286 "lexer.ml"
-
- | 27 ->
-# 35 "lexer.mll"
- ( IDENT Select2)
-# 291 "lexer.ml"
-
- | 28 ->
-# 36 "lexer.mll"
- ( IDENT Select3)
-# 296 "lexer.ml"
-
- | 29 ->
-let
-# 39 "lexer.mll"
- a
-# 302 "lexer.ml"
-= Lexing.sub_lexeme lexbuf lexbuf.Lexing.lex_start_pos lexbuf.Lexing.lex_curr_pos in
-# 39 "lexer.mll"
- ( CONST a )
-# 306 "lexer.ml"
-
- | 30 ->
-# 40 "lexer.mll"
- ( POINT )
-# 311 "lexer.ml"
-
- | 31 ->
-# 43 "lexer.mll"
- ( LPAR )
-# 316 "lexer.ml"
-
- | 32 ->
-# 44 "lexer.mll"
- ( RPAR )
-# 321 "lexer.ml"
-
- | 33 ->
-# 45 "lexer.mll"
- ( PAR )
-# 326 "lexer.ml"
-
- | 34 ->
-# 46 "lexer.mll"
- ( SEQ )
-# 331 "lexer.ml"
-
- | 35 ->
-# 47 "lexer.mll"
- ( SPLIT )
-# 336 "lexer.ml"
-
- | 36 ->
-# 48 "lexer.mll"
- ( MERGE )
-# 341 "lexer.ml"
-
- | 37 ->
-# 49 "lexer.mll"
- ( REC )
-# 346 "lexer.ml"
-
- | 38 ->
-# 50 "lexer.mll"
- ( EOF )
-# 351 "lexer.ml"
-
- | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf; __ocaml_lex_token_rec lexbuf __ocaml_lex_state
-
-;;
-
+++ /dev/null
-type token =
- | CONST of (string)
- | IDENT of (Types.symbol)
- | LPAR
- | RPAR
- | SEQ
- | SPLIT
- | MERGE
- | PAR
- | REC
- | EOF
- | POINT
-
-open Parsing;;
-let _ = parse_error;;
-# 1 "parser.mly"
-
- open Types
-# 20 "parser.ml"
-let yytransl_const = [|
- 259 (* LPAR *);
- 260 (* RPAR *);
- 261 (* SEQ *);
- 262 (* SPLIT *);
- 263 (* MERGE *);
- 264 (* PAR *);
- 265 (* REC *);
- 0 (* EOF *);
- 266 (* POINT *);
- 0|]
-
-let yytransl_block = [|
- 257 (* CONST *);
- 258 (* IDENT *);
- 0|]
-
-let yylhs = "\255\255\
-\001\000\002\000\002\000\002\000\002\000\002\000\002\000\002\000\
-\002\000\002\000\002\000\000\000"
-
-let yylen = "\002\000\
-\002\000\001\000\002\000\003\000\001\000\003\000\003\000\003\000\
-\003\000\003\000\003\000\002\000"
-
-let yydefred = "\000\000\
-\000\000\000\000\000\000\005\000\000\000\012\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\001\000\004\000\
-\006\000\000\000\000\000\000\000\000\000\011\000"
-
-let yydgoto = "\002\000\
-\006\000\007\000"
-
-let yysindex = "\255\255\
-\008\255\000\000\024\255\000\000\008\255\000\000\012\000\032\255\
-\023\255\008\255\008\255\008\255\008\255\008\255\000\000\000\000\
-\000\000\016\255\253\254\253\254\011\255\000\000"
-
-let yyrindex = "\000\000\
-\000\000\000\000\001\000\000\000\000\000\000\000\000\000\007\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\022\000\023\000\026\000\018\000\000\000"
-
-let yygindex = "\000\000\
-\000\000\003\000"
-
-let yytablesize = 286
-let yytable = "\001\000\
-\002\000\010\000\011\000\012\000\013\000\014\000\003\000\009\000\
-\003\000\004\000\005\000\015\000\018\000\019\000\020\000\021\000\
-\022\000\007\000\013\000\014\000\010\000\010\000\008\000\013\000\
-\014\000\009\000\017\000\010\000\011\000\012\000\013\000\014\000\
-\016\000\008\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
-\000\000\000\000\000\000\000\000\002\000\002\000\002\000\002\000\
-\002\000\002\000\003\000\003\000\003\000\003\000\003\000\003\000\
-\010\000\011\000\012\000\013\000\014\000\007\000\007\000\007\000\
-\007\000\010\000\008\000\010\000\010\000\009\000"
-
-let yycheck = "\001\000\
-\000\000\005\001\006\001\007\001\008\001\009\001\000\000\005\000\
-\001\001\002\001\003\001\000\000\010\000\011\000\012\000\013\000\
-\014\000\000\000\008\001\009\001\005\001\000\000\000\000\008\001\
-\009\001\000\000\004\001\005\001\006\001\007\001\008\001\009\001\
-\001\001\010\001\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
-\255\255\255\255\255\255\255\255\004\001\005\001\006\001\007\001\
-\008\001\009\001\004\001\005\001\006\001\007\001\008\001\009\001\
-\005\001\006\001\007\001\008\001\009\001\004\001\005\001\006\001\
-\007\001\004\001\004\001\006\001\007\001\004\001"
-
-let yynames_const = "\
- LPAR\000\
- RPAR\000\
- SEQ\000\
- SPLIT\000\
- MERGE\000\
- PAR\000\
- REC\000\
- EOF\000\
- POINT\000\
- "
-
-let yynames_block = "\
- CONST\000\
- IDENT\000\
- "
-
-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 )
-# 168 "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)) )
-# 175 "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)) )
-# 182 "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))) )
-# 190 "parser.ml"
- : 'faust_exp))
-; (fun __caml_parser_env ->
- let _1 = (Parsing.peek_val __caml_parser_env 0 : Types.symbol) in
- Obj.repr(
-# 20 "parser.mly"
- ( Ident(_1) )
-# 197 "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 )
-# 204 "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) )
-# 212 "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) )
-# 220 "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) )
-# 228 "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) )
-# 236 "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) )
-# 244 "parser.ml"
- : 'faust_exp))
-(* Entry main *)
-; (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 main (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) =
- (Parsing.yyparse yytables 1 lexfun lexbuf : Types.faust_exp)
+++ /dev/null
-type token =
- | CONST of (string)
- | IDENT of (Types.symbol)
- | LPAR
- | RPAR
- | SEQ
- | SPLIT
- | MERGE
- | PAR
- | REC
- | EOF
- | POINT
-
-val main :
- (Lexing.lexbuf -> token) -> Lexing.lexbuf -> Types.faust_exp