/*
* list2lists: split a list into several sublists given by their lenghts
*
* (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 .
*/
#include "zexy.h"
#if 0
# define DEBUG
#endif
#ifdef DEBUG
# define DEBUGFUN(x) x
#else
# define DEBUGFUN(x)
#endif
static t_class *list2lists_class;
typedef struct _list2lists
{
t_object x_obj;
t_outlet *x_outlet;
int x_n;
t_inlet*x_lengin;
int x_lcount;
t_int *x_length;
} t_list2lists;
static void list2lists_list2(t_list2lists*x,t_symbol*s, int argc, t_atom*argv)
{
if(x->x_length!=0) {
freebytes(x->x_length, sizeof(t_atom)*x->x_lcount);
}
x->x_lcount=0;
x->x_length=0;
DEBUGFUN(post("list of length %d", argc));
if(argc>0) {
int i;
x->x_lcount=argc;
x->x_length=(t_int*)getbytes((x->x_lcount)*sizeof(t_int));
for(i=0; ix_length[i]=index;
}
}
DEBUGFUN(post("list2: %d %x", x->x_lcount, x->x_length));
}
static void list2lists_output(t_list2lists*x, int argc, t_atom*argv)
{
t_outlet*out=x->x_obj.ob_outlet;
if(argc<=0)
outlet_bang(out);
else
outlet_list(out, gensym("list"), argc, argv);
}
static void list2lists_list(t_list2lists *x, t_symbol *s, int argc, t_atom *argv)
{
int i;
if(x->x_lcount<1) {
outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
return;
}
for(i=0; ix_lcount; i++) {
int len=x->x_length[i];
if(len>argc) {
list2lists_output(x, argc, argv);
return;
}
list2lists_output(x, len, argv);
argv+=len;
argc-=len;
}
}
static void list2lists_free(t_list2lists *x)
{
if(x->x_length) {
freebytes(x->x_length, x->x_lcount*sizeof(int));
x->x_length=0;
x->x_lcount=0;
}
inlet_free(x->x_lengin);
}
static void *list2lists_new(t_symbol* UNUSED(s), int argc, t_atom *argv)
{
t_list2lists *x = (t_list2lists *)pd_new(list2lists_class);
outlet_new(&x->x_obj, 0);
x->x_lengin=inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("list"), gensym("lst2"));
x->x_lcount=0;
x->x_length=0;
list2lists_list2(x, gensym("list"), argc, argv);
return (x);
}
static void list2lists_help(t_list2lists*x)
{
post("\n"HEARTSYMBOL" list2lists\t\t:: split lists into multiple sublists based on matches");
}
void list2lists_setup(void)
{
list2lists_class = class_new(gensym("list2lists"), (t_newmethod)list2lists_new,
(t_method)list2lists_free, sizeof(t_list2lists), 0, A_GIMME, 0);
class_addlist (list2lists_class, list2lists_list);
class_addmethod (list2lists_class, (t_method)list2lists_list2, gensym("lst2"), A_GIMME, 0);
class_addmethod(list2lists_class, (t_method)list2lists_help, gensym("help"), A_NULL);
zexy_register("list2lists");
}