paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 23:24:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package pthreads

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:01 +01:00
parent 81c6474e9f
commit 359e551c7f
3 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/pthreads/namespaced/UnixApi.Pthreads.pp Normal file
View File

@ -0,0 +1,3 @@
unit UnixApi.Pthreads;
{$DEFINE FPC_DOTTEDUNITS}
{$i pthreads.pp}

3
packages/pthreads/namespaces.lst Normal file
View File

@ -0,0 +1,3 @@
src/pthreads.pp=namespaced/UnixApi.Pthreads.pp
{s*:src/}=namespaced/
{i+:src/}

28
packages/pthreads/src/pthreads.pp
View File

@ -13,7 +13,9 @@
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit pthreads;
{$ENDIF FPC_DOTTEDUNITS}
interface
@ -21,26 +23,50 @@ interface
{$PACKRECORDS C}
{$if defined(BSD)}
{$IFDEF FPC_DOTTEDUNITS}
uses System.InitC,UnixApi.Base, UnixApi.Types;
{$ELSE FPC_DOTTEDUNITS}
uses initc,BaseUnix, unixtype;
{$ENDIF FPC_DOTTEDUNITS}
{$i pthrbsd.inc}
{$elseif defined(android)}
{$IFDEF FPC_DOTTEDUNITS}
uses System.InitC, System.CTypes, UnixApi.Types;
{$ELSE FPC_DOTTEDUNITS}
uses initc, ctypes, unixtype;
{$ENDIF FPC_DOTTEDUNITS}
{$i pthrandroid.inc}
{$elseif defined(linux)}
{$IFDEF FPC_DOTTEDUNITS}
uses System.InitC, System.CTypes, UnixApi.Types;
{$ELSE FPC_DOTTEDUNITS}
uses initc, ctypes, unixtype;
{$ENDIF FPC_DOTTEDUNITS}
{$i pthrlinux.inc}
{$elseif defined(sunos)}
{$IFDEF FPC_DOTTEDUNITS}
uses System.InitC, System.CTypes, UnixApi.Types;
{$ELSE FPC_DOTTEDUNITS}
uses initc, ctypes, unixtype;
{$ENDIF FPC_DOTTEDUNITS}
{$i pthrsnos.inc}
{$elseif defined(beos)}
{$IFDEF FPC_DOTTEDUNITS}
uses System.InitC, System.CTypes, UnixApi.Base, UnixApi.Types;
{$ELSE FPC_DOTTEDUNITS}
uses initc, ctypes, baseunix, unixtype;
{$ENDIF FPC_DOTTEDUNITS}
{$ifdef haiku}
{$i pthrhaiku.inc}
{$else}
{$i pthrbeos.inc}
{$endif}
{$elseif defined(aix)}
{$IFDEF FPC_DOTTEDUNITS}
uses System.InitC, System.CTypes, UnixApi.Base, UnixApi.Types;
{$ELSE FPC_DOTTEDUNITS}
uses initc, ctypes, baseunix, unixtype;
{$ENDIF FPC_DOTTEDUNITS}
{$i pthraix.inc}
{$else}
{$error operating system not detected}
@ -48,4 +74,4 @@ interface
implementation
end.
end.