From b1e8937d3f653659ad2fb9cc134260c9b2681707 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Tue, 21 Jun 2005 13:23:29 +0000 Subject: added [relay], a stupid [route] svn path=/trunk/externals/zexy/; revision=3229 --- src/relay.c | 182 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ src/z_zexy.c | 1 + src/z_zexy.h | 1 + 3 files changed, 184 insertions(+) create mode 100644 src/relay.c (limited to 'src') 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 */ -- cgit v1.2.1