From b961106236fb569dd7b840e90a47c534bd3b179c Mon Sep 17 00:00:00 2001 From: mescalinum Date: Fri, 11 Nov 2011 09:13:54 +0000 Subject: add typemap for t_symbol* (but does not work for return values, like in canvas_getdir()) svn path=/trunk/externals/loaders/tclpd/; revision=15722 --- tcl_extras.h | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'tcl_extras.h') diff --git a/tcl_extras.h b/tcl_extras.h index 283816d..f09a7ba 100644 --- a/tcl_extras.h +++ b/tcl_extras.h @@ -50,11 +50,13 @@ void proxyinlet_setup(void); extern int Tclpd_SafeInit(Tcl_Interp *interp); /* tcl_typemap.c */ -int pd_to_tcl(t_atom* input, Tcl_Obj** output); -int tcl_to_pd(Tcl_Obj* input, t_atom* output); -const char* atom_type_string(t_atom* a); -const char* atom_symbol_value(t_atom* a); -float atom_float_value(t_atom* a); +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; -- cgit v1.2.1