scsh-0.5/scsh/cxux/bufpol.scm

18 lines
573 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.
;;; 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-syntax define-bufpols
(syntax-rules ()
((define-bufpols form ...)
(begin (define-enum-constant "bufpol" . form) ...))))
(define-bufpols
(block 0) ; _IOFBF
(line #o200) ; _IOLBF
(none 4)) ; _IONBF