aboutsummaryrefslogtreecommitdiff
path: root/control/concat.c
diff options
context:
space:
mode:
Diffstat (limited to 'control/concat.c')
-rwxr-xr-xcontrol/concat.c59
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);
-}
-
-