1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
|
/*
flext - C++ layer for Max/MSP and pd (pure data) externals
Copyright (c) 2001-2003 Thomas Grill (xovo@gmx.net)
For information on usage and redistribution, and for a DISCLAIMER OF ALL
WARRANTIES, see the file, "license.txt," in this distribution.
*/
/*! \file fldsp.cpp
\brief Implementation of the flext dsp base class.
*/
#include "flext.h"
#include "flinternal.h"
#include <string.h>
// === flext_dsp ==============================================
#if FLEXT_SYS == FLEXT_SYS_JMAX
const t_symbol *flext_dsp::dspsym = MakeSymbol("__flext_dspfun__");
#endif
void flext_dsp::Setup(t_classid id)
{
t_class *c = getClass(id);
#if FLEXT_SYS == FLEXT_SYS_MAX
dsp_initclass();
// dsp_initboxclass();
add_dsp(c,cb_dsp);
#elif FLEXT_SYS == FLEXT_SYS_PD
CLASS_MAINSIGNALIN(c,flext_hdr,defsig); // float messages going into the left inlet are converted to signal
add_dsp(c,cb_dsp);
add_method1(c,cb_enable,"enable",A_FLOAT);
#elif FLEXT_SYS == FLEXT_SYS_JMAX
fts_dsp_declare_function(dspsym,dspmeth);
fts_class_message_varargs(c, fts_s_put, cb_dsp);
fts_class_message_varargs(c, MakeSymbol("enable"), cb_enable);
#endif
}
flext_dsp::FLEXT_CLASSDEF(flext_dsp)():
#if FLEXT_SYS == FLEXT_SYS_JMAX
srate(fts_dsp_get_sample_rate()), // should we set it?
blksz(fts_dsp_get_tick_size()),
#else
srate(sys_getsr()),blksz(sys_getblksize()),
#endif
#if FLEXT_SYS == FLEXT_SYS_PD
chnsin(sys_get_inchannels()),
chnsout(sys_get_outchannels()),
#elif FLEXT_SYS == FLEXT_SYS_MAX
chnsin(0),chnsout(0),
#elif FLEXT_SYS == FLEXT_SYS_JMAX
#pragma message("not implemented")
chnsin(0),chnsout(0),
#else
#error
#endif
#if FLEXT_SYS != FLEXT_SYS_MAX
dspon(true),
#endif
invecs(NULL),outvecs(NULL)
{
#if FLEXT_SYS == FLEXT_SYS_JMAX
fts_dsp_object_init(thisHdr());
#endif
}
flext_dsp::~FLEXT_CLASSDEF(flext_dsp)()
{
#if FLEXT_SYS == FLEXT_SYS_JMAX
fts_dsp_object_delete(thisHdr());
#endif
/*
#if FLEXT_SYS == FLEXT_SYS_MAX
// switch off dsp as the dsp function might get called afterwards (?!)
thisHdr()->z_disabled = true;
if(invecs) delete[] invecs;
if(outvecs) delete[] outvecs;
#elif FLEXT_SYS == FLEXT_SYS_PD
dspon = false;
#endif
*/
}
#if FLEXT_SYS == FLEXT_SYS_JMAX
void flext_dsp::dspmeth(fts_word_t *w)
{
}
#else
t_int *flext_dsp::dspmeth(t_int *w)
{
flext_dsp *obj = (flext_dsp *)w[1];
/*
#ifdef FLEXT_DEBUG
if(!obj->thisHdr()) {
// object is already deleted!
ERRINTERNAL();
return w+3;
}
#endif
*/
#if FLEXT_SYS == FLEXT_SYS_MAX
if(!obj->thisHdr()->z_disabled)
#else
if(obj->dspon)
#endif
obj->m_signal(obj->blksz,obj->invecs,obj->outvecs);
return w+2;
}
#endif
#if FLEXT_SYS == FLEXT_SYS_JMAX
void flext_dsp::cb_dsp(fts_object_t *c, int winlet, fts_symbol_t s, int ac, const fts_atom_t *at)
#elif FLEXT_SYS == FLEXT_SYS_MAX
void flext_dsp::cb_dsp(t_class *c,t_signal **sp,short *count)
#else
void flext_dsp::cb_dsp(t_class *c,t_signal **sp)
#endif
{
flext_dsp *obj = thisObject(c);
if(obj->CntInSig()+obj->CntOutSig() == 0) return;
// store current dsp parameters
#if FLEXT_SYS == FLEXT_SYS_JMAX
fts_dsp_descr_t *dsp = (fts_dsp_descr_t *)fts_get_pointer(at+0);
obj->srate = fts_dsp_get_input_srate(dsp,0);
obj->blksz = fts_dsp_get_input_size(dsp,0); // is this guaranteed to be the same as sys_getblksize() ?
#else
obj->srate = sp[0]->s_sr;
obj->blksz = sp[0]->s_n; // is this guaranteed to be the same as sys_getblksize() ?
#endif
/*
#if FLEXT_SYS == FLEXT_SYS_PD
obj->chnsin = sys_get_inchannels();
obj->chnsout = sys_get_outchannels();
#elif FLEXT_SYS == FLEXT_SYS_MAX
obj->chnsin = obj->chnsout = sys_getch();
#elif FLEXT_SYS == FLEXT_SYS_JMAX
#pragma message ("How to query the channels?")
#else
#error
#endif
*/
// store in and out signal vectors
int i;
int in = obj->chnsin = obj->CntInSig();
int out = obj->chnsout = obj->CntOutSig();
#if FLEXT_SYS == FLEXT_SYS_PD
// min. 1 input channel! (CLASS_MAININLET in pd...)
if(!in) { obj->chnsin = in = 1; }
#endif
if(obj->invecs) delete[] obj->invecs;
obj->invecs = new t_signalvec[in];
for(i = 0; i < in; ++i)
obj->invecs[i] =
#if FLEXT_SYS == FLEXT_SYS_JMAX
fts_dsp_get_input_name(dsp,i);
#else
sp[i]->s_vec;
#endif
if(obj->outvecs) delete[] obj->outvecs;
obj->outvecs = new t_signalvec[out];
for(i = 0; i < out; ++i)
obj->outvecs[i] =
#if FLEXT_SYS == FLEXT_SYS_JMAX
fts_dsp_get_output_name(dsp,i);
#else
sp[in+i]->s_vec;
#endif
// with the following call derived classes can do their eventual DSP setup
obj->m_dsp(obj->blksz,obj->invecs,obj->outvecs);
// set the DSP function
#if FLEXT_SYS == FLEXT_SYS_JMAX
fts_atom_t args;
fts_set_pointer(args,obj);
fts_dsp_add_function(dspsym,1,args);
#else
dsp_add((t_dspmethod)dspmeth,1,obj);
#endif
}
/*
#if FLEXT_SYS == FLEXT_SYS_JMAX
void flext_dsp::cb_dsp_init(fts_object_t *c, int winlet, fts_symbol_t *s, int ac, const fts_atom_t *at)
{
fts_dsp_add_object(c);
}
void flext_dsp::cb_dsp_delete(fts_object_t *c, int winlet, fts_symbol_t *s, int ac, const fts_atom_t *at)
{
fts_dsp_remove_object(c);
}
#endif
*/
void flext_dsp::m_dsp(int /*n*/,t_signalvec const * /*insigs*/,t_signalvec const * /*outsigs*/) {}
void flext_dsp::m_signal(int n,t_sample *const * /*insigs*/,t_sample *const *outs)
{
for(int i = 0; i < CntOutSig(); ++i) ZeroSamples(outs[i],n);
}
#if FLEXT_SYS != FLEXT_SYS_MAX
#if FLEXT_SYS == FLEXT_SYS_PD
void flext_dsp::cb_enable(t_class *c,t_float on) { thisObject(c)->m_enable(on != 0); }
#elif FLEXT_SYS == FLEXT_SYS_JMAX
void flext_dsp::cb_enable(fts_object_t *c, int winlet, fts_symbol_t s, int ac, const fts_atom_t *at)
{ thisObject(c)->m_enable(fts_get_int(at+0) != 0); }
#endif
void flext_dsp::m_enable(bool en) { dspon = en; }
#endif
|
