12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091 |
- {
- $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
- { 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;
- 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;
- { The waitpid uses the following options:}
- Wait_NoHang = 1;
- Wait_UnTraced = 2;
- Wait_Any = -1;
- Wait_MyPGRP = 0;
- { 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;
- {
- $Log$
- Revision 1.5 2000-02-09 16:59:32 peter
- * truncated log
- Revision 1.4 2000/01/07 16:41:41 daniel
- * copyright 2000
- Revision 1.3 2000/01/07 16:32:28 daniel
- * copyright 2000 added
- }
|