[Gridflow-cvs] [svn] commit: r6107 - in /trunk/src: classes3.cxx source_filter.rb

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Sun Aug 15 11:28:28 EDT 2010


Author: matju
Date: Sun Aug 15 11:28:26 2010
New Revision: 6107

Log:
fix new bug in [#pack] due to the introduction of insel()

Modified:
    trunk/src/classes3.cxx
    trunk/src/source_filter.rb

Modified: trunk/src/classes3.cxx
==============================================================================
--- trunk/src/classes3.cxx (original)
+++ trunk/src/classes3.cxx Sun Aug 15 11:28:26 2010
@@ -1242,13 +1242,13 @@
 		ninlets_set(this->n);
 	}
 	//\decl 0 cast (NumberTypeE nt) {a = new Grid(a->dim,nt);}
-	\decl void _n_set   (int inlet, float f) {
+	\decl n set   (int inlet, float f) {
 		#define FOO(T) ((T *)*a)[inlet] = T(f);
 		TYPESWITCH(a->nt,FOO,);
 		#undef FOO
 	}
-	\decl void _n_float (int inlet, float f) {_n_set(inlet,f); _0_bang();}
-	\decl void _n_list  (int inlet, float f) {_n_set(inlet,f); _0_bang();}
+	\decl n float (int inlet, float f) {_n_set(inlet,f); _0_bang();}
+	\decl n list  (int inlet, float f) {_n_set(inlet,f); _0_bang();}
 	\decl 0 bang () {
 		go=new GridOut(this,0,a->dim,a->nt);
 		#define FOO(T) go->send(n,(T *)*a);

Modified: trunk/src/source_filter.rb
==============================================================================
--- trunk/src/source_filter.rb (original)
+++ trunk/src/source_filter.rb Sun Aug 15 11:28:26 2010
@@ -77,7 +77,7 @@
 		raise "syntax error #{where} #{line}"
 	rettype,selector,args,continue = $1,$2,$3,$4,$6
 	if /^\d+$/ =~ rettype then inlet = rettype; rettype = "void"
-	elsif    rettype=="n" then inlet = -1 else inlet = -2 end
+	elsif    rettype=="n" then inlet = -1     ; rettype = "void" else inlet = -2 end
 	args,minargs,maxargs = parse_args args
 	MethodDecl.new(rettype,inlet,selector,args,minargs,maxargs,where,continue)
 end



More information about the Gridflow-cvs mailing list