1;;;
2;;; srfi-66 - Octet vectors
3;;;
4
5;; It is mostly a subset of srfi-4, except
6
7;;  u8vector=?       - gauche.uvector provides this
8;;  u8vector-compare - gauche.uvector provides this
9;;  u8vector-copy!   - this has different argument order
10
11(define-module srfi-66
12  (use gauche.uvector :rename ((u8vector-copy! gauche:u8vector-copy!)))
13  (export u8vector? make-u8vector u8vector
14          u8vector->list list->u8vector
15          u8vector-length u8vector-ref u8vector-set!
16          u8vector=? u8vector-compare
17          u8vector-copy! u8vector-copy))
18(select-module srfi-66)
19
20(define (u8vector-copy! src src-start target target-start n)
21  (gauche:u8vector-copy! target target-start src src-start (+ n src-start)))
22
23
24
25