Browse Source

* Dotted filenames for package libusb

Michaël Van Canneyt 2 years ago
parent
commit
ae9cc5ed18

+ 3 - 0
packages/libusb/namespaced/Api.Usb.pp

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

+ 3 - 0
packages/libusb/namespaces.lst

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

+ 13 - 0
packages/libusb/src/libusb.pp

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit libusb;
 unit libusb;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$IFDEF FPC}
 {$IFDEF FPC}
 {$mode objfpc}
 {$mode objfpc}
@@ -7,9 +9,20 @@ unit libusb;
 
 
 interface
 interface
 {$ifdef MSWINDOWS}
 {$ifdef MSWINDOWS}
+
+{$IFDEF FPC_DOTTEDUNITS}
+uses WinApi.Windows;
+{$ELSE FPC_DOTTEDUNITS}
 uses windows;
 uses windows;
+{$ENDIF FPC_DOTTEDUNITS}
+
 {$else}
 {$else}
+
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.CTypes,System.Net.Sockets,UnixApi.Types;
+{$ELSE FPC_DOTTEDUNITS}
 uses ctypes,sockets,unixtype;
 uses ctypes,sockets,unixtype;
+{$ENDIF FPC_DOTTEDUNITS}
 {$endif}
 {$endif}