[PD-cvs] externals/ggee/control getdir.c,NONE,1.1
Guenter Geiger
ggeiger at users.sourceforge.net
Thu Feb 24 16:22:00 CET 2005
Update of /cvsroot/pure-data/externals/ggee/control
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17390/control
Added Files:
getdir.c
Log Message:
added getdir and threw out g_canvas from places where it is not needed
--- NEW FILE: getdir.c ---
/* (C) 2005 Guenter Geiger */
#include "m_pd.h"
// HACK !!!
struct _glist
{
t_object gl_obj; /* header in case we're a glist */
t_gobj *gl_list; /* the actual data */
struct _gstub *gl_stub; /* safe pointer handler */
int gl_valid; /* incremented when pointers might be stale */
struct _glist *gl_owner; /* parent glist, supercanvas, or 0 if none */
};
// END HACK !!!
typedef struct getdir
{
t_object x_ob;
t_canvas * x_canvas;
t_outlet* x_outlet;
int x_level;
} t_getdir;
static void getdir_bang(t_getdir *x)
{
int i = x->x_level;
t_canvas* last = x->x_canvas;
do {
i--;
last = last->gl_owner;
} while (last && i);
outlet_symbol(x->x_outlet,canvas_getdir(last));
}
t_class *getdir_class;
static void *getdir_new(t_floatarg level)
{
t_getdir *x = (t_getdir *)pd_new(getdir_class);
x->x_canvas = canvas_getcurrent();
x->x_outlet = outlet_new(&x->x_ob, &s_);
x->x_level = level;
return (void *)x;
}
void getdir_setup(void)
{
getdir_class = class_new(gensym("getdir"), (t_newmethod)getdir_new, 0,
sizeof(t_getdir), 0, A_DEFFLOAT,0);
class_addbang(getdir_class, getdir_bang);
}
More information about the Pd-cvs
mailing list