瀏覽代碼

* Dotted filenames for package pcap

Michaël Van Canneyt 2 年之前
父節點
當前提交
484c453409
共有 3 個文件被更改,包括 19 次插入0 次删除
  1. 3 0
      packages/pcap/namespaced/Api.Pcap.pp
  2. 3 0
      packages/pcap/namespaces.lst
  3. 13 0
      packages/pcap/src/pcap.pp

+ 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}