diff options
author | Thomas Grill <xovo@users.sourceforge.net> | 2009-04-01 21:13:09 +0000 |
---|---|---|
committer | Thomas Grill <xovo@users.sourceforge.net> | 2009-04-01 21:13:09 +0000 |
commit | 0ed7a8b68dd73e2b0473b8127aeca99f3bac9061 (patch) | |
tree | 5c67818b38a5cc2f9caa5ca7f8640ca356adf02b /externals/grill/vasp/source/opbase.cpp | |
parent | bb4c7f6a245394d09dac9adfb2efb093d3d98452 (diff) |
cleaned up grill externals - replaced with svn:externals to svn.grrrr.org/ext/trunk/
svn path=/trunk/; revision=10951
Diffstat (limited to 'externals/grill/vasp/source/opbase.cpp')
-rw-r--r-- | externals/grill/vasp/source/opbase.cpp | 85 |
1 files changed, 0 insertions, 85 deletions
diff --git a/externals/grill/vasp/source/opbase.cpp b/externals/grill/vasp/source/opbase.cpp deleted file mode 100644 index 5abcb9fa..00000000 --- a/externals/grill/vasp/source/opbase.cpp +++ /dev/null @@ -1,85 +0,0 @@ -/* - -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; -} |