added [relay], a stupid [route]

svn path=/trunk/externals/zexy/; revision=3229

3 files changed, 184 insertions, 0 deletions

diff --git a/src/relay.c b/src/relay.c
new file mode 100644
index 0000000..667484a
--- /dev/null
+++ b/src/relay.c
@@ -0,0 +1,182 @@
+/******************************************************
+ *
+ * zexy - implementation file
+ *
+ * copyleft (c) IOhannes m zmölnig
+ *
+ *   1999:forum::für::umläute:2005
+ *
+ *   institute of electronic music and acoustics (iem)
+ *
+ ******************************************************
+ *
+ * license: GNU General Public License v.2
+ *
+ ******************************************************/
+
+/* 
+   (c) 2106:forum::für::umläute:2005
+
+   "relay" is like "relay" but doesn't change the incoming list
+
+   example:
+     [foo bar( --> [relay foo] --> [bar(
+     [foo bar( --> [relay foo] --> [foor bar(
+
+   namings: 
+     direct, channel, relay, steer, guide, ??
+
+     in the meantime i choose [relay] (as in mail-relay)
+
+*/
+
+
+#include "zexy.h"
+
+/* -------------------------- relay ------------------------------ */
+
+static t_class *relay_class;
+
+typedef struct _relayelement
+{
+    t_word e_w;
+    t_outlet *e_outlet;
+} t_relayelement;
+
+typedef struct _relay
+{
+    t_object x_obj;
+    t_atomtype x_type;
+    t_int x_nelement;
+    t_relayelement *x_vec;
+    t_outlet *x_rejectout;
+} t_relay;
+
+static void relay_anything(t_relay *x, t_symbol *sel, int argc, t_atom *argv)
+{
+    t_relayelement *e;
+    int nelement;
+    if (x->x_type == A_SYMBOL) 
+    {
+      for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
+        if (e->e_w.w_symbol == sel)
+          {
+            outlet_anything(e->e_outlet, sel, argc, argv);
+            return;
+          }
+    }
+    outlet_anything(x->x_rejectout, sel, argc, argv);
+}
+
+static void relay_list(t_relay *x, t_symbol *sel, int argc, t_atom *argv)
+{
+  t_relayelement *e;
+  int nelement;
+  if (x->x_type == A_FLOAT)
+    {
+      float f;
+      if (!argc){
+        outlet_bang(x->x_rejectout);
+        return;
+      }
+      f = atom_getfloat(argv);
+      for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
+        if (e->e_w.w_float == f)
+          {
+            outlet_anything(e->e_outlet, sel, argc, argv);
+            return;
+          }
+    }
+  else    /* symbol arguments */
+    {
+      if (argc == 0)         /* no args: treat as "bang" */
+        {
+          for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
+            {
+              if (e->e_w.w_symbol == &s_bang)
+                {
+                  outlet_bang(e->e_outlet);
+                  return;
+                }
+            }
+        }
+      else if (argc>1)
+        {
+          for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
+            { 
+              if (e->e_w.w_symbol == &s_list)
+                {
+                  outlet_anything(e->e_outlet, sel, argc, argv);
+                  return;
+                }
+            }
+        }
+        else if (argv[0].a_type == A_FLOAT)     /* one float arg */
+        {
+            for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
+            {
+                if (e->e_w.w_symbol == &s_float)
+                {
+                    outlet_float(e->e_outlet, argv[0].a_w.w_float);
+                    return;
+                }
+            }
+        }
+        else
+        {
+            for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
+            {
+                if (e->e_w.w_symbol == &s_symbol)
+                {
+                    outlet_symbol(e->e_outlet, argv[0].a_w.w_symbol);
+                    return;
+                }
+            }
+        }
+    }
+  outlet_list(x->x_rejectout, &s_list, argc, argv);
+}
+
+
+static void relay_free(t_relay *x)
+{
+    freebytes(x->x_vec, x->x_nelement * sizeof(*x->x_vec));
+}
+
+static void *relay_new(t_symbol *s, int argc, t_atom *argv)
+{
+    int n;
+    t_relayelement *e;
+    t_relay *x = (t_relay *)pd_new(relay_class);
+    t_atom a;
+    if (argc == 0)
+    {
+        argc = 1;
+        SETFLOAT(&a, 0);
+        argv = &a;
+    }
+    x->x_type = argv[0].a_type;
+    x->x_nelement = argc;
+    x->x_vec = (t_relayelement *)getbytes(argc * sizeof(*x->x_vec));
+    for (n = 0, e = x->x_vec; n < argc; n++, e++)
+    {
+        e->e_outlet = outlet_new(&x->x_obj, &s_list);
+        if (x->x_type == A_FLOAT)
+            e->e_w.w_float = atom_getfloatarg(n, argc, argv);
+        else e->e_w.w_symbol = atom_getsymbolarg(n, argc, argv);
+    }
+    x->x_rejectout = outlet_new(&x->x_obj, &s_list);
+    return (x);
+}
+
+void relay_setup(void)
+{
+    relay_class = class_new(gensym("relay"), (t_newmethod)relay_new,
+        (t_method)relay_free, sizeof(t_relay), 0, A_GIMME, 0);
+    class_addlist(relay_class, relay_list);
+    class_addanything(relay_class, relay_anything);
+}
+void z_relay_setup(void)
+{
+  relay_setup();
+}
diff --git a/src/z_zexy.c b/src/z_zexy.c
index 2656c67..55cd5c3 100644
--- a/src/z_zexy.c
+++ b/src/z_zexy.c
@@ -46,6 +46,7 @@ void z_zexy_setup(void)
 	z_pdf__setup(); /* pdf~.c */
 	z_prime_setup(); /* prime.c */
 	z_quantize__setup(); /* quantize~.c */
+	z_relay_setup(); /* relay.c */
 	z_repack_setup(); /* repack.c */
 	z_repeat_setup(); /* repeat.c */
 	z_sfplay_setup(); /* sfplay.c */
diff --git a/src/z_zexy.h b/src/z_zexy.h
index cbc12cf..2c55ded 100644
--- a/src/z_zexy.h
+++ b/src/z_zexy.h
@@ -44,6 +44,7 @@ void z_pack__setup(void); /* pack~.c */
 void z_pdf__setup(void); /* pdf~.c */
 void z_prime_setup(void); /* prime.c */
 void z_quantize__setup(void); /* quantize~.c */
+void z_relay_setup(void); /* relay.c */
 void z_repack_setup(void); /* repack.c */
 void z_repeat_setup(void); /* repeat.c */
 void z_sfplay_setup(void); /* sfplay.c */