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

Added call-with-output-file

This commit is contained in:
Abdulaziz Ghuloum 2007-12-23 15:18:40 -05:00
parent 79277bb394
commit 788b613bba
2 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
scheme/ikarus.io.ss
View File

@ -48,7 +48,8 @@
call-with-string-output-port call-with-string-output-port
standard-output-port standard-error-port standard-output-port standard-error-port
current-output-port current-error-port current-output-port current-error-port
open-file-output-port open-output-file with-output-to-file open-file-output-port open-output-file
call-with-output-file with-output-to-file
console-output-port console-output-port
console-error-port console-error-port
console-input-port console-input-port
@ -96,7 +97,8 @@
call-with-string-output-port call-with-string-output-port
standard-output-port standard-error-port standard-output-port standard-error-port
current-output-port current-error-port current-output-port current-error-port
open-file-output-port open-output-file with-output-to-file open-file-output-port open-output-file
call-with-output-file with-output-to-file
console-output-port console-output-port
console-input-port console-input-port
console-error-port console-error-port
@ -1296,7 +1298,8 @@
(die 'with-output-to-file "not a procedure" proc)) (die 'with-output-to-file "not a procedure" proc))
(call-with-port (call-with-port
(fh->output-port (fh->output-port
(open-input-file-handle filename 'with-output-to-file) (open-output-file-handle filename (file-options)
'with-output-to-file)
filename filename
output-file-buffer-size output-file-buffer-size
(native-transcoder) (native-transcoder)
@ -1305,6 +1308,21 @@
(parameterize ([*the-output-port* p]) (parameterize ([*the-output-port* p])
(proc))))) (proc)))))
(define (call-with-output-file filename proc)
(unless (string? filename)
(die 'call-with-output-file "invalid filename" filename))
(unless (procedure? proc)
(die 'call-with-output-file "not a procedure" proc))
(call-with-port
(fh->output-port
(open-output-file-handle filename (file-options)
'call-with-output-file)
filename
output-file-buffer-size
(native-transcoder)
#t)
proc))
(define (call-with-input-file filename proc) (define (call-with-input-file filename proc)
(unless (string? filename) (unless (string? filename)
(die 'call-with-input-file "invalid filename" filename)) (die 'call-with-input-file "invalid filename" filename))

2
scheme/last-revision
View File

@ -1 +1 @@
1279 1280