diff options
Diffstat (limited to 'Game/Code/Classes/UPlatform.pas')
-rw-r--r-- | Game/Code/Classes/UPlatform.pas | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/Game/Code/Classes/UPlatform.pas b/Game/Code/Classes/UPlatform.pas deleted file mode 100644 index bfb03d54..00000000 --- a/Game/Code/Classes/UPlatform.pas +++ /dev/null @@ -1,80 +0,0 @@ -unit UPlatform; - -// Comment by Eddie: -// This unit defines an interface for platform specific utility functions. -// The Interface is implemented in separate files for each platform: -// UPlatformWindows, UPlatformLinux and UPlatformWindows. - -interface - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -{$I switches.inc} - -uses Classes; - -type - TDirectoryEntry = Record - Name : WideString; - IsDirectory : Boolean; - IsFile : Boolean; - end; - - TDirectoryEntryArray = Array of TDirectoryEntry; - - IPlatform = Interface - ['{63A5EBC3-3F4D-4F23-8DFB-B5165FCA23DF}'] - 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; - - function Platform : IPlatform; - -implementation - -uses - SysUtils, - {$IFDEF MSWINDOWS} - UPlatformWindows; - {$ENDIF} - {$IFDEF LINUX} - UPlatformLinux; - {$ENDIF} - {$IFDEF DARWIN} - UPlatformMacOSX; - {$ENDIF} - - -// I have modified it to use the Platform_singleton in this location ( in the implementaiton ) -// so that this variable can NOT be overwritten from anywhere else in the application. -// the accessor function platform, emulates all previous calls to work the same way. -var - Platform_singleton : IPlatform; - -function Platform : IPlatform; -begin - result := Platform_singleton;
-end; - - -initialization - {$IFDEF MSWINDOWS} - Platform_singleton := TPlatformWindows.Create; - {$ENDIF} - {$IFDEF LINUX} - Platform_singleton := TPlatformLinux.Create; - {$ENDIF} - {$IFDEF DARWIN} - Platform_singleton := TPlatformMacOSX.Create; - {$ENDIF} - -finalization - Platform_singleton := nil; -end. |