new guts

svn path=/trunk/externals/iem/iemguts/; revision=10192

2 files changed, 203 insertions, 0 deletions

diff --git a/src/canvasconnection.c b/src/canvasconnection.c
new file mode 100644
index 0000000..af64ce9
--- /dev/null
+++ b/src/canvasconnection.c
@@ -0,0 +1,127 @@
+
+/******************************************************
+ *
+ * canvasconnection - implementation file
+ *
+ * copyleft (c) IOhannes m zmölnig
+ *
+ *   2007:forum::für::umläute:2007
+ *
+ *   institute of electronic music and acoustics (iem)
+ *
+ ******************************************************
+ *
+ * license: GNU General Public License v.2
+ *
+ ******************************************************/
+
+
+/* 
+ * this object provides a way to send messages to upstream canvases
+ * by default it sends messages to the containing canvas, but you can give the
+ * "depth" as argument;
+ * e.g. [canvasconnection 1] will send messages to the parent of the containing canvas
+ */
+
+#include "m_pd.h"
+#include "g_canvas.h"
+#include "m_imp.h"
+
+int glist_getindex(t_glist *x, t_gobj *y);
+
+/* ------------------------- canvasconnection ---------------------------- */
+
+static t_class *canvasconnection_class;
+
+typedef struct _canvasconnection
+{
+  t_object  x_obj;
+  t_canvas  *x_parent;
+  t_object  *x_object;
+  t_outlet  *x_out;
+} t_canvasconnection;
+
+static void canvasconnection_outlets(t_canvasconnection *x)
+{
+  int noutlets=0;
+  int nout=0;
+  t_atom at;
+
+  if(0==x->x_object || 0==x->x_parent)
+    return;
+
+  noutlets=obj_noutlets(x->x_object);
+  SETFLOAT(&at, (t_float)noutlets);
+
+  outlet_anything(x->x_out, gensym("outlets"), 1, &at);
+  for(nout=0; nout<noutlets; nout++) {
+    t_outlet*out=0;
+    t_outconnect*conn=obj_starttraverseoutlet(x->x_object, &out, nout);
+    t_object*dest=0;
+    t_inlet*in=0;
+    int which=0;
+    int count=0, i=0;
+    t_atom*abuf=0;
+    while(conn) {
+      conn=obj_nexttraverseoutlet(conn, &dest, &in, &which);
+      count++;
+    }
+    abuf=(t_atom*)getbytes(sizeof(t_atom)*(count+1));
+    SETFLOAT(abuf, nout);
+    conn=obj_starttraverseoutlet(x->x_object, &out, nout);
+    while(conn) {
+      t_float connid=0;
+      conn=obj_nexttraverseoutlet(conn, &dest, &in, &which);
+      connid = glist_getindex(x->x_parent, (t_gobj*)dest);
+      SETFLOAT(abuf+1+i, connid);
+      i++;
+    }
+    outlet_anything(x->x_out, gensym("outlet"), count+1, abuf);
+    freebytes(abuf, sizeof(t_atom)*(count+1));
+  }
+}
+
+static void canvasconnection_bang(t_canvasconnection *x)
+{
+  canvasconnection_outlets(x);
+}
+
+
+static void canvasconnection_free(t_canvasconnection *x)
+{
+  x->x_object=0;
+  outlet_free(x->x_out);
+  x->x_out=0;
+}
+
+static void *canvasconnection_new(t_floatarg f)
+{
+  t_canvasconnection *x = (t_canvasconnection *)pd_new(canvasconnection_class);
+  t_glist *glist=(t_glist *)canvas_getcurrent();
+  t_canvas *canvas=(t_canvas*)glist_getcanvas(glist);
+  int depth=(int)f;
+  if(depth<0)depth=0;
+
+  x->x_parent=0;
+
+  while(depth && canvas) {
+    canvas=canvas->gl_owner;
+    depth--;
+  }
+
+  x->x_object = pd_checkobject((t_pd*)canvas);
+
+  if(canvas)
+    x->x_parent = canvas->gl_owner;
+
+  x->x_out=outlet_new(&x->x_obj, 0);
+
+  return (x);
+}
+
+void canvasconnection_setup(void)
+{
+  canvasconnection_class = class_new(gensym("canvasconnection"), (t_newmethod)canvasconnection_new,
+                               (t_method)canvasconnection_free, sizeof(t_canvasconnection), 0, A_DEFFLOAT, 0);
+  class_addbang(canvasconnection_class, (t_method)canvasconnection_bang);
+}
diff --git a/src/sendcanvas.c b/src/sendcanvas.c
new file mode 100644
index 0000000..51d7f77
--- /dev/null
+++ b/src/sendcanvas.c
@@ -0,0 +1,76 @@
+
+/******************************************************
+ *
+ * sendcanvas - implementation file
+ *
+ * copyleft (c) IOhannes m zmölnig
+ *
+ *   2007:forum::für::umläute:2007
+ *
+ *   institute of electronic music and acoustics (iem)
+ *
+ ******************************************************
+ *
+ * license: GNU General Public License v.2
+ *
+ ******************************************************/
+
+
+/* 
+ * this object provides a way to send messages to upstream canvases
+ * by default it sends messages to the containing canvas, but you can give the
+ * "depth" as argument;
+ * e.g. [sendcanvas 1] will send messages to the parent of the containing canvas
+ */
+
+#include "m_pd.h"
+#include "g_canvas.h"
+
+int glist_getindex(t_glist *x, t_gobj *y);
+
+/* ------------------------- sendcanvas ---------------------------- */
+
+static t_class *sendcanvas_class;
+
+typedef struct _sendcanvas
+{
+  t_object  x_obj;
+  t_pd  *x_pd;
+} t_sendcanvas;
+
+static void sendcanvas_anything(t_sendcanvas *x, t_symbol*s, int argc, t_atom*argv)
+{
+  if(0==x->x_pd)
+    return;
+
+  typedmess(x->x_pd, s, argc, argv);
+}
+
+static void sendcanvas_free(t_sendcanvas *x)
+{
+  x->x_pd=0;
+}
+
+static void *sendcanvas_new(t_floatarg f)
+{
+  t_sendcanvas *x = (t_sendcanvas *)pd_new(sendcanvas_class);
+  t_glist *glist=(t_glist *)canvas_getcurrent();
+  t_canvas *canvas=(t_canvas*)glist_getcanvas(glist);
+  int depth=(int)f;
+  if(depth<0)depth=0;
+
+  while(depth && canvas) {
+    canvas=canvas->gl_owner;
+    depth--;
+  }
+
+  x->x_pd = (t_pd*)canvas;
+  return (x);
+}
+
+void sendcanvas_setup(void)
+{
+  sendcanvas_class = class_new(gensym("sendcanvas"), (t_newmethod)sendcanvas_new,
+                               (t_method)sendcanvas_free, sizeof(t_sendcanvas), 0, A_DEFFLOAT, 0);
+  class_addanything(sendcanvas_class, (t_method)sendcanvas_anything);
+}