From dde1f1f9010e5b0aeeb35e247783afbe2925c9ea Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Mon, 6 Feb 2006 16:35:24 +0000 Subject: obsolete svn path=/trunk/externals/ggee/; revision=4556 --- control/concat.c | 59 -------------------------------------------------------- 1 file changed, 59 deletions(-) delete mode 100755 control/concat.c (limited to 'control/concat.c') 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 */ - - -#include -#include - -/* ------------------------ 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); -} - - -- cgit v1.2.1