aboutsummaryrefslogtreecommitdiff
path: root/externals/grill/namedobjs/main.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'externals/grill/namedobjs/main.cpp')
-rw-r--r--externals/grill/namedobjs/main.cpp94
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);
-}
-
-