Lib/tcl/tclinterp.i


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

/* -----------------------------------------------------------------------------
 * 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.
 *
 * tclinterp.i
 *
 * Tcl_Interp *interp
 *
 * Passes the current Tcl_Interp value directly to a C function.
 * This can be used to work with existing wrapper functions or
 * if you just need the interp value for some reason.  When used,
 * the 'interp' parameter becomes hidden in the Tcl interface--that
 * is, you don't specify it explicitly. SWIG fills in its value
 * automatically.
 * ----------------------------------------------------------------------------- */

%typemap(in,numinputs=0) Tcl_Interp *interp {
  $1 = interp;
}