1HEADmaster

1 files changed, 30 insertions, 0 deletions

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