scsh-0.5/scsh/cxux/bufpol.scm

13 lines
465 B
Scheme
Raw Normal View History

1995-10-13 23:34:21 -04:00
;;; Flags that control buffering policy.
;;; Copyright (c) 1993 by Olin Shivers. See file COPYING.
1995-10-13 23:34:21 -04:00
;;; These are for the SET-PORT-BUFFERING procedure, essentially a Scheme
;;; analog of the setbuf(3S) stdio call. We use the actual stdio values.
;;; These constants are not likely to change from stdio lib to stdio lib,
;;; but you need to check when you do a port.
(define-enum-constants bufpol
1995-10-13 23:34:21 -04:00
(block 0) ; _IOFBF
(line #o200) ; _IOLBF
(none 4)) ; _IONBF