0.3.0 - typemaps support complete

svn path=/trunk/externals/loaders/tclpd/; revision=15738

1 files changed, 121 insertions, 0 deletions

diff --git a/tclpd.h b/tclpd.h
new file mode 100644
index 0000000..1fddff7
--- /dev/null
+++ b/tclpd.h
@@ -0,0 +1,121 @@
+#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.3.0"
+
+#define InitArray(name, size, value) for(int zz=0; zz<(size); zz++) name[zz]=value
+
+typedef struct _t_tcl {
+    t_object o;
+    int ninlets; /* used for proxy inlet count */
+    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 *tclpd_interp;
+extern void tclpd_setup(void);
+void tclpd_interp_error(t_tcl *x, int result);
+
+/* tcl_class.c */
+void class_table_add(const char *n, t_class *c);
+void class_table_remove(const char *n);
+t_class * class_table_get(const char *n);
+void object_table_add(const char *n, t_tcl *o);
+void object_table_remove(const char *n);
+t_tcl * object_table_get(const char *n);
+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_object * CAST_t_object(t_object *o);
+t_pd * CAST_t_pd(t_pd *o);
+t_text * CAST_t_text(t_text *o);
+t_tcl * CAST_t_tcl(t_tcl *o);
+
+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);