libguile/pthread-threads.h

   1 /* classes: h_files */
   2
   3 #ifndef SCM_PTHREADS_THREADS_H
   4 #define SCM_PTHREADS_THREADS_H
   5
   6 /* Copyright (C) 2002, 2005, 2006, 2011 Free Software Foundation, Inc.
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public License
  10  * as published by the Free Software Foundation; either version 3 of
  11  * the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful, but
  14  * WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  21  * 02110-1301 USA
  22  */
  23
  24 \f
  25
  26 /* The pthreads-threads implementation.  This is a direct mapping.
  27 */
  28
  29 #include <pthread.h>
  30 #include <sched.h>
  31
  32 /* `libgc' defines wrapper procedures for pthread calls.  */
  33 #include "libguile/bdw-gc.h"
  34
  35 /* Threads
  36 */
  37 #define scm_i_pthread_t                     pthread_t
  38 #define scm_i_pthread_self                  pthread_self
  39 #define scm_i_pthread_create                GC_pthread_create
  40 #define scm_i_pthread_detach                GC_pthread_detach
  41
  42 #if SCM_HAVE_GC_PTHREAD_EXIT
  43 #define scm_i_pthread_exit                  GC_pthread_exit
  44 #else
  45 #define scm_i_pthread_exit                  pthread_exit
  46 #endif
  47
  48 #if SCM_HAVE_GC_PTHREAD_CANCEL
  49 #define scm_i_pthread_cancel                GC_pthread_cancel
  50 #else
  51 #define scm_i_pthread_cancel                pthread_cancel
  52 #endif
  53
  54 #define scm_i_pthread_cleanup_push          pthread_cleanup_push
  55 #define scm_i_pthread_cleanup_pop           pthread_cleanup_pop
  56 #define scm_i_sched_yield                   sched_yield
  57
  58 /* Signals
  59  */
  60 #if SCM_HAVE_GC_PTHREAD_SIGMASK
  61 #define scm_i_pthread_sigmask               GC_pthread_sigmask
  62 #else
  63 #define scm_i_pthread_sigmask               pthread_sigmask
  64 #endif
  65
  66 /* Mutexes
  67  */
  68 #if SCM_NEED_BRACES_ON_PTHREAD_MUTEX_INITIALIZER
  69 # define SCM_I_PTHREAD_MUTEX_INITIALIZER     { PTHREAD_MUTEX_INITIALIZER }
  70 #else
  71 # define SCM_I_PTHREAD_MUTEX_INITIALIZER     PTHREAD_MUTEX_INITIALIZER
  72 #endif
  73 #define scm_i_pthread_mutex_t               pthread_mutex_t
  74 #define scm_i_pthread_mutex_init            pthread_mutex_init
  75 #define scm_i_pthread_mutex_destroy         pthread_mutex_destroy
  76 #define scm_i_pthread_mutex_trylock         pthread_mutex_trylock
  77 #define scm_i_pthread_mutex_lock            pthread_mutex_lock
  78 #define scm_i_pthread_mutex_unlock          pthread_mutex_unlock
  79 extern pthread_mutexattr_t scm_i_pthread_mutexattr_recursive[1];
  80
  81 /* Condition variables
  82  */
  83 #define SCM_I_PTHREAD_COND_INITIALIZER      PTHREAD_COND_INITIALIZER
  84 #define scm_i_pthread_cond_t                pthread_cond_t
  85 #define scm_i_pthread_cond_init             pthread_cond_init
  86 #define scm_i_pthread_cond_destroy          pthread_cond_destroy
  87 #define scm_i_pthread_cond_signal           pthread_cond_signal
  88 #define scm_i_pthread_cond_broadcast        pthread_cond_broadcast
  89 #define scm_i_pthread_cond_wait             pthread_cond_wait
  90 #define scm_i_pthread_cond_timedwait        pthread_cond_timedwait
  91
  92 /* Onces
  93  */
  94 #define scm_i_pthread_once_t                pthread_once_t
  95 #define scm_i_pthread_once                  pthread_once
  96 #if SCM_NEED_BRACES_ON_PTHREAD_ONCE_INIT
  97 #define SCM_I_PTHREAD_ONCE_INIT             { PTHREAD_ONCE_INIT }
  98 #else
  99 #define SCM_I_PTHREAD_ONCE_INIT             PTHREAD_ONCE_INIT
 100 #endif
 101
 102 /* Thread specific storage
 103  */
 104 #define scm_i_pthread_key_t                 pthread_key_t
 105 #define scm_i_pthread_key_create            pthread_key_create
 106 #define scm_i_pthread_setspecific           pthread_setspecific
 107 #define scm_i_pthread_getspecific           pthread_getspecific
 108
 109 /* Convenience functions
 110  */
 111 #define scm_i_scm_pthread_mutex_lock        scm_pthread_mutex_lock
 112 #define scm_i_dynwind_pthread_mutex_lock    scm_dynwind_pthread_mutex_lock
 113 #define scm_i_scm_pthread_cond_wait         scm_pthread_cond_wait
 114 #define scm_i_scm_pthread_cond_timedwait    scm_pthread_cond_timedwait
 115
 116 #endif  /* SCM_PTHREADS_THREADS_H */
 117
 118 /*
 119   Local Variables:
 120   c-file-style: "gnu"
 121   End:
 122 */