jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

comments, clean and cosmetics

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8782 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2006-02-11 02:20:17 +00:00
commit 18d7ad613b
4 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Lib/tcl/tcltypemaps.swg
View file

@ -41,11 +41,18 @@
/* Tcl types */
#define SWIG_Object Tcl_Obj *
/* Simple overload of the output/constant/exception handling */
/* Overload of the output/constant/exception handling */
/* output */
#define %set_output(obj) Tcl_SetObjResult(interp,obj)
/* append output */
#define %append_output(obj) Tcl_ListObjAppendElement(interp,Tcl_GetObjResult(interp),obj)
/* set constant */
#define SWIG_SetConstant(name, obj) SWIG_Tcl_SetConstantObj(interp, name, obj)
/* raise */
#define SWIG_Raise(obj,type,desc) SWIG_Tcl_SetErrorObj(interp,type,obj)