mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-20 06:09:18 +02:00
56 lines
1.8 KiB
Scheme
56 lines
1.8 KiB
Scheme
|
|
(define-library (scheme vector base)
|
|
(import (srfi 160 base))
|
|
(export
|
|
;;
|
|
make-u1vector u1vector u1? u1vector?
|
|
u1vector-ref u1vector-set! u1vector-length
|
|
u1vector->list list->u1vector
|
|
;;
|
|
make-u8vector u8vector u8? u8vector?
|
|
u8vector-ref u8vector-set! u8vector-length
|
|
u8vector->list list->u8vector
|
|
;;
|
|
make-s8vector s8vector s8? s8vector?
|
|
s8vector-ref s8vector-set! s8vector-length
|
|
s8vector->list list->s8vector
|
|
;;
|
|
make-u16vector u16vector u16? u16vector?
|
|
u16vector-ref u16vector-set! u16vector-length
|
|
u16vector->list list->u16vector
|
|
;;
|
|
make-s16vector s16vector s16? s16vector?
|
|
s16vector-ref s16vector-set! s16vector-length
|
|
s16vector->list list->s16vector
|
|
;;
|
|
make-u32vector u32vector u32? u32vector?
|
|
u32vector-ref u32vector-set! u32vector-length
|
|
u32vector->list list->u32vector
|
|
;;
|
|
make-s32vector s32vector s32? s32vector?
|
|
s32vector-ref s32vector-set! s32vector-length
|
|
s32vector->list list->s32vector
|
|
;;
|
|
make-u64vector u64vector u64? u64vector?
|
|
u64vector-ref u64vector-set! u64vector-length
|
|
u64vector->list list->u64vector
|
|
;;
|
|
make-s64vector s64vector s64? s64vector?
|
|
s64vector-ref s64vector-set! s64vector-length
|
|
s64vector->list list->s64vector
|
|
;;
|
|
make-f32vector f32vector f32? f32vector?
|
|
f32vector-ref f32vector-set! f32vector-length
|
|
f32vector->list list->f32vector
|
|
;;
|
|
make-f64vector f64vector f64? f64vector?
|
|
f64vector-ref f64vector-set! f64vector-length
|
|
f64vector->list list->f64vector
|
|
;;
|
|
make-c64vector c64vector c64? c64vector?
|
|
c64vector-ref c64vector-set! c64vector-length
|
|
c64vector->list list->c64vector
|
|
;;
|
|
make-c128vector c128vector c128? c128vector?
|
|
c128vector-ref c128vector-set! c128vector-length
|
|
c128vector->list list->c128vector))
|