Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding file->string and file->bytevector.

Browse source
This commit is contained in:
Alex Shinn 2015-02-11 10:41:16 +09:00
parent 3f588a558f
commit 8d13dad49b
2 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/chibi/io.sld
View file

@ -4,6 +4,7 @@
port-fold port-fold-right port-map port-fold port-fold-right port-map
port->list port->string-list port->sexp-list port->list port->string-list port->sexp-list
port->string port->bytevector port->string port->bytevector
file->string file->bytevector
file-position set-file-position! seek/set seek/cur seek/end file-position set-file-position! seek/set seek/cur seek/end
make-custom-input-port make-custom-output-port make-custom-input-port make-custom-output-port
make-custom-binary-input-port make-custom-binary-output-port make-custom-binary-input-port make-custom-binary-output-port

6
lib/chibi/io/io.scm
View file

@ -240,6 +240,12 @@
((eof-object? c) (get-output-bytevector out)) ((eof-object? c) (get-output-bytevector out))
(write-u8 c out)))) (write-u8 c out))))
(define (file->string path)
(call-with-input-file path port->string))
(define (file->bytevector path)
(call-with-input-file path port->bytevector))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; custom port utilities ;; custom port utilities