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

* Dotted filenames for package libenet

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:58 +01:00
parent 8058aaad9c
commit e6e5c1724d
5 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/libenet/namespaced/Api.Enet.pp Normal file
View File

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

3
packages/libenet/namespaced/Api.Uenetclass.pp Normal file
View File

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

4
packages/libenet/namespaces.lst Normal file
View File

@ -0,0 +1,4 @@
src/uenetclass.pp=namespaced/Api.Uenetclass.pp
{s*:src/}=namespaced/
{i+:src/}
src/enet.pp=namespaced/Api.Enet.pp

12
packages/libenet/src/enet.pp
View File

@ -4,7 +4,9 @@
{$LONGSTRINGS ON}
{$MACRO ON}
{$IFNDEF FPC_DOTTEDUNITS}
unit ENet;
{$ENDIF FPC_DOTTEDUNITS}
{
ENet - Reliable UDP networking library
@ -35,6 +37,15 @@ unit ENet;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.CTypes,
{$IFDEF Windows}
WinApi.Winsock2;
{$ELSE}
UnixApi.Base, System.Net.Sockets;
{$ENDIF}
{$ELSE FPC_DOTTEDUNITS}
uses
ctypes,
{$IFDEF WINDOWS}
@ -42,6 +53,7 @@ uses
{$ELSE}
BaseUnix, Sockets;
{$ENDIF}
{$ENDIF FPC_DOTTEDUNITS}
////////////////////////////////////////////////////////////////////////////////
// types.h

7
packages/libenet/src/uenetclass.pp
View File

@ -1,7 +1,9 @@
{$MODE OBJFPC}
{$LONGSTRINGS ON}
{$IFNDEF FPC_DOTTEDUNITS}
unit UENetClass;
{$ENDIF FPC_DOTTEDUNITS}
{
ENet UDP Class for Free Pascal
@ -33,8 +35,13 @@ unit UENetClass;
interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.SysUtils, System.Classes, Api.Enet;
{$ELSE FPC_DOTTEDUNITS}
uses
SysUtils, Classes, ENet;
{$ENDIF FPC_DOTTEDUNITS}
type
TENetEventType = ( ENetEventNone, ENetEventConnect, ENetEventDisconnect,