Package "homovector"
- Version:
- v1.0.1
- Released:
- 2237 days ago
- Maintainer:
- Scheme Now! <snow at iro.umontreal.ca>
- Author:
- Marc Feeley <feeley at iro.umontreal.ca>
- Homepage:
- http://snow.iro.umontreal.ca
- Description:
- Homogeneous numeric vectors.
- Keywords:
- math snow
- Package form:
(package* homovector/v1.0.1 (provide: (cond-expand ((or bigloo chicken gambit) (define-macro (snow-make-u8vector n . fill) `(make-u8vector ,n ,@fill)) (define-macro (snow-u8vector . lst) `(u8vector ,@lst)) (define-macro (snow-u8vector? obj) `(u8vector? ,obj)) (define-macro (snow-u8vector-length u8vect) `(u8vector-length ,u8vect)) (define-macro (snow-u8vector-ref u8vect i) `(u8vector-ref ,u8vect ,i)) (define-macro (snow-u8vector-set! u8vect i x) `(u8vector-set! ,u8vect ,i ,x)) (define-macro (snow-u8vector->list u8vect) `(u8vector->list ,u8vect)) (define-macro (snow-list->u8vector lst) `(list->u8vector ,lst)) (define-macro (snow-make-u16vector n . fill) `(make-u16vector ,n ,@fill)) (define-macro (snow-u16vector . lst) `(u16vector ,@lst)) (define-macro (snow-u16vector? obj) `(u16vector? ,obj)) (define-macro (snow-u16vector-length u16vect) `(u16vector-length ,u16vect)) (define-macro (snow-u16vector-ref u16vect i) `(u16vector-ref ,u16vect ,i)) (define-macro (snow-u16vector-set! u16vect i x) `(u16vector-set! ,u16vect ,i ,x)) (define-macro (snow-u16vector->list u16vect) `(u16vector->list ,u16vect)) (define-macro (snow-list->u16vector lst) `(list->u16vector ,lst))) (else (define-macro (snow-make-u8vector n . fill) `(snow-make-u8v ,n ,@fill)) (define-macro (snow-u8vector . lst) `(snow-u8v ,@lst)) (define-macro (snow-u8vector? obj) `(snow-u8v? ,obj)) (define-macro (snow-u8vector-length u8vect) `(snow-u8v-length ,u8vect)) (define-macro (snow-u8vector-ref u8vect i) `(snow-u8v-ref ,u8vect ,i)) (define-macro (snow-u8vector-set! u8vect i x) `(snow-u8v-set! ,u8vect ,i ,x)) (define-macro (snow-u8vector->list u8vect) `(snow-u8v->list ,u8vect)) (define-macro (snow-list->u8vector lst) `(snow-list->u8v ,lst)) (define-macro (snow-make-u16vector n . fill) `(snow-make-u16v ,n ,@fill)) (define-macro (snow-u16vector . lst) `(snow-u16v ,@lst)) (define-macro (snow-u16vector? obj) `(snow-u16v? ,obj)) (define-macro (snow-u16vector-length u16vect) `(snow-u16v-length ,u16vect)) (define-macro (snow-u16vector-ref u16vect i) `(snow-u16v-ref ,u16vect ,i)) (define-macro (snow-u16vector-set! u16vect i x) `(snow-u16v-set! ,u16vect ,i ,x)) (define-macro (snow-u16vector->list u16vect) `(snow-u16v->list ,u16vect)) (define-macro (snow-list->u16vector lst) `(snow-list->u16v ,lst)) (define* (snow-make-u8v n (fill _))) (define (snow-u8v . lst)) (define (snow-u8v? obj)) (define (snow-u8v-length u8vect)) (define (snow-u8v-ref u8vect i)) (define (snow-u8v-set! u8vect i x)) (define (snow-u8v->list u8vect)) (define (snow-list->u8v lst)) (define* (snow-make-u16v n (fill _))) (define (snow-u16v . lst)) (define (snow-u16v? obj)) (define (snow-u16v-length u16vect)) (define (snow-u16v-ref u16vect i)) (define (snow-u16v-set! u16vect i x)) (define (snow-u16v->list u16vect)) (define (snow-list->u16v lst)))) (define (snow-subu8vector-move! src src-start src-end dst dst-start)) (define (snow-subu8vector u8vect start end)) (define (snow-subu16vector-move! src src-start src-end dst dst-start)) (define (snow-subu16vector u16vect start end)) (define (snow-ISO-8859-1-substring->u8vector str start end)) (define (snow-ISO-8859-1-string->u8vector str)) (define (snow-subu8vector->ISO-8859-1-string u8vect start end)) (define (snow-u8vector->ISO-8859-1-string u8vect)) (define (snow-hex-substring->u8vector str start end)) (define (snow-hex-string->u8vector str)) (define (snow-subu8vector->hex-string u8vect start end)) (define (snow-u8vector->hex-string u8vect)) (define (snow-apply-u8vector-append lst)) (define (snow-u8vector-append . lst))) (maintainer: "Scheme Now! <snow at iro.umontreal.ca>") (author: "Marc Feeley <feeley at iro.umontreal.ca>") (homepage: "http://snow.iro.umontreal.ca") (description: "Homogeneous numeric vectors.") (keywords: math snow) (license: lgpl/v2.1) (require: fixnum/v1))
- Version:
- v1.0.0
- Released:
- 2271 days ago
- Maintainer:
- Scheme Now! <snow at iro.umontreal.ca>
- Author:
- Marc Feeley <feeley at iro.umontreal.ca>
- Homepage:
- http://snow.iro.umontreal.ca
- Description:
- Homogeneous numeric vectors.
- Keywords:
- math snow
- Package form:
(package* homovector/v1.0.0 (provide: (cond-expand ((or bigloo chicken gambit) (define-macro* (snow-make-u8vector n . fill) `(make-u8vector ,n ,@fill)) (define-macro* (snow-u8vector . lst) `(u8vector ,@lst)) (define-macro* (snow-u8vector? obj) `(u8vector? ,obj)) (define-macro* (snow-u8vector-length u8vect) `(u8vector-length ,u8vect)) (define-macro* (snow-u8vector-ref u8vect i) `(u8vector-ref ,u8vect ,i)) (define-macro* (snow-u8vector-set! u8vect i x) `(u8vector-set! ,u8vect ,i ,x)) (define-macro* (snow-u8vector->list u8vect) `(u8vector->list ,u8vect)) (define-macro* (snow-list->u8vector lst) `(list->u8vector ,lst)) (define-macro* (snow-make-u16vector n . fill) `(make-u16vector ,n ,@fill)) (define-macro* (snow-u16vector . lst) `(u16vector ,@lst)) (define-macro* (snow-u16vector? obj) `(u16vector? ,obj)) (define-macro* (snow-u16vector-length u16vect) `(u16vector-length ,u16vect)) (define-macro* (snow-u16vector-ref u16vect i) `(u16vector-ref ,u16vect ,i)) (define-macro* (snow-u16vector-set! u16vect i x) `(u16vector-set! ,u16vect ,i ,x)) (define-macro* (snow-u16vector->list u16vect) `(u16vector->list ,u16vect)) (define-macro* (snow-list->u16vector lst) `(list->u16vector ,lst))) (else (define-macro* (snow-make-u8vector n . fill) `(snow-make-u8v ,n ,@fill)) (define-macro* (snow-u8vector . lst) `(snow-u8v ,@lst)) (define-macro* (snow-u8vector? obj) `(snow-u8v? ,obj)) (define-macro* (snow-u8vector-length u8vect) `(snow-u8v-length ,u8vect)) (define-macro* (snow-u8vector-ref u8vect i) `(snow-u8v-ref ,u8vect ,i)) (define-macro* (snow-u8vector-set! u8vect i x) `(snow-u8v-set! ,u8vect ,i ,x)) (define-macro* (snow-u8vector->list u8vect) `(snow-u8v->list ,u8vect)) (define-macro* (snow-list->u8vector lst) `(snow-list->u8v ,lst)) (define-macro* (snow-make-u16vector n . fill) `(snow-make-u16v ,n ,@fill)) (define-macro* (snow-u16vector . lst) `(snow-u16v ,@lst)) (define-macro* (snow-u16vector? obj) `(snow-u16v? ,obj)) (define-macro* (snow-u16vector-length u16vect) `(snow-u16v-length ,u16vect)) (define-macro* (snow-u16vector-ref u16vect i) `(snow-u16v-ref ,u16vect ,i)) (define-macro* (snow-u16vector-set! u16vect i x) `(snow-u16v-set! ,u16vect ,i ,x)) (define-macro* (snow-u16vector->list u16vect) `(snow-u16v->list ,u16vect)) (define-macro* (snow-list->u16vector lst) `(snow-list->u16v ,lst)) (define* (snow-make-u8v n (fill _))) (define* (snow-u8v . lst)) (define* (snow-u8v? obj)) (define* (snow-u8v-length u8vect)) (define* (snow-u8v-ref u8vect i)) (define* (snow-u8v-set! u8vect i x)) (define* (snow-u8v->list u8vect)) (define* (snow-list->u8v lst)) (define* (snow-make-u16v n (fill _))) (define* (snow-u16v . lst)) (define* (snow-u16v? obj)) (define* (snow-u16v-length u16vect)) (define* (snow-u16v-ref u16vect i)) (define* (snow-u16v-set! u16vect i x)) (define* (snow-u16v->list u16vect)) (define* (snow-list->u16v lst)))) (define* (snow-subu8vector-move! src src-start src-end dst dst-start)) (define* (snow-subu8vector u8vect start end)) (define* (snow-subu16vector-move! src src-start src-end dst dst-start)) (define* (snow-subu16vector u16vect start end)) (define* (snow-ISO-8859-1-substring->u8vector str start end)) (define* (snow-ISO-8859-1-string->u8vector str)) (define* (snow-subu8vector->ISO-8859-1-string u8vect start end)) (define* (snow-u8vector->ISO-8859-1-string u8vect)) (define* (snow-hex-substring->u8vector str start end)) (define* (snow-hex-string->u8vector str)) (define* (snow-subu8vector->hex-string u8vect start end)) (define* (snow-u8vector->hex-string u8vect)) (define* (snow-apply-u8vector-append lst)) (define* (snow-u8vector-append . lst))) (maintainer: "Scheme Now! <snow at iro.umontreal.ca>") (author: "Marc Feeley <feeley at iro.umontreal.ca>") (homepage: "http://snow.iro.umontreal.ca") (description: "Homogeneous numeric vectors.") (keywords: math snow) (license: lgpl/v2.1) (require: fixnum/v1))