123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 |
- #ifndef SCM_PTHREADS_THREADS_H
- #define SCM_PTHREADS_THREADS_H
- /* Copyright 2002,2005-2006,2011,2018
- Free Software Foundation, Inc.
- This file is part of Guile.
- Guile is free software: you can redistribute it and/or modify it
- under the terms of the GNU Lesser General Public License as published
- by the Free Software Foundation, either version 3 of the License, or
- (at your option) any later version.
- Guile is distributed in the hope that it will be useful, but WITHOUT
- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
- License for more details.
- You should have received a copy of the GNU Lesser General Public
- License along with Guile. If not, see
- <https://www.gnu.org/licenses/>. */
- /* The pthreads-threads implementation. This is a direct mapping.
- */
- #include <pthread.h>
- #include <sched.h>
- /* Threads
- */
- #define scm_i_pthread_t pthread_t
- #define scm_i_pthread_self pthread_self
- #define scm_i_pthread_create pthread_create
- #define scm_i_pthread_detach pthread_detach
- #define scm_i_pthread_exit pthread_exit
- #define scm_i_pthread_cancel pthread_cancel
- #define scm_i_pthread_cleanup_push pthread_cleanup_push
- #define scm_i_pthread_cleanup_pop pthread_cleanup_pop
- #define scm_i_sched_yield sched_yield
- /* Signals
- */
- #define scm_i_pthread_sigmask pthread_sigmask
- /* Mutexes
- */
- #if SCM_NEED_BRACES_ON_PTHREAD_MUTEX_INITIALIZER
- # define SCM_I_PTHREAD_MUTEX_INITIALIZER { PTHREAD_MUTEX_INITIALIZER }
- #else
- # define SCM_I_PTHREAD_MUTEX_INITIALIZER PTHREAD_MUTEX_INITIALIZER
- #endif
- #define scm_i_pthread_mutex_t pthread_mutex_t
- #define scm_i_pthread_mutex_init pthread_mutex_init
- #define scm_i_pthread_mutex_destroy pthread_mutex_destroy
- #define scm_i_pthread_mutex_trylock pthread_mutex_trylock
- #define scm_i_pthread_mutex_lock pthread_mutex_lock
- #define scm_i_pthread_mutex_unlock pthread_mutex_unlock
- extern pthread_mutexattr_t scm_i_pthread_mutexattr_recursive[1];
- /* Condition variables
- */
- #define SCM_I_PTHREAD_COND_INITIALIZER PTHREAD_COND_INITIALIZER
- #define scm_i_pthread_cond_t pthread_cond_t
- #define scm_i_pthread_cond_init pthread_cond_init
- #define scm_i_pthread_cond_destroy pthread_cond_destroy
- #define scm_i_pthread_cond_signal pthread_cond_signal
- #define scm_i_pthread_cond_broadcast pthread_cond_broadcast
- #define scm_i_pthread_cond_wait pthread_cond_wait
- #define scm_i_pthread_cond_timedwait pthread_cond_timedwait
- /* Onces
- */
- #define scm_i_pthread_once_t pthread_once_t
- #define scm_i_pthread_once pthread_once
- #if SCM_NEED_BRACES_ON_PTHREAD_ONCE_INIT
- #define SCM_I_PTHREAD_ONCE_INIT { PTHREAD_ONCE_INIT }
- #else
- #define SCM_I_PTHREAD_ONCE_INIT PTHREAD_ONCE_INIT
- #endif
- /* Thread specific storage
- */
- #define scm_i_pthread_key_t pthread_key_t
- #define scm_i_pthread_key_create pthread_key_create
- #define scm_i_pthread_setspecific pthread_setspecific
- #define scm_i_pthread_getspecific pthread_getspecific
- /* Convenience functions
- */
- #define scm_i_scm_pthread_mutex_lock scm_pthread_mutex_lock
- #define scm_i_dynwind_pthread_mutex_lock scm_dynwind_pthread_mutex_lock
- #define scm_i_scm_pthread_cond_wait scm_pthread_cond_wait
- #define scm_i_scm_pthread_cond_timedwait scm_pthread_cond_timedwait
- #endif /* SCM_PTHREADS_THREADS_H */
|