aboutsummaryrefslogblamecommitdiffstats
path: root/Game/Code/Classes/UPlatformLinux.pas
blob: b323c60835ec4ec777829d5ce126468ee8f96501 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14












                        
                                                      
                                   
        







                                                                                                             


              





                                                                       
     
       
               
           
           
       
          
 
                                                                                                                        



                      





                              

                                     
 
                                                                                          
           















                                                                                           
          
                          
 
                        
    

                                                       
                                             
       
                                           







                                             
 
                             


                                                       
                                             
                                          
      
       
                     
                                           

                             
      


                                                       
                                             
                                          
      
       
                     
                                           

                                                
      









                                              
                                                              
                                                                   

                                                   
              
    




                                                                                   







                                                                        
                                                              



                         
    
unit UPlatformLinux;

interface

{$IFDEF FPC}
  {$MODE Delphi}
{$ENDIF}

{$I switches.inc}

uses Classes, UPlatform;

type

  TPlatformLinux = class(TInterfacedObject, IPlatform)
    function get_homedir(): string;
  public
    function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray;
    function TerminateIfAlreadyRunning(var WndTitle : String) : Boolean;
    function FindSongFile(Dir, Mask: widestring): widestring;

    procedure Halt;

    function GetLogPath        : WideString;
    function GetGameSharedPath : WideString;
    function GetGameUserPath   : WideString;
  end;

implementation

// check for version of FPC >= 2.2.0
{$IFDEF FPC}
  {$IF (FPC_VERSION > 2) or ((FPC_VERSION = 2) and (FPC_RELEASE >= 2))}
    {$DEFINE FPC_VERSION_2_2_0_PLUS}
  {$IFEND}
{$ENDIF}
  
uses 
  libc,
  uCommandLine,
  BaseUnix,
  SysUtils,
  ULog,
  UConfig;

function TPlatformLinux.DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray;
var
    i : Integer;
    TheDir  : pDir;
    ADirent : pDirent;
    Entry   : Longint;
    lAttrib : integer;
begin
  i := 0;
  Filter := LowerCase(Filter);

  TheDir := FpOpenDir( Dir );
  if Assigned(TheDir) then
  begin
    repeat
      ADirent :=  FpReadDir(TheDir^);

      If Assigned(ADirent) and (ADirent^.d_name <> '.') and (ADirent^.d_name <> '..') then
      begin
        lAttrib := FileGetAttr(Dir + ADirent^.d_name);
        if ReturnAllSubDirs and ((lAttrib and faDirectory) <> 0) then
        begin
          SetLength( Result, i + 1);
          Result[i].Name        := ADirent^.d_name;
          Result[i].IsDirectory := true;
          Result[i].IsFile      := false;
          i := i + 1;
        end
        else if (Length(Filter) = 0) or (Pos( Filter, LowerCase(ADirent^.d_name)) > 0) then
        begin
          SetLength( Result, i + 1);
          Result[i].Name        := ADirent^.d_name;
          Result[i].IsDirectory := false;
          Result[i].IsFile      := true;
          i := i + 1;
        end;
      end;
    until (ADirent = nil);

    FpCloseDir(TheDir^);
  end;
end;

function TPlatformLinux.GetLogPath        : WideString;
begin
  if FindCmdLineSwitch( cUseLocalPaths ) then
  begin
    result := ExtractFilePath(ParamStr(0));
  end
  else
  begin
    {$IFDEF UseLocalDirs}
      result := ExtractFilePath(ParamStr(0));
    {$ELSE}
      result := LogPath+'/';
    {$ENDIF}
  end;

  forcedirectories( result );
end;

function TPlatformLinux.GetGameSharedPath : WideString;
begin
  if FindCmdLineSwitch( cUseLocalPaths ) then
    result := ExtractFilePath(ParamStr(0))
  else
  begin
{$IFDEF UseLocalDirs}
    result := ExtractFilePath(ParamStr(0));
{$ELSE}
    result := SharedPath+'/';
{$ENDIF}
  end;
end;

function TPlatformLinux.GetGameUserPath   : WideString;
begin
  if FindCmdLineSwitch( cUseLocalPaths ) then
    result := ExtractFilePath(ParamStr(0))
  else
  begin
{$IFDEF UseLocalDirs}
    result := ExtractFilePath(ParamStr(0));
{$ELSE}
    result := get_homedir()+'/.'+PathSuffix+'/';
{$ENDIF}
  end;
end;

function TPlatformLinux.get_homedir(): string;
var
  pPasswdEntry : Ppasswd;
  lUserName    : String;
begin
  pPasswdEntry := getpwuid( getuid() );
  result       := pPasswdEntry^.pw_dir;
end;

// FIXME: just a dirty-fix to make the linux build work again.
//        This i the same as the corresponding function for MacOSX.
//        Maybe this should be TPlatformBase.Halt()
procedure TPlatformLinux.Halt;
begin
  System.Halt;
end;

function TPlatformLinux.TerminateIfAlreadyRunning(var WndTitle : String) : Boolean;
begin
  // Linux and Mac don't check for running apps at the moment
  Result := false;
end;

// FIXME: just a dirty-fix to make the linux build work again.
//        This i the same as the corresponding function for windows
//        (and MacOSX?).
//        Maybe this should be TPlatformBase.FindSongFile()
function TPlatformLinux.FindSongFile(Dir, Mask: widestring): widestring;
var
  SR:     TSearchRec;   // for parsing song directory
begin
  Result := '';
  if SysUtils.FindFirst(Dir + Mask, faDirectory, SR) = 0 then 
  begin
    Result := SR.Name;
  end; // if
  SysUtils.FindClose(SR);
end;

end.