Add octave scripts for examples into track list.
[Faustine.git] / interpretor / preprocessor / faust-0.9.47mr3 / architecture / q.cpp
1 /************************************************************************
2 ************************************************************************
3 FAUST Architecture File
4 Copyright (C) 2006-2011 Albert Graef <Dr.Graef@t-online.de>
5 ---------------------------------------------------------------------
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU Lesser General Public License as
8 published by the Free Software Foundation; either version 2.1 of the
9 License, or (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU Lesser General Public License for more details.
15
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, write to the Free
18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19 02111-1307 USA.
20 ************************************************************************
21 ************************************************************************/
22
23 /* Q architecture file. Derived from minimal.cpp included in the Faust
24 distribution. Please note that this is to be compiled as a shared library,
25 which is then loaded dynamically by Q's faust module. */
26
27 #include <stdlib.h>
28 #include <math.h>
29
30 struct Meta
31 {
32 void declare (const char* key, const char* value) { }
33 };
34
35 //-------------------------------------------------------------------
36 // Generic min and max using c++ inline
37 //-------------------------------------------------------------------
38
39 inline int max (unsigned int a, unsigned int b) { return (a>b) ? a : b; }
40 inline int max (int a, int b) { return (a>b) ? a : b; }
41
42 inline long max (long a, long b) { return (a>b) ? a : b; }
43 inline long max (int a, long b) { return (a>b) ? a : b; }
44 inline long max (long a, int b) { return (a>b) ? a : b; }
45
46 inline float max (float a, float b) { return (a>b) ? a : b; }
47 inline float max (int a, float b) { return (a>b) ? a : b; }
48 inline float max (float a, int b) { return (a>b) ? a : b; }
49 inline float max (long a, float b) { return (a>b) ? a : b; }
50 inline float max (float a, long b) { return (a>b) ? a : b; }
51
52 inline double max (double a, double b) { return (a>b) ? a : b; }
53 inline double max (int a, double b) { return (a>b) ? a : b; }
54 inline double max (double a, int b) { return (a>b) ? a : b; }
55 inline double max (long a, double b) { return (a>b) ? a : b; }
56 inline double max (double a, long b) { return (a>b) ? a : b; }
57 inline double max (float a, double b) { return (a>b) ? a : b; }
58 inline double max (double a, float b) { return (a>b) ? a : b; }
59
60
61 inline int min (int a, int b) { return (a<b) ? a : b; }
62
63 inline long min (long a, long b) { return (a<b) ? a : b; }
64 inline long min (int a, long b) { return (a<b) ? a : b; }
65 inline long min (long a, int b) { return (a<b) ? a : b; }
66
67 inline float min (float a, float b) { return (a<b) ? a : b; }
68 inline float min (int a, float b) { return (a<b) ? a : b; }
69 inline float min (float a, int b) { return (a<b) ? a : b; }
70 inline float min (long a, float b) { return (a<b) ? a : b; }
71 inline float min (float a, long b) { return (a<b) ? a : b; }
72
73 inline double min (double a, double b) { return (a<b) ? a : b; }
74 inline double min (int a, double b) { return (a<b) ? a : b; }
75 inline double min (double a, int b) { return (a<b) ? a : b; }
76 inline double min (long a, double b) { return (a<b) ? a : b; }
77 inline double min (double a, long b) { return (a<b) ? a : b; }
78 inline double min (float a, double b) { return (a<b) ? a : b; }
79 inline double min (double a, float b) { return (a<b) ? a : b; }
80
81 // abs is now predefined
82 //template<typename T> T abs (T a) { return (a<T(0)) ? -a : a; }
83
84
85 inline int lsr (int x, int n) { return int(((unsigned int)x) >> n); }
86
87 /******************************************************************************
88 *******************************************************************************
89
90 VECTOR INTRINSICS
91
92 *******************************************************************************
93 *******************************************************************************/
94
95 //inline void *aligned_calloc(size_t nmemb, size_t size) { return (void*)((unsigned)(calloc((nmemb*size)+15,sizeof(char)))+15 & 0xfffffff0); }
96 //inline void *aligned_calloc(size_t nmemb, size_t size) { return (void*)((size_t)(calloc((nmemb*size)+15,sizeof(char)))+15 & ~15); }
97
98 <<includeIntrinsic>>
99
100 /******************************************************************************
101 *******************************************************************************
102
103 ABSTRACT USER INTERFACE
104
105 *******************************************************************************
106 *******************************************************************************/
107
108 class UI
109 {
110 bool fStopped;
111 public:
112
113 UI() : fStopped(false) {}
114 virtual ~UI() {}
115
116 virtual void addButton(char* label, float* zone) = 0;
117 virtual void addToggleButton(char* label, float* zone) = 0;
118 virtual void addCheckButton(char* label, float* zone) = 0;
119 virtual void addVerticalSlider(char* label, float* zone, float init, float min, float max, float step) = 0;
120 virtual void addHorizontalSlider(char* label, float* zone, float init, float min, float max, float step) = 0;
121 virtual void addNumEntry(char* label, float* zone, float init, float min, float max, float step) = 0;
122
123 virtual void addNumDisplay(char* label, float* zone, int precision) = 0;
124 virtual void addTextDisplay(char* label, float* zone, char* names[], float min, float max) = 0;
125 virtual void addHorizontalBargraph(char* label, float* zone, float min, float max) = 0;
126 virtual void addVerticalBargraph(char* label, float* zone, float min, float max) = 0;
127
128 virtual void openFrameBox(char* label) = 0;
129 virtual void openTabBox(char* label) = 0;
130 virtual void openHorizontalBox(char* label) = 0;
131 virtual void openVerticalBox(char* label) = 0;
132 virtual void closeBox() = 0;
133
134 virtual void run() = 0;
135
136 void stop() { fStopped = true; }
137 bool stopped() { return fStopped; }
138
139 virtual void declare(float* zone, const char* key, const char* value) {}
140 };
141
142 /***************************************************************************
143 Q UI interface
144 ***************************************************************************/
145
146 enum ui_elem_type_t {
147 UI_BUTTON, UI_TOGGLE_BUTTON, UI_CHECK_BUTTON,
148 UI_V_SLIDER, UI_H_SLIDER, UI_NUM_ENTRY,
149 UI_V_BARGRAPH, UI_H_BARGRAPH,
150 UI_END_GROUP, UI_V_GROUP, UI_H_GROUP, UI_T_GROUP
151 };
152
153 struct ui_elem_t {
154 ui_elem_type_t type;
155 char *label;
156 float *zone;
157 void *ref;
158 float init, min, max, step;
159 };
160
161 class QUI : public UI
162 {
163 public:
164 int nelems;
165 ui_elem_t *elems;
166
167 QUI();
168 virtual ~QUI();
169
170 protected:
171 void add_elem(ui_elem_type_t type, char *label = NULL);
172 void add_elem(ui_elem_type_t type, char *label, float *zone);
173 void add_elem(ui_elem_type_t type, char *label, float *zone,
174 float init, float min, float max, float step);
175 void add_elem(ui_elem_type_t type, char *label, float *zone,
176 float min, float max);
177
178 public:
179 virtual void addButton(char* label, float* zone);
180 virtual void addToggleButton(char* label, float* zone);
181 virtual void addCheckButton(char* label, float* zone);
182 virtual void addVerticalSlider(char* label, float* zone, float init, float min, float max, float step);
183 virtual void addHorizontalSlider(char* label, float* zone, float init, float min, float max, float step);
184 virtual void addNumEntry(char* label, float* zone, float init, float min, float max, float step);
185
186 virtual void addNumDisplay(char* label, float* zone, int precision);
187 virtual void addTextDisplay(char* label, float* zone, char* names[], float min, float max);
188 virtual void addHorizontalBargraph(char* label, float* zone, float min, float max);
189 virtual void addVerticalBargraph(char* label, float* zone, float min, float max);
190
191 virtual void openFrameBox(char* label);
192 virtual void openTabBox(char* label);
193 virtual void openHorizontalBox(char* label);
194 virtual void openVerticalBox(char* label);
195 virtual void closeBox();
196
197 virtual void run();
198 };
199
200 QUI::QUI()
201 {
202 nelems = 0;
203 elems = NULL;
204 }
205
206 QUI::~QUI()
207 {
208 if (elems) free(elems);
209 }
210
211 inline void QUI::add_elem(ui_elem_type_t type, char *label)
212 {
213 ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
214 if (elems1)
215 elems = elems1;
216 else
217 return;
218 elems[nelems].type = type;
219 elems[nelems].label = label;
220 elems[nelems].zone = NULL;
221 elems[nelems].ref = NULL;
222 elems[nelems].init = 0.0;
223 elems[nelems].min = 0.0;
224 elems[nelems].max = 0.0;
225 elems[nelems].step = 0.0;
226 nelems++;
227 }
228
229 inline void QUI::add_elem(ui_elem_type_t type, char *label, float *zone)
230 {
231 ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
232 if (elems1)
233 elems = elems1;
234 else
235 return;
236 elems[nelems].type = type;
237 elems[nelems].label = label;
238 elems[nelems].zone = zone;
239 elems[nelems].ref = NULL;
240 elems[nelems].init = 0.0;
241 elems[nelems].min = 0.0;
242 elems[nelems].max = 0.0;
243 elems[nelems].step = 0.0;
244 nelems++;
245 }
246
247 inline void QUI::add_elem(ui_elem_type_t type, char *label, float *zone,
248 float init, float min, float max, float step)
249 {
250 ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
251 if (elems1)
252 elems = elems1;
253 else
254 return;
255 elems[nelems].type = type;
256 elems[nelems].label = label;
257 elems[nelems].zone = zone;
258 elems[nelems].ref = NULL;
259 elems[nelems].init = init;
260 elems[nelems].min = min;
261 elems[nelems].max = max;
262 elems[nelems].step = step;
263 nelems++;
264 }
265
266 inline void QUI::add_elem(ui_elem_type_t type, char *label, float *zone,
267 float min, float max)
268 {
269 ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
270 if (elems1)
271 elems = elems1;
272 else
273 return;
274 elems[nelems].type = type;
275 elems[nelems].label = label;
276 elems[nelems].zone = zone;
277 elems[nelems].ref = NULL;
278 elems[nelems].init = 0.0;
279 elems[nelems].min = min;
280 elems[nelems].max = max;
281 elems[nelems].step = 0.0;
282 nelems++;
283 }
284
285 void QUI::addButton(char* label, float* zone)
286 { add_elem(UI_BUTTON, label, zone); }
287 void QUI::addToggleButton(char* label, float* zone)
288 { add_elem(UI_TOGGLE_BUTTON, label, zone); }
289 void QUI::addCheckButton(char* label, float* zone)
290 { add_elem(UI_CHECK_BUTTON, label, zone); }
291 void QUI::addVerticalSlider(char* label, float* zone, float init, float min, float max, float step)
292 { add_elem(UI_V_SLIDER, label, zone, init, min, max, step); }
293 void QUI::addHorizontalSlider(char* label, float* zone, float init, float min, float max, float step)
294 { add_elem(UI_H_SLIDER, label, zone, init, min, max, step); }
295 void QUI::addNumEntry(char* label, float* zone, float init, float min, float max, float step)
296 { add_elem(UI_NUM_ENTRY, label, zone, init, min, max, step); }
297
298 // FIXME: addNumDisplay and addTextDisplay not implemented in Faust yet?
299 void QUI::addNumDisplay(char* label, float* zone, int precision) {}
300 void QUI::addTextDisplay(char* label, float* zone, char* names[], float min, float max) {}
301 void QUI::addHorizontalBargraph(char* label, float* zone, float min, float max)
302 { add_elem(UI_H_BARGRAPH, label, zone, min, max); }
303 void QUI::addVerticalBargraph(char* label, float* zone, float min, float max)
304 { add_elem(UI_V_BARGRAPH, label, zone, min, max); }
305
306 void QUI::openFrameBox(char* label) {}
307 void QUI::openTabBox(char* label)
308 { add_elem(UI_T_GROUP, label); }
309 void QUI::openHorizontalBox(char* label)
310 { add_elem(UI_H_GROUP, label); }
311 void QUI::openVerticalBox(char* label)
312 { add_elem(UI_V_GROUP, label); }
313 void QUI::closeBox()
314 { add_elem(UI_END_GROUP); }
315
316 void QUI::run() {}
317
318 /******************************************************************************
319 *******************************************************************************
320
321 FAUST DSP
322
323 *******************************************************************************
324 *******************************************************************************/
325
326
327
328 //----------------------------------------------------------------
329 // abstract definition of a signal processor
330 //----------------------------------------------------------------
331
332 class dsp {
333 protected:
334 int fSamplingFreq;
335 public:
336 dsp() {}
337 virtual ~dsp() {}
338 virtual int getNumInputs() = 0;
339 virtual int getNumOutputs() = 0;
340 virtual void buildUserInterface(UI* interface) = 0;
341 virtual void init(int samplingRate) = 0;
342 virtual void compute(int len, float** inputs, float** outputs) = 0;
343 };
344
345 //----------------------------------------------------------------------------
346 // FAUST generated signal processor
347 //----------------------------------------------------------------------------
348
349
350 <<includeclass>>
351
352 /* The class factory, used to create and destroy mydsp objects in the
353 client. Implemented using C linkage to facilitate dlopen access. */
354
355 extern "C" dsp *newdsp()
356 {
357 mydsp *d = new mydsp();
358 return d;
359 }
360
361 extern "C" void deldsp(dsp* d)
362 {
363 delete d;
364 }