Browse Source

* Dotted filenames for package uuid

Michaël Van Canneyt 2 years ago
parent
commit
e42a11fbfe

+ 3 - 0
packages/uuid/namespaced/System.Libuuid.pp

@@ -0,0 +1,3 @@
+unit System.Libuuid;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i libuuid.pp}

+ 3 - 0
packages/uuid/namespaced/System.Macuuid.pp

@@ -0,0 +1,3 @@
+unit System.Macuuid;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i macuuid.pp}

+ 4 - 0
packages/uuid/namespaces.lst

@@ -0,0 +1,4 @@
+src/macuuid.pp=namespaced/System.Macuuid.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/libuuid.pp=namespaced/System.Libuuid.pp

+ 6 - 0
packages/uuid/src/libuuid.pp

@@ -1,10 +1,16 @@
 {$mode objfpc}
 {$H+}
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit Libuuid;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.SysUtils,System.DynLibs;
+{$ELSE FPC_DOTTEDUNITS}
 uses SysUtils,dynlibs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Var
   LibUUIDName : String = 'libuuid.so.1';

+ 10 - 0
packages/uuid/src/macuuid.pp

@@ -1,17 +1,27 @@
 {$mode objfpc}
 {$H+}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit macuuid;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.SysUtils;
+{$ELSE FPC_DOTTEDUNITS}
 uses SysUtils;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Function CreateMacGUID(Out GUID : TGUID) : Integer;
 
 
 Implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses UnixApi.Types, System.Net.Sockets, UnixApi.Base, UnixApi.Unix;
+{$ELSE FPC_DOTTEDUNITS}
 uses unixtype, sockets, baseunix, unix;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Const 
   MAX_ADJUSTMENT = 10;