+/************************************************************************
+ ************************************************************************
+ 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.
+ ************************************************************************
+ ************************************************************************/
+
+/* Q architecture file. 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 Q's faust module. */
+
+#include <stdlib.h>
+#include <math.h>
+
+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(char* label, float* zone) = 0;
+ virtual void addToggleButton(char* label, float* zone) = 0;
+ virtual void addCheckButton(char* label, float* zone) = 0;
+ virtual void addVerticalSlider(char* label, float* zone, float init, float min, float max, float step) = 0;
+ virtual void addHorizontalSlider(char* label, float* zone, float init, float min, float max, float step) = 0;
+ virtual void addNumEntry(char* label, float* zone, float init, float min, float max, float step) = 0;
+
+ virtual void addNumDisplay(char* label, float* zone, int precision) = 0;
+ virtual void addTextDisplay(char* label, float* zone, char* names[], float min, float max) = 0;
+ virtual void addHorizontalBargraph(char* label, float* zone, float min, float max) = 0;
+ virtual void addVerticalBargraph(char* label, float* zone, float min, float max) = 0;
+
+ virtual void openFrameBox(char* label) = 0;
+ virtual void openTabBox(char* label) = 0;
+ virtual void openHorizontalBox(char* label) = 0;
+ virtual void openVerticalBox(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) {}
+};
+
+/***************************************************************************
+ Q 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;
+ void *ref;
+ float init, min, max, step;
+};
+
+class QUI : public UI
+{
+public:
+ int nelems;
+ ui_elem_t *elems;
+
+ QUI();
+ virtual ~QUI();
+
+protected:
+ void add_elem(ui_elem_type_t type, char *label = NULL);
+ void add_elem(ui_elem_type_t type, char *label, float *zone);
+ void add_elem(ui_elem_type_t type, char *label, float *zone,
+ float init, float min, float max, float step);
+ void add_elem(ui_elem_type_t type, char *label, float *zone,
+ float min, float max);
+
+public:
+ virtual void addButton(char* label, float* zone);
+ virtual void addToggleButton(char* label, float* zone);
+ virtual void addCheckButton(char* label, float* zone);
+ virtual void addVerticalSlider(char* label, float* zone, float init, float min, float max, float step);
+ virtual void addHorizontalSlider(char* label, float* zone, float init, float min, float max, float step);
+ virtual void addNumEntry(char* label, float* zone, float init, float min, float max, float step);
+
+ virtual void addNumDisplay(char* label, float* zone, int precision);
+ virtual void addTextDisplay(char* label, float* zone, char* names[], float min, float max);
+ virtual void addHorizontalBargraph(char* label, float* zone, float min, float max);
+ virtual void addVerticalBargraph(char* label, float* zone, float min, float max);
+
+ virtual void openFrameBox(char* label);
+ virtual void openTabBox(char* label);
+ virtual void openHorizontalBox(char* label);
+ virtual void openVerticalBox(char* label);
+ virtual void closeBox();
+
+ virtual void run();
+};
+
+QUI::QUI()
+{
+ nelems = 0;
+ elems = NULL;
+}
+
+QUI::~QUI()
+{
+ if (elems) free(elems);
+}
+
+inline void QUI::add_elem(ui_elem_type_t type, char *label)
+{
+ ui_elem_t *elems1 = (ui_elem_t*)realloc(elems, (nelems+1)*sizeof(ui_elem_t));
+ if (elems1)
+ elems = elems1;
+ else
+ return;
+ elems[nelems].type = type;
+ elems[nelems].label = label;
+ elems[nelems].zone = NULL;
+ elems[nelems].ref = NULL;
+ elems[nelems].init = 0.0;
+ elems[nelems].min = 0.0;
+ elems[nelems].max = 0.0;
+ elems[nelems].step = 0.0;
+ nelems++;
+}
+
+inline void QUI::add_elem(ui_elem_type_t type, 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;
+ elems[nelems].type = type;
+ elems[nelems].label = label;
+ elems[nelems].zone = zone;
+ elems[nelems].ref = NULL;
+ elems[nelems].init = 0.0;
+ elems[nelems].min = 0.0;
+ elems[nelems].max = 0.0;
+ elems[nelems].step = 0.0;
+ nelems++;
+}
+
+inline void QUI::add_elem(ui_elem_type_t type, 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;
+ elems[nelems].type = type;
+ elems[nelems].label = label;
+ elems[nelems].zone = zone;
+ elems[nelems].ref = NULL;
+ elems[nelems].init = init;
+ elems[nelems].min = min;
+ elems[nelems].max = max;
+ elems[nelems].step = step;
+ nelems++;
+}
+
+inline void QUI::add_elem(ui_elem_type_t type, 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;
+ elems[nelems].type = type;
+ elems[nelems].label = label;
+ elems[nelems].zone = zone;
+ elems[nelems].ref = NULL;
+ elems[nelems].init = 0.0;
+ elems[nelems].min = min;
+ elems[nelems].max = max;
+ elems[nelems].step = 0.0;
+ nelems++;
+}
+
+void QUI::addButton(char* label, float* zone)
+{ add_elem(UI_BUTTON, label, zone); }
+void QUI::addToggleButton(char* label, float* zone)
+{ add_elem(UI_TOGGLE_BUTTON, label, zone); }
+void QUI::addCheckButton(char* label, float* zone)
+{ add_elem(UI_CHECK_BUTTON, label, zone); }
+void QUI::addVerticalSlider(char* label, float* zone, float init, float min, float max, float step)
+{ add_elem(UI_V_SLIDER, label, zone, init, min, max, step); }
+void QUI::addHorizontalSlider(char* label, float* zone, float init, float min, float max, float step)
+{ add_elem(UI_H_SLIDER, label, zone, init, min, max, step); }
+void QUI::addNumEntry(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 QUI::addNumDisplay(char* label, float* zone, int precision) {}
+void QUI::addTextDisplay(char* label, float* zone, char* names[], float min, float max) {}
+void QUI::addHorizontalBargraph(char* label, float* zone, float min, float max)
+{ add_elem(UI_H_BARGRAPH, label, zone, min, max); }
+void QUI::addVerticalBargraph(char* label, float* zone, float min, float max)
+{ add_elem(UI_V_BARGRAPH, label, zone, min, max); }
+
+void QUI::openFrameBox(char* label) {}
+void QUI::openTabBox(char* label)
+{ add_elem(UI_T_GROUP, label); }
+void QUI::openHorizontalBox(char* label)
+{ add_elem(UI_H_GROUP, label); }
+void QUI::openVerticalBox(char* label)
+{ add_elem(UI_V_GROUP, label); }
+void QUI::closeBox()
+{ add_elem(UI_END_GROUP); }
+
+void QUI::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>>
+
+/* The class factory, used to create and destroy mydsp objects in the
+ client. Implemented using C linkage to facilitate dlopen access. */
+
+extern "C" dsp *newdsp()
+{
+ mydsp *d = new mydsp();
+ return d;
+}
+
+extern "C" void deldsp(dsp* d)
+{
+ delete d;
+}