Browse Source

* Dotted filenames for package pthreads

Michaël Van Canneyt 2 years ago
parent
commit
359e551c7f

+ 3 - 0
packages/pthreads/namespaced/UnixApi.Pthreads.pp

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

+ 3 - 0
packages/pthreads/namespaces.lst

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

+ 27 - 1
packages/pthreads/src/pthreads.pp

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