aboutsummaryrefslogtreecommitdiff
path: root/externals/grill/vasp/source/opbase.cpp
diff options
context:
space:
mode:
authorThomas Grill <xovo@users.sourceforge.net>2009-04-01 21:13:09 +0000
committerThomas Grill <xovo@users.sourceforge.net>2009-04-01 21:13:09 +0000
commit0ed7a8b68dd73e2b0473b8127aeca99f3bac9061 (patch)
tree5c67818b38a5cc2f9caa5ca7f8640ca356adf02b /externals/grill/vasp/source/opbase.cpp
parentbb4c7f6a245394d09dac9adfb2efb093d3d98452 (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.cpp85
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;
-}