aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2003-06-18 13:52:49 +0000
committerIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2003-06-18 13:52:49 +0000
commit730ca1c8b36145dbb80f28e4c72642bafdb66995 (patch)
treebc47a87407c0cece246c7f27f05cc759f427194f /src
parentae6bfc884b96cae7015844543cb6814006303467 (diff)
added "symbol2list"
svn path=/trunk/externals/zexy/; revision=705
Diffstat (limited to 'src')
-rw-r--r--src/z_strings.c138
1 files changed, 136 insertions, 2 deletions
diff --git a/src/z_strings.c b/src/z_strings.c
index d540248..1f99695 100644
--- a/src/z_strings.c
+++ b/src/z_strings.c
@@ -1,8 +1,8 @@
#include "zexy.h"
#include <stdlib.h>
-
-#ifdef NT
#include <string.h>
+
+#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#define sqrtf sqrt
@@ -11,6 +11,8 @@
/*
* atoi : ascii to integer
* strcmp : compare 2 lists as if they were strings
+ * list2symbol: convert a list into a single symbol
+ * symbol2list: vice versa
*/
/* atoi :: ascii to integer */
@@ -307,12 +309,144 @@ static void list2symbol_setup(void)
class_sethelpsymbol(list2symbol_class, gensym("zexy/list2symbol"));
}
+/* ------------------------- symbol2list ------------------------------- */
+
+static t_class *symbol2list_class;
+
+typedef struct _symbol2list
+{
+ t_object x_obj;
+ t_symbol *s, *delimiter;
+ t_atom *argv;
+ int argc, argnum; /* "argnum" is the number of reserved atoms (might be >argc) */
+} t_symbol2list;
+
+static void symbol2list_delimiter(t_symbol2list *x, t_symbol *s){
+ x->delimiter = s;
+}
+static inline void string2atom(t_atom *ap, char* cp, int clen){
+ char *buffer=getbytes(sizeof(char)*(clen+1));
+ char *endptr[1];
+ t_float ftest;
+ strncpy(buffer, cp, clen);
+ buffer[clen]=0;
+ // post("converting buffer '%s' %d", buffer, clen);
+ ftest=strtod(buffer, endptr);
+ if (*endptr == buffer){
+ /* strtof() failed, we have a symbol */
+ SETSYMBOL(ap, gensym(buffer));
+ } else {
+ /* it is a number. */
+ SETFLOAT(ap,ftest);
+ }
+ freebytes(buffer, sizeof(char)*(clen+1));
+}
+static void symbol2list_process(t_symbol2list *x)
+{
+ char *cc;
+ char *deli;
+ int dell;
+ char *cp, *d;
+ int i=1;
+
+ if (x->s==NULL){
+ x->argc=0;
+ return;
+ }
+ cc=x->s->s_name;
+ cp=cc;
+
+ if (x->delimiter==NULL || x->delimiter==&s_){
+ i=strlen(cc);
+ if(x->argnum<i){
+ freebytes(x->argv, x->argnum*sizeof(t_atom));
+ x->argnum=i+10;
+ x->argv=getbytes(x->argnum*sizeof(t_atom));
+ }
+ x->argc=i;
+ while(i--)string2atom(x->argv+i, cc+i, 1);
+ return;
+ }
+
+ deli=x->delimiter->s_name;
+ dell=strlen(deli);
+
+ /* get the number of tokens */
+ while((d=strstr(cp, deli))){
+ if (d!=NULL && d!=cp)i++;
+ cp=d+dell;
+ }
+
+ /* resize the list-buffer if necessary */
+ if(x->argnum<i){
+ freebytes(x->argv, x->argnum*sizeof(t_atom));
+ x->argnum=i+10;
+ x->argv=getbytes(x->argnum*sizeof(t_atom));
+ }
+ x->argc=i;
+ /* parse the tokens into the list-buffer */
+ i=0;
+
+ /* find the first token */
+ cp=cc;
+ while(cp==(d=strstr(cp,deli))){cp+=dell;}
+ while((d=strstr(cp, deli))){
+ if(d!=cp){
+ string2atom(x->argv+i, cp, d-cp);
+ i++;
+ }
+ cp=d+dell;
+ }
+
+ if(cp)string2atom(x->argv+i, cp, strlen(cp));
+}
+static void symbol2list_bang(t_symbol2list *x){
+ symbol2list_process(x);
+ if(x->argc)outlet_list(x->x_obj.ob_outlet, 0, x->argc, x->argv);
+}
+static void symbol2list_symbol(t_symbol2list *x, t_symbol *s){
+ x->s = s;
+ symbol2list_bang(x);
+}
+static void *symbol2list_new(t_symbol *s, int argc, t_atom *argv)
+{
+ t_symbol2list *x = (t_symbol2list *)pd_new(symbol2list_class);
+
+ outlet_new(&x->x_obj, 0);
+ inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("symbol"), gensym(""));
+
+ x->argc=0;
+ x->argnum=16;
+ x->argv=getbytes(x->argnum*sizeof(t_atom));
+ symbol2list_delimiter(x, (argc)?atom_getsymbol(argv):gensym(" "));
+
+ return (x);
+}
+
+static void symbol2list_free(t_symbol2list *x)
+{
+}
+
+
+static void symbol2list_setup(void)
+{
+ symbol2list_class = class_new(gensym("symbol2list"), (t_newmethod)symbol2list_new,
+ (t_method)symbol2list_free, sizeof(t_symbol2list), 0, A_GIMME, 0);
+
+ class_addcreator((t_newmethod)symbol2list_new, gensym("s2l"), A_GIMME, 0);
+ class_addsymbol (symbol2list_class, symbol2list_symbol);
+ class_addbang (symbol2list_class, symbol2list_bang);
+ class_addmethod (symbol2list_class, (t_method)symbol2list_delimiter, gensym(""), A_SYMBOL, 0);
+
+ class_sethelpsymbol(symbol2list_class, gensym("zexy/symbol2list"));
+}
/* global setup routine */
void z_strings_setup(void)
{
atoi_setup();
strcmp_setup();
+ symbol2list_setup();
list2symbol_setup();
}