X-Git-Url: https://svn.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/73e86244c539dd6ff8af5d8527b11fde18c8d070..64fedf639ee3d2bd048028414097632726d24d42:/interpretor/symbol.ml

diff --git a/interpretor/symbol.ml b/interpretor/symbol.ml
index 68f5d5f..a37f1d3 100644
--- a/interpretor/symbol.ml
+++ b/interpretor/symbol.ml
@@ -73,3 +73,34 @@ let delay_of_symbol : symbol -> int =
     |Prefix	 ->	1
     |Select2	 ->	0
     |Select3     ->	0;;
+
+let string_of_symbol : symbol -> string = 
+  fun (s : symbol) ->
+    match s with
+    |Add	 ->	"Add"
+    |Sub	 ->	"Sub"		
+    |Mul	 ->	"Mul"
+    |Div	 ->	"Div"
+    |Pass	 ->	"Pass"
+    |Stop	 ->	"Stop"
+    |Mem	 ->	"Mem"
+    |Delay	 ->	"Delay" 
+    |Floor	 ->	"Floor"
+    |Int	 ->	"Int"
+    |Sin	 ->	"Sin"
+    |Cos	 ->     "Cos"
+    |Atan	 ->     "Atan"
+    |Atan2	 ->     "Atan2"
+    |Sqrt	 ->     "Sqrt"
+    |Rdtable	 ->	"Rdtable"
+    |Mod	 ->	"Mod"
+    |Larger	 ->	"Larger"
+    |Smaller	 ->	"Smaller"
+    |Vectorize	 ->	"Vectorize"
+    |Vconcat	 ->	"Vconcat"
+    |Vpick	 ->	"Vpick"
+    |Serialize	 ->	"Serialize"
+    |Prefix	 ->	"Prefix"
+    |Select2	 ->	"Select2"
+    |Select3     ->	"Select3";;
+