Browse Source

* Dotted filenames for package utmp

Michaël Van Canneyt 2 years ago
parent
commit
7ef30a4081

+ 3 - 0
packages/utmp/namespaced/UnixApi.Utmp.pp

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

+ 3 - 0
packages/utmp/namespaces.lst

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

+ 8 - 0
packages/utmp/src/utmp.pp

@@ -1,10 +1,18 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit Utmp;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  UnixApi.Base,
+  UnixApi.Unix;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   BaseUnix,
   Unix;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
   Device_name_length = 12;