From f3e255ddca6468b6adea0f10f30540c37cdde9ad Mon Sep 17 00:00:00 2001 From: "N.N." Date: Tue, 18 Sep 2007 17:19:03 +0000 Subject: first commit for tclpd external svn path=/trunk/externals/tclpd/; revision=8736 --- tcl_extras.h | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 tcl_extras.h (limited to 'tcl_extras.h') diff --git a/tcl_extras.h b/tcl_extras.h new file mode 100644 index 0000000..16cc31c --- /dev/null +++ b/tcl_extras.h @@ -0,0 +1,28 @@ +#include "m_pd.h" +#include + +typedef struct t_tcl { + t_object o; + Tcl_Obj *self; +} t_tcl; + +void poststring2 (const char* s); + +t_class* tclpd_class_new (char* name, int flags); +t_pd* tclpd_get_instance (const char* cereal); +t_object* tclpd_get_object (const char* cereal); +t_pd* tclpd_get_object_pd (const char* cereal); + +int pd_to_tcl (t_atom* input, Tcl_Obj** output); +int tcl_to_pd (Tcl_Obj* input, t_atom* output); + +extern Tcl_Interp *tcl_for_pd; + +/* tcl loader */ +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 tclpd_do_load_lib (t_canvas *canvas, char *objectname); + -- cgit v1.2.1