Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-08 13:37:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP: (read-bytevector!)

Browse source
This commit is contained in:
Justin Ethier 2019-12-28 19:37:15 -05:00
parent e5dca1835f
commit 123c20d60d
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/base.sld
View file

@ -191,7 +191,7 @@
; ;
; ; following byte vector functions are not implemented yet: ; ; following byte vector functions are not implemented yet:
read-bytevector read-bytevector
; read-bytevector! read-bytevector!
write-bytevector write-bytevector
; ;
; : No unicode support at this time ; : No unicode support at this time
@ -733,6 +733,16 @@
(loop (+ n 1))) (loop (+ n 1)))
(else bv)))))) (else bv))))))
(loop 0))) (loop 0)))
;; TODO: need to finish and debug the following function:
(define (read-bytevector! vec . opts)
(letrec ((len (bytevector-length vec))
(port (if (> (length opts) 0) (car opts) (current-output-port)))
(start (if (> (length opts) 1) (cadr opts) 0))
(end (if (> (length opts) 2) (caddr opts) len))
(bv (read-bytevector (- end start) port))
)
(bytevector-copy! vec start bv)
(- end start))) ;; TODO: return number of bytes read
(define (write-bytevector vec . opts) (define (write-bytevector vec . opts)
(letrec ((len (bytevector-length vec)) (letrec ((len (bytevector-length vec))
(port (if (> (length opts) 0) (car opts) (current-output-port))) (port (if (> (length opts) 0) (car opts) (current-output-port)))