1 files changed, 158 insertions, 0 deletions
diff --git a/externals/grill/delsplit/main.cpp b/externals/grill/delsplit/main.cpp
new file mode 100755
index 00000000..17e30bc3
--- /dev/null
+++ b/externals/grill/delsplit/main.cpp
@@ -0,0 +1,158 @@
+/* 
+
+delsplit - split a delimited list-in-a-symbol
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include <flext.h>
+
+#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 400)
+#error You need at least flext version 0.4.0 
+#endif
+
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <ctype.h>
+
+#define I int
+#define L long
+#define F float
+#define D double
+#define V void
+#define C char
+#define BL bool
+
+#define VERSION "0.1.1"
+
+#ifdef __MWERKS__
+#define STD std
+#else
+#define STD 
+#endif
+
+
+class delsplit:
+	public flext_base
+{
+	FLEXT_HEADER(delsplit,flext_base)
+
+public:
+	delsplit(I argc,const t_atom *argv);
+
+protected:
+	V m_list(const t_symbol *s);
+	V m_del(const t_symbol *s);
+	
+	const t_symbol *delim;
+	
+	virtual void m_help();
+	virtual void m_assist(long /*msg*/,long /*arg*/,char * /*s*/);
+		
+	static V SetAtom(t_atom &l,const C *s);
+private:
+	FLEXT_CALLBACK_S(m_list)
+	FLEXT_CALLBACK_S(m_del)
+};
+
+FLEXT_NEW_V("delsplit",delsplit)
+
+
+delsplit::delsplit(I argc,const t_atom *argv):
+	delim(NULL)
+{ 
+	AddInAnything();
+	AddInSymbol();
+	AddOutList();
+
+	FLEXT_ADDMETHOD(0,m_list);
+	FLEXT_ADDMETHOD(1,m_del);
+
+	if(argc && IsSymbol(argv[0])) delim = GetSymbol(argv[0]);
+}
+
+V delsplit::m_help()
+{
+	post("%s version " VERSION " (using flext " FLEXT_VERSTR "), (C) 2002 Thomas Grill",thisName());
+}
+
+V delsplit::m_assist(long msg,long arg,char *s)
+{
+	switch(msg) {
+	case 1: //ASSIST_INLET:
+		switch(arg) {
+		case 0:
+			STD::sprintf(s,"Symbol in, representing the delimited list"); break;
+		case 1:
+			STD::sprintf(s,"Set the Delimiter"); break;
+		}
+		break;
+	case 2: //ASSIST_OUTLET:
+		switch(arg) {
+		case 0:
+			STD::sprintf(s,"The split list"); break;
+		}
+		break;
+	}
+}
+	
+/** \brief check whether string represents a number
+	\ret 0..integer, 1..float, -1..no number
+*/
+static I chknum(const C *s)
+{
+	int num = 0,pts = 0;
+	for(const char *si = s; *s; ++s) {
+		if(*s == '.') ++pts;
+		else if(isdigit(*s)) ++num;
+		else { num = 0; break; }
+	}
+	return (num > 0 && pts <= 1)?pts:-1;
+}
+
+V delsplit::SetAtom(t_atom &l,const C *s)
+{
+	I n = chknum(s);
+
+	if(n < 0)
+		SetString(l,s);
+	else if(n == 0)
+		SetInt(l,atoi(s));
+	else
+		SetFloat(l,(F)atof(s));
+}
+
+V delsplit::m_list(const t_symbol *sym)
+{
+	t_atom lst[256];
+	int cnt = 0;
+	const C *sdel = GetString(delim);
+	I ldel = strlen(sdel);
+	C str[1024];
+	strcpy(str,GetString(sym));
+	
+	for(const char *s = str; *s; ) {
+		C *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);
+}
+
+V delsplit::m_del(const t_symbol *s)
+{
+	delim = s;
+}
+