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   
-       Created: 03/06/2013     Modified: 04/08/2013
+       Created: 03/06/2013     Modified: 14/08/2013
 *)
 
 open Types;;
+open Aux;;
 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
 
-         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