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, 142 insertions, 0 deletions

diff --git a/src/iemlib2/splitfilename.c b/src/iemlib2/splitfilename.c
new file mode 100644
index 0000000..485b214
--- /dev/null
+++ b/src/iemlib2/splitfilename.c
@@ -0,0 +1,142 @@
+/* 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>
+
+/* -------------------------- splitfilename ------------------------------ */
+
+static t_class *splitfilename_class;
+
+typedef struct _splitfilename
+{
+    t_object x_obj;
+    char     x_sep[2];
+    void    *x_outpath;
+    void    *x_outfile;
+} t_splitfilename;
+
+static void splitfilename_separator(t_splitfilename *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] = '/';
+	}
+	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 splitfilename_symbol(t_splitfilename *x, t_symbol *s)
+{
+    int len = strlen(s->s_name);
+
+    if(len)
+    {
+	if(x->x_sep[0] != 0)
+	{
+	    char *str_path = (char *)getbytes(len*sizeof(char));
+	    char *str_file = (char *)getbytes(len*sizeof(char));
+	    char *cpp, *cpf;
+
+	    strcpy(str_path, s->s_name);
+	    strcpy(str_file, s->s_name);
+	    cpp = strrchr(str_path, x->x_sep[0]);
+	    cpf = strrchr(str_file, x->x_sep[0]);
+	    if(((int)cpp - (int)str_path) < 0)
+	    {
+		outlet_symbol(x->x_outfile, gensym(str_file));
+		outlet_symbol(x->x_outpath, &s_);
+	    }
+	    else if(((int)cpp - (int)str_path) >= len)
+	    {
+		outlet_symbol(x->x_outfile, &s_);
+		outlet_symbol(x->x_outpath, gensym(str_path));
+	    }
+	    else
+	    {
+		*cpp = 0;
+		cpf++;
+		outlet_symbol(x->x_outfile, gensym(cpf));
+		outlet_symbol(x->x_outpath, gensym(str_path));
+	    }
+	    freebytes(str_file, len*sizeof(char));
+	    freebytes(str_path, len*sizeof(char));
+	}
+	else
+	{
+	    outlet_symbol(x->x_outfile, &s_);
+	    outlet_symbol(x->x_outpath, s);
+	}
+    }
+}
+
+static void *splitfilename_new(t_symbol *s, int ac, t_atom *av)
+{
+    t_splitfilename *x = (t_splitfilename *)pd_new(splitfilename_class);
+
+    x->x_sep[0] = 0;
+    x->x_sep[1] = 0;
+    if(ac == 0)
+        x->x_sep[0] = '/';
+    else
+        splitfilename_separator(x, s, ac, av);
+    x->x_outpath = outlet_new(&x->x_obj, &s_symbol);
+    x->x_outfile = outlet_new(&x->x_obj, &s_symbol);
+    return (x);
+}
+
+void splitfilename_setup(void)
+{
+    splitfilename_class = class_new(gensym("splitfilename"), (t_newmethod)splitfilename_new,
+		 0, sizeof(t_splitfilename), 0, A_GIMME, 0);
+    class_addsymbol(splitfilename_class, splitfilename_symbol);
+    class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("separator"), A_GIMME, 0);
+    class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("sep"), A_GIMME, 0);
+    class_sethelpsymbol(splitfilename_class, gensym("iemhelp/help-splitfilename"));
+}