Package "homovector"


Version:
v1.0.1
Released:
2765 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:
2800 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))