X-Git-Url: https://svn.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/a6a80a5868c766f1a5360fd27f132fad425f8fe5..b8e89a384896a4f8ce3e1990a10c88e7164af55c:/interpretor/types.ml diff --git a/interpretor/types.ml b/interpretor/types.ml index a252ed9..352afbe 100644 --- a/interpretor/types.ml +++ b/interpretor/types.ml @@ -22,6 +22,7 @@ class type value_type = method to_int : int method to_float : float method to_float_array : float array + method of_float_array : float array -> value_type method to_string : string method normalize : unit method add : value_type -> value_type @@ -41,6 +42,8 @@ class type value_type = method _mod : value_type -> value_type method larger : value_type -> value_type method smaller : value_type -> value_type + method max : value_type -> value_type + method min : value_type -> value_type end;; @@ -67,6 +70,8 @@ type symbol = Add | Serialize | Larger | Smaller + | Max + | Min | Prefix | Select2 | Select3 @@ -108,6 +113,8 @@ class type signal_type = method _mod : signal_type -> signal_type method larger : signal_type -> signal_type method smaller : signal_type -> signal_type + method max : signal_type -> signal_type + method min : signal_type -> signal_type method rdtable : signal_type -> signal_type -> signal_type method select2 : signal_type -> signal_type -> signal_type method select3 : signal_type -> signal_type -> signal_type -> signal_type @@ -124,7 +131,7 @@ class type beam_type = method append : beam_type -> beam_type method matching : int -> beam_type method at : time -> value_type array - method output : int -> value_type array array + method output : int -> float array array array method frequency : int array end;; @@ -148,3 +155,11 @@ class type process_type = method delay : int method eval : beam_type -> beam_type end;; + + +class type io_type = + object + method set : string -> string -> unit + method read : string array -> beam_type + method write : int array -> float array array array -> string array + end;;