1
2const
3   R_OK = 4;
4   W_OK = 2;
5   X_OK = 1;
6   F_OK = 0;
7
8const
9   SEEK_SET = 0;
10   SEEK_CUR = 1;
11   SEEK_END = 2;
12
13function fcntl(__fd:longint; __cmd:longint; args:array of const):longint;cdecl;external clib name 'fcntl';
14function fcntl(__fd:longint; __cmd:longint):longint;cdecl;varargs;external clib name 'fcntl';
15
16function open(__file:Pchar; __oflag:longint; args:array of const):longint;cdecl;external clib name 'open';
17function open(__file:Pchar; __oflag:longint):longint;cdecl;varargs;external clib name 'open';
18
19function open64(__file:Pchar; __oflag:longint; args:array of const):longint;cdecl;external clib name 'open64';
20function open64(__file:Pchar; __oflag:longint):longint;cdecl;varargs;external clib name 'open64';
21
22function creat(__file:Pchar; __mode:__mode_t):longint;cdecl;external clib name 'creat';
23function creat64(__file:Pchar; __mode:__mode_t):longint;cdecl;external clib name 'creat64';
24
25const
26  F_LOCK = 1;
27  F_TLOCK = 2;
28  F_TEST = 3;
29
30function lockf(__fd:longint; __cmd:longint; __len:__off_t):longint;cdecl;external clib name 'lockf';
31function lockf64(__fd:longint; __cmd:longint; __len:__off64_t):longint;cdecl;external clib name 'lockf64';
32
33function posix_fadvise(__fd:longint; __offset:__off_t; __len:size_t; __advise:longint):longint;cdecl;external clib name 'posix_fadvise';
34function posix_fadvise64(__fd:longint; __offset:__off64_t; __len:size_t; __advise:longint):longint;cdecl;external clib name 'posix_fadvise64';
35
36function posix_fallocate(__fd:longint; __offset:__off_t; __len:size_t):longint;cdecl;external clib name 'posix_fallocate';
37function posix_fallocate64(__fd:longint; __offset:__off64_t; __len:size_t):longint;cdecl;external clib name 'posix_fallocate64';
38
39
40{ ---------------------------------------------------------------------
41    Borland compatibility types
42  ---------------------------------------------------------------------}
43
44// Type
45function fcntl(Handle: Integer; Command: Integer; var Lock: TFlock): Integer; cdecl; external clib name 'fcntl';
46function fcntl(Handle: Integer; Command: Integer; Arg: Longint): Integer; cdecl;external clib name 'fcntl';
47
48