paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 11:24:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package pcap

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:58:03 +01:00
parent 08c8e0ec66
commit 484c453409
3 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/pcap/namespaced/Api.Pcap.pp Normal file
View File

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

3
packages/pcap/namespaces.lst Normal file
View File

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

13
packages/pcap/src/pcap.pp
View File

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