- compatibility changes for fpc 2.2.0 and lazarus 0.9.24. Changes are enabled if {$DEFINE LAZARUS_V0924} and/or {$DEFINE FPC_V220} are defined in switches.inc.

- this is a very ugly HACK and should be replaced by something different (not in switches.inc and some sort of {$IF FPC_VERSION > VERSION(2, 2, 0)}


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

1 files changed, 116 insertions, 66 deletions

diff --git a/Game/Code/Classes/UPlatformLinux.pas b/Game/Code/Classes/UPlatformLinux.pas
index 741662cd..8119346e 100644
--- a/Game/Code/Classes/UPlatformLinux.pas
+++ b/Game/Code/Classes/UPlatformLinux.pas
@@ -1,66 +1,116 @@
-unit UPlatformLinux;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-{$I switches.inc}

-

-uses Classes, UPlatform;

-

-type

-

-  TPlatformLinux = class(TPlatform)

-  public

-    Function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray; override;

-  end;

-

-implementation

-

-uses SysUtils, oldlinux;

-

-Function TPlatformLinux.DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray; 

-var

-    i : Integer;

-    TheDir  : oldlinux.pdir;

-    ADirent : oldlinux.pDirent;

-    Entry   : Longint;

-    info    : oldlinux.stat;

-    lAttrib   : integer;		

-begin

-  i := 0;

-  Filter := LowerCase(Filter);

-

-  TheDir := oldlinux.opendir( Dir );     

-  if Assigned(TheDir) then

-  repeat

-    ADirent :=  oldlinux.ReadDir(TheDir);

-

-    If Assigned(ADirent) and (ADirent^.name <> '.') and (ADirent^.name <> '..') then

-    begin

-      lAttrib := FileGetAttr(Dir + ADirent^.name);

-      if ReturnAllSubDirs and ((lAttrib and faDirectory) <> 0) then

-      begin

-        SetLength( Result, i + 1);

-        Result[i].Name        := ADirent^.name;

-        Result[i].IsDirectory := true;

-        Result[i].IsFile      := false;

-        i := i + 1;

-      end

-      else if (Length(Filter) = 0) or (Pos( Filter, LowerCase(ADirent^.name)) > 0) then

-      begin

-        SetLength( Result, i + 1);

-        Result[i].Name        := ADirent^.name;

-        Result[i].IsDirectory := false;

-        Result[i].IsFile      := true;

-        i := i + 1;

-      end;

-    end;

-  Until ADirent = nil;

-

-  oldlinux.CloseDir(TheDir);

-end;

-

-end.

+unit UPlatformLinux;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses Classes, UPlatform;
+
+type
+
+  TPlatformLinux = class(TPlatform)
+  public
+    Function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray; override;
+  end;
+
+implementation
+
+uses 
+{$IFNDEF FPC_V220}
+  oldlinux,
+{$ELSE}
+  BaseUnix,
+{$ENDIF}
+  SysUtils;
+
+{$IFDEF FPC_V220}
+Function TPlatformLinux.DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray; 
+var
+    i : Integer;
+    TheDir  : pDir;
+    ADirent : pDirent;
+    Entry   : Longint;
+    //info    : oldlinux.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;
+{$ELSE}
+Function TPlatformLinux.DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray;
+var
+    i : Integer;
+    TheDir  : oldlinux.pdir;
+    ADirent : oldlinux.pDirent;
+    Entry   : Longint;
+    info    : oldlinux.stat;
+    lAttrib   : integer;
+begin
+  i := 0;
+  Filter := LowerCase(Filter);
+
+  TheDir := oldlinux.opendir( Dir );
+  if Assigned(TheDir) then
+  repeat
+    ADirent :=  oldlinux.ReadDir(TheDir);
+
+    If Assigned(ADirent) and (ADirent^.name <> '.') and (ADirent^.name <> '..') then
+    begin
+      lAttrib := FileGetAttr(Dir + ADirent^.name);
+      if ReturnAllSubDirs and ((lAttrib and faDirectory) <> 0) then
+      begin
+        SetLength( Result, i + 1);
+        Result[i].Name        := ADirent^.name;
+        Result[i].IsDirectory := true;
+        Result[i].IsFile      := false;
+        i := i + 1;
+      end
+      else if (Length(Filter) = 0) or (Pos( Filter, LowerCase(ADirent^.name)) > 0) then
+      begin
+        SetLength( Result, i + 1);
+        Result[i].Name        := ADirent^.name;
+        Result[i].IsDirectory := false;
+        Result[i].IsFile      := true;
+        i := i + 1;
+      end;
+    end;
+  Until ADirent = nil;
+
+  oldlinux.CloseDir(TheDir);
+end;
+{$ENDIF}
+
+end.