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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
/*
** macglue - A couple of mac-specific routines often needed.
**
** Jack Jansen, CWI, 1994.
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include "Python.h"
#include "macglue.h"
#include <OSUtils.h> /* for Set(Current)A5 */
#include <Resources.h>
#include <Memory.h>
#include <Events.h>
#include <Windows.h>
#include <Desk.h>
/* Replace strerror with something that might work */
char *macstrerror(int err)
{
static char buf[256];
Handle h;
char *str;
h = GetResource('Estr', err);
if ( h ) {
HLock(h);
str = (char *)*h;
memcpy(buf, str+1, (unsigned char)str[0]);
HUnlock(h);
ReleaseResource(h);
} else {
sprintf(buf, "Mac OS error code %d", err);
}
return buf;
}
/* Set a MAC-specific error from errno, and return NULL; return None if no error */
PyObject *
PyErr_Mac(PyObject *eobj, int err)
{
char *msg;
PyObject *v;
Handle h;
if (err == 0) {
Py_INCREF(Py_None);
return Py_None;
}
msg = macstrerror(err);
v = Py_BuildValue("(is)", err, msg);
PyErr_SetObject(eobj, v);
Py_DECREF(v);
return NULL;
}
/*
** Idle routine for busy-wait loops.
** This is rather tricky: if we see an event we check whether it is
** for somebody else (i.e. a click outside our windows) and, if so,
** we pass the event on (so the user can switch processes). However,
** by doing this we loose events meant for our windows. Too bad, I guess...
*/
int
PyMac_Idle()
{
EventRecord ev;
WindowPtr wp;
#if 0
SystemTask();
if ( intrcheck() )
return 0;
if ( GetNextEvent(0xffff, &ev) ) {
if ( ev.what == mouseDown ) {
if ( FindWindow(ev.where, &wp) == inSysWindow )
SystemClick(&ev, wp);
}
}
#endif
return 1;
}
|
