1HEADmaster

1 files changed, 20 insertions, 0 deletions

diff --git a/devtools/swigwin-1.3.34/Lib/tcl/tclinterp.i b/devtools/swigwin-1.3.34/Lib/tcl/tclinterp.i
new file mode 100644
index 0000000..48cdb60
--- /dev/null
+++ b/devtools/swigwin-1.3.34/Lib/tcl/tclinterp.i
@@ -0,0 +1,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;
+}
+