aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UPlatform.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-08-30 18:12:06 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-08-30 18:12:06 +0000
commit5f11f9f3e328f6818a42f0a3405404612399c64e (patch)
tree66f4cfcde3c1d4b0564ba47aceeb2d04082a7dfb /Game/Code/Classes/UPlatform.pas
parentd4ec88adaa7a93d1970c116ae3d621ff05683681 (diff)
downloadusdx-5f11f9f3e328f6818a42f0a3405404612399c64e.tar.gz
usdx-5f11f9f3e328f6818a42f0a3405404612399c64e.tar.xz
usdx-5f11f9f3e328f6818a42f0a3405404612399c64e.zip
Removed outdated 1.1 branch contents
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.1@1331 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Classes/UPlatform.pas')
-rw-r--r--Game/Code/Classes/UPlatform.pas80
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.