Bug fixed for unix error "readlink /proc/self/fd/0" on MacOS.

[Faustine.git] / interpreter / types.ml

diff --git a/interpreter/types.ml b/interpreter/types.ml
index da486f2..aa82868 100644 (file)
--- a/interpreter/types.ml
+++ b/interpreter/types.ml
@@ -24,6 +24,7 @@ class type value_type =
     method to_float_array : float array
     method of_float_array : float array -> value_type
     method to_string : string
     method to_float_array : float array
     method of_float_array : float array -> value_type
     method to_string : string

+    method to_neststring : string

     method normalize : unit
     method add : value_type -> value_type
     method neg : value_type
     method normalize : unit
     method add : value_type -> value_type
     method neg : value_type


@@ -216,6 +217,8 @@ type matrix = float array array;;
 
 type data = float array array array;;
 
 
 type data = float array array array;;
 

+type raw_data = value_type array array;;
+

 class type beam_type =
     object
       method get : signal_type array
 class type beam_type =
     object
       method get : signal_type array


@@ -226,6 +229,7 @@ class type beam_type =
       method matching : int -> beam_type
       method at : time -> value_type array
       method output : int -> data
       method matching : int -> beam_type
       method at : time -> value_type array
       method output : int -> data

+      method output_values : int -> raw_data

       method frequency : rate_type array
     end;;
 
       method frequency : rate_type array
     end;;
 


@@ -255,5 +259,12 @@ class type io_type =
     object
       method set : string -> string -> string -> unit
       method read : string array -> beam_type
     object
       method set : string -> string -> string -> unit
       method read : string array -> beam_type

-      method write : rate_type array -> data -> string array
+      method write : rate_type array -> data -> string * string -> string array

     end;;
     end;;

+
+
+type nest =
+         Scalar of float
+       | Vector of nestpar
+and nestpar = Unary of nest
+            | Binary of nest * nestpar;;
\ No newline at end of file