From 577ac6e80ff4f436fbd054291ed7dddbc31bd49a Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 18 May 2004 21:33:33 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r1738, which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/iemlib/; revision=1739 --- src/iemlib2/mergefilename.c | 229 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 229 insertions(+) create mode 100644 src/iemlib2/mergefilename.c (limited to 'src/iemlib2/mergefilename.c') diff --git a/src/iemlib2/mergefilename.c b/src/iemlib2/mergefilename.c new file mode 100644 index 0000000..7fe134b --- /dev/null +++ b/src/iemlib2/mergefilename.c @@ -0,0 +1,229 @@ +/* Copyright (c) 1997-2003 Miller Puckette. +* 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 (c) IEM KUG Graz Austria 2000 - 2003 */ + +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +#include "m_pd.h" +#include "iemlib.h" +#include +#include +#include +#include + +/* -------------------------- mergefilename ------------------------------ */ + +static t_class *mergefilename_class; + +typedef struct _mergefilename +{ + t_object x_obj; + char x_sep[2]; +} 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)) + { + if(strlen(av->a_w.w_symbol->s_name) == 1) + x->x_sep[0] = av->a_w.w_symbol->s_name[0]; + else if(!strcmp(av->a_w.w_symbol->s_name, "backslash")) + x->x_sep[0] = '\\'; + else if(!strcmp(av->a_w.w_symbol->s_name, "slash")) + x->x_sep[0] = '/'; + else if(!strcmp(av->a_w.w_symbol->s_name, "blank")) + x->x_sep[0] = ' '; + else if(!strcmp(av->a_w.w_symbol->s_name, "space")) + x->x_sep[0] = ' '; + else if(!strcmp(av->a_w.w_symbol->s_name, "dollar")) + x->x_sep[0] = '$'; + else if(!strcmp(av->a_w.w_symbol->s_name, "comma")) + x->x_sep[0] = ','; + else if(!strcmp(av->a_w.w_symbol->s_name, "semi")) + x->x_sep[0] = ';'; + else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace")) + x->x_sep[0] = '{'; + else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace")) + x->x_sep[0] = '}'; + else + x->x_sep[0] = 0; + } + else if(IS_A_FLOAT(av, 0)) + { + int i; + float f=fabs(av->a_w.w_float); + + while(f >= 10.0) + f *= 0.1; + i = (int)f; + x->x_sep[0] = (char)i + '0'; + } + } + else + x->x_sep[0] = 0; +} + +static void mergefilename_float(t_mergefilename *x, t_floatarg f) +{ + char fbuf[30]; + + fbuf[0] = 0; + sprintf(fbuf, "%g", f); + outlet_symbol(x->x_obj.ob_outlet, gensym(fbuf)); +} + +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 *cbeg, fbuf[30]; + int size=400, i, len, cursize=0; + + cbeg = (char *)getbytes(size * sizeof(char)); + cbeg[0] = 0; + if(ac > 0) + { + if(IS_A_SYMBOL(av, 0)) + { + len = strlen(av->a_w.w_symbol->s_name); + if((len + cursize) >= (size-1)) + { + cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); + size = 2*(len + cursize); + } + strcat(cbeg, av->a_w.w_symbol->s_name); + cursize += len; + } + else if(IS_A_FLOAT(av, 0)) + { + sprintf(fbuf, "%g", av->a_w.w_float); + len = strlen(fbuf); + if((len + cursize) >= (size-1)) + { + cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); + size = 2*(len + cursize); + } + strcat(cbeg, fbuf); + cursize += len; + } + } + + if(ac > 1) + { + for(i=1; ix_sep); + if(IS_A_SYMBOL(av, 0)) + { + len = strlen(av->a_w.w_symbol->s_name); + if((len + cursize) >= (size-1)) + { + cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); + size = 2*(len + cursize); + } + strcat(cbeg, av->a_w.w_symbol->s_name); + cursize += len; + } + else if(IS_A_FLOAT(av, 0)) + { + sprintf(fbuf, "%g", av->a_w.w_float); + len = strlen(fbuf); + if((len + cursize) >= (size-1)) + { + cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); + size = 2*(len + cursize); + } + strcat(cbeg, fbuf); + cursize += len; + } + } + } + outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg)); + freebytes(cbeg, size * sizeof(char)); +} + +static void mergefilename_anything(t_mergefilename *x, t_symbol *s, int ac, t_atom *av) +{ + char *cbeg, fbuf[30]; + int size=400, i, len, cursize=0; + + cbeg = (char *)getbytes(size * sizeof(char)); + cbeg[0] = 0; + len = strlen(s->s_name); + if((len + cursize) >= (size-1)) + { + cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); + size = 2*(len + cursize); + } + strcat(cbeg, s->s_name); + cursize += len; + if(ac > 0) + { + for(i=0; ix_sep); + if(IS_A_SYMBOL(av, 0)) + { + len = strlen(av->a_w.w_symbol->s_name); + if((len + cursize) >= (size-1)) + { + cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); + size = 2*(len + cursize); + } + strcat(cbeg, av->a_w.w_symbol->s_name); + cursize += len; + } + else if(IS_A_FLOAT(av, 0)) + { + sprintf(fbuf, "%g", av->a_w.w_float); + len = strlen(fbuf); + if((len + cursize) >= (size-1)) + { + cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); + size = 2*(len + cursize); + } + strcat(cbeg, fbuf); + cursize += len; + } + av++; + } + } + outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg)); + freebytes(cbeg, size * sizeof(char)); +} + +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); + 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")); +} -- cgit v1.2.1