1{
2    This file is part of the Free Pascal run time library.
3    Copyright (c) 2001 by Free Pascal development team
4
5    cdecl; definitions needed for unix unit.
6
7    See the file COPYING.FPC, included in this distribution,
8    for details about the copyright.
9
10    This program is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13
14 ***********************************************************************}
15
16type filedesarray=array[0..1] of cint;
17
18{$if defined(solaris) or defined(aix)}
19Function fpFlock (fd,mode : longint) : cint;{$ifdef IN_SYSTEM}forward;{$endif IN_SYSTEM}
20{$else solaris or aix}
21{$if not defined(beos) or defined(haiku)}
22Function fpFlock (fd,mode : longint) : cint; cdecl; external clib name 'flock';
23{$endif beos}
24{$endif solaris or aix}
25
26{$if defined(beos) or defined(solaris) }
27Function fpfStatFS(Fd:Longint; Info:pstatfs):cint; cdecl; external clib name 'fstatvfs';
28{$else beos or solaris }
29Function fpfStatFS(Fd:Longint; Info:pstatfs):cint; cdecl; external clib name 'fstatfs';
30{$endif beos or solaris }
31
32Function fpfsync (fd : cint) : cint; cdecl; external clib name 'fsync';
33
34{$if defined(beos) or defined(solaris) }
35Function fpStatFS  (Path:pchar; Info:pstatfs):cint; cdecl; external clib name 'statvfs';
36{$else beos or solaris }
37Function fpStatFS  (Path:pchar; Info:pstatfs):cint; cdecl; external clib name 'statfs';
38{$endif beos or solaris }
39
40function pipe (var fildes: filedesarray):cint;  cdecl; external clib name 'pipe';
41function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint;   cdecl; external clib name 'gettimeofday';
42