diff options
author | Guenter Geiger <ggeiger@users.sourceforge.net> | 2006-02-06 16:35:24 +0000 |
---|---|---|
committer | Guenter Geiger <ggeiger@users.sourceforge.net> | 2006-02-06 16:35:24 +0000 |
commit | dde1f1f9010e5b0aeeb35e247783afbe2925c9ea (patch) | |
tree | 7f936acedb8de8b62a7bb337e1852391f65db9bd /control/concat.c | |
parent | 93d361b32401310375216bcd03df803d8fdd854f (diff) |
obsolete
svn path=/trunk/externals/ggee/; revision=4556
Diffstat (limited to 'control/concat.c')
-rwxr-xr-x | control/concat.c | 59 |
1 files changed, 0 insertions, 59 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); -} - - |