+/************************************************************************
+ ************************************************************************
+ FAUST Architecture File
+ Copyright (C) 2006-2011 Albert Graef <Dr.Graef@t-online.de>
+ ---------------------------------------------------------------------
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU Lesser General Public License as
+ published by the Free Software Foundation; either version 2.1 of the
+ License, or (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with the GNU C Library; if not, write to the Free
+ Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+ 02111-1307 USA.
+ ************************************************************************
+ ************************************************************************/
+
+/* Pd architecture file, written by Albert Graef <Dr.Graef@t-online.de>.
+ This was derived from minimal.cpp included in the Faust distribution.
+ Please note that this is to be compiled as a shared library, which is
+ then loaded dynamically by Pd as an external. */
+
+#include <stdlib.h>
+#include <string.h>
+#include <math.h>
+#include <string>
+
+using namespace std;
+
+// On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero)
+// flags to avoid costly denormals
+#ifdef __SSE__
+ #include <xmmintrin.h>
+ #ifdef __SSE2__
+ #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040)
+ #else
+ #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000)
+ #endif
+#else
+ #warning *** puredata.cpp: NO SSE FLAG (denormals may slow things down) ***
+ #define AVOIDDENORMALS
+#endif
+
+struct Meta
+{
+ void declare (const char* key, const char* value) {}
+};
+
+//-------------------------------------------------------------------
+// Generic min and max using c++ inline
+//-------------------------------------------------------------------
+
+inline int max (unsigned int a, unsigned int b) { return (a>b) ? a : b; }
+inline int max (int a, int b) { return (a>b) ? a : b; }
+
+inline long max (long a, long b) { return (a>b) ? a : b; }
+inline long max (int a, long b) { return (a>b) ? a : b; }
+inline long max (long a, int b) { return (a>b) ? a : b; }
+
+inline float max (float a, float b) { return (a>b) ? a : b; }
+inline float max (int a, float b) { return (a>b) ? a : b; }
+inline float max (float a, int b) { return (a>b) ? a : b; }
+inline float max (long a, float b) { return (a>b) ? a : b; }
+inline float max (float a, long b) { return (a>b) ? a : b; }
+
+inline double max (double a, double b) { return (a>b) ? a : b; }
+inline double max (int a, double b) { return (a>b) ? a : b; }
+inline double max (double a, int b) { return (a>b) ? a : b; }
+inline double max (long a, double b) { return (a>b) ? a : b; }
+inline double max (double a, long b) { return (a>b) ? a : b; }
+inline double max (float a, double b) { return (a>b) ? a : b; }
+inline double max (double a, float b) { return (a>b) ? a : b; }
+
+
+inline int min (int a, int b) { return (a<b) ? a : b; }
+
+inline long min (long a, long b) { return (a<b) ? a : b; }
+inline long min (int a, long b) { return (a<b) ? a : b; }
+inline long min (long a, int b) { return (a<b) ? a : b; }
+
+inline float min (float a, float b) { return (a<b) ? a : b; }
+inline float min (int a, float b) { return (a<b) ? a : b; }
+inline float min (float a, int b) { return (a<b) ? a : b; }
+inline float min (long a, float b) { return (a<b) ? a : b; }
+inline float min (float a, long b) { return (a<b) ? a : b; }
+
+inline double min (double a, double b) { return (a<b) ? a : b; }
+inline double min (int a, double b) { return (a<b) ? a : b; }
+inline double min (double a, int b) { return (a<b) ? a : b; }
+inline double min (long a, double b) { return (a<b) ? a : b; }
+inline double min (double a, long b) { return (a<b) ? a : b; }
+inline double min (float a, double b) { return (a<b) ? a : b; }
+inline double min (double a, float b) { return (a<b) ? a : b; }
+
+// abs is now predefined
+//template<typename T> T abs (T a) { return (a<T(0)) ? -a : a; }
+
+
+inline int lsr (int x, int n) { return int(((unsigned int)x) >> n); }
+
+/******************************************************************************
+*******************************************************************************
+
+ VECTOR INTRINSICS
+
+*******************************************************************************
+*******************************************************************************/
+
+//inline void *aligned_calloc(size_t nmemb, size_t size) { return (void*)((unsigned)(calloc((nmemb*size)+15,sizeof(char)))+15 & 0xfffffff0); }
+//inline void *aligned_calloc(size_t nmemb, size_t size) { return (void*)((size_t)(calloc((nmemb*size)+15,sizeof(char)))+15 & ~15); }
+
+<<includeIntrinsic>>
+
+/******************************************************************************
+*******************************************************************************
+
+ ABSTRACT USER INTERFACE
+
+*******************************************************************************
+*******************************************************************************/
+
+class UI
+{
+ bool fStopped;
+public:
+
+ UI() : fStopped(false) {}
+ virtual ~UI() {}
+
+ virtual void addButton(const char* label, float* zone) = 0;
+ virtual void addToggleButton(const char* label, float* zone) = 0;
+ virtual void addCheckButton(const char* label, float* zone) = 0;
+ virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step) = 0;
+ virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step) = 0;
+ virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step) = 0;
+
+ virtual void addNumDisplay(const char* label, float* zone, int precision) = 0;
+ virtual void addTextDisplay(const char* label, float* zone, const char* names[], float min, float max) = 0;
+ virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max) = 0;
+ virtual void addVerticalBargraph(const char* label, float* zone, float min, float max) = 0;
+
+ virtual void openFrameBox(const char* label) = 0;
+ virtual void openTabBox(const char* label) = 0;
+ virtual void openHorizontalBox(const char* label) = 0;
+ virtual void openVerticalBox(const char* label) = 0;
+ virtual void closeBox() = 0;
+
+ virtual void run() = 0;
+
+ void stop() { fStopped = true; }
+ bool stopped() { return fStopped; }
+
+ virtual void declare(float* zone, const char* key, const char* value) {}
+};
+
+/***************************************************************************
+ Pd UI interface
+ ***************************************************************************/
+
+enum ui_elem_type_t {
+ UI_BUTTON, UI_TOGGLE_BUTTON, UI_CHECK_BUTTON,
+ UI_V_SLIDER, UI_H_SLIDER, UI_NUM_ENTRY,
+ UI_V_BARGRAPH, UI_H_BARGRAPH,
+ UI_END_GROUP, UI_V_GROUP, UI_H_GROUP, UI_T_GROUP
+};
+
+struct ui_elem_t {
+ ui_elem_type_t type;
+ char *label;
+ float *zone;
+ float init, min, max, step;
+};
+
+class PdUI : public UI
+{
+public:
+ int nelems;
+ ui_elem_t *elems;
+
+ PdUI();
+ PdUI(const char *s);
+ virtual ~PdUI();
+
+protected:
+ string path;
+ void add_elem(ui_elem_type_t type, const char *label = NULL);
+ void add_elem(ui_elem_type_t type, const char *label, float *zone);
+ void add_elem(ui_elem_type_t type, const char *label, float *zone,
+ float init, float min, float max, float step);
+ void add_elem(ui_elem_type_t type, const char *label, float *zone,
+ float min, float max);
+
+public:
+ virtual void addButton(const char* label, float* zone);
+ virtual void addToggleButton(const char* label, float* zone);
+ virtual void addCheckButton(const char* label, float* zone);
+ virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step);
+ virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step);
+ virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step);
+
+ virtual void addNumDisplay(const char* label, float* zone, int precision);
+ virtual void addTextDisplay(const char* label, float* zone, const char* names[], float min, float max);
+ virtual void addHorizontalBargraph(const char* label, float* zone, float min, float max);
+ virtual void addVerticalBargraph(const char* label, float* zone, float min, float max);
+
+ virtual void openFrameBox(const char* label);
+ virtual void openTabBox(const char* label);
+ virtual void openHorizontalBox(const char* label);
+ virtual void openVerticalBox(const char* label);
+ virtual void closeBox();
+
+ virtual void run();
+};
+
+static string mangle(const char *s)
+{
+ const char *s0 = s;
+ string t = "";
+ if (!s) return t;
+ while (*s)
+ if (isalnum(*s))
+ t += *(s++);
+ else {
+ const char *s1 = s;
+ while (*s && !isalnum(*s)) ++s;
+ if (s1 != s0 && *s) t += "-";
+ }
+ return t;
+}
+
+static string normpath(string path)
+{
+ path = string("/")+path;
+ int pos = path.find("//");
+ while (pos >= 0) {
+ path.erase(pos, 1);
+ pos = path.find("//");
+ }
+ return path;
+}
+
+static string pathcat(string path, string label)
+{
+ if (path.empty())
+ return normpath(label);
+ else if (label.empty())
+ return normpath(path);
+ else
+ return normpath(path+"/"+label);
+}
+
+PdUI::PdUI()
+{
+ nelems = 0;
+ elems = NULL;
+ path = "";
+}
+
+PdUI::PdUI(const char *s)
+{
+ nelems = 0;
+ elems = NULL;
+ path = s?s:"";
+}
+
+PdUI::~PdUI()
+{
+ if (elems) {
+ for (int i = 0; i < nelems; i++)
+ if (elems[i].label)
+ free(elems[i].label);
+ free(elems);
+ }
+}
+
+inline void PdUI::add_elem(ui_elem_type_t type, const char *label)
+{
+ ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
+ if (elems1)
+ elems = elems1;
+ else
+ return;
+ string s = pathcat(path, mangle(label));
+ elems[nelems].type = type;
+ elems[nelems].label = strdup(s.c_str());
+ elems[nelems].zone = NULL;
+ elems[nelems].init = 0.0;
+ elems[nelems].min = 0.0;
+ elems[nelems].max = 0.0;
+ elems[nelems].step = 0.0;
+ nelems++;
+}
+
+inline void PdUI::add_elem(ui_elem_type_t type, const char *label, float *zone)
+{
+ ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
+ if (elems1)
+ elems = elems1;
+ else
+ return;
+ string s = pathcat(path, mangle(label));
+ elems[nelems].type = type;
+ elems[nelems].label = strdup(s.c_str());
+ elems[nelems].zone = zone;
+ elems[nelems].init = 0.0;
+ elems[nelems].min = 0.0;
+ elems[nelems].max = 1.0;
+ elems[nelems].step = 1.0;
+ nelems++;
+}
+
+inline void PdUI::add_elem(ui_elem_type_t type, const char *label, float *zone,
+ float init, float min, float max, float step)
+{
+ ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
+ if (elems1)
+ elems = elems1;
+ else
+ return;
+ string s = pathcat(path, mangle(label));
+ elems[nelems].type = type;
+ elems[nelems].label = strdup(s.c_str());
+ elems[nelems].zone = zone;
+ elems[nelems].init = init;
+ elems[nelems].min = min;
+ elems[nelems].max = max;
+ elems[nelems].step = step;
+ nelems++;
+}
+
+inline void PdUI::add_elem(ui_elem_type_t type, const char *label, float *zone,
+ float min, float max)
+{
+ ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
+ if (elems1)
+ elems = elems1;
+ else
+ return;
+ string s = pathcat(path, mangle(label));
+ elems[nelems].type = type;
+ elems[nelems].label = strdup(s.c_str());
+ elems[nelems].zone = zone;
+ elems[nelems].init = 0.0;
+ elems[nelems].min = min;
+ elems[nelems].max = max;
+ elems[nelems].step = 0.0;
+ nelems++;
+}
+
+void PdUI::addButton(const char* label, float* zone)
+{ add_elem(UI_BUTTON, label, zone); }
+void PdUI::addToggleButton(const char* label, float* zone)
+{ add_elem(UI_TOGGLE_BUTTON, label, zone); }
+void PdUI::addCheckButton(const char* label, float* zone)
+{ add_elem(UI_CHECK_BUTTON, label, zone); }
+void PdUI::addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step)
+{ add_elem(UI_V_SLIDER, label, zone, init, min, max, step); }
+void PdUI::addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step)
+{ add_elem(UI_H_SLIDER, label, zone, init, min, max, step); }
+void PdUI::addNumEntry(const char* label, float* zone, float init, float min, float max, float step)
+{ add_elem(UI_NUM_ENTRY, label, zone, init, min, max, step); }
+
+// FIXME: addNumDisplay and addTextDisplay not implemented in Faust yet?
+void PdUI::addNumDisplay(const char* label, float* zone, int precision) {}
+void PdUI::addTextDisplay(const char* label, float* zone, const char* names[], float min, float max) {}
+void PdUI::addHorizontalBargraph(const char* label, float* zone, float min, float max)
+{ add_elem(UI_H_BARGRAPH, label, zone, min, max); }
+void PdUI::addVerticalBargraph(const char* label, float* zone, float min, float max)
+{ add_elem(UI_V_BARGRAPH, label, zone, min, max); }
+
+void PdUI::openFrameBox(const char* label)
+{
+ if (!path.empty()) path += "/";
+ path += mangle(label);
+}
+void PdUI::openTabBox(const char* label)
+{
+ if (!path.empty()) path += "/";
+ path += mangle(label);
+}
+void PdUI::openHorizontalBox(const char* label)
+{
+ if (!path.empty()) path += "/";
+ path += mangle(label);
+}
+void PdUI::openVerticalBox(const char* label)
+{
+ if (!path.empty()) path += "/";
+ path += mangle(label);
+}
+void PdUI::closeBox()
+{
+ int pos = path.rfind("/");
+ if (pos < 0) pos = 0;
+ path.erase(pos);
+}
+
+void PdUI::run() {}
+
+/******************************************************************************
+*******************************************************************************
+
+ FAUST DSP
+
+*******************************************************************************
+*******************************************************************************/
+
+
+
+//----------------------------------------------------------------
+// abstract definition of a signal processor
+//----------------------------------------------------------------
+
+class dsp {
+ protected:
+ int fSamplingFreq;
+ public:
+ dsp() {}
+ virtual ~dsp() {}
+ virtual int getNumInputs() = 0;
+ virtual int getNumOutputs() = 0;
+ virtual void buildUserInterface(UI* interface) = 0;
+ virtual void init(int samplingRate) = 0;
+ virtual void compute(int len, float** inputs, float** outputs) = 0;
+};
+
+//----------------------------------------------------------------------------
+// FAUST generated signal processor
+//----------------------------------------------------------------------------
+
+
+<<includeclass>>
+
+#include <stdio.h>
+#include <string.h>
+#include "m_pd.h"
+
+#define faust_setup(name) xfaust_setup(name)
+#define xfaust_setup(name) name ## _tilde_setup(void)
+#define sym(name) xsym(name)
+#define xsym(name) #name
+
+// time for "active" toggle xfades in secs
+#define XFADE_TIME 0.1f
+
+static t_class *faust_class;
+
+struct t_faust {
+ t_object x_obj;
+#ifdef __MINGW32__
+ /* This seems to be necessary as some as yet undetermined Pd routine seems
+ to write past the end of x_obj on Windows. */
+ int fence; /* dummy field (not used) */
+#endif
+ mydsp *dsp;
+ PdUI *ui;
+ string *label;
+ int active, xfade, n_xfade, rate, n_in, n_out;
+ t_sample **inputs, **outputs, **buf;
+ t_outlet *out;
+ t_sample f;
+};
+
+static t_symbol *s_button, *s_checkbox, *s_vslider, *s_hslider, *s_nentry,
+ *s_vbargraph, *s_hbargraph;
+
+static inline void zero_samples(int k, int n, t_sample **out)
+{
+ for (int i = 0; i < k; i++)
+#ifdef __STDC_IEC_559__
+ /* IEC 559 a.k.a. IEEE 754 floats can be initialized faster like this */
+ memset(out[i], 0, n*sizeof(t_sample));
+#else
+ for (int j = 0; j < n; j++)
+ out[i][j] = 0.0f;
+#endif
+}
+
+static inline void copy_samples(int k, int n, t_sample **out, t_sample **in)
+{
+ for (int i = 0; i < k; i++)
+ memcpy(out[i], in[i], n*sizeof(t_sample));
+}
+
+static t_int *faust_perform(t_int *w)
+{
+ t_faust *x = (t_faust *)(w[1]);
+ int n = (int)(w[2]);
+ if (!x->dsp || !x->buf) return (w+3);
+ AVOIDDENORMALS;
+ if (x->xfade > 0) {
+ float d = 1.0f/x->n_xfade, f = (x->xfade--)*d;
+ d = d/n;
+ x->dsp->compute(n, x->inputs, x->buf);
+ if (x->active)
+ if (x->n_in == x->n_out)
+ /* xfade inputs -> buf */
+ for (int j = 0; j < n; j++, f -= d)
+ for (int i = 0; i < x->n_out; i++)
+ x->outputs[i][j] = f*x->inputs[i][j]+(1.0f-f)*x->buf[i][j];
+ else
+ /* xfade 0 -> buf */
+ for (int j = 0; j < n; j++, f -= d)
+ for (int i = 0; i < x->n_out; i++)
+ x->outputs[i][j] = (1.0f-f)*x->buf[i][j];
+ else
+ if (x->n_in == x->n_out)
+ /* xfade buf -> inputs */
+ for (int j = 0; j < n; j++, f -= d)
+ for (int i = 0; i < x->n_out; i++)
+ x->outputs[i][j] = f*x->buf[i][j]+(1.0f-f)*x->inputs[i][j];
+ else
+ /* xfade buf -> 0 */
+ for (int j = 0; j < n; j++, f -= d)
+ for (int i = 0; i < x->n_out; i++)
+ x->outputs[i][j] = f*x->buf[i][j];
+ } else if (x->active) {
+ x->dsp->compute(n, x->inputs, x->buf);
+ copy_samples(x->n_out, n, x->outputs, x->buf);
+ } else if (x->n_in == x->n_out) {
+ copy_samples(x->n_out, n, x->buf, x->inputs);
+ copy_samples(x->n_out, n, x->outputs, x->buf);
+ } else
+ zero_samples(x->n_out, n, x->outputs);
+ return (w+3);
+}
+
+static void faust_dsp(t_faust *x, t_signal **sp)
+{
+ int n = sp[0]->s_n, sr = (int)sp[0]->s_sr;
+ if (x->rate <= 0) {
+ /* default sample rate is whatever Pd tells us */
+ PdUI *ui = x->ui;
+ float *z = NULL;
+ if (ui->nelems > 0 &&
+ (z = (float*)malloc(ui->nelems*sizeof(float)))) {
+ /* save the current control values */
+ for (int i = 0; i < ui->nelems; i++)
+ if (ui->elems[i].zone)
+ z[i] = *ui->elems[i].zone;
+ }
+ /* set the proper sample rate; this requires reinitializing the dsp */
+ x->rate = sr;
+ x->dsp->init(sr);
+ if (z) {
+ /* restore previous control values */
+ for (int i = 0; i < ui->nelems; i++)
+ if (ui->elems[i].zone)
+ *ui->elems[i].zone = z[i];
+ free(z);
+ }
+ }
+ if (n > 0)
+ x->n_xfade = (int)(x->rate*XFADE_TIME/n);
+ dsp_add(faust_perform, 2, x, n);
+ for (int i = 0; i < x->n_in; i++)
+ x->inputs[i] = sp[i+1]->s_vec;
+ for (int i = 0; i < x->n_out; i++)
+ x->outputs[i] = sp[x->n_in+i+1]->s_vec;
+ if (x->buf != NULL)
+ for (int i = 0; i < x->n_out; i++) {
+ x->buf[i] = (t_sample*)malloc(n*sizeof(t_sample));
+ if (x->buf[i] == NULL) {
+ for (int j = 0; j < i; j++)
+ free(x->buf[j]);
+ free(x->buf);
+ x->buf = NULL;
+ break;
+ }
+ }
+}
+
+static int pathcmp(const char *s, const char *t)
+{
+ int n = strlen(s), m = strlen(t);
+ if (n == 0 || m == 0)
+ return 0;
+ else if (t[0] == '/')
+ return strcmp(s, t);
+ else if (n <= m || s[n-m-1] != '/')
+ return strcmp(s+1, t);
+ else
+ return strcmp(s+n-m, t);
+}
+
+static void faust_any(t_faust *x, t_symbol *s, int argc, t_atom *argv)
+{
+ if (!x->dsp) return;
+ PdUI *ui = x->ui;
+ if (s == &s_bang) {
+ for (int i = 0; i < ui->nelems; i++)
+ if (ui->elems[i].label && ui->elems[i].zone) {
+ t_atom args[6];
+ t_symbol *_s;
+ switch (ui->elems[i].type) {
+ case UI_BUTTON:
+ _s = s_button;
+ break;
+ case UI_TOGGLE_BUTTON:
+ case UI_CHECK_BUTTON:
+ _s = s_checkbox;
+ break;
+ case UI_V_SLIDER:
+ _s = s_vslider;
+ break;
+ case UI_H_SLIDER:
+ _s = s_hslider;
+ break;
+ case UI_NUM_ENTRY:
+ _s = s_nentry;
+ break;
+ case UI_V_BARGRAPH:
+ _s = s_vbargraph;
+ break;
+ case UI_H_BARGRAPH:
+ _s = s_hbargraph;
+ break;
+ default:
+ continue;
+ }
+ SETSYMBOL(&args[0], gensym(ui->elems[i].label));
+ SETFLOAT(&args[1], *ui->elems[i].zone);
+ SETFLOAT(&args[2], ui->elems[i].init);
+ SETFLOAT(&args[3], ui->elems[i].min);
+ SETFLOAT(&args[4], ui->elems[i].max);
+ SETFLOAT(&args[5], ui->elems[i].step);
+ outlet_anything(x->out, _s, 6, args);
+ }
+ } else {
+ const char *label = s->s_name;
+ int count = 0;
+ for (int i = 0; i < ui->nelems; i++)
+ if (ui->elems[i].label &&
+ pathcmp(ui->elems[i].label, label) == 0) {
+ if (argc == 0) {
+ if (ui->elems[i].zone) {
+ t_atom arg;
+ SETFLOAT(&arg, *ui->elems[i].zone);
+ outlet_anything(x->out, gensym(ui->elems[i].label), 1, &arg);
+ }
+ ++count;
+ } else if (argc == 1 &&
+ (argv[0].a_type == A_FLOAT ||
+ argv[0].a_type == A_DEFFLOAT) &&
+ ui->elems[i].zone) {
+ float f = atom_getfloat(argv);
+ *ui->elems[i].zone = f;
+ ++count;
+ } else
+ pd_error(x, "[faust] %s: bad control argument: %s",
+ x->label->c_str(), label);
+ }
+ if (count == 0 && strcmp(label, "active") == 0) {
+ if (argc == 0) {
+ t_atom arg;
+ SETFLOAT(&arg, (float)x->active);
+ outlet_anything(x->out, gensym((char*)"active"), 1, &arg);
+ } else if (argc == 1 &&
+ (argv[0].a_type == A_FLOAT ||
+ argv[0].a_type == A_DEFFLOAT)) {
+ float f = atom_getfloat(argv);
+ x->active = (int)f;
+ x->xfade = x->n_xfade;
+ }
+ }
+ }
+}
+
+static void faust_free(t_faust *x)
+{
+ if (x->label) delete x->label;
+ if (x->dsp) delete x->dsp;
+ if (x->ui) delete x->ui;
+ if (x->inputs) free(x->inputs);
+ if (x->outputs) free(x->outputs);
+ if (x->buf) {
+ for (int i = 0; i < x->n_out; i++)
+ if (x->buf[i]) free(x->buf[i]);
+ free(x->buf);
+ }
+}
+
+static void *faust_new(t_symbol *s, int argc, t_atom *argv)
+{
+ t_faust *x = (t_faust*)pd_new(faust_class);
+ int sr = -1;
+ t_symbol *id = NULL;
+ x->active = 1;
+ for (int i = 0; i < argc; i++)
+ if (argv[i].a_type == A_FLOAT || argv[i].a_type == A_DEFFLOAT)
+ sr = (int)argv[i].a_w.w_float;
+ else if (argv[i].a_type == A_SYMBOL || argv[i].a_type == A_DEFSYMBOL)
+ id = argv[i].a_w.w_symbol;
+ x->rate = sr;
+ if (sr <= 0) sr = 44100;
+ x->xfade = 0; x->n_xfade = (int)(sr*XFADE_TIME/64);
+ x->inputs = x->outputs = x->buf = NULL;
+ x->label = new string(sym(mydsp) "~");
+ x->dsp = new mydsp();
+ x->ui = new PdUI(id?id->s_name:NULL);
+ if (!x->dsp || !x->ui || !x->label) goto error;
+ if (id) {
+ *x->label += " ";
+ *x->label += id->s_name;
+ }
+ x->n_in = x->dsp->getNumInputs();
+ x->n_out = x->dsp->getNumOutputs();
+ if (x->n_in > 0)
+ x->inputs = (t_sample**)malloc(x->n_in*sizeof(t_sample*));
+ if (x->n_out > 0) {
+ x->outputs = (t_sample**)malloc(x->n_out*sizeof(t_sample*));
+ x->buf = (t_sample**)malloc(x->n_out*sizeof(t_sample*));
+ }
+ if ((x->n_in > 0 && x->inputs == NULL) ||
+ (x->n_out > 0 && (x->outputs == NULL || x->buf == NULL)))
+ goto error;
+ for (int i = 0; i < x->n_out; i++)
+ x->buf[i] = NULL;
+ x->dsp->init(sr);
+ x->dsp->buildUserInterface(x->ui);
+ for (int i = 0; i < x->n_in; i++)
+ inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
+ x->out = outlet_new(&x->x_obj, 0);
+ for (int i = 0; i < x->n_out; i++)
+ outlet_new(&x->x_obj, &s_signal);
+ return (void *)x;
+ error:
+ faust_free(x);
+ x->dsp = NULL; x->ui = NULL;
+ x->inputs = x->outputs = x->buf = NULL;
+ return (void *)x;
+}
+
+extern "C" void faust_setup(mydsp)
+{
+ t_symbol *s = gensym(sym(mydsp) "~");
+ faust_class =
+ class_new(s, (t_newmethod)faust_new, (t_method)faust_free,
+ sizeof(t_faust), CLASS_DEFAULT,
+ A_GIMME, A_NULL);
+ class_addmethod(faust_class, (t_method)faust_dsp, gensym((char*)"dsp"), A_NULL);
+ class_addanything(faust_class, faust_any);
+ class_addmethod(faust_class, nullfn, &s_signal, A_NULL);
+ s_button = gensym((char*)"button");
+ s_checkbox = gensym((char*)"checkbox");
+ s_vslider = gensym((char*)"vslider");
+ s_hslider = gensym((char*)"hslider");
+ s_nentry = gensym((char*)"nentry");
+ s_vbargraph = gensym((char*)"vbargraph");
+ s_hbargraph = gensym((char*)"hbargrap");
+ /* give some indication that we're loaded and ready to go */
+ mydsp dsp = mydsp();
+ post("[faust] %s: %d inputs, %d outputs", sym(mydsp) "~",
+ dsp.getNumInputs(), dsp.getNumOutputs());
+}