51 lines
1.2 KiB
Scheme
51 lines
1.2 KiB
Scheme
;;; Flags for open(2) and fcntl(2).
|
|
;;; Copyright (c) 1993 by Olin Shivers.
|
|
;;; Modified for Solaris by tvb@math.ufl.edu
|
|
|
|
(define-enum-constants open
|
|
(read 0)
|
|
(write 1)
|
|
(read+write 2)
|
|
(append 8)
|
|
(create #x0100)
|
|
(exclusive #x0400)
|
|
(no-control-tty #x800) ;claims to be POSIX
|
|
(nonblocking #x80) ;claims to be POSIX
|
|
(truncate #x0200)
|
|
|
|
;;; Not POSIX.
|
|
(no-delay 4)
|
|
(sync #x10))
|
|
|
|
(define open/access-mask
|
|
(bitwise-ior open/read
|
|
(bitwise-ior open/write open/read+write)))
|
|
|
|
|
|
(define-enum-constants fcntl
|
|
(dup-fdes 0) ; F_DUPFD
|
|
(get-fdes-flags 1) ; F_GETFD
|
|
(set-fdes-flags 2) ; F_SETFD
|
|
(get-status-flags 3) ; F_GETFL
|
|
(set-status-flags 4) ; F_SETFL
|
|
(get-owner 23) ; F_GETOWN (Not Posix)
|
|
(set-owner 24) ; F_SETOWN (Not Posix)
|
|
(get-record-lock 5) ; F_GETLK
|
|
(set-record-lock-noblock 6) ; F_SETLK
|
|
(set-record-lock 7)) ; F_SETLKW
|
|
|
|
;;; fcntl fdes-flags (F_GETFD)
|
|
|
|
(define fdflags/close-on-exec 1)
|
|
|
|
;;; fcntl status-flags (F_GETFL)
|
|
;;; Mostly, these are OPEN/... flags, like OPEN/APPEND.
|
|
;;; (define fdstatus/... ...)
|
|
|
|
;;; fcntl lock values.
|
|
|
|
(define-enum-constants lock
|
|
(read 1) ; F_RDLCK
|
|
(write 2) ; F_WRLCK
|
|
(release 3)) ; F_UNLCK
|