X-Git-Url: https://scm.cri.mines-paristech.fr/git/Faustine.git/blobdiff_plain/d204fe8a60e0556b0294e17c5c6948cb6cee7d91..c21be74684e409aaf08937e776c6cedce35b8fc0:/interpretor/process.ml

diff --git a/interpretor/process.ml b/interpretor/process.ml
index f094b7b..ba13961 100644
--- a/interpretor/process.ml
+++ b/interpretor/process.ml
@@ -131,28 +131,58 @@ class proc_ident : faust_exp -> process_type =
 		((input#get.(0))#mul input#get.(1))
 	  | Div -> self#beam_of_ident n 
 		((input#get.(0))#div input#get.(1))
+	  | Power -> self#beam_of_ident n
+		((input#get.(0))#power input#get.(1))
+	  | And -> self#beam_of_ident n
+		((input#get.(0))#_and input#get.(1))
+	  | Or -> self#beam_of_ident n
+		((input#get.(0))#_or input#get.(1))
+	  | Xor -> self#beam_of_ident n
+		((input#get.(0))#_xor input#get.(1))
 	  | Mem -> self#beam_of_ident n 
 		((input#get.(0))#mem)
 	  | Delay -> self#beam_of_ident n 
 		((input#get.(0))#delay input#get.(1))
 	  | Floor -> self#beam_of_ident n 
 		((input#get.(0))#floor)
+	  | Ceil -> self#beam_of_ident n 
+		((input#get.(0))#ceil)
+	  | Rint -> self#beam_of_ident n 
+		((input#get.(0))#rint)
 	  | Int -> self#beam_of_ident n 
 		((input#get.(0))#int)
+	  | Float -> self#beam_of_ident n 
+		((input#get.(0))#float)
 	  | Sin -> self#beam_of_ident n 
 		((input#get.(0))#sin)
+	  | Asin -> self#beam_of_ident n 
+		((input#get.(0))#asin)
 	  | Cos -> self#beam_of_ident n 
 		((input#get.(0))#cos)
+	  | Acos -> self#beam_of_ident n 
+		((input#get.(0))#acos)
+	  | Tan -> self#beam_of_ident n 
+		((input#get.(0))#tan)
 	  | Atan -> self#beam_of_ident n 
 		((input#get.(0))#atan)
 	  | Atan2 -> self#beam_of_ident n 
 		((input#get.(0))#atan2 input#get.(1))
+	  | Exp -> self#beam_of_ident n 
+		((input#get.(0))#exp)
 	  | Sqrt -> self#beam_of_ident n 
 		((input#get.(0))#sqrt)
-	  | Rdtable -> self#beam_of_ident n 
-		((input#get.(1))#rdtable input#get.(0) input#get.(2))
+	  | Ln -> self#beam_of_ident n 
+		((input#get.(0))#ln)
+	  | Lg -> self#beam_of_ident n 
+		((input#get.(0))#lg)
+	  | Abs -> self#beam_of_ident n 
+		((input#get.(0))#abs)
 	  | Mod -> self#beam_of_ident n 
 		((input#get.(0))#_mod input#get.(1))
+	  | Fmod -> self#beam_of_ident n 
+		((input#get.(0))#fmod input#get.(1))
+	  | Remainder -> self#beam_of_ident n 
+		((input#get.(0))#remainder input#get.(1))
 	  | Vectorize -> self#beam_of_ident n 
 		((input#get.(0))#vectorize input#get.(1))
 	  | Vconcat -> self#beam_of_ident n 
@@ -161,14 +191,26 @@ class proc_ident : faust_exp -> process_type =
 		((input#get.(0))#vpick input#get.(1))
 	  | Serialize -> self#beam_of_ident n 
 		(input#get.(0))#serialize
-	  | Larger -> self#beam_of_ident n 
-		((input#get.(0))#larger input#get.(1))
-	  | Smaller -> self#beam_of_ident n 
-		((input#get.(0))#smaller input#get.(1))
+	  | Gt -> self#beam_of_ident n 
+		((input#get.(0))#gt input#get.(1))
+	  | Lt -> self#beam_of_ident n 
+		((input#get.(0))#lt input#get.(1))
+	  | Geq -> self#beam_of_ident n 
+		((input#get.(0))#geq input#get.(1))
+	  | Leq -> self#beam_of_ident n 
+		((input#get.(0))#leq input#get.(1))
+	  | Eq -> self#beam_of_ident n 
+		((input#get.(0))#eq input#get.(1))
+	  | Neq -> self#beam_of_ident n 
+		((input#get.(0))#neq input#get.(1))
 	  | Max -> self#beam_of_ident n 
 		((input#get.(0))#max input#get.(1))
 	  | Min -> self#beam_of_ident n 
 		((input#get.(0))#min input#get.(1))
+	  | Shl -> self#beam_of_ident n 
+		((input#get.(0))#shl input#get.(1))
+	  | Shr -> self#beam_of_ident n 
+		((input#get.(0))#shr input#get.(1))
 	  | Prefix -> self#beam_of_ident n 
 		((input#get.(1))#prefix input#get.(0))
 	  | Select2 -> self#beam_of_ident n 
@@ -176,6 +218,11 @@ class proc_ident : faust_exp -> process_type =
 	  | Select3 -> self#beam_of_ident n 
 		((input#get.(0))#select3 input#get.(1) 
 		   input#get.(2) input#get.(3))
+	  | Rdtable -> self#beam_of_ident n 
+		((input#get.(1))#rdtable input#get.(0) input#get.(2))
+	  | Rwtable -> self#beam_of_ident n 
+		((input#get.(0))#rwtable input#get.(1) 
+		   input#get.(2) input#get.(3) input#get.(4))
       end;;
 
 class virtual process_binary =