[Gridflow-cvs] [svn] commit: r4188 - /trunk/base/flow_objects.c

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Tue Jun 2 19:13:24 EDT 2009


Author: matju
Date: Tue Jun  2 19:13:23 2009
New Revision: 4188

Log:
handle A_DOLLAR and A_DOLLSYM in some string conversions, instead of showing \a(42 0xdeadbeef)

Modified:
    trunk/base/flow_objects.c

Modified: trunk/base/flow_objects.c
==============================================================================
--- trunk/base/flow_objects.c (original)
+++ trunk/base/flow_objects.c Tue Jun  2 19:13:23 2009
@@ -2511,9 +2511,11 @@
 	switch (a.a_type) {
 		case A_FLOAT:   self << a.a_float; break;
 		case A_SYMBOL:  self << a.a_symbol->s_name; break; // i would rather show backslashes here...
+		case A_DOLLSYM: self << a.a_symbol->s_name; break; // for real, it's the same thing as A_SYMBOL in pd >= 0.40
 		case A_POINTER: self << "\\p(0x" << std::hex << a.a_gpointer << std::dec << ")"; break;
 		case A_COMMA:   self << ","; break;
 		case A_SEMI:    self << ";"; break;
+		case A_DOLLAR:  self << "$" << a.a_w.w_index; break;
 		case A_LIST: {
 			t_list *b = (t_list *)a.a_gpointer;
 			int argc = binbuf_getnatom(b);
@@ -2960,7 +2962,8 @@
 };
 \def void anything(...) {
 	t_symbol *sel = gensym(argv[0].a_symbol->s_name+3);
-	pd_typedmess(this->dest->s_thing,sel,argc-1,argv+1);
+	if (this->dest->s_thing) pd_typedmess(this->dest->s_thing,sel,argc-1,argv+1);
+	else RAISE("send-symbol %s does not exist",this->dest->s_name);
 }
 \end class {install("send39",1,0);}
 



More information about the Gridflow-cvs mailing list