123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129 |
- {
- 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:PAnsiChar):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';
|