[Gridflow-cvs] [svn] commit: r3908 - /trunk/gridflow.c

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Wed Jun 18 23:12:20 EDT 2008


Author: matju
Date: Wed Jun 18 23:12:19 2008
New Revision: 3908

Log:
allow symbols made only of whitespace (in all of gridflow)

Modified:
    trunk/gridflow.c

Modified: trunk/gridflow.c
==============================================================================
--- trunk/gridflow.c (original)
+++ trunk/gridflow.c Wed Jun 18 23:12:19 2008
@@ -754,7 +754,14 @@
 			while (se>s && se[-1]==')') {se--; close++;}
 			if (s!=se) {
 				binbuf_text(buf,(char *)s,se-s);
-				av[j++] = binbuf_getvec(buf)[0];
+				if (binbuf_getnatom(buf)) {
+					av[j++] = binbuf_getvec(buf)[0];
+				} else {
+					char ss[MAXPDSTRING];
+					int n = min(se-s,MAXPDSTRING-1);
+					sprintf(ss,"%.*s",n,s);
+					SETSYMBOL(av+j,gensym(s)); j++; // av[j++] = gensym(s);
+				}
 			}
 		} else av[j++]=av[i];
 		i++;



More information about the Gridflow-cvs mailing list