diff options
Diffstat (limited to 'externals/grill/namedobjs/main.cpp')
-rw-r--r-- | externals/grill/namedobjs/main.cpp | 94 |
1 files changed, 0 insertions, 94 deletions
diff --git a/externals/grill/namedobjs/main.cpp b/externals/grill/namedobjs/main.cpp deleted file mode 100644 index cad037e8..00000000 --- a/externals/grill/namedobjs/main.cpp +++ /dev/null @@ -1,94 +0,0 @@ -/* - -namedobjs - retrieve list of named objects in patcher (Max/MSP only!) - -Copyright (c) 2002-2003 Thomas Grill (xovo@gmx.net) -For information on usage and redistribution, and for a DISCLAIMER OF ALL -WARRANTIES, see the file, "license.txt," in this distribution. - -*/ - -#include <flext.h> - -#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 401) -#error You need at least flext version 0.4.1 -#endif - -#if FLEXT_SYS != FLEXT_SYS_MAX -#error "This object is for MaxMSP only!" -#endif - -#include <ctype.h> - - -#define I int -#define L long -#define V void -#define C char - -class namedobjs: - public flext_base -{ - FLEXT_HEADER_S(namedobjs,flext_base,Setup) - -public: - namedobjs(); - -protected: - V m_bang(); - -private: - static V Setup(t_classid c); - - FLEXT_CALLBACK(m_bang); -}; - -FLEXT_NEW("namedobjs",namedobjs) - -V namedobjs::Setup(t_classid c) -{ - FLEXT_CADDBANG(c,0,m_bang); -} - -namedobjs::namedobjs() -{ - AddInAnything("Bang to retrieve list of named objects"); - AddOutList("Consecutive object type/name pairs"); - AddOutBang("Bang signals end of list"); -} - -V namedobjs::m_bang() -{ - t_canvas *canv = thisCanvas(); -// t_object *self = (t_object *)&x_obj->obj; - - t_box *b; - for(b = canv->p_box; b; b = b->b_next) { - if(b->b_firstin) { -// if(NOGOOD(b->b_firstin)) post("NOGOOD!"); - - t_messlist *ms; - - ms = ((t_tinyobject *)b->b_firstin)->t_messlist; - if(ms) { - const t_class *c = (const t_class *)(ms-1); - if(c) { - t_symbol *nm; - if (patcher_boxname(canv,b,&nm)) { - t_atom lst[4]; - SetString(lst[0],*(C **)c->c_sym->s_name); - SetSymbol(lst[1],nm); - SetInt(lst[2],b->b_rect.left); - SetInt(lst[3],b->b_rect.top); - ToOutList(0,4,lst); - } - } - - } - } - } - - ToOutBang(1); -} - - |