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

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Fri May 2 12:16:35 EDT 2008


Author: matju
Date: Fri May  2 12:16:33 2008
New Revision: 3689

Log:
lackwards compatibility with 0.39

Modified:
    trunk/base/flow_objects.c

Modified: trunk/base/flow_objects.c
==============================================================================
--- trunk/base/flow_objects.c (original)
+++ trunk/base/flow_objects.c Fri May  2 12:16:33 2008
@@ -2821,6 +2821,21 @@
 \def 1 float(int i) {index = mod(i,n);}
 \end class {install("shunt",2,0); add_creator("demux");}
 
+\class Send39 : FObject {
+	\attr t_symbol *dest;
+	\constructor (t_symbol *dest) {
+		char buf[MAXPDSTRING];
+		sprintf(buf,"pd-%s",dest->s_name);
+		this->dest = gensym(buf);
+	}
+	\decl void anything (...);
+};
+\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);
+}
+\end class {install("send39",1,0);}
+
 //****************************************************************
 //#ifdef UNISTD
 #include <sys/types.h>



More information about the Gridflow-cvs mailing list