Add abstrat type matrix and data.

[Faustine.git] / interpretor / value.ml

diff --git a/interpretor/value.ml b/interpretor/value.ml
index a13739e..ef05f43 100644 (file)
--- a/interpretor/value.ml
+++ b/interpretor/value.ml
@@ -22,6 +22,8 @@ class value : basic -> value_type =
       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 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 -> 
 
       method private prim1 : (basic -> basic) -> value = 
        fun oper -> 


@@ -50,6 +52,8 @@ class value : basic -> value_type =
       method _mod = self#prim2 basic_mod
       method larger = self#prim2 basic_larger
       method smaller = self#prim2 basic_smaller
       method _mod = self#prim2 basic_mod
       method larger = self#prim2 basic_larger
       method smaller = self#prim2 basic_smaller

+      method max = self#prim2 basic_max
+      method min = self#prim2 basic_min

 
     end;;
 
 
     end;;