Refactoring of process classes in faustexp.ml.
[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 |Prefix -> (2, 1)
44 |Select2 -> (3, 1)
45 |Select3 -> (4, 1);;
46
47 let delay_of_symbol : symbol -> int =
48 fun (s : symbol) ->
49 match s with
50 |Add -> 0
51 |Sub -> 0
52 |Mul -> 0
53 |Div -> 0
54 |Pass -> 0
55 |Stop -> 0
56 |Mem -> 1
57 |Delay -> delay_memory_length
58 |Floor -> 0
59 |Int -> 0
60 |Sin -> 0
61 |Cos -> 0
62 |Atan -> 0
63 |Atan2 -> 0
64 |Sqrt -> 0
65 |Rdtable -> rdtable_memory_length
66 |Mod -> 0
67 |Larger -> 0
68 |Smaller -> 0
69 |Vectorize -> vectorize_memory_length
70 |Vconcat -> 0
71 |Vpick -> 0
72 |Serialize -> 0
73 |Prefix -> 1
74 |Select2 -> 0
75 |Select3 -> 0;;
76
77 let string_of_symbol : symbol -> string =
78 fun (s : symbol) ->
79 match s with
80 |Add -> "Add"
81 |Sub -> "Sub"
82 |Mul -> "Mul"
83 |Div -> "Div"
84 |Pass -> "Pass"
85 |Stop -> "Stop"
86 |Mem -> "Mem"
87 |Delay -> "Delay"
88 |Floor -> "Floor"
89 |Int -> "Int"
90 |Sin -> "Sin"
91 |Cos -> "Cos"
92 |Atan -> "Atan"
93 |Atan2 -> "Atan2"
94 |Sqrt -> "Sqrt"
95 |Rdtable -> "Rdtable"
96 |Mod -> "Mod"
97 |Larger -> "Larger"
98 |Smaller -> "Smaller"
99 |Vectorize -> "Vectorize"
100 |Vconcat -> "Vconcat"
101 |Vpick -> "Vpick"
102 |Serialize -> "Serialize"
103 |Prefix -> "Prefix"
104 |Select2 -> "Select2"
105 |Select3 -> "Select3";;
106