Erosion and dilation algorithme successfully tested.
[Faustine.git] / interpretor / symbol.ml
1 (**
2 Module: Symbol
3 Description: Symbols' information in faust.
4 @author WANG Haisheng
5 Created: 05/08/2013 Modified: 05/08/2013
6 *)
7
8 open Types;;
9
10 exception Symbol_error of string;;
11
12 (* MACRO *)
13 let delay_memory_length = 100000;;
14 let rdtable_memory_length = 100000;;
15 let vectorize_memory_length = 1000;;
16
17 let dimension_of_symbol : symbol -> int * int =
18 fun (s : symbol) ->
19 match s with
20 |Add -> (2, 1)
21 |Sub -> (2, 1)
22 |Mul -> (2, 1)
23 |Div -> (2, 1)
24 |Pass -> (1, 1)
25 |Stop -> (1, 0)
26 |Mem -> (1, 1)
27 |Delay -> (2, 1)
28 |Floor -> (1, 1)
29 |Int -> (1, 1)
30 |Sin -> (1, 1)
31 |Cos -> (1, 1)
32 |Atan -> (1, 1)
33 |Atan2 -> (2, 1)
34 |Sqrt -> (1, 1)
35 |Rdtable -> (3, 1)
36 |Mod -> (2, 1)
37 |Vectorize -> (2, 1)
38 |Vconcat -> (2, 1)
39 |Vpick -> (2, 1)
40 |Serialize -> (1, 1)
41 |Larger -> (2, 1)
42 |Smaller -> (2, 1)
43 |Max -> (2, 1)
44 |Min -> (2, 1)
45 |Prefix -> (2, 1)
46 |Select2 -> (3, 1)
47 |Select3 -> (4, 1);;
48
49 let delay_of_symbol : symbol -> int =
50 fun (s : symbol) ->
51 match s with
52 |Add -> 0
53 |Sub -> 0
54 |Mul -> 0
55 |Div -> 0
56 |Pass -> 0
57 |Stop -> 0
58 |Mem -> 1
59 |Delay -> delay_memory_length
60 |Floor -> 0
61 |Int -> 0
62 |Sin -> 0
63 |Cos -> 0
64 |Atan -> 0
65 |Atan2 -> 0
66 |Sqrt -> 0
67 |Rdtable -> rdtable_memory_length
68 |Mod -> 0
69 |Larger -> 0
70 |Smaller -> 0
71 |Max -> 0
72 |Min -> 0
73 |Vectorize -> vectorize_memory_length
74 |Vconcat -> 0
75 |Vpick -> 0
76 |Serialize -> 0
77 |Prefix -> 1
78 |Select2 -> 0
79 |Select3 -> 0;;
80
81 let string_of_symbol : symbol -> string =
82 fun (s : symbol) ->
83 match s with
84 |Add -> "Add"
85 |Sub -> "Sub"
86 |Mul -> "Mul"
87 |Div -> "Div"
88 |Pass -> "Pass"
89 |Stop -> "Stop"
90 |Mem -> "Mem"
91 |Delay -> "Delay"
92 |Floor -> "Floor"
93 |Int -> "Int"
94 |Sin -> "Sin"
95 |Cos -> "Cos"
96 |Atan -> "Atan"
97 |Atan2 -> "Atan2"
98 |Sqrt -> "Sqrt"
99 |Rdtable -> "Rdtable"
100 |Mod -> "Mod"
101 |Larger -> "Larger"
102 |Smaller -> "Smaller"
103 |Max -> "Max"
104 |Min -> "Min"
105 |Vectorize -> "Vectorize"
106 |Vconcat -> "Vconcat"
107 |Vpick -> "Vpick"
108 |Serialize -> "Serialize"
109 |Prefix -> "Prefix"
110 |Select2 -> "Select2"
111 |Select3 -> "Select3";;
112