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

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Sun Nov 8 12:48:15 EST 2009


Author: matju
Date: Sun Nov  8 12:48:14 2009
New Revision: 4780

Log:
added [gf/getpid]

Modified:
    trunk/src/classes2.cxx

Modified: trunk/src/classes2.cxx
==============================================================================
--- trunk/src/classes2.cxx (original)
+++ trunk/src/classes2.cxx Sun Nov  8 12:48:14 2009
@@ -1181,6 +1181,16 @@
 \def 1 symbol (t_symbol *than) {this->than=than;}
 \end class {install("gf/string_<",2,1);}
 
+\class GFGetPid : FObject {
+	\constructor () {}
+	\decl 0 bang ();
+};
+\def 0 bang () {
+	outlet_float(outlets[1],getppid());
+	outlet_float(outlets[0],getpid());
+}
+\end class {install("gf/getpid",1,2);}
+
 void startup_flow_objects2 () {
 	\startall
 }



More information about the Gridflow-cvs mailing list