Refactoring of rec process "~" in faustexp.ml.
[Faustine.git] / interpretor / faust-0.9.47mr3 / architecture / synthfile.cpp
1 /************************************************************************
2
3 IMPORTANT NOTE : this file contains two clearly delimited sections :
4 the ARCHITECTURE section (in two parts) and the USER section. Each section
5 is governed by its own copyright and license. Please check individually
6 each section for license and copyright information.
7 *************************************************************************/
8
9 /*******************BEGIN ARCHITECTURE SECTION (part 1/2)****************/
10
11 /************************************************************************
12 FAUST Architecture File
13 Copyright (C) 2003-2011 GRAME, Centre National de Creation Musicale
14 ---------------------------------------------------------------------
15 This Architecture section is free software; you can redistribute it
16 and/or modify it under the terms of the GNU General Public License
17 as published by the Free Software Foundation; either version 3 of
18 the License, or (at your option) any later version.
19
20 This program is distributed in the hope that it will be useful,
21 but WITHOUT ANY WARRANTY; without even the implied warranty of
22 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 GNU General Public License for more details.
24
25 You should have received a copy of the GNU General Public License
26 along with this program; If not, see <http://www.gnu.org/licenses/>.
27
28 EXCEPTION : As a special exception, you may create a larger work
29 that contains this FAUST architecture section and distribute
30 that work under terms of your choice, so long as this FAUST
31 architecture section is not modified.
32
33
34 ************************************************************************
35 ************************************************************************/
36
37
38 #include <errno.h>
39 #include <limits.h>
40 #include <math.h>
41 #include <sndfile.h>
42 #include <stdio.h>
43 #include <stdlib.h>
44 #include <string.h>
45
46 #include <iostream>
47 #include <map>
48 #include <stack>
49 #include <string>
50 #include <time.h>
51 #include <vector>
52
53 // g++ -O3 -lm -lsynthfile myfx.cpp
54
55 using namespace std;
56
57 struct Meta : map<const char*, const char*>
58 {
59 void declare (const char* key, const char* value) { (*this)[key]=value; }
60 };
61
62
63 #define max(x,y) (((x)>(y)) ? (x) : (y))
64 #define min(x,y) (((x)<(y)) ? (x) : (y))
65
66 // abs is now predefined
67 //template<typename T> T abs (T a) { return (a<T(0)) ? -a : a; }
68
69
70 inline int lsr (int x, int n) { return int(((unsigned int)x) >> n); }
71
72
73 /******************************************************************************
74 *******************************************************************************
75
76 VECTOR INTRINSICS
77
78 *******************************************************************************
79 *******************************************************************************/
80
81
82 <<includeIntrinsic>>
83
84
85
86
87 /******************************************************************************
88 *******************************************************************************
89
90 USER INTERFACE
91
92 *******************************************************************************
93 *******************************************************************************/
94
95 class UI
96 {
97 bool fStopped;
98 public:
99
100 UI() : fStopped(false) {}
101 virtual ~UI() {}
102
103 // -- active widgets
104
105 virtual void addButton(const char* label, float* zone) = 0;
106 virtual void addToggleButton(const char* label, float* zone) = 0;
107 virtual void addCheckButton(const char* label, float* zone) = 0;
108 virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step) = 0;
109 virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step) = 0;
110 virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step) = 0;
111
112 // -- passive widgets
113
114 virtual void addNumDisplay(const char* label, float* zone, int precision) = 0;
115 virtual void addTextDisplay(const char* label, float* zone, char* names[], float min, float max) = 0;
116 virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max) = 0;
117 virtual void addVerticalBargraph(const char* label, float* zone, float min, float max) = 0;
118
119 // -- frames and labels
120
121 virtual void openFrameBox(const char* label) = 0;
122 virtual void openTabBox(const char* label) = 0;
123 virtual void openHorizontalBox(const char* label) = 0;
124 virtual void openVerticalBox(const char* label) = 0;
125 virtual void closeBox() = 0;
126
127 virtual void show() = 0;
128 virtual void run() = 0;
129
130 void stop() { fStopped = true; }
131 bool stopped() { return fStopped; }
132
133 virtual void declare(float* zone, const char* key, const char* value) {}
134 };
135
136 struct param {
137 float* fZone; float fMin; float fMax;
138 param(float* z, float init, float a, float b) : fZone(z), fMin(a), fMax(b) { *z = init; }
139 };
140
141
142 class CMDUI : public UI
143 {
144 int fArgc;
145 char** fArgv;
146 char* fOutFile;
147 long fNumframes;
148 stack<string> fPrefix;
149 map<string, param> fKeyParam;
150
151 void openAnyBox(const char* label)
152 {
153 string prefix;
154
155 if (label && label[0]) {
156 prefix = fPrefix.top() + "-" + label;
157 } else {
158 prefix = fPrefix.top();
159 }
160 fPrefix.push(prefix);
161 }
162
163 string simplify(const string& src)
164 {
165 int i=0;
166 int level=0;
167 string dst;
168
169 while (src[i] ) {
170
171 switch (level) {
172
173 case 0 :
174 case 1 :
175 case 2 :
176 // Skip the begin of the label "--foo-"
177 // until 3 '-' have been read
178 if (src[i]=='-') { level++; }
179 break;
180
181 case 3 :
182 // copy the content, but skip non alphnum
183 // and content in parenthesis
184 switch (src[i]) {
185 case '(' :
186 case '[' :
187 level++;
188 break;
189
190 case '-' :
191 dst += '-';
192 break;
193
194 default :
195 if (isalnum(src[i])) {
196 dst+= tolower(src[i]);
197 }
198
199 }
200 break;
201
202 default :
203 // here we are inside parenthesis and
204 // we skip the content until we are back to
205 // level 3
206 switch (src[i]) {
207
208 case '(' :
209 case '[' :
210 level++;
211 break;
212
213 case ')' :
214 case ']' :
215 level--;
216 break;
217
218 default :
219 break;
220 }
221
222 }
223 i++;
224 }
225 return dst;
226 }
227
228
229 public:
230
231 CMDUI(int argc, char *argv[]) : UI(), fArgc(argc), fArgv(argv), fNumframes(44100), fOutFile("out.wav")
232 { fPrefix.push("-"); }
233 virtual ~CMDUI() {}
234
235
236 void addOption(const char* label, float* zone, float init, float min, float max)
237 {
238 string fullname = "-" + simplify(fPrefix.top() + "-" + label);
239 fKeyParam.insert(make_pair(fullname, param(zone, init, min, max)));
240 }
241
242
243 virtual void addButton(const char* label, float* zone)
244 {
245 addOption(label,zone,0,0,1);
246 }
247
248 virtual void addToggleButton(const char* label, float* zone)
249 {
250 addOption(label,zone,0,0,1);
251 }
252
253 virtual void addCheckButton(const char* label, float* zone)
254 {
255 addOption(label,zone,0,0,1);
256 }
257
258 virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step)
259 {
260 addOption(label,zone,init,min,max);
261 }
262
263 virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step)
264 {
265 addOption(label,zone,init,min,max);
266 }
267
268 virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step)
269 {
270 addOption(label,zone,init,min,max);
271 }
272
273 // -- passive widgets
274
275 virtual void addNumDisplay(const char* label, float* zone, int precision) {}
276 virtual void addTextDisplay(const char* label, float* zone, char* names[], float min, float max) {}
277 virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max) {}
278 virtual void addVerticalBargraph(const char* label, float* zone, float min, float max) {}
279
280 virtual void openFrameBox(const char* label) { openAnyBox(label); }
281 virtual void openTabBox(const char* label) { openAnyBox(label); }
282 virtual void openHorizontalBox(const char* label) { openAnyBox(label); }
283 virtual void openVerticalBox(const char* label) { openAnyBox(label); }
284
285 virtual void closeBox() { fPrefix.pop(); }
286
287 virtual void show() {}
288 virtual void run() {}
289
290 void printhelp()
291 {
292 cerr << "usage: " << fArgv[0] << " [options]" << endl;
293 cerr << " [options]: " << endl;
294 cerr << " samples: number of samples to generate, default is 44100 (1 second of sound)" << endl;
295 cerr << " -o outfile: name of the output file, default is 'out.wav'" << endl;
296
297 if (fKeyParam.size()) {
298 map<string, param>::iterator i;
299 cerr << " [faust module options]: \n";
300 for (i = fKeyParam.begin(); i != fKeyParam.end(); i++) {
301 cout << " " << i->first << " [" << i->second.fMin << ".." << i->second.fMax <<" ] \n";
302 }
303 }
304 exit(1);
305 }
306
307 void process_command()
308 {
309 map<string, param>::iterator p;
310
311 for (int i = 1; i < fArgc; i++) {
312 if (fArgv[i][0] == '-') {
313 if ( (strcmp(fArgv[i], "-help") == 0)
314 || (strcmp(fArgv[i], "-h") == 0)
315 || (strcmp(fArgv[i], "--help") == 0) ) {
316 printhelp();
317 }
318
319 if (strcmp(fArgv[i], "-o") == 0) {
320 fOutFile = fArgv[i+1];
321 }
322 else {
323 p = fKeyParam.find(fArgv[i]);
324 if (p == fKeyParam.end()) {
325 cout << fArgv[0] << ": unrecognized option " << fArgv[i] << "\n";
326 printhelp();
327 }
328 *(p->second.fZone) = float(strtod(fArgv[i+1], NULL));
329 }
330 i++;
331 }
332 else {
333 fNumframes = strtol(fArgv[i], NULL, 10);
334 if (fNumframes <= 0 ) printhelp();
335 }
336 }
337 }
338
339 char* output_file() { return fOutFile; }
340 long num_frames() { return fNumframes; }
341
342 void process_init()
343 {
344 map<string, param>::iterator p;
345 for (int i = 1; i < fArgc; i++) {
346 if (fArgv[i][0] == '-') {
347 p = fKeyParam.find(fArgv[i]);
348 if (p != fKeyParam.end()) {
349 *(p->second.fZone) = float(strtod(fArgv[i+1], NULL));
350 i++;
351 }
352 }
353 }
354 }
355 };
356
357
358 //----------------------------------------------------------------
359 // d�inition du processeur de signal
360 //----------------------------------------------------------------
361
362 class dsp {
363 protected:
364 int fSamplingFreq;
365 public:
366 dsp() {}
367 virtual ~dsp() {}
368
369 virtual int getNumInputs() = 0;
370 virtual int getNumOutputs() = 0;
371 virtual void buildUserInterface(UI* interface) = 0;
372 virtual void init(int samplingRate) = 0;
373 virtual void compute(int len, float** inputs, float** outputs) = 0;
374 virtual void conclude() {}
375 };
376
377 /********************END ARCHITECTURE SECTION (part 1/2)****************/
378
379 /**************************BEGIN USER SECTION **************************/
380
381 <<includeclass>>
382
383 /***************************END USER SECTION ***************************/
384
385 /*******************BEGIN ARCHITECTURE SECTION (part 2/2)***************/
386
387 mydsp DSP;
388
389 class Interleaver
390 {
391 int fNumFrames;
392 int fNumInputs;
393 int fNumOutputs;
394
395 float* fInputs[256];
396 float* fOutput;
397
398 public:
399
400 Interleaver(int numFrames, int numInputs, int numOutputs)
401 {
402 fNumFrames = numFrames;
403 fNumInputs = max(numInputs, numOutputs);
404 fNumOutputs = numOutputs;
405
406 // allocate separate input channels
407 for (int i = 0; i < fNumInputs; i++) {
408 fInputs[i] = (float*) calloc (fNumFrames, sizeof(float));
409 }
410
411 // allocate interleaved output channel
412 fOutput = (float*) calloc(fNumFrames*fNumOutputs, sizeof(float));
413
414 }
415
416 ~Interleaver()
417 {
418 // free separate input channels
419 for (int i = 0; i < fNumInputs; i++) {
420 free(fInputs[i]);
421 }
422
423 // free interleaved output channel
424 free(fOutput);
425 }
426
427 float** inputs() { return fInputs; }
428 float* output() { return fOutput; }
429
430 void interleave()
431 {
432 for (int s = 0; s < fNumFrames; s++) {
433 for (int c = 0; c < fNumOutputs; c++) {
434 fOutput[c + s*fNumOutputs] = fInputs[c][s];
435 }
436 }
437 }
438 };
439
440 #define kFrames 512
441 #define kSampleRate 44100
442
443 int main(int argc, char *argv[] )
444 {
445 CMDUI* interface = new CMDUI(argc, argv);
446 DSP.buildUserInterface(interface);
447 interface->process_command();
448
449 // open output file
450 SNDFILE* out_sf;
451 SF_INFO out_info = { interface->num_frames(), kSampleRate, DSP.getNumOutputs(),
452 SF_FORMAT_WAV|SF_FORMAT_PCM_16|SF_ENDIAN_LITTLE, 0, 0};
453 out_sf = sf_open(interface->output_file(), SFM_WRITE, &out_info);
454 if (out_sf == NULL) {
455 cerr << "Error: ";
456 sf_perror(out_sf);
457 exit(1);
458 }
459
460 // create interleaver
461 Interleaver ilv (kFrames, DSP.getNumOutputs(), DSP.getNumOutputs());
462
463 // init signal processor
464 DSP.init(kSampleRate);
465 interface->process_init();
466
467 // process all samples
468 int frames = interface->num_frames();
469 int nbf;
470 do {
471 if (frames > kFrames) {
472 nbf = kFrames;
473 frames -= kFrames;
474 }
475 else {
476 nbf = frames;
477 frames = 0;
478 }
479 DSP.compute(nbf, 0, ilv.inputs());
480 ilv.interleave();
481 sf_writef_float(out_sf, ilv.output(), nbf);
482 } while (nbf);
483
484 sf_close(out_sf);
485 }
486 /********************END ARCHITECTURE SECTION (part 2/2)****************/
487