interpretor/faust-0.9.47mr3/tools/faust2ck-1.0/src/chuck_faust.template

   1
   2 #include "ugen_clip.h"
   3 #include "chuck_type.h"
   4 #include "chuck_ugen.h"
   5 #include "chuck_vm.h"
   6 #include "chuck_globals.h"
   7
   8 /* UI class - do-nothing (from FAUST/minimal.cpp) */
   9
  10 class UI
  11 {
  12         bool    fStopped;
  13 public:
  14
  15         UI() : fStopped(false) {}
  16         virtual ~UI() {}
  17
  18         virtual void addButton(const char* label, float* zone) {}
  19         virtual void addToggleButton(const char* label, float* zone) {}
  20         virtual void addCheckButton(const char* label, float* zone) {}
  21         virtual void addVerticalSlider(const char* label, float* zone, float init, float min, float max, float step) {}
  22         virtual void addHorizontalSlider(const char* label, float* zone, float init, float min, float max, float step) {}
  23         virtual void addNumEntry(const char* label, float* zone, float init, float min, float max, float step) {}
  24
  25         virtual void openFrameBox(const char* label) {}
  26         virtual void openTabBox(const char* label) {}
  27         virtual void openHorizontalBox(const char* label) {}
  28         virtual void openVerticalBox(const char* label) {}
  29         virtual void closeBox() {}
  30
  31         virtual void run() {}
  32
  33         void stop()     { fStopped = true; }
  34         bool stopped()  { return fStopped; }
  35 };
  36
  37 class dsp { public: float fSamplingFreq; };
  38
  39 /*
  40  * FAUST intrinsic
  41  */
  42 <<includeIntrinsic>>
  43
  44 /*
  45  * FAUST defines UI values as private, but provides no getters/setters.
  46  * In our particular case it's way more convenient to access them directly
  47  * than to set up a complicated UI structure.  Also get rid of everything
  48  * being "virtual", since it may stop the compiler from inlining properly!
  49  */
  50 #define private public
  51 #define virtual
  52
  53 /* Rename the class the name of our DSP. */
  54 #define mydsp %dsp_name%
  55
  56 /*
  57  * FAUST class
  58  */
  59 <<includeclass>>
  60
  61 #undef private
  62 #undef virtual
  63 #undef mydsp
  64
  65 /*
  66  * ChucK glue code
  67  */
  68 static t_CKUINT %dsp_name%_offset_data = 0;
  69 static int g_sr = 44100;
  70
  71 static void %dsp_name%_ctor( Chuck_Object * SELF, void * ARGS, Chuck_VM_Shred * SHRED )
  72 {
  73     // return data to be used later
  74     %dsp_name% *d = new %dsp_name%;
  75     OBJ_MEMBER_UINT(SELF, %dsp_name%_offset_data) = (t_CKUINT)d;
  76     d->init(g_sr);
  77 }
  78
  79 static void %dsp_name%_dtor( Chuck_Object * SELF, Chuck_VM_Shred * SHRED )
  80 {
  81     delete (%dsp_name%*) OBJ_MEMBER_UINT(SELF, %dsp_name%_offset_data);
  82     OBJ_MEMBER_UINT(SELF, %dsp_name%_offset_data) = 0;
  83 }
  84
  85 static t_CKBOOL %dsp_name%_tick( Chuck_Object * SELF, float in, float * out, Chuck_VM_Shred * SHRED )
  86 {
  87     %dsp_name% *d = (%dsp_name%*)OBJ_MEMBER_UINT(SELF, %dsp_name%_offset_data);
  88     float * input, * output;
  89     input = &in;
  90     output = out;
  91         d->compute (1, &input, &output);
  92     return TRUE;
  93 }
  94
  95 %ctrl_cget_functions%
  96
  97 DLL_QUERY %dsp_name%_query( Chuck_DL_Query * QUERY )
  98 {
  99     Chuck_Env * env = Chuck_Env::instance();
 100     Chuck_DL_Func * func = NULL;
 101
 102     g_sr = QUERY->srate;
 103
 104     if( !type_engine_import_ugen_begin( env, "%dsp_name%", "UGen", env->global(),
 105                                         %dsp_name%_ctor, %dsp_name%_dtor, %dsp_name%_tick, NULL ) )
 106         return FALSE;
 107
 108     // add member variable
 109     %dsp_name%_offset_data = type_engine_import_mvar( env, "int", "@%dsp_name%_data", FALSE );
 110     if( %dsp_name%_offset_data == CK_INVALID_OFFSET ) goto error;
 111
 112     %ctrl_cget_query%
 113
 114     // end import
 115     if( !type_engine_import_class_end( env ) )
 116         return FALSE;
 117
 118     return TRUE;
 119
 120 error:
 121     // end import
 122     if( !type_engine_import_class_end( env ) )
 123         return FALSE;
 124
 125     return FALSE;
 126 }