add of proxyinlet

svn path=/trunk/externals/tclpd/; revision=12145

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);