1995-10-13 23:34:21 -04:00
|
|
|
;;; Flags for open(2) and fcntl(2).
|
|
|
|
|
;;; Copyright (c) 1993 by Olin Shivers.
|
|
|
|
|
|
1996-09-11 21:43:53 -04:00
|
|
|
(define-enum-constants open
|
1995-10-13 23:34:21 -04:00
|
|
|
(read 0)
|
|
|
|
|
(write 1)
|
|
|
|
|
(read+write 2)
|
|
|
|
|
(append 8)
|
|
|
|
|
(create #o00400)
|
|
|
|
|
(exclusive #o02000)
|
|
|
|
|
(no-control-tty #o04000)
|
1996-11-11 13:52:19 -05:00
|
|
|
(non-blocking #o00100)
|
1995-10-13 23:34:21 -04:00
|
|
|
(truncate #o01000)
|
|
|
|
|
|
|
|
|
|
;;; Not POSIX.
|
|
|
|
|
(no-delay #o0004)
|
|
|
|
|
(sync #o0020))
|
|
|
|
|
|
|
|
|
|
(define open/access-mask
|
|
|
|
|
(bitwise-ior open/read
|
|
|
|
|
(bitwise-ior open/write open/read+write)))
|
