blob: 607579cfa0da90d89012df09e3262a207b64c125 (
plain)
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
|
{%mainunit gfx_utils.pas}
// X11 specific filesystem implementations of RTL wrapper functions
function fpgFindFirst(const Path: TfpgString; Attr: Longint; out
Rslt: TSearchRec): Longint;
begin
Result := FindFirst(Path, Attr, Rslt);
end;
function fpgFindNext(var Rslt: TSearchRec): Longint;
begin
Result := FindNext(Rslt);
end;
function fpgGetCurrentDir: TfpgString;
begin
Result := GetCurrentDir;
end;
function fpgSetCurrentDir(const NewDir: TfpgString): Boolean;
begin
Result := SetCurrentDir(NewDir);
end;
function fpgExpandFileName(const FileName: TfpgString): TfpgString;
begin
Result := ExpandFileName(FileName);
end;
function fpgFileExists(const FileName: TfpgString): Boolean;
begin
Result := FileExists(FileName);
end;
|
