diff options
-rw-r--r-- | tcl.i | 6 | ||||
-rw-r--r-- | tclpd.c | 4 |
2 files changed, 0 insertions, 10 deletions
@@ -45,9 +45,6 @@ #include "tcl_extras.h" typedef t_atom t_atom_array; - - /* extern "C" SWIGEXPORT int Tclpd_SafeInit(Tcl_Interp *interp); */ - /* extern "C" { void tcl_setup() {tclpd_setup(void);} } */ %} /* this does the trick of solving @@ -55,9 +52,6 @@ %name(outlet_list) EXTERN void outlet_list(t_outlet *x, t_symbol *s, int argc, t_atom_array *argv); %name(outlet_anything) EXTERN void outlet_anything(t_outlet *x, t_symbol *s, int argc, t_atom_array *argv); -//%pointer_class(t_float, t_float) -//%pointer_class(t_symbol, t_symbol) - %typemap(in) t_atom * { t_atom *a = (t_atom*)getbytes(sizeof(t_atom)); if(tcl_to_pd($input, a) == TCL_ERROR) { @@ -5,10 +5,6 @@ Tcl_Interp *tcl_for_pd = NULL; -extern void tcl_setup(void) { - tclpd_setup(); -} - void tclpd_setup(void) { if(tcl_for_pd) { return; |