Преглед на файлове

* Dotted filenames for package libenet

Michaël Van Canneyt преди 2 години
родител
ревизия
e6e5c1724d

+ 3 - 0
packages/libenet/namespaced/Api.Enet.pp

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

+ 3 - 0
packages/libenet/namespaced/Api.Uenetclass.pp

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

+ 4 - 0
packages/libenet/namespaces.lst

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

+ 12 - 0
packages/libenet/src/enet.pp

@@ -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 - 0
packages/libenet/src/uenetclass.pp

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