This commit was generated by cvs2svn to compensate for changes in r1738,svn2git-root

which included commits to RCS files with non-trunk default branches.

svn path=/trunk/externals/iemlib/; revision=1739

1 files changed, 229 insertions, 0 deletions

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 <stdlib.h>
+#include <string.h>
+#include <stdio.h>
+#include <math.h>
+
+/* -------------------------- 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; i<ac; i++)
+	{
+	    av++;
+            strcat(cbeg, x->x_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; i<ac; i++)
+	{
+	    strcat(cbeg, x->x_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"));
+}