2
/* GNU pth threads interface
3
http://www.gnu.org/software/pth
4
2000-05-03 Andy Dustman <andy@dustman.net>
6
Adapted from Posix threads interface
7
12 May 1997 -- david arnold <davida@pobox.com>
14
/* A pth mutex isn't sufficient to model the Python lock type
15
* because pth mutexes can be acquired multiple times by the
18
* The pth_lock struct implements a Python lock as a "locked?" bit
19
* and a <condition, mutex> pair. In general, if the bit can be acquired
20
* instantly, it is, else the pair is used to block the thread until the
25
char locked; /* 0=unlocked, 1=locked */
26
/* a <cond, mutex> pair to handle an acquire of a locked lock */
27
pth_cond_t lock_released;
31
#define CHECK_STATUS(name) if (status == -1) { printf("%d ", status); perror(name); error = 1; }
33
pth_attr_t PyThread_attr;
39
static void PyThread__init_thread(void)
42
PyThread_attr = pth_attr_new();
43
pth_attr_set(PyThread_attr, PTH_ATTR_STACK_SIZE, 1<<18);
44
pth_attr_set(PyThread_attr, PTH_ATTR_JOINABLE, FALSE);
52
long PyThread_start_new_thread(void (*func)(void *), void *arg)
55
dprintf(("PyThread_start_new_thread called\n"));
57
PyThread_init_thread();
59
th = pth_spawn(PyThread_attr,
60
(void* (*)(void *))func,
67
long PyThread_get_thread_ident(void)
69
volatile pth_t threadid;
71
PyThread_init_thread();
72
/* Jump through some hoops for Alpha OSF/1 */
73
threadid = pth_self();
74
return (long) *(long *) &threadid;
77
static void do_PyThread_exit_thread(int no_cleanup)
79
dprintf(("PyThread_exit_thread called\n"));
88
void PyThread_exit_thread(void)
90
do_PyThread_exit_thread(0);
93
void PyThread__exit_thread(void)
95
do_PyThread_exit_thread(1);
99
static void do_PyThread_exit_prog(int status, int no_cleanup)
101
dprintf(("PyThread_exit_prog(%d) called\n", status));
109
void PyThread_exit_prog(int status)
111
do_PyThread_exit_prog(status, 0);
114
void PyThread__exit_prog(int status)
116
do_PyThread_exit_prog(status, 1);
118
#endif /* NO_EXIT_PROG */
123
PyThread_type_lock PyThread_allocate_lock(void)
126
int status, error = 0;
128
dprintf(("PyThread_allocate_lock called\n"));
130
PyThread_init_thread();
132
lock = (pth_lock *) malloc(sizeof(pth_lock));
133
memset((void *)lock, '\0', sizeof(pth_lock));
136
status = pth_mutex_init(&lock->mut);
137
CHECK_STATUS("pth_mutex_init");
138
status = pth_cond_init(&lock->lock_released);
139
CHECK_STATUS("pth_cond_init");
145
dprintf(("PyThread_allocate_lock() -> %p\n", lock));
146
return (PyThread_type_lock) lock;
149
void PyThread_free_lock(PyThread_type_lock lock)
151
pth_lock *thelock = (pth_lock *)lock;
153
dprintf(("PyThread_free_lock(%p) called\n", lock));
155
free((void *)thelock);
158
int PyThread_acquire_lock(PyThread_type_lock lock, int waitflag)
161
pth_lock *thelock = (pth_lock *)lock;
162
int status, error = 0;
164
dprintf(("PyThread_acquire_lock(%p, %d) called\n", lock, waitflag));
166
status = pth_mutex_acquire(&thelock->mut, !waitflag, NULL);
167
CHECK_STATUS("pth_mutex_acquire[1]");
168
success = thelock->locked == 0;
169
if (success) thelock->locked = 1;
170
status = pth_mutex_release( &thelock->mut );
171
CHECK_STATUS("pth_mutex_release[1]");
173
if ( !success && waitflag ) {
174
/* continue trying until we get the lock */
176
/* mut must be locked by me -- part of the condition
178
status = pth_mutex_acquire( &thelock->mut, !waitflag, NULL );
179
CHECK_STATUS("pth_mutex_acquire[2]");
180
while ( thelock->locked ) {
181
status = pth_cond_await(&thelock->lock_released,
182
&thelock->mut, NULL);
183
CHECK_STATUS("pth_cond_await");
186
status = pth_mutex_release( &thelock->mut );
187
CHECK_STATUS("pth_mutex_release[2]");
190
if (error) success = 0;
191
dprintf(("PyThread_acquire_lock(%p, %d) -> %d\n", lock, waitflag, success));
195
void PyThread_release_lock(PyThread_type_lock lock)
197
pth_lock *thelock = (pth_lock *)lock;
198
int status, error = 0;
200
dprintf(("PyThread_release_lock(%p) called\n", lock));
202
status = pth_mutex_acquire( &thelock->mut, 0, NULL );
203
CHECK_STATUS("pth_mutex_acquire[3]");
207
status = pth_mutex_release( &thelock->mut );
208
CHECK_STATUS("pth_mutex_release[3]");
210
/* wake up someone (anyone, if any) waiting on the lock */
211
status = pth_cond_notify( &thelock->lock_released, 0 );
212
CHECK_STATUS("pth_cond_notify");