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
|
/*
VASP modular - vector assembling signal processor / objects for Max/MSP and PD
Copyright (c) 2002 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.
*/
#include "main.h"
#include "opbase.h"
#include "opdefs.h"
Vasp *VaspOp::m_run(OpParam &p,CVasp &src,CVasp *dst,opfun fun)
{
Vasp *ret = NULL;
RVecBlock *vecs = GetRVecs(p.opname,src,dst);
if(vecs) {
ret = DoOp(vecs,fun,p);
delete vecs;
}
return ret;
}
Vasp *VaspOp::m_cun(OpParam &p,CVasp &src,CVasp *dst,opfun fun)
{
Vasp *ret = NULL;
CVecBlock *vecs = GetCVecs(p.opname,src,dst);
if(vecs) {
ret = DoOp(vecs,fun,p);
delete vecs;
}
return ret;
}
Vasp *VaspOp::m_rbin(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,opfun fun)
{
Vasp *ret = NULL;
BL argvasp = arg.IsVasp();
RVecBlock *vecs = argvasp?GetRVecs(p.opname,src,arg.GetVasp(),dst):GetRVecs(p.opname,src,dst);
if(vecs) {
if(arg.CanbeDouble()) p.rbin.arg = arg.GetADouble();
else if(arg.IsEnv()) {
if(p.args != 1)
ERRINTERNAL();
else
p.arg[0].SetE(&arg.GetEnv());
}
ret = DoOp(vecs,fun,p);
delete vecs;
}
return ret;
}
Vasp *VaspOp::m_cbin(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,opfun fun)
{
Vasp *ret = NULL;
BL argvasp = arg.IsVasp();
CVecBlock *vecs = argvasp?GetCVecs(p.opname,src,arg.GetVasp(),dst):GetCVecs(p.opname,src,dst);
if(vecs) {
if(arg.CanbeComplex()) {
CX z = arg.GetAComplex();
p.cbin.rarg = z.real;
p.cbin.iarg = z.imag;
}
else if(arg.IsEnv()) {
if(p.args != 1)
ERRINTERNAL();
else
p.arg[0].SetE(&arg.GetEnv());
}
ret = DoOp(vecs,fun,p);
delete vecs;
}
return ret;
}
|
