|
2896
|
1 /***********************************************************
|
|
|
2 Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
|
|
|
3 The Netherlands.
|
|
|
4
|
|
|
5 All Rights Reserved
|
|
|
6
|
|
|
7 Permission to use, copy, modify, and distribute this software and its
|
|
|
8 documentation for any purpose and without fee is hereby granted,
|
|
|
9 provided that the above copyright notice appear in all copies and that
|
|
|
10 both that copyright notice and this permission notice appear in
|
|
|
11 supporting documentation, and that the names of Stichting Mathematisch
|
|
|
12 Centrum or CWI not be used in advertising or publicity pertaining to
|
|
|
13 distribution of the software without specific, written prior permission.
|
|
|
14
|
|
|
15 STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
|
|
|
16 THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
|
|
17 FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
|
|
|
18 FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
|
19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
|
20 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
|
|
|
21 OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
22
|
|
|
23 ******************************************************************/
|
|
|
24
|
|
|
25 /* Objective-C interface for NeXTStep */
|
|
|
26 /* Tested with NeXTStep 3.3 on Intel and Sparc architectures */
|
|
|
27
|
|
|
28 /* Original author: Jon M. Kutemeier */
|
|
|
29 /* Revamped and maintained by: Guido van Rossum */
|
|
|
30
|
|
|
31 /* XXX To do:
|
|
|
32 - bug??? x.send('name', []) gives weird error
|
|
|
33 - rename functions from objc_* to ObjC_*
|
|
|
34 - change send(sel, [a, b, c]) to send(self, a, b, c)
|
|
|
35 - call back to Python from Objective-C
|
|
|
36 */
|
|
|
37
|
|
|
38 /* Python header file */
|
|
|
39 #include "Python.h"
|
|
|
40
|
|
|
41 /* NeXT headers */
|
|
|
42 #include <sys/param.h>
|
|
|
43 #include <mach-o/rld.h>
|
|
|
44 #include <objc/objc.h>
|
|
|
45 #include <objc/objc-runtime.h>
|
|
|
46 #import <remote/NXProxy.h>
|
|
|
47
|
|
|
48 /* Distinguish between ObjC classes and instances */
|
|
|
49 typedef enum {
|
|
|
50 OBJC_CLASS,
|
|
|
51 OBJC_INSTANCE,
|
|
|
52 } ObjC_Typecode;
|
|
|
53
|
|
|
54 /* Exception raised for ObjC specific errors */
|
|
|
55 static PyObject *ObjC_Error;
|
|
|
56
|
|
|
57 /* Python wrapper about ObjC id (instance or class) */
|
|
|
58 typedef struct {
|
|
|
59 PyObject_HEAD
|
|
|
60 id obj;
|
|
|
61 ObjC_Typecode type;
|
|
|
62 int owned;
|
|
|
63 } ObjCObject;
|
|
|
64
|
|
|
65 /* Corresponding Python type object */
|
|
|
66 staticforward PyTypeObject ObjC_Type;
|
|
|
67
|
|
|
68 /* Corresponding Python type check macro */
|
|
|
69 #define ObjC_Check(o) ((o)->ob_type == &ObjC_Type)
|
|
|
70
|
|
|
71 /* Create a new ObjCObject */
|
|
|
72 static ObjCObject *
|
|
|
73 newObjCObject(obj, type, owned)
|
|
|
74 id obj;
|
|
|
75 ObjC_Typecode type;
|
|
|
76 int owned;
|
|
|
77 {
|
|
|
78 ObjCObject *self;
|
|
|
79
|
|
|
80 self = PyObject_NEW(ObjCObject, &ObjC_Type);
|
|
|
81 if (self == NULL)
|
|
|
82 return NULL;
|
|
|
83
|
|
|
84 self->obj = obj;
|
|
|
85 self->type = type;
|
|
|
86 self->owned = owned;
|
|
|
87
|
|
|
88 return self;
|
|
|
89 }
|
|
|
90
|
|
|
91 static void
|
|
|
92 objc_sendfree(self)
|
|
|
93 ObjCObject *self;
|
|
|
94 {
|
|
|
95 if (self->obj)
|
|
|
96 self->obj = (id)objc_msgSend(self->obj, SELUID("free"));
|
|
|
97 }
|
|
|
98
|
|
|
99 /* Deallocate an ObjCObject */
|
|
|
100 static void
|
|
|
101 objc_dealloc(self)
|
|
|
102 ObjCObject *self;
|
|
|
103 {
|
|
|
104 if (self->owned)
|
|
|
105 objc_sendfree(self);
|
|
|
106 PyMem_DEL(self);
|
|
|
107 }
|
|
|
108
|
|
|
109 /* Return a string representation of an ObjCObject */
|
|
|
110 static PyObject *
|
|
|
111 objc_repr(self)
|
|
|
112 ObjCObject *self;
|
|
|
113 {
|
|
|
114 char buffer[512];
|
|
|
115 char *p = buffer;
|
|
|
116 if (self->obj == nil)
|
|
|
117 p = "<Objective-C nil>";
|
|
|
118 else {
|
|
|
119 char *t;
|
|
|
120 switch (self->type) {
|
|
|
121 case OBJC_CLASS: t = "class"; break;
|
|
|
122 case OBJC_INSTANCE: t = "instance"; break;
|
|
|
123 default: t = "???"; break;
|
|
|
124 }
|
|
|
125 sprintf(buffer, "<Objective-C %s %s at %lx>",
|
|
|
126 NAMEOF(self->obj), t, (long)(self->obj));
|
|
|
127 }
|
|
|
128 return PyString_FromString(p);
|
|
|
129 }
|
|
|
130
|
|
|
131 /*** ObjCObject methods ***/
|
|
|
132
|
|
|
133 /* Call an object's free method */
|
|
|
134 static PyObject *
|
|
|
135 objc_free(self, args)
|
|
|
136 ObjCObject *self;
|
|
|
137 PyObject *args;
|
|
|
138 {
|
|
|
139 if (!PyArg_ParseTuple(args, ""))
|
|
|
140 return NULL;
|
|
|
141 objc_sendfree(self);
|
|
|
142 }
|
|
|
143
|
|
|
144 /* Send a message to an ObjCObject.
|
|
|
145 The Python call looks like e.g. obj.send('moveTo::', [arg1, arg2])
|
|
|
146 which translates into Objective-C as [obj moveTo: arg1 : arg2] */
|
|
|
147 static PyObject *
|
|
|
148 objc_send(self, args)
|
|
|
149 ObjCObject *self;
|
|
|
150 PyObject *args;
|
|
|
151 {
|
|
|
152 char *methodname;
|
|
|
153 char *margBuff = NULL;
|
|
|
154 PyObject *retobject = NULL;
|
|
|
155 PyObject *arglist;
|
|
|
156 id receiver, obj;
|
|
|
157 char *type;
|
|
|
158 SEL sel;
|
|
|
159 Method meth;
|
|
|
160 unsigned int margCount, margSize;
|
|
|
161 int offset, i;
|
|
|
162
|
|
|
163 if (!PyArg_ParseTuple(args, "sO!", &methodname, &PyList_Type, &arglist))
|
|
|
164 return NULL;
|
|
|
165
|
|
|
166 /* Get the method descriptor from the object */
|
|
|
167
|
|
|
168 receiver = self->obj;
|
|
|
169 sel = SELUID(methodname);
|
|
|
170
|
|
|
171 switch(self->type) {
|
|
|
172 case OBJC_CLASS:
|
|
|
173 meth = class_getClassMethod(receiver->isa, sel);
|
|
|
174 break;
|
|
|
175 case OBJC_INSTANCE:
|
|
|
176 meth = class_getInstanceMethod(receiver->isa, sel);
|
|
|
177 break;
|
|
|
178 default:
|
|
|
179 PyErr_SetString(ObjC_Error,
|
|
|
180 "receiver's type is neither instance not class!?!?");
|
|
|
181 return NULL;
|
|
|
182 }
|
|
|
183
|
|
|
184 if (!meth) {
|
|
|
185 PyErr_SetString(ObjC_Error, "receiver has no method by that name");
|
|
|
186 return NULL;
|
|
|
187 }
|
|
|
188
|
|
|
189 /* Fill in the argument list, type-checking the arguments */
|
|
|
190
|
|
|
191 margCount = method_getNumberOfArguments(meth);
|
|
|
192
|
|
|
193 if (PyList_Size(arglist) + 2 != margCount) {
|
|
|
194 PyErr_SetString(ObjC_Error,
|
|
|
195 "wrong number of arguments for this method");
|
|
|
196 return NULL;
|
|
|
197 }
|
|
|
198
|
|
|
199 margSize = method_getSizeOfArguments(meth);
|
|
|
200 margBuff = PyMem_NEW(char, margSize+1);
|
|
|
201 if (margBuff == NULL)
|
|
|
202 return PyErr_NoMemory();
|
|
|
203
|
|
|
204 method_getArgumentInfo(meth, 0, &type, &offset);
|
|
|
205 marg_setValue(margBuff, offset, id, receiver);
|
|
|
206
|
|
|
207 method_getArgumentInfo(meth, 1, &type, &offset);
|
|
|
208 marg_setValue(margBuff, offset, SEL, sel);
|
|
|
209
|
|
|
210 for (i = 2; i < margCount; i++) {
|
|
|
211 PyObject *argument;
|
|
|
212 method_getArgumentInfo(meth, i, &type, &offset);
|
|
|
213
|
|
|
214 argument = PyList_GetItem(arglist, i-2);
|
|
|
215
|
|
|
216 /* scan past protocol-type modifiers */
|
|
|
217 while (strchr("rnNoOV", *type) != 0)
|
|
|
218 type++;
|
|
|
219
|
|
|
220 /* common type checks */
|
|
|
221 switch(*type) {
|
|
|
222
|
|
|
223 /* XXX The errors here should point out which argument */
|
|
|
224
|
|
|
225 case 'c':
|
|
|
226 case '*':
|
|
|
227 case 'C':
|
|
|
228 if (!PyString_Check(argument)) {
|
|
|
229 PyErr_SetString(ObjC_Error, "string argument expected");
|
|
|
230 goto error;
|
|
|
231 }
|
|
|
232 break;
|
|
|
233
|
|
|
234 case 'i':
|
|
|
235 case 's':
|
|
|
236 case 'I':
|
|
|
237 case 'S':
|
|
|
238 case 'l':
|
|
|
239 case 'L':
|
|
|
240 case '^':
|
|
|
241 if (!PyInt_Check(argument)) {
|
|
|
242 PyErr_SetString(ObjC_Error, "integer argument expected");
|
|
|
243 goto error;
|
|
|
244 }
|
|
|
245 break;
|
|
|
246
|
|
|
247 case 'f':
|
|
|
248 case 'd':
|
|
|
249 if (!PyFloat_Check(argument)) {
|
|
|
250 PyErr_SetString(ObjC_Error, "float argument expected");
|
|
|
251 goto error;
|
|
|
252 }
|
|
|
253 break;
|
|
|
254
|
|
|
255 }
|
|
|
256
|
|
|
257 /* convert and store the argument */
|
|
|
258 switch (*type) {
|
|
|
259
|
|
|
260 case 'c': /* char */
|
|
|
261 marg_setValue(margBuff, offset, char,
|
|
|
262 PyString_AsString(argument)[0]);
|
|
|
263 break;
|
|
|
264
|
|
|
265 case 'C': /* unsigned char */
|
|
|
266 marg_setValue(margBuff, offset, unsigned char,
|
|
|
267 PyString_AsString(argument)[0]);
|
|
|
268 break;
|
|
|
269
|
|
|
270 case '*': /* string */
|
|
|
271 marg_setValue(margBuff, offset, char *,
|
|
|
272 PyString_AsString(argument));
|
|
|
273 break;
|
|
|
274
|
|
|
275 case 'i': /* int */
|
|
|
276 marg_setValue(margBuff, offset, int,
|
|
|
277 PyInt_AsLong(argument));
|
|
|
278 break;
|
|
|
279
|
|
|
280 case 'I': /* unsigned int */
|
|
|
281 marg_setValue(margBuff, offset, unsigned int,
|
|
|
282 PyInt_AsLong(argument));
|
|
|
283 break;
|
|
|
284
|
|
|
285 case 's': /* short */
|
|
|
286 marg_setValue(margBuff, offset, short,
|
|
|
287 PyInt_AsLong(argument));
|
|
|
288 break;
|
|
|
289
|
|
|
290 case 'S': /* unsigned short */
|
|
|
291 marg_setValue(margBuff, offset, unsigned short,
|
|
|
292 PyInt_AsLong(argument));
|
|
|
293 break;
|
|
|
294
|
|
|
295 case 'l': /* long */
|
|
|
296 marg_setValue(margBuff, offset, long,
|
|
|
297 PyInt_AsLong(argument));
|
|
|
298 break;
|
|
|
299
|
|
|
300 case 'L': /* unsigned long */
|
|
|
301 marg_setValue(margBuff, offset, unsigned long,
|
|
|
302 PyInt_AsLong(argument));
|
|
|
303 break;
|
|
|
304
|
|
|
305 case 'f': /* float */
|
|
|
306 marg_setValue(margBuff, offset, float,
|
|
|
307 (float)PyFloat_AsDouble(argument));
|
|
|
308 break;
|
|
|
309
|
|
|
310 case 'd': /* double */
|
|
|
311 marg_setValue(margBuff, offset, double,
|
|
|
312 PyFloat_AsDouble(argument));
|
|
|
313 break;
|
|
|
314
|
|
|
315 case '@': /* id (or None) */
|
|
|
316 if (ObjC_Check(argument))
|
|
|
317 marg_setValue(margBuff, offset, id,
|
|
|
318 ((ObjCObject *)(argument))->obj);
|
|
|
319 else if (argument == Py_None)
|
|
|
320 marg_setValue(margBuff, offset, id, nil);
|
|
|
321 else {
|
|
|
322 PyErr_SetString(ObjC_Error, "id or None argument expected");
|
|
|
323 goto error;
|
|
|
324 }
|
|
|
325 break;
|
|
|
326
|
|
|
327 case '^': /* void * (use int) */
|
|
|
328 marg_setValue(margBuff, offset, void *,
|
|
|
329 (void *)PyInt_AsLong(argument));
|
|
|
330 break;
|
|
|
331
|
|
|
332 case ':': /* SEL (use string or int) */
|
|
|
333 if (PyInt_Check(argument))
|
|
|
334 marg_setValue(margBuff, offset, SEL,
|
|
|
335 (SEL)PyInt_AsLong(argument));
|
|
|
336 else if (PyString_Check(argument))
|
|
|
337 marg_setValue(margBuff, offset, SEL,
|
|
|
338 SELUID(PyString_AsString(argument)));
|
|
|
339 else {
|
|
|
340 PyErr_SetString(ObjC_Error,
|
|
|
341 "selector string or int argument expected");
|
|
|
342 goto error;
|
|
|
343 }
|
|
|
344 break;
|
|
|
345
|
|
|
346 case '#': /* Class (may also use int) */
|
|
|
347 if (ObjC_Check(argument) &&
|
|
|
348 ((ObjCObject *)argument)->type == OBJC_INSTANCE)
|
|
|
349 marg_setValue(margBuff, offset, Class *,
|
|
|
350 (Class *)((ObjCObject *)argument)->obj);
|
|
|
351 else if (PyInt_Check(argument))
|
|
|
352 marg_setValue(margBuff, offset, Class *,
|
|
|
353 (Class *)PyInt_AsLong(argument));
|
|
|
354 else {
|
|
|
355 PyErr_SetString(ObjC_Error,
|
|
|
356 "ObjC class object required");
|
|
|
357 goto error;
|
|
|
358 }
|
|
|
359 break;
|
|
|
360
|
|
|
361 default:
|
|
|
362 PyErr_SetString(ObjC_Error, "unknown argument type");
|
|
|
363 goto error;
|
|
|
364
|
|
|
365 }
|
|
|
366 }
|
|
|
367
|
|
|
368 /* Call the method and set the return value */
|
|
|
369
|
|
|
370 type = meth->method_types;
|
|
|
371
|
|
|
372 while (strchr("rnNoOV", *type))
|
|
|
373 type++;
|
|
|
374
|
|
|
375 switch(*type) {
|
|
|
376
|
|
|
377 /* Cast objc_msgSendv to a function returning the right thing */
|
|
|
378 #define MS_CAST(type) ((type (*)())objc_msgSendv)
|
|
|
379
|
|
|
380 case 'c':
|
|
|
381 case '*':
|
|
|
382 case 'C':
|
|
|
383 retobject = (PyObject *)PyString_FromString(
|
|
|
384 MS_CAST(char *)(receiver, sel, margSize, margBuff));
|
|
|
385 break;
|
|
|
386
|
|
|
387 case 'i':
|
|
|
388 case 's':
|
|
|
389 case 'I':
|
|
|
390 case 'S':
|
|
|
391 retobject = (PyObject *)PyInt_FromLong(
|
|
|
392 MS_CAST(int)(receiver, sel, margSize, margBuff));
|
|
|
393 break;
|
|
|
394
|
|
|
395 case 'l':
|
|
|
396 case 'L':
|
|
|
397 case '^':
|
|
|
398 retobject = (PyObject *)PyInt_FromLong(
|
|
|
399 MS_CAST(long)(receiver, sel, margSize, margBuff));
|
|
|
400 break;
|
|
|
401
|
|
|
402 case 'f':
|
|
|
403 retobject = (PyObject *)PyFloat_FromDouble(
|
|
|
404 MS_CAST(float)(receiver, sel, margSize, margBuff));
|
|
|
405 break;
|
|
|
406
|
|
|
407 case 'd':
|
|
|
408 retobject = (PyObject *)PyFloat_FromDouble(
|
|
|
409 MS_CAST(double)(receiver, sel, margSize, margBuff));
|
|
|
410 break;
|
|
|
411
|
|
|
412 case '@':
|
|
|
413 obj = MS_CAST(id)(receiver, sel, margSize, margBuff);
|
|
|
414 if (obj == nil) {
|
|
|
415 retobject = Py_None;
|
|
|
416 Py_INCREF(retobject);
|
|
|
417 }
|
|
|
418 else if (obj != receiver)
|
|
|
419 retobject = (PyObject *)newObjCObject(obj, OBJC_INSTANCE, 0);
|
|
|
420 else {
|
|
|
421 retobject = (PyObject *)self;
|
|
|
422 Py_INCREF(retobject);
|
|
|
423 }
|
|
|
424 break;
|
|
|
425
|
|
|
426 case ':':
|
|
|
427 retobject = (PyObject *)PyInt_FromLong(
|
|
|
428 (long)MS_CAST(SEL)(receiver, sel, margSize, margBuff));
|
|
|
429 break;
|
|
|
430
|
|
|
431 case '#':
|
|
|
432 retobject = (PyObject *)PyInt_FromLong(
|
|
|
433 (long)MS_CAST(Class *)(receiver, sel, margSize, margBuff));
|
|
|
434 break;
|
|
|
435
|
|
|
436 #undef MS_CAST
|
|
|
437
|
|
|
438 }
|
|
|
439
|
|
|
440 error:
|
|
|
441 PyMem_XDEL(margBuff);
|
|
|
442 return retobject;
|
|
|
443 }
|
|
|
444
|
|
|
445 /* List of methods for ObjCObject */
|
|
|
446 static PyMethodDef objc_methods[] = {
|
|
|
447 {"send", (PyCFunction)objc_send, 1},
|
|
|
448 {"free", (PyCFunction)objc_free, 1},
|
|
|
449 {NULL, NULL} /* sentinel */
|
|
|
450 };
|
|
|
451
|
|
|
452 /* Get an attribute of an ObjCObject */
|
|
|
453 static PyObject *
|
|
|
454 objc_getattr(self, name)
|
|
|
455 ObjCObject *self;
|
|
|
456 char *name;
|
|
|
457 {
|
|
|
458 PyObject *method;
|
|
|
459
|
|
|
460 /* Try a function method */
|
|
|
461 method = Py_FindMethod(objc_methods, (PyObject *)self, name);
|
|
|
462 if (method != NULL)
|
|
|
463 return method;
|
|
|
464 PyErr_Clear();
|
|
|
465
|
|
|
466 /* Try an instance variable */
|
|
|
467 if (strcmp(name, "obj") == 0)
|
|
|
468 return PyInt_FromLong((long)self->obj);
|
|
|
469 if (strcmp(name, "type") == 0)
|
|
|
470 return PyInt_FromLong((long)self->type);
|
|
|
471 if (strcmp(name, "owned") == 0)
|
|
|
472 return PyInt_FromLong((long)self->owned);
|
|
|
473 if (strcmp(name, "name") == 0)
|
|
|
474 return PyString_FromString(NAMEOF(self->obj));
|
|
|
475 if (strcmp(name, "__members__") == 0)
|
|
|
476 return Py_BuildValue("[sss]", "name", "obj", "owned", "type");
|
|
|
477
|
|
|
478 PyErr_SetString(PyExc_AttributeError, name);
|
|
|
479 return NULL;
|
|
|
480 }
|
|
|
481
|
|
|
482 /* The type object */
|
|
|
483 static PyTypeObject ObjC_Type = {
|
|
|
484 PyObject_HEAD_INIT(&PyType_Type)
|
|
|
485 0, /*ob_size*/
|
|
|
486 "objc", /*tp_name*/
|
|
|
487 sizeof(ObjCObject), /*tp_basicsize*/
|
|
|
488 0, /*tp_itemsize*/
|
|
|
489 /* methods */
|
|
|
490 (destructor)objc_dealloc, /*tp_dealloc*/
|
|
|
491 0, /*tp_print*/
|
|
|
492 (getattrfunc)objc_getattr, /*tp_getattr*/
|
|
|
493 0, /*tp_setattr*/
|
|
|
494 0, /*tp_compare*/
|
|
|
495 (reprfunc)objc_repr, /*tp_repr*/
|
|
|
496 0, /*tp_as_number*/
|
|
|
497 0, /*tp_as_sequence*/
|
|
|
498 0, /*tp_as_mapping*/
|
|
|
499 0, /*tp_hash*/
|
|
|
500 0, /*tp_call*/
|
|
|
501 0, /*tp_str*/
|
|
|
502 0, 0, 0, 0, /*xxx1-4*/
|
|
|
503 "Objective-C id wrapper", /*tp_doc*/
|
|
|
504 };
|
|
|
505
|
|
|
506
|
|
|
507
|
|
|
508 /*** Top-level functions ***/
|
|
|
509
|
|
|
510 /* Max #files passed to loadobjectfile() */
|
|
|
511 #define MAXRLD 128
|
|
|
512
|
|
|
513 /* Load a list of object files */
|
|
|
514 static PyObject *
|
|
|
515 objc_loadobjectfiles(self, args)
|
|
|
516 PyObject *self; /* Not used */
|
|
|
517 PyObject *args;
|
|
|
518 {
|
|
|
519 NXStream *errorStream;
|
|
|
520 struct mach_header *new_header;
|
|
|
521 const char *filenames[MAXRLD+1];
|
|
|
522 long ret;
|
|
|
523 char *streamBuf;
|
|
|
524 PyObject *filelist, *file;
|
|
|
525 int listsize, len, maxLen, i;
|
|
|
526
|
|
|
527 if (!PyArg_ParseTuple(args, "O!", &PyList_Type, &filelist))
|
|
|
528 return NULL;
|
|
|
529
|
|
|
530 listsize = PyList_Size(filelist);
|
|
|
531
|
|
|
532 if (listsize > MAXRLD) {
|
|
|
533 PyErr_SetString(ObjC_Error, "more than 128 files in list");
|
|
|
534 return NULL;
|
|
|
535 }
|
|
|
536
|
|
|
537 errorStream = NXOpenMemory(NULL, 0, NX_WRITEONLY);
|
|
|
538
|
|
|
539 for (i = 0; i < listsize; i++) {
|
|
|
540 file = PyList_GetItem(filelist, i);
|
|
|
541
|
|
|
542 if (!PyString_Check(file))
|
|
|
543 {
|
|
|
544 PyErr_SetString(ObjC_Error,
|
|
|
545 "all list items must be strings");
|
|
|
546 return NULL;
|
|
|
547 }
|
|
|
548
|
|
|
549 filenames[i] = PyString_AsString(file);
|
|
|
550 }
|
|
|
551
|
|
|
552 filenames[listsize] = NULL;
|
|
|
553
|
|
|
554 ret = objc_loadModules(filenames, errorStream, NULL, &new_header, NULL);
|
|
|
555
|
|
|
556 /* extract the error messages for the exception */
|
|
|
557
|
|
|
558 if(ret) {
|
|
|
559 NXPutc(errorStream, (char)0);
|
|
|
560
|
|
|
561 NXGetMemoryBuffer(errorStream, &streamBuf, &len, &maxLen);
|
|
|
562 PyErr_SetString(ObjC_Error, streamBuf);
|
|
|
563 }
|
|
|
564
|
|
|
565 NXCloseMemory(errorStream, NX_FREEBUFFER);
|
|
|
566
|
|
|
567 if(ret)
|
|
|
568 return NULL;
|
|
|
569
|
|
|
570 Py_XINCREF(Py_None);
|
|
|
571 return Py_None;
|
|
|
572 }
|
|
|
573
|
|
|
574 static PyObject *
|
|
|
575 objc_lookupclass(self, args)
|
|
|
576 PyObject *self; /* Not used */
|
|
|
577 PyObject *args;
|
|
|
578 {
|
|
|
579 char *classname;
|
|
|
580 id class;
|
|
|
581
|
|
|
582 if (!PyArg_ParseTuple(args, "s", &classname))
|
|
|
583 return NULL;
|
|
|
584
|
|
|
585 if (!(class = objc_lookUpClass(classname)))
|
|
|
586 {
|
|
|
587 PyErr_SetString(ObjC_Error, "unknown ObjC class");
|
|
|
588 return NULL;
|
|
|
589 }
|
|
|
590
|
|
|
591 return (PyObject *)newObjCObject(class, OBJC_CLASS, 0);
|
|
|
592 }
|
|
|
593
|
|
|
594 /* List all classes */
|
|
|
595 static PyObject *
|
|
|
596 objc_listclasses(self, args)
|
|
|
597 ObjCObject *self;
|
|
|
598 PyObject *args;
|
|
|
599 {
|
|
|
600 NXHashTable *class_hash = objc_getClasses();
|
|
|
601 NXHashState state = NXInitHashState(class_hash);
|
|
|
602 Class classid;
|
|
|
603 PyObject *list;
|
|
|
604
|
|
|
605 if (!PyArg_ParseTuple(args, ""))
|
|
|
606 return NULL;
|
|
|
607
|
|
|
608 list = PyList_New(0);
|
|
|
609 if (list == NULL)
|
|
|
610 return NULL;
|
|
|
611
|
|
|
612 while (NXNextHashState(class_hash, &state, (void**)&classid)) {
|
|
|
613 ObjCObject *item = newObjCObject(classid, OBJC_CLASS, 0);
|
|
|
614 if (item == NULL || PyList_Append(list, (PyObject *)item) < 0) {
|
|
|
615 Py_XDECREF(item);
|
|
|
616 Py_DECREF(list);
|
|
|
617 return NULL;
|
|
|
618 }
|
|
|
619 Py_INCREF(item);
|
|
|
620 }
|
|
|
621
|
|
|
622 return list;
|
|
|
623 }
|
|
|
624
|
|
|
625 /* List of top-level functions */
|
|
|
626 static PyMethodDef objc_class_methods[] = {
|
|
|
627 {"loadobjectfiles", objc_loadobjectfiles, 1},
|
|
|
628 {"lookupclass", objc_lookupclass, 1},
|
|
|
629 {"listclasses", objc_listclasses, 1},
|
|
|
630 {NULL, NULL} /* sentinel */
|
|
|
631 };
|
|
|
632
|
|
|
633 /* Initialize for the module */
|
|
|
634 void
|
|
|
635 initobjc()
|
|
|
636 {
|
|
|
637 PyObject *m, *d;
|
|
|
638
|
|
|
639 m = Py_InitModule("objc", objc_class_methods);
|
|
|
640 d = PyModule_GetDict(m);
|
|
|
641
|
|
|
642 ObjC_Error = PyString_FromString("objc.error");
|
|
|
643 PyDict_SetItemString(d, "error", ObjC_Error);
|
|
|
644
|
|
|
645 if (PyErr_Occurred())
|
|
|
646 Py_FatalError("can't initialize module objc");
|
|
|
647
|
|
|
648 #ifdef WITH_THREAD
|
|
|
649 objc_setMultithreaded(1);
|
|
|
650 #endif
|
|
|
651 }
|
