dos-return

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

1 files changed, 230 insertions, 230 deletions

diff --git a/src/iemlib2/mergefilename.c b/src/iemlib2/mergefilename.c
index eeccf56..8d22b5e 100644
--- a/src/iemlib2/mergefilename.c
+++ b/src/iemlib2/mergefilename.c
@@ -1,230 +1,230 @@
-/* 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 - 2005 */

-

-#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 ------------------------------ */

-/* ------------ 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];

-} 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"));

-}

+/* 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 - 2005 */
+
+#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 ------------------------------ */
+/* ------------ 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];
+} 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"));
+}