Bug fixed in preprocessor for new primitives.
[Faustine.git] / interpretor / preprocessor / faust-0.9.47mr3 / compiler / headers / boxes.hh
1 #ifndef _BOXES_
2 #define _BOXES_
3
4 /************************************************************************
5 ************************************************************************
6 FAUST compiler
7 Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale
8 ---------------------------------------------------------------------
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
13
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
22 ************************************************************************
23 ************************************************************************/
24
25
26
27 /*****************************************************************************
28 ******************************************************************************
29 FAUST BOX ALGEBRA
30 Y. Orlarey, (c) Grame 2002
31 ------------------------------------------------------------------------------
32 box ::= i | f | p0 | p1 | p3
33 | _ | ! | a:b | a<:b | a,b | a:>b | a~b
34
35 History :
36 ---------
37 2002-06-06 : First version
38
39 ******************************************************************************
40 *****************************************************************************/
41
42 #include "tlib.hh"
43 #include "signals.hh"
44
45 struct Automaton;
46
47 /*****************************************************************************
48 ******************************************************************************
49
50 The Box Language
51
52 ******************************************************************************
53 *****************************************************************************/
54
55
56 /*****************************************************************************
57 Identifiers
58 *****************************************************************************/
59
60 Tree boxIdent(const char* name);
61 bool isBoxIdent(Tree t);
62 bool isBoxIdent(Tree t, const char** name);
63
64
65 /*****************************************************************************
66 Numbers
67 *****************************************************************************/
68
69 Tree boxInt(int n);
70 Tree boxReal(double n);
71
72 bool isBoxInt(Tree t);
73 bool isBoxReal(Tree t);
74
75 bool isBoxInt(Tree t, int* i);
76 bool isBoxReal(Tree t, double* r);
77
78
79 /*****************************************************************************
80 Wire and Cut
81 *****************************************************************************/
82
83 Tree boxWire();
84 Tree boxCut();
85
86 bool isBoxWire(Tree t);
87 bool isBoxCut(Tree t);
88
89
90 /*****************************************************************************
91 Symbolic Boxes with symbolic slots
92 *****************************************************************************/
93
94 Tree boxSlot(int id);
95 Tree boxSymbolic(Tree slot, Tree body);
96
97 bool isBoxSlot(Tree t);
98 bool isBoxSymbolic(Tree t);
99
100 bool isBoxSlot(Tree t, int* id);
101 bool isBoxSymbolic(Tree t, Tree& slot, Tree& body);
102
103
104 /*****************************************************************************
105 Composition of Boxes
106 *****************************************************************************/
107
108 Tree boxSeq (Tree x, Tree y);
109 Tree boxPar (Tree x, Tree y);
110 Tree boxRec (Tree x, Tree y);
111 Tree boxSplit (Tree x, Tree y);
112 Tree boxMerge (Tree x, Tree y);
113
114 bool isBoxSeq (Tree t, Tree& x, Tree& y);
115 bool isBoxPar (Tree t, Tree& x, Tree& y);
116 bool isBoxRec (Tree t, Tree& x, Tree& y);
117 bool isBoxSplit (Tree t, Tree& x, Tree& y);
118 bool isBoxMerge (Tree t, Tree& x, Tree& y);
119
120 /*****************************************************************************
121 Algorithmic Composition of Boxes
122 *****************************************************************************/
123
124 Tree boxIPar(Tree x, Tree y, Tree z);
125 Tree boxISeq(Tree x, Tree y, Tree z);
126 Tree boxISum(Tree x, Tree y, Tree z);
127 Tree boxIProd(Tree x, Tree y, Tree z);
128
129 bool isBoxIPar(Tree t, Tree& x, Tree& y, Tree& z);
130 bool isBoxISeq(Tree t, Tree& x, Tree& y, Tree& z);
131 bool isBoxISum(Tree t, Tree& x, Tree& y, Tree& z);
132 bool isBoxIProd(Tree t, Tree& x, Tree& y, Tree& z);
133
134
135 /*****************************************************************************
136 Lambda-Calculus of Boxes
137 *****************************************************************************/
138
139 Tree buildBoxAbstr (Tree x, Tree y);
140 Tree buildBoxAppl (Tree x, Tree y);
141
142 Tree boxAbstr (Tree x, Tree y);
143 Tree boxAppl (Tree x, Tree y);
144
145 bool isBoxAbstr (Tree t);
146 bool isBoxAppl (Tree t);
147
148 bool isBoxAbstr (Tree t, Tree& x, Tree& y);
149 bool isBoxAppl (Tree t, Tree& x, Tree& y);
150
151 Tree closure (Tree abstr, Tree genv, Tree vis, Tree lenv);
152
153 bool isClosure (Tree t, Tree& abstr, Tree& genv, Tree& vis, Tree& lenv);
154
155 // for foo(x,y).faa expressions
156 Tree boxAccess (Tree exp, Tree id);
157 bool isBoxAccess(Tree t, Tree& exp, Tree& id);
158
159
160 /*****************************************************************************
161 Boxes with local definitions
162 *****************************************************************************/
163
164 Tree boxWithLocalDef (Tree body, Tree ldef);
165 bool isBoxWithLocalDef (Tree t, Tree& body, Tree& ldef);
166
167
168 /*****************************************************************************
169 Modification of local definitions
170 *****************************************************************************/
171
172 Tree boxModifLocalDef (Tree body, Tree ldef);
173 bool isBoxModifLocalDef (Tree t, Tree& body, Tree& ldef);
174
175
176 /*****************************************************************************
177 Error Boxe
178 *****************************************************************************/
179
180 Tree boxError();
181 bool isBoxError(Tree t);
182
183 /*****************************************************************************
184 Primitive Boxes (n -> 1)
185 *****************************************************************************/
186
187 typedef Tree (*prim0)();
188 typedef Tree (*prim1)(Tree x);
189 typedef Tree (*prim2)(Tree x, Tree y);
190 typedef Tree (*prim3)(Tree x, Tree y, Tree z);
191 typedef Tree (*prim4)(Tree w, Tree x, Tree y, Tree z);
192 typedef Tree (*prim5)(Tree v, Tree w, Tree x, Tree y, Tree z);
193
194 Tree boxPrim0 (prim0 foo);
195 Tree boxPrim1 (prim1 foo);
196 Tree boxPrim2 (prim2 foo);
197 Tree boxPrim3 (prim3 foo);
198 Tree boxPrim4 (prim4 foo);
199 Tree boxPrim5 (prim5 foo);
200
201 bool isBoxPrim0 (Tree s);
202 bool isBoxPrim1 (Tree s);
203 bool isBoxPrim2 (Tree s);
204 bool isBoxPrim3 (Tree s);
205 bool isBoxPrim4 (Tree s);
206 bool isBoxPrim5 (Tree s);
207
208 bool isBoxPrim0 (Tree s, prim0* p);
209 bool isBoxPrim1 (Tree s, prim1* p);
210 bool isBoxPrim2 (Tree s, prim2* p);
211 bool isBoxPrim3 (Tree s, prim3* p);
212 bool isBoxPrim4 (Tree s, prim4* p);
213 bool isBoxPrim5 (Tree s, prim5* p);
214
215
216 /*****************************************************************************
217 Foreign Functions
218 *****************************************************************************/
219
220 Tree boxFFun (Tree ff);
221 bool isBoxFFun (Tree s);
222 bool isBoxFFun (Tree s, Tree& ff);
223
224
225 Tree boxFConst (Tree type, Tree name, Tree file);
226 bool isBoxFConst (Tree s);
227 bool isBoxFConst (Tree s, Tree& type, Tree& name, Tree& file);
228
229
230 Tree boxFVar (Tree type, Tree name, Tree file);
231 bool isBoxFVar (Tree s);
232 bool isBoxFVar (Tree s, Tree& type, Tree& name, Tree& file);
233
234
235 /*****************************************************************************
236 Modules
237 *****************************************************************************/
238
239 Tree boxEnvironment();
240 bool isBoxEnvironment (Tree s);
241
242 Tree boxComponent (Tree filename);
243 bool isBoxComponent (Tree s, Tree& filename);
244
245 Tree boxLibrary (Tree filename);
246 bool isBoxLibrary (Tree s, Tree& filename);
247
248 Tree importFile(Tree filename);
249 bool isImportFile(Tree s, Tree& filename);
250
251
252 /*****************************************************************************
253 User Interface Elements
254 *****************************************************************************/
255
256 Tree boxButton (Tree label);
257 bool isBoxButton (Tree s);
258 bool isBoxButton (Tree s, Tree& label);
259
260 Tree boxCheckbox (Tree label);
261 bool isBoxCheckbox (Tree s);
262 bool isBoxCheckbox (Tree s, Tree& label);
263
264 Tree boxVSlider (Tree label, Tree cur, Tree min, Tree max, Tree step);
265 bool isBoxVSlider (Tree s);
266 bool isBoxVSlider (Tree s, Tree& label, Tree& cur, Tree& min, Tree& max, Tree& step);
267
268 Tree boxHSlider (Tree label, Tree cur, Tree min, Tree max, Tree step);
269 bool isBoxHSlider (Tree s);
270 bool isBoxHSlider (Tree s, Tree& label, Tree& cur, Tree& min, Tree& max, Tree& step);
271
272 Tree boxNumEntry (Tree label, Tree cur, Tree min, Tree max, Tree step);
273 bool isBoxNumEntry (Tree s);
274 bool isBoxNumEntry (Tree s, Tree& label, Tree& cur, Tree& min, Tree& max, Tree& step);
275
276 Tree boxVGroup (Tree label, Tree x);
277 bool isBoxVGroup (Tree s);
278 bool isBoxVGroup (Tree s, Tree& label, Tree& x);
279
280 Tree boxHGroup (Tree label, Tree x);
281 bool isBoxHGroup (Tree s);
282 bool isBoxHGroup (Tree s, Tree& label, Tree& x);
283
284 Tree boxTGroup (Tree label, Tree x);
285 bool isBoxTGroup (Tree s);
286 bool isBoxTGroup (Tree s, Tree& label, Tree& x);
287
288 // GUI outputs
289 Tree boxVBargraph (Tree label, Tree min, Tree max);
290 bool isBoxVBargraph (Tree s);
291 bool isBoxVBargraph (Tree s, Tree& label, Tree& min, Tree& max);
292
293 Tree boxHBargraph (Tree label, Tree min, Tree max);
294 bool isBoxHBargraph (Tree s);
295 bool isBoxHBargraph (Tree s, Tree& label, Tree& min, Tree& max);
296
297
298 /*****************************************************************************
299 case (pattern matching)
300 *****************************************************************************/
301 Tree boxCase (Tree rules);
302 bool isBoxCase (Tree s);
303 bool isBoxCase (Tree s, Tree& rules);
304
305 Tree boxPatternMatcher (Automaton* a, int state, Tree env, Tree origRules, Tree revParamList);
306 bool isBoxPatternMatcher (Tree s);
307 bool isBoxPatternMatcher (Tree s, Automaton*& a, int& state, Tree& env, Tree& origRules, Tree& revParamList);
308
309 // wrap an id into a pattern variable
310 Tree boxPatternVar (Tree id);
311 bool isBoxPatternVar(Tree s, Tree& id);
312
313
314 /*****************************************************************************
315 ******************************************************************************
316
317 Box Algorithms
318
319 ******************************************************************************
320 *****************************************************************************/
321
322 // return the number of input
323 bool getBoxType (Tree box, int* inum, int* onum);
324
325
326 #endif