aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UPlatformMacOSX.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-07-17 16:46:58 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-07-17 16:46:58 +0000
commit329e2b8eabd0f4ecb6e6a9bdc66d595c988d399a (patch)
tree0edc4be7cae34b876bc7cc2104c5d49f96b28c8a /Game/Code/Classes/UPlatformMacOSX.pas
parent9a393bf11f43ba649fa28c17408ea91c43c97a93 (diff)
downloadusdx-329e2b8eabd0f4ecb6e6a9bdc66d595c988d399a.tar.gz
usdx-329e2b8eabd0f4ecb6e6a9bdc66d595c988d399a.tar.xz
usdx-329e2b8eabd0f4ecb6e6a9bdc66d595c988d399a.zip
- UPlatformXYZ.pas clean-up
- TPlatform now implements common behaviour - added TPlatform.Init() git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1207 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UPlatformMacOSX.pas175
1 files changed, 116 insertions, 59 deletions
diff --git a/Game/Code/Classes/UPlatformMacOSX.pas b/Game/Code/Classes/UPlatformMacOSX.pas
index b6ced926..223908d4 100644
--- a/Game/Code/Classes/UPlatformMacOSX.pas
+++ b/Game/Code/Classes/UPlatformMacOSX.pas
@@ -44,30 +44,110 @@ interface
{$I switches.inc}
-uses Classes, UPlatform;
+uses
+ Classes,
+ UPlatform;
type
-
- TPlatformMacOSX = class(TInterfacedObject, IPlatform)
- public
- function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : boolean) : TDirectoryEntryArray;
- function TerminateIfAlreadyRunning(var WndTitle : string) : boolean;
- procedure Halt();
- function GetLogPath : WideString;
- function GetGameSharedPath : WideString;
- function GetGameUserPath : WideString;
- function FindSongFile(Dir, Mask: WideString): WideString;
+ TPlatformMacOSX = class(TPlatform)
+ private
+ function GetBundlePath: WideString;
+ function GetApplicationSupportPath: WideString;
+ procedure CreateUserFolders();
+ public
+ procedure Init; override;
+
+ function DirectoryFindFiles(Dir, Filter: WideString; ReturnAllSubDirs: boolean): TDirectoryEntryArray; override;
+
+ function GetLogPath : WideString; override;
+ function GetGameSharedPath : WideString; override;
+ function GetGameUserPath : WideString; override;
end;
implementation
-uses SysUtils, baseunix;
+uses
+ SysUtils,
+ baseunix;
+
+procedure TPlatformMacOSX.Init;
+begin
+ CreateUserFolders();
+end;
+
+procedure TPlatformMacOSX.CreateUserFolders();
+var
+ RelativePath, BaseDir, OldBaseDir: string;
+ SearchInfo: TSearchRec;
+ DirectoryList, FileList: TStringList;
+ DirectoryIsFinished: longint;
+ counter: longint;
+
+ UserPathName: string;
+ SourceFile, TargetFile: TFileStream;
+ FileCopyBuffer: array [1..4096] of byte;
+ NumberOfBytes: integer;
+const
+ PathName: string = '/Library/Application Support/UltraStarDeluxe/Resources';
+begin
+ getdir (0, OldBaseDir);
+ BaseDir := OldBaseDir + '/UltraStarDeluxe.app/Contents/Resources';
+ chdir (BaseDir);
+ UserPathName := GetEnvironmentVariable('HOME') + PathName;
+
+ DirectoryIsFinished := 0;
+ DirectoryList := TStringList.Create();
+ FileList := TStringList.Create();
+ DirectoryList.Add('.');
+ repeat
+ RelativePath := DirectoryList[DirectoryIsFinished];
+ chdir (BaseDir + '/' + RelativePath);
+ if (FindFirst('*', faAnyFile, SearchInfo) = 0) then
+ begin
+ repeat
+ if DirectoryExists(SearchInfo.Name) then
+ begin
+ if (SearchInfo.Name <> '.') and (SearchInfo.Name <> '..') then
+ DirectoryList.Add(RelativePath + '/' + SearchInfo.Name);
+ end
+ else
+ Filelist.Add(RelativePath + '/' + SearchInfo.Name);
+ until (FindNext(SearchInfo) <> 0);
+ end;
+ FindClose(SearchInfo);
+ DirectoryIsFinished := succ(DirectoryIsFinished);
+ until (DirectoryIsFinished = DirectoryList.Count);
+
+ if not DirectoryExists(UserPathName) then
+ mkdir (UserPathName);
+
+ for counter := 0 to DirectoryList.Count-1 do
+ if not DirectoryExists(UserPathName + '/' + DirectoryList[counter]) then
+ mkdir (UserPathName + '/' + DirectoryList[counter]);
+ DirectoryList.Free();
+
+ for counter := 0 to Filelist.Count-1 do
+ if not FileExists(UserPathName + '/' + Filelist[counter]) then
+ begin
+ SourceFile := TFileStream.Create(BaseDir + '/' + Filelist[counter], fmOpenRead);
+ TargetFile := TFileStream.Create(UserPathName + '/' + Filelist[counter], fmCreate);
+ repeat
+ NumberOfBytes := SourceFile.Read(FileCopyBuffer, SizeOf(FileCopyBuffer));
+ TargetFile.Write(FileCopyBuffer, NumberOfBytes);
+ until (NumberOfBytes < SizeOf(FileCopyBuffer));
+ SourceFile.Free;
+ TargetFile.Free;
+ end;
+ FileList.Free();
+
+ chdir (OldBaseDir);
+end;
// Mac applications are packaged in directories.
// We have to cut the last two directories
// to get the application directory.
-function GetBundlePath : WideString;
+function TPlatformMacOSX.GetBundlePath: WideString;
var
i, pos : integer;
begin
@@ -82,37 +162,37 @@ begin
end;
end;
-function GetApplicationSupportPath : WideString;
+function TPlatformMacOSX.GetApplicationSupportPath: WideString;
const
PathName : string = '/Library/Application Support/UltraStarDeluxe/Resources';
begin
Result := GetEnvironmentVariable('HOME') + PathName + '/';
end;
-function TPlatformMacOSX.GetLogPath : WideString;
+function TPlatformMacOSX.GetLogPath: WideString;
begin
// eddie: Please read the note at the top of this file, why we use the application directory and not the user directory.
Result := GetApplicationSupportPath + 'Logs';
end;
-function TPlatformMacOSX.GetGameSharedPath : WideString;
+function TPlatformMacOSX.GetGameSharedPath: WideString;
begin
// eddie: Please read the note at the top of this file, why we use the application directory and not the user directory.
Result := GetApplicationSupportPath;
end;
-function TPlatformMacOSX.GetGameUserPath : WideString;
+function TPlatformMacOSX.GetGameUserPath: WideString;
begin
// eddie: Please read the note at the top of this file, why we use the application directory and not the user directory.
Result := GetApplicationSupportPath;
end;
-function TPlatformMacOSX.DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : boolean) : TDirectoryEntryArray;
+function TPlatformMacOSX.DirectoryFindFiles(Dir, Filter: WideString; ReturnAllSubDirs: boolean): TDirectoryEntryArray;
var
i : integer;
TheDir : pdir;
ADirent : pDirent;
- lAttrib : integer;
+ lAttrib : integer;
begin
i := 0;
Filter := LowerCase(Filter);
@@ -124,50 +204,27 @@ begin
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;
+ 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;
-function TPlatformMacOSX.TerminateIfAlreadyRunning(var WndTitle : string) : boolean;
-begin
- result := false;
-end;
-
-procedure TPlatformMacOSX.Halt;
-begin
- System.Halt;
-end;
-
-function TPlatformMacOSX.FindSongFile(Dir, Mask: WideString): WideString;
-var
- SR : TSearchRec; // for parsing song directory
-begin
- Result := '';
- // faDirectory = $00000010; Attribute of a Ūle, meaning the Ūle is a directory.
- if SysUtils.FindFirst(Dir + Mask, faDirectory, SR) = 0 then
- begin
- Result := SR.Name;
- end; // if
- SysUtils.FindClose(SR);
-end;
-
end.