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
|
/*
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 ==============================================
void flext_dsp::Setup(t_classid id)
{
t_class *c = getClass(id);
#if FLEXT_SYS == FLEXT_SYS_MAX
// dsp_initclass();
dsp_initboxclass();
#endif
#if FLEXT_SYS == FLEXT_SYS_PD
CLASS_MAINSIGNALIN(c,flext_hdr,defsig);
#endif
add_dsp(c,cb_dsp);
#if FLEXT_SYS != FLEXT_SYS_MAX
add_method1(c,cb_enable,"enable",A_FLOAT);
#endif
}
flext_dsp::flext_dsp():
srate(sys_getsr()), // should we set it?
blksz(sys_getblksize()),
#if FLEXT_SYS == FLEXT_SYS_PD
chnsin(sys_get_inchannels()),
chnsout(sys_get_outchannels()),
#elif FLEXT_SYS == FLEXT_SYS_MAX
chnsin(sys_getch()),
chnsout(sys_getch()),
#else
#error
#endif
#if FLEXT_SYS != FLEXT_SYS_MAX
dspon(true),
#endif
invecs(NULL),outvecs(NULL)
{}
flext_dsp::~flext_dsp()
{
if(invecs) delete[] invecs;
if(outvecs) delete[] outvecs;
}
t_int *flext_dsp::dspmeth(t_int *w)
{
flext_dsp *obj = (flext_dsp *)w[1];
#if FLEXT_SYS == FLEXT_SYS_MAX
if(!obj->thisHdr()->z_disabled)
#else
if(obj->dspon)
#endif
obj->m_signal((int)w[2],obj->invecs,obj->outvecs);
return w+3;
}
void flext_dsp::m_dsp(int /*n*/,t_sample *const * /*insigs*/,t_sample *const * /*outsigs*/) {}
void flext_dsp::m_signal(int n,t_sample *const * /*insigs*/,t_sample *const *outs)
{
for(int i = 0; i < CntOutSig(); ++i)
memset(outs[i],0,n*sizeof(*outs[i]));
}
void flext_dsp::cb_dsp(t_class *c,t_signal **sp)
{
flext_dsp *obj = thisObject(c);
if(obj->CntInSig()+obj->CntOutSig() == 0) return;
// store current dsp parameters
obj->srate = sp[0]->s_sr;
obj->blksz = sp[0]->s_n; // is this guaranteed to be the same as sys_getblksize() ?
#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();
#else
#error
#endif
// store in and out signal vectors
int i,in = obj->CntInSig(),out = obj->CntOutSig();
if(obj->invecs) delete[] obj->invecs;
obj->invecs = new t_sample *[in];
for(i = 0; i < in; ++i) obj->invecs[i] = sp[i]->s_vec;
if(obj->outvecs) delete[] obj->outvecs;
obj->outvecs = new t_sample *[out];
for(i = 0; i < out; ++i) obj->outvecs[i] = sp[in+i]->s_vec;
// with the following call derived classes can do their eventual DSP setup
obj->m_dsp(sp[0]->s_n,obj->invecs,obj->outvecs);
// set the DSP function
dsp_add((t_dspmethod)dspmeth,2,obj,sp[0]->s_n);
}
#if FLEXT_SYS != FLEXT_SYS_MAX
void flext_dsp::cb_enable(t_class *c,t_float on) { thisObject(c)->m_enable(on != 0); }
void flext_dsp::m_enable(bool en) { dspon = en; }
#endif
|
