{ 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;