Since I have made several changes to SWIG over the years to accomodate

[wxWidgets.git] / wxPython / wxSWIG / swig_lib / objc.i

diff --git a/wxPython/wxSWIG/swig_lib/objc.i b/wxPython/wxSWIG/swig_lib/objc.i
new file mode 100644 (file)
index 0000000..2655fb8
--- /dev/null
+++ b/wxPython/wxSWIG/swig_lib/objc.i
@@ -0,0 +1,56 @@
+// SWIG Objective-C configuration file
+// Dave Beazley
+// Copyright (C) 1997
+
+// This file provides support to Objective-C parsing and 
+// should be included with just about any Objective-C module
+
+// Base Object class
+
+@interface Object { }
+
+-(char *) name;             // Get object name
+
+@end
+
+typedef Object *id;         // Make 'id' behave like any other "Object"
+
+// Typemaps to make *id work like kind of like a void pointer
+
+%typemap(python,in) id {
+   char *temp;
+   if (!PyString_Check($source)) {
+     PyErr_SetString(PyExc_TypeError,"Expecting an 'id' in argument $argnum of $name");
+     return NULL;
+   }
+   temp = PyString_AsString($source);
+   if (SWIG_GetPtr(temp, (void **) &$target, 0)) {
+     PyErr_SetString(PyExc_TypeError,"Expecting an 'id' in argument $argnum of $name");
+     return NULL;
+   }
+}
+
+%typemap(tcl,in) id {
+  if (SWIG_GetPtr($source,(void **) &$target, 0)) {
+    Tcl_SetResult(interp,"Expecting an 'id' in argument $argnum of $name",TCL_STATIC);
+    return TCL_ERROR;
+  }
+}
+
+%typemap(tcl8,in) id {
+  if (SWIG_GetPointerObj(interp, $source, (void **) &$target, 0)) {
+    Tcl_SetStringObj(result_obj, "Expecting an 'id' in argument $argnum of $name");
+  }
+}
+
+%typemap(perl5,in) id {
+  if (SWIG_GetPtr($source, (void **) &$target, 0)) {
+    croak("Expecting an 'id' in argument $argnum of $name");
+  }
+}
+
+
+  
+
+
+