19 lines
619 B
Scheme
19 lines
619 B
Scheme
|
;;; Flags that control buffering policy.
|
||
|
|
;;; Copyright (c) 1993 by Olin Shivers.
|
||
|
|
;;; Copyright (c) 1995 by Brian D. Carlstrom.
|
||
|
|
|
||
|
|
;;; 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 #o100) ; _IOLBF
|
||
|
|
(none 4)) ; _IONBF
|