scsh-0.5/scsh/cxux/fdflags.scm

22 lines
437 B
Scheme
Raw Normal View History

1995-10-13 23:34:21 -04:00
;;; Flags for open(2) and fcntl(2).
;;; Copyright (c) 1993 by Olin Shivers.
(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)
(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)))