blob: efc7b073dca52cb62dd90cb0696a8839b75de1dd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
/* Macintosh Gestalt interface */
#include "allobjects.h"
#include "modsupport.h"
#include <Types.h>
#include <GestaltEqu.h>
static object *
gestalt_gestalt(self, args)
object *self;
object *args;
{
OSErr iErr;
char *str;
int size;
OSType selector;
long response;
if (!getargs(args, "s#", &str, &size))
return NULL;
if (size != 4) {
err_setstr(TypeError, "gestalt arg must be 4-char string");
return NULL;
}
selector = *(OSType*)str;
iErr = Gestalt ( selector, &response );
if (iErr != 0) {
char buf[100];
sprintf(buf, "Gestalt error code %d", iErr);
err_setstr(RuntimeError, buf);
return NULL;
}
return newintobject(response);
}
static struct methodlist gestalt_methods[] = {
{"gestalt", gestalt_gestalt},
{NULL, NULL} /* Sentinel */
};
void
initgestalt()
{
initmodule("gestalt", gestalt_methods);
}
|
