Rename interpretor to interpreter.

[Faustine.git] / interpretor / value.ml

diff --git a/interpretor/value.ml b/interpretor/value.ml
deleted file mode 100644 (file)
index 3c97aa0..0000000
--- a/interpretor/value.ml
+++ /dev/null
@@ -1,57 +0,0 @@
-(**
-       Module: Value   
-       Description: basic data type in the vectorial faust interpreter.
-       @author WANG Haisheng   
-       Created: 31/05/2013     Modified: 17/07/2013
-*)
-
-open Types;;
-open Basic;;
-
-let convert : (basic -> 'a) -> basic -> 'a = 
-  fun oper -> fun b -> oper b;;
-
-class value : basic -> value_type = 
-  fun (b_init : basic) ->
-    object (self)
-      val mutable b = b_init
-      method get = b
-      method normalize = b <- basic_normalize self#get
-
-      method to_float = convert basic_to_float self#get
-      method to_int = convert basic_to_int self#get      
-      method to_float_array = convert basic_to_float_array self#get
-      method to_string = convert basic_to_string self#get
-      method of_float_array : float array -> value_type =
-       fun data -> new value (basic_of_float_array data)
-
-      method private prim1 : (basic -> basic) -> value = 
-       fun oper -> 
-         new value (oper self#get)
-
-      method neg = self#prim1 basic_neg
-      method recip = self#prim1 basic_recip
-      method zero = self#prim1 basic_zero
-      method floor = self#prim1 basic_floor
-      method int = self#prim1 basic_int
-      method sin = self#prim1 basic_sin
-      method cos = self#prim1 basic_cos
-      method atan = self#prim1 basic_atan
-      method sqrt = self#prim1 basic_sqrt
-
-      method private prim2 : (basic -> basic -> basic) -> value -> value = 
-       fun oper ->
-         fun v ->
-           new value (oper self#get v#get)
-
-      method add = self#prim2 basic_add
-      method sub = self#prim2 basic_sub
-      method mul = self#prim2 basic_mul
-      method div = self#prim2 basic_div
-      method atan2 = self#prim2 basic_atan2
-      method _mod = self#prim2 basic_mod
-      method larger = self#prim2 basic_larger
-      method smaller = self#prim2 basic_smaller
-
-    end;;
-