/*
 * relay: route without stripping selector
 *
 * (c) 1999-2011 IOhannes m zmölnig, forum::für::umläute, institute of electronic music and acoustics (iem)
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

/*
   (c) 2106:forum::für::umläute:2005

   "relay" is like "route" but doesn't change the incoming list

   example:
   [foo bar( --> [route 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=NULL;

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)
{
  if (x->x_type == A_SYMBOL) {
    int nelement;
    t_relayelement *e;
    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) {
    t_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) {
        if (!sel) {
          sel=(argc==1)?gensym("float"):gensym("list");
        }
        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 == gensym("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 == gensym("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 == gensym("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 == gensym("symbol")) {
          outlet_symbol(e->e_outlet, argv[0].a_w.w_symbol);
          return;
        }
      }
    }
  }
  outlet_list(x->x_rejectout, gensym("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* UNUSED(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, gensym("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, gensym("list"));
  return (x);
}

ZEXY_SETUP void relay_setup(void)
{
  relay_class = zexy_new("relay",
                         relay_new, relay_free, t_relay, 0, "*");
  class_addlist(relay_class, relay_list);
  class_addanything(relay_class, relay_anything);
  zexy_register("relay");
}
