Re: [Chicken-users] Re: bytevectors

[felix winkelmann]

On Tue, Feb 17, 2009 at 10:51 PM, Eduardo Cavazos
<address@hidden> wrote:
>
> ----------------------------------------------------------------------
> (use srfi-4)
>
> (define (make-bytevector n)
>  (u8vector->blob/shared (make-u8vector n)))
>
> (define bytevector-length blob-size)
>
> (define (bytevector-ieee-double-native-ref bv i)
>  (f64vector-ref (blob->f64vector/shared bv) (/ i 8)))
>
> (define (bytevector-ieee-double-native-set! bv i val)
>  (f64vector-set! (blob->f64vector/shared bv) (/ i 8) val))
> ----------------------------------------------------------------------
>

That looks good. And it should also be the most efficient
solution.


chers,
felix