mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 19:19:25 +02:00
123 lines
3.1 KiB
PHP
123 lines
3.1 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 by Michael Van Canneyt,
|
|
member of the Free Pascal development team.
|
|
|
|
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.
|
|
|
|
**********************************************************************}
|
|
|
|
Const
|
|
|
|
{ For getting/setting priority }
|
|
Prio_Process = 0;
|
|
Prio_PGrp = 1;
|
|
Prio_User = 2;
|
|
|
|
|
|
{ Things for LSEEK call }
|
|
Seek_set = 0;
|
|
Seek_Cur = 1;
|
|
Seek_End = 2;
|
|
|
|
{ Things for OPEN call - after linux/fcntl.h }
|
|
Open_Accmode = 3;
|
|
Open_RdOnly = 0;
|
|
Open_WrOnly = 1;
|
|
Open_RdWr = 2;
|
|
Open_Creat = 1 shl 6; // %100 etc
|
|
Open_Excl = 2 shl 6;
|
|
Open_NoCtty = 4 shl 6;
|
|
Open_Trunc = 1 shl 9;
|
|
Open_Append = 2 shl 9;
|
|
Open_NonBlock = 4 shl 9;
|
|
Open_NDelay = Open_NonBlock;
|
|
Open_Sync = 1 shl 12;
|
|
Open_Direct = 4 shl 12;
|
|
Open_LargeFile = 1 shl 15;
|
|
Open_Directory = 2 shl 15;
|
|
Open_NoFollow = 4 shl 15;
|
|
|
|
{ The waitpid uses the following options:}
|
|
Wait_NoHang = 1;
|
|
Wait_UnTraced = 2;
|
|
Wait_Any = -1;
|
|
Wait_MyPGRP = 0;
|
|
Wait_Clone = $80000000;
|
|
|
|
{ Constants to check stat.mode }
|
|
STAT_IFMT = $f000; {00170000}
|
|
STAT_IFSOCK = $c000; {0140000}
|
|
STAT_IFLNK = $a000; {0120000}
|
|
STAT_IFREG = $8000; {0100000}
|
|
STAT_IFBLK = $6000; {0060000}
|
|
STAT_IFDIR = $4000; {0040000}
|
|
STAT_IFCHR = $2000; {0020000}
|
|
STAT_IFIFO = $1000; {0010000}
|
|
STAT_ISUID = $0800; {0004000}
|
|
STAT_ISGID = $0400; {0002000}
|
|
STAT_ISVTX = $0200; {0001000}
|
|
{ Constants to check permissions }
|
|
STAT_IRWXO = $7;
|
|
STAT_IROTH = $4;
|
|
STAT_IWOTH = $2;
|
|
STAT_IXOTH = $1;
|
|
|
|
STAT_IRWXG = STAT_IRWXO shl 3;
|
|
STAT_IRGRP = STAT_IROTH shl 3;
|
|
STAT_IWGRP = STAT_IWOTH shl 3;
|
|
STAT_IXGRP = STAT_IXOTH shl 3;
|
|
|
|
STAT_IRWXU = STAT_IRWXO shl 6;
|
|
STAT_IRUSR = STAT_IROTH shl 6;
|
|
STAT_IWUSR = STAT_IWOTH shl 6;
|
|
STAT_IXUSR = STAT_IXOTH shl 6;
|
|
|
|
{ Constants to test the type of filesystem }
|
|
fs_old_ext2 = $ef51;
|
|
fs_ext2 = $ef53;
|
|
fs_ext = $137d;
|
|
fs_iso = $9660;
|
|
fs_minix = $137f;
|
|
fs_minix_30 = $138f;
|
|
fs_minux_V2 = $2468;
|
|
fs_msdos = $4d44;
|
|
fs_nfs = $6969;
|
|
fs_proc = $9fa0;
|
|
fs_xia = $012FD16D;
|
|
|
|
{ Constansts for MMAP }
|
|
MAP_PRIVATE =2;
|
|
MAP_ANONYMOUS =$20;
|
|
|
|
{Constansts Termios/Ioctl (used in Do_IsDevice) }
|
|
{$ifdef PowerPC}
|
|
IOCtl_TCGETS=$402c7413;
|
|
{$else}
|
|
IOCtl_TCGETS=$5401; // TCGETS is also in termios.inc, but the sysunix needs only this
|
|
{$endif}
|
|
{
|
|
$Log$
|
|
Revision 1.10 2004-02-21 16:27:29 marco
|
|
* hmprf, Linux has different ioctls kernel<->libc
|
|
|
|
Revision 1.9 2004/02/21 15:14:56 marco
|
|
* ppc ioctl nr fixed
|
|
|
|
Revision 1.8 2003/11/19 10:56:15 marco
|
|
* some constants moved from System
|
|
|
|
Revision 1.7 2003/11/17 11:28:08 marco
|
|
* Clone moved to linux, + few small unit unix changes
|
|
|
|
Revision 1.6 2002/09/07 16:01:19 peter
|
|
* old logs removed and tabs fixed
|
|
|
|
}
|