blob: 741662cd92232b1618c227c90045ec8f3362765a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
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.
|
