/tags/rel-1.3.35/Lib/tcl/tclresult.i
Swig | 30 lines | 4 code | 3 blank | 23 comment | 0 complexity | fc535c2faae35261efc358ec063b141c MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- /* -----------------------------------------------------------------------------
- * 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;
- }