2
0
Эх сурвалжийг харах

* Dotted filenames for package pcap

Michaël Van Canneyt 2 жил өмнө
parent
commit
484c453409

+ 3 - 0
packages/pcap/namespaced/Api.Pcap.pp

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

+ 3 - 0
packages/pcap/namespaces.lst

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

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

@@ -1,4 +1,6 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit Pcap;
+{$ENDIF FPC_DOTTEDUNITS}
 
   { -*- Mode: c; tab-width: 8; indent-tabs-mode: 1; c-basic-offset: 8; -*-  }
   {
@@ -39,6 +41,16 @@ unit Pcap;
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  {$ifdef Unix}
+  UnixApi.Types,UnixApi.Base,
+  {$endif}
+  {$ifdef Windows}
+  WinApi.Winsock, WinApi.Windows,
+  {$endif}
+  System.Types, System.Net.Sockets;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   {$ifdef UNIX}
   UnixType,BaseUnix,
@@ -47,6 +59,7 @@ uses
   WinSock, Windows,
   {$endif}
   Types, Sockets;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$IFDEF FPC}
   {$PACKRECORDS C}