New directory tree, with preprocessor/ inside interpretor/.
[Faustine.git] / interpretor / preprocessor / faust-0.9.47mr3 / tools / faust2ck-1.0 / src / chuck_faust.template.h
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 "}",