From 76430a8935097f4cee5befd550d2dcc043774d19 Mon Sep 17 00:00:00 2001
From: jdl <x75@users.sourceforge.net>
Date: Wed, 26 Feb 2003 22:06:39 +0000
Subject: added split. split incoming symbol at delim

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

(limited to 'split.c')

diff --git a/split.c b/split.c
new file mode 100644
index 0000000..69b2ce0
--- /dev/null
+++ b/split.c
@@ -0,0 +1,166 @@
+#include <m_pd.h>
+#ifdef NT
+#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 ----------------------------- */
+
+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);
+}
+
+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 u[MAXPDSTRING]; char v[MAXPDSTRING];
+     u[0] = '\0';
+     v[0] = '\0';
+     int isnum = 1;
+
+     for(j=0; j<strlen(s->s_name); j++) {
+       u[0] = s->s_name[j];
+       if(u[0] == x->x_splitter->s_name[0]) {
+	 // post("found split: %d", v);
+	 post("found split: %d", (int)v);
+/* 	 if(isnum) */
+/* 	   SETFLOAT(a, (int)v); */
+/* 	 else */
+	   SETSYMBOL(a, gensym(v));
+	 a++; c_out++;
+	 // reset stuff
+	 v[0] = '\0';
+	 isnum = 1;
+       } else {
+	 if(!(48 <= u[0] <= 57)) {
+	   isnum = 0;
+	 }
+	 strncat(v, u, 1);
+       }
+     }
+     // post("found split: %s", v);
+     SETSYMBOL(a, gensym(v));
+     a++, c_out++;
+
+/* #if 1 */
+/*      //     post("sym: %s",s->s_name); */
+/*      SETSYMBOL(a,s); */
+/*      a++; */
+/*      c_out++; */
+/* #endif */
+
+/*      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_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);
+/*      //post("done"); */
+}
+
+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 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