diff options
Diffstat (limited to 'tcl_extras.h')
-rw-r--r-- | tcl_extras.h | 39 |
1 files changed, 22 insertions, 17 deletions
diff --git a/tcl_extras.h b/tcl_extras.h index 4ddb56e..8d61af8 100644 --- a/tcl_extras.h +++ b/tcl_extras.h @@ -8,20 +8,25 @@ typedef struct _t_tcl { t_object o; - Tcl_Obj *self; + Tcl_Obj* self; } t_tcl; typedef struct _t_proxyinlet { - t_pd pd; + t_object obj; + t_tcl* target; + t_symbol* sel; int argc; t_atom* argv; } t_proxyinlet; /* tcl_proxyinlet.cxx */ +extern t_class* proxyinlet_class; void proxyinlet_init(t_proxyinlet* x); void proxyinlet_clear(t_proxyinlet* x); void proxyinlet_list(t_proxyinlet* x, t_symbol* s, int argc, t_atom* argv); void proxyinlet_anything(t_proxyinlet* x, t_symbol* s, int argc, t_atom* argv); +void proxyinlet_trigger(t_proxyinlet* x); +t_atom* proxyinlet_get_atoms(t_proxyinlet* x); void proxyinlet_clone(t_proxyinlet* x, t_proxyinlet* y); void proxyinlet_setup(void); @@ -29,30 +34,30 @@ void proxyinlet_setup(void); extern "C" int Tclpd_SafeInit(Tcl_Interp *interp); /* tcl_typemap.cxx */ -int pd_to_tcl (t_atom* input, Tcl_Obj** output); -int tcl_to_pd (Tcl_Obj* input, t_atom* output); +int pd_to_tcl(t_atom* input, Tcl_Obj** output); +int tcl_to_pd(Tcl_Obj* input, t_atom* output); /* tcl_setup.cxx */ -extern Tcl_Interp *tcl_for_pd; +extern Tcl_Interp* tcl_for_pd; extern "C" void tclpd_setup(void); void tclpd_interp_error(int result); /* tcl_class.cxx */ -t_class* tclpd_class_new(char *name, int flags); -t_tcl* tclpd_new(t_symbol *classsym, int ac, t_atom *at); -void tclpd_free (t_tcl *self); -void tclpd_anything(t_tcl *self, t_symbol *s, int ac, t_atom *at); -void tclpd_add_proxyinlet(t_object* o, t_proxyinlet* i); -t_pd* tclpd_get_instance(const char* objectSequentialId); +t_class* tclpd_class_new(char* name, int flags); +t_tcl* tclpd_new(t_symbol* classsym, int ac, t_atom* at); +void tclpd_free (t_tcl* self); +void tclpd_anything(t_tcl* self, t_symbol* s, int ac, t_atom* at); +t_proxyinlet* tclpd_add_proxyinlet(t_tcl* x, t_symbol* s); +t_tcl* tclpd_get_instance(const char* objectSequentialId); t_object* tclpd_get_object(const char* objectSequentialId); t_pd* tclpd_get_object_pd(const char* objectSequentialId); -void poststring2 (const char *s); +void poststring2(const char* s); /* tcl_loader.cxx */ -extern "C" int tclpd_do_load_lib (t_canvas *canvas, char *objectname); +extern "C" int tclpd_do_load_lib(t_canvas* canvas, char* objectname); /* pd loader private stuff: */ -typedef int (*loader_t)(t_canvas *canvas, char *classname); +typedef int (*loader_t)(t_canvas *canvas, char* classname); extern "C" void sys_register_loader(loader_t loader); -extern "C" int sys_onloadlist(char *classname); -extern "C" void sys_putonloadlist(char *classname); -extern "C" void class_set_extern_dir(t_symbol *s); +extern "C" int sys_onloadlist(char* classname); +extern "C" void sys_putonloadlist(char* classname); +extern "C" void class_set_extern_dir(t_symbol* s); |