Revision: 10286 http://pure-data.svn.sourceforge.net/pure-data/?rev=10286&view=rev Author: zmoelnig Date: 2008-09-15 17:23:48 +0000 (Mon, 15 Sep 2008)
Log Message: ----------- added a class to test for the existance of other classes
Added Paths: ----------- trunk/externals/iem/iemguts/src/classtest.c
Added: trunk/externals/iem/iemguts/src/classtest.c =================================================================== --- trunk/externals/iem/iemguts/src/classtest.c (rev 0) +++ trunk/externals/iem/iemguts/src/classtest.c 2008-09-15 17:23:48 UTC (rev 10286) @@ -0,0 +1,72 @@ + +/****************************************************** + * + * classtest - implementation file + * + * copyleft (c) IOhannes m zm\xF6lnig + * + * 2007:forum::f\xFCr::uml\xE4ute:2007 + * + * institute of electronic music and acoustics (iem) + * + ****************************************************** + * + * license: GNU General Public License v.2 + * + ******************************************************/ + + +/* + * this object provides a way to send messages to upstream canvases + * by default it sends messages to the containing canvas, but you can give the + * "depth" as argument; + * e.g. [classtest 1] will send messages to the parent of the containing canvas + */ + +#include "m_pd.h" +#include "g_canvas.h" + +int glist_getindex(t_glist *x, t_gobj *y); + +/* ------------------------- classtest ---------------------------- */ + +static t_class *classtest_class; + +typedef struct _classtest +{ + t_object x_obj; + t_outlet *x_out; +} t_classtest; + +static void classtest_symbol(t_classtest *x, t_symbol*s) +{ + t_float result=0.; + if(0!=zgetfn(&pd_objectmaker, s)) + result=1.; + + outlet_float(x->x_out, result); + + + +} + +static void classtest_free(t_classtest *x) +{ + outlet_free(x->x_out); +} + +static void *classtest_new(t_floatarg f) +{ + t_classtest *x = (t_classtest *)pd_new(classtest_class); + + x->x_out = outlet_new(&x->x_obj, &s_float); + return (x); +} + +void classtest_setup(void) +{ + classtest_class = class_new(gensym("classtest"), (t_newmethod)classtest_new, + (t_method)classtest_free, sizeof(t_classtest), 0, + 0); + class_addsymbol(classtest_class, (t_method)classtest_symbol); +}
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.