diff options
Diffstat (limited to 'rtl/dragonfly/unxconst.inc')
-rw-r--r-- | rtl/dragonfly/unxconst.inc | 112 |
1 files changed, 112 insertions, 0 deletions
diff --git a/rtl/dragonfly/unxconst.inc b/rtl/dragonfly/unxconst.inc new file mode 100644 index 0000000000..b9974e8207 --- /dev/null +++ b/rtl/dragonfly/unxconst.inc @@ -0,0 +1,112 @@ +{ + 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. + + Constants for Unix 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. + + **********************************************************************} + + +const + + { Things for LSEEK call} + Seek_set = 0; + Seek_Cur = 1; + Seek_End = 2; + + { Things for OPEN call - after include/sys/fcntl.h, + BSD specifies these constants in hex } + Open_Accmode = 3; + Open_RdOnly = 0; + Open_WrOnly = 1; + Open_RdWr = 2; + Open_NonBlock = 4; + Open_Append = 8; + Open_ShLock = $10; + Open_ExLock = $20; + Open_ASync = $40; + Open_FSync = $80; + Open_NoFollow = $100; + Open_Create = $200; {BSD convention} + Open_Creat = $200; {Linux convention} + Open_Trunc = $400; + Open_Excl = $800; + Open_NoCTTY = $8000; + + { The waitpid uses the following options:} + Wait_NoHang = 1; + Wait_UnTraced = 2; + Wait_Any = -1; + Wait_MyPGRP = 0; + + + { Constants to check stat.mode - checked all STAT constants with BSD} + 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 all } + 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 Termios/Ioctl (used in Do_IsDevice) } + IOCtl_TCGETS= $40000000+$2C7400+ 19; // TCGETS is also in termios.inc, but the sysunix needs only this + + ITimer_Real =0; + ITimer_Virtual =1; + ITimer_Prof =2; + +{ + {Checked for BSD using Linuxthreads port} + { cloning flags } + CSIGNAL = $000000ff; // signal mask to be sent at exit + CLONE_VM = $00000100; // set if VM shared between processes + CLONE_FS = $00000200; // set if fs info shared between processes + CLONE_FILES = $00000400; // set if open files shared between processes + CLONE_SIGHAND = $00000800; // set if signal handlers shared + CLONE_PID = $00001000; // set if pid shared + +type + TCloneFunc=function(args:pointer):longint;cdecl; +} + |