This commit was generated by cvs2svn to compensate for changes in r186,

which included commits to RCS files with non-trunk default branches.

svn path=/trunk/; revision=187

1 files changed, 104 insertions, 0 deletions

diff --git a/externals/grill/flext/tutorial/adv1/main.cpp b/externals/grill/flext/tutorial/adv1/main.cpp
new file mode 100755
index 00000000..f59ebddd
--- /dev/null
+++ b/externals/grill/flext/tutorial/adv1/main.cpp
@@ -0,0 +1,104 @@
+/* 
+flext tutorial - advanced 1
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+-------------------------------------------------------------------------
+
+This is an example of a simplified prepend object
+*/
+
+#include <flext.h>
+
+#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 400)
+#error You need at least flext version 0.4.0
+#endif
+
+
+class adv1:
+	public flext_base
+{
+	FLEXT_HEADER(adv1,flext_base)
+ 
+public:
+	// constructor with variable argument list
+	adv1(int argc,t_atom *argv);
+
+protected:
+	void m_any(const t_symbol *s,int argc,t_atom *argv);  // method which digests anything
+
+	AtomList lst;
+private:
+	FLEXT_CALLBACK_A(m_any);  // callback for method "m_any" (with anything argument)	
+};
+
+// instantiate the class (constructor has a variable argument list)
+// note the two words in the string: prepend acts as an alias for adv1!
+FLEXT_NEW_V("adv1 prepend",adv1)
+
+
+
+// constructor
+
+adv1::adv1(int argc,t_atom *argv)
+{ 
+	AddInAnything();  // one inlet that can receive anything 
+	AddOutAnything();  // one outlet for anything 
+	
+	 // set up inlets and outlets
+	SetupInOut(); 
+
+	// register method
+	FLEXT_ADDMETHOD(0,m_any);  // register method "m_any" for inlet 0
+	
+	if(argc != 0) { // check for arg count
+		// store arg list
+		lst(argc,argv);
+	}
+	else { 
+		// no args given
+		post("%s - no arguments given",thisName());
+		
+		// tell flext that the initialization was not successful... object will not live
+		InitProblem();
+	}
+} 
+
+
+
+// method
+
+void adv1::m_any(const t_symbol *s,int argc,t_atom *argv)
+{
+	// reserve space for as many atoms as possibly necessary
+	AtomList result(lst.Count()+argc+2);
+
+	// ix is our counter of atoms to output
+	int ix = 0; 
+
+	int i = 0;
+	if(!IsSymbol(lst[0])) {
+		// if first element to prepend is no symbol then make it a "list"
+		SetSymbol(result[ix++],sym_list);
+	}
+	// copy atoms to prepend to result list
+	for(; i < lst.Count(); ++i) CopyAtom(&result[ix++],&lst[i]);
+
+	// if anything is no "list" or "float" then append it to result list
+	if(s != sym_list && s != sym_float
+#ifdef MAXMSP
+		 && s != sym_int  // in Max integers are system data types
+#endif
+	)
+		SetSymbol(result[ix++],s); 
+
+	// append pending arguments to result list
+	for(i = 0; i < argc; ++i) CopyAtom(&result[ix++],argv+i);
+
+	// output result list as an anything
+	ToOutAnything(0,GetSymbol(result[0]),ix-1,result.Atoms()+1);
+}
+
+