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

bytevector io fixes

Browse source
This commit is contained in:
Alex Shinn 2011-11-26 17:01:20 +09:00
parent c3fea1f765
commit 6f85c98d12
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/scheme/extras.scm
View file

@ -35,14 +35,14 @@
(if (zero? n)
""
(let ((res (read-string n (if (pair? o) (car o) (current-input-port)))))
(if (equal? res "")
(read-char (open-input-string res))
(if (eof-object? res)
res
(string->utf8 res)))))
(define (read-bytevector! vec start end . o)
(if (>= start end)
0
(let* ((res (read-bytevector!
(let* ((res (read-bytevector
(- end start)
(if (pair? o) (car o) (current-input-port))))
(len (bytevector-length res)))
@ -55,7 +55,7 @@
(bytevector-u8-set! vec (+ i start) (bytevector-u8-ref res i))))))))
(define (write-bytevector vec . o)
(apply write-string (utf8->string vec) (bytevector-length vec) o))
(write-string (utf8->string vec) (bytevector-length vec) (if (pair? o) (car o) (current-output-port))))
(define (write-partial-bytevector vec start end . o)
(apply write-bytevector (bytevector-copy-partial vec start end) o))