155 lines
4.4 KiB
C
155 lines
4.4 KiB
C
#ifndef XTHREAD_H_
|
|
#define XTHREAD_H_
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
#ifdef _WIN32
|
|
|
|
#define NTDDI_VERSION NTDDI_WIN2K // needed to get win2000 api calls
|
|
#define _WIN32_WINNT 0x400
|
|
#include <stdio.h>//D
|
|
#include <fcntl.h>
|
|
#include <io.h>
|
|
#include <time.h>
|
|
#include <winsock2.h>
|
|
#include <process.h>
|
|
#include <windows.h>
|
|
#include <pthread.h>
|
|
#define sigset_t int
|
|
#define sigfillset(a)
|
|
#define pthread_sigmask(a,b,c)
|
|
#define sigaddset(a,b)
|
|
#define sigemptyset(s)
|
|
|
|
typedef pthread_mutex_t xmutex_t;
|
|
#define X_MUTEX_INIT PTHREAD_MUTEX_INITIALIZER
|
|
#define X_MUTEX_CREATE(mutex) pthread_mutex_init (&(mutex), 0)
|
|
#define X_LOCK(mutex) pthread_mutex_lock (&(mutex))
|
|
#define X_UNLOCK(mutex) pthread_mutex_unlock (&(mutex))
|
|
|
|
typedef pthread_cond_t xcond_t;
|
|
#define X_COND_INIT PTHREAD_COND_INITIALIZER
|
|
#define X_COND_CREATE(cond) pthread_cond_init (&(cond), 0)
|
|
#define X_COND_SIGNAL(cond) pthread_cond_signal (&(cond))
|
|
#define X_COND_WAIT(cond,mutex) pthread_cond_wait (&(cond), &(mutex))
|
|
#define X_COND_TIMEDWAIT(cond,mutex,to) pthread_cond_timedwait (&(cond), &(mutex), &(to))
|
|
|
|
typedef pthread_t xthread_t;
|
|
#define X_THREAD_PROC(name) void *name (void *thr_arg)
|
|
#define X_THREAD_ATFORK(a,b,c)
|
|
|
|
static int
|
|
thread_create (xthread_t *tid, void *(*proc)(void *), void *arg)
|
|
{
|
|
int retval;
|
|
pthread_attr_t attr;
|
|
|
|
pthread_attr_init (&attr);
|
|
pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED);
|
|
|
|
retval = pthread_create (tid, &attr, proc, arg) == 0;
|
|
|
|
pthread_attr_destroy (&attr);
|
|
|
|
return retval;
|
|
}
|
|
|
|
#define respipe_read(a,b,c) PerlSock_recv ((a), (b), (c), 0)
|
|
#define respipe_write(a,b,c) send ((a), (b), (c), 0)
|
|
#define respipe_close(a) PerlSock_closesocket ((a))
|
|
|
|
#else
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
|
|
#if __linux && !defined(_GNU_SOURCE)
|
|
# define _GNU_SOURCE
|
|
#endif
|
|
|
|
/* just in case */
|
|
#define _REENTRANT 1
|
|
|
|
#if __solaris
|
|
# define _POSIX_PTHREAD_SEMANTICS 1
|
|
/* try to bribe solaris headers into providing a current pthread API
|
|
* despite environment being configured for an older version.
|
|
*/
|
|
# define __EXTENSIONS__ 1
|
|
#endif
|
|
|
|
#include <unistd.h>
|
|
#include <fcntl.h>
|
|
#include <signal.h>
|
|
#include <limits.h>
|
|
#include <pthread.h>
|
|
|
|
typedef pthread_mutex_t xmutex_t;
|
|
#if __linux && defined (PTHREAD_ADAPTIVE_MUTEX_INITIALIZER_NP)
|
|
# define X_MUTEX_INIT PTHREAD_ADAPTIVE_MUTEX_INITIALIZER_NP
|
|
# define X_MUTEX_CREATE(mutex) \
|
|
do { \
|
|
pthread_mutexattr_t attr; \
|
|
pthread_mutexattr_init (&attr); \
|
|
pthread_mutexattr_settype (&attr, PTHREAD_MUTEX_ADAPTIVE_NP); \
|
|
pthread_mutex_init (&(mutex), &attr); \
|
|
} while (0)
|
|
#else
|
|
# define X_MUTEX_INIT PTHREAD_MUTEX_INITIALIZER
|
|
# define X_MUTEX_CREATE(mutex) pthread_mutex_init (&(mutex), 0)
|
|
#endif
|
|
#define X_LOCK(mutex) pthread_mutex_lock (&(mutex))
|
|
#define X_UNLOCK(mutex) pthread_mutex_unlock (&(mutex))
|
|
|
|
typedef pthread_cond_t xcond_t;
|
|
#define X_COND_INIT PTHREAD_COND_INITIALIZER
|
|
#define X_COND_CREATE(cond) pthread_cond_init (&(cond), 0)
|
|
#define X_COND_SIGNAL(cond) pthread_cond_signal (&(cond))
|
|
#define X_COND_WAIT(cond,mutex) pthread_cond_wait (&(cond), &(mutex))
|
|
#define X_COND_TIMEDWAIT(cond,mutex,to) pthread_cond_timedwait (&(cond), &(mutex), &(to))
|
|
|
|
typedef pthread_t xthread_t;
|
|
#define X_THREAD_PROC(name) static void *name (void *thr_arg)
|
|
#define X_THREAD_ATFORK(prepare,parent,child) pthread_atfork (prepare, parent, child)
|
|
|
|
// the broken bsd's once more
|
|
#ifndef PTHREAD_STACK_MIN
|
|
# define PTHREAD_STACK_MIN 0
|
|
#endif
|
|
|
|
#ifndef X_STACKSIZE
|
|
# define X_STACKSIZE sizeof (void *) * 4096
|
|
#endif
|
|
|
|
static int
|
|
thread_create (xthread_t *tid, void *(*proc)(void *), void *arg)
|
|
{
|
|
int retval;
|
|
sigset_t fullsigset, oldsigset;
|
|
pthread_attr_t attr;
|
|
|
|
pthread_attr_init (&attr);
|
|
pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED);
|
|
pthread_attr_setstacksize (&attr, PTHREAD_STACK_MIN < X_STACKSIZE ? X_STACKSIZE : PTHREAD_STACK_MIN);
|
|
#ifdef PTHREAD_SCOPE_PROCESS
|
|
pthread_attr_setscope (&attr, PTHREAD_SCOPE_PROCESS);
|
|
#endif
|
|
|
|
sigfillset (&fullsigset);
|
|
|
|
pthread_sigmask (SIG_SETMASK, &fullsigset, &oldsigset);
|
|
retval = pthread_create (tid, &attr, proc, arg) == 0;
|
|
pthread_sigmask (SIG_SETMASK, &oldsigset, 0);
|
|
|
|
pthread_attr_destroy (&attr);
|
|
|
|
return retval;
|
|
}
|
|
|
|
#define respipe_read(a,b,c) read ((a), (b), (c))
|
|
#define respipe_write(a,b,c) write ((a), (b), (c))
|
|
#define respipe_close(a) close ((a))
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|