IO-AIO/xthread.h

/* wether word reads are potentially non-atomic.
 * this is conservatice, likely most arches this runs
 * on have atomic word read/writes.
 */
#ifndef WORDACCESS_UNSAFE
# if __i386 || __x86_64
#  define WORDACCESS_UNSAFE 0
# else
#  define WORDACCESS_UNSAFE 1
# endif
#endif

/////////////////////////////////////////////////////////////////////////////

#ifdef _WIN32
typedef int ssize_t;

#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 <winsock2.h>
#include <process.h>
#include <windows.h>
#define sigset_t int
#define sigfillset(a)
#define pthread_sigmask(a,b,c)
#define sigaddset(a,b)
#define sigemptyset(s)
#define sigfillset(s)

#define pthread_kill(a,b)
#define pthread_self()  0

typedef HANDLE mutex_t;
#define X_MUTEX_INIT 0
#define X_MUTEX_CHECK(mutex)   if (!(mutex)) (mutex) = CreateMutex (NULL, FALSE, NULL)
#define X_LOCK(mutex)          WaitForSingleObject ((mutex), INFINITE)
#define X_UNLOCK(mutex)        ReleaseMutex (mutex)

typedef HANDLE cond_t;
#define X_COND_INIT 0
#define X_COND_CHECK(cond)              if (!(cond)) (cond) = CreateEvent (NULL, FALSE, FALSE, NULL)
#define X_COND_SIGNAL(cond)             SetEvent (cond)
#define X_COND_WAIT(cond,mutex)         do { SignalObjectAndWait ((mutex), (cond),INFINITE, FALSE); WaitForSingleObject ((mutex), INFINITE); } while (0)

#define ETIMEDOUT 1

struct timespec {
  unsigned long tv_sec, tv_nsec;
};

static int
X_COND_TIMEDWAIT (mutex_t mutex, cond_t cond, struct timespec to)
{
  unsigned long ms = to.tv_nsec / 1000 + to.tv_sec * 1000;

  if (SignalObjectAndWait (mutex, cond, ms, FALSE) == WAIT_TIMEOUT)
    return ETIMEDOUT;

  if (WaitForSingleObject (mutex, ms) == WAIT_TIMEOUT)
    return ETIMEDOUT;

  return 0;
}

typedef DWORD thread_t;
#define X_THREAD_PROC(name) DWORD WINAPI name (LPVOID thr_arg)
#define X_THREAD_ATFORK(a,b,c)

static int
thread_create (thread_t *tid, LPTHREAD_START_ROUTINE proc, void *arg)
{
  *tid = 0;
  CreateThread (0, 4096, proc, arg, 0, tid);
  return !!*tid;
}

int Perl_my_socketpair (int family, int type, int protocol, int fd[2]);

static int
create_pipe (int fd[2])
{
  int arg = 1;
  Perl_my_socketpair (AF_UNIX, SOCK_STREAM, 0, fd);
  ioctlsocket (fd [0], FIONBIO, &arg);
  ioctlsocket (fd [1], FIONBIO, &arg);

  return 1;
}

#else
/////////////////////////////////////////////////////////////////////////////

/* solaris */
#define _POSIX_PTHREAD_SEMANTICS 1

#if __linux && !defined(_GNU_SOURCE)
# define _GNU_SOURCE
#endif

/* just in case */
#define _REENTRANT 1

#include <unistd.h>
#include <fcntl.h>
#include <signal.h>
#include <pthread.h>

#ifndef PTHREAD_STACK_MIN
/* care for broken platforms, e.g. windows */
# define PTHREAD_STACK_MIN 16384
#endif

typedef pthread_mutex_t mutex_t;
#if __linux && defined (PTHREAD_ADAPTIVE_MUTEX_INITIALIZER_NP)
# define X_MUTEX_INIT PTHREAD_ADAPTIVE_MUTEX_INITIALIZER_NP
#else
# define X_MUTEX_INIT PTHREAD_MUTEX_INITIALIZER
#endif
#define X_LOCK(mutex)   pthread_mutex_lock   (&(mutex))
#define X_UNLOCK(mutex) pthread_mutex_unlock (&(mutex))

typedef pthread_cond_t cond_t;
#define X_COND_INIT PTHREAD_COND_INITIALIZER
#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 thread_t;
#define X_THREAD_PROC(name) static void *name (void *thr_arg)
#define X_THREAD_ATFORK(prepare,parent,child) pthread_atfork (prepare, parent, child)

static int
thread_create (thread_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);
#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);

  return retval;
}

static int
create_pipe (int fd[2])
{
  if (pipe (fd)
      || fcntl (fd [0], F_SETFL, O_NONBLOCK)
      || fcntl (fd [1], F_SETFL, O_NONBLOCK))
    return 0;

  return 1;
}

#endif

#if __ia64
# define STACKSIZE 65536
#elif __i386 || __x86_64 /* 16k is unreasonably high :( */
# define STACKSIZE PTHREAD_STACK_MIN
#else
# define STACKSIZE 16384
#endif


Revision:	1.2
Committed:	Sun Jul 8 09:09:34 2007 UTC (17 years, 5 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.1:	+130 -32 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.2	/* wether word reads are potentially non-atomic.
2			* this is conservatice, likely most arches this runs
3			* on have atomic word read/writes.
4			*/
5			#ifndef WORDACCESS_UNSAFE
6			# if __i386 \|\| __x86_64
7			# define WORDACCESS_UNSAFE 0
8			# else
9			# define WORDACCESS_UNSAFE 1
10			# endif
11			#endif
12
13			/////////////////////////////////////////////////////////////////////////////
14
15			#ifdef _WIN32
16			typedef int ssize_t;
17
18			#define NTDDI_VERSION NTDDI_WIN2K // needed to get win2000 api calls
19			#define _WIN32_WINNT 0x400
20			#include <stdio.h>//D
21			#include <fcntl.h>
22			#include <io.h>
23			#include <winsock2.h>
24			#include <process.h>
25			#include <windows.h>
26			#define sigset_t int
27			#define sigfillset(a)
28			#define pthread_sigmask(a,b,c)
29			#define sigaddset(a,b)
30			#define sigemptyset(s)
31			#define sigfillset(s)
32
33			#define pthread_kill(a,b)
34			#define pthread_self() 0
35
36			typedef HANDLE mutex_t;
37			#define X_MUTEX_INIT 0
38			#define X_MUTEX_CHECK(mutex) if (!(mutex)) (mutex) = CreateMutex (NULL, FALSE, NULL)
39			#define X_LOCK(mutex) WaitForSingleObject ((mutex), INFINITE)
40			#define X_UNLOCK(mutex) ReleaseMutex (mutex)
41
42			typedef HANDLE cond_t;
43			#define X_COND_INIT 0
44			#define X_COND_CHECK(cond) if (!(cond)) (cond) = CreateEvent (NULL, FALSE, FALSE, NULL)
45			#define X_COND_SIGNAL(cond) SetEvent (cond)
46			#define X_COND_WAIT(cond,mutex) do { SignalObjectAndWait ((mutex), (cond),INFINITE, FALSE); WaitForSingleObject ((mutex), INFINITE); } while (0)
47
48			#define ETIMEDOUT 1
49
50			struct timespec {
51			unsigned long tv_sec, tv_nsec;
52			};
53
54			static int
55			X_COND_TIMEDWAIT (mutex_t mutex, cond_t cond, struct timespec to)
56			{
57			unsigned long ms = to.tv_nsec / 1000 + to.tv_sec * 1000;
58
59			if (SignalObjectAndWait (mutex, cond, ms, FALSE) == WAIT_TIMEOUT)
60			return ETIMEDOUT;
61
62			if (WaitForSingleObject (mutex, ms) == WAIT_TIMEOUT)
63			return ETIMEDOUT;
64
65			return 0;
66			}
67
68			typedef DWORD thread_t;
69			#define X_THREAD_PROC(name) DWORD WINAPI name (LPVOID thr_arg)
70			#define X_THREAD_ATFORK(a,b,c)
71
72			static int
73			thread_create (thread_t tid, LPTHREAD_START_ROUTINE proc, void arg)
74			{
75			*tid = 0;
76			CreateThread (0, 4096, proc, arg, 0, tid);
77			return !!*tid;
78			}
79
80			int Perl_my_socketpair (int family, int type, int protocol, int fd[2]);
81
82			static int
83			create_pipe (int fd[2])
84			{
85			int arg = 1;
86			Perl_my_socketpair (AF_UNIX, SOCK_STREAM, 0, fd);
87			ioctlsocket (fd [0], FIONBIO, &arg);
88			ioctlsocket (fd [1], FIONBIO, &arg);
89
90			return 1;
91			}
92
93			#else
94			/////////////////////////////////////////////////////////////////////////////
95
96	root	1.1	/* solaris */
97			#define _POSIX_PTHREAD_SEMANTICS 1
98
99			#if __linux && !defined(_GNU_SOURCE)
100			# define _GNU_SOURCE
101			#endif
102
103			/* just in case */
104			#define _REENTRANT 1
105
106	root	1.2	#include <unistd.h>
107			#include <fcntl.h>
108	root	1.1	#include <signal.h>
109			#include <pthread.h>
110
111			#ifndef PTHREAD_STACK_MIN
112			/* care for broken platforms, e.g. windows */
113			# define PTHREAD_STACK_MIN 16384
114			#endif
115
116			typedef pthread_mutex_t mutex_t;
117			#if __linux && defined (PTHREAD_ADAPTIVE_MUTEX_INITIALIZER_NP)
118	root	1.2	# define X_MUTEX_INIT PTHREAD_ADAPTIVE_MUTEX_INITIALIZER_NP
119	root	1.1	#else
120	root	1.2	# define X_MUTEX_INIT PTHREAD_MUTEX_INITIALIZER
121	root	1.1	#endif
122	root	1.2	#define X_LOCK(mutex) pthread_mutex_lock (&(mutex))
123			#define X_UNLOCK(mutex) pthread_mutex_unlock (&(mutex))
124	root	1.1
125			typedef pthread_cond_t cond_t;
126	root	1.2	#define X_COND_INIT PTHREAD_COND_INITIALIZER
127			#define X_COND_SIGNAL(cond) pthread_cond_signal (&(cond))
128			#define X_COND_WAIT(cond,mutex) pthread_cond_wait (&(cond), &(mutex))
129			#define X_COND_TIMEDWAIT(cond,mutex,to) pthread_cond_timedwait (&(cond), &(mutex), &(to))
130	root	1.1
131			typedef pthread_t thread_t;
132	root	1.2	#define X_THREAD_PROC(name) static void name (void thr_arg)
133			#define X_THREAD_ATFORK(prepare,parent,child) pthread_atfork (prepare, parent, child)
134	root	1.1
135	root	1.2	static int
136			thread_create (thread_t tid, void (proc)(void ), void *arg)
137	root	1.1	{
138			int retval;
139			sigset_t fullsigset, oldsigset;
140			pthread_attr_t attr;
141
142			pthread_attr_init (&attr);
143			pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED);
144			#ifdef PTHREAD_SCOPE_PROCESS
145			pthread_attr_setscope (&attr, PTHREAD_SCOPE_PROCESS);
146			#endif
147
148			sigfillset (&fullsigset);
149
150			pthread_sigmask (SIG_SETMASK, &fullsigset, &oldsigset);
151			retval = pthread_create (tid, &attr, proc, arg) == 0;
152			pthread_sigmask (SIG_SETMASK, &oldsigset, 0);
153
154			return retval;
155			}
156
157	root	1.2	static int
158			create_pipe (int fd[2])
159			{
160			if (pipe (fd)
161			\|\| fcntl (fd [0], F_SETFL, O_NONBLOCK)
162			\|\| fcntl (fd [1], F_SETFL, O_NONBLOCK))
163			return 0;
164
165			return 1;
166			}
167
168			#endif
169
170			#if __ia64
171			# define STACKSIZE 65536
172			#elif __i386 \|\| __x86_64 /* 16k is unreasonably high :( */
173			# define STACKSIZE PTHREAD_STACK_MIN
174			#else
175			# define STACKSIZE 16384
176			#endif
177
178	root	1.1