[Gridflow-cvs] [svn] commit: r6015 - /trunk/src/classes2.cxx

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Tue Aug 10 17:43:12 EDT 2010


Author: matju
Date: Tue Aug 10 17:43:10 2010
New Revision: 6015

Log:
add [gf/l2s] [gf/sys_gui] [gf/wrap]

Modified:
    trunk/src/classes2.cxx

Modified: trunk/src/classes2.cxx
==============================================================================
--- trunk/src/classes2.cxx (original)
+++ trunk/src/classes2.cxx Tue Aug 10 17:43:10 2010
@@ -1230,6 +1230,33 @@
 };
 \end class {install("gf/find_file",1,2);}
 
+string join (int argc, t_atom *argv, string sep, string term) {
+	std::ostringstream os;
+	for (int i=0; i<argc; i++) {
+		os << argv[i];
+		os << (i==argc-1 ? term : sep);
+	}
+	return os.str();
+}
+
+\class GFL2S : FObject {
+	\constructor () {}
+	\decl 0 list (...) {outlet_symbol(outlets[0],gensym(join(argc,argv," ","").data()));}
+};
+\end class {install("gf/l2s",1,1);}
+
+\class GFSysGui : FObject {
+	\constructor () {}
+	\decl 0 list (...) {sys_gui(join(argc,argv," ","\n").data());}
+};
+\end class {install("gf/sys_gui",1,0);}
+
+\class GFWrap : FObject {
+	\constructor () {}
+	\decl 0 float (float f) {outlet_float(outlets[0],f-floor(f));}
+};
+\end class {install("gf/wrap",1,1);}
+
 /* hack because hexloader is a myth */
 \class InvTimes : FObject {
 	float b;



More information about the Gridflow-cvs mailing list