mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 20:33:13 +02:00
287 lines
8.9 KiB
PHP
287 lines
8.9 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2001 by Free Pascal development team
|
|
|
|
Types and structures for the BaseUnix unit.
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
***********************************************************************}
|
|
|
|
{***********************************************************************}
|
|
{ Base Unix Structures }
|
|
{***********************************************************************}
|
|
|
|
{$IFDEF FPC_IS_SYSTEM}
|
|
{$i ptypes.inc}
|
|
{$ENDIF}
|
|
|
|
CONST
|
|
FD_MAXFDSET = 1024;
|
|
BITSINWORD = 8*sizeof(longint);
|
|
wordsinsigset = SIG_MAXSIG DIV BITSINWORD; // words in sigset_t
|
|
wordsinfdset = FD_MAXFDSET DIV BITSINWORD; // words in fdset_t
|
|
ln2bitsinword = 5; { 32bit : ln(32)/ln(2)=5 }
|
|
ln2bitmask = 1 shl ln2bitsinword - 1;
|
|
|
|
UTSNAME_LENGTH = 256; { 256 + 1 in PAnsiChar format }
|
|
UTSNAME_NODENAME_LENGTH = 256;
|
|
|
|
ST_FSTYPSZ = 16; {* array size for file system type name *}
|
|
|
|
TYPE
|
|
blksize_t = clong;
|
|
blkcnt_t = clong;
|
|
|
|
{ file characteristics services }
|
|
stat = packed record { verify the alignment of the members }
|
|
st_dev : dev_t;
|
|
{$ifndef CPU64}
|
|
st_pad1 : array[1..3] of longint; { reserve for dev expansion }
|
|
{$endif ndef CPU64}
|
|
st_ino : ino_t;
|
|
st_mode : mode_t;
|
|
st_nlink : nlink_t;
|
|
st_uid : uid_t;
|
|
st_gid : gid_t;
|
|
st_rdev : dev_t;
|
|
{$ifndef CPU64}
|
|
st_pad2 : array[1..2] of longint;
|
|
{$endif ndef CPU64}
|
|
st_size : off_t;
|
|
{$ifndef CPU64}
|
|
st_pad3 : longint; {* reserve pad for future off_t expansion *}
|
|
{$endif ndef CPU64}
|
|
st_atime : time_t;
|
|
st_atimens : clong; { access time nanosecond field }
|
|
st_mtime : time_t;
|
|
st_mtimens : clong; { modification time nanosecond field }
|
|
st_ctime : time_t;
|
|
st_ctimens : clong; { modification time nanosecond field }
|
|
st_blksize : blksize_t;
|
|
st_blocks : blkcnt_t;
|
|
st_fstype : array[0..ST_FSTYPSZ-1] of AnsiChar;
|
|
{$ifndef CPU64}
|
|
st_pad4 : array[1..8] of longint;
|
|
{$endif ndef CPU64}
|
|
end;
|
|
TStat = Stat;
|
|
PStat = ^Stat;
|
|
|
|
flock = record
|
|
l_type : cshort; { lock type: read/write, etc. }
|
|
l_whence: cshort; { type of l_start }
|
|
{$ifdef 64bitfs}
|
|
l_start : off64_t; { starting offset }
|
|
l_len : off64_t; { len = 0 means until end of file }
|
|
{$else}
|
|
l_start : off_t; { starting offset }
|
|
l_len : off_t; { len = 0 means until end of file }
|
|
{$endif}
|
|
l_sysid : cint;
|
|
l_pid : pid_t; { lock owner }
|
|
l_pas : array[0..3] of clong;
|
|
end;
|
|
TFlock = flock;
|
|
pFlock = ^flock;
|
|
|
|
TFDSetEl = Cardinal;
|
|
TFDSet = array[0..(FD_MAXFDSET div 32)-1] of TFDSetEl;
|
|
pFDSet = ^TFDSet;
|
|
|
|
timezone = packed record
|
|
tz_minuteswest,tz_dsttime:cint;
|
|
end;
|
|
ptimezone =^timezone;
|
|
TTimeZone = timezone;
|
|
|
|
{ system information services }
|
|
utsname = packed record { don't forget to verify the alignment }
|
|
sysname : array[0..UTSNAME_LENGTH] of AnsiChar;
|
|
nodename : array[0..UTSNAME_LENGTH] of AnsiChar;
|
|
release : array[0..UTSNAME_LENGTH] of AnsiChar;
|
|
version : array[0..UTSNAME_LENGTH] of AnsiChar;
|
|
machine : array[0..UTSNAME_LENGTH] of AnsiChar;
|
|
end;
|
|
|
|
UTimBuf = Record
|
|
actime : time_t;
|
|
modtime : time_t;
|
|
end;
|
|
TUtimBuf = UtimBuf;
|
|
pUtimBuf = ^UtimBuf;
|
|
|
|
{ directory services }
|
|
pdirent = ^dirent;
|
|
dirent = packed record { directory entry record - verify alignment }
|
|
case integer of
|
|
1 : (
|
|
d_ino : ino_t; {* "inode number" of entry *}
|
|
d_off : off_t; {* offset of disk directory entry *}
|
|
d_reclen : word; {* length of this record *}
|
|
d_name : array[0..255] of AnsiChar; { name of file }
|
|
);
|
|
{ overlay with alias }
|
|
2 : (
|
|
d_fileno : ino_t;
|
|
);
|
|
end;
|
|
|
|
|
|
pdir = ^dir;
|
|
dir = packed record
|
|
case integer of
|
|
1 : (
|
|
d_fd : cint; {* file descriptor *}
|
|
d_loc : cint; {* offset in block *}
|
|
d_size : cint; {* amount of valid data *}
|
|
d_buf : PAnsiChar; { directory block }
|
|
);
|
|
{ overlay for posix compatibility }
|
|
2 : (
|
|
dd_fd : cint; {* file descriptor *}
|
|
dd_loc : cint; {* offset in block *}
|
|
dd_size : cint; {* amount of valid data *}
|
|
dd_buf : PAnsiChar; { directory block }
|
|
);
|
|
end;
|
|
|
|
|
|
|
|
{***********************************************************************}
|
|
{ POSIX CONSTANT ROUTINE DEFINITIONS }
|
|
{***********************************************************************}
|
|
CONST
|
|
{ access routine - these maybe OR'ed together }
|
|
F_OK = 0; { test for existence of file }
|
|
R_OK = 4; { test for read permission on file }
|
|
W_OK = 2; { test for write permission on file }
|
|
X_OK = 1; { test for execute or search permission }
|
|
{ seek routine }
|
|
SEEK_SET = 0; { seek from beginning of file }
|
|
SEEK_CUR = 1; { seek from current position }
|
|
SEEK_END = 2; { seek from end of file }
|
|
{ open routine }
|
|
{ File access modes for `open' and `fcntl'. }
|
|
O_RDONLY = 0; { Open read-only. }
|
|
O_WRONLY = 1; { Open write-only. }
|
|
O_RDWR = 2; { Open read/write. }
|
|
O_NDELAY = 4;
|
|
{ Bits OR'd into the second argument to open. }
|
|
O_CREAT = $100; { Create file if it doesn't exist. }
|
|
O_EXCL = $400; { Fail if file already ??????. }
|
|
O_TRUNC = $200; { Truncate file to zero length. }
|
|
O_NOCTTY = $800; { Don't assign a controlling terminal. }
|
|
O_XATTR = $4000;
|
|
O_NOFOLLOW = $20000;
|
|
O_NOLINKS = $40000;
|
|
{ File status flags for `open' and `fcntl'. }
|
|
O_APPEND = $08; { Writes append to the file. }
|
|
O_SYNC = $10;
|
|
O_NONBLOCK = $80; { Non-blocking I/O. }
|
|
O_LARGEFILE = $2000;
|
|
|
|
|
|
{ mode_t possible values }
|
|
S_ISUID = $800; { set user id on execution }
|
|
S_ISGID = $400; { set group id on execution }
|
|
S_IRUSR = $100; { Read permission for owner }
|
|
S_IWUSR = $080; { Write permission for owner }
|
|
S_IXUSR = $040; { Exec permission for owner }
|
|
S_IRGRP = $020; { Read permission for group }
|
|
S_IWGRP = $010; { Write permission for group }
|
|
S_IXGRP = $008; { Exec permission for group }
|
|
S_IROTH = $004; { Read permission for world }
|
|
S_IWOTH = $002; { Write permission for world }
|
|
S_IXOTH = $001; { Exec permission for world }
|
|
|
|
{ Used for waitpid }
|
|
WNOHANG = $40; { don't block waiting }
|
|
WUNTRACED = $04; { report status of stopped children }
|
|
|
|
Const
|
|
S_IFMT = 61440;
|
|
S_IFIFO = 4096;
|
|
S_IFCHR = 8192;
|
|
S_IFDIR = 16384;
|
|
S_IFBLK = 24576;
|
|
S_IFREG = 32768;
|
|
S_IFLNK = 40960;
|
|
S_IFSOCK= 49152;
|
|
S_IFWHT = 57344;
|
|
S_ISVTX = 512;
|
|
|
|
{ For File control mechanism }
|
|
F_GetFd = 1;
|
|
F_SetFd = 2;
|
|
F_GetFl = 3;
|
|
F_SetFl = 4;
|
|
F_GetLk = 14;
|
|
F_SetLk = 6;
|
|
F_SetLkW = 7;
|
|
F_SetOwn = 23;
|
|
F_GetOwn = 24;
|
|
|
|
Const
|
|
{ Constansts for MMAP }
|
|
{$ifdef FPC_IS_SYSTEM}
|
|
MAP_PRIVATE =2;
|
|
{$endif}
|
|
MAP_ANONYMOUS =$100;
|
|
|
|
type
|
|
rlim_t = cULong;
|
|
PRLimit = ^TRLimit;
|
|
TRLimit = record
|
|
rlim_cur : rlim_t;
|
|
rlim_max : rlim_t;
|
|
end;
|
|
|
|
{$i signal.inc}
|
|
|
|
iovec = record
|
|
iov_base : pointer;
|
|
iov_len : size_t;
|
|
end;
|
|
tiovec=iovec;
|
|
piovec=^tiovec;
|
|
|
|
tms = packed record
|
|
tms_utime : clock_t; { User CPU time }
|
|
tms_stime : clock_t; { System CPU time }
|
|
tms_cutime : clock_t; { User CPU time of terminated child procs }
|
|
tms_cstime : clock_t; { System CPU time of terminated child procs }
|
|
end;
|
|
TTms= tms;
|
|
pTms= ^tms;
|
|
|
|
const
|
|
POLLIN = $0001;
|
|
POLLPRI = $0002;
|
|
POLLOUT = $0004;
|
|
POLLERR = $0008;
|
|
POLLHUP = $0010;
|
|
POLLNVAL = $0020;
|
|
|
|
{ XOpen, XPG 4.2 }
|
|
POLLRDNORM = $0040;
|
|
POLLRDBAND = $0080;
|
|
POLLWRNORM = POLLOUT;
|
|
POLLWRBAND = $0100;
|
|
|
|
type
|
|
pollfd = record
|
|
fd: cint;
|
|
events: cshort;
|
|
revents: cshort;
|
|
end;
|
|
tpollfd = pollfd;
|
|
ppollfd = ^pollfd;
|
|
|
|
|