Changeset 423 for trunk/Network


Ignore:
Timestamp:
Apr 25, 2022, 6:01:01 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Do not use explicit mode delphi directive as it is already set in project.
  • Modified: Use UNIX instead of LINUX for conditional code to work also on FreeBSD.
Location:
trunk/Network
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Network/UNetworkClient.pas

    r382 r423  
    11unit UNetworkClient;
    2 
    3 {$mode delphi}
    42
    53interface
    64
    75uses
    8   Classes, SysUtils{$IFDEF LINUX}, fpAsync, fpsock{$ENDIF}, Protocol;
     6  Classes, SysUtils{$IFDEF UNIX}, fpAsync, fpsock{$ENDIF}, Protocol;
    97
    10 {$IFDEF LINUX}
     8{$IFDEF UNIX}
    119type
    1210  { TTCPClientThread }
    … …  
    4846
    4947uses
    50   LocalPlayer{$IFDEF LINUX}, Global, UNetworkCommon{$ENDIF};
     48  LocalPlayer{$IFDEF UNIX}, Global, UNetworkCommon{$ENDIF};
    5149
    5250procedure Client(Command, Player: Integer; var Data);
    53 {$IFDEF LINUX}
     51{$IFDEF UNIX}
    5452var
    5553  Cmd: TCommand;
    5654{$ENDIF}
    5755begin
    58   {$IFDEF LINUX}
     56  {$IFDEF UNIX}
    5957  Cmd := TCommand(Command);
    6058  case Cmd of
    … …  
    7371end;
    7472
    75 {$IFDEF LINUX}
     73{$IFDEF UNIX}
    7674function LocalServer(Command, Player, Subject: Integer; var Data): Integer; stdcall;
    7775begin

  • trunk/Network/UNetworkCommon.pas

    r365 r423  
    11unit UNetworkCommon;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    108procedure StreamAppend(Stream: TStream; SourceStream: TStream);
    119procedure StreamRemoveRead(Stream: TMemoryStream);
     10
    1211
    1312implementation

  • trunk/Network/UNetworkServer.pas

    r382 r423  
    11unit UNetworkServer;
    22
    3 {$mode delphi}
    4 
    53interface
    64
    75uses
    8   Classes, SysUtils{$IFDEF LINUX}, fgl, fpAsync, fpsock, fphttpclient{$ENDIF}, Protocol;
    9 
    10 {$IFDEF LINUX}
     6  Classes, SysUtils{$IFDEF UNIX}, fgl, fpAsync, fpsock, fphttpclient{$ENDIF}, Protocol;
     7
     8{$IFDEF UNIX}
    119type
    1210  TNetworkServer = class;
    … …  
    8785implementation
    8886
    89 {$IFDEF LINUX}
     87{$IFDEF UNIX}
    9088uses
    9189  Global, UNetworkCommon;
    … …  
    9492procedure Client(Command, Player: integer; var Data);
    9593begin
    96   {$IFDEF LINUX}
     94  {$IFDEF UNIX}
    9795  if not Assigned(NetworkServer) then begin
    9896    NetworkServer := TNetworkServer.Create;
    … …  
    107105end;
    108106
    109 {$IFDEF LINUX}
     107{$IFDEF UNIX}
    110108
    111109{ TNetworkServerPlayers }
Note: See TracChangeset for help on using the changeset viewer.