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.