Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-11 06:57:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

simple bytevector io utils

Browse source
This commit is contained in:
Alex Shinn 2011-10-04 22:44:52 +09:00
parent c3614986ef
commit ac4403ea7a
1 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lib/scheme/extras.scm
View file

@ -31,6 +31,35 @@
(close-port port) (close-port port)
res)) res))
(define (read-bytevector n . o)
(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))
(string->utf8 res)))))
(define (read-bytevector! vec start end . o)
(if (>= start end)
0
(let* ((res (read-bytevector!
(- end start)
(if (pair? o) (car o) (current-input-port))))
(len (bytevector-length res)))
(cond
((zero? len)
(read-char (open-input-string "")))
(else
(do ((i 0 (+ i 1)))
((>= i len) len)
(bytevector-u8-set! vec (+ i start) (bytevector-u8-ref res i))))))))
(define (write-bytevector vec . o)
(apply write-string (utf8->string vec) o))
(define (write-partial-bytevector vec start end . o)
(apply write-string (utf8->string (bytevector-copy-partial vec start end)) o))
(define (make-list n . o) (define (make-list n . o)
(let ((init (and (pair? o) (car o)))) (let ((init (and (pair? o) (car o))))
(let lp ((i 0) (res '())) (let lp ((i 0) (res '()))