Browse Source

* Dotted filenames for package pxlib

Michaël Van Canneyt 2 years ago
parent
commit
04ec431eda

+ 3 - 0
packages/pxlib/namespaced/Api.Pxlib.pp

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

+ 3 - 0
packages/pxlib/namespaces.lst

@@ -0,0 +1,3 @@
+src/pxlib.pp=namespaced/Api.Pxlib.pp
+{s*:src/}=namespaced/
+{i+:src/}

+ 15 - 0
packages/pxlib/src/pxlib.pp

@@ -3,14 +3,24 @@
 {$h+}
 {$h+}
 {$PACKRECORDS C}
 {$PACKRECORDS C}
 {$ENDIF}
 {$ENDIF}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit pxlib;
 unit pxlib;
+{$ENDIF FPC_DOTTEDUNITS}
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+{$ifdef Unix}
+  UnixApi.Types,
+{$endif}  
+  System.CTypes;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
 {$ifdef unix}
 {$ifdef unix}
   unixtype,
   unixtype,
 {$endif}  
 {$endif}  
   ctypes;
   ctypes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 { Automatically converted by H2Pas 1.0.0 from pxlib.h
 { Automatically converted by H2Pas 1.0.0 from pxlib.h
   The following command line parameters were used:
   The following command line parameters were used:
@@ -387,8 +397,13 @@ Procedure Loadpxlib(lib : String);
 
 
 implementation
 implementation
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.SysUtils, System.DynLibs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   SysUtils, dynlibs;
   SysUtils, dynlibs;
+{$ENDIF FPC_DOTTEDUNITS}
   
   
 var
 var
   hlib : tlibhandle;
   hlib : tlibhandle;