1994-05-09 12:12:46 -03:00
|
|
|
/***********************************************************
|
1995-01-04 15:12:13 -04:00
|
|
|
Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
|
|
|
|
The Netherlands.
|
1994-05-09 12:12:46 -03:00
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
1996-10-25 11:44:06 -03:00
|
|
|
Permission to use, copy, modify, and distribute this software and its
|
|
|
|
documentation for any purpose and without fee is hereby granted,
|
1994-05-09 12:12:46 -03:00
|
|
|
provided that the above copyright notice appear in all copies and that
|
1996-10-25 11:44:06 -03:00
|
|
|
both that copyright notice and this permission notice appear in
|
1994-05-09 12:12:46 -03:00
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
1996-10-25 11:44:06 -03:00
|
|
|
Centrum or CWI or Corporation for National Research Initiatives or
|
|
|
|
CNRI not be used in advertising or publicity pertaining to
|
|
|
|
distribution of the software without specific, written prior
|
|
|
|
permission.
|
|
|
|
|
|
|
|
While CWI is the initial source for this software, a modified version
|
|
|
|
is made available by the Corporation for National Research Initiatives
|
|
|
|
(CNRI) at the Internet address ftp://ftp.python.org.
|
|
|
|
|
|
|
|
STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
|
|
|
|
REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
|
|
|
|
MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
|
|
|
|
CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
|
|
|
|
DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
|
|
|
|
PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|
|
|
|
TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
|
|
PERFORMANCE OF THIS SOFTWARE.
|
1994-05-09 12:12:46 -03:00
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Initialization.
|
|
|
|
*/
|
1998-12-21 15:32:43 -04:00
|
|
|
static void PyThread__init_thread _P0()
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Thread support.
|
|
|
|
*/
|
1998-12-21 15:32:43 -04:00
|
|
|
int PyThread_start_new_thread _P2(func, void (*func) _P((void *)), arg, void *arg)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
|
|
|
int success = 0; /* init not needed when SOLARIS_THREADS and */
|
|
|
|
/* C_THREADS implemented properly */
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_start_new_thread called\n"));
|
1994-05-09 12:12:46 -03:00
|
|
|
if (!initialized)
|
1998-12-21 15:32:43 -04:00
|
|
|
PyThread_init_thread();
|
1994-05-09 12:12:46 -03:00
|
|
|
return success < 0 ? 0 : 1;
|
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
long PyThread_get_thread_ident _P0()
|
1994-05-23 09:43:41 -03:00
|
|
|
{
|
|
|
|
if (!initialized)
|
1998-12-21 15:32:43 -04:00
|
|
|
PyThread_init_thread();
|
1994-05-23 09:43:41 -03:00
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
static void do_PyThread_exit_thread _P1(no_cleanup, int no_cleanup)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_exit_thread called\n"));
|
1994-05-09 12:12:46 -03:00
|
|
|
if (!initialized)
|
|
|
|
if (no_cleanup)
|
|
|
|
_exit(0);
|
|
|
|
else
|
|
|
|
exit(0);
|
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
void PyThread_exit_thread _P0()
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
do_PyThread_exit_thread(0);
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
void PyThread__exit_thread _P0()
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
do_PyThread_exit_thread(1);
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
#ifndef NO_EXIT_PROG
|
1998-12-21 15:32:43 -04:00
|
|
|
static void do_PyThread_exit_prog _P2(status, int status, no_cleanup, int no_cleanup)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_exit_prog(%d) called\n", status));
|
1994-05-09 12:12:46 -03:00
|
|
|
if (!initialized)
|
|
|
|
if (no_cleanup)
|
|
|
|
_exit(status);
|
|
|
|
else
|
|
|
|
exit(status);
|
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
void PyThread_exit_prog _P1(status, int status)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
do_PyThread_exit_prog(status, 0);
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
void PyThread__exit_prog _P1(status, int status)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
do_PyThread_exit_prog(status, 1);
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|
|
|
|
#endif /* NO_EXIT_PROG */
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Lock support.
|
|
|
|
*/
|
1998-12-21 15:32:43 -04:00
|
|
|
PyThread_type_lock PyThread_allocate_lock _P0()
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_allocate_lock called\n"));
|
1994-05-09 12:12:46 -03:00
|
|
|
if (!initialized)
|
1998-12-21 15:32:43 -04:00
|
|
|
PyThread_init_thread();
|
1994-05-09 12:12:46 -03:00
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_allocate_lock() -> %lx\n", (long)lock));
|
|
|
|
return (PyThread_type_lock) lock;
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
void PyThread_free_lock _P1(lock, PyThread_type_lock lock)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_free_lock(%lx) called\n", (long)lock));
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
int PyThread_acquire_lock _P2(lock, PyThread_type_lock lock, waitflag, int waitflag)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
|
|
|
int success;
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_acquire_lock(%lx, %d) called\n", (long)lock, waitflag));
|
|
|
|
dprintf(("PyThread_acquire_lock(%lx, %d) -> %d\n", (long)lock, waitflag, success));
|
1994-05-09 12:12:46 -03:00
|
|
|
return success;
|
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
void PyThread_release_lock _P1(lock, PyThread_type_lock lock)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_release_lock(%lx) called\n", (long)lock));
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Semaphore support.
|
|
|
|
*/
|
1998-12-21 15:32:43 -04:00
|
|
|
PyThread_type_sema PyThread_allocate_sema _P1(value, int value)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_allocate_sema called\n"));
|
1994-05-09 12:12:46 -03:00
|
|
|
if (!initialized)
|
1998-12-21 15:32:43 -04:00
|
|
|
PyThread_init_thread();
|
1994-05-09 12:12:46 -03:00
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_allocate_sema() -> %lx\n", (long) sema));
|
|
|
|
return (PyThread_type_sema) sema;
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
void PyThread_free_sema _P1(sema, PyThread_type_sema sema)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_free_sema(%lx) called\n", (long) sema));
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
int PyThread_down_sema _P2(sema, PyThread_type_sema sema, waitflag, int waitflag)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_down_sema(%lx, %d) called\n", (long) sema, waitflag));
|
|
|
|
dprintf(("PyThread_down_sema(%lx) return\n", (long) sema));
|
1996-10-08 11:17:53 -03:00
|
|
|
return -1;
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|
|
|
|
|
1998-12-21 15:32:43 -04:00
|
|
|
void PyThread_up_sema _P1(sema, PyThread_type_sema sema)
|
1994-05-09 12:12:46 -03:00
|
|
|
{
|
1998-12-21 15:32:43 -04:00
|
|
|
dprintf(("PyThread_up_sema(%lx)\n", (long) sema));
|
1994-05-09 12:12:46 -03:00
|
|
|
}
|