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