[Gridflow-cvs] [svn] commit: r6141 - in /trunk/src: classes2.cxx classes3.cxx

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Sun Aug 15 20:17:19 EDT 2010


Author: matju
Date: Sun Aug 15 20:17:18 2010
New Revision: 6141

Log:
use new shortcuts (involving default methods)

Modified:
    trunk/src/classes2.cxx
    trunk/src/classes3.cxx

Modified: trunk/src/classes2.cxx
==============================================================================
--- trunk/src/classes2.cxx (original)
+++ trunk/src/classes2.cxx Sun Aug 15 20:17:18 2010
@@ -255,7 +255,6 @@
 		out[0](contents.size(),&contents[0]);
 		contents.clear();
 	}
-	\decl 0 bang () {out[0]();} // really should change gridflow.cxx soon because this is getting annoying.
 };
 \end class {install("listflatten",1,1);}
 
@@ -1098,17 +1097,13 @@
 	float b;
 	\constructor (float b=1) {this->b=b;}
 	\decl 0 float (float a)          {           out[0](b-a);}
-	\decl 0 list  (float a, float b) {this->b=b; out[0](b-a);}
-	\decl 1 float (float b) {this->b=b;} //!
-	\decl 1 list  (float b) {this->b=b;}};
+	\decl 1 float (float b) {this->b=b;}};
 \end class {install("inv+",2,1); class_sethelpsymbol(fclass->bfclass,gensym("inv0x2b"));}
 \class InvTimes : FObject {
 	float b;
 	\constructor (float b=1) {this->b=b;}
 	\decl 0 float (float a)          {           out[0](b/a);}
-	\decl 0 list  (float a, float b) {this->b=b; out[0](b/a);}
-	\decl 1 float (float b) {this->b=b;} //!
-	\decl 1 list  (float b) {this->b=b;}};
+	\decl 1 float (float b) {this->b=b;}};
 \end class {install("inv*",2,1); class_sethelpsymbol(fclass->bfclass,gensym("inv0x2a"));}
 
 extern t_symbol *gridflow_folder; 

Modified: trunk/src/classes3.cxx
==============================================================================
--- trunk/src/classes3.cxx (original)
+++ trunk/src/classes3.cxx Sun Aug 15 20:17:18 2010
@@ -1243,25 +1243,18 @@
 	}
 	//\decl 0 cast (NumberTypeE nt) {a = new Grid(a->dim,nt);}
 	\decl n set   (int inlet, float f) {
+		if (inlet>=n) RAISE("what???");
 		#define FOO(T) ((T *)*a)[inlet] = T(f);
 		TYPESWITCH(a->nt,FOO,);
 		#undef FOO
 	}
 	\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);
 		TYPESWITCH(a->nt,FOO,);
 		#undef FOO
 	}
-	\decl 0 list (...) {
-		//post("YOUHOU, de %s", short_backtrace(0,4));
-		if (argc>n) argc=n;
-		for (int i=0; i<argc; i++) _n_set(i,argv[i]);
-		_0_bang();
-	}
-	//\grin 0
 };
 \end class {install("#pack",1,1); add_creator("@pack");}
 



More information about the Gridflow-cvs mailing list