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

Added with-output-to-file.

This commit is contained in:
Abdulaziz Ghuloum 2007-12-23 15:06:05 -05:00
parent d2de3bcadb
commit 894a29f0d8
3 changed files with 31 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
scheme/ikarus.io.ss
View File

@ -48,7 +48,7 @@
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 open-file-output-port open-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 +96,7 @@
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 open-file-output-port open-output-file with-output-to-file
console-output-port console-output-port
console-input-port console-input-port
console-error-port console-error-port
@ -1279,6 +1279,23 @@
(native-transcoder) (native-transcoder)
#t)) #t))
(define (with-output-to-file filename proc)
(unless (string? filename)
(die 'with-output-to-file "invalid filename" filename))
(unless (procedure? proc)
(die 'with-output-to-file "not a procedure" proc))
(call-with-port
(fh->output-port
(open-input-file-handle filename 'with-output-to-file)
filename
output-file-buffer-size
(native-transcoder)
#t)
(lambda (p)
(parameterize ([*the-output-port* p])
(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))
@ -1298,15 +1315,16 @@
(die 'with-input-from-file "invalid filename" filename)) (die 'with-input-from-file "invalid filename" filename))
(unless (procedure? proc) (unless (procedure? proc)
(die 'with-input-from-file "not a procedure" proc)) (die 'with-input-from-file "not a procedure" proc))
(let ([p (call-with-port
(fh->input-port (fh->input-port
(open-input-file-handle filename 'with-input-from-file) (open-input-file-handle filename 'with-input-from-file)
filename filename
input-file-buffer-size input-file-buffer-size
(native-transcoder) (native-transcoder)
#t)]) #t)
(parameterize ([*the-input-port* p]) (lambda (p)
(proc)))) (parameterize ([*the-input-port* p])
(proc)))))
(define (with-input-from-string string proc) (define (with-input-from-string string proc)
(unless (string? string) (unless (string? string)

2
scheme/last-revision
View File

@ -1 +1 @@
1277 1278

2
scheme/makefile.ss
View File

@ -344,7 +344,7 @@
[get-output-string i] [get-output-string i]
[get-output-bytevector i] [get-output-bytevector i]
[with-output-to-string i] [with-output-to-string i]
[with-output-to-bytevector i] ; [with-output-to-bytevector i]
[console-input-port i] [console-input-port i]
[console-error-port i] [console-error-port i]
[console-output-port i] [console-output-port i]