diff options
Diffstat (limited to 'split.c')
| -rw-r--r-- | split.c | 166 |
1 files changed, 166 insertions, 0 deletions
@@ -0,0 +1,166 @@ +#include <m_pd.h> +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +/* this is taken from ggee, where the file was hanging around but the object was not + funtional. i keep it here for reference since i dont wnat to fix it over and over ;) + but its not included in the makefile to avoid namespace clash with ggee.prepend + anyhow, i ll just rename it cxc.prepend +*/ + +/* ------------------------ split ----------------------------- */ + +static t_class *split_class; + + +typedef struct _split +{ + t_object x_obj; + t_symbol* x_splitter; +} t_split; + + +void split_symbol(t_split *x, t_symbol *s) +{ + t_atom* a; + split_anything(x, s, 0, a); +} + +void split_anything(t_split *x,t_symbol* s,t_int argc,t_atom* argv) +{ + int i = argc; int j; + t_symbol* cur; + t_atom a_out[256]; + int c_out = 0; + t_atom* a = a_out; + char u[MAXPDSTRING]; char v[MAXPDSTRING]; + u[0] = '\0'; + v[0] = '\0'; + int isnum = 1; + + for(j=0; j<strlen(s->s_name); j++) { + u[0] = s->s_name[j]; + if(u[0] == x->x_splitter->s_name[0]) { + // post("found split: %d", v); + post("found split: %d", (int)v); +/* if(isnum) */ +/* SETFLOAT(a, (int)v); */ +/* else */ + SETSYMBOL(a, gensym(v)); + a++; c_out++; + // reset stuff + v[0] = '\0'; + isnum = 1; + } else { + if(!(48 <= u[0] <= 57)) { + isnum = 0; + } + strncat(v, u, 1); + } + } + // post("found split: %s", v); + SETSYMBOL(a, gensym(v)); + a++, c_out++; + +/* #if 1 */ +/* // post("sym: %s",s->s_name); */ +/* SETSYMBOL(a,s); */ +/* a++; */ +/* c_out++; */ +/* #endif */ + +/* while (i--) { */ +/* switch( argv->a_type) { */ +/* case A_FLOAT: */ +/* // post("flo: %f",atom_getfloat(argv)); */ +/* SETFLOAT(a,atom_getfloat(argv)); */ +/* a++; */ +/* c_out++; */ +/* break; */ +/* case A_SYMBOL: */ +/* // post("sym: %s",atom_getsymbol(argv)->s_name); */ +/* SETSYMBOL(a,atom_getsymbol(argv)); */ +/* a++; */ +/* c_out++; */ +/* break; */ +/* default: */ +/* post("split.c: unknown type"); */ +/* } */ +/* argv++; */ +/* } */ + + outlet_list(x->x_obj.ob_outlet, &s_list, c_out, (t_atom*)&a_out); + // outlet_anything(x->x_obj.ob_outlet,gensym("list"),c_out,(t_atom*)&a_out); +/* //post("done"); */ +} + +void split_list(t_split *x,t_symbol* s,t_int argc,t_atom* argv) +{ + int i = argc; + t_symbol* cur; + t_atom a_out[256]; + int c_out = 0; + t_atom* a = a_out; + + while (i--) { + switch( argv->a_type) { + case A_FLOAT: + // post("flo: %f",atom_getfloat(argv)); + SETFLOAT(a,atom_getfloat(argv)); + a++; + c_out++; + break; + case A_SYMBOL: + // post("sym: %s",atom_getsymbol(argv)->s_name); + SETSYMBOL(a,atom_getsymbol(argv)); + a++; + c_out++; + break; + default: + post("split.c: unknown type"); + } + argv++; + } + + outlet_anything(x->x_obj.ob_outlet,x->x_splitter,c_out,(t_atom*)&a_out); + //post("done"); +} + +static void *split_new(t_symbol* s) +{ + t_split *x = (t_split *)pd_new(split_class); + outlet_new(&x->x_obj, &s_float); + if (s != &s_) + x->x_splitter = s; + else + x->x_splitter = gensym("cxc.split"); + return (x); +} + +static void split_set(t_split *x, t_symbol *s) +{ + t_symbol *t; + // init temp splitter + char u[1]; u[0] = '\0'; + + if(strlen(s->s_name) > 1) { + // t = gensym((char*)s->s_name[0]); + // post("%d", s->s_name[0]); + strncat(u, s->s_name, 1); + t = gensym(u); + } else + t = s; + x->x_splitter = t; +} + +void split_setup(void) +{ + split_class = class_new(gensym("cxc.split"), (t_newmethod)split_new, 0, + sizeof(t_split), 0,A_DEFSYM,NULL); + class_addlist(split_class, split_list); + class_addanything(split_class,split_anything); + class_addmethod(split_class, (t_method)split_set, gensym("set"), A_SYMBOL, 0); + class_addsymbol(split_class, split_symbol); +} |