Added UPlatform.pas. This should be the first step to move the simple platform specific code to one file for each platform to reduce the IFDEFs in the remaining files.

The first available function is a unicode capable DirectoryFindFiles. It is now used in the BrowseDir function in file USongs.pas.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@595 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 66 insertions, 0 deletions

diff --git a/Game/Code/Classes/UPlatformMacOSX.pas b/Game/Code/Classes/UPlatformMacOSX.pas
new file mode 100644
index 00000000..56469299
--- /dev/null
+++ b/Game/Code/Classes/UPlatformMacOSX.pas
@@ -0,0 +1,66 @@
+unit UPlatformMacOSX;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses Classes, UPlatform;
+
+type
+
+  TPlatform = class(TInterfacedObject, IPlatform)
+  public
+    Function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray; 
+  end;
+
+implementation
+
+uses SysUtils, baseunix;
+
+Function TPlatform.DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray; 
+var
+    i : Integer;
+    TheDir  : pdir;
+    ADirent : pDirent;
+    Entry   : Longint;
+    info    : stat;
+    lAttrib   : integer;		
+begin
+  i := 0;
+  Filter := LowerCase(Filter);
+
+	TheDir := FPOpenDir(Dir);     
+	if Assigned(TheDir) then
+  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.