From 41c8a8b33323d85ee9d5a6da4bcadccb93181803 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Fri, 14 May 2010 03:49:55 +0000
Subject: sorted out all the objectclasses in cxc, more or less, now let's try
 debianizing

svn path=/trunk/externals/cxc/; revision=13541
---
 cxc_split.c | 174 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 174 insertions(+)
 create mode 100644 cxc_split.c

(limited to 'cxc_split.c')

diff --git a/cxc_split.c b/cxc_split.c
new file mode 100644
index 0000000..0d55f3a
--- /dev/null
+++ b/cxc_split.c
@@ -0,0 +1,174 @@
+#include <m_pd.h>
+#include <string.h>
+#include <stdlib.h>
+#include <math.h>
+#ifdef _MSC_VER
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+/* this is taken from ggee, where the file was hanging around but the object was not
+   funtional. i keep it here for reference since i dont wnat to fix it over and over ;)
+   but its not included in the makefile to avoid namespace clash with ggee.prepend
+   anyhow, i ll just rename it cxc.prepend
+*/
+
+/* ------------------------ split ----------------------------- */
+
+// why have to do this?
+void split_anything();
+
+static t_class *split_class;
+
+
+typedef struct _split
+{
+     t_object x_obj;
+     t_symbol* x_splitter;
+} t_split;
+
+
+void split_symbol(t_split *x, t_symbol *s)
+{
+  t_atom* a;
+  split_anything(x, s, 0, a);
+}
+
+
+// move these to generic location later on
+int split_string_isnum(char* s)
+{
+  // int isnum = 1;
+  char tc;
+  while((tc = *s++) != '\0') {
+    // tc= s;
+    switch(tc) {
+    case 46: case 48: case 49: case 50: case 51: case 52: case 53: case 54: case 55: case 56: case 57:
+      // post("yo numba: %c", tc);
+      break;
+    default:
+      return 0;
+      break;
+    }
+  }
+  return 1;
+}
+
+void split_anything(t_split *x,t_symbol* s,t_int argc,t_atom* argv)
+{
+  int i = argc; int j;
+  t_symbol* cur;
+  t_atom a_out[256];
+  int    c_out = 0;
+  t_atom* a = a_out;
+  // char *str;
+  char u[MAXPDSTRING];
+  char v[MAXPDSTRING];
+  // char *v;
+  u[0] = '\0';
+  v[0] = '\0';
+  int isnum = 1;
+  // float tf;
+  
+  for(j=0; j<strlen(s->s_name); j++) {
+    u[0] = s->s_name[j];
+    if(u[0] == x->x_splitter->s_name[0]) {
+      if(v[0] != '\0') { // delimiter is first character
+	// check if string is digits only
+	if(split_string_isnum(v)) {
+	  SETFLOAT(a, (float)atof(v));
+	}
+	else {
+	  SETSYMBOL(a, gensym(v));
+	}
+	a++; c_out++;
+	// reset stuff
+	v[0] = '\0';
+	isnum = 1;
+      } // v[0] != '\0'
+    } else {
+      strncat(v, u, 1);
+    } // char matches splitter
+  }
+  
+  // have to do this again here, damn.
+  if(split_string_isnum(v)) {
+    SETFLOAT(a, (float)atof(v));
+  }
+  else {
+    SETSYMBOL(a, gensym(v));
+  }
+  a++, c_out++;
+  
+  outlet_list(x->x_obj.ob_outlet, &s_list, c_out, (t_atom*)&a_out);
+  // outlet_anything(x->x_obj.ob_outlet,gensym("list"),c_out,(t_atom*)&a_out);
+}
+
+void split_list(t_split *x,t_symbol* s,t_int argc,t_atom* argv)
+{
+     int i = argc;
+     t_symbol* cur;
+     t_atom a_out[256];
+     int    c_out = 0;
+     t_atom* a = a_out;
+
+     while (i--) {
+       switch( argv->a_type) {
+       case A_FLOAT:
+	 //	 post("flo: %f",atom_getfloat(argv));
+	 SETFLOAT(a,atom_getfloat(argv));
+	 a++;
+	 c_out++;
+	 break;
+       case A_SYMBOL:
+	 //	 post("sym: %s",atom_getsymbol(argv)->s_name);
+	 SETSYMBOL(a,atom_getsymbol(argv));
+	 a++;
+	 c_out++;
+	 break;
+       default:
+	 post("split.c: unknown type");
+       }
+       argv++;
+     }
+     
+     outlet_anything(x->x_obj.ob_outlet,x->x_splitter,c_out,(t_atom*)&a_out);
+     //post("done");
+}
+
+static void *split_new(t_symbol* s)
+{
+    t_split *x = (t_split *)pd_new(split_class);
+    outlet_new(&x->x_obj, &s_float);
+    if (s != &s_)
+	 x->x_splitter = s;
+    else
+	 x->x_splitter = gensym("cxc_split");
+    return (x);
+}
+
+static void split_set(t_split *x, t_symbol *s)
+{
+  t_symbol *t;
+  // init temp splitter
+  char u[1]; u[0] = '\0';
+
+  if(strlen(s->s_name) > 1) {
+    // t = gensym((char*)s->s_name[0]);
+    // post("%d", s->s_name[0]);
+    strncat(u, s->s_name, 1);
+    t = gensym(u);
+  } else 
+    t = s;
+  x->x_splitter = t;
+}
+
+void cxc_split_setup(void)
+{
+    split_class = class_new(gensym("cxc_split"), (t_newmethod)split_new, 0,
+				sizeof(t_split), 0,A_DEFSYM,NULL);
+    // class_addlist(split_class, split_list);
+    class_addanything(split_class,split_anything);
+    class_addmethod(split_class, (t_method)split_set, gensym("set"), A_SYMBOL, 0);
+    class_addsymbol(split_class, split_symbol);
+}
-- 
cgit v1.2.1