projects
/
Faustine.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adding new source file faustio.ml, including class waveio and class csvio.
[Faustine.git]
/
interpretor
/
process.ml
diff --git
a/interpretor/faustexp.ml
b/interpretor/process.ml
similarity index 96%
rename from
interpretor/faustexp.ml
rename to
interpretor/process.ml
index
e8ff318
..
31cc6c9
100644
(file)
--- a/
interpretor/faustexp.ml
+++ b/
interpretor/process.ml
@@
-1,11
+1,12
@@
(**
(**
- Module:
Faustexp
- Description: Faust
expression evaluation
+ Module:
Process
+ Description: Faust
process classes
@author WANG Haisheng
@author WANG Haisheng
- Created: 03/06/2013 Modified:
0
4/08/2013
+ Created: 03/06/2013 Modified:
1
4/08/2013
*)
open Types;;
*)
open Types;;
+open Aux;;
open Basic;;
open Symbol;;
open Value;;
open Basic;;
open Symbol;;
open Value;;
@@
-269,12
+270,6
@@
and proc_rec : faust_exp -> process_type =
(beam_func t).(i) in
Array.init self#dim#output (get_signal beam_at) in
(beam_func t).(i) in
Array.init self#dim#output (get_signal beam_at) in
- let array_map2 = fun f -> fun a -> fun b ->
- let n1 = Array.length a in
- let n2 = Array.length b in
- if n1 = n2 then Array.init n1 (fun i -> f a.(i) b.(i))
- else raise (Process_error "Array.map2 size not matched.") in
-
let feedback : (time -> value_type array) -> beam =
fun beam_at ->
let signals_at = split beam_at in
let feedback : (time -> value_type array) -> beam =
fun beam_at ->
let signals_at = split beam_at in