aboutsummaryrefslogtreecommitdiff
path: root/iemlib2/src/mergefilename.c
diff options
context:
space:
mode:
Diffstat (limited to 'iemlib2/src/mergefilename.c')
-rw-r--r--iemlib2/src/mergefilename.c223
1 files changed, 223 insertions, 0 deletions
diff --git a/iemlib2/src/mergefilename.c b/iemlib2/src/mergefilename.c
new file mode 100644
index 0000000..1070b41
--- /dev/null
+++ b/iemlib2/src/mergefilename.c
@@ -0,0 +1,223 @@
+/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
+* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
+
+iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2006 */
+
+
+#include "m_pd.h"
+#include "iemlib.h"
+#include <string.h>
+#include <stdio.h>
+
+
+/* -------------------------- mergefilename ------------------------------ */
+/* ------------ concatenates a list of symbols to one symbol ------------- */
+/* ----- between the linked symbols, there is a variable character ------- */
+
+static t_class *mergefilename_class;
+
+typedef struct _mergefilename
+{
+ t_object x_obj;
+ char x_sep[2];
+ char x_mem[MAXPDSTRING];
+} t_mergefilename;
+
+static void mergefilename_separator(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
+{
+ if(ac > 0)
+ {
+ if(IS_A_SYMBOL(av, 0))
+ {
+ char *name=av->a_w.w_symbol->s_name;
+
+ if(strlen(name) == 1)
+ x->x_sep[0] = name[0];
+ else if(!strcmp(name, "backslash"))
+ x->x_sep[0] = '\\';
+ else if(!strcmp(name, "slash"))
+ x->x_sep[0] = '/';
+ else if(!strcmp(name, "blank"))
+ x->x_sep[0] = ' ';
+ else if(!strcmp(name, "space"))
+ x->x_sep[0] = ' ';
+ else if(!strcmp(name, "dollar"))
+ x->x_sep[0] = '$';
+ else if(!strcmp(name, "comma"))
+ x->x_sep[0] = ',';
+ else if(!strcmp(name, "semi"))
+ x->x_sep[0] = ';';
+ else if(!strcmp(name, "leftbrace"))
+ x->x_sep[0] = '{';
+ else if(!strcmp(name, "rightbrace"))
+ x->x_sep[0] = '}';
+ else
+ x->x_sep[0] = 0;
+ }
+ else if(IS_A_FLOAT(av, 0))
+ {
+ t_int i=atom_getintarg(0, ac, av);
+
+ x->x_sep[0] = (char)i + '0';
+ }
+ }
+ else
+ x->x_sep[0] = 0;
+}
+
+static void mergefilename_float(t_mergefilename *x, t_floatarg f)
+{
+ char flt_buf[30];
+
+ flt_buf[0] = 0;
+ sprintf(flt_buf, "%g", f);
+ outlet_symbol(x->x_obj.ob_outlet, gensym(flt_buf));
+}
+
+static void mergefilename_symbol(t_mergefilename *x, t_symbol *s)
+{
+ outlet_symbol(x->x_obj.ob_outlet, s);
+}
+
+static void mergefilename_list(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
+{
+ char flt_buf[30];
+ t_int i, length, accu_size=0;
+
+ x->x_mem[0] = 0;
+ if(ac > 0)
+ {
+ for(i=0; i<ac; i++)
+ {
+ if(i > 0)
+ {
+ strcat(x->x_mem, x->x_sep);
+ }
+
+ if(IS_A_SYMBOL(av, 0))
+ {
+ length = strlen(av->a_w.w_symbol->s_name);
+ if((accu_size + length) > (MAXPDSTRING - 2))
+ {
+ strncat(x->x_mem, av->a_w.w_symbol->s_name, MAXPDSTRING - 2 - accu_size);
+ accu_size = MAXPDSTRING - 2;
+ i = ac + 1;
+ }
+ else
+ {
+ strcat(x->x_mem, av->a_w.w_symbol->s_name);
+ accu_size += length;
+ }
+ }
+ else if(IS_A_FLOAT(av, 0))
+ {
+ sprintf(flt_buf, "%g", av->a_w.w_float);
+ length = strlen(flt_buf);
+ if((accu_size + length) > (MAXPDSTRING - 2))
+ {
+ strncat(x->x_mem, flt_buf, MAXPDSTRING - 2 - accu_size);
+ accu_size = MAXPDSTRING - 2;
+ i = ac + 1;
+ }
+ else
+ {
+ strcat(x->x_mem, flt_buf);
+ accu_size += length;
+ }
+ }
+ av++;
+ }
+ }
+ outlet_symbol(x->x_obj.ob_outlet, gensym(x->x_mem));
+}
+
+static void mergefilename_anything(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
+{
+ char flt_buf[30];
+ t_int i, length, accu_size=0;
+
+ x->x_mem[0] = 0;
+ length = strlen(s->s_name);
+ if(length > (MAXPDSTRING - 2))
+ {
+ strncat(x->x_mem, s->s_name, MAXPDSTRING - 2);
+ accu_size = MAXPDSTRING - 2;
+ i = ac + 1;
+ }
+ else
+ {
+ strcat(x->x_mem, s->s_name);
+ accu_size = length;
+ }
+
+ if(ac > 0)
+ {
+ for(i=0; i<ac; i++)
+ {
+ strcat(x->x_mem, x->x_sep);
+ if(IS_A_SYMBOL(av, 0))
+ {
+ length = strlen(av->a_w.w_symbol->s_name);
+ if((accu_size + length) > (MAXPDSTRING - 2))
+ {
+ strncat(x->x_mem, av->a_w.w_symbol->s_name, MAXPDSTRING - 2 - accu_size);
+ accu_size = MAXPDSTRING - 2;
+ i = ac + 1;
+ }
+ else
+ {
+ strcat(x->x_mem, av->a_w.w_symbol->s_name);
+ accu_size += length;
+ }
+ }
+ else if(IS_A_FLOAT(av, 0))
+ {
+ sprintf(flt_buf, "%g", av->a_w.w_float);
+ length = strlen(flt_buf);
+ if((accu_size + length) > (MAXPDSTRING - 2))
+ {
+ strncat(x->x_mem, flt_buf, MAXPDSTRING - 2 - accu_size);
+ accu_size = MAXPDSTRING - 2;
+ i = ac + 1;
+ }
+ else
+ {
+ strcat(x->x_mem, flt_buf);
+ accu_size += length;
+ }
+ }
+ av++;
+ }
+ }
+ outlet_symbol(x->x_obj.ob_outlet, gensym(x->x_mem));
+}
+
+static void mergefilename_free(t_mergefilename *x)
+{
+}
+
+static void *mergefilename_new(t_symbol *s, int ac, t_atom *av)
+{
+ t_mergefilename *x = (t_mergefilename *)pd_new(mergefilename_class);
+
+ x->x_sep[0] = 0;
+ x->x_sep[1] = 0;
+ if(ac > 0)
+ mergefilename_separator(x, s, ac, av);
+ x->x_mem[0] = 0;
+ outlet_new(&x->x_obj, &s_symbol);
+ return (x);
+}
+
+void mergefilename_setup(void)
+{
+ mergefilename_class = class_new(gensym("mergefilename"), (t_newmethod)mergefilename_new,
+ 0, sizeof(t_mergefilename), 0, A_GIMME, 0);
+ class_addmethod(mergefilename_class, (t_method)mergefilename_separator, gensym("separator"), A_GIMME, 0);
+ class_addmethod(mergefilename_class, (t_method)mergefilename_separator, gensym("sep"), A_GIMME, 0);
+ class_addfloat(mergefilename_class, mergefilename_float);
+ class_addsymbol(mergefilename_class, mergefilename_symbol);
+ class_addlist(mergefilename_class, mergefilename_list);
+ class_addanything(mergefilename_class, mergefilename_anything);
+// class_sethelpsymbol(mergefilename_class, gensym("iemhelp/help-mergefilename"));
+}