aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UPlatformLinux.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes/UPlatformLinux.pas')
-rw-r--r--Game/Code/Classes/UPlatformLinux.pas54
1 files changed, 11 insertions, 43 deletions
diff --git a/Game/Code/Classes/UPlatformLinux.pas b/Game/Code/Classes/UPlatformLinux.pas
index f9b83f2c..7e9cac23 100644
--- a/Game/Code/Classes/UPlatformLinux.pas
+++ b/Game/Code/Classes/UPlatformLinux.pas
@@ -14,20 +14,15 @@ uses
UConfig;
type
-
- TPlatformLinux = class(TInterfacedObject, IPlatform)
+ TPlatformLinux = class(TPlatform)
private
function GetHomeDir(): 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 DirectoryFindFiles(Dir, Filter: WideString; ReturnAllSubDirs: Boolean): TDirectoryEntryArray; override;
- function GetLogPath : WideString;
- function GetGameSharedPath : WideString;
- function GetGameUserPath : WideString;
+ function GetLogPath : WideString; override;
+ function GetGameSharedPath : WideString; override;
+ function GetGameUserPath : WideString; override;
end;
implementation
@@ -41,9 +36,9 @@ uses
SysUtils,
ULog;
-function TPlatformLinux.DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray;
+function TPlatformLinux.DirectoryFindFiles(Dir, Filter: WideString; ReturnAllSubDirs: Boolean): TDirectoryEntryArray;
var
- i : Integer;
+ i: Integer;
TheDir : pDir;
ADirent : pDirent;
Entry : Longint;
@@ -84,7 +79,7 @@ begin
end;
end;
-function TPlatformLinux.GetLogPath : WideString;
+function TPlatformLinux.GetLogPath: WideString;
begin
if FindCmdLineSwitch( cUseLocalPaths ) then
begin
@@ -99,10 +94,11 @@ begin
{$ENDIF}
end;
- forcedirectories( result );
+ // create non-existing directories
+ ForceDirectories(Result);
end;
-function TPlatformLinux.GetGameSharedPath : WideString;
+function TPlatformLinux.GetGameSharedPath: WideString;
begin
if FindCmdLineSwitch( cUseLocalPaths ) then
Result := ExtractFilePath(ParamStr(0))
@@ -161,32 +157,4 @@ begin
{$IFEND}
end;
-// FIXME: Maybe this should be TPlatformBase.Halt() for all platforms
-procedure TPlatformLinux.Halt;
-begin
- System.Halt;
-end;
-
-function TPlatformLinux.TerminateIfAlreadyRunning(var WndTitle : String) : Boolean;
-begin
- // Linux does not 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.