diff options
Diffstat (limited to 'Python/thread_solaris.h')
| -rw-r--r-- | Python/thread_solaris.h | 219 |
1 files changed, 219 insertions, 0 deletions
diff --git a/Python/thread_solaris.h b/Python/thread_solaris.h new file mode 100644 index 0000000..08cf6dd --- /dev/null +++ b/Python/thread_solaris.h @@ -0,0 +1,219 @@ +/*********************************************************** +Copyright 1991, 1992, 1993, 1994 by Stichting Mathematisch Centrum, +Amsterdam, The Netherlands. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Stichting Mathematisch +Centrum or CWI not be used in advertising or publicity pertaining to +distribution of the software without specific, written prior permission. + +STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO +THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND +FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM 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. + +******************************************************************/ + +#include <stdlib.h> +#include <stdio.h> +#include <unistd.h> +#include </usr/include/thread.h> + + +/* + * Initialization. + */ +static void _init_thread _P0() +{ +} + +/* + * Thread support. + */ +struct func_arg { + void (*func) _P((void *)); + void *arg; +}; + +static void *new_func _P1(funcarg, void *funcarg) +{ + void (*func) _P((void *)); + void *arg; + + func = ((struct func_arg *) funcarg)->func; + arg = ((struct func_arg *) funcarg)->arg; + free(funcarg); + (*func)(arg); + return 0; +} + + +int start_new_thread _P2(func, void (*func) _P((void *)), arg, void *arg) +{ + struct func_arg *funcarg; + int success = 0; /* init not needed when SOLARIS_THREADS and */ + /* C_THREADS implemented properly */ + + dprintf(("start_new_thread called\n")); + if (!initialized) + init_thread(); + funcarg = (struct func_arg *) malloc(sizeof(struct func_arg)); + funcarg->func = func; + funcarg->arg = arg; + if (thr_create(0, 0, new_func, funcarg, THR_NEW_LWP, 0)) { + perror("thr_create"); + free((void *) funcarg); + success = -1; + } + return success < 0 ? 0 : 1; +} + +static void do_exit_thread _P1(no_cleanup, int no_cleanup) +{ + dprintf(("exit_thread called\n")); + if (!initialized) + if (no_cleanup) + _exit(0); + else + exit(0); + thr_exit(0); +} + +void exit_thread _P0() +{ + do_exit_thread(0); +} + +void _exit_thread _P0() +{ + do_exit_thread(1); +} + +#ifndef NO_EXIT_PROG +static void do_exit_prog _P2(status, int status, no_cleanup, int no_cleanup) +{ + dprintf(("exit_prog(%d) called\n", status)); + if (!initialized) + if (no_cleanup) + _exit(status); + else + exit(status); + if (no_cleanup) + _exit(status); + else + exit(status); +} + +void exit_prog _P1(status, int status) +{ + do_exit_prog(status, 0); +} + +void _exit_prog _P1(status, int status) +{ + do_exit_prog(status, 1); +} +#endif /* NO_EXIT_PROG */ + +/* + * Lock support. + */ +type_lock allocate_lock _P0() +{ + mutex_t *lock; + + dprintf(("allocate_lock called\n")); + if (!initialized) + init_thread(); + + lock = (mutex_t *) malloc(sizeof(mutex_t)); + if (mutex_init(lock, USYNC_THREAD, 0)) { + perror("mutex_init"); + free((void *) lock); + lock = 0; + } + dprintf(("allocate_lock() -> %lx\n", (long)lock)); + return (type_lock) lock; +} + +void free_lock _P1(lock, type_lock lock) +{ + dprintf(("free_lock(%lx) called\n", (long)lock)); + mutex_destroy((mutex_t *) lock); + free((void *) lock); +} + +int acquire_lock _P2(lock, type_lock lock, waitflag, int waitflag) +{ + int success; + + dprintf(("acquire_lock(%lx, %d) called\n", (long)lock, waitflag)); + if (waitflag) + success = mutex_lock((mutex_t *) lock); + else + success = mutex_trylock((mutex_t *) lock); + if (success < 0) + perror(waitflag ? "mutex_lock" : "mutex_trylock"); + else + success = !success; /* solaris does it the other way round */ + dprintf(("acquire_lock(%lx, %d) -> %d\n", (long)lock, waitflag, success)); + return success; +} + +void release_lock _P1(lock, type_lock lock) +{ + dprintf(("release_lock(%lx) called\n", (long)lock)); + if (mutex_unlock((mutex_t *) lock)) + perror("mutex_unlock"); +} + +/* + * Semaphore support. + */ +type_sema allocate_sema _P1(value, int value) +{ + sema_t *sema; + dprintf(("allocate_sema called\n")); + if (!initialized) + init_thread(); + + sema = (sema_t *) malloc(sizeof(sema_t)); + if (sema_init(sema, value, USYNC_THREAD, 0)) { + perror("sema_init"); + free((void *) sema); + sema = 0; + } + dprintf(("allocate_sema() -> %lx\n", (long) sema)); + return (type_sema) sema; +} + +void free_sema _P1(sema, type_sema sema) +{ + dprintf(("free_sema(%lx) called\n", (long) sema)); + if (sema_destroy((sema_t *) sema)) + perror("sema_destroy"); + free((void *) sema); +} + +void down_sema _P1(sema, type_sema sema) +{ + dprintf(("down_sema(%lx) called\n", (long) sema)); + if (sema_wait((sema_t *) sema)) + perror("sema_wait"); + dprintf(("down_sema(%lx) return\n", (long) sema)); +} + +void up_sema _P1(sema, type_sema sema) +{ + dprintf(("up_sema(%lx)\n", (long) sema)); + if (sema_post((sema_t *) sema)) + perror("sema_post"); +} |