conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

The size of output ports is now set to be the buffer size (bug 175485)

This commit is contained in:
Abdulaziz Ghuloum 2007-12-11 03:25:51 -05:00
parent 0ec309fd22
commit 29eb0d1ce0
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/ikarus.io.ss
View File

@ -186,16 +186,16 @@
(define r6rs-mode-tag #x1000) (define r6rs-mode-tag #x1000)
(define ($make-custom-binary-port attrs id (define ($make-custom-binary-port attrs init-size id
read! write! get-position set-position! close buffer-size) read! write! get-position set-position! close buffer-size)
(let ([bv (make-bytevector buffer-size)]) (let ([bv (make-bytevector buffer-size)])
($make-port 0 0 bv 0 #f #f attrs id read! write! get-position ($make-port 0 init-size bv 0 #f #f attrs id read! write! get-position
set-position! close))) set-position! close)))
(define ($make-custom-textual-port attrs id (define ($make-custom-textual-port attrs init-size id
read! write! get-position set-position! close buffer-size) read! write! get-position set-position! close buffer-size)
(let ([bv (make-string buffer-size)]) (let ([bv (make-string buffer-size)])
($make-port 0 0 bv 0 #f #f attrs id read! write! get-position ($make-port 0 init-size bv 0 #f #f attrs id read! write! get-position
set-position! close))) set-position! close)))
(define (make-custom-binary-input-port id (define (make-custom-binary-input-port id
@ -210,6 +210,7 @@
(error who "close should be either a procedure or #f" close)) (error who "close should be either a procedure or #f" close))
($make-custom-binary-port ($make-custom-binary-port
(fxior fast-get-tag fast-get-byte-tag) (fxior fast-get-tag fast-get-byte-tag)
0
id read! #f get-position id read! #f get-position
set-position! close 256)) set-position! close 256))
@ -225,6 +226,7 @@
(error who "close should be either a procedure or #f" close)) (error who "close should be either a procedure or #f" close))
($make-custom-binary-port ($make-custom-binary-port
(fxior fast-put-tag fast-put-byte-tag) (fxior fast-put-tag fast-put-byte-tag)
256
id #f write! get-position id #f write! get-position
set-position! close 256)) set-position! close 256))
@ -240,6 +242,7 @@
(error who "close should be either a procedure or #f" close)) (error who "close should be either a procedure or #f" close))
($make-custom-textual-port ($make-custom-textual-port
(fxior fast-get-tag fast-get-char-tag) (fxior fast-get-tag fast-get-char-tag)
0
id read! #f get-position id read! #f get-position
set-position! close 256)) set-position! close 256))
@ -255,6 +258,7 @@
(error who "close should be either a procedure or #f" close)) (error who "close should be either a procedure or #f" close))
($make-custom-textual-port ($make-custom-textual-port
(fxior fast-put-tag fast-put-char-tag) (fxior fast-put-tag fast-put-char-tag)
256
id #f write! get-position id #f write! get-position
set-position! close 256)) set-position! close 256))

2
scheme/last-revision
View File

@ -1 +1 @@
1217 1221