X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/06159b51a934937f647ec7119b47cb466d8e50b1..66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83:/interpretor/types.ml?ds=sidebyside

diff --git a/interpretor/types.ml b/interpretor/types.ml
deleted file mode 100644
index 5c2c29d..0000000
--- a/interpretor/types.ml
+++ /dev/null
@@ -1,83 +0,0 @@
-type value = N of int
-           | R of float
-           | Vec of int * (int -> value)
-	   | Zero
-           | W
-
-(** type symbol, defines valid identifiers in faust expressions.*)
-type symbol = Add
-  	    | Sup
-	    | Mul
-	    | Div
-	    | Pass
-	    | Stop
-	    | Mem
-	    | Delay
-	    | Floor
-	    | Int
-	    | Sin
-	    | Cos
-	    | Atan
-	    | Atantwo
-	    | Sqrt
-	    | Rdtable
-	    | Mod
-	    | Vectorize
-	    | Concat
-	    | Nth
-	    | Serialize
-	    | Larger
-	    | Smaller
-	    | Prefix
-	    | Selecttwo
-	    | Selectthree
-
-exception Symbol_not_defined;;
-
-let symbol_of_string = fun s ->
-                        match s with
-    			|"+"			->	Add
-			|"-"			->	Sup		
-			|"*"			->	Mul
-			|"/"			->	Div
-			|"_"			->	Pass
-			|"!"			->	Stop
-			|"mem"			->	Mem
-			|"@"			->	Delay
-			|"floor"		->	Floor
-			|"int"			->	Int
-			|"sin"			->	Sin
-			|"cos"                  ->      Cos
-			|"atan"                 ->      Atan
-			|"atantwo"              ->      Atantwo
-			|"sqrt"                 ->      Sqrt
-			|"rdtable"		->	Rdtable
-			|"%"			->	Mod
-			|"vectorize"		->	Vectorize
-			|"#"			->	Concat
-			|"[]"			->	Nth
-			|"serialize"		->	Serialize
-			|">"			->	Larger
-			|"<"			->	Smaller
-			|"prefix"		->	Prefix
-			|"selecttwo"		->	Selecttwo
-			|"selectthree"		->	Selectthree
-			| _                     ->      raise Symbol_not_defined
-
-
-
-type signal = int * (int -> value)
-
-
-type faust_exp =
-         Const of value
-       | Ident of symbol
-       | Par   of faust_exp * faust_exp
-       | Seq   of faust_exp * faust_exp
-       | Rec   of faust_exp * faust_exp
-       | Split of faust_exp * faust_exp
-       | Merge of faust_exp * faust_exp
-
-
-type dimension = End of (int * int)
-               | Tree of (int * int) * (dimension * dimension)