diff options
| -rwxr-xr-x | control/concat.c | 59 | ||||
| -rwxr-xr-x | control/prepend.c | 76 |
2 files changed, 0 insertions, 135 deletions
diff --git a/control/concat.c b/control/concat.c deleted file mode 100755 index 575f998..0000000 --- a/control/concat.c +++ /dev/null @@ -1,59 +0,0 @@ -/* (C) Guenter Geiger <geiger@epy.co.at> */ - - -#include <m_pd.h> -#include <string.h> - -/* ------------------------ concat ----------------------------- */ - -#define MAX_ELEMENTS 256 - -static t_class *concat_class; - - -typedef struct _concat -{ - t_object x_obj; - t_symbol* x_sym; -} t_concat; - -static char tsym[2048]; - -void concat_float(t_concat *x,t_float f) -{ - sprintf(tsym,"%g",f); - strcat(tsym,x->x_sym->s_name); - - outlet_symbol(x->x_obj.ob_outlet,gensym(tsym)); -} - -void concat_symbol(t_concat *x,t_symbol* s) -{ - strcpy(tsym,s->s_name); - strcat(tsym,x->x_sym->s_name); - - outlet_symbol(x->x_obj.ob_outlet,gensym(tsym)); -} - - -static void *concat_new(t_symbol* s) -{ - t_concat *x = (t_concat *)pd_new(concat_class); - outlet_new(&x->x_obj,&s_float); - symbolinlet_new(&x->x_obj, &x->x_sym); - x->x_sym = s; - *tsym = 0; - return (x); -} - - - -void concat_setup(void) -{ - concat_class = class_new(gensym("concat"), (t_newmethod)concat_new, 0, - sizeof(t_concat),0, A_DEFSYM,0); - class_addsymbol(concat_class,concat_symbol); - class_addfloat(concat_class,concat_float); -} - - diff --git a/control/prepend.c b/control/prepend.c deleted file mode 100755 index f0c6f15..0000000 --- a/control/prepend.c +++ /dev/null @@ -1,76 +0,0 @@ -/* (C) Guenter Geiger <geiger@epy.co.at> */ - - -#include <m_pd.h> -#ifdef _MSC_VER -#pragma warning( disable : 4244 ) -#pragma warning( disable : 4305 ) -#endif - -/* ------------------------ prepend ----------------------------- */ - -static t_class *prepend_class; - - -typedef struct _prepend -{ - t_object x_obj; - t_symbol* x_s; -} t_prepend; - - -void prepend_anything(t_prepend *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; - - if (argv->a_type == A_SYMBOL) { - SETSYMBOL(a,s); - a++; - c_out++; - } - - while (i--) { - switch( argv->a_type) { - case A_FLOAT: - SETFLOAT(a,atom_getfloat(argv)); - a++; - c_out++; - break; - case A_SYMBOL: - SETSYMBOL(a,atom_getsymbol(argv)); - a++; - c_out++; - break; - default: - post("unknown type"); - } - argv++; - } - outlet_anything(x->x_obj.ob_outlet,x->x_s,c_out,(t_atom*)&a_out); -} - -static void *prepend_new(t_symbol* s) -{ - t_prepend *x = (t_prepend *)pd_new(prepend_class); - outlet_new(&x->x_obj, &s_float); - if (s != &s_) - x->x_s = s; - else { - x->x_s = gensym("prepend"); - error("prepend needs symbol argument"); - } - return (x); -} - -void prepend_setup(void) -{ - prepend_class = class_new(gensym("prepend"), (t_newmethod)prepend_new, 0, - sizeof(t_prepend), 0,A_DEFSYM,NULL); - class_addanything(prepend_class,prepend_anything); -} - - |