freepascal.compiler/packages/base/libc/bfcntlh.inc

const
   O_ACCMODE = 0003;
   O_RDONLY = 00;
   O_WRONLY = 01;
   O_RDWR = 02;
   O_CREAT = 0100;
   O_EXCL = 0200;
   O_NOCTTY = 0400;
   O_TRUNC = 01000;
   O_APPEND = 02000;
   O_NONBLOCK = 04000;
   O_NDELAY = O_NONBLOCK;
   O_SYNC = 010000;
   O_FSYNC = O_SYNC;
   O_ASYNC = 020000;

   O_DIRECT = 040000;
   O_DIRECTORY = 0200000;
   O_NOFOLLOW = 0400000;

   O_DSYNC = O_SYNC;
   O_RSYNC = O_SYNC;

   O_LARGEFILE = 0100000;

   F_DUPFD = 0;
   F_GETFD = 1;
   F_SETFD = 2;
   F_GETFL = 3;
   F_SETFL = 4;

   F_GETLK = 5;
   F_SETLK = 6;
   F_SETLKW = 7;

   F_GETLK64 = 12;
   F_SETLK64 = 13;
   F_SETLKW64 = 14;

   F_SETOWN = 8;
   F_GETOWN = 9;

   F_SETSIG = 10;
   F_GETSIG = 11;

   F_SETLEASE = 1024;
   F_GETLEASE = 1025;
   F_NOTIFY = 1026;

   FD_CLOEXEC = 1;
   F_RDLCK = 0;
   F_WRLCK = 1;
   F_UNLCK = 2;
   F_EXLCK = 4;
   F_SHLCK = 8;

   LOCK_SH = 1;
   LOCK_EX = 2;
   LOCK_NB = 4;
   LOCK_UN = 8;

   LOCK_MAND = 32;
   LOCK_READ = 64;
   LOCK_WRITE = 128;
   LOCK_RW = 192;

   DN_ACCESS = $00000001;
   DN_MODIFY = $00000002;
   DN_CREATE = $00000004;
   DN_DELETE = $00000008;
   DN_RENAME = $00000010;
   DN_ATTRIB = $00000020;
   DN_MULTISHOT = $80000000;

type
   Pflock = ^flock;
   flock = record
        l_type : smallint;
        l_whence : smallint;
        l_start : __off_t;
        l_len : __off_t;
        l_pid : __pid_t;
     end;

   Pflock64 = ^flock64;
   flock64 = record
        l_type : smallint;
        l_whence : smallint;
        l_start : __off64_t;
        l_len : __off64_t;
        l_pid : __pid_t;
     end;

const
   FAPPEND = O_APPEND;
   FFSYNC = O_FSYNC;
   FASYNC = O_ASYNC;
   FNONBLOCK = O_NONBLOCK;
   FNDELAY = O_NDELAY;

   POSIX_FADV_NORMAL = 0;
   POSIX_FADV_RANDOM = 1;
   POSIX_FADV_SEQUENTIAL = 2;
   POSIX_FADV_WILLNEED = 3;
   POSIX_FADV_DONTNEED = 4;
   POSIX_FADV_NOREUSE = 5;


{ ---------------------------------------------------------------------
    Borland compatibility types
  ---------------------------------------------------------------------}

Type
  TFlock = flock;
    
  TFlock64 = Flock64;