diff options
Diffstat (limited to 'externals/grill/flext/source')
26 files changed, 5782 insertions, 0 deletions
diff --git a/externals/grill/flext/source/flatom.cpp b/externals/grill/flext/source/flatom.cpp new file mode 100644 index 00000000..705fc9e6 --- /dev/null +++ b/externals/grill/flext/source/flatom.cpp @@ -0,0 +1,139 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flatom.cpp + \brief Definitions for handling the t_atom type and lists thereof. +*/ + +#include "flext.h" + +//namespace flext { + +flext::AtomList::AtomList(int argc,const t_atom *argv): + lst(NULL),cnt(0) +{ + operator()(argc,argv); +} + +flext::AtomList::AtomList(const AtomList &a): + lst(NULL),cnt(0) +{ + operator =(a); +} + +flext::AtomList::~AtomList() { Clear(); } + +flext::AtomList &flext::AtomList::operator()(int argc,const t_atom *argv) +{ + if(lst && cnt != argc) { delete[] lst; lst = NULL; cnt = 0; } + + if(argc) { + cnt = argc; + lst = new t_atom[cnt]; + + if(argv) { + for(int i = 0; i < argc; ++i) SetAtom(lst[i],argv[i]); +/* + { + switch(lst[i].a_type = argv[i].a_type) { + case A_FLOAT: + lst[i].a_w.w_float = argv[i].a_w.w_float; + break; +#ifdef MAXMSP + case A_LONG: + lst[i].a_w.w_int = argv[i].a_w.w_int; + break; +#endif + case A_SYMBOL: + lst[i].a_w.w_symbol = argv[i].a_w.w_symbol; + break; +#ifdef PD + case A_POINTER: + lst[i].a_w.w_gpointer = argv[i].a_w.w_gpointer; + break; +#endif + default: + post("AtomList - atom type (%i) not supported",lst[i].a_type); + lst[i].a_type = A_NULL; + break; + } + } +*/ + } + } + return *this; +} + + +flext::AtomList &flext::AtomList::Append(const t_atom &a) +{ + t_atom *nlst = new t_atom[cnt+1]; + for(int i = 0; i < cnt; ++i) SetAtom(nlst[i],lst[i]); + SetAtom(nlst[cnt],a); + + if(lst) delete[] lst; + lst = nlst; + ++cnt; + + return *this; +} + +flext::AtomList &flext::AtomList::Append(int argc,const t_atom *argv) +{ + t_atom *nlst = new t_atom[cnt+argc]; + int i; + for(i = 0; i < cnt; ++i) SetAtom(nlst[i],lst[i]); + for(i = 0; i < argc; ++i) SetAtom(nlst[cnt+i],argv[i]); + + if(lst) delete[] lst; + lst = nlst; + cnt += argc; + + return *this; +} + +flext::AtomList &flext::AtomList::Prepend(const t_atom &a) +{ + t_atom *nlst = new t_atom[cnt+1]; + for(int i = 0; i < cnt; ++i) SetAtom(nlst[i+1],lst[i]); + SetAtom(nlst[0],a); + + if(lst) delete[] lst; + lst = nlst; + ++cnt; + + return *this; +} + +flext::AtomList &flext::AtomList::Prepend(int argc,const t_atom *argv) +{ + t_atom *nlst = new t_atom[cnt+argc]; + int i; + for(i = 0; i < argc; ++i) SetAtom(nlst[i],argv[i]); + for(i = 0; i < cnt; ++i) SetAtom(nlst[argc+i],lst[i]); + + if(lst) delete[] lst; + lst = nlst; + cnt += argc; + + return *this; +} + +flext::AtomList flext::AtomList::GetPart(int offs,int len) const +{ + if(offs+len > Count()) { + len = Count()-offs; + if(len < 0) len = 0; + } + + return AtomList(len,Atoms()+offs); +} + +//} // namespace flext diff --git a/externals/grill/flext/source/flattr.cpp b/externals/grill/flext/source/flattr.cpp new file mode 100644 index 00000000..20b06e41 --- /dev/null +++ b/externals/grill/flext/source/flattr.cpp @@ -0,0 +1,190 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flattr.cpp + \brief Attribute handling for the flext base class +*/ + +#include "flext.h" +#include <string.h> +#include <stdio.h> + +flext_base::attritem::attritem(const t_symbol *t,const t_symbol *gt,metharg tp,methfun gf,methfun sf): + tag(t),gtag(gt),argtp(tp),gfun(gf),sfun(sf),nxt(NULL) +{} + +flext_base::attritem::~attritem() +{ + if(nxt) delete nxt; +} + +void flext_base::AddAttrItem(attritem *m) +{ + if(attrhead) { + attritem *mi; + for(mi = attrhead; mi->nxt; mi = mi->nxt) {} + mi->nxt = m; + } + else + attrhead = m; + attrcnt++; +} + +void flext_base::AddAttrib(const char *attr,metharg tp,methfun gfun,methfun sfun) +{ + if(procattr) { + char tmp[1024]; + sprintf(tmp,"get%s",attr); + AddAttrItem(new attritem(MakeSymbol(attr),MakeSymbol(tmp),tp,gfun,sfun)); + + AddMethod(0,attr,(methfun)cb_SetAttrib,a_any,a_null); + AddMethod(0,tmp,(methfun)cb_GetAttrib,a_any,a_null); + } + else + error("%s - attribute procession is not enabled!",thisName()); +} + +int flext_base::CheckAttrib(int argc,const t_atom *argv) +{ + int offs = 0; + for(; offs < argc; ++offs) + if(IsString(argv[offs]) && *GetString(argv[offs]) == '@') break; + return offs; +} + +bool flext_base::InitAttrib(int argc,const t_atom *argv) +{ + int cur,nxt; + for(cur = 0; cur < argc; cur = nxt) { + // find next @symbol + for(nxt = cur+1; nxt < argc; ++nxt) + if(IsString(argv[nxt]) && *GetString(argv[nxt]) == '@') break; + + const t_symbol *tag = MakeSymbol(GetString(argv[cur])+1); + SetAttrib(tag,nxt-cur-1,argv+cur+1); + } + return true; +} + +bool flext_base::ListAttrib() +{ + if(outattr) { + AtomList la(attrcnt); + attritem *a = attrhead; + for(int i = 0; i < attrcnt; ++i,a = a->nxt) SetSymbol(la[i],a->tag); + + ToOutAnything(outattr,thisTag(),la.Count(),la.Atoms()); + return true; + } + else + return false; +} + +bool flext_base::SetAttrib(const t_symbol *tag,int argc,const t_atom *argv) +{ + attritem *a = attrhead; + for(; a && a->tag != tag; a = a->nxt) {} + + if(a) { + if(a->sfun) { + bool ok = true; + + AtomList la; + t_any any; + switch(a->argtp) { + case a_float: + if(argc == 1 && CanbeFloat(argv[0])) { + any.ft = GetAFloat(argv[0]); + ((methfun_1)a->sfun)(this,any); + } + else ok = false; + break; + case a_int: + if(argc == 1 && CanbeInt(argv[0])) { + any.it = GetAInt(argv[0]); + ((methfun_1)a->sfun)(this,any); + } + else ok = false; + break; + case a_symbol: + if(argc == 1 && IsSymbol(argv[0])) { + any.st = GetSymbol(argv[0]); + ((methfun_1)a->sfun)(this,any); + } + else ok = false; + break; + case a_LIST: + any.vt = &(la(argc,argv)); + ((methfun_1)a->sfun)(this,any); + break; + default: + ERRINTERNAL(); + } + + if(!ok) + post("%s - wrong arguments for attribute %s",thisName(),GetString(tag)); + } + else + post("%s - attribute %s has no get method",thisName(),GetString(tag)); + } + else + error("%s - %s: attribute not found",thisName(),tag); + return true; +} + +bool flext_base::GetAttrib(const t_symbol *tag,int argc,const t_atom *argv) +{ + if(argc) + post("%s - %s: arguments ignored",thisName(),GetString(tag)); + + attritem *a = attrhead; + for(; a && a->gtag != tag; a = a->nxt) {} + + if(a) { + if(a->gfun) { + AtomList la; + t_any any; + switch(a->argtp) { + case a_float: { + ((methfun_1)a->gfun)(this,any); + la(1); + SetFloat(la[0],any.ft); + break; + } + case a_int: { + ((methfun_1)a->gfun)(this,any); + la(1); + SetInt(la[0],any.it); + break; + } + case a_symbol: { + ((methfun_1)a->gfun)(this,any); + la(1); + SetSymbol(la[0],any.st); + break; + } + case a_LIST: { + any.vt = &la; + ((methfun_1)a->gfun)(this,any); + break; + } + default: + ERRINTERNAL(); + } + ToOutAnything(outattr,a->tag,la.Count(),la.Atoms()); + } + else + post("%s - attribute %s has no set method",thisName(),GetString(tag)); + } + else + error("%s - %s: attribute not found",thisName(),tag); + return true; +} + diff --git a/externals/grill/flext/source/flbase.cpp b/externals/grill/flext/source/flbase.cpp new file mode 100644 index 00000000..97fed291 --- /dev/null +++ b/externals/grill/flext/source/flbase.cpp @@ -0,0 +1,118 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flbase.cpp + \brief Implementation of the internal flext base classes. + + \remark This is all derived from GEM by Mark Danks +*/ + +#include "flbase.h" +#include "flinternal.h" +#include <string.h> + +///////////////////////////////////////////////////////// +// +// flext_obj +// +///////////////////////////////////////////////////////// + +flext_hdr *flext_obj::m_holder = NULL; +const t_symbol *flext_obj::m_holdname = NULL; +bool flext_obj::m_holdattr = false; +bool flext_obj::process_attributes = false; + +///////////////////////////////////////////////////////// +// Constructor +// +///////////////////////////////////////////////////////// +flext_obj :: flext_obj() + : x_obj(m_holder) + , m_name(m_holdname) + , procattr(m_holdattr) + , init_ok(true) +{ +#ifdef PD + m_canvas = canvas_getcurrent(); +#elif defined(MAXMSP) + m_canvas = (t_patcher *)gensym("#P")->s_thing; + x_obj->curinlet = 0; +#endif +} + +///////////////////////////////////////////////////////// +// Destructor +// +///////////////////////////////////////////////////////// +flext_obj :: ~flext_obj() {} + + +void flext_obj::DefineHelp(t_class *c,const char *ref,const char *dir,bool addtilde) +{ +#ifdef PD + char tmp[256]; + if(dir) { + strcpy(tmp,dir); + strcat(tmp,"/"); + strcat(tmp,ref); + if(addtilde) strcat(tmp,"~"); + } + else + strcpy(tmp,ref); + ::class_sethelpsymbol(c,gensym(const_cast<char *>(tmp))); +#else + // no solution for MaxMSP yet +#endif +} + + +///////////////////////////////////////////////////////// +// overloaded new/delete memory allocation methods +// +///////////////////////////////////////////////////////// + +void *flext_obj::operator new(size_t bytes) +{ + bytes += sizeof(size_t); + char *blk = (char *)getbytes(bytes); + *(size_t *)blk = bytes; + return blk+sizeof(size_t); +} + +void flext_obj::operator delete(void *blk) +{ + char *ori = (char *)blk-sizeof(size_t); + size_t bytes = *(size_t *)ori; + freebytes(ori,bytes); +} + +void *flext_obj::NewAligned(size_t bytes,int bitalign) +{ + const size_t ovh = sizeof(size_t)+sizeof(char *); + const unsigned long alignovh = bitalign/8-1; + bytes += ovh+alignovh; + char *blk = (char *)getbytes(bytes); + char *ablk = reinterpret_cast<char *>((reinterpret_cast<unsigned long>(blk)+ovh+alignovh) & ~alignovh); + *(char **)(ablk-sizeof(size_t)-sizeof(char *)) = blk; + *(size_t *)(ablk-sizeof(size_t)) = bytes; + return ablk; +} + +void flext_obj::FreeAligned(void *blk) +{ + char *ori = *(char **)((char *)blk-sizeof(size_t)-sizeof(char *)); + size_t bytes = *(size_t *)((char *)blk-sizeof(size_t)); + freebytes(ori,bytes); +} + + + + + diff --git a/externals/grill/flext/source/flbase.h b/externals/grill/flext/source/flbase.h new file mode 100644 index 00000000..f3f8b647 --- /dev/null +++ b/externals/grill/flext/source/flbase.h @@ -0,0 +1,426 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flbase.h + \brief Internal flext base classes + + \remark This is all derived from GEM by Mark Danks +*/ + +#ifndef __FLEXT_BASE_H +#define __FLEXT_BASE_H + +#include "flstdc.h" +#include "flsupport.h" + +#ifdef FLEXT_THREADS +#include <pthread.h> +#endif + +class flext_obj; + +// ---------------------------------------------------------------------------- +/*! \struct flext_hdr + \brief The obligatory PD or Max/MSP object header + \internal + + This is in a separate struct to assure that obj is the very first thing. + If it were the first thing in flext_obj, then there could be problems with + the virtual table of the C++ class. +*/ +// ---------------------------------------------------------------------------- + +struct FLEXT_EXT flext_hdr +{ + /*! \brief The obligatory object header + MUST reside at memory offset 0 (no virtual table possible) + */ + t_sigobj obj; + +#ifdef PD + //! PD only: float signal holder for pd + float defsig; +#endif + +#if defined(MAXMSP) + //! MaxMSP only: current inlet used by proxy objects + long curinlet; +#endif + + /*! \brief This points to flext object class + This points to the actual polymorphic C++ class + */ + flext_obj *data; +}; + + +// ---------------------------------------------------------------------------- +/*! \class flext_obj + \brief The mother of base classes for all flext externs + \internal + + Each extern which is written in C++ needs to use the #defines at the + end of this header file. + + The define + + FLEXT_HEADER(NEW_CLASS, PARENT_CLASS) + + should be somewhere in your header file. + One of the defines like + + FLEXT_NEW(NEW_CLASS) + FLEXT_NEW_2(NEW_CLASS, float, float) + + should be the first thing in your implementation file. + NEW_CLASS is the name of your class and PARENT_CLASS is the + parent of your class. +*/ +// ---------------------------------------------------------------------------- + +class FLEXT_EXT flext_obj: + public flext +{ + public: + + // --- overloading of new/delete memory allocation methods ---- + // MaxMSP allows only 16K in overdrive mode! + + void *operator new(size_t bytes); + void operator delete(void *blk); + + #ifndef __MRC__ // doesn't allow new[] overloading?! + void *operator new[](size_t bytes) { return operator new(bytes); } + void operator delete[](void *blk) { operator delete(blk); } + #endif + + // these are aligned + static void *NewAligned(size_t bytes,int bitalign = 128); + static void FreeAligned(void *blk); + + // --------------------- + + //! Constructor + flext_obj(); + + //! Destructor + virtual ~flext_obj() = 0; + + //! Get the object's canvas + t_canvas *thisCanvas() { return(m_canvas); } + + t_sigobj *thisHdr() { return &x_obj->obj; } + const t_sigobj *thisHdr() const { return &x_obj->obj; } + const char *thisName() const { return GetString(m_name); } + const t_symbol *thisNameSym() const { return m_name; } + +#ifdef PD + t_class *thisClass() { return (t_class *)((t_object *)(x_obj))->te_g.g_pd; } +#elif defined(MAXMSP) + t_class *thisClass() { return (t_class *)(((t_tinyobject *)x_obj)->t_messlist-1); } +#endif + + void InitProblem() { init_ok = false; } + + static void ProcessAttributes(bool attr) { process_attributes = attr; } + + // this also guarantees that there are no instances of flext_obj + virtual bool Init() = 0; + virtual void Exit() {} + +// --- help ------------------------------------------------------- + + /*! \defgroup FLEXT_C_HELP Flext help/assistance functionality + + @{ + */ + + static void DefineHelp(t_class *c,const char *ref,const char *dir = NULL,bool addtilde = false); + void DefineHelp(const char *ref,const char *dir = NULL,bool addtilde = false) { DefineHelp(thisClass(),ref,dir,addtilde); } + + //! @} + + + protected: + + //! The object header + flext_hdr *x_obj; + + //! Flag for attribute procession + bool procattr; + + static bool process_attributes; + + private: + + //! The canvas (patcher) that the object is in + t_canvas *m_canvas; + + //! Flag for successful object construction + bool init_ok; + + public: + + //! Creation callback + static void __setup__(t_class *) { flext::Setup(); } + + /*! \brief This is a temporary holder + \warning don't touch it! + */ + static flext_hdr *m_holder; + //! Hold object's name during construction + static const t_symbol *m_holdname; + + static bool m_holdattr; + + //! The object's name in the patcher + const t_symbol *m_name; + + //! Check whether construction was successful + bool InitOk() const { return init_ok; } + + //@{ + //! Definitions for library objects + + static void lib_init(const char *name,void setupfun(),bool attr); + static void obj_add(bool lib,bool dsp,bool attr,const char *idname,const char *names,void setupfun(t_class *),flext_obj *(*newfun)(int,t_atom *),void (*freefun)(flext_hdr *),int argtp1,...); + static flext_hdr *obj_new(const t_symbol *s,int argc,t_atom *argv); + static void obj_free(flext_hdr *o); + //@} +}; + + +// max. 4 creation args (see the following macros) +#define FLEXT_MAXNEWARGS 4 + +// max. 5 method args (see the following macros) +#define FLEXT_MAXMETHARGS 5 + +// prefixes for the macro generated handler functions +#define FLEXT_CALL_PRE(F) flext_c_##F +#define FLEXT_THR_PRE(F) flext_t_##F +#define FLEXT_GET_PRE(F) flext_g_##F +#define FLEXT_SET_PRE(F) flext_s_##F + + +#ifndef FLEXT_ATTRIBUTES +#define FLEXT_ATTRIBUTES 0 +#endif + +// ---------------------------------------- +// These should be used in the header +// ---------------------------------------- + + +#define FLEXT_REALHDR(NEW_CLASS, PARENT_CLASS) \ +public: \ +typedef NEW_CLASS thisType; \ +static flext_obj *__init__(int argc,t_atom *argv); \ +static void __free__(flext_hdr *hdr) \ +{ flext_obj *mydata = hdr->data; delete mydata; \ + hdr->flext_hdr::~flext_hdr(); } \ +static void __setup__(t_class *classPtr) { \ + PARENT_CLASS::__setup__(classPtr); } \ +protected: \ +static inline NEW_CLASS *thisObject(void *c) { return FLEXT_CAST<NEW_CLASS *>(((flext_hdr *)c)->data); } + + +#define FLEXT_REALHDR_S(NEW_CLASS, PARENT_CLASS,SETUPFUN) \ +public: \ +typedef NEW_CLASS thisType; \ +static flext_obj *__init__(int argc,t_atom *argv); \ +static void __free__(flext_hdr *hdr) \ +{ flext_obj *mydata = hdr->data; delete mydata; \ + hdr->flext_hdr::~flext_hdr(); } \ +static void __setup__(t_class *classPtr) \ +{ PARENT_CLASS::__setup__(classPtr); \ + NEW_CLASS::SETUPFUN(classPtr); } \ +protected: \ +static inline NEW_CLASS *thisObject(void *c) { return FLEXT_CAST<NEW_CLASS *>(((flext_hdr *)c)->data); } + + +// generate name of dsp/non-dsp setup function +#define FLEXT_STPF_0(NAME) NAME##_setup +#define FLEXT_STPF_1(NAME) NAME##_tilde_setup +#define FLEXT_STPF_(DSP) FLEXT_STPF_##DSP +#define FLEXT_STPF(NAME,DSP) FLEXT_STPF_(DSP)(NAME) + + + +// -------------------------------------------------------------------------------------- + + + +// these can be used in library setup functions +// to register the individual objects in the library + +#define FLEXT_SETUP(cl) \ +extern void cl##_setup(); \ +cl##_setup() + +#define FLEXT_DSP_SETUP(cl) \ +extern void cl##_tilde_setup(); \ +cl##_tilde_setup() + +// deprecated +#define FLEXT_TILDE_SETUP FLEXT_DSP_SETUP + + +// specify that to define the library itself + +#ifdef PD +#define FLEXT_LIB_SETUP(NAME,SETUPFUN) extern "C" FLEXT_EXT void NAME##_setup() { flext_obj::lib_init(#NAME,SETUPFUN,FLEXT_ATTRIBUTES); } +#else // MAXMSP +#define FLEXT_LIB_SETUP(NAME,SETUPFUN) extern "C" FLEXT_EXT int main() { flext_obj::lib_init(#NAME,SETUPFUN,FLEXT_ATTRIBUTES); return 0; } +#endif + + +// -------------------------------------------------- + + +#define FLEXT_EXP_0 extern "C" FLEXT_EXT +#define FLEXT_EXP_1 +#define FLEXT_EXP(LIB) FLEXT_EXP_##LIB + +#ifdef PD +#define FLEXT_OBJ_SETUP_0(NEW_CLASS,DSP) +#else // MAXMSP +#define FLEXT_OBJ_SETUP_0(NEW_CLASS,DSP) extern "C" FLEXT_EXT int main() { FLEXT_STPF(NEW_CLASS,DSP)(); return 0; } +#endif +#define FLEXT_OBJ_SETUP_1(NEW_CLASS,DSP) + +#define FLEXT_OBJ_SETUP(NEW_CLASS,DSP,LIB) FLEXT_OBJ_SETUP_##LIB(NEW_CLASS,DSP) + + + +// ---------------------------------------- +// These definitions are used below +// ---------------------------------------- + +// Shortcuts for PD/Max type arguments +#define FLEXTTYPE_void A_NULL +#define CALLBTYPE_void void +#define FLEXTTYPE_float A_FLOAT +#define CALLBTYPE_float float +#define FLEXTTYPE_t_float A_FLOAT +#define CALLBTYPE_t_float t_float + +//* #define FLEXTTYPE_t_flint A_FLINT + +#ifdef PD +#define FLEXTTYPE_int A_FLOAT +#define CALLBTYPE_int float +#else +#define FLEXTTYPE_int A_INT +#define CALLBTYPE_int int +#endif + +#define FLEXTTYPE_t_symptr A_SYMBOL +#define CALLBTYPE_t_symptr t_symptr +#define FLEXTTYPE_t_symtype A_SYMBOL +#define CALLBTYPE_t_symtype t_symptr +#define FLEXTTYPE_t_ptrtype A_POINTER +#define CALLBTYPE_t_ptrtype t_ptrtype + +#define FLEXTTP(TP) FLEXTTYPE_ ## TP +#define CALLBTP(TP) CALLBTYPE_ ## TP + + +#define ARGMEMBER_int(a) GetInt(a) +#define ARGMEMBER_float(a) GetFloat(a) +#define ARGMEMBER_t_symptr(a) GetSymbol(a) +#define ARGMEMBER_t_symtype(a) GetSymbol(a) +#define ARGCAST(arg,tp) ARGMEMBER_##tp(arg) + + +#define REAL_NEW(NAME,NEW_CLASS,DSP,LIB) \ +FLEXT_OBJ_SETUP(NEW_CLASS,DSP,LIB) \ +flext_obj *NEW_CLASS::__init__(int argc,t_atom *argv) \ +{ \ + return new NEW_CLASS; \ +} \ +FLEXT_EXP(LIB) void FLEXT_STPF(NEW_CLASS,DSP)() \ +{ \ + flext_obj::obj_add(LIB,DSP,FLEXT_ATTRIBUTES,#NEW_CLASS,NAME,NEW_CLASS::__setup__,NEW_CLASS::__init__,&NEW_CLASS::__free__,A_NULL); \ +} + +#define REAL_NEW_V(NAME,NEW_CLASS,DSP,LIB) \ +FLEXT_OBJ_SETUP(NEW_CLASS,DSP,LIB) \ +flext_obj *NEW_CLASS::__init__(int argc,t_atom *argv) \ +{ \ + return new NEW_CLASS(argc,argv); \ +} \ +FLEXT_EXP(LIB) void FLEXT_STPF(NEW_CLASS,DSP)() \ +{ \ + flext_obj::obj_add(LIB,DSP,FLEXT_ATTRIBUTES,#NEW_CLASS,NAME,NEW_CLASS::__setup__,NEW_CLASS::__init__,&NEW_CLASS::__free__,A_GIMME,A_NULL); \ +} + +#define REAL_NEW_1(NAME,NEW_CLASS,DSP,LIB, TYPE1) \ +FLEXT_OBJ_SETUP(NEW_CLASS,DSP,LIB) \ +flext_obj *NEW_CLASS::__init__(int argc,t_atom *argv) \ +{ \ + return new NEW_CLASS(ARGCAST(argv[0],TYPE1)); \ +} \ +FLEXT_EXP(LIB) void FLEXT_STPF(NEW_CLASS,DSP)() \ +{ \ + flext_obj::obj_add(LIB,DSP,FLEXT_ATTRIBUTES,#NEW_CLASS,NAME,NEW_CLASS::__setup__,NEW_CLASS::__init__,NEW_CLASS::__free__,FLEXTTP(TYPE1),A_NULL); \ +} + +#define REAL_NEW_2(NAME,NEW_CLASS,DSP,LIB, TYPE1,TYPE2) \ +FLEXT_OBJ_SETUP(NEW_CLASS,DSP,LIB) \ +flext_obj *NEW_CLASS::__init__(int argc,t_atom *argv) \ +{ \ + return new NEW_CLASS(ARGCAST(argv[0],TYPE1),ARGCAST(argv[1],TYPE2)); \ +} \ +FLEXT_EXP(LIB) void FLEXT_STPF(NEW_CLASS,DSP)() \ +{ \ + flext_obj::obj_add(LIB,DSP,FLEXT_ATTRIBUTES,#NEW_CLASS,NAME,NEW_CLASS::__setup__,NEW_CLASS::__init__,NEW_CLASS::__free__,FLEXTTP(TYPE1),FLEXTTP(TYPE2),A_NULL); \ +} + +#define REAL_NEW_3(NAME,NEW_CLASS,DSP,LIB, TYPE1, TYPE2, TYPE3) \ +FLEXT_OBJ_SETUP(NEW_CLASS,DSP,LIB) \ +flext_obj *NEW_CLASS::__init__(int argc,t_atom *argv) \ +{ \ + return new NEW_CLASS(ARGCAST(argv[0],TYPE1),ARGCAST(argv[1],TYPE2),ARGCAST(argv[2],TYPE3)); \ +} \ +FLEXT_EXP(LIB) void FLEXT_STPF(NEW_CLASS,DSP)() \ +{ \ + flext_obj::obj_add(LIB,DSP,FLEXT_ATTRIBUTES,#NEW_CLASS,NAME,NEW_CLASS::__setup__,NEW_CLASS::__init__,NEW_CLASS::__free__,FLEXTTP(TYPE1),FLEXTTP(TYPE2),FLEXTTP(TYPE3),A_NULL); \ +} + +#define REAL_NEW_4(NAME,NEW_CLASS,DSP,LIB, TYPE1,TYPE2, TYPE3, TYPE4) \ +FLEXT_OBJ_SETUP(NEW_CLASS,DSP,LIB) \ +flext_obj *NEW_CLASS::__init__(int argc,t_atom *argv) \ +{ \ + return new NEW_CLASS(ARGCAST(argv[0],TYPE1),ARGCAST(argv[1],TYPE2),ARGCAST(argv[2],TYPE3),ARGCAST(argv[3],TYPE4)); \ +} \ +FLEXT_EXP(LIB) void FLEXT_STPF(NEW_CLASS,DSP)() \ +{ \ + flext_obj::obj_add(LIB,DSP,FLEXT_ATTRIBUTES,#NEW_CLASS,NAME,NEW_CLASS::__setup__,NEW_CLASS::__init__,NEW_CLASS::__free__,FLEXTTP(TYPE1),FLEXTTP(TYPE2),FLEXTTP(TYPE3),FLEXTTP(TYPE4),A_NULL); \ +} + + +// Shortcuts for method arguments: +#define FLEXTARG_float a_float +#define FLEXTARG_int a_int +#define FLEXTARG_bool a_int +#define FLEXTARG_t_float a_float +#define FLEXTARG_t_symtype a_symbol +#define FLEXTARG_t_symptr a_symbol +#define FLEXTARG_t_ptrtype a_pointer + +#define FLEXTARG(TP) FLEXTARG_ ## TP + + +#endif + + + + diff --git a/externals/grill/flext/source/flbuf.cpp b/externals/grill/flext/source/flbuf.cpp new file mode 100644 index 00000000..dc5704c0 --- /dev/null +++ b/externals/grill/flext/source/flbuf.cpp @@ -0,0 +1,255 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flbuf.cpp + \brief Implementation of the buffer abstraction class. +*/ + +#include "flext.h" + +#ifdef MAXMSP +#include "flmspbuffer.h" // include inofficial buffer.h +#endif + +#ifdef PD +#define DIRTY_INTERVAL 0 // buffer dirty check in msec +#endif + + + +flext::buffer::buffer(const t_symbol *bn,bool delayed): + sym(NULL),data(NULL), + chns(0),frames(0) +{ +#ifdef PD + arr = NULL; + interval = DIRTY_INTERVAL; + isdirty = false; + ticking = false; + tick = clock_new(this,(t_method)cb_tick); +#endif + + if(bn) Set(bn,delayed); +} + +flext::buffer::~buffer() +{ +#ifdef PD + clock_free(tick); +#endif +} + +int flext::buffer::Set(const t_symbol *s,bool nameonly) +{ + int ret = 0; + bool valid = data != NULL; // valid now? (before change) + + if(s && sym != s) { + ret = -1; + data = NULL; + frames = 0; + chns = 0; + } + + if(s && *s->s_name) sym = s; + + if(!sym) { + if(valid) ret = -1; + } + else if(!nameonly) { +#ifdef PD + int frames1; + t_sample *data1; + + arr = (t_garray *)pd_findbyclass(const_cast<t_symbol *>(sym), garray_class); + if(!arr) + { + if (*sym->s_name) error("buffer: no such array '%s'",sym->s_name); + sym = NULL; + if(valid) ret = -1; + } + else if(!garray_getfloatarray(arr, &frames1, &data1)) + { + error("buffer: bad template '%s'", sym->s_name); + data = NULL; + frames = 0; + if(valid) ret = -1; + } + else { + garray_usedindsp(arr); + if(frames != frames1) { frames = frames1; if(!ret) ret = 1; } + if(data != data1) { data = data1; if(!ret) ret = 1; } + chns = 1; + } +#elif defined(MAXMSP) + if(sym->s_thing) { + const _buffer *p = (const _buffer *)sym->s_thing; + + if(NOGOOD(p)) { + post("buffer: buffer object '%s' no good",sym->s_name); + if(valid) ret = -1; + } + else { +#ifdef DEBUG + post("%s: buffer object '%s' - valid:%i samples:%i channels:%i frames:%i",thisName(),bufname->s_name,p->b_valid,p->b_frames,p->b_nchans,p->b_frames); +#endif + if(data != p->b_samples) { data = p->b_samples; if(!ret) ret = 1; } + if(chns != p->b_nchans) { chns = p->b_nchans; if(!ret) ret = 1; } + if(frames != p->b_frames) { frames = p->b_frames; if(!ret) ret = 1; } + } + } + else { + error("buffer: symbol '%s' not defined", sym->s_name); + if(valid) ret = -1; + } +#endif + } + + return ret; +} + +bool flext::buffer::Update() +{ + if(!Ok()) return false; + +#ifdef PD + int frames1; + t_sample *data1; + if(!garray_getfloatarray(arr, &frames1, &data1)) { + frames = 0; + data = NULL; + chns = 0; + return true; + } + else if(data != data1 || frames != frames1) { + frames = frames1; + data = data1; + return true; + } + else + return false; +#else // MAXMSP + if(!sym->s_thing) + return false; + else { + const _buffer *p = (const _buffer *)sym->s_thing; + if(data != p->b_samples || chns != p->b_nchans || frames != p->b_frames) { + data = p->b_samples; + chns = p->b_nchans; + frames = p->b_frames; + return true; + } + else + return false; + } +#endif +} + +void flext::buffer::Frames(int fr,bool keep) +{ +#ifdef PD + ::garray_resize(arr,(float)fr); + Update(); +#else + t_sample *tmp = NULL; + int sz = frames; + if(fr < sz) sz = fr; + + if(keep) { + // copy buffer data to tmp storage + tmp = new t_sample[sz]; + if(tmp) + BlockMoveData(data,tmp,sizeof(t_sample)*sz); + else + error("flext::buffer - not enough memory for keeping buffer~ contents"); + } + + t_atom msg; + _buffer *buf = (_buffer *)sym->s_thing; + // b_msr reflects buffer sample rate... is this what we want? + // Max bug: adding small value 0.001 to get right sample count + float ms = fr/buf->b_msr+0.001; + + SetFloat(msg,ms); + ::typedmess((object *)buf,gensym("size"),1,&msg); + + Update(); + + if(tmp) { + // copy data back + BlockMoveData(tmp,data,sizeof(t_sample)*sz); + delete[] tmp; + } +#endif +} + + +#ifdef PD +void flext::buffer::SetRefrIntv(float intv) +{ + interval = intv; + if(interval == 0 && ticking) { + clock_unset(tick); + ticking = false; + } +} +#else +void flext::buffer::SetRefrIntv(float) {} +#endif + + +void flext::buffer::Dirty(bool force) +{ + if(sym) { +#ifdef PD + if((!ticking) && (interval || force)) { + ticking = true; + cb_tick(this); // immediately redraw + } + else { + if(force) clock_delay(tick,0); + isdirty = true; + } +#elif defined(MAXMSP) + if(sym->s_thing) { + _buffer *p = (_buffer *)sym->s_thing; + + if(NOGOOD(p)) { + post("buffer: buffer object '%s' no good",sym->s_name); + } + else { + p->b_modtime = gettime(); + } + } + else { + error("buffer: symbol '%s' not defined",sym->s_name); + } +#endif + } +} + +#ifdef PD +void flext::buffer::cb_tick(buffer *b) +{ + if(b->arr) garray_redraw(b->arr); +#ifdef _DEBUG + else error("buffer: array is NULL"); +#endif + + if(b->isdirty && b->interval) { + b->isdirty = false; + b->ticking = true; + clock_delay(b->tick,b->interval); + } + else + b->ticking = false; +} +#endif + diff --git a/externals/grill/flext/source/flclass.h b/externals/grill/flext/source/flclass.h new file mode 100644 index 00000000..5c67dde9 --- /dev/null +++ b/externals/grill/flext/source/flclass.h @@ -0,0 +1,599 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flclass.h + \brief User accessible flext base classes + +*/ + +#ifndef __FLCLASS_H +#define __FLCLASS_H + +// include the header file declaring the base classes +#include "flbase.h" +#include "flsupport.h" + +#ifdef FLEXT_THREADS +#include <pthread.h> +#include <sched.h> +#endif + +#ifdef _MSC_VER +#pragma warning(disable: 4786) +#endif + +#ifdef __BORLANDC__ +#pragma warn -8008 // Condition is always false +#pragma warn -8057 // Parameter is never used +#pragma warn -8066 // Unreachable code +#endif + + +// === flext_base ================================================== + +//class qmsg; +//class thr_entry; + +/*! \brief Flext message only base object +*/ + + +class flext_base: + public flext_obj +{ + FLEXT_HEADER_S(flext_base,flext_obj,Setup) + + friend class flext_obj; + +public: + + /*! \defgroup FLEXT_C_BASE Flext basic class functionality + + @{ + */ + +// --- compatibility mode ---------------------------------------- + + /*! \brief Cross-platform compatibility flag. + If set flext allows only operations valid for all platforms. + Set to true by default! + */ + static bool compatibility; + +// --- inheritable virtual methods -------------------------------- + + /*! \defgroup FLEXT_C_VIRTUAL Flext virtual base class functions + + @{ + */ + + //! called on "help" message: should post some text + virtual void m_help(); + + //! called on patcher load (not on mere object creation!) + virtual void m_loadbang() {} + + //! quickhelp for inlets/outlets (gets calles in MaxMSP only) + virtual void m_assist(long /*msg*/,long /*arg*/,char * /*s*/) {} + + /*! \brief Called for every incoming message. + All method handling is done in there + \return True if a handler was found and called + */ + virtual bool m_methodmain(int inlet,const t_symbol *s,int argc,t_atom *argv); + + //! called for every unhandled message (by m_methodmain) + virtual bool m_method_(int inlet,const t_symbol *s,int argc,t_atom *argv); + +//! @} + + +// --- inlet/outlet stuff ----------------------------------------- + + /*! \defgroup FLEXT_C_INOUT Flext in-/outlet functions + \note These must be called in the class' constructor + \note All (also default) inlets must be defined + + @{ + */ + + // argument m specifies multiple inlet/outlet count + +// void AddInDef() { AddInlet(xlet::tp_def,1); } + + /*! \brief Add inlet(s) for anythings + That's the one to choose for the left-most (first) inlet unless it's a signal inlet. + */ + void AddInAnything(int m = 1) { AddInlet(xlet::tp_any,m); } // leftmost or via proxy + void AddInAnything(const char *desc,int m = 1) { AddInlet(xlet::tp_any,m,desc); } // leftmost or via proxy + //! Add inlet(s) for floats + void AddInFloat(int m = 1) { AddInlet(xlet::tp_float,m); } + void AddInFloat(const char *desc,int m = 1) { AddInlet(xlet::tp_float,m,desc); } + //! Add inlet(s) for ints + void AddInInt(int m = 1) { AddInlet(xlet::tp_int,m); } + void AddInInt(const char *desc,int m = 1) { AddInlet(xlet::tp_int,m,desc); } + //! Add inlet(s) for symbols + void AddInSymbol(int m = 1) { AddInlet(xlet::tp_sym,m); } + void AddInSymbol(const char *desc,int m = 1) { AddInlet(xlet::tp_sym,m,desc); } + //! Add inlet(s) for bang + void AddInBang(int m = 1) { AddInlet(xlet::tp_sym,m); } + void AddInBang(const char *desc,int m = 1) { AddInlet(xlet::tp_sym,m,desc); } + //! Add inlet(s) for lists + void AddInList(int m = 1) { AddInlet(xlet::tp_list,m); } // via proxy + void AddInList(const char *desc,int m = 1) { AddInlet(xlet::tp_list,m,desc); } // via proxy + + //! Add outlet(s) for anythings + void AddOutAnything(int m = 1) { AddOutlet(xlet::tp_any,m); } + void AddOutAnything(const char *desc,int m = 1) { AddOutlet(xlet::tp_any,m,desc); } + //! Add outlet(s) for floats + void AddOutFloat(int m = 1) { AddOutlet(xlet::tp_float,m); } + void AddOutFloat(const char *desc,int m = 1) { AddOutlet(xlet::tp_float,m,desc); } + //! Add outlet(s) for ints + void AddOutInt(int m = 1) { AddOutlet(xlet::tp_int,m); } + void AddOutInt(const char *desc,int m = 1) { AddOutlet(xlet::tp_int,m,desc); } + //! Add outlet(s) for symbols + void AddOutSymbol(int m = 1) { AddOutlet(xlet::tp_sym,m); } + void AddOutSymbol(const char *desc,int m = 1) { AddOutlet(xlet::tp_sym,m,desc); } + //! Add outlet(s) for bangs + void AddOutBang(int m = 1) { AddOutlet(xlet::tp_sym,m); } + void AddOutBang(const char *desc,int m = 1) { AddOutlet(xlet::tp_sym,m,desc); } + //! Add outlet(s) for lists + void AddOutList(int m = 1) { AddOutlet(xlet::tp_list,m); } + void AddOutList(const char *desc,int m = 1) { AddOutlet(xlet::tp_list,m,desc); } + + /*! \brief Set up inlets and outlets + \note this is deprecated... inlets and outlets are now set up automatically + */ + bool SetupInOut() { return true; } + + //! Get number of inlets + int CntIn() const { return incnt; } + //! Get number of outlets + int CntOut() const { return outcnt; } + //! Get number of signal inlets + int CntInSig() const { return insigs; } + //! Get number of signal outlets + int CntOutSig() const { return outsigs; } + + + class outlet; +// class AtomList; +// class AtomAnything; + + //! Retrieve currently processed message tag (NULL if no message processing) + const t_symbol *thisTag() const { return curtag; } + + //! Get pointer to outlet (_after_ calling setup_inout()!) + outlet *GetOut(int ix) { return (outlets && ix < outcnt)?outlets[ix]:NULL; } + + // output messages + + void ToOutBang(outlet *o); + //! Output bang (index n starts with 0) + void ToOutBang(int n) { outlet *o = GetOut(n); if(o) ToOutBang(o); } + + void ToOutFloat(outlet *o,float f); + //! Output float (index n starts with 0) + void ToOutFloat(int n,float f) { outlet *o = GetOut(n); if(o) ToOutFloat(o,f); } + + void ToOutInt(outlet *o,int f); + //! Output int (index n starts with 0) + void ToOutInt(int n,int f) { outlet *o = GetOut(n); if(o) ToOutInt(o,f); } + + void ToOutSymbol(outlet *o,const t_symbol *s); + //! Output symbol (index n starts with 0) + void ToOutSymbol(int n,const t_symbol *s) { outlet *o = GetOut(n); if(o) ToOutSymbol(o,s); } + + void ToOutString(outlet *o,const char *s) { ToOutSymbol(o,MakeSymbol(s)); } + //! Output string (index n starts with 0) + void ToOutString(int n,const char *s) { outlet *o = GetOut(n); if(o) ToOutString(o,s); } + + void ToOutList(outlet *o,int argc,const t_atom *argv); + //! Output list (index n starts with 0) + void ToOutList(int n,int argc,const t_atom *argv) { outlet *o = GetOut(n); if(o) ToOutList(o,argc,argv); } + //! Output list (index n starts with 0) + void ToOutList(int n,const AtomList &list) { ToOutList(n,list.Count(),list.Atoms()); } + + void ToOutAnything(outlet *o,const t_symbol *s,int argc,const t_atom *argv); + //! Output anything (index n starts with 0) + void ToOutAnything(int n,const t_symbol *s,int argc,const t_atom *argv) { outlet *o = GetOut(n); if(o) ToOutAnything(o,const_cast<t_symbol *>(s),argc,argv); } + //! Output anything (index n starts with 0) + void ToOutAnything(int n,const AtomAnything &any) { ToOutAnything(n,any.Header(),any.Count(),any.Atoms()); } + + void ToQueueBang(outlet *o); + void ToQueueBang(int n) { outlet *o = GetOut(n); if(o) ToQueueBang(o); } + void ToQueueFloat(outlet *o,float f); + void ToQueueFloat(int n,float f) { outlet *o = GetOut(n); if(o) ToQueueFloat(o,f); } + void ToQueueInt(outlet *o,int f); + void ToQueueInt(int n,int f) { outlet *o = GetOut(n); if(o) ToQueueInt(o,f); } + void ToQueueSymbol(outlet *o,const t_symbol *s); + void ToQueueSymbol(int n,const t_symbol *s) { outlet *o = GetOut(n); if(o) ToQueueSymbol(o,s); } + void ToQueueString(int n,const char *s) { ToQueueSymbol(n,MakeSymbol(s)); } + void ToQueueList(outlet *o,int argc,const t_atom *argv); + void ToQueueList(int n,int argc,const t_atom *argv) { outlet *o = GetOut(n); if(o) ToQueueList(o,argc,argv); } + void ToQueueList(int n,const AtomList &list) { ToQueueList(n,list.Count(),list.Atoms()); } + void ToQueueAnything(outlet *o,const t_symbol *s,int argc,const t_atom *argv); + void ToQueueAnything(int n,const t_symbol *s,int argc,const t_atom *argv) { outlet *o = GetOut(n); if(o) ToQueueAnything(o,s,argc,argv); } + void ToQueueAnything(int n,const AtomAnything &any) { ToQueueAnything(n,any.Header(),any.Count(),any.Atoms()); } + +//! @} + + +// --- message handling ------------------------------------------- + + enum metharg { + a_null = 0, + a_float,a_int, + a_symbol,a_pointer, + a_list,a_any, + a_LIST,a_ANY + }; + + typedef bool (*methfun)(flext_base *c); + + /*! \defgroup FLEXT_C_ADDMETHOD Flext method handling + \internal + + @{ + */ + + void AddMethodDef(int inlet,const char *tag = NULL); // call virtual function for tag && inlet + void AddMethod(int inlet,const char *tag,methfun fun,metharg tp,...); + + void AddMethod(int inlet,bool (*m)(flext_base *,int,t_atom *)) { AddMethod(inlet,"list",(methfun)m,a_list,a_null); } + void AddMethod(int inlet,const char *tag,bool (*m)(flext_base *)) { AddMethod(inlet,tag,(methfun)m,a_null); } // pure method + void AddMethod(int inlet,bool (*m)(flext_base *,const t_symbol *,int,t_atom *)) { AddMethod(inlet,"anything",(methfun)m,a_any,a_null); } // anything + void AddMethod(int inlet,bool (*m)(flext_base *,t_symbol *&)) { AddMethod(inlet,"symbol",(methfun)m,a_symbol,a_null); } // single symbol + void AddMethod(int inlet,bool (*m)(flext_base *,float &)) { AddMethod(inlet,"float",(methfun)m,a_float,a_null); } // single float + void AddMethod(int inlet,bool (*m)(flext_base *,float &,float &)) { AddMethod(inlet,"list",(methfun)m,a_float,a_float,a_null); } // list of 2 floats + void AddMethod(int inlet,bool (*m)(flext_base *,float &,float &,float &)) { AddMethod(inlet,"list",(methfun)m,a_float,a_float,a_float,a_null); } // list of 3 floats +#ifdef PD + void AddMethod(int inlet,bool (*m)(flext_base *,int &)) { AddMethod(inlet,"float",(methfun)m,a_int,a_null); } // single float +#else + void AddMethod(int inlet,bool (*m)(flext_base *,int &)) { AddMethod(inlet,"int",(methfun)m,a_int,a_null); } // single float +#endif + void AddMethod(int inlet,bool (*m)(flext_base *,int &,int &)) { AddMethod(inlet,"list",(methfun)m,a_int,a_int,a_null); } // list of 2 floats + void AddMethod(int inlet,bool (*m)(flext_base *,int &,int &,int &)) { AddMethod(inlet,"list",(methfun)m,a_int,a_int,a_int,a_null); } // list of 3 floats + void AddMethod(int inlet,const char *tag,bool (*m)(flext_base *,int,t_atom *)) { AddMethod(inlet,tag,(methfun)m,a_list,a_null); } // method+gimme + void AddMethod(int inlet,const char *tag,bool (*m)(flext_base *,const t_symbol *,int,t_atom *)) { AddMethod(inlet,tag,(methfun)m,a_any,a_null); } // method+gimme + void AddMethod(int inlet,const char *tag,bool (*m)(flext_base *,t_symbol *&)) { AddMethod(inlet,tag,(methfun)m,a_symbol,a_null); } // method+symbol + void AddMethod(int inlet,const char *tag,bool (*m)(flext_base *,float &)) { AddMethod(inlet,tag,(methfun)m,a_float,a_null); } // method+float + void AddMethod(int inlet,const char *tag,bool (*m)(flext_base *,int &)) { AddMethod(inlet,tag,(methfun)m,a_int,a_null); } // method+int + + //! Set MaxMSP style of distributing list elements over (message) inlets + void SetDist(bool d = true) { distmsgs = d; } + +//! @} + +// --- bind/unbind --------------------------------------- + +#ifdef PD + //! Bind object to a symbol + bool Bind(const t_symbol *s) { pd_bind(&thisHdr()->ob_pd,const_cast<t_symbol *>(s)); return true; } + //! Unbind object from a symbol + bool Unbind(const t_symbol *s) { pd_unbind(&thisHdr()->ob_pd,const_cast<t_symbol *>(s)); return true; } +#else + //! Bind object to a symbol + bool Bind(const t_symbol *s) { if(s->s_thing) return false; else { const_cast<t_symbol *>(s)->s_thing = (t_object *)thisHdr(); return true; } } + //! Unbind object from a symbol + bool Unbind(const t_symbol *s) { if(s->s_thing != (t_object *)thisHdr()) return false; else { const_cast<t_symbol *>(s)->s_thing = NULL; return true; } } +#endif + //! Bind object to a symbol (as string) + bool Bind(const char *c) { return Bind(MakeSymbol(c)); } + //! Unbind object from a symbol (as string) + bool Unbind(const char *c) { return Unbind(MakeSymbol(c)); } + +/* + // Low level + + //! Bind object to a symbol + static void DoUnbind(t_symbol *s,flext_obj *o); + //! Unbind object from a symbol + static void DoBind(const t_symbol *s,flext_obj *o); + //! Get bound object of a symbol + static t_class **GetBound(const t_symbol *s) { return (t_class **)s->s_thing; } +*/ + +// --- thread stuff ----------------------------------------------- + +#ifdef FLEXT_THREADS + /*! \defgroup FLEXT_C_THREAD Flext thread handling + + @{ + */ + + /*! \brief Check if current thread should terminate + \todo Check for currently running thread + */ + bool ShouldExit() const { return shouldexit; } + + //! Check if current thread is the realtime system's thread + bool IsSystemThread() const { pthread_t cur = pthread_self(); return pthread_equal(cur,thrid) != 0; } + + /*! \brief Yield to other threads + \remark A call to this is only needed for systems with cooperative multitasking like MacOS<=9 + */ + static void ThrYield() { sched_yield(); } + + typedef pthread_t thrid_t; + + /*! \brief Increase/Decrease priority of a thread + */ + static bool ChangePriority(int dp,thrid_t thr = GetThreadId()); + + /*! \brief Get priority of a thread + */ + static int GetPriority(thrid_t thr = GetThreadId()); + + /*! \brief Set priority of a thread + */ + static bool SetPriority(int p,thrid_t thr = GetThreadId()); + + /*! \brief Get current thread id + */ + static thrid_t GetThreadId(); + + +#endif // FLEXT_THREADS + +//! @} + +// xxx internal stuff xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx + +protected: + +// --- thread stuff ----------------------------------------------- + +#ifdef FLEXT_THREADS + class thr_params + { + public: + thr_params(flext_base *c,int n = 1); + ~thr_params(); + + void set_any(const t_symbol *s,int argc,const t_atom *argv); + void set_list(int argc,const t_atom *argv); + + flext_base *cl; + union _data { + bool _bool; + float _float; + int _int; + t_symptr _t_symptr; + struct { AtomAnything *args; } _any; + struct { AtomList *args; } _list; + struct { void *data; } _ext; + } *var; + }; + + class thr_entry + { + public: + thr_entry(pthread_t id = pthread_self()): thrid(id),nxt(NULL) {} + + bool Is(pthread_t id = pthread_self()) const { return pthread_equal(thrid,id) != 0; } + + pthread_t thrid; + thr_entry *nxt; + }; + + static bool StartThread(void *(*)(thr_params *p),thr_params *p,char *methname); + bool PushThread(); + void PopThread(); +#endif + +protected: + + flext_base(); + virtual ~flext_base(); + +// inlets and outlets + + /*! \brief Set up inlets and outlets + \return True on successful creation of all inlets and outlets + */ + virtual bool Init(); + + struct xlet { + enum type { + tp_none = 0, + tp_float,tp_int,tp_sym,tp_list,tp_any, + tp_LIST,tp_ANY, // use AtomList and AtomAnything + tp_sig + }; + + xlet(type t,const char *desc = NULL); + ~xlet(); + + char *desc; + type tp; + xlet *nxt; + }; + + /*! \addtogroup FLEXT_C_ATTR + + @{ + */ + + void AddAttrib(const char *attr,bool (*get)(flext_base *,float &),bool (*set)(flext_base *,float &)) { AddAttrib(attr,a_float,(methfun)get,(methfun)set); } + void AddAttrib(const char *attr,bool (*get)(flext_base *,int &),bool (*set)(flext_base *,int &)) { AddAttrib(attr,a_int,(methfun)get,(methfun)set); } + void AddAttrib(const char *attr,bool (*get)(flext_base *,t_symbol *&),bool (*set)(flext_base *,t_symbol *&)) { AddAttrib(attr,a_symbol,(methfun)get,(methfun)set); } + void AddAttrib(const char *attr,bool (*get)(flext_base *,AtomList *&),bool (*set)(flext_base *,AtomList *&)) { AddAttrib(attr,a_LIST,(methfun)get,(methfun)set); } + +//! @} + + /*! \addtogroup FLEXT_C_INOUT + + @{ + */ + + unsigned long XletCode(xlet::type tp = xlet::tp_none,...); // end list with 0 (= tp_none) !! + + void AddInlets(unsigned long code); // use XletCode to get code value + void AddInlet(xlet::type tp,int mult = 1,const char *desc = NULL) { AddXlet(tp,mult,desc,inlist); } + void AddOutlets(unsigned long code); // use XletCode to get code value + void AddOutlet(xlet::type tp,int mult = 1,const char *desc = NULL) { AddXlet(tp,mult,desc,outlist); } + + void DescInlet(int ix,const char *desc) { DescXlet(ix,desc,inlist); } + void DescOutlet(int ix,const char *desc) { DescXlet(ix,desc,outlist); } + +//! @} + +// method handling + + class methitem { + public: + methitem(int inlet,const t_symbol *t); + ~methitem(); + + void SetArgs(methfun fun,int argc,metharg *args); + + const t_symbol *tag; + int inlet; + int argc; + metharg *args; + methfun fun; + + methitem *nxt; + }; + +// const methitem *FindMethItem(int inlet,const t_symbol *tag,const methitem *st); + + class attritem { + public: + attritem(const t_symbol *tag,const t_symbol *gtag,metharg tp,methfun gfun,methfun sfun); + ~attritem(); + + const t_symbol *tag,*gtag; + metharg argtp; + methfun gfun,sfun; + + attritem *nxt; + }; + +private: + + static void Setup(t_class *c); + + xlet *inlist,*outlist; + const t_symbol *curtag; + int incnt,outcnt,insigs,outsigs; + outlet **outlets,*outattr; + bool distmsgs; + + void AddXlet(xlet::type tp,int mult,const char *desc,xlet *&root); + void DescXlet(int ix,const char *desc,xlet *&root); + + union t_any { + float ft; + int it; + t_symbol *st; + #ifdef PD + t_gpointer *pt; + #endif + void *vt; + }; + + typedef bool (*methfun_V)(flext_base *c,int argc,t_atom *argv); + typedef bool (*methfun_A)(flext_base *c,const t_symbol *s,int argc,t_atom *argv); + typedef bool (*methfun_0)(flext_base *c); + typedef bool (*methfun_1)(flext_base *c,t_any &); + typedef bool (*methfun_2)(flext_base *c,t_any &,t_any &); + typedef bool (*methfun_3)(flext_base *c,t_any &,t_any &,t_any &); + typedef bool (*methfun_4)(flext_base *c,t_any &,t_any &,t_any &,t_any &); + typedef bool (*methfun_5)(flext_base *c,t_any &,t_any &,t_any &,t_any &,t_any &); + + methitem *methhead; + void AddMethItem(methitem *m); + + attritem *attrhead; + int attrcnt; + void AddAttrItem(attritem *m); + + void AddAttrib(const char *attr,metharg tp,methfun gfun,methfun sfun); + + static int CheckAttrib(int argc,const t_atom *argv); + bool InitAttrib(int argc,const t_atom *argv); + + bool ListAttrib(); + bool GetAttrib(const t_symbol *s,int argc,const t_atom *argv); + bool SetAttrib(const t_symbol *s,int argc,const t_atom *argv); + + static bool cb_ListAttrib(flext_base *c) { return c->ListAttrib(); } + static bool cb_GetAttrib(flext_base *c,const t_symbol *s,int argc,const t_atom *argv) { return c->GetAttrib(s,argc,argv); } + static bool cb_SetAttrib(flext_base *c,const t_symbol *s,int argc,const t_atom *argv) { return c->SetAttrib(s,argc,argv); } + +#ifdef FLEXT_THREADS + bool shouldexit; + int thrcount; + + pthread_t thrid; // the thread that created the object (the system thread) + ThrMutex qmutex; + + thr_entry *thrhead,*thrtail; + ThrMutex tlmutex; +#endif + + class qmsg; + qmsg *qhead,*qtail; + t_qelem *qclk; +#ifdef MAXMSP + t_clock *yclk; + static void YTick(flext_base *th); +#endif + + static void QTick(flext_base *th); + void Queue(qmsg *m); + +#ifdef PD + // proxy object (for additional inlets) stuff + struct px_object; + friend struct px_object; +#elif defined(MAXMSP) + typedef object px_object; + static void cb_px_float(t_class *c,float f); + static void cb_px_int(t_class *c,int v); + static void cb_px_bang(t_class *c); + + static void cb_px_in1(t_class *c,int v); + static void cb_px_in2(t_class *c,int v); + static void cb_px_in3(t_class *c,int v); + static void cb_px_in4(t_class *c,int v); + static void cb_px_in5(t_class *c,int v); + static void cb_px_in6(t_class *c,int v); + static void cb_px_in7(t_class *c,int v); + static void cb_px_in8(t_class *c,int v); + static void cb_px_in9(t_class *c,int v); +#endif + static void cb_px_anything(t_class *c,const t_symbol *s,int argc,t_atom *argv); + + static void cb_px_ft1(t_class *c,float f); + static void cb_px_ft2(t_class *c,float f); + static void cb_px_ft3(t_class *c,float f); + static void cb_px_ft4(t_class *c,float f); + static void cb_px_ft5(t_class *c,float f); + static void cb_px_ft6(t_class *c,float f); + static void cb_px_ft7(t_class *c,float f); + static void cb_px_ft8(t_class *c,float f); + static void cb_px_ft9(t_class *c,float f); + + px_object **inlets; + + // callback functions + + static void cb_help(t_class *c); + + static void cb_loadbang(t_class *c); +#ifdef MAXMSP + static void cb_assist(t_class *c,void *b,long msg,long arg,char *s); +#endif +}; + +#endif diff --git a/externals/grill/flext/source/flcwmax-thr.h b/externals/grill/flext/source/flcwmax-thr.h new file mode 100755 index 00000000..1a9ecffb --- /dev/null +++ b/externals/grill/flext/source/flcwmax-thr.h @@ -0,0 +1,20 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +// This is the prefix file for CodeWarrior projects - threaded version + +#ifndef _FLEXT_CW_MAX_THR_H +#define _FLEXT_CW_MAX_THR_H + +#define FLEXT_THREADS + +#include "flcwmax.h" + +#endif diff --git a/externals/grill/flext/source/flcwmax.h b/externals/grill/flext/source/flcwmax.h new file mode 100644 index 00000000..5ef0b298 --- /dev/null +++ b/externals/grill/flext/source/flcwmax.h @@ -0,0 +1,26 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/* This is the prefix file for CodeWarrior projects */ + +#ifndef _FLEXT_CW_MAX_H +#define _FLEXT_CW_MAX_H + +#include <MacHeaders.h> + +#define MAXMSP + +#if !defined(__OPTIMIZE__) || __OPTIMIZE__ == 0 +#define _DEBUG +#endif + +/* #define _LOG */ + +#endif diff --git a/externals/grill/flext/source/fldefs.h b/externals/grill/flext/source/fldefs.h new file mode 100644 index 00000000..f92232f9 --- /dev/null +++ b/externals/grill/flext/source/fldefs.h @@ -0,0 +1,912 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file fldefs.h + \brief This file contains all #defines for actual usage + +*/ + +#ifndef __FLEXT_DEFS_H +#define __FLEXT_DEFS_H + +#ifdef FLEXT_GUI +#define FLEXT_CAST dynamic_cast +#else +#define FLEXT_CAST static_cast +#endif + +/*! \defgroup FLEXT_HEADER Flext class header + One (and only one!) of these definitions is compulsory for the class declaration. + It has to be placed somewhere in the class definition (not necessarily in a public section). + + @{ +*/ + +/*! \brief Plain flext class header + \param NEW_CLASS name of the current C++ class + \param PARENT_CLASS name of the base C++ class (e.g. flext_base or flext_dsp) +*/ +#define FLEXT_HEADER(NEW_CLASS,PARENT_CLASS) \ +\ +FLEXT_REALHDR(NEW_CLASS, PARENT_CLASS) + +/*! \brief Flext class header with setup function + \param NEW_CLASS name of the current C++ class + \param PARENT_CLASS name of the base C++ class (e.g. flext_base or flext_dsp) + \param SETUPFUN setup function, of type "void (*setupfn)(t_class *)" + + The setup function is called after class creation. It corresponds to the + original "object_setup" function, apart from the + fact that all necessary class initializations have already been taken care by flext. + The setup function can e.g. be used for a message to the console upon first creation of an object. + The object's t_class* data can be accessed by the static function thisClass() +*/ +#define FLEXT_HEADER_S(NEW_CLASS, PARENT_CLASS, SETUPFUN)\ +\ +FLEXT_REALHDR_S(NEW_CLASS, PARENT_CLASS, SETUPFUN) + + +//! @} + + + +// ==================================================================================== + +/*! \defgroup FLEXT_NEW Flext class instantiation + Makes an actual instance of a class. +*/ + +/*! \defgroup FLEXT_NEW_DSP Flext dsp class instantiation + Makes an actual instance of a dsp (aka "tilde") class (with signal processing). +*/ + +/*! \defgroup FLEXT_LIB Flext library class instantiation + Makes an actual instance of a class which is part of an object library (and not stand-alone). +*/ + +/*! \defgroup FLEXT_LIB_DSP Flext dsp library class instantiation + Makes an actual instance of a dsp (aka "tilde") class with signal processing + which is part of an object library (and not stand-alone). +*/ + +// NO ARGUMENTS +// ---------------------------------------- + +/*! Implementation of a flext class with no arguments + \ingroup FLEXT_NEW + \param NAME the object's actual name(s) as a string (like "*", "trigger", "noise~", etc.) + \param NEW_CLASS the object's C++ class name +*/ +#define FLEXT_NEW(NAME,NEW_CLASS) \ +\ +REAL_NEW(NAME,NEW_CLASS,0,0) + +/*! Implementation of a flext dsp class with no arguments + \ingroup FLEXT_NEW_DSP +*/ +#define FLEXT_NEW_DSP(NAME,NEW_CLASS) \ +\ +REAL_NEW(NAME,NEW_CLASS,1,0) + +/*! Implementation of a flext class (part of a library) with no arguments + \ingroup FLEXT_LIB +*/ +#define FLEXT_LIB(NAME,NEW_CLASS) \ +\ +REAL_NEW(NAME,NEW_CLASS,0,1) + +/*! Implementation of a flext dsp class (part of a library) with no arguments + \ingroup FLEXT_LIB_DSP +*/ +#define FLEXT_LIB_DSP(NAME,NEW_CLASS) \ +\ +REAL_NEW(NAME,NEW_CLASS,1,1) + + +// VARIABLE ARGUMENT LIST +// ---------------------------------------- + +/*! Implementation of a flext class with a variable argument list + \ingroup FLEXT_NEW +*/ +#define FLEXT_NEW_V(NAME,NEW_CLASS) \ +\ +REAL_NEW_V(NAME,NEW_CLASS,0,0) \ + +/*! Implementation of a flext tilde class with a variable argument list + \ingroup FLEXT_NEW_DSP +*/ +#define FLEXT_NEW_DSP_V(NAME,NEW_CLASS) \ +\ +REAL_NEW_V(NAME,NEW_CLASS,1,0) \ + +/*! Implementation of a flext class (part of a library) with a variable argument list + \ingroup FLEXT_LIB +*/ +#define FLEXT_LIB_V(NAME,NEW_CLASS) \ +\ +REAL_NEW_V(NAME,NEW_CLASS, 0,1) + +/*! Implementation of a flext tilde class (part of a library) with a variable argument list + \ingroup FLEXT_LIB_DSP +*/ +#define FLEXT_LIB_DSP_V(NAME,NEW_CLASS) \ +\ +REAL_NEW_V(NAME,NEW_CLASS, 1,1) + + +// OBJECT NAME + VARIABLE ARGUMENT LIST +// ---------------------------------------- + +/*! Implementation of a flext class with its name and a variable argument list + \ingroup FLEXT_NEW +*/ +#define FLEXT_NEW_NV(NAME,NEW_CLASS) \ +\ +REAL_NEW_NV(NAME,NEW_CLASS,0,0) \ + +/*! Implementation of a flext tilde class with its name and a variable argument list + \ingroup FLEXT_NEW_DSP +*/ +#define FLEXT_NEW_DSP_NV(NAME,NEW_CLASS) \ +\ +REAL_NEW_NV(NAME,NEW_CLASS,1,0) \ + +/*! Implementation of a flext class (part of a library) with its name and a variable argument list + \ingroup FLEXT_LIB +*/ +#define FLEXT_LIB_NV(NAME,NEW_CLASS) \ +\ +REAL_NEW_NV(NAME,NEW_CLASS, 0,1) + +/*! Implementation of a flext tilde class (part of a library) with its name and a variable argument list + \ingroup FLEXT_LIB_DSP +*/ +#define FLEXT_LIB_DSP_NV(NAME,NEW_CLASS) \ +\ +REAL_NEW_NV(NAME,NEW_CLASS, 1,1) + + +// ONE ARGUMENT +// ---------------------------------------- + +/*! Implementation of a flext class with one argument + \ingroup FLEXT_NEW +*/ +#define FLEXT_NEW_1(NAME,NEW_CLASS, TYPE) \ +\ +REAL_NEW_1(NAME,NEW_CLASS, 0, 0,TYPE) \ + +/*! Implementation of a flext tilde class with one argument + \ingroup FLEXT_NEW_DSP +*/ +#define FLEXT_NEW_DSP_1(NAME,NEW_CLASS, TYPE) \ +\ +REAL_NEW_1(NAME,NEW_CLASS, 1, 0,TYPE) \ + +/*! Implementation of a flext class (part of a library) with one argument + \ingroup FLEXT_LIB +*/ +#define FLEXT_LIB_1(NAME,NEW_CLASS, TYPE) \ +\ +REAL_NEW_1(NAME,NEW_CLASS, 0,1,TYPE) + +/*! Implementation of a flext tilde class (part of a library) with one argument + \ingroup FLEXT_LIB_DSP +*/ +#define FLEXT_LIB_DSP_1(NAME,NEW_CLASS, TYPE) \ +\ +REAL_NEW_1(NAME,NEW_CLASS, 1,1, TYPE) + + +// TWO ARGUMENTS +// ---------------------------------------- + +/*! Implementation of a flext class with 2 arguments + \ingroup FLEXT_NEW +*/ +#define FLEXT_NEW_2(NAME,NEW_CLASS, TYPE1, TYPE2) \ +\ +REAL_NEW_2(NAME,NEW_CLASS, 0,0, TYPE1, TYPE2) \ + +/*! Implementation of a flext tilde class with 2 arguments + \ingroup FLEXT_NEW_DSP +*/ +#define FLEXT_NEW_DSP_2(NAME,NEW_CLASS, TYPE1, TYPE2) \ +\ +REAL_NEW_2(NAME,NEW_CLASS, 1,0, TYPE1, TYPE2) \ + +/*! Implementation of a flext class (part of a library) with 2 arguments + \ingroup FLEXT_LIB +*/ +#define FLEXT_LIB_2(NAME,NEW_CLASS, TYPE1, TYPE2) \ +\ +REAL_NEW_2(NAME,NEW_CLASS, 0,1, TYPE1, TYPE2) + +/*! Implementation of a flext tilde class (part of a library) with 2 arguments + \ingroup FLEXT_LIB_DSP +*/ +#define FLEXT_LIB_DSP_2(NAME,NEW_CLASS, TYPE1, TYPE2) \ +\ +REAL_NEW_2(NAME,NEW_CLASS, 1,1, TYPE1, TYPE2) + + +// THREE ARGUMENTS +// ---------------------------------------- + +/*! Implementation of a flext class with 3 arguments + \ingroup FLEXT_NEW +*/ +#define FLEXT_NEW_3(NAME,NEW_CLASS, TYPE1, TYPE2, TYPE3) \ +\ +REAL_NEW_3(NAME,NEW_CLASS, 0,0, TYPE1, TYPE2, TYPE3) \ + +/*! Implementation of a flext tilde class with 3 arguments + \ingroup FLEXT_NEW_DSP +*/ +#define FLEXT_NEW_DSP_3(NAME,NEW_CLASS, TYPE1, TYPE2, TYPE3) \ +\ +REAL_NEW_3(NAME,NEW_CLASS, 1,0, TYPE1, TYPE2, TYPE3) \ + +/*! Implementation of a flext class (part of a library) with 3 arguments + \ingroup FLEXT_LIB +*/ +#define FLEXT_LIB_3(NAME,NEW_CLASS, TYPE1, TYPE2, TYPE3) \ +\ +REAL_NEW_3(NAME,NEW_CLASS, 0,1,TYPE1, TYPE2, TYPE3) + +/*! Implementation of a flext tilde class (part of a library) with 3 arguments + \ingroup FLEXT_LIB_DSP +*/ +#define FLEXT_LIB_DSP_3(NAME,NEW_CLASS, TYPE1, TYPE2, TYPE3) \ +\ +REAL_NEW_3(NAME,NEW_CLASS, 1,1, TYPE1, TYPE2, TYPE3) + + +// deprecated stuff + +#define FLEXT_NEW_G FLEXT_NEW_V + +#define FLEXT_NEW_TILDE FLEXT_NEW_DSP +#define FLEXT_NEW_TILDE_G FLEXT_NEW_DSP_V +#define FLEXT_NEW_TILDE_1 FLEXT_NEW_DSP_1 +#define FLEXT_NEW_TILDE_2 FLEXT_NEW_DSP_2 +#define FLEXT_NEW_TILDE_3 FLEXT_NEW_DSP_3 + +#define FLEXT_LIB_G FLEXT_LIB_V + +#define FLEXT_LIB_TILDE FLEXT_LIB_DSP +#define FLEXT_LIB_TILDE_G FLEXT_LIB_DSP_V +#define FLEXT_LIB_TILDE_1 FLEXT_LIB_DSP_1 +#define FLEXT_LIB_TILDE_2 FLEXT_LIB_DSP_2 +#define FLEXT_LIB_TILDE_3 FLEXT_LIB_DSP_3 + + + + +// ==================================================================================== + + +/*! \defgroup FLEXT_CALLBACK Flext callbacks + + @{ +*/ + +//! Set up a method callback with no arguments +#define FLEXT_CALLBACK(M_FUN) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c) \ +{ FLEXT_CAST<thisType *>(c)->M_FUN(); return true; } + +//! Set up a method callback for an anything argument +#define FLEXT_CALLBACK_A(M_FUN) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,const t_symbol *s,int argc,t_atom *argv) \ +{ FLEXT_CAST<thisType *>(c)->M_FUN(s,argc,argv); return true; } + +//! Set up a method callback for a variable argument list +#define FLEXT_CALLBACK_V(M_FUN) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,int argc,t_atom *argv) \ +{ FLEXT_CAST<thisType *>(c)->M_FUN(argc,argv); return true; } + +//! Set up a method callback for a data package (void *) argument +#define FLEXT_CALLBACK_X(M_FUN) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,void *data) \ +{ FLEXT_CAST<thisType *>(c)->M_FUN(data); return true; } + +//! Set up a method callback for a boolean argument +#define FLEXT_CALLBACK_B(M_FUN) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,int &arg1) \ +{ FLEXT_CAST<thisType *>(c)->M_FUN(arg1 != 0); return true; } + +//! Set up a method callback for 1 argument +#define FLEXT_CALLBACK_1(M_FUN,TP1) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,TP1 &arg1) \ +{ FLEXT_CAST<thisType *>(c)->M_FUN(arg1); return true; } + +//! Set up a method callback for 2 arguments +#define FLEXT_CALLBACK_2(M_FUN,TP1,TP2) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,TP1 &arg1,TP2 &arg2) \ +{ FLEXT_CAST<thisType *>(c)->M_FUN(arg1,arg2); return true; } + +//! Set up a method callback for 3 arguments +#define FLEXT_CALLBACK_3(M_FUN,TP1,TP2,TP3) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,TP1 &arg1,TP2 &arg2,TP3 &arg3) \ +{ FLEXT_CAST<thisType *>(c)->M_FUN(arg1,arg2,arg3); return true; } + +//! Set up a method callback for 4 arguments +#define FLEXT_CALLBACK_4(M_FUN,TP1,TP2,TP3,TP4) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,TP1 &arg1,TP2 &arg2,TP3 &arg3,TP4 &arg4) \ +{ FLEXT_CAST<thisType *>(c)->M_FUN(arg1,arg2,arg3,arg4); return true; } + +//! Set up a method callback for 5 arguments +#define FLEXT_CALLBACK_5(M_FUN,TP1,TP2,TP3,TP4,TP5) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,TP1 &arg1,TP2 &arg2,TP3 &arg3,TP4 &arg4,TP5 &arg5) \ +{ FLEXT_CAST<thisType *>(c)->M_FUN(arg1,arg2,arg3,arg4,arg5); return true; } + + +// Shortcuts + +//! Set up a method callback for 1 float argument +#define FLEXT_CALLBACK_F(M_FUN) \ +\ +FLEXT_CALLBACK_1(M_FUN,float) + +//! Set up a method callback for 2 float arguments +#define FLEXT_CALLBACK_FF(M_FUN) \ +\ +FLEXT_CALLBACK_2(M_FUN,float,float) + +//! Set up a method callback for 3 float arguments +#define FLEXT_CALLBACK_FFF(M_FUN) \ +\ +FLEXT_CALLBACK_3(M_FUN,float,float,float) + +//! Set up a method callback for 1 integer argument +#define FLEXT_CALLBACK_I(M_FUN) \ +\ +FLEXT_CALLBACK_1(M_FUN,int) + +//! Set up a method callback for 2 integer arguments +#define FLEXT_CALLBACK_II(M_FUN) \ +\ +FLEXT_CALLBACK_2(M_FUN,int,int) + +//! Set up a method callback for 3 integer arguments +#define FLEXT_CALLBACK_III(M_FUN) \ +\ +FLEXT_CALLBACK_3(M_FUN,int,int,int) + +//! Set up a method callback for 1 symbol argument +#define FLEXT_CALLBACK_S(M_FUN) \ +\ +FLEXT_CALLBACK_1(M_FUN,t_symptr) + + +// deprecated +#define FLEXT_CALLBACK_G FLEXT_CALLBACK_V + +//! @} + + + +/*! \defgroup FLEXT_THREAD Flext threads + + @{ +*/ + +#ifdef FLEXT_THREADS + +//! Set up a threaded method callback with no arguments +#define FLEXT_THREAD(M_FUN) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c) { \ + thr_params *p = new thr_params(c); \ + return StartThread(FLEXT_THR_PRE(M_FUN),p,#M_FUN); \ +} \ +static void *FLEXT_THR_PRE(M_FUN)(thr_params *p) { \ + thisType *th = FLEXT_CAST<thisType *>(p->cl); \ + bool ok = th->PushThread(); \ + delete p; \ + if(ok) { \ + th->M_FUN(); \ + th->PopThread(); \ + } \ + return NULL; \ +} + +//! Set up a threaded method callback for an anything argument +#define FLEXT_THREAD_A(M_FUN) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,const t_symbol *s,int argc,t_atom *argv) { \ + thr_params *p = new thr_params(c); p->set_any(s,argc,argv); \ + return StartThread(FLEXT_THR_PRE(M_FUN),p,#M_FUN); \ +} \ +static void *FLEXT_THR_PRE(M_FUN)(thr_params *p) { \ + thisType *th = FLEXT_CAST<thisType *>(p->cl); \ + bool ok = th->PushThread(); \ + AtomAnything *args = p->var[0]._any.args; \ + delete p; \ + if(ok) { \ + th->M_FUN(args->Header(),args->Count(),args->Atoms()); \ + th->PopThread(); \ + } \ + delete args; \ + return NULL; \ +} + +//! Set up a threaded method callback for a variable argument list +#define FLEXT_THREAD_V(M_FUN) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,int argc,t_atom *argv) { \ + thr_params *p = new thr_params(c); p->set_list(argc,argv); \ + return StartThread(FLEXT_THR_PRE(M_FUN),p,#M_FUN); \ +} \ +static void *FLEXT_THR_PRE(M_FUN)(thr_params *p) { \ + thisType *th = FLEXT_CAST<thisType *>(p->cl); \ + bool ok = th->PushThread(); \ + AtomList *args = p->var[0]._list.args; \ + delete p; \ + if(ok) { \ + th->M_FUN(args->Count(),args->Atoms()); \ + th->PopThread(); \ + } \ + delete args; \ + return NULL; \ +} + +/*! \brief Set up a threaded method callback for an arbitrary data struct + \note Data is pure... no destructor is called upon delete +*/ +#define FLEXT_THREAD_X(M_FUN) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,void *data) { \ + thr_params *p = new thr_params(c); p->var[0]._ext.data = data; \ + return StartThread(FLEXT_THR_PRE(M_FUN),p,#M_FUN); \ +} \ +static void *FLEXT_THR_PRE(M_FUN)(thr_params *p) { \ + thisType *th = FLEXT_CAST<thisType *>(p->cl); \ + bool ok = th->PushThread(); \ + void *data = p->var[0]._ext.data; \ + delete p; \ + if(ok) { \ + th->M_FUN(data); \ + th->PopThread(); \ + } \ + delete data; \ + return NULL; \ +} + +//! Set up a threaded method callback for a boolean argument +#define FLEXT_THREAD_B(M_FUN) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,int &arg1) { \ + thr_params *p = new thr_params(c); p->var[0]._bool = arg1 != 0; \ + return StartThread(FLEXT_THR_PRE(M_FUN),p,#M_FUN); \ +} \ +static void *FLEXT_THR_PRE(M_FUN)(thr_params *p) { \ + thisType *th = FLEXT_CAST<thisType *>(p->cl); \ + bool ok = th->PushThread(); \ + bool b = p->var[0]._bool; \ + delete p; \ + if(ok) { \ + th->M_FUN(b); \ + th->PopThread(); \ + } \ + return NULL; \ +} + +//! Set up a threaded method callback for 1 argument +#define FLEXT_THREAD_1(M_FUN,TP1) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,TP1 &arg1) { \ + thr_params *p = new thr_params(c,1); \ + p->var[0]._ ## TP1 = arg1; \ + return StartThread(FLEXT_THR_PRE(M_FUN),p,#M_FUN); \ +} \ +static void *FLEXT_THR_PRE(M_FUN)(thr_params *p) { \ + thisType *th = FLEXT_CAST<thisType *>(p->cl); \ + bool ok = th->PushThread(); \ + const TP1 v1 = p->var[0]._ ## TP1; \ + delete p; \ + if(ok) { \ + th->M_FUN(v1); \ + th->PopThread(); \ + } \ + return NULL; \ +} + +//! Set up a threaded method callback for 2 arguments +#define FLEXT_THREAD_2(M_FUN,TP1,TP2) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,TP1 &arg1,TP2 &arg2) { \ + thr_params *p = new thr_params(c,2); \ + p->var[0]._ ## TP1 = arg1; \ + p->var[1]._ ## TP2 = arg2; \ + return StartThread(FLEXT_THR_PRE(M_FUN),p,#M_FUN); \ +} \ +static void *FLEXT_THR_PRE(M_FUN)(thr_params *p) { \ + thisType *th = FLEXT_CAST<thisType *>(p->cl); \ + bool ok = th->PushThread(); \ + const TP1 v1 = p->var[0]._ ## TP1; \ + const TP1 v2 = p->var[1]._ ## TP2; \ + delete p; \ + if(ok) { \ + th->M_FUN(v1,v2); \ + th->PopThread(); \ + } \ + return NULL; \ +} + +//! Set up a threaded method callback for 3 arguments +#define FLEXT_THREAD_3(M_FUN,TP1,TP2,TP3) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,TP1 &arg1,TP2 &arg2,TP3 &arg3) { \ + thr_params *p = new thr_params(c,3); \ + p->var[0]._ ## TP1 = arg1; \ + p->var[1]._ ## TP2 = arg2; \ + p->var[2]._ ## TP3 = arg3; \ + return StartThread(FLEXT_THR_PRE(M_FUN),p,#M_FUN); \ +} \ +static void *FLEXT_THR_PRE(M_FUN)(thr_params *p) { \ + thisType *th = FLEXT_CAST<thisType *>(p->cl); \ + bool ok = th->PushThread(); \ + const TP1 v1 = p->var[0]._ ## TP1; \ + const TP2 v2 = p->var[1]._ ## TP2; \ + const TP3 v3 = p->var[2]._ ## TP3; \ + delete p; \ + if(ok) { \ + th->M_FUN(v1,v2,v3); \ + th->PopThread(); \ + } \ + return NULL; \ +} + +//! Set up a threaded method callback for 4 arguments +#define FLEXT_THREAD_4(M_FUN,TP1,TP2,TP3,TP4) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,TP1 &arg1,TP2 &arg2,TP3 &arg3,TP4 &arg4) { \ + thr_params *p = new thr_params(c,4); \ + p->var[0]._ ## TP1 = arg1; \ + p->var[1]._ ## TP2 = arg2; \ + p->var[2]._ ## TP3 = arg3; \ + p->var[3]._ ## TP4 = arg4; \ + return StartThread(FLEXT_THR_PRE(M_FUN),p,#M_FUN); \ +} \ +static void *FLEXT_THR_PRE(M_FUN)(thr_params *p) { \ + thisType *th = FLEXT_CAST<thisType *>(p->cl); \ + bool ok = th->PushThread(); \ + const TP1 v1 = p->var[0]._ ## TP1; \ + const TP2 v2 = p->var[1]._ ## TP2; \ + const TP3 v3 = p->var[2]._ ## TP3; \ + const TP4 v4 = p->var[3]._ ## TP4; \ + delete p; \ + if(ok) { \ + th->M_FUN(v1,v2,v3,v4); \ + th->PopThread(); \ + } \ + return NULL; \ +} + +//! Set up a threaded method callback for 5 arguments +#define FLEXT_THREAD_5(M_FUN,TP1,TP2,TP3,TP4,TP5) \ +static bool FLEXT_CALL_PRE(M_FUN)(flext_base *c,TP1 &arg1,TP2 &arg2,TP3 &arg3,TP4 &arg4,TP5 &arg5) { \ + thr_params *p = new thr_params(c,5); \ + p->var[0]._ ## TP1 = arg1; \ + p->var[1]._ ## TP2 = arg2; \ + p->var[2]._ ## TP3 = arg3; \ + p->var[3]._ ## TP4 = arg4; \ + p->var[4]._ ## TP5 = arg5; \ + return StartThread(FLEXT_THR_PRE(M_FUN),p,#M_FUN); \ +} \ +static void *FLEXT_THR_PRE(M_FUN)(thr_params *p) { \ + thisType *th = FLEXT_CAST<thisType *>(p->cl); \ + bool ok = th->PushThread(); \ + const TP1 v1 = p->var[0]._ ## TP1; \ + const TP2 v2 = p->var[1]._ ## TP2; \ + const TP3 v3 = p->var[2]._ ## TP3; \ + const TP4 v4 = p->var[3]._ ## TP4; \ + const TP5 v5 = p->var[4]._ ## TP5; \ + delete p; \ + if(ok) { \ + th->M_FUN(v1,v2,v3,v4,v5); \ + th->PopThread(); \ + } \ + return NULL; \ +} + + +//! Shortcuts + +//! Set up a threaded method callback for 1 float argument +#define FLEXT_THREAD_F(M_FUN) \ +\ +FLEXT_THREAD_1(M_FUN,float) + +//! Set up a threaded method callback for 2 float arguments +#define FLEXT_THREAD_FF(M_FUN) \ +\ +FLEXT_THREAD_2(M_FUN,float,float) + +//! Set up a threaded method callback for 3 float arguments +#define FLEXT_THREAD_FFF(M_FUN) \ +\ +FLEXT_THREAD_3(M_FUN,float,float,float) + +//! Set up a threaded method callback for 1 integer argument +#define FLEXT_THREAD_I(M_FUN) \ +\ +FLEXT_THREAD_1(M_FUN,int) + +//! Set up a threaded method callback for 2 integer arguments +#define FLEXT_THREAD_II(M_FUN) \ +\ +FLEXT_THREAD_2(M_FUN,int,int) + +//! Set up a threaded method callback for 3 integer arguments +#define FLEXT_THREAD_III(M_FUN) \ +\ +FLEXT_THREAD_3(M_FUN,int,int,int) + +//! Set up a threaded method callback for 1 symbol argument +#define FLEXT_THREAD_S(M_FUN) \ +\ +FLEXT_THREAD_1(M_FUN,t_symptr) + +// deprecated +#define FLEXT_THREAD_G FLEXT_THREAD_V + +#endif // FLEXT_THREAD + +//! @} + + + +// ==================================================================================== + + + +/*! \defgroup FLEXT_ADDMETHOD Add flext methods + These should be the used in the class' constructor + + @{ +*/ + +//! Enable list element distribution over inlets (if no better handler found) +#define FLEXT_ADDDIST() \ +\ +SetDist(true) + +//! Add a method handler for bang +#define FLEXT_ADDBANG(IX,M_FUN) \ +\ +AddMethod(IX,"bang",FLEXT_CALL_PRE(M_FUN)) + +//! Add a handler for a method with no arguments +#define FLEXT_ADDMETHOD(IX,M_FUN) \ +AddMethod(IX,FLEXT_CALL_PRE(M_FUN)) + +//! Add a handler for a method with a (variable argument) list +#define FLEXT_ADDMETHOD_V(IX,M_FUN) \ +\ +AddMethod(IX,FLEXT_CALL_PRE(M_FUN)) + +//! Add a handler for a method with an anything argument +#define FLEXT_ADDMETHOD_A(IX,M_FUN) \ +\ +AddMethod(IX,FLEXT_CALL_PRE(M_FUN)) + +//! Add a a handler for a method with implicit arguments +#define FLEXT_ADDMETHOD_(IX,M_TAG,M_FUN) \ +\ +AddMethod(IX,M_TAG,FLEXT_CALL_PRE(M_FUN)) + +//! Add a handler for a method with 1 enum type argument +#define FLEXT_ADDMETHOD_E(IX,M_TAG,M_FUN) \ +\ +AddMethod(IX,M_TAG,(methfun)(FLEXT_CALL_PRE(M_FUN)),a_int,a_null) + +//! Add a handler for a method with 1 argument +#define FLEXT_ADDMETHOD_1(IX,M_TAG,M_FUN,TP1) \ +\ +AddMethod(IX,M_TAG,(methfun)(FLEXT_CALL_PRE(M_FUN)),FLEXTARG(TP1),a_null) + +//! Add a handler for a method with 2 arguments +#define FLEXT_ADDMETHOD_2(IX,M_TAG,M_FUN,TP1,TP2) \ +\ +AddMethod(IX,M_TAG,(methfun)(FLEXT_CALL_PRE(M_FUN)),FLEXTARG(TP1),FLEXTARG(TP2),a_null) + +//! Add a handler for a method with 3 arguments +#define FLEXT_ADDMETHOD_3(IX,M_TAG,M_FUN,TP1,TP2,TP3) \ +\ +AddMethod(IX,M_TAG,(methfun)(FLEXT_CALL_PRE(M_FUN)),FLEXTARG(TP1),FLEXTARG(TP2),FLEXTARG(TP3),a_null) + +//! Add a handler for a method with 4 arguments +#define FLEXT_ADDMETHOD_4(IX,M_TAG,M_FUN,TP1,TP2,TP3,TP4) \ +\ +AddMethod(IX,M_TAG,(methfun)(FLEXT_CALL_PRE(M_FUN)),FLEXTARG(TP1),FLEXTARG(TP2),FLEXTARG(TP3),FLEXTARG(TP4),a_null) + +//! Add a handler for a method with 5 arguments +#define FLEXT_ADDMETHOD_5(IX,M_TAG,M_FUN,TP1,TP2,TP3,TP4,TP5) \ +\ +AddMethod(IX,M_TAG,(methfun)(FLEXT_CALL_PRE(M_FUN)),FLEXTARG(TP1),FLEXTARG(TP2),FLEXTARG(TP3),FLEXTARG(TP4),FLEXTARG(TP5),a_null) + + +// Shortcuts + +//! Add a handler for a method with a boolean argument +#define FLEXT_ADDMETHOD_B(IX,M_TAG,M_FUN) \ +\ +FLEXT_ADDMETHOD_1(IX,M_TAG,M_FUN,bool) + +//! Add a handler for a method with 1 float argument +#define FLEXT_ADDMETHOD_F(IX,M_TAG,M_FUN) \ +\ +FLEXT_ADDMETHOD_1(IX,M_TAG,M_FUN,float) + +//! Add a handler for a method with 2 float arguments +#define FLEXT_ADDMETHOD_FF(IX,M_TAG,M_FUN) \ +\ +FLEXT_ADDMETHOD_2(IX,M_TAG,M_FUN,float,float) + +//! Add a handler for a method with 3 float arguments +#define FLEXT_ADDMETHOD_FFF(IX,M_TAG,M_FUN) \ +\ +FLEXT_ADDMETHOD_3(IX,M_TAG,M_FUN,float,float,float) + +//! Add a handler for a method with 1 integer argument +#define FLEXT_ADDMETHOD_I(IX,M_TAG,M_FUN) \ +\ +FLEXT_ADDMETHOD_1(IX,M_TAG,M_FUN,int) + +//! Add a handler for a method with 2 integer arguments +#define FLEXT_ADDMETHOD_II(IX,M_TAG,M_FUN) \ +\ +FLEXT_ADDMETHOD_2(IX,M_TAG,M_FUN,int,int) + +//! Add a handler for a method with 3 integer arguments +#define FLEXT_ADDMETHOD_III(IX,M_TAG,M_FUN) \ +\ +FLEXT_ADDMETHOD_3(IX,M_TAG,M_FUN,int,int,int) + +//! @} + + + +/*! \defgroup FLEXT_CALLMETHOD Call flext methods manually + These can only be used in class member functions! + + @{ +*/ + +//! Call a (already defined) method with no arguments +#define FLEXT_CALLMETHOD(M_FUN) \ +\ +FLEXT_CALL_PRE(M_FUN)(this) + +//! Call a (already defined) method with variable list arguments +#define FLEXT_CALLMETHOD_V(M_FUN,ARGC,ARGV) \ +\ +FLEXT_CALL_PRE(M_FUN)(this,ARGC,ARGV) + +//! Call a (already defined) method with anything arguments +#define FLEXT_CALLMETHOD_A(M_FUN,HDR,ARGC,ARGV) \ +\ +FLEXT_CALL_PRE(M_FUN)(this,HDR,ARGC,ARGV) + +//! Call a (already defined) method with a data package (void *) +#define FLEXT_CALLMETHOD_X(M_FUN,DATA) \ +\ +FLEXT_CALL_PRE(M_FUN)(this,DATA) + +//! Call a (already defined) method with 1 enum type argument +#define FLEXT_CALLMETHOD_E(M_FUN,ARG) \ +\ +FLEXT_CALL_PRE(M_FUN)(this,ARG) + +//! Call a (already defined) method with 1 argument +#define FLEXT_CALLMETHOD_1(M_FUN,ARG) \ +\ +FLEXT_CALL_PRE(M_FUN)(this,ARG) + +//! Call a (already defined) method with 2 arguments +#define FLEXT_CALLMETHOD_2(M_FUN,ARG1,ARG2) \ +\ +FLEXT_CALL_PRE(M_FUN)(this,ARG1,ARG2) + +//! Call a (already defined) method with 3 arguments +#define FLEXT_CALLMETHOD_3(M_FUN,ARG1,ARG2,ARG3) \ +\ +FLEXT_CALL_PRE(M_FUN)(this,ARG1,ARG2,ARG3) + +//! Call a (already defined) method with 4 arguments +#define FLEXT_CALLMETHOD_4(M_FUN,ARG1,ARG2,ARG3,ARG4) \ +\ +FLEXT_CALL_PRE(M_FUN)(this,ARG1,ARG2,ARG3,ARG4) + +//! Call a (already defined) method with 5 arguments +#define FLEXT_CALLMETHOD_5(M_FUN,ARG1,ARG2,ARG3,ARG4,ARG5) \ +\ +FLEXT_CALL_PRE(M_FUN)(this,ARG1,ARG2,ARG3,ARG4,ARG5) + +//! @} + + + +/*! \defgroup FLEXT_DEFATTR flext functions for attribute definition + + @{ +*/ + +#define FLEXT_CALLSET_(FUN,TP) \ +static bool FLEXT_SET_PRE(FUN)(flext_base *c,TP &arg) \ +{ FLEXT_CAST<thisType *>(c)->FUN(arg); return true; } + +#define FLEXT_CALLGET_(FUN,TP) \ +static bool FLEXT_GET_PRE(FUN)(flext_base *c,TP &arg) \ +{ FLEXT_CAST<thisType *>(c)->FUN(arg); return true; } + +#define FLEXT_ATTRSET_(VAR,TP) \ +static bool FLEXT_SET_PRE(VAR)(flext_base *c,TP &arg) \ +{ FLEXT_CAST<thisType *>(c)->VAR = arg; return true; } + +#define FLEXT_ATTRGET_(VAR,TP) \ +static bool FLEXT_GET_PRE(VAR)(flext_base *c,TP &arg) \ +{ arg = FLEXT_CAST<thisType *>(c)->VAR; return true; } + +#define FLEXT_CALLSET_F(SFUN) FLEXT_CALLSET_(SFUN,float) +#define FLEXT_CALLSET_I(SFUN) FLEXT_CALLSET_(SFUN,int) +#define FLEXT_CALLSET_S(SFUN) FLEXT_CALLSET_(SFUN,t_symptr) + +#define FLEXT_CALLSET_V(FUN) \ +static bool FLEXT_SET_PRE(FUN)(flext_base *c,AtomList *&arg) \ +{ FLEXT_CAST<thisType *>(c)->FUN(*arg); return true; } + +#define FLEXT_CALLGET_F(GFUN) FLEXT_CALLGET_(GFUN,float) +#define FLEXT_CALLGET_I(GFUN) FLEXT_CALLGET_(GFUN,int) +#define FLEXT_CALLGET_S(GFUN) FLEXT_CALLGET_(GFUN,t_symptr) + +#define FLEXT_CALLGET_V(FUN) \ +static bool FLEXT_GET_PRE(FUN)(flext_base *c,AtomList *&arg) \ +{ FLEXT_CAST<thisType *>(c)->FUN(*arg); return true; } + +#define FLEXT_CALLXFER_F(GFUN,SFUN) FLEXT_CALLGET_F(GFUN) FLEXT_CALLSET_F(SFUN) +#define FLEXT_CALLXFER_I(GFUN,SFUN) FLEXT_CALLGET_I(GFUN) FLEXT_CALLSET_I(SFUN) +#define FLEXT_CALLXFER_S(GFUN,SFUN) FLEXT_CALLGET_S(GFUN) FLEXT_CALLSET_S(SFUN) +#define FLEXT_CALLXFER_V(GFUN,SFUN) FLEXT_CALLGET_V(GFUN) FLEXT_CALLSET_V(SFUN) + +#define FLEXT_ATTRSET_F(VAR) FLEXT_ATTRSET_(VAR,float) +#define FLEXT_ATTRSET_I(VAR) FLEXT_ATTRSET_(VAR,int) +#define FLEXT_ATTRSET_S(VAR) FLEXT_ATTRSET_(VAR,t_symptr) + +#define FLEXT_ATTRSET_V(VAR) \ +static bool FLEXT_SET_PRE(VAR)(flext_base *c,AtomList *&arg) \ +{ FLEXT_CAST<thisType *>(c)->VAR = *arg; return true; } + +#define FLEXT_ATTRGET_F(VAR) FLEXT_ATTRGET_(VAR,float) +#define FLEXT_ATTRGET_I(VAR) FLEXT_ATTRGET_(VAR,int) +#define FLEXT_ATTRGET_S(VAR) FLEXT_ATTRGET_(VAR,t_symptr) + +#define FLEXT_ATTRGET_V(VAR) \ +static bool FLEXT_GET_PRE(VAR)(flext_base *c,AtomList *&arg) \ +{ *arg = FLEXT_CAST<thisType *>(c)->VAR; return true; } + +#define FLEXT_ATTRXFER_F(VAR) FLEXT_ATTRGET_F(VAR) FLEXT_ATTRSET_F(VAR) +#define FLEXT_ATTRXFER_I(VAR) FLEXT_ATTRGET_I(VAR) FLEXT_ATTRSET_I(VAR) +#define FLEXT_ATTRXFER_S(VAR) FLEXT_ATTRGET_S(VAR) FLEXT_ATTRSET_S(VAR) +#define FLEXT_ATTRXFER_V(VAR) FLEXT_ATTRGET_V(VAR) FLEXT_ATTRSET_V(VAR) + +//! @} + +/*! \defgroup FLEXT_ADDATTR flext methods for defining attributes + These can only be used in class member functions! + + @{ +*/ + +#define FLEXT_ADDATTR_GET(NAME,GFUN) AddAttrib(NAME,(FLEXT_GET_PRE(GFUN)),NULL) +#define FLEXT_ADDATTR_SET(NAME,SFUN) AddAttrib(NAME,NULL,(FLEXT_SET_PRE(SFUN))) +#define FLEXT_ADDATTRIB(NAME,FUN) AddAttrib(NAME,(FLEXT_GET_PRE(FUN)),(FLEXT_SET_PRE(FUN))) + +//! @} + + + + +#endif // __FLEXT_DEFS_H diff --git a/externals/grill/flext/source/fldoxygen.h b/externals/grill/flext/source/fldoxygen.h new file mode 100644 index 00000000..bae97b44 --- /dev/null +++ b/externals/grill/flext/source/fldoxygen.h @@ -0,0 +1,22 @@ +#ifndef __FLEXT_DOXYGEN_H +#define __FLEXT_DOXYGEN_H + +/*! \file fldoxygen.h + \brief Doxygen definitions + \remark There is no code in here, just documentation stuff. +*/ + +/*! \mainpage flext - C++ layer for cross-platform development of PD and Max/MSP objects + + \section intro Introduction + + This is the introduction + + \section install Installation + + \subsection step1 Step 1: Opening the box + + etc... +*/ + +#endif diff --git a/externals/grill/flext/source/fldsp.cpp b/externals/grill/flext/source/fldsp.cpp new file mode 100644 index 00000000..fc5db717 --- /dev/null +++ b/externals/grill/flext/source/fldsp.cpp @@ -0,0 +1,119 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \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_class *c) +{ +#ifdef PD +// CLASS_MAINSIGNALIN(c,flext_hdr,defsig); +#elif defined(MAXMSP) +// dsp_initclass(); + dsp_initboxclass(); +#endif + + add_dsp(c,cb_dsp); +#ifndef MAXMSP + add_method1(c,cb_enable,"enable",A_FLINT); +#endif +} + +flext_dsp::flext_dsp(): +#ifndef MAXMSP + dspon(true), +#endif + srate(sys_getsr()), // should we set it? + blksz(sys_getblksize()), +#ifdef PD + chnsin(sys_get_inchannels()), + chnsout(sys_get_outchannels()), +#else // MAXMSP + chnsin(sys_getch()), + chnsout(sys_getch()), +#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]; +#ifdef MAXMSP + 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 *outsigs) +{ + for(int i = 0; i < CntOutSig(); ++i) + memset(outsigs[i],0,n*sizeof(*outsigs[i])); +} + +void flext_dsp::cb_dsp(t_class *c,t_signal **sp) +{ + flext_dsp *obj = thisObject(c); + + // 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() ? + +#ifdef PD + obj->chnsin = sys_get_inchannels(); + obj->chnsout = sys_get_outchannels(); +#else // MAXMSP + obj->chnsin = obj->chnsout = sys_getch(); +#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); +} + +#ifndef MAXMSP +void flext_dsp::cb_enable(t_class *c,t_flint on) { thisObject(c)->m_enable(on != 0); } +void flext_dsp::m_enable(bool en) { dspon = en; } +#endif + + diff --git a/externals/grill/flext/source/fldsp.h b/externals/grill/flext/source/fldsp.h new file mode 100644 index 00000000..70c88745 --- /dev/null +++ b/externals/grill/flext/source/fldsp.h @@ -0,0 +1,140 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file fldsp.h + \brief Declares the flext dsp class + +*/ + +#ifndef __FLDSP_H +#define __FLDSP_H + +// include the header file declaring the base classes +#include "flext.h" + + +// === flext_dsp ================================================== + +/*! \brief Flext dsp enabled base object +*/ +class flext_dsp: + public flext_base +{ + FLEXT_HEADER_S(flext_dsp,flext_base,Setup) + +public: + +/*! \defgroup FLEXT_C_DSP Flext basic dsp functionality + + @{ +*/ + + //! returns current sample rate + float Samplerate() const { return srate; } + + //! returns current block (aka vector) size + int Blocksize() const { return blksz; } + + /*! \brief returns number of audio system input channels + \bug Doesn't work in Max/MSP - is always 0 + */ + int ChannelsIn() const { return chnsin; } + + /*! \brief returns number of audio system output channels + \bug Doesn't work in Max/MSP - is always 0 + */ + int ChannelsOut() const { return chnsout; } + +//! @} + + +// --- inheritable virtual methods -------------------------------- + +/*! \defgroup FLEXT_C_VIRTUAL_DSP Flext virtual dsp functions + + @{ +*/ + /*! \brief Called on every dsp init. + \note Don't expect any valid data in the signal vectors! + + \param n: frames (aka samples) in one signal vector + \param insigs: array of input vectors (get number with function CntInSig()) + \param outsigs: array of output vectors (get number with function CntOutSig()) + */ + virtual void m_dsp(int n,t_sample *const *insigs,t_sample *const *outsigs); + + /*! \brief Called with every signal vector - here you do the dsp calculation + + \param n: frames (aka samples) in one signal vector + \param insigs: array of input vectors (get number with function CntInSig()) + \param outsigs: array of output vectors (get number with function CntOutSig()) + */ + virtual void m_signal(int n,t_sample *const *insigs,t_sample *const *outsigs); + +#ifndef MAXMSP + /*! \brief called with "enable" message: pauses/resumes dsp + \note PD only - implicitely defined in MaxMSP + */ + virtual void m_enable(bool on); +#endif + +//! @} + + +/*! \defgroup FLEXT_C_INOUT_DSP Flext dsp in-/outlet functions + \note These must be called in the class' constructor + + @{ +*/ +// --- inlet/outlet stuff ----------------------------------------- + + /*! \brief Add signal inlet(s) + \param m Number of inlets to add + */ + void AddInSignal(int m = 1) { AddInlet(xlet::tp_sig,m); } + + /*! \brief Add signal outlet(s) + \param m Number of inlets to add + */ + void AddOutSignal(int m = 1) { AddOutlet(xlet::tp_sig,m); } + +//! @} + + +protected: + + flext_dsp(); + virtual ~flext_dsp(); + +private: + + // not static, could be different in different patchers.. + float srate; + int blksz; + int chnsin,chnsout; + + // setup function + static void Setup(t_class *c); + + // callback functions + + static void cb_dsp(t_class *c,t_signal **s); +#ifndef MAXMSP + static void cb_enable(t_class *c,t_flint on); + bool dspon; +#endif + + // dsp stuff + + static t_int *dspmeth(t_int *w); + t_sample **invecs,**outvecs; +}; + +#endif diff --git a/externals/grill/flext/source/flext.cpp b/externals/grill/flext/source/flext.cpp new file mode 100644 index 00000000..5ed852c3 --- /dev/null +++ b/externals/grill/flext/source/flext.cpp @@ -0,0 +1,748 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flext.cpp + \brief Implementation of the flext base class. +*/ + +#include "flext.h" +#include "flinternal.h" +#include <string.h> +#include <stdarg.h> + + +// === proxy class for flext_base ============================ + +#ifdef PD + +static t_class *px_class; + +struct flext_base::px_object // no virtual table! +{ + t_object obj; // MUST reside at memory offset 0 + flext_base *base; + int index; + + void init(flext_base *b,int ix) { base = b; index = ix; } + static void px_method(px_object *c,const t_symbol *s,int argc,t_atom *argv); +}; + + +void flext_base::px_object::px_method(px_object *obj,const t_symbol *s,int argc,t_atom *argv) +{ + obj->base->m_methodmain(obj->index,s,argc,argv); +} + +void flext_base::cb_px_anything(t_class *c,const t_symbol *s,int argc,t_atom *argv) +{ + thisObject(c)->m_methodmain(0,s,argc,argv); +} + +#define DEF_IN_FT(IX) \ +void flext_base::cb_px_ft ## IX(t_class *c,float v) { \ + t_atom atom; SETFLOAT(&atom,v); \ + thisObject(c)->m_methodmain(IX,&s_float,1,&atom); \ +} + +#define ADD_IN_FT(IX) \ +add_method1(c,cb_px_ft ## IX,"ft" #IX,A_FLOAT) + +#elif defined(MAXMSP) + +void flext_base::cb_px_anything(t_class *c,const t_symbol *s,int argc,t_atom *argv) +{ + // check if inlet allows anything (or list) + + flext_base *o = thisObject(c); + int ci = ((flext_hdr *)o->x_obj)->curinlet; + + o->m_methodmain(ci,s,argc,argv); +} + +void flext_base::cb_px_int(t_class *c,int v) +{ + // check if inlet allows int type + t_atom atom; + SETINT(&atom,v); + cb_px_anything(c,sym_int,1,&atom); +} + +void flext_base::cb_px_float(t_class *c,float v) +{ + // check if inlet allows float type + t_atom atom; + SETFLOAT(&atom,v); + cb_px_anything(c,sym_float,1,&atom); +} + +void flext_base::cb_px_bang(t_class *c) +{ + // check if inlet allows bang + cb_px_anything(c,sym_bang,0,NULL); +} + + +#define DEF_IN_FT(IX) \ +void flext_base::cb_px_in ## IX(t_class *c,int v) { long &ci = ((flext_hdr *)thisObject(c)->x_obj)->curinlet; ci = IX; cb_px_int(c,v); ci = 0; } \ +void flext_base::cb_px_ft ## IX(t_class *c,float v) { long &ci = ((flext_hdr *)thisObject(c)->x_obj)->curinlet; ci = IX; cb_px_float(c,v); ci = 0; } + +#define ADD_IN_FT(IX) \ +add_method1(c,cb_px_in ## IX,"in" #IX,A_INT); \ +add_method1(c,cb_px_ft ## IX,"ft" #IX,A_FLOAT) + +#endif // MAXMSP + + +DEF_IN_FT(1) +DEF_IN_FT(2) +DEF_IN_FT(3) +DEF_IN_FT(4) +DEF_IN_FT(5) +DEF_IN_FT(6) +DEF_IN_FT(7) +DEF_IN_FT(8) +DEF_IN_FT(9) + + + +// === flext_base ============================================ + +bool flext_base::compatibility = true; + +flext_base::flext_base(): + inlist(NULL),outlist(NULL), + incnt(0),outcnt(0), + insigs(0),outsigs(0), + curtag(NULL), + outlets(NULL),inlets(NULL),outattr(NULL), + methhead(NULL),attrhead(NULL),attrcnt(0), + distmsgs(false) +{ + LOG1("%s - flext logging is on",thisName()); + +#ifdef FLEXT_THREADS + thrid = pthread_self(); + + shouldexit = false; + thrhead = thrtail = NULL; +#endif + qhead = qtail = NULL; + qclk = (t_qelem *)(qelem_new(this,(t_method)QTick)); +#ifdef MAXMSP + yclk = (t_clock *)(clock_new(this,(t_method)YTick)); +#endif + + AddMethod(0,"getattributes",(methfun)cb_ListAttrib); +} + +flext_base::~flext_base() +{ +#ifdef FLEXT_THREADS + // wait for thread termination + shouldexit = true; + for(int wi = 0; thrhead && wi < 100; ++wi) Sleep(0.01f); + +#ifdef PD + qmutex.Lock(); // Lock message queue + tlmutex.Lock(); + // timeout -> hard termination + while(thrhead) { + thr_entry *t = thrhead; + if(pthread_cancel(t->thrid)) post("%s - Thread could not be terminated!",thisName()); + thrhead = t->nxt; + t->nxt = NULL; delete t; + } + tlmutex.Unlock(); + qmutex.Unlock(); +#else +#pragma message ("No tread cancelling") +#endif + +#endif + + // send remaining pending messages + while(qhead) QTick(this); + qelem_free((t_qelem *)qclk); +#ifdef MAXMSP + clock_free((object *)yclk); +#endif + + if(inlist) delete inlist; + if(outlist) delete outlist; + if(outlets) delete[] outlets; + + if(inlets) { + for(int ix = 0; ix < incnt; ++ix) + if(inlets[ix]) { +#ifdef PD + pd_free(&inlets[ix]->obj.ob_pd); +#elif defined(MAXMSP) + freeobject((object *)inlets[ix]); +#endif + } + delete[] inlets; + } + +#ifdef MAXMSP +// if(insigs) dsp_free(thisHdr()); + if(insigs) dsp_freebox(thisHdr()); +#endif + + if(methhead) delete methhead; + if(attrhead) delete attrhead; +} + + +bool flext_base::Init() +{ +// if(!flext_obj::Init()) return false; + + bool ok = true; + + incnt = insigs = 0; + + if(inlets) { + for(int ix = 0; ix < incnt; ++ix) + if(inlets[ix]) { +#ifdef PD + pd_free(&inlets[ix]->obj.ob_pd); +#elif defined(MAXMSP) + freeobject(inlets[ix]); +#endif + } + delete[] inlets; + inlets = NULL; + } + + if(inlist) { + xlet *xi; + incnt = 0; + for(xi = inlist; xi; xi = xi->nxt) ++incnt; + xlet::type *list = new xlet::type[incnt]; + int i; + for(xi = inlist,i = 0; xi; xi = xi->nxt,++i) list[i] = xi->tp; + delete inlist; inlist = NULL; + + inlets = new px_object *[incnt]; + for(i = 0; i < incnt; ++i) inlets[i] = NULL; + + // type info is now in list array +#ifdef PD + { + int cnt = 0; + + if(incnt >= 1) { + switch(list[0]) { + case xlet::tp_sig: + CLASS_MAINSIGNALIN(thisClass(),flext_hdr,defsig); + ++insigs; + break; + default: + // leftmost inlet is already there... + break; + } + ++cnt; + } + + for(int ix = 1; ix < incnt; ++ix,++cnt) { + switch(list[ix]) { + case xlet::tp_float: + case xlet::tp_int: { + char sym[] = "ft??"; + if(ix >= 10) { + if(compatibility) { + // Max allows max. 9 inlets + post("%s: Only 9 float/int inlets allowed in compatibility mode",thisName()); + ok = false; + } + else { + if(ix > 99) + post("%s: Inlet index > 99 not allowed for float/int inlets",thisName()); + sym[2] = '0'+ix/10,sym[3] = '0'+ix%10; + } + } + else + sym[2] = '0'+ix,sym[3] = 0; + if(ok) inlet_new(&x_obj->obj, &x_obj->obj.ob_pd, &s_float, gensym(sym)); + break; + } + case xlet::tp_sym: + (inlets[ix] = (px_object *)pd_new(px_class))->init(this,ix); // proxy for 2nd inlet messages + inlet_new(&x_obj->obj,&inlets[ix]->obj.ob_pd, &s_symbol, &s_symbol); + break; + case xlet::tp_list: + (inlets[ix] = (px_object *)pd_new(px_class))->init(this,ix); // proxy for 2nd inlet messages + inlet_new(&x_obj->obj,&inlets[ix]->obj.ob_pd, &s_list, &s_list); + break; + case xlet::tp_any: + (inlets[ix] = (px_object *)pd_new(px_class))->init(this,ix); // proxy for 2nd inlet messages + inlet_new(&x_obj->obj,&inlets[ix]->obj.ob_pd, 0, 0); + break; + case xlet::tp_sig: + if(compatibility && list[ix-1] != xlet::tp_sig) { + post("%s: All signal inlets must be left-aligned in compatibility mode",thisName()); + ok = false; + } + else { + // pd doesn't seem to be able to handle signals and messages into the same inlet... + + inlet_new(&x_obj->obj, &x_obj->obj.ob_pd, &s_signal, &s_signal); + ++insigs; + } + break; + default: + error("%s: Wrong type for inlet #%i: %i",thisName(),ix,(int)list[ix]); + ok = false; + } + } + + incnt = cnt; + } +#elif defined(MAXMSP) + { + int ix,cnt; + // count leftmost signal inlets + while(insigs < incnt && list[insigs] == xlet::tp_sig) ++insigs; + + for(cnt = 0,ix = incnt-1; ix >= insigs; --ix,++cnt) { + if(ix == 0) { + if(list[ix] != xlet::tp_any) { + error("%s: Leftmost inlet must be of type signal or default",thisName()); + ok = false; + } + } + else { + switch(list[ix]) { + case xlet::tp_sig: + error("%s: All signal inlets must be at the left side",thisName()); + ok = false; + break; + case xlet::tp_float: + if(ix >= 10) { + post("%s: Only 9 float inlets possible",thisName()); + ok = false; + } + else + floatin(x_obj,ix); + break; + case xlet::tp_int: + if(ix >= 10) { + post("%s: Only 9 int inlets possible",thisName()); + ok = false; + } + else + intin(x_obj,ix); + break; + case xlet::tp_any: // non-leftmost + case xlet::tp_sym: + case xlet::tp_list: + inlets[ix] = (px_object *)proxy_new(x_obj,ix,&((flext_hdr *)x_obj)->curinlet); + break; + default: + error("%s: Wrong type for inlet #%i: %i",thisName(),ix,(int)list[ix]); + ok = false; + } + } + } + + incnt = cnt; + + if(insigs) +// dsp_setup(thisHdr(),insigs); // signal inlets + dsp_setupbox(thisHdr(),insigs); // signal inlets + } +#endif + + delete[] list; + } + + if(outlets) { delete[] outlets; outlets = NULL; } + outcnt = outsigs = 0; + + if(outlist) { + xlet *xi; + + // count outlets + outcnt = 0; + for(xi = outlist; xi; xi = xi->nxt) ++outcnt; + + xlet::type *list = new xlet::type[outcnt]; + int i; + for(xi = outlist,i = 0; xi; xi = xi->nxt,++i) list[i] = xi->tp; + delete outlist; outlist = NULL; + + outlets = new outlet *[outcnt]; + + // type info is now in list array +#ifdef PD + for(int ix = 0; ix < outcnt; ++ix) +#elif defined(MAXMSP) + for(int ix = outcnt-1; ix >= 0; --ix) +#endif + { + switch(list[ix]) { + case xlet::tp_float: + outlets[ix] = (outlet *)newout_float(&x_obj->obj); + break; + case xlet::tp_int: + outlets[ix] = (outlet *)newout_flint(&x_obj->obj); + break; + case xlet::tp_sig: + outlets[ix] = (outlet *)newout_signal(&x_obj->obj); + ++outsigs; + break; + case xlet::tp_sym: + outlets[ix] = (outlet *)newout_symbol(&x_obj->obj); + break; + case xlet::tp_list: + outlets[ix] = (outlet *)newout_list(&x_obj->obj); + break; + case xlet::tp_any: + outlets[ix] = (outlet *)newout_anything(&x_obj->obj); + break; +#ifdef _DEBUG + default: + ERRINTERNAL(); + ok = false; +#endif + } + } + + delete[] list; + } + + if(procattr) + // attribute dump outlet is the last one + outattr = (outlet *)newout_anything(&x_obj->obj); + + return ok; +} + +void flext_base::Setup(t_class *c) +{ + add_method(c,cb_help,"help"); + add_loadbang(c,cb_loadbang); +#ifdef MAXMSP + add_assist(c,cb_assist); +#endif + + // proxy for extra inlets +#ifdef PD + add_anything(c,cb_px_anything); // for leftmost inlet + px_class = class_new(gensym("flext_base proxy"),NULL,NULL,sizeof(px_object),CLASS_PD|CLASS_NOINLET, A_NULL); + add_anything(px_class,px_object::px_method); // for other inlets +#elif defined(MAXMSP) + add_bang(c,cb_px_bang); + add_method1(c,cb_px_int,"int",A_INT); + add_method1(c,cb_px_float,"float",A_FLOAT); + add_methodG(c,cb_px_anything,"list"); + add_anything(c,cb_px_anything); +#endif + + // setup non-leftmost ints and floats + ADD_IN_FT(1); + ADD_IN_FT(2); + ADD_IN_FT(3); + ADD_IN_FT(4); + ADD_IN_FT(5); + ADD_IN_FT(6); + ADD_IN_FT(7); + ADD_IN_FT(8); + ADD_IN_FT(9); +} + +void flext_base::cb_help(t_class *c) { thisObject(c)->m_help(); } + +void flext_base::cb_loadbang(t_class *c) { thisObject(c)->m_loadbang(); } +#ifdef MAXMSP +void flext_base::cb_assist(t_class *c,void * /*b*/,long msg,long arg,char *s) { thisObject(c)->m_assist(msg,arg,s); } +#endif + +void flext_base::m_help() +{ + // This should better be overloaded + post("%s (using flext " FLEXT_VERSTR ") - compiled on %s %s",thisName(),__DATE__,__TIME__); +} + + +bool flext_base::m_methodmain(int inlet,const t_symbol *s,int argc,t_atom *argv) +{ + static bool trap = false; + bool ret = false; + + curtag = s; + + LOG3("methodmain inlet:%i args:%i symbol:%s",inlet,argc,s?s->s_name:""); + + for(const methitem *m = methhead; m && !ret; m = m->nxt) { + if(m->tag == s && (inlet == m->inlet || m->inlet < 0 )) { + // tag fits + LOG4("found method tag %s: inlet=%i, symbol=%s, argc=%i",m->tag->s_name,inlet,s->s_name,argc); + + if(m->argc == 1 && m->args[0] == a_list) { + ret = ((methfun_V)m->fun)(this,argc,argv); + } + else if(m->argc == 1 && m->args[0] == a_any) { + ret = ((methfun_A)m->fun)(this,s,argc,argv); + } + else if(argc == m->argc) { + int ix; + t_any aargs[FLEXT_MAXMETHARGS]; + bool ok = true; + for(ix = 0; ix < argc && ok; ++ix) { + switch(m->args[ix]) { + case a_float: { + if(IsFloat(argv[ix])) aargs[ix].ft = GetFloat(argv[ix]); + else if(IsInt(argv[ix])) aargs[ix].ft = (float)GetInt(argv[ix]); + else ok = false; + + if(ok) LOG2("int arg %i = %f",ix,aargs[ix].ft); + break; + } + case a_int: { + if(IsFloat(argv[ix])) aargs[ix].it = (int)GetFloat(argv[ix]); + else if(IsInt(argv[ix])) aargs[ix].it = GetInt(argv[ix]); + else ok = false; + + if(ok) LOG2("float arg %i = %i",ix,aargs[ix].it); + break; + } + case a_symbol: { + if(IsSymbol(argv[ix])) aargs[ix].st = GetSymbol(argv[ix]); + else ok = false; + + if(ok) LOG2("symbol arg %i = %s",ix,GetString(aargs[ix].st)); + break; + } +#ifdef PD + case a_pointer: { + if(IsPointer(argv[ix])) aargs[ix].pt = GetPointer(argv[ix]); + else ok = false; + break; + } +#endif + default: + error("Argument type illegal"); + ok = false; + } + } + + if(ok && ix == argc) { + switch(argc) { + case 0: ret = ((methfun_0)m->fun)(this); break; + case 1: ret = ((methfun_1)m->fun)(this,aargs[0]); break; + case 2: ret = ((methfun_2)m->fun)(this,aargs[0],aargs[1]); break; + case 3: ret = ((methfun_3)m->fun)(this,aargs[0],aargs[1],aargs[2]); break; + case 4: ret = ((methfun_4)m->fun)(this,aargs[0],aargs[1],aargs[2],aargs[3]); break; + case 5: ret = ((methfun_5)m->fun)(this,aargs[0],aargs[1],aargs[2],aargs[3],aargs[4]); break; + } + } + } + } + else if(m->tag == sym_symbol && !argc && (inlet == m->inlet || m->inlet < 0 )) { + // symbol + LOG3("found symbol method for %s: inlet=%i, symbol=%s",m->tag->s_name,inlet,s->s_name); + + t_any sym; sym.st = const_cast<t_symbol *>(s); + ret = ((methfun_1)m->fun)(this,sym); + } + else if(m->tag == sym_anything && (inlet == m->inlet || m->inlet < 0) && m->argc == 1 && m->args[0] == a_any) { + // any + LOG4("found any method for %s: inlet=%i, symbol=%s, argc=%i",m->tag->s_name,inlet,s->s_name,argc); + + ret = ((methfun_A)m->fun)(this,s,argc,argv); + } + } + +#ifdef MAXMSP + // If float message is not explicitly handled: try int handler instead + if(!ret && argc == 1 && s == sym_float && !trap) { + t_atom fl; + SetInt(fl,GetAInt(argv[0])); + trap = true; + ret = m_methodmain(inlet,sym_int,1,&fl); + trap = false; + } + + // If int message is not explicitly handled: try float handler instead + if(!ret && argc == 1 && s == sym_int && !trap) { + t_atom fl; + SetFloat(fl,GetAFloat(argv[0])); + trap = true; + ret = m_methodmain(inlet,sym_float,1,&fl); + trap = false; + } +#endif + + // If float or int message is not explicitly handled: try list handler instead + if(!ret && !trap && argc == 1 && (s == sym_float +#ifdef MAXMSP + || s == sym_int +#endif + )) { + t_atom list; + if(s == sym_float) + SetFloat(list,GetFloat(argv[0])); +#ifdef MAXMSP + else if(s == sym_int) + SetInt(list,GetInt(argv[0])); +#endif + + trap = true; + ret = m_methodmain(inlet,sym_list,1,&list); + trap = false; + } + + // If symbol message (pure anything without args) is not explicitly handled: try list handler instead + if(!ret && !trap && argc == 0) { + t_atom list; + SetSymbol(list,s); + trap = true; + ret = m_methodmain(inlet,sym_list,1,&list); + trap = false; + } + + // if distmsgs is switched on then distribute list elements over inlets (Max/MSP behavior) + if(!ret && distmsgs && !trap && inlet == 0 && s == sym_list && insigs <= 1) { + int i = incnt; + if(i > argc) i = argc; + for(--i; i >= 0; --i) { // right to left distribution + const t_symbol *sym = NULL; + if(IsFloat(argv[i])) sym = sym_float; + else if(IsInt(argv[i])) sym = sym_int; + else if(IsSymbol(argv[i])) sym = sym_symbol; +#ifdef PD + else if(IsPointer(argv[i])) sym = sym_pointer; // can pointer atoms occur here? +#endif + if(sym) { + trap = true; + m_methodmain(i,sym,1,argv+i); + trap = false; + } + } + + ret = true; + } + + if(!ret && !trap) ret = m_method_(inlet,s,argc,argv); + + curtag = NULL; + + return ret; // true if appropriate handler was found and called +} + +bool flext_base::m_method_(int inlet,const t_symbol *s,int argc,t_atom *argv) +{ +//#ifdef _DEBUG + post("%s: message unhandled - inlet:%i args:%i symbol:%s",thisName(),inlet,argc,s?s->s_name:""); +//#endif + return false; +} + + +flext_base::methitem::methitem(int in,const t_symbol *t): + inlet(in),tag(t), + fun(NULL), + argc(0),args(NULL), + nxt(NULL) +{} + +flext_base::methitem::~methitem() +{ + if(nxt) delete nxt; + if(args) delete[] args; +} + +void flext_base::methitem::SetArgs(methfun _fun,int _argc,metharg *_args) +{ + fun = _fun; + if(args) delete[] args; + argc = _argc,args = _args; +} + + + +void flext_base::AddMethItem(methitem *m) +{ + if(methhead) { + methitem *mi; + for(mi = methhead; mi->nxt; mi = mi->nxt) {} + mi->nxt = m; + } + else + methhead = m; +} +/* +const flext_base::methitem *flext_base::FindMethItem(int inlet,const t_symbol *tag,const methitem *st) +{ + const methitem *mi = st?st:mlst; + if(inlet < 0) { + for(; mi; mi = mi->nxt) + if(mi->tag == tag) break; + } + else { + for(; mi; mi = mi->nxt) + if(mi->inlet == inlet && mi->tag == tag) break; + } + return mi; +} +*/ + +void flext_base::AddMethodDef(int inlet,const char *tag) +{ + AddMethItem(new methitem(inlet,tag?MakeSymbol(tag):NULL)); +} + +void flext_base::AddMethod(int inlet,const char *tag,methfun fun,metharg tp,...) +{ + methitem *mi = new methitem(inlet,MakeSymbol(tag)); + + va_list marker; + + // at first just count the arg type list (in argc) + int argc = 0; + va_start(marker,tp); + metharg *args = NULL,arg = tp; + for(; arg != a_null; ++argc) arg = (metharg)va_arg(marker,int); //metharg); + va_end(marker); + + if(argc > 0) { + if(argc > FLEXT_MAXMETHARGS) { + error("%s - method %s: only %i arguments are type-checkable: use variable argument list for more",thisName(),tag?tag:"?",FLEXT_MAXMETHARGS); + argc = FLEXT_MAXMETHARGS; + } + + args = new metharg[argc]; + + va_start(marker,tp); + metharg a = tp; + for(int ix = 0; ix < argc; ++ix) { +#ifdef _DEBUG + if(a == a_list && ix > 0) { + ERRINTERNAL(); + } +#endif +#ifdef PD + if(a == a_pointer && flext_base::compatibility) { + post("Pointer arguments are not allowed in compatibility mode"); + } +#endif + args[ix] = a; + a = (metharg)va_arg(marker,int); //metharg); + } + va_end(marker); + } + + mi->SetArgs(fun,argc,args); + + AddMethItem(mi); +} + + diff --git a/externals/grill/flext/source/flext.h b/externals/grill/flext/source/flext.h new file mode 100644 index 00000000..fd99f253 --- /dev/null +++ b/externals/grill/flext/source/flext.h @@ -0,0 +1,45 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flext.h + \brief This is the main flext include file. + + The basic definitions are set here and the necessary header files are included +*/ + +#ifndef __FLEXT_H +#define __FLEXT_H + + +/*! \defgroup FLEXT_GLOBAL Flext global definitions + @{ +*/ + +//! \brief flext version number +#define FLEXT_VERSION 400 + +//! \brief flext version string +#define FLEXT_VERSTR "0.4.0pre" + +//! @} + + +// include all the flext interface definitions +#include "fldefs.h" + +// include the basic flext object classes +#include "flclass.h" + +// include the flext dsp class +#include "fldsp.h" + +#endif // FLEXT_H + + diff --git a/externals/grill/flext/source/flinternal.h b/externals/grill/flext/source/flinternal.h new file mode 100644 index 00000000..20989b1b --- /dev/null +++ b/externals/grill/flext/source/flinternal.h @@ -0,0 +1,111 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flinternal.h + \brief Definitions for internal flext usage + \internal + + Here, a few shortcuts for common MaxMSP or PD library calls and type definitions + are declared +*/ + +#ifndef __FLEXT_INTERNALS_H +#define __FLEXT_INTERNALS_H + +#include "flstdc.h" + + +#ifdef PD + +#define object_new(clss) pd_new(clss) +#define object_free(obj) pd_free(&(obj).ob_pd) + + + +#define add_dsp(clss,meth) class_addmethod(clss, (t_method)meth,gensym("dsp"),A_NULL) +#define add_bang(clss,meth) class_addbang(clss, (t_method)meth) +#define add_float(clss,meth) class_addfloat(clss, (t_method)meth) +#define add_floatn(clss,meth,n) class_addmethod(clss, (t_method)meth,gensym("ft" #n),A_FLOAT,A_NULL) +#define add_flint(clss,meth) class_addfloat(clss, (t_method)meth) +#define add_flintn(clss,meth,n) class_addmethod(clss, (t_method)meth,gensym("ft" #n),A_FLOAT,A_NULL) +#define add_method(clss,meth,text) class_addmethod(clss, (t_method)meth, gensym(text), A_NULL) +#define add_methodG(clss,meth,text) class_addmethod(clss, (t_method)meth, gensym(text), A_GIMME,A_NULL) +#define add_method1(clss,meth,text,a1) class_addmethod(clss, (t_method)meth, gensym(text), a1,A_NULL) +#define add_method2(clss,meth,text,a1,a2) class_addmethod(clss, (t_method)meth, gensym(text), a1,a2,A_NULL) +#define add_method3(clss,meth,text,a1,a2,a3) class_addmethod(clss, (t_method)meth, gensym(text), a1,a2,a3,A_NULL) +#define add_method4(clss,meth,text,a1,a2,a3,a4) class_addmethod(clss, (t_method)meth, gensym(text), a1,a2,a3,a4,A_NULL) +#define add_method5(clss,meth,text,a1,a2,a3,a5) class_addmethod(clss, (t_method)meth, gensym(text), a1,a2,a3,a4,a5,A_NULL) +#define add_loadbang(clss,meth) class_addmethod(clss,(t_method)meth, gensym("loadbang"), A_CANT, A_NULL) +#define add_anything(clss,meth) class_addanything(clss,meth) + + +#define newout_signal(clss) outlet_new(clss,&s_signal) +#define newout_float(clss) outlet_new(clss,&s_float) +#define newout_flint(clss) outlet_new(clss,&s_float) +#define newout_list(clss) outlet_new(clss,&s_list) +#define newout_symbol(clss) outlet_new(clss,&s_symbol) +#define newout_anything(clss) outlet_new(clss,&s_anything) + +#define outlet_flint(o,v) outlet_float(o,(float)(v)) + +typedef t_perfroutine t_dspmethod; + +#define qelem_new clock_new +#define qelem_free clock_free +#define qelem_set clock_set +#define qelem_unset clock_unset + +#elif defined(MAXMSP) + +/* +typedef void _inlet; +typedef _inlet t_inlet; +*/ + +typedef void t_outlet; +//typedef _outlet t_outlet; + +#define object_new(clss) pd_new(clss) +#define object_free(obj) freeobject((object *)obj) + +#define add_dsp(clss,meth) addmess((method)meth,"dsp",A_CANT,A_NOTHING) +#define add_bang(clss,meth) addbang((method)meth) +#define add_float(clss,meth) addfloat((method)meth) +#define add_floatn(clss,meth,n) addftx((method)meth,n) +#define add_flint(clss,meth) addint((method)meth) +#define add_flintn(clss,meth,n) addinx((method)meth,n) +#define add_method(clss,meth,text) addmess((method)meth, text, A_NOTHING) +#define add_methodG(clss,meth,text) addmess((method)meth, text, A_GIMME,A_NOTHING) +#define add_method1(clss,meth,text,a1) addmess((method)meth, text, a1,A_NOTHING) +#define add_method2(clss,meth,text,a1,a2) addmess((method)meth, text, a1,a2,A_NOTHING) +#define add_method3(clss,meth,text,a1,a2,a3) addmess((method)meth, text, a1,a2,a3,A_NOTHING) +#define add_method4(clss,meth,text,a1,a2,a3,a4) addmess((method)meth, text, a1,a2,a3,a4,A_NOTHING) +#define add_method5(clss,meth,text,a1,a2,a3,a5) addmess((method)meth, text, a1,a2,a3,a4,a5,A_NOTHING) +#define add_anything(clss,meth) addmess((method)meth, "anything", A_GIMME,A_NOTHING) + +#define add_assist(clss,meth) addmess((method)meth, "assist", A_CANT, A_NULL) +#define add_loadbang(clss,meth) addmess((method)meth, "loadbang", A_CANT, A_NULL) + +#define newout_signal(clss) outlet_new(clss,"signal") +#define newout_float(clss) outlet_new(clss,"float") +#define newout_flint(clss) outlet_new(clss,"int") +#define newout_list(clss) outlet_new(clss,"list") +#define newout_symbol(clss) outlet_new(clss,"symbol") +#define newout_anything(clss) outlet_new(clss,"anything") + +#define outlet_flint(o,v) outlet_int(o,(int)(v)) +#define outlet_symbol(o,s) outlet_anything(o,s,0,NULL) + +typedef t_perfroutine t_dspmethod; + +#endif + + +#endif diff --git a/externals/grill/flext/source/fllib.cpp b/externals/grill/flext/source/fllib.cpp new file mode 100755 index 00000000..eee94ce5 --- /dev/null +++ b/externals/grill/flext/source/fllib.cpp @@ -0,0 +1,386 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +// Code for handling of object creation functions + +#include "flext.h" + +#include <stdarg.h> +#include <string.h> +#include <ctype.h> + +#define ALIASDEL ',' + +#define ALIASSLASHES ":/\\" +#ifdef MAXMSP + #define ALIASSLASH ':' +#elif defined(NT) + #define ALIASSLASH '/' +#else + #define ALIASSLASH '/' +#endif + +//! Extract space-delimited words from a string +static const char *extract(const char *name,int ix = 0) +{ + static char tmp[1024]; + const char *n = name; + + const char *del = strchr(name,ALIASDEL); + + if(del) { + if(ix < 0) { + char *t = tmp; + while(n < del && (isspace(*n) || strchr(ALIASSLASHES,*n))) ++n; + while(n < del && !isspace(*n)) { + char c = *(n++); + *(t++) = strchr(ALIASSLASHES,c)?ALIASSLASH:c; + } + while(*t == ALIASSLASH && t > tmp) --t; + *t = 0; + + return tmp; + } + + n = del+1; + } + + while(*n && isspace(*n)) ++n; + + for(int i = 0; n && *n; ++i) { + if(i == ix) { + char *t = tmp; + + for(; *n && !isspace(*n); ++t,++n) *t = *n; + *t = 0; + return *tmp?tmp:NULL; + } + else { + while(*n && !isspace(*n)) ++n; + while(*n && isspace(*n)) ++n; + } + } + + return NULL; +} + + +//! Check if object's name ends with a tilde +static bool chktilde(const char *objname) +{ +// int stplen = strlen(setupfun); + bool tilde = true; //!strncmp(setupfun,"_tilde",6); + + if((objname[strlen(objname)-1] == '~'?1:0)^(tilde?1:0)) { + if(tilde) + error("flext: %s (no trailing ~) is defined as a tilde object",objname); + else + error("flext::check_tilde: %s is no tilde object",objname); + return true; + } + else + return false; +} + + + +// this class stands for one registered object +// it holds the class, type flags, constructor and destructor of the object and the creation arg types +// it will never be destroyed +class libobject { +public: + libobject(t_class *&cl,flext_obj *(*newf)(int,t_atom *),void (*freef)(flext_hdr *)); + + flext_obj *(*newfun)(int,t_atom *); + void (*freefun)(flext_hdr *c); + + t_class *const &clss; + bool lib,dsp,attr; + int argc; + int *argv; +}; + +libobject::libobject(t_class *&cl,flext_obj *(*newf)(int,t_atom *),void (*freef)(flext_hdr *)): + clss(cl),newfun(newf),freefun(freef),argc(0),argv(NULL) +{} + +// this class stands for one registered object name +// it holds a pointer to the respective object +// it will never be destroyed +class libname { +public: + libname(const t_symbol *n,libobject *o): name(n),obj(o),nxt(NULL) {} + + const t_symbol *name; + libobject *obj; + + static void add(libname *n); + static libname *find(const t_symbol *s); + +protected: + libname *nxt; + void addrec(libname *n); + static libname *root; +}; + +void libname::addrec(libname *n) { if(nxt) nxt->addrec(n); else nxt = n; } + +libname *libname::root = NULL; + +void libname::add(libname *l) { + if(root) root->addrec(l); + else root = l; +} + +libname *libname::find(const t_symbol *s) { + libname *l; + for(l = root; l; l = l->nxt) + if(s == l->name) break; + return l; +} + +// for MAXMSP, the library is represented by a special object (class) registered at startup +// all objects in the library are clones of that library object - they share the same class +#ifdef MAXMSP +static t_class *lib_class = NULL; +static const t_symbol *lib_name = NULL; +#endif + +void flext_obj::lib_init(const char *name,void setupfun(),bool attr) +{ +#ifdef MAXMSP + lib_name = MakeSymbol(name); + ::setup( + (t_messlist **)&lib_class, + (t_newmethod)obj_new,(t_method)obj_free, + sizeof(flext_hdr),NULL,A_GIMME,A_NULL); +#endif + process_attributes = attr; + setupfun(); +} + +void flext_obj::obj_add(bool lib,bool dsp,bool attr,const char *idname,const char *names,void setupfun(t_class *),flext_obj *(*newfun)(int,t_atom *),void (*freefun)(flext_hdr *),int argtp1,...) +{ + // get first possible object name + const t_symbol *nsym = MakeSymbol(extract(names)); + +#ifdef _DEBUG + if(dsp) chktilde(GetString(nsym)); +#endif + + if(!lib) process_attributes = attr; + + // set dynamic class pointer + t_class **cl = +#ifdef MAXMSP + lib?&lib_class: +#endif + new t_class *; + + // register object class +#ifdef PD + *cl = ::class_new( + (t_symbol *)nsym, + (t_newmethod)obj_new,(t_method)obj_free, + sizeof(flext_hdr),0,A_GIMME,A_NULL); +#elif defined(MAXMSP) + if(!lib) { + ::setup( + (t_messlist **)cl, + (t_newmethod)obj_new,(t_method)obj_free, + sizeof(flext_hdr),NULL,A_GIMME,A_NULL); + } +#endif + + // make new dynamic object + libobject *lo = new libobject(*cl,newfun,freefun); + lo->lib = lib; + lo->dsp = dsp; + lo->attr = process_attributes; + + // parse the argument type list and store it with the object + if(argtp1 == A_GIMME) + lo->argc = -1; + else { + int argtp,i; + va_list marker; + + // parse a first time and count only + va_start(marker,argtp1); + for(argtp = argtp1; argtp != A_NULL; ++lo->argc) argtp = (int)va_arg(marker,int); + va_end(marker); + + lo->argv = new int[lo->argc]; + + // now parse and store + va_start(marker,argtp1); + for(argtp = argtp1,i = 0; i < lo->argc; ++i) { + lo->argv[i] = argtp; + argtp = (int)va_arg(marker,int); + } + va_end(marker); + } + + // make help reference + flext_obj::DefineHelp(lo->clss,idname,extract(names,-1),dsp); + + for(int ix = 0; ; ++ix) { + // in this loop register all the possible aliases of the object + + const char *c = ix?extract(names,ix):GetString(nsym); + if(!c || !*c) break; + + // add to name list + libname *l = new libname(MakeSymbol(c),lo); + libname::add(l); + +#ifdef PD + if(ix > 0) + // in PD the first name is already registered with class creation + ::class_addcreator((t_newmethod)obj_new,(t_symbol *)l->name,A_GIMME,A_NULL); +#elif defined(MAXMSP) + if(ix > 0 || lib) + // in MaxMSP the first alias gets its name from the name of the object file, + // unless it is a library (then the name can be different) + ::alias(const_cast<char *>(c)); +#endif + } + + // call class setup function + setupfun(lo->clss); +} + + +typedef flext_obj *(*libfun)(int,t_atom *); + +flext_hdr *flext_obj::obj_new(const t_symbol *s,int _argc_,t_atom *argv) +{ + flext_hdr *obj = NULL; + libname *l = libname::find(s); + if(l) { + bool ok = true; + t_atom args[FLEXT_MAXNEWARGS]; + libobject *lo = l->obj; + + int argc = _argc_; + if(lo->attr) { + argc = flext_base::CheckAttrib(argc,argv); + } + + if(lo->argc >= 0) { +#ifdef _DEBUG + if(lo->argc > FLEXT_MAXNEWARGS) { ERRINTERNAL(); ok = false; } +#endif + + if(argc == lo->argc) { + for(int i = 0; /*ok &&*/ i < lo->argc; ++i) { + switch(lo->argv[i]) { +#ifdef MAXMSP + case A_INT: + if(flext::IsInt(argv[i])) args[i] = argv[i]; + else if(flext::IsFloat(argv[i])) flext::SetInt(args[i],(int)flext::GetFloat(argv[i])); + else ok = false; + break; +#endif + case A_FLOAT: + if(flext::IsInt(argv[i])) flext::SetFloat(args[i],(float)flext::GetInt(argv[i])); + else if(flext::IsFloat(argv[i])) args[i] = argv[i]; + else ok = false; + break; + case A_SYMBOL: + if(flext::IsSymbol(argv[i])) args[i] = argv[i]; + else ok = false; + break; + } + } + + if(!ok) + post("%s: Creation arguments do not match",s->s_name); + } + else { + error("%s: %s creation arguments",s->s_name,argc < lo->argc?"Not enough":"Too many"); + ok = false; + } + } + + if(ok) { +#ifdef PD + obj = (flext_hdr *)::pd_new(lo->clss); +#elif defined(MAXMSP) + obj = (flext_hdr *)::newobject(lo->clss); +#endif + flext_obj::m_holder = obj; + flext_obj::m_holdname = l->name; + flext_obj::m_holdattr = lo->attr; + + // get actual flext object (newfun calls "new flext_obj()") + if(lo->argc >= 0) + // for interpreted arguments + obj->data = lo->newfun(lo->argc,args); + else + obj->data = lo->newfun(argc,argv); + + flext_obj::m_holder = NULL; + flext_obj::m_holdname = NULL; + flext_obj::m_holdattr = false; + + bool ok = obj->data || + // check constructor exit flag + obj->data->InitOk(); + + if(ok && lo->attr && argc < _argc_) + // set cmdline attributes (this is a flext_base function!) + ok = ((flext_base *)obj->data)->InitAttrib(_argc_-argc,argv+argc); + + if(ok) // call virtual init function + ok = obj->data->Init(); + + if(!ok) { + // there was some init error, free object + lo->freefun(obj); + obj = NULL; + } + } + } +#ifdef _DEBUG + else +#ifdef MAXMSP + // in MaxMSP an object with the name of the library exists, even if not explicitely declared! + if(s != lib_name) +#endif + error("Class %s not found in library!",s->s_name); +#endif + + return obj; +} + +void flext_obj::obj_free(flext_hdr *hdr) +{ + const t_symbol *name = hdr->data->thisNameSym(); + libname *l = libname::find(name); + + if(l) { + // call virtual exit function + hdr->data->Exit(); + + // now call object destructor and deallocate + l->obj->freefun(hdr); + } +#ifdef _DEBUG + else +#ifdef MAXMSP + // in MaxMSP an object with the name of the library exists, even if not explicitely declared! + if(name != lib_name) +#endif + error("Class %s not found in library!",name); +#endif +} + + diff --git a/externals/grill/flext/source/flmspbuffer.h b/externals/grill/flext/source/flmspbuffer.h new file mode 100755 index 00000000..4a8ffe69 --- /dev/null +++ b/externals/grill/flext/source/flmspbuffer.h @@ -0,0 +1,83 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flmspbuffer.h + \brief Definition of the Max/MSP buffer structure + \internal + + This file comes from David Zicarellis inofficial package index.sit + The latter is not easily found so i included the original file buffer.h with flext +*/ + +#if defined(MAXMSP) && !defined(__FLEXT_MSPBUFFER_H) +#define __FLEXT_MSPBUFFER_H + +enum { + MAXCHAN = 4 +}; + +enum { + bi_basefreq = 0, + bi_detune, + bi_lowfreq, + bi_hifreq, + bi_lowvel, + bi_hivel, + bi_gain, + bi_numparams +}; + +typedef struct _buffer +{ + t_object b_obj; // doesn't have any signals so it doesn't need to be pxobject + long b_valid; // flag is off during read replacement or editing operation + float *b_samples; // stored with interleaved channels if multi-channel + long b_frames; // number of sample frames (each one is sizeof(float) * b_nchans bytes) + long b_nchans; // number of channels + long b_size; // size of buffer in floats + float b_sr; // sampling rate of the buffer + float b_1oversr; // 1 / sr + float b_msr; // sr * .001 + // Mac-specific stuff + float *b_memory; // pointer to where memory starts (initial padding for interp) + t_symbol *b_name; + short b_vol; + short b_space; + // looping info (from AIFF file) + long b_susloopstart; // in samples + long b_susloopend; // in samples + long b_relloopstart; // in samples + long b_relloopend; // in samples + // instrument info (from AIFF file) + short b_inst[bi_numparams]; + // window stuff + void *b_wind; + double b_pixperfr; + double b_frperpix; + long b_imagesize; + Point b_scroll; + long b_scrollscale; + long b_selbegin[MAXCHAN]; + long b_selend[MAXCHAN]; + long b_zoom; + long b_zim[11]; + void *b_mouseout; + long b_format; // 'AIFF' or 'Sd2f' + t_symbol *b_filename; // last file read (not written) for readagain message + long b_oldnchans; // used for resizing window in case of # of channels change + void *b_doneout; + long b_outputbytes; // number of bytes used for output sample (1-4) + long b_modtime; // last modified time ("dirty" method) +} t_buffer; + +#define BUFWIND(x) ((t_wind *)(x->b_wind)) + + +#endif diff --git a/externals/grill/flext/source/flout.cpp b/externals/grill/flext/source/flout.cpp new file mode 100644 index 00000000..3b7c6bd9 --- /dev/null +++ b/externals/grill/flext/source/flout.cpp @@ -0,0 +1,201 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flout.cpp + \brief Implementation of the flext outlet functionality. +*/ + +#include "flext.h" +#include "flinternal.h" + + +#ifdef MAXMSP +#define CRITON() short state = lockout_set(1) +#define CRITOFF() lockout_set(state) +#else +#define CRITON() +#define CRITOFF() +#endif + +#ifndef FLEXT_THREADS +void flext_base::ToOutBang(outlet *o) { CRITON(); outlet_bang((t_outlet *)o); CRITOFF(); } +void flext_base::ToOutFloat(outlet *o,float f) { CRITON(); outlet_float((t_outlet *)o,f); CRITOFF(); } +void flext_base::ToOutInt(outlet *o,int f) { CRITON(); outlet_flint((t_outlet *)o,f); CRITOFF(); } +void flext_base::ToOutSymbol(outlet *o,const t_symbol *s) { CRITON(); outlet_symbol((t_outlet *)o,const_cast<t_symbol *>(s)); CRITOFF(); } +void flext_base::ToOutList(outlet *o,int argc,const t_atom *argv) { CRITON(); outlet_list((t_outlet *)o,gensym("list"),argc,(t_atom *)argv); CRITOFF(); } +void flext_base::ToOutAnything(outlet *o,const t_symbol *s,int argc,const t_atom *argv) { CRITON(); outlet_anything((t_outlet *)o,const_cast<t_symbol *>(s),argc,(t_atom *)argv); CRITOFF(); } +#else +void flext_base::ToOutBang(outlet *o) { if(IsSystemThread()) { CRITON(); outlet_bang((t_outlet *)o); CRITOFF(); } else ToQueueBang(o); } +void flext_base::ToOutFloat(outlet *o,float f) { if(IsSystemThread()) { CRITON(); outlet_float((t_outlet *)o,f); CRITOFF(); } else ToQueueFloat(o,f); } +void flext_base::ToOutInt(outlet *o,int f) { if(IsSystemThread()) { CRITON(); outlet_flint((t_outlet *)o,f); CRITOFF(); } else ToQueueInt(o,f); } +void flext_base::ToOutSymbol(outlet *o,const t_symbol *s) { if(IsSystemThread()) { CRITON(); outlet_symbol((t_outlet *)o,const_cast<t_symbol *>(s)); CRITOFF(); } else ToQueueSymbol(o,s); } +void flext_base::ToOutList(outlet *o,int argc,const t_atom *argv) { if(IsSystemThread()) { CRITON(); outlet_list((t_outlet *)o,gensym("list"),argc,(t_atom *)argv); CRITOFF(); } else ToQueueList(o,argc,(t_atom *)argv); } +void flext_base::ToOutAnything(outlet *o,const t_symbol *s,int argc,const t_atom *argv) { if(IsSystemThread()) { CRITON(); outlet_anything((t_outlet *)o,const_cast<t_symbol *>(s),argc,(t_atom *)argv); CRITOFF(); } else ToQueueAnything(o,s,argc,(t_atom *)argv); } +#endif + + +class flext_base::qmsg +{ +public: + qmsg(): nxt(NULL),tp(tp_none) {} + ~qmsg(); + + qmsg *nxt; + + void Clear(); + + void SetBang(outlet *o) { Clear(); out = o; tp = tp_bang; } + void SetFloat(outlet *o,float f) { Clear(); out = o; tp = tp_float; _float = f; } + void SetInt(outlet *o,int i) { Clear(); out = o; tp = tp_int; _int = i; } + void SetSymbol(outlet *o,const t_symbol *s) { Clear(); out = o; tp = tp_sym; _sym = s; } + void SetList(outlet *o,int argc,const t_atom *argv) { Clear(); out = o; tp = tp_list; _list.argc = argc,_list.argv = CopyList(argc,argv); } + void SetAny(outlet *o,const t_symbol *s,int argc,const t_atom *argv) { Clear(); out = o; tp = tp_any; _any.s = s,_any.argc = argc,_any.argv = CopyList(argc,argv); } + + outlet *out; + enum { tp_none,tp_bang,tp_float,tp_int,tp_sym,tp_list,tp_any } tp; + union { + float _float; + int _int; + const t_symbol *_sym; + struct { int argc; t_atom *argv; } _list; + struct { const t_symbol *s; int argc; t_atom *argv; } _any; + }; + +// void Add(qmsg *o); +}; + +flext_base::qmsg::~qmsg() +{ + Clear(); + if(nxt) delete nxt; +} + +void flext_base::qmsg::Clear() +{ + if(tp == tp_list) { if(_list.argv) delete[] _list.argv; } + else if(tp == tp_any) { if(_any.argv) delete[] _any.argv; } + tp = tp_none; +} + +/* +void flext_base::qmsg::Add(qmsg *o) +{ + if(nxt) nxt->Add(o); + else nxt = o; +} +*/ + +void flext_base::QTick(flext_base *th) +{ +#ifdef DEBUG + if(!th->IsSystemThread()) { + error("flext - Queue tick called by wrong thread!"); + return; + } +#endif + +#ifdef FLEXT_THREADS + th->qmutex.Lock(); +#endif + while(th->qhead) { + qmsg *m = th->qhead; + +#ifdef MAXMSP + short state = lockout_set(1); +#endif + + switch(m->tp) { + case qmsg::tp_bang: th->ToOutBang(m->out); break; + case qmsg::tp_float: th->ToOutFloat(m->out,m->_float); break; + case qmsg::tp_int: th->ToOutInt(m->out,m->_int); break; + case qmsg::tp_sym: th->ToOutSymbol(m->out,m->_sym); break; + case qmsg::tp_list: th->ToOutList(m->out,m->_list.argc,m->_list.argv); break; + case qmsg::tp_any: th->ToOutAnything(m->out,m->_any.s,m->_any.argc,m->_any.argv); break; +#ifdef DEBUG + default: ERRINTERNAL(); +#endif + } + +#ifdef MAXMSP + lockout_set(state); +#endif + + th->qhead = m->nxt; + if(!th->qhead) th->qtail = NULL; + m->nxt = NULL; + delete m; + } +#ifdef FLEXT_THREADS + th->qmutex.Unlock(); +#endif +} + +void flext_base::Queue(qmsg *m) +{ +#ifdef FLEXT_THREADS + qmutex.Lock(); +#endif + if(qtail) qtail->nxt = m; + else qhead = m; + qtail = m; +#ifdef FLEXT_THREADS + qmutex.Unlock(); +#endif +#ifdef PD + clock_delay(qclk,0); +#elif defined(MAXMSP) + clock_delay(yclk,0); +#else + #error "To implement!" +#endif +} + +void flext_base::ToQueueBang(outlet *o) +{ + qmsg *m = new qmsg(); + m->SetBang(o); + Queue(m); +} + +void flext_base::ToQueueFloat(outlet *o,float f) +{ + qmsg *m = new qmsg; + m->SetFloat(o,f); + Queue(m); +} + +void flext_base::ToQueueInt(outlet *o,int f) +{ + qmsg *m = new qmsg; + m->SetInt(o,f); + Queue(m); +} + +void flext_base::ToQueueSymbol(outlet *o,const t_symbol *s) +{ + qmsg *m = new qmsg; + m->SetSymbol(o,s); + Queue(m); +} + +void flext_base::ToQueueList(outlet *o,int argc,const t_atom *argv) +{ + qmsg *m = new qmsg; + m->SetList(o,argc,argv); + Queue(m); +} + +void flext_base::ToQueueAnything(outlet *o,const t_symbol *s,int argc,const t_atom *argv) +{ + qmsg *m = new qmsg; + m->SetAny(o,s,argc,argv); + Queue(m); +} + diff --git a/externals/grill/flext/source/flsndobj.cpp b/externals/grill/flext/source/flsndobj.cpp new file mode 100644 index 00000000..1965b86b --- /dev/null +++ b/externals/grill/flext/source/flsndobj.cpp @@ -0,0 +1,107 @@ +#include "flsndobj.h" + +//namespace flext { + +flext_sndobj::flext_sndobj(): + inobjs(0),outobjs(0), + inobj(NULL),tmpobj(NULL),outobj(NULL), + smprt(0),blsz(0) +{} + +flext_sndobj::~flext_sndobj() +{ + ClearObjs(); +} + +void flext_sndobj::ClearObjs() +{ + FreeObjs(); + + if(inobj) { + for(int i = 0; i < inobjs; ++i) { delete inobj[i]; delete tmpobj[i]; } + delete[] inobj; inobj = NULL; + delete[] tmpobj; tmpobj = NULL; + inobjs = 0; + } + if(outobj) { + for(int i = 0; i < outobjs; ++i) delete outobj[i]; + delete[] outobj; outobj = NULL; outobjs = 0; + } +} + +void flext_sndobj::m_dsp(int n,t_sample *const *in,t_sample *const *out) +{ + // called on every rebuild of the dsp chain + + int i; + if(Blocksize() != blsz || Samplerate() != smprt) { + // block size or sample rate has changed... rebuild all objects + + ClearObjs(); + + blsz = Blocksize(); + smprt = Samplerate(); + + // set up sndobjs for inlets and outlets + inobj = new Inlet *[inobjs = CntInSig()]; + tmpobj = new SndObj *[inobjs]; + for(i = 0; i < inobjs; ++i) { + inobj[i] = new Inlet(in[i],blsz,smprt); + tmpobj[i] = new SndObj(NULL,blsz,smprt); + } + outobj = new Outlet *[outobjs = CntInSig()]; + for(i = 0; i < outobjs; ++i) outobj[i] = new Outlet(out[i],blsz,smprt); + + NewObjs(); + } + else { + // assign changed input/output vectors + + for(i = 0; i < inobjs; ++i) inobj[i]->SetBuf(in[i]); + for(i = 0; i < outobjs; ++i) outobj[i]->SetBuf(out[i]); + } +} + +void flext_sndobj::m_signal(int n,t_sample *const *in,t_sample *const *out) +{ + for(int i = 0; i < inobjs; ++i) *tmpobj[i] << *inobj[i]; + ProcessObjs(); +} + + +flext_sndobj::Inlet::Inlet(const t_sample *b,int vecsz,float sr): + SndIO(1,sizeof(t_sample)*8,NULL,vecsz,sr),buf(b) +{} + +short flext_sndobj::Inlet::Read() +{ + if(!m_error) { + for(m_vecpos = 0; m_vecpos < m_samples; m_vecpos++) + m_output[m_vecpos] = buf[m_vecpos]; + return 1; + } + else return 0; +} + +short flext_sndobj::Inlet::Write() { return 0; } + + +flext_sndobj::Outlet::Outlet(t_sample *b,int vecsz,float sr): + SndIO(1,sizeof(t_sample)*8,NULL,vecsz,sr),buf(b) +{} + +short flext_sndobj::Outlet::Read() { return 0; } + +short flext_sndobj::Outlet::Write() +{ + if(!m_error) { + if(m_IOobjs[0]) + for(m_vecpos = 0; m_vecpos < m_samples; m_vecpos++) + buf[m_vecpos] = m_IOobjs[0]->Output(m_vecpos); + return 1; + } + else return 0; +} + +//} // namespace flext + diff --git a/externals/grill/flext/source/flsndobj.h b/externals/grill/flext/source/flsndobj.h new file mode 100644 index 00000000..f68054ed --- /dev/null +++ b/externals/grill/flext/source/flsndobj.h @@ -0,0 +1,83 @@ +/* + +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. + +*/ + +#ifndef FLEXT_SNDOBJ +#define FLEXT_SNDOBJ + +#include "flext.h" +#include <SndObj/AudioDefs.h> + +//namespace flext { + +class flext_sndobj: + public flext_dsp +{ + FLEXT_HEADER(flext_sndobj,flext_dsp) + +public: + flext_sndobj(); + virtual ~flext_sndobj(); + + // these have to be overridden in child classes + virtual void NewObjs() {} + virtual void FreeObjs() {} + virtual void ProcessObjs() {} + + // inputs and outputs + SndObj &InObj(int i) { return *tmpobj[i]; } + SndIO &OutObj(int i) { return *outobj[i]; } + +protected: + virtual void m_dsp(int n,t_sample *const *in,t_sample *const *out); + virtual void m_signal(int n,t_sample *const *in,t_sample *const *out); + +private: + //! SndObj for reading from inlet buffer + class Inlet: + public SndIO + { + public: + Inlet(const t_sample *b,int vecsz,float sr); + virtual short Read(); + virtual short Write(); + + void SetBuf(const t_sample *b) { buf = b; } + + private: + const t_sample *buf; + }; + + //! SndObj for writing to outlet buffer + class Outlet: + public SndIO + { + public: + Outlet(t_sample *b,int vecsz,float sr); + virtual short Read(); + virtual short Write(); + + void SetBuf(t_sample *b) { buf = b; } + + private: + t_sample *buf; + }; + + void ClearObjs(); + + int inobjs,outobjs; + SndObj **tmpobj; + Inlet **inobj; + Outlet **outobj; + + float smprt; + int blsz; +}; + +//} // namespace flext + +#endif diff --git a/externals/grill/flext/source/flstdc.h b/externals/grill/flext/source/flstdc.h new file mode 100644 index 00000000..73ce613c --- /dev/null +++ b/externals/grill/flext/source/flstdc.h @@ -0,0 +1,163 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flstdc.h + \brief Definitions to unite MaxMSP and PD notions + + This file contains a few definitions to unite a few of the notions that + once drifted apart in Max and PD. It is not elegant but helps. +*/ + +#ifndef __FLEXT_STDC_H +#define __FLEXT_STDC_H + +// Be sure that one target is defined +#if !defined(PD) && !defined(MAXMSP) +#error Either PD or MAXMSP must be defined +#endif + +// Do some compiler checking +#if defined(__MRC__) && __MRC__ < 0x500 +#error Apple MPW MrCpp v.5.0.0 or better compiler required +#endif + + +// PD stuff + +#ifdef PD + +/* PD definitions start here */ + +#ifdef _MSC_VER +#pragma warning (push) +#pragma warning (disable:4091) +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +// Include the relevant PD header files +#ifdef _DEBUG +#include <m_imp.h> // for easier debugging +#else +#include <m_pd.h> +#endif + +#ifdef __cplusplus +} +#endif + +#ifdef _MSC_VER +#pragma warning (pop) +#endif + +typedef t_object t_sigobj; +typedef t_gpointer *t_ptrtype; + +typedef t_float t_flint; +typedef t_symbol *t_symptr; +typedef t_symbol *t_symtype; +typedef t_class **t_thing; + +typedef t_clock t_qelem; + +#define A_NOTHING A_NULL +#define A_FLINT A_FLOAT +#define A_DEFFLINT A_DEFFLOAT + +// MAX stuff +#elif defined(MAXMSP) + +/* MaxMSP definitions start here */ + +// Include the relevant MaxMSP header files +extern "C" +{ +#include "ext.h" +//#include "ext_strings.h" // clashes with MPW +#include "ext_user.h" +#include "z_dsp.h" +//#include "z_atom.h" +} + +typedef t_pxbox t_sigobj; // that's the all-in-one object type of MaxMSP (not very memory-efficent, i guess) +typedef t_patcher t_canvas; + +typedef t_int t_flint; +typedef t_symbol *t_symptr; +typedef t_symbol *t_symtype; +typedef t_object *t_thing; + +typedef qelem t_qelem; + +typedef method t_method; +typedef method t_newmethod; +typedef int t_atomtype; + +typedef struct clock t_clock; +typedef void t_binbuf; + +#undef clock_free +#define clock_free(tick) freeobject((object *)tick) + +#define A_NULL A_NOTHING +#define A_FLINT A_INT +#define A_DEFFLINT A_DEFLONG + +#endif + + +#ifdef _LOG + +/* If _LOG is defined implement logging */ +#define LOG(s) post(s) +#define LOG1(s,v1) post(s,v1) +#define LOG2(s,v1,v2) post(s,v1,v2) +#define LOG3(s,v1,v2,v3) post(s,v1,v2,v3) +#define LOG4(s,v1,v2,v3,v4) post(s,v1,v2,v3,v4) +#define LOG5(s,v1,v2,v3,v4,v5) post(s,v1,v2,v3,v4,v5) + + +#else + +/* If _LOG is not defined avoid logging */ +#define LOG(s) ((void)0) +#define LOG1(s,v1) ((void)0) +#define LOG2(s,v1,v2) ((void)0) +#define LOG3(s,v1,v2,v3) ((void)0) +#define LOG4(s,v1,v2,v3,v4) ((void)0) +#define LOG5(s,v1,v2,v3,v4,v5) ((void)0) + +#endif + +#ifdef _DEBUG +#define ASSERT(b) ((void)(!(b)?(error("Assertion failed: " #b " - in " __FILE__ " line %i",(int)__LINE__),0):0)) +#else +#define ASSERT(b) ((void)0) +#endif + +#define ERRINTERNAL() error("flext: Internal error in file " __FILE__ ", line %i - please report",(int)__LINE__) + + +/* Set the right calling convention (and exporting) for the OS */ + +#if defined(NT) +#define FLEXT_EXT __declspec(dllexport) +#else // other OS's +#define FLEXT_EXT +#endif + +#endif + + + + + diff --git a/externals/grill/flext/source/flsupport.cpp b/externals/grill/flext/source/flsupport.cpp new file mode 100644 index 00000000..854fe871 --- /dev/null +++ b/externals/grill/flext/source/flsupport.cpp @@ -0,0 +1,58 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flsupport.cpp + \brief flext support functions and classes. +*/ + +#include "flsupport.h" + +const t_symbol *flext::sym_float = NULL; +const t_symbol *flext::sym_symbol = NULL; +const t_symbol *flext::sym_bang = NULL; +const t_symbol *flext::sym_list = NULL; +const t_symbol *flext::sym_anything = NULL; +const t_symbol *flext::sym_pointer = NULL; +const t_symbol *flext::sym_int = NULL; + +#ifdef PD +const t_symbol *flext::sym_signal = NULL; +#endif + +void flext::Setup() +{ +#ifdef PD + sym_anything = &s_anything; + sym_pointer = &s_pointer; + sym_float = &s_float; + sym_symbol = &s_symbol; + sym_bang = &s_bang; + sym_list = &s_list; + sym_signal = &s_signal; +#elif defined(MAXMSP) + sym_int = gensym("int"); + sym_float = gensym("float"); + sym_symbol = gensym("symbol"); + sym_bang = gensym("bang"); + sym_list = gensym("list"); + sym_anything = gensym("anything"); +#endif +} + +void flext::GetAString(const t_atom &a,char *buf,int szbuf) +{ +#ifdef PD + atom_string(const_cast<t_atom *>(&a),buf,szbuf); +#else + if(IsSymbol(a)) sprintf(buf,GetString(a)); + else if(IsFloat(a)) sprintf(buf,"%f",GetFloat(a)); + else if(IsInt(a)) sprintf(buf,"%i",GetInt(a)); +#endif +} diff --git a/externals/grill/flext/source/flsupport.h b/externals/grill/flext/source/flsupport.h new file mode 100644 index 00000000..148790ae --- /dev/null +++ b/externals/grill/flext/source/flsupport.h @@ -0,0 +1,438 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flsupport.h + \brief flext support functions and classes +*/ + +#ifndef __FLSUPPORT_H +#define __FLSUPPORT_H + +#include "flstdc.h" + +#ifdef FLEXT_THREADS +#include <pthread.h> +#endif + +class FLEXT_EXT flext { +public: +// --- buffer/array stuff ----------------------------------------- + + /*! \defgroup FLEXT_N_BUFFER Flext buffer handling + + @{ + */ + + //! Class for platform independent buffer handling + class buffer + { + public: + /*! \brief Construct buffer. + \param delayed = true: only sets name, needs another Set(NULL) to really initialize the buffer + \remark As externals can be created prior to the buffer objects they are pointing to, initialization should be done at loadbang! + */ + buffer(const t_symbol *s = NULL,bool delayed = false); + + //! Destroy buffer + ~buffer(); + + /*! \brief Check if the data is valid + */ + bool Ok() const { return sym != NULL && data != NULL; } + + /*! \brief Check and update if the buffer has been changed (e.g. resized) + */ + bool Update(); + + /*! \brief Set to specified buffer. + \param nameonly: if true sets name only, but doesn't look at buffer actually + */ + int Set(const t_symbol *s = NULL,bool nameonly = false); + + /*! \brief Declare buffer content as dirty. + \param refr: if true forces immediate graphics refresh + */ + void Dirty(bool refr = false); + + //! Get symbol of buffer + t_symbol *Symbol() const { return const_cast<t_symbol *>(sym); } + + //! Get literal name of buffer + const char *Name() const { return sym?sym->s_name:""; } + + /*! \brief Get pointer to buffer, channel and frame count. + \remark Channels are interleaved + */ + t_sample *Data() { return data; } + + //! Get channel count + int Channels() const { return chns; } + //! Get frame count + int Frames() const { return frames; } + //! Set frame count + void Frames(int fr,bool keep = false); + + //! Graphic auto refresh interval + void SetRefrIntv(float intv); + + protected: + const t_symbol *sym; + t_sample *data; + int chns,frames; +#ifdef PD + t_garray *arr; + float interval; + bool isdirty,ticking; + t_clock *tick; + + private: + static void cb_tick(buffer *b); +#endif + }; + +//! @} + +// --- various symbols -------------------------------------------- + + /*! \defgroup FLEXT_N_SYMBOL Flext atom/symbol handling + + @{ + */ + + //! Symbol constant for "float" + static const t_symbol *sym_float; + //! Symbol constant for "symbol" + static const t_symbol *sym_symbol; + //! Symbol constant for "bang" + static const t_symbol *sym_bang; + //! Symbol constant for "list" + static const t_symbol *sym_list; + //! Symbol constant for "anything" + static const t_symbol *sym_anything; + + /*! \brief Symbol constant for "int" + \note Only the Max/MSP system has this defined as an internal type + */ + static const t_symbol *sym_int; + + /*! Symbol constant for "pointer" + \note Only PD has this defined as an internal type + */ + static const t_symbol *sym_pointer; + +#ifdef PD + + /*! \brief Symbol constant for "signal" + \note PD only + */ + static const t_symbol *sym_signal; +#endif + + //! Make a symbol from a string + static const t_symbol *MakeSymbol(const char *s) { return gensym(const_cast<char *>(s)); } + + //! Get symbol string + static const char *GetString(const t_symbol *s) { return s->s_name; } + //! Check for symbol and get string + static const char *GetAString(const t_symbol *s) { return s?s->s_name:""; } + +//! @} + +// --- utilities -------------------------------------------------- + + /*! \defgroup FLEXT_C_UTIL Flext utility functions + + @{ + */ + + //! Copy an atom + static void CopyAtom(t_atom *dst,const t_atom *src) { *dst = *src; } + + //! Copy a list of atoms + static t_atom *CopyList(int argc,const t_atom *argv); + //! Copy a memory region + static void CopyMem(void *dst,const void *src,int bytes); + //! Sleep for an amount of time + static void Sleep(float s); + +//! @} + +// --- atom stuff ---------------------------------------- + + //! Set atom from another atom + static void SetAtom(t_atom &a,const t_atom &b) { CopyAtom(&a,&b); } + + //! Check whether the atom is nothing + static bool IsNothing(const t_atom &a) { return a.a_type == A_NULL; } + //! Set the atom to represent nothing + static void SetNothing(t_atom &a) { a.a_type = A_NULL; } + + //! Check whether the atom is a float + static bool IsFloat(const t_atom &a) { return a.a_type == A_FLOAT; } + //! Check whether the atom can be represented as a float + static bool CanbeFloat(const t_atom &a) { return IsFloat(a) || IsInt(a); } + //! Access the float value (without type check) + static float GetFloat(const t_atom &a) { return a.a_w.w_float; } + //! Set the atom to represent a float + static void SetFloat(t_atom &a,float v) { a.a_type = A_FLOAT; a.a_w.w_float = v; } + + //! Check whether the atom is a symbol + static bool IsSymbol(const t_atom &a) { return a.a_type == A_SYMBOL; } + //! Access the symbol value (without type check) + static t_symbol *GetSymbol(const t_atom &a) { return a.a_w.w_symbol; } + //! Check for a symbol and get its value + static t_symbol *GetASymbol(const t_atom &a) { return IsSymbol(a)?GetSymbol(a):NULL; } // NULL or empty symbol? + //! Set the atom to represent a symbol + static void SetSymbol(t_atom &a,const t_symbol *s) { a.a_type = A_SYMBOL; a.a_w.w_symbol = const_cast<t_symbol *>(s); } + + //! Check whether the atom is a string + static bool IsString(const t_atom &a) { return IsSymbol(a); } + //! Access the string value (without type check) + static const char *GetString(const t_atom &a) { t_symbol *s = GetSymbol(a); return s?GetString(s):NULL; } + //! Check for a string and get its value + static void GetAString(const t_atom &a,char *buf,int szbuf); + //! Set the atom to represent a string + static void SetString(t_atom &a,const char *c) { SetSymbol(a,gensym(const_cast<char *>(c))); } + + //! Check whether the atom can be represented as an integer + static bool CanbeInt(const t_atom &a) { return IsFloat(a) || IsInt(a); } + + //! Check whether the atom can be represented as a boolean + static bool CanbeBool(const t_atom &a) { return CanbeInt(a); } + //! Check for an boolean and get its value + static bool GetABool(const t_atom &a) { return GetAInt(a) != 0; } + +#ifdef PD + //! Check for a float and get its value + static float GetAFloat(const t_atom &a) { return IsFloat(a)?GetFloat(a):0; } + + //! Check whether the atom is an integer + static bool IsInt(const t_atom &) { return false; } + //! Access the integer value (without type check) + static int GetInt(const t_atom &a) { return (int)GetFloat(a); } + //! Check for an integer and get its value + static int GetAInt(const t_atom &a) { return (int)GetAFloat(a); } + //! Set the atom to represent a integer (depending on the system) + static void SetInt(t_atom &a,int v) { a.a_type = A_FLOAT; a.a_w.w_float = (float)v; } + + //! Check whether the atom is a pointer + static bool IsPointer(const t_atom &a) { return a.a_type == A_POINTER; } + //! Access the pointer value (without type check) + static t_gpointer *GetPointer(const t_atom &a) { return a.a_w.w_gpointer; } + //! Check for a pointer and get its value + static t_gpointer *GetAPointer(const t_atom &a) { return IsPointer(a)?GetPointer(a):NULL; } + //! Set the atom to represent a pointer + static void SetPointer(t_atom &a,t_gpointer *p) { a.a_type = A_POINTER; a.a_w.w_gpointer = p; } + +#elif defined(MAXMSP) + //! Check for a float and get its value + static float GetAFloat(const t_atom &a) { return IsFloat(a)?GetFloat(a):(IsInt(a)?GetInt(a):0); } + + //! Check whether the atom is an int + static bool IsInt(const t_atom &a) { return a.a_type == A_INT; } + //! Access the integer value (without type check) + static int GetInt(const t_atom &a) { return a.a_w.w_long; } + //! Check for an integer and get its value + static int GetAInt(const t_atom &a) { return IsInt(a)?GetInt(a):(IsFloat(a)?GetFloat(a):0); } + //! Set the atom to represent an integer + static void SetInt(t_atom &a,int v) { a.a_type = A_INT; a.a_w.w_long = v; } + + //! Check whether the atom is a pointer + static bool IsPointer(const t_atom &) { return false; } + //! Access the pointer value (without type check) + static void *GetPointer(const t_atom &) { return NULL; } + //! Check for a pointer and get its value + static void *GetAPointer(const t_atom &) { return NULL; } +// void SetPointer(t_atom &,void *) {} +#endif + +// --- atom list stuff ------------------------------------------- + + /*! \defgroup FLEXT_N_ATOM Flext atom/list handling + + @{ + */ + + //! Class representing a list of atoms + class AtomList + { + public: + //! Construct list + AtomList(int argc = 0,const t_atom *argv = NULL); + //! Construct list + AtomList(const AtomList &a); + //! Destroy list + ~AtomList(); + + //! Clear list + AtomList &Clear() { return operator()(); } + + //! Set list + AtomList &operator()(int argc = 0,const t_atom *argv = NULL); + //! Set list by another AtomList + AtomList &operator =(const AtomList &a) { return operator()(a.Count(),a.Atoms()); } + + //! Get number of atoms in the list + int Count() const { return cnt; } + //! Get a reference to an indexed atom + t_atom &operator [](int ix) { return lst[ix]; } + //! Get a reference to an indexed atom + const t_atom &operator [](int ix) const { return lst[ix]; } + + //! Get a pointer to the list of atoms + t_atom *Atoms() { return lst; } + //! Get a pointer to the list of atoms + const t_atom *Atoms() const { return lst; } + + //! Append an atom to the list + AtomList &Append(const t_atom &a); + //! Append an atom list to the list + AtomList &Append(int argc,const t_atom *argv); + //! Append an atom list to the list + AtomList &Append(const AtomList &a) { return Append(a.Count(),a.Atoms()); } + //! Prepend an atom to the list + AtomList &Prepend(const t_atom &a); + //! Prepend an atom list to the list + AtomList &Prepend(int argc,const t_atom *argv); + //! Prepend an atom list to the list + AtomList &Prepend(const AtomList &a) { return Prepend(a.Count(),a.Atoms()); } + + //! Get a part of the list + AtomList GetPart(int offs,int len) const; + //! Set to a part of the list + AtomList &Part(int offs,int len) { return (*this = GetPart(offs,len)); } + + protected: + int cnt; + t_atom *lst; + }; + + + //! Class representing an "anything" + class AtomAnything: + public AtomList + { + public: + //! Construct anything + AtomAnything(const t_symbol *h = NULL,int argc = 0,const t_atom *argv = NULL): AtomList(argc,argv),hdr(h) {} + //! Construct anything + AtomAnything(const char *h,int argc = 0,const t_atom *argv = NULL): AtomList(argc,argv),hdr(MakeSymbol(h)) {} + //! Construct anything + AtomAnything(const AtomAnything &a): AtomList(a),hdr(a.hdr) {} + + //! Clear anything + AtomAnything &Clear() { return operator()(); } + + //! Get header symbol of anything + const t_symbol *Header() const { return hdr; } + + //! Set anything + AtomAnything &operator()(const t_symbol *h = NULL,int argc = 0,const t_atom *argv = NULL) + { + hdr = h; AtomList::operator()(argc,argv); + return *this; + } + + //! Set list by another AtomAnything + AtomAnything &operator =(const AtomAnything &a) { return operator()(a.Header(),a.Count(),a.Atoms()); } + + protected: + const t_symbol *hdr; + }; + +//! @} + +// --- clock stuff ------------------------------------------------ + + + /*! \defgroup FLEXT_N_CLOCK Flext clock functions + + At the moment there are none + + @{ + */ + +//! @} + + +// --- thread stuff ----------------------------------------------- + +#ifdef FLEXT_THREADS + /*! \defgroup FLEXT_N_THREAD Flext thread handling + + @{ + */ + + /*! \brief Thread mutex + \sa pthreads documentation + */ + class ThrMutex + { + public: + //! Construct thread mutex + ThrMutex(): cnt(0) { pthread_mutex_init(&mutex,NULL); } + //! Destroy thread mutex + ~ThrMutex() { pthread_mutex_destroy(&mutex); } + + //! Lock thread mutex + int Lock() { cnt = 1; return pthread_mutex_lock(&mutex); } + //! Try to lock, but don't wait + int TryLock() { return pthread_mutex_trylock(&mutex); } + //! Unlock thread mutex + int Unlock() { cnt = 0; return pthread_mutex_unlock(&mutex); } + + //! Lock thread mutex (increase lock count by one) + void Push() { if(!cnt++) Lock(); } + //! Unlock thread mutex if lock count reaches zero + void Pop() { if(!--cnt) Unlock(); } + protected: + pthread_mutex_t mutex; + int cnt; + }; + + /*! \brief Thread conditional + \sa pthreads documentation + */ + class ThrCond: + public ThrMutex + { + public: + //! Construct thread conditional + ThrCond() { pthread_cond_init(&cond,NULL); } + //! Destroy thread conditional + ~ThrCond() { pthread_cond_destroy(&cond); } + + //! Wait for condition + int Wait() { return pthread_cond_wait(&cond,&mutex); } + + /*! \brief Wait for condition (for a certain time) + \param time Wait time in seconds + */ + int TimedWait(float time) + { + timespec tm; tm.tv_sec = (long)time; tm.tv_nsec = (long)((time-(long)time)*1.e9); + return pthread_cond_timedwait(&cond,&mutex,&tm); + } + + //! Signal condition + int Signal() { return pthread_cond_signal(&cond); } + //! Broadcast condition + int Broadcast() { return pthread_cond_broadcast(&cond); } + protected: + pthread_cond_t cond; + }; +//! @} +#endif // FLEXT_THREADS + +protected: + static void Setup(); +}; + +#endif diff --git a/externals/grill/flext/source/flthr.cpp b/externals/grill/flext/source/flthr.cpp new file mode 100644 index 00000000..fd780a1c --- /dev/null +++ b/externals/grill/flext/source/flthr.cpp @@ -0,0 +1,237 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flthr.cpp + \brief Implementation of the flext thread functionality. +*/ + +#ifdef FLEXT_THREADS + +#include "flext.h" +#include "flinternal.h" + +#ifdef MAXMSP +#define SCHEDTICK 1 +#endif + +#ifdef NT +#include <windows.h> +#endif +#include <errno.h> + +bool flext_base::StartThread(void *(*meth)(thr_params *p),thr_params *p,char *methname) +{ + static bool init = false; + static pthread_attr_t attr; +#ifdef _DEBUG + if(!p) { + ERRINTERNAL(); + return false; + } +#endif + if(!init) { + pthread_attr_init(&attr); + pthread_attr_setdetachstate(&attr,PTHREAD_CREATE_DETACHED); + init = true; + } + + // set thread priority one point below normal + // so thread construction won't disturb real-time audio + pthread_t id = pthread_self(); + sched_param parm; + int policy; + pthread_getschedparam(id,&policy,&parm); + int prio = parm.sched_priority; + int schmin = sched_get_priority_min(policy); + if(prio > schmin) { + parm.sched_priority = prio-1; + pthread_setschedparam(id,policy,&parm); + } + + pthread_t thrid; + int ret = pthread_create (&thrid,&attr,(void *(*)(void *))meth,p); + + // set thread priority back to normal + parm.sched_priority = prio; + pthread_setschedparam(id,policy,&parm); + + if(ret) { +#ifdef _DEBUG + error((char *)(ret == EAGAIN?"%s - Unsufficient resources to launch thread!":"%s - Could not launch method!"),methname); +#endif + delete p; + return false; + } + else { +#ifdef MAXMSP + sched_yield(); +#endif + return true; + } +} + +bool flext_base::PushThread() +{ + tlmutex.Lock(); + + // make an entry into thread list + thr_entry *nt = new thr_entry; + if(thrtail) thrtail->nxt = nt; + else thrhead = nt; + thrtail = nt; + + { +#ifdef NT + // set detached thread to lower priority class + DWORD err; + HANDLE thr = GetCurrentThread(); + DWORD cl = GetThreadPriority(thr); + if(!cl && (err = GetLastError())) + post("flext - error getting thread priority"); + else { + BOOL ret = SetThreadPriority(thr,cl-2); + if(!ret) { + err = GetLastError(); + if(!err) post("flext - error setting thread priority"); + } + } +#else + // set initial detached thread priority two points below normal + sched_param parm; + int policy; + if(pthread_getschedparam(nt->thrid,&policy,&parm)) + post("flext - can't get thread parameters"); + int prio = parm.sched_priority; + int schmin = sched_get_priority_min(policy); + if(prio > schmin) { + parm.sched_priority = prio-2; + if(pthread_setschedparam(nt->thrid,policy,&parm)) + post("flext - can't set thread parameters"); + } +#endif + } + + tlmutex.Unlock(); + +#ifdef MAXMSP + clock_delay(yclk,0); +#endif + return true; +} + +void flext_base::PopThread() +{ + tlmutex.Lock(); + + pthread_t id = pthread_self(); + + thr_entry *prv = NULL,*ti; + for(ti = thrhead; ti; prv = ti,ti = ti->nxt) + if(ti->Is()) break; + + if(ti) { + if(prv) + prv->nxt = ti->nxt; + else + thrhead = ti->nxt; + if(thrtail == ti) thrtail = prv; + + ti->nxt = NULL; + delete ti; + } + else { +#ifdef _DEBUG + post("%s - INTERNAL ERROR: Thread not found!",thisName()); +#endif + } + + tlmutex.Unlock(); +} + +#ifdef MAXMSP +void flext_base::YTick(flext_base *th) +{ + clock_delay(th->yclk,0); + qelem_set(th->qclk); + sched_yield(); +} +#endif + +flext_base::thrid_t flext_base::GetThreadId() +{ + return pthread_self(); +} + +bool flext_base::ChangePriority(int dp,thrid_t id) +{ + sched_param parm; + int policy; + if(pthread_getschedparam(id,&policy,&parm) < 0) { +#ifdef _DEBUG + post("flext - failed to get parms"); +#endif + return false; + } + else { + parm.sched_priority += dp; + if(pthread_setschedparam(id,policy,&parm) < 0) { +#ifdef _DEBUG + post("flext - failed to change priority"); +#endif + return false; + } + } + return true; +} + + +int flext_base::GetPriority(thrid_t id) +{ + sched_param parm; + int policy; + if(pthread_getschedparam(id,&policy,&parm) < 0) { +#ifdef _DEBUG + post("flext - failed to get parms"); +#endif + return -1; + } + return parm.sched_priority; +} + + +bool flext_base::SetPriority(int p,thrid_t id) +{ + sched_param parm; + int policy; + if(pthread_getschedparam(id,&policy,&parm) < 0) { +#ifdef _DEBUG + post("flext - failed to get parms"); +#endif + return false; + } + else { + parm.sched_priority = p; + if(pthread_setschedparam(id,policy,&parm) < 0) { +#ifdef _DEBUG + post("flext - failed to change priority"); +#endif + return false; + } + } + return true; +} + +flext_base::thr_params::thr_params(flext_base *c,int n): cl(c),var(new _data[n]) {} +flext_base::thr_params::~thr_params() { if(var) delete[] var; } + +void flext_base::thr_params::set_any(const t_symbol *s,int argc,const t_atom *argv) { var[0]._any.args = new AtomAnything(s,argc,argv); } +void flext_base::thr_params::set_list(int argc,const t_atom *argv) { var[0]._list.args = new AtomList(argc,argv); } + +#endif // FLEXT_THREADS diff --git a/externals/grill/flext/source/flutil.cpp b/externals/grill/flext/source/flutil.cpp new file mode 100644 index 00000000..509c3ab4 --- /dev/null +++ b/externals/grill/flext/source/flutil.cpp @@ -0,0 +1,68 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flutil.cpp + \brief Implementation of the various utility functions. +*/ + +#include "flext.h" +#include <string.h> + +#ifdef NT +#include <windows.h> +#endif + +#ifdef MAXMSP +#include <Timer.h> +#include <Threads.h> +#endif + +#ifdef unix +#include <unistd.h> +#endif + +//namespace flext { + +t_atom *flext::CopyList(int argc,const t_atom *argv) +{ + int i; + t_atom *dst = new t_atom[argc]; + for(i = 0; i < argc; ++i) CopyAtom(dst+i,argv+i); + return dst; +} + +void flext::CopyMem(void *dst,const void *src,int bytes) +{ +#ifdef macintosh + BlockMoveData(src,dst,bytes); +#else + memcpy(dst,src,bytes); +#endif +} + +void flext::Sleep(float s) +{ +#ifdef NT + ::Sleep((long)(s*1000)); +#elif defined MAXMSP + UnsignedWide tick; + Microseconds(&tick); + double target = tick.hi*((double)(1L<<((sizeof tick.lo)*4))*(double)(1L<<((sizeof tick.lo)*4)))+tick.lo+s*1.e6; + for(;;) { + Microseconds(&tick); + if(target <= tick.hi*((double)(1L<<((sizeof tick.lo)*4))*(double)(1L<<((sizeof tick.lo)*4)))+tick.lo) break; + YieldToAnyThread(); // should we really yield? + } +#else + usleep((long)(s*1000000)); +#endif +} + +//} // namespace flext diff --git a/externals/grill/flext/source/flxlet.cpp b/externals/grill/flext/source/flxlet.cpp new file mode 100755 index 00000000..881769da --- /dev/null +++ b/externals/grill/flext/source/flxlet.cpp @@ -0,0 +1,88 @@ +/* + +flext - C++ layer for Max/MSP and pd (pure data) externals + +Copyright (c) 2001,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. + +*/ + +/*! \file flxlet.cpp + \brief Implementation of the variable inlet/outlet functionality. +*/ + +#include "flext.h" +#include "flinternal.h" +#include <string.h> +#include <stdarg.h> + +//namespace flext { + +flext_base::xlet::xlet(type t,const char *d): + tp(t),nxt(NULL) +{ + if(d) { + int ln = strlen(d); + desc = new char[ln]; + strncpy(desc,d,ln); + } + else desc = NULL; +} + +flext_base::xlet::~xlet() +{ + if(desc) delete[] desc; + if(nxt) delete nxt; +} + +void flext_base::AddXlet(xlet::type tp,int mult,const char *desc,xlet *&root) +{ + if(!root && mult) { root = new xlet(tp,desc); --mult; } + if(mult) { + xlet *xi = root; + while(xi->nxt) xi = xi->nxt; + while(mult--) xi = xi->nxt = new xlet(tp,desc); + } +} + +void flext_base::DescXlet(int ix,const char *desc,xlet *&root) +{ + post("%s - sorry, not implemented",thisName()); +} + +unsigned long flext_base::XletCode(xlet::type tp,...) +{ + unsigned long code = 0; + + va_list marker; + va_start(marker,tp); + int cnt = 0; + xlet::type *args = NULL,arg = tp; + for(; arg; ++cnt) { +#ifdef _DEBUG + if(cnt > 9) { + error("%s - Too many in/outlets defined - truncated to 9",thisName()); + break; + } +#endif + + code = code*10+(int)arg; + arg = (xlet::type)va_arg(marker,int); + } + va_end(marker); + + return code; +} + +void flext_base::AddInlets(unsigned long code) +{ + for(; code; code /= 10) AddInlet((xlet::type)(code%10)); +} + +void flext_base::AddOutlets(unsigned long code) +{ + for(; code; code /= 10) AddOutlet((xlet::type)(code%10)); +} + +//} // namespace flext |