/tags/rel-1.3.35/Lib/tcl/tclinterp.i

 1/* -----------------------------------------------------------------------------
 2 * See the LICENSE file for information on copyright, usage and redistribution
 3 * of SWIG, and the README file for authors - http://www.swig.org/release.html.
 4 *
 5 * tclinterp.i
 6 *
 7 * Tcl_Interp *interp
 8 *
 9 * Passes the current Tcl_Interp value directly to a C function.
10 * This can be used to work with existing wrapper functions or
11 * if you just need the interp value for some reason.  When used,
12 * the 'interp' parameter becomes hidden in the Tcl interface--that
13 * is, you don't specify it explicitly. SWIG fills in its value
14 * automatically.
15 * ----------------------------------------------------------------------------- */
16
17%typemap(in,numinputs=0) Tcl_Interp *interp {
18  $1 = interp;
19}
20