diff options
Diffstat (limited to 'tcl_extras.h')
| -rw-r--r-- | tcl_extras.h | 38 |
1 files changed, 26 insertions, 12 deletions
diff --git a/tcl_extras.h b/tcl_extras.h index 16cc31c..e3546c6 100644 --- a/tcl_extras.h +++ b/tcl_extras.h @@ -1,28 +1,42 @@ #include "m_pd.h" #include <tcl.h> -typedef struct t_tcl { - t_object o; - Tcl_Obj *self; -} t_tcl; +/* PATH_MAX is not defined in limits.h on some platforms */ +#ifndef PATH_MAX +#define PATH_MAX 4096 +#endif -void poststring2 (const char* s); +typedef struct _t_tcl { + t_object o; + Tcl_Obj *self; +} t_tcl; -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); +/* tcl_wrap.cxx */ +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); +/* tcl_setup.cxx */ extern Tcl_Interp *tcl_for_pd; +extern "C" void tclpd_setup(void); -/* tcl loader */ +/* 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); +t_pd* 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); + +/* tcl_loader.cxx */ +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); 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); - |