From ba069019909c54f3c90b7fec51c145f88cf99e3e Mon Sep 17 00:00:00 2001 From: mescalinum Date: Sat, 29 Aug 2009 18:48:03 +0000 Subject: add proxy inlet. still some unresolved TypeError, will continue the work tomorrow svn path=/trunk/externals/tclpd/; revision=12134 --- tcl.i | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'tcl.i') diff --git a/tcl.i b/tcl.i index 8cb5763..e3015ad 100644 --- a/tcl.i +++ b/tcl.i @@ -60,8 +60,12 @@ %typemap(in) t_atom * { t_atom *a = (t_atom*)getbytes(sizeof(t_atom)); - if(tcl_to_pd($input, a) == TCL_ERROR) + if(tcl_to_pd($input, a) == TCL_ERROR) { +#ifdef DEBUG + post("Tcl SWIG: typemap(in) error"); +#endif return TCL_ERROR; + } $1 = a; } @@ -71,8 +75,12 @@ %typemap(out) t_atom* { Tcl_Obj* res_obj; - if(pd_to_tcl($1, &res_obj) == TCL_ERROR) + if(pd_to_tcl($1, &res_obj) == TCL_ERROR) { +#ifdef DEBUG + post("Tcl SWIG: typemap(out) error"); +#endif return TCL_ERROR; + } Tcl_SetObjResult(tcl_for_pd, res_obj); } -- cgit v1.2.1