/tags/rel-1.3.35/Lib/tcl/tclresult.i
# · Swig · 30 lines · 4 code · 3 blank · 23 comment · 0 complexity · fc535c2faae35261efc358ec063b141c MD5 · raw file
- /* -----------------------------------------------------------------------------
- * See the LICENSE file for information on copyright, usage and redistribution
- * of SWIG, and the README file for authors - http://www.swig.org/release.html.
- *
- * tclresult.i
- * ----------------------------------------------------------------------------- */
- /*
- int Tcl_Result
- Makes the integer return code of a function the return value
- of a SWIG generated wrapper function. For example :
- int foo() {
- ... do stuff ...
- return TCL_OK;
- }
- could be wrapped as follows :
- %include typemaps.i
- %apply int Tcl_Result { int foo };
- int foo();
- */
- // If return code is a Tcl_Result, simply pass it on
- %typemap(out) int Tcl_Result {
- return $1;
- }