1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Peter Vreman
Copyright (c) 2011 by Jonas Maebe
members of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This file contains a pthread.h headerconversion,
and should contain an interface to the threading library to be
used by systhrd, preferably in a somewhat compatible notation
(compared to the other OSes).
As a start, I simply used libc_r
This program 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.
**********************************************************************}
const
PTHREAD_EXPLICIT_SCHED = 1;
PTHREAD_INHERIT_SCHED = 0;
PTHREAD_CREATE_DETACHED = 1;
PTHREAD_SCOPE_PROCESS = 1;
_PTHREAD_MUTEX_NORMAL = 5;
_PTHREAD_MUTEX_ERRORCHECK = 3;
_PTHREAD_MUTEX_RECURSIVE = 4;
type
sched_param = record
__sched_priority: cint;
__sched_policy : cint;
__sched_reserved: array[0..5] of cint;
end;
sem_t = cint;
psem_t = ^sem_t;
TSemaphore = sem_t;
PSemaphore = ^TSemaphore;
ppthread_t = ^pthread_t;
ppthread_key_t = ^pthread_key_t;
ppthread_mutex_t = ^pthread_mutex_t;
ppthread_attr_t = ^pthread_attr_t;
__destr_func_t = procedure (p :pointer);cdecl;
__startroutine_t = function (p :pointer):pointer;cdecl;
ppthread_mutexattr_t = ^pthread_mutexattr_t;
ppthread_cond_t = ^pthread_cond_t;
ppthread_condattr_t = ^pthread_condattr_t;
pthread_spinlock_t = record
{$ifdef cpu64}
__sp_word: array[0..2] of clong;
{$else}
__sp_word: array[0..5] of cint;
{$endif}
end;
_once = record
{$ifdef cpu64}
__on_word: array[0..8] of clong;
{$else}
__on_word: array[0..27] of cint;
{$endif}
end;
pthread_once_t = _once;
pthread_barrier_t = record
{$ifdef cpu64}
__ba_word: array[0..4] of clong;
{$else}
__ba_word: array[0..7] of cint;
{$endif}
end;
pthread_barrierattr_t = pointer;
function pthread_getspecific (t : pthread_key_t):pointer; cdecl; external 'c';
function pthread_setspecific (t : pthread_key_t;p:pointer):cint; cdecl; external 'c';
function pthread_key_create (p : ppthread_key_t;f: __destr_func_t):cint; cdecl;external 'c';
function pthread_attr_init (p : ppthread_key_t):cint; cdecl; external 'c';
function pthread_attr_destroy(_para1:Ppthread_attr_t):cint;cdecl;external 'c';
function pthread_attr_setinheritsched(p : ppthread_attr_t;i:cint):cint; cdecl; external 'c';
function pthread_attr_setscope (p : ppthread_attr_t;i:cint):cint;cdecl;external 'c';
function pthread_attr_setdetachstate (p : ppthread_attr_t;i:cint):cint;cdecl;external 'c';
function pthread_attr_setstacksize(p: ppthread_attr_t; stacksize: size_t):cint;cdecl;external 'c';
function pthread_create ( p: ppthread_t;attr : ppthread_attr_t;f:__startroutine_t;arg:pointer):cint;cdecl;external 'c';
procedure pthread_exit ( p: pointer); cdecl;external 'c';
function pthread_self:pthread_t; cdecl;external 'c';
function pthread_mutex_init (p:ppthread_mutex_t;o:ppthread_mutexattr_t):cint; cdecl;external 'c';
function pthread_mutex_destroy (p:ppthread_mutex_t):cint; cdecl;external 'c';
function pthread_mutex_lock (p:ppthread_mutex_t):cint; cdecl;external 'c';
function pthread_mutex_trylock (p:ppthread_mutex_t):cint; cdecl;external 'c';
function pthread_mutex_unlock (p:ppthread_mutex_t):cint; cdecl;external 'c';
function pthread_cancel(_para1:pthread_t):cint;cdecl;external 'c';
function pthread_detach(_para1:pthread_t):cint;cdecl;external 'c';
function pthread_join(_para1:pthread_t; _para2:Ppointer):cint;cdecl;external 'c';
function pthread_cond_destroy(_para1:Ppthread_cond_t):cint;cdecl;external 'c' name 'pthread_cond_destroy';
function pthread_cond_init(_para1:Ppthread_cond_t;_para2:Ppthread_condattr_t):cint;cdecl;external 'c' name 'pthread_cond_init';
function pthread_cond_signal(_para1:Ppthread_cond_t):cint;cdecl;external 'c' name 'pthread_cond_signal';
function pthread_cond_broadcast(_para1:Ppthread_cond_t):cint;cdecl;external 'c' name 'pthread_cond_broadcast';
function pthread_cond_wait(_para1:Ppthread_cond_t;_para2:Ppthread_mutex_t):cint;cdecl;external 'c' name 'pthread_cond_wait';
function pthread_kill(__thread:pthread_t; __signo:cint):cint;cdecl;external 'c';
function pthread_sigmask(how: cint; nset: psigset; oset: psigset): cint; cdecl; external 'c';
function sem_init(__sem:Psem_t; __pshared:cint;__value:cuint):cint;cdecl; external 'c' name 'sem_init';
function sem_destroy(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_destroy';
function sem_close(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_close';
function sem_unlink(__name:Pchar):cint;cdecl;external 'c' name 'sem_unlink';
function sem_wait(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_wait';
function sem_timedwait(__sem: Psem_t; const __timespec: ptimespec): cint;cdecl; external 'c' name 'sem_timedwait';
function sem_trywait(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_trywait';
function sem_post(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_post';
function sem_getvalue(__sem:Psem_t; __sval:Pcint):cint;cdecl;external 'c' name 'sem_getvalue';
function pthread_mutexattr_init(_para1:Ppthread_mutexattr_t):cint;cdecl;external 'c' name 'pthread_mutexattr_init';
function pthread_mutexattr_destroy(_para1:Ppthread_mutexattr_t):cint;cdecl;external 'c' name 'pthread_mutexattr_destroy';
function pthread_mutexattr_gettype(_para1:Ppthread_mutexattr_t; _para2:Pcint):cint;cdecl;external 'c' name 'pthread_mutexattr_gettype';
function pthread_mutexattr_settype(_para1:Ppthread_mutexattr_t; _para2:cint):cint;cdecl;external 'c' name 'pthread_mutexattr_settype';
function pthread_cond_timedwait(__cond:ppthread_cond_t; __mutex:ppthread_mutex_t; __abstime:ptimespec):cint; cdecl;external 'c' name 'pthread_cond_timedwait';
|
