From f7d18274748d3c377e8c75096dce33aadafe3402 Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Thu, 3 Nov 2005 20:36:57 +0000
Subject: updated for any messages to be processed (not only symbols) rename
 help file more fixes

svn path=/trunk/; revision=3830
---
 externals/grill/delsplit/delsplit-help.pd | 11 ++++--
 externals/grill/delsplit/main.cpp         | 57 ++++++++++++++++++++-----------
 2 files changed, 46 insertions(+), 22 deletions(-)

(limited to 'externals/grill/delsplit')

diff --git a/externals/grill/delsplit/delsplit-help.pd b/externals/grill/delsplit/delsplit-help.pd
index 3ed32b9e..2f641921 100644
--- a/externals/grill/delsplit/delsplit-help.pd
+++ b/externals/grill/delsplit/delsplit-help.pd
@@ -1,13 +1,16 @@
-#N canvas 300 90 458 286 12;
+#N canvas 300 90 462 290 12;
 #X msg 264 133 symbol -;
 #X msg 232 57 list;
 #X msg 242 84 list +;
 #X obj 105 229 print;
-#X obj 43 69 tosymbol;
-#X msg 42 42 ask+asd-ssds;
+#X obj 39 78 tosymbol;
+#X msg 29 22 ask+asd-ssds;
 #X symbolatom 251 111 10 0 0 0 - - -;
 #X obj 105 203 delsplit;
 #X text 273 54 space;
+#X msg 31 152 a-b c+d e-f+g;
+#X msg 58 47 a b c+d e-f+g;
+#X text 29 130 any messages will work;
 #X connect 0 0 7 1;
 #X connect 1 0 7 1;
 #X connect 2 0 7 1;
@@ -15,3 +18,5 @@
 #X connect 5 0 4 0;
 #X connect 6 0 7 1;
 #X connect 7 0 3 0;
+#X connect 9 0 7 0;
+#X connect 10 0 4 0;
diff --git a/externals/grill/delsplit/main.cpp b/externals/grill/delsplit/main.cpp
index bf65a6b7..3c718afb 100755
--- a/externals/grill/delsplit/main.cpp
+++ b/externals/grill/delsplit/main.cpp
@@ -22,7 +22,7 @@ WARRANTIES, see the file, "license.txt," in this distribution.
 #include <ctype.h>
 
 
-#define VERSION "0.1.4"
+#define VERSION "0.1.5"
 
 #ifdef __MWERKS__
 #define STD std
@@ -40,7 +40,7 @@ public:
 	delsplit(int argc,const t_atom *argv);
 
 protected:
-	void m_list(const t_symbol *s);
+	void m_any(const t_symbol *s,int argc,const t_atom *argv);
     void m_del(const t_symbol *s,int argc,const t_atom *argv);	
 	
 	const t_symbol *delim;
@@ -51,7 +51,7 @@ private:
 
 	static const t_symbol *sym__space;
 	
-	FLEXT_CALLBACK_S(m_list)
+	FLEXT_CALLBACK_A(m_any)
 	FLEXT_CALLBACK_A(m_del)
     FLEXT_ATTRVAR_S(delim)
 };
@@ -65,7 +65,7 @@ void delsplit::Setup(t_classid c)
 {
     sym__space = MakeSymbol(" ");
 
-	FLEXT_CADDMETHOD(c,0,m_list);
+	FLEXT_CADDMETHOD(c,0,m_any);
 	FLEXT_CADDMETHOD(c,1,m_del);
 	FLEXT_CADDATTR_VAR1(c,"del",delim);
 }
@@ -127,7 +127,7 @@ void delsplit::SetAtom(t_atom &l,const char *s)
 		SetFloat(l,(float)atof(s));
 }
 
-void delsplit::m_list(const t_symbol *sym)
+void delsplit::m_any(const t_symbol *sym,int argc,const t_atom *argv)
 {
     FLEXT_ASSERT(delim);
     
@@ -135,21 +135,40 @@ void delsplit::m_list(const t_symbol *sym)
 	int cnt = 0;
 	const char *sdel = GetString(delim);
 	int ldel = strlen(sdel);
-	char str[1024];
-	strcpy(str,GetString(sym));
-	
-	for(const char *s = str; *s; ) {
-		char *e = strstr(s,sdel);
-		if(!e) {
-			SetAtom(lst[cnt++],s);
-			break;
-		}
-		else {
-			*e = 0;
-			SetAtom(lst[cnt++],s);
-			s = e+ldel;
+
+    for(int i = -1; i < argc; ++i) {
+        char str[1024];
+        if(i < 0) {
+			if(
+				sym != sym_list && sym != sym_float && sym != sym_symbol && sym != sym_bang
+#if FLEXT_SYS == FLEXT_SYS_MAX
+				&& sym != sym_int
+#endif
+			)
+	        	strcpy(str,GetString(sym));
+			else
+				str[0] = 0;
 		}
-	}
+        else if(IsString(argv[i]))
+	        strcpy(str,GetString(argv[i]));
+        else if(CanbeFloat(argv[i]))
+            sprintf(str,"%e",GetAFloat(argv[i]));
+        else
+            str[0] = 0;
+    	
+	    for(const char *s = str; *s; ) {
+		    char *e = strstr(s,sdel);
+		    if(!e) {
+			    SetAtom(lst[cnt++],s);
+			    break;
+		    }
+		    else {
+			    *e = 0;
+			    SetAtom(lst[cnt++],s);
+			    s = e+ldel;
+		    }
+	    }
+    }
 	
 	ToOutList(0,cnt,lst);
 }
-- 
cgit v1.2.1