;;; 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