From 0ed7a8b68dd73e2b0473b8127aeca99f3bac9061 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Wed, 1 Apr 2009 21:13:09 +0000 Subject: cleaned up grill externals - replaced with svn:externals to svn.grrrr.org/ext/trunk/ svn path=/trunk/; revision=10951 --- externals/grill/namedobjs/main.cpp | 94 -------------------------------------- 1 file changed, 94 deletions(-) delete mode 100644 externals/grill/namedobjs/main.cpp (limited to 'externals/grill/namedobjs/main.cpp') 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 - -#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 - - -#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); -} - - -- cgit v1.2.1