diff options
Diffstat (limited to 'Lib/objc.i')
-rw-r--r-- | Lib/objc.i | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/Lib/objc.i b/Lib/objc.i deleted file mode 100644 index 2655fb896..000000000 --- a/Lib/objc.i +++ /dev/null @@ -1,56 +0,0 @@ -// 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"); - } -} - - - - - - |