Просмотр исходного кода

* Dotted filenames for package fcl-async

Michaël Van Canneyt 2 лет назад
Родитель
Сommit
3cc1722947

+ 3 - 0
packages/fcl-async/namespaced/Api.Async.pp

@@ -0,0 +1,3 @@
+unit Api.Async;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i libasync.pp}

+ 3 - 0
packages/fcl-async/namespaced/System.Async.Fpasync.pp

@@ -0,0 +1,3 @@
+unit System.Async.Fpasync;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i fpasync.pp}

+ 4 - 0
packages/fcl-async/namespaces.lst

@@ -0,0 +1,4 @@
+src/fpasync.pp=namespaced/System.Async.Fpasync.pp
+src/unix/libasync.pp=namespaced/Api.Async.pp
+{s*:src/}=namespaced/
+{i+:src/}

+ 6 - 0
packages/fcl-async/src/fpasync.pp

@@ -12,14 +12,20 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpAsync;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$MODE objfpc}
 {$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.SysUtils, System.Classes, Api.Async;
+{$ELSE FPC_DOTTEDUNITS}
 uses SysUtils, Classes, libasync;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
 

+ 6 - 0
packages/fcl-async/src/unix/libasync.pp

@@ -14,7 +14,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit libasync;
+{$ENDIF}
 
 {$MODE objfpc}
 
@@ -39,7 +41,11 @@ type
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses UnixApi.Types, UnixApi.Base, UnixApi.Unix;
+{$ELSE FPC_DOTTEDUNITS}
 uses unixtype, baseunix, Unix;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
   MaxHandle = SizeOf(TFDSet) * 8 - 1;