aboutsummaryrefslogtreecommitdiff
path: root/tcl_extras.h
diff options
context:
space:
mode:
Diffstat (limited to 'tcl_extras.h')
-rw-r--r--tcl_extras.h109
1 files changed, 0 insertions, 109 deletions
diff --git a/tcl_extras.h b/tcl_extras.h
deleted file mode 100644
index f09a7ba..0000000
--- a/tcl_extras.h
+++ /dev/null
@@ -1,109 +0,0 @@
-#include "m_pd.h"
-//#include "m_imp.h"
-#include "g_canvas.h"
-//#include "s_stuff.h"
-
-#include <tcl.h>
-
-/* PATH_MAX is not defined in limits.h on some platforms */
-#ifndef PATH_MAX
-#define PATH_MAX 4096
-#endif
-
-#define TCLPD_VERSION "0.2.3"
-
-#define InitArray(name, size, value) for(int zz=0; zz<(size); zz++) name[zz]=value
-
-typedef struct _t_tcl {
- t_object o;
- int ninlets;
- t_glist* x_glist;
-
- char *source_file;
-
- // Tcl-interpreter related objects:
- Tcl_Obj* self;
- Tcl_Obj* classname;
- Tcl_Obj* dispatcher;
-} t_tcl;
-
-typedef struct _t_proxyinlet {
- t_object obj;
- t_tcl* target;
- int ninlet;
- t_symbol* sel;
- int argc;
- t_atom* argv;
-} t_proxyinlet;
-
-/* tcl_proxyinlet.c */
-extern t_class* proxyinlet_class;
-void proxyinlet_init(t_proxyinlet* x);
-void proxyinlet_clear(t_proxyinlet* x);
-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);
-
-/* tcl_wrap.c */
-extern int Tclpd_SafeInit(Tcl_Interp *interp);
-
-/* tcl_typemap.c */
-int tcl_to_pdatom(Tcl_Obj *input, t_atom *output);
-int tcl_to_pdsymbol(Tcl_Obj *input, t_symbol **output);
-const char* pdatom_type_string(t_atom* a);
-const char* pdatom_symbol_value(t_atom* a);
-float pdatom_float_value(t_atom* a);
-int pdatom_to_tcl(t_atom *input, Tcl_Obj **output);
-int pdsymbol_to_tcl(t_symbol *input, Tcl_Obj **output);
-
-/* tclpd.c */
-extern Tcl_Interp* tcl_for_pd;
-extern void tclpd_setup(void);
-void tclpd_interp_error(t_tcl* x, int result);
-
-/* tcl_class.c */
-t_class* tclpd_class_new(const char* name, int flags);
-t_class* tclpd_guiclass_new(const 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_inlet_anything(t_tcl *self, int inlet, t_symbol *s, int ac, t_atom *at);
-void tclpd_loadbang(t_tcl* x);
-void tclpd_open(t_tcl* x);
-t_proxyinlet* tclpd_add_proxyinlet(t_tcl* x);
-t_tcl* tclpd_get_instance(const char* objectSequentialId);
-t_pd* tclpd_get_instance_pd(const char* objectSequentialId);
-t_text* tclpd_get_instance_text(const char* objectSequentialId);
-t_object* tclpd_get_object(const char* objectSequentialId);
-t_pd* tclpd_get_object_pd(const char* objectSequentialId);
-t_binbuf* tclpd_get_object_binbuf(const char* objectSequentialId);
-t_glist* tclpd_get_glist(const char* objectSequentialId);
-t_atom* tclpd_binbuf_get_atom(t_binbuf* b, int n);
-t_symbol* null_symbol();
-void poststring2(const char* s);
-extern void text_save(t_gobj *z, t_binbuf *b);
-void tclpd_save(t_gobj* z, t_binbuf* b);
-void tclpd_properties(t_gobj* z, t_glist* owner);
-void tclpd_class_namespace_init(const char* classname);
-
-/* tcl_widgetbehavior.c */
-void tclpd_guiclass_getrect(t_gobj* z, t_glist* owner, int* xp1, int* yp1, int* xp2, int* yp2);
-void tclpd_guiclass_displace(t_gobj* z, t_glist* glist, int dx, int dy);
-void tclpd_guiclass_select(t_gobj* z, t_glist* glist, int selected);
-void tclpd_guiclass_activate(t_gobj* z, t_glist* glist, int state);
-void tclpd_guiclass_delete(t_gobj* z, t_glist* glist);
-void tclpd_guiclass_vis(t_gobj* z, t_glist* glist, int vis);
-int tclpd_guiclass_click(t_gobj* z, t_glist* glist, int xpix, int ypix, int shift, int alt, int dbl, int doit);
-void tclpd_guiclass_motion(t_tcl* x, t_floatarg dx, t_floatarg dy);
-void tclpd_guiclass_grab(t_tcl* x, t_glist* glist, int xpix, int ypix);
-
-/* tcl_loader.c */
-extern int tclpd_do_load_lib(t_canvas* canvas, char* objectname);
-/* pd loader private stuff: */
-typedef int (*loader_t)(t_canvas *canvas, char* classname);
-extern void sys_register_loader(loader_t loader);
-extern int sys_onloadlist(char* classname);
-extern void sys_putonloadlist(char* classname);
-extern void class_set_extern_dir(t_symbol* s);