Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #50 - Added bytevector-copy!

Browse source
This commit is contained in:
Justin Ethier 2016-06-23 04:41:38 -04:00
parent 10a0ec990e
commit 9935e287e9
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
scheme/base.sld
View file

@ -157,6 +157,7 @@
eof-object eof-object
syntax-error syntax-error
bytevector-copy bytevector-copy
bytevector-copy!
utf8->string utf8->string
string->utf8 string->utf8
denominator denominator
@ -166,7 +167,6 @@
; Possibly missing functions: ; Possibly missing functions:
; ;
; ; following byte vector functions are not implemented yet: ; ; following byte vector functions are not implemented yet:
; bytevector-copy!
; get-output-bytevector ; get-output-bytevector
; open-input-bytevector ; open-input-bytevector
; open-output-bytevector ; open-output-bytevector
@ -700,6 +700,19 @@
(start (if (> (length opts) 0) (car opts) 0)) (start (if (> (length opts) 0) (car opts) 0))
(end (if (> (length opts) 1) (cadr opts) len))) (end (if (> (length opts) 1) (cadr opts) len)))
(Cyc-bytevector-copy bv start end))) (Cyc-bytevector-copy bv start end)))
(define (bytevector-copy! to at from . o)
(let* ((start (if (pair? o) (car o) 0))
(end (if (and (pair? o) (pair? (cdr o)))
(cadr o)
(bytevector-length from)))
(limit (min end (+ start (- (bytevector-length to) at)))))
(if (<= at start)
(do ((i at (+ i 1)) (j start (+ j 1)))
((>= j limit))
(bytevector-u8-set! to i (bytevector-u8-ref from j)))
(do ((i (+ at (- end start 1)) (- i 1)) (j (- limit 1) (- j 1)))
((< j start))
(bytevector-u8-set! to i (bytevector-u8-ref from j))))))
(define (utf8->string bv . opts) (define (utf8->string bv . opts)
(letrec ((len (bytevector-length bv)) (letrec ((len (bytevector-length bv))
(start (if (> (length opts) 0) (car opts) 0)) (start (if (> (length opts) 0) (car opts) 0))