;;
;;  Utility procedures for manipulating blobs in different endian
;;  formats.
;;
;;  Copyright 2009-2015 Ivan Raikov.
;;
;;
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; General Public License for more details.
;;
;; A full copy of the GPL license can be found at
;; <http://www.gnu.org/licenses/>.
;;


(module endian-blob

	(endian-blob?
	 byte-blob->endian-blob
	 endian-blob->byte-blob
	 endian-blob-length

	 endian-blob->sint1
	 endian-blob->sint2
	 endian-blob->sint4
	 endian-blob->uint1
	 endian-blob->uint2
	 endian-blob->uint4
	 endian-blob->ieee_float32
	 endian-blob->ieee_float64
	 endian-blob->s8vector
	 endian-blob->s16vector
	 endian-blob->s32vector
	 endian-blob->u8vector
	 endian-blob->u16vector
	 endian-blob->u32vector
	 endian-blob->f32vector
	 endian-blob->f64vector

	 sint1->endian-blob
	 sint2->endian-blob
	 sint4->endian-blob
	 uint1->endian-blob
	 uint2->endian-blob
	 uint4->endian-blob
	 ieee_float32->endian-blob
	 ieee_float64->endian-blob
	 s8vector->endian-blob
	 s16vector->endian-blob
	 s32vector->endian-blob
	 u8vector->endian-blob
	 u16vector->endian-blob
	 u32vector->endian-blob
	 f32vector->endian-blob
	 f64vector->endian-blob
	 
	 MSB LSB
	 )


	(import scheme chicken foreign)

	(require-extension srfi-4 byte-blob)

(define-record-type endian-blob
  (make-endian-blob object mode )
  endian-blob?
  (object   endian-blob-object )
  (mode     endian-blob-mode )
  )

(define MSB    0)
(define LSB    1)

(define (byte-blob->endian-blob b . rest) 
  (let-optionals rest ((mode MSB))
   (assert (byte-blob? b))
   (make-endian-blob b mode)))

(define endian-blob->byte-blob endian-blob-object)

(define (endian-blob-length b)
  (let ((bb (endian-blob->byte-blob b)))
    (byte-blob-length bb)))


#>
#include "floatformat.h"

typedef enum { MSB, LSB } byte_order_t;

// Is the present machine mode MSB first?
int machine_mode_is_MSB (void)
{
    union {
        int i;
        char c[sizeof(int)];
    } x;
    x.i = 1;

    return (!(x.c[0] == 1));
}

// Is the given byte order MSB first?
int endian_mode_is_MSB(byte_order_t b) 
{ 
     return (b == MSB); 
}


void cfrom_sint1 (char item, unsigned char *b, unsigned int offset, int mode)
{
    b[offset] = item;
}

void cfrom_sint2 (short item, unsigned char *b, unsigned int offset, int mode)
{
     if ( endian_mode_is_MSB(mode) )
     {
	  b[offset+0] = (item>>8) & 0xff;
	  b[offset+1] = item & 0xff;
     }
     else
     {
	  b[offset+0] = item & 0xff;
	  b[offset+1] = (item>>8) & 0xff;
     }
}

void cfrom_sint4 (int item, unsigned char *b, unsigned int offset, int mode)
{
     int i, k;

     if ( endian_mode_is_MSB(mode) )
     {
	  k = 24;
	  for(i=0; i < 4; i++)
	  {
	       b[offset+i] = (item >> k) & 0xff;
	       k -= 8;
	  }
     }
     else
     {
	  for(i=0; i < 4; i++)
	  {
	       b[offset+i] = item & 0xff;
	       item >>= 8;
	  }
     }
}

void cfrom_uint1 (unsigned char item, unsigned char *b, unsigned int offset, int mode)
{
    b[offset] = item;
}

void cfrom_uint2 (unsigned short item, unsigned char *b, unsigned int offset, int mode)
{
     if ( endian_mode_is_MSB(mode) )
     {
	  b[offset+0] = (item>>8) & 0xff;
	  b[offset+1] = item & 0xff;
     }
     else
     {
	  b[offset+0] = item & 0xff;
	  b[offset+1] = (item>>8) & 0xff;
     }
}

void cfrom_uint4 (unsigned int item, unsigned char *b, unsigned int offset, int mode)
{
     int i, k;
     
     if ( endian_mode_is_MSB(mode) )
     {
	  k = 24;
	  for(i=0; i < 4; i++)
	  {
	       b[offset+i] = (item >> k) & 0xff;
	       k -= 8;
	  }
     }
     else
     {
	  for(i=0; i < 4; i++)
	  {
	       b[offset+i] = item & 0xff;
	       item >>= 8;
	  }
     }
}

void cfrom_ieee_float32 (float item, unsigned char *b, unsigned int offset, int mode)
{
     double d;

     d = item;

     if ( endian_mode_is_MSB(mode) )
     {
	  double_to_floatformat (&floatformat_ieee_single_big, &d, b+offset);
     }
     else
     {
	  double_to_floatformat (&floatformat_ieee_single_little, &d, b+offset);
     }
}


void cfrom_ieee_float64 (double item, unsigned char *b, unsigned int offset, int mode)
{
     double d;

     d = item;

     if ( endian_mode_is_MSB(mode) )
     {
	  double_to_floatformat (&floatformat_ieee_double_big, &d, b+offset);
     }
     else
     {
	  double_to_floatformat (&floatformat_ieee_double_little, &d, b+offset);
     }
}

void cfrom_s8vector (unsigned int n, unsigned char *b, char *v, unsigned int offset, int mode)
{
   memcpy((void *)(b+offset),(const void *)v,n);
}


void cfrom_s16vector (unsigned int n, unsigned char *b, short *v, unsigned int offset, int mode)
{
  unsigned int i,p; 

  p = offset;
  for (i=0; i<n; i++,p += 2)
  {
       cfrom_sint2 (v[i], b, p, mode);
  }
}


void cfrom_s32vector (unsigned int n, unsigned char *b, int *v, unsigned int offset, int mode)
{
  unsigned int i,p; 

  p = offset;
  for (i=0; i<n; i++,p += 4)
  {
       cfrom_sint4 (v[i], b, p, mode);
  }
}


void cfrom_u8vector (unsigned int n, unsigned char *b, unsigned char *v, unsigned int offset, int mode)
{
   memcpy((void *)(b+offset),(const void *)v,n);
}


void cfrom_u16vector (unsigned int n, unsigned char *b, unsigned short *v, unsigned int offset, int mode)
{
  unsigned int i,p; 

  p = offset;
  for (i=0; i<n; i++,p += 2)
  {
       cfrom_uint2 (v[i], b, p, mode);
  }
}


void cfrom_u32vector (unsigned int n, unsigned char *b, unsigned int *v, unsigned int offset, int mode)
{
  unsigned int i,p; 

  p = offset;
  for (i=0; i<n; i++,p += 4)
  {
       cfrom_uint4 (v[i], b, p, mode);
  }
}


void cfrom_f32vector (unsigned int n, unsigned char *b, float *v, unsigned int offset, int mode)
{
  unsigned int i,p; 

  p = offset;
  for (i=0; i<n; i++,p += 4)
  {
       cfrom_ieee_float32 (v[i], b, p, mode);
  }
}


void cfrom_f64vector (unsigned int n, unsigned char *b, double *v, unsigned int offset, int mode)
{
  unsigned int i,p; 

  p = offset;
  for (i=0; i<n; i++,p += 8)
  {
       cfrom_ieee_float64 (v[i], b, p, mode);
  }
}

char cto_sint1 (unsigned char *b, unsigned int offset, int mode)
{
   return b[offset];
}

short cto_sint2 (unsigned char *b, unsigned int offset, int mode)
{
   short result;
   
   if( endian_mode_is_MSB(mode) )
     result = (b[offset+0] << 8) | b[offset+1];
   else
     result = (b[offset+1] << 8) | b[offset+0];

   return (result);
}

int cto_sint4 (unsigned char *b, unsigned int offset, int mode)
{
   int result;

   if ( endian_mode_is_MSB(mode) )
        result = (b[offset+0] << 24) | (b[offset+1] << 16) |
	         (b[offset+2] << 8)  | (b[offset+3]);
     else
	  result = (b[offset+3] << 24) | (b[offset+2] << 16) |
	           (b[offset+1] << 8) | (b[offset+0]);

   return(result);
}

unsigned char cto_uint1 (unsigned char *b, unsigned int offset, int mode)
{
   return b[offset];
}

unsigned short cto_uint2 (unsigned char *b, unsigned int offset, int mode)
{
   unsigned short result;
   
   if( endian_mode_is_MSB(mode) )
     result = (b[offset+0] << 8) | b[offset+1];
   else
     result = (b[offset+1] << 8) | b[offset+0];

   return (result);
}

unsigned int cto_uint4 (unsigned char *b, unsigned int offset, int mode)
{
   unsigned int result;

   if ( endian_mode_is_MSB(mode) )
        result = (b[offset+0] << 24) | (b[offset+1] << 16) |
	         (b[offset+2] << 8)  | (b[offset+3]);
     else
	  result = (b[offset+3] << 24) | (b[offset+2] << 16) |
	           (b[offset+1] << 8) | (b[offset+0]);

   return(result);
}


float cto_ieee_float32 (unsigned char *b, unsigned int offset, int mode)
{
   ssize_t s;
   double d;
   const struct floatformat *fmt;
   unsigned long exponent;

   d = 0.0;

   if ( endian_mode_is_MSB(mode) )
   {
     fmt = &floatformat_ieee_single_big;
   }
   else
   {
     fmt = &floatformat_ieee_single_little;
   }

   exponent = get_field ((unsigned char *)(b+offset), fmt->byteorder, fmt->totalsize,
		         fmt->exp_start, fmt->exp_len);

   floatformat_to_double(fmt, b+offset, &d);

   return((float)d);
}

double cto_ieee_float64 (unsigned char *b, unsigned int offset, int mode)
{
   ssize_t s;
   double d;
   const struct floatformat *fmt;
   unsigned long exponent;

   d = 0.0;

   if ( endian_mode_is_MSB(mode) )
   {
     fmt = &floatformat_ieee_double_big;
   }
   else
   {
     fmt = &floatformat_ieee_double_little;
   }

   exponent = get_field ((unsigned char *)(b+offset), fmt->byteorder, fmt->totalsize,
		         fmt->exp_start, fmt->exp_len);

   floatformat_to_double(fmt, b+offset, &d);

   return(d);
}

void cto_s8vector (unsigned int n, char *v, unsigned char *b, unsigned int offset, int mode)
{
   memcpy((void *)v,(const void *)(b+offset),n);
}


void cto_s16vector (unsigned int n, short *v, unsigned char *b, unsigned int offset, int mode)
{
  unsigned int i,p; short r;

  p = offset;
  for (i=0; i<n; i++,p += 2)
  {
       r = cto_sint2 (b, p, mode);
       v[i] = r;
  }
}


void cto_s32vector (unsigned int n, int *v, unsigned char *b, unsigned int offset, int mode)
{
  unsigned int i,p; int r;

  p = offset;
  for (i=0; i<n; i++,p += 4)
  {
       r = cto_sint4 (b, p, mode);
       v[i] = r;
  }
}

void cto_u8vector (unsigned int n, unsigned char *v, unsigned char *b, unsigned int offset, int mode)
{
   memcpy((void *)v,(const void *)(b+offset),n);
}


void cto_u16vector (unsigned int n, unsigned short *v, unsigned char *b, unsigned int offset, int mode)
{
  unsigned int i,p; unsigned short r;

  p = offset;
  for (i=0; i<n; i++,p += 2)
  {
       r = cto_uint2 (b, p, mode);
       v[i] = r;
  }
}


void cto_u32vector (unsigned int n, unsigned int *v, unsigned char *b, unsigned int offset, int mode)
{
  unsigned int i,p; unsigned int r;

  p = offset;
  for (i=0; i<n; i++,p += 4)
  {
       r = cto_uint4 (b, p, mode);
       v[i] = r;
  }
}


void cto_f32vector (unsigned int n, float *v, unsigned char *b, unsigned int offset, int mode)
{
  unsigned int i,p; float r;

  p = offset;
  for (i=0; i<n; i++,p += 4)
  {
       r = cto_ieee_float32 (b, p, mode);
       v[i] = r;
  }
}


void cto_f64vector (unsigned int n, double *v, unsigned char *b, unsigned int offset, int mode)
{
  unsigned int i,p; double r;

  p = offset;
  for (i=0; i<n; i++,p += 8)
  {
       r = cto_ieee_float64 (b, p, mode);
       v[i] = r;
  }
}


<#

(define machine_mode_is_MSB 
  (foreign-lambda bool  "machine_mode_is_MSB" ))

(define from_sint1 
  (foreign-lambda void  "cfrom_sint1" byte nonnull-blob unsigned-int integer))

(define from_sint2
  (foreign-lambda void "cfrom_sint2" short nonnull-blob unsigned-int integer))

(define from_sint4
  (foreign-lambda void "cfrom_sint4" int nonnull-blob unsigned-int integer))


(define from_uint1 
  (foreign-lambda void  "cfrom_uint1" unsigned-byte nonnull-blob unsigned-int integer))

(define from_uint2
  (foreign-lambda void "cfrom_uint2" unsigned-short nonnull-blob unsigned-int integer))

(define from_uint4
  (foreign-lambda void "cfrom_uint4" unsigned-int nonnull-blob unsigned-int integer))

(define from_ieee_float32 
  (foreign-lambda void "cfrom_ieee_float32" float nonnull-blob unsigned-int integer ))

(define from_ieee_float64
    (foreign-lambda void "cfrom_ieee_float64" double nonnull-blob unsigned-int integer ))



(define from_s8vector 
  (foreign-lambda void  "cfrom_s8vector"  unsigned-int nonnull-blob s8vector unsigned-int integer ))

(define from_s16vector
  (foreign-lambda void "cfrom_s16vector"  unsigned-int nonnull-blob s16vector unsigned-int integer))

(define from_s32vector
  (foreign-lambda void "cfrom_s32vector"  unsigned-int nonnull-blob s32vector unsigned-int integer))

(define from_u8vector 
  (foreign-lambda void  "cfrom_u8vector"  unsigned-int nonnull-blob u8vector unsigned-int integer ))

(define from_u16vector
  (foreign-lambda void "cfrom_u16vector"  unsigned-int nonnull-blob u16vector unsigned-int integer))

(define from_u32vector
  (foreign-lambda void "cfrom_u32vector"  unsigned-int nonnull-blob u32vector unsigned-int integer))

(define from_f32vector
  (foreign-lambda void "cfrom_f32vector"  unsigned-int nonnull-blob f32vector unsigned-int integer))

(define from_f64vector
  (foreign-lambda void "cfrom_f64vector"  unsigned-int nonnull-blob f64vector unsigned-int integer))


(define to_sint1 
  (foreign-lambda byte  "cto_sint1" nonnull-blob unsigned-int integer))

(define to_sint2
  (foreign-lambda short "cto_sint2" nonnull-blob unsigned-int integer))

(define to_sint4
  (foreign-lambda int "cto_sint4" nonnull-blob unsigned-int integer))


(define to_uint1 
  (foreign-lambda unsigned-byte  "cto_uint1" nonnull-blob unsigned-int integer))

(define to_uint2
  (foreign-lambda unsigned-short "cto_uint2" nonnull-blob unsigned-int integer))

(define to_uint4
  (foreign-lambda unsigned-int "cto_uint4" nonnull-blob unsigned-int integer))

(define to_ieee_float32 
  (foreign-lambda float "cto_ieee_float32"  nonnull-blob unsigned-int integer ))

(define to_ieee_float64
    (foreign-lambda double "cto_ieee_float64"  nonnull-blob unsigned-int integer ))



(define to_s8vector 
  (foreign-lambda void "cto_s8vector" unsigned-int s8vector nonnull-blob unsigned-int integer ))

(define to_s16vector
  (foreign-lambda void "cto_s16vector" unsigned-int s16vector nonnull-blob unsigned-int integer))

(define to_s32vector
  (foreign-lambda void "cto_s32vector" unsigned-int s32vector nonnull-blob unsigned-int integer))

(define to_u8vector 
  (foreign-lambda void "cto_u8vector" unsigned-int u8vector nonnull-blob unsigned-int integer ))

(define to_u16vector
  (foreign-lambda void "cto_u16vector" unsigned-int u16vector nonnull-blob unsigned-int integer))

(define to_u32vector
  (foreign-lambda void "cto_u32vector" unsigned-int u32vector nonnull-blob unsigned-int integer))

(define to_f32vector
  (foreign-lambda void "cto_f32vector" unsigned-int f32vector nonnull-blob unsigned-int integer))

(define to_f64vector
  (foreign-lambda void "cto_f64vector" unsigned-int f64vector nonnull-blob unsigned-int integer))


(define machine-mode (if (machine_mode_is_MSB) MSB LSB))


(define (sint1->endian-blob n . rest)
  (let-optionals rest ((mode MSB))
    (let ((bb (s8vector->blob/shared (s8vector n))))
      (if (not (fx= machine-mode mode))
	  (from_sint1 n bb 0 mode))
      (make-endian-blob (blob->byte-blob bb) mode))))


(define (sint2->endian-blob n . rest)
  (let-optionals rest ((mode MSB))
    (let ((bb (s16vector->blob/shared (s16vector n))))
      (if (not (fx= machine-mode mode))
	  (from_sint2 n bb 0 mode))
      (make-endian-blob (blob->byte-blob bb) mode))))


(define (sint4->endian-blob n . rest)
  (let-optionals rest ((mode MSB))
    (let ((bb (s32vector->blob/shared (s32vector n))))
      (if (not (fx= machine-mode mode))
	  (from_sint4 n bb 0 mode))
      (make-endian-blob (blob->byte-blob bb) mode))))


(define (uint1->endian-blob n . rest)
  (let-optionals rest ((mode MSB))
    (let ((bb (u8vector->blob/shared (u8vector n))))
      (if (not (fx= machine-mode mode))
	  (from_uint1 n bb 0 mode))
      (make-endian-blob (blob->byte-blob bb) mode))))


(define (uint2->endian-blob n . rest)
  (let-optionals rest ((mode MSB))
    (let ((bb (u16vector->blob/shared (u16vector n))))
      (if (not (fx= machine-mode mode))
	  (from_uint2 n bb 0 mode))
      (make-endian-blob (blob->byte-blob bb) mode))))


(define (uint4->endian-blob n . rest)
  (let-optionals rest ((mode MSB))
    (let ((bb (u32vector->blob/shared (u32vector n))))
      (if (not (fx= machine-mode mode))
	  (from_uint4 n bb 0 mode))
      (make-endian-blob (blob->byte-blob bb) mode))))


(define (ieee_float32->endian-blob n . rest)
  (let-optionals rest ((mode MSB))
    (let ((bb (f32vector->blob/shared (f32vector n))))
      (if (not (fx= machine-mode mode))
	  (from_ieee_float32 n bb 0 mode))
      (make-endian-blob (blob->byte-blob bb) mode))))


(define (ieee_float64->endian-blob n . rest)
  (let-optionals rest ((mode MSB))
    (let ((bb (f64vector->blob/shared (f64vector n))))
      (if (not (fx= machine-mode mode))
	  (from_ieee_float64 n bb 0 mode))
      (make-endian-blob (blob->byte-blob bb) mode))))


(define (s8vector->endian-blob v . rest)
  (let-optionals rest ((mode MSB))
   (if (fx= machine-mode mode) 
       (make-endian-blob (s8vector->byte-blob v) mode)
       (let* ((n  (s8vector-length v))
	      (bb (byte-blob-replicate n 0))
	      (b  (make-endian-blob bb mode)))
	 (from_s8vector n (byte-blob->object bb) v
			(byte-blob-offset bb) 
			(endian-blob-mode b))
	 b))))


(define (s16vector->endian-blob v . rest)
  (let-optionals rest ((mode MSB))
   (if (fx= machine-mode mode) 
       (make-endian-blob (s16vector->byte-blob v) mode)
       (let* ((n  (s16vector-length v))
	      (bb (byte-blob-replicate (* 2 n) 0))
	      (b  (make-endian-blob bb mode)))
	 (from_s16vector n (byte-blob->blob bb) v
			 (byte-blob-offset bb) 
			 (endian-blob-mode b))
	 b))))


(define (s32vector->endian-blob v . rest)
  (let-optionals rest ((mode MSB))
   (if (fx= machine-mode mode) 
       (make-endian-blob (s32vector->byte-blob v) mode)
       (let* ((n  (s32vector-length v))
	      (bb (byte-blob-replicate (* 4 n) 0))
	      (b  (make-endian-blob bb mode)))
	 (from_s32vector n (byte-blob->blob bb) v
			 (byte-blob-offset bb) 
			 (endian-blob-mode b))
	 b))))

(define (u8vector->endian-blob v . rest)
  (let-optionals rest ((mode MSB))
   (if (fx= machine-mode mode) 
       (make-endian-blob (u8vector->byte-blob v) mode)
       (let* ((n  (u8vector-length v))
	      (bb (byte-blob-replicate n 0))
	      (b  (make-endian-blob bb mode)))
	 (from_u8vector n (byte-blob->blob bb) v
			(byte-blob-offset bb) 
			(endian-blob-mode b))
	 b))))


(define (u16vector->endian-blob v . rest)
  (let-optionals rest ((mode MSB))
    (if (fx= machine-mode mode) 
	(make-endian-blob (u16vector->byte-blob v) mode)
	(let* ((n  (u16vector-length v))
	       (bb (byte-blob-replicate (* 2 n) 0))
	       (b  (make-endian-blob bb mode)))
	  (from_u16vector n (byte-blob->blob bb) v
			  (byte-blob-offset bb) 
			  (endian-blob-mode b))
	  b))))


(define (u32vector->endian-blob v . rest)
  (let-optionals rest ((mode MSB))
    (if (fx= machine-mode mode) 
       (make-endian-blob (u32vector->byte-blob v) mode)
       (let* ((n  (u32vector-length v))
	      (bb (byte-blob-replicate (* 4 n) 0))
	      (b  (make-endian-blob bb mode)))
	 (from_u32vector n (byte-blob->blob bb) v
			 (byte-blob-offset bb) 
			 (endian-blob-mode b))
	 b))))


(define (f32vector->endian-blob v . rest)
  (let-optionals rest ((mode MSB))
    (if (fx= machine-mode mode) 
	(make-endian-blob (f32vector->byte-blob v) mode)
	(let* ((n  (f32vector-length v))
	       (bb (byte-blob-replicate (* 4 n) 0))
	       (b  (make-endian-blob bb mode)))
	  (from_f32vector n (byte-blob->blob bb) v
			  (byte-blob-offset bb) 
			  (endian-blob-mode b))
	  b))))


(define (f64vector->endian-blob v . rest)
  (let-optionals rest ((mode MSB))
    (if (fx= machine-mode mode) 
	(make-endian-blob (f64vector->byte-blob v) mode)
	(let* ((n  (f64vector-length v))
	       (bb (byte-blob-replicate (* 8 n) 0))
	       (b  (make-endian-blob bb mode)))
	  (from_f64vector n (byte-blob->blob bb) v
			  (byte-blob-offset bb) 
			  (endian-blob-mode b))
	  b))))

(define (endian-blob->sint1 b)
  (let ((bb (endian-blob->byte-blob b)))
    (assert (= (byte-blob-length bb) 1))
    (to_sint1 (byte-blob->blob bb) (byte-blob-offset bb) 
	      (endian-blob-mode b))))


(define (endian-blob->sint2 b)
  (let ((bb (endian-blob->byte-blob b)))
    (assert (= (byte-blob-length bb) 2))
    (to_sint2 (byte-blob->blob bb) (byte-blob-offset bb) 
	      (endian-blob-mode b))))


(define (endian-blob->sint4 b)
  (let ((bb (endian-blob->byte-blob b)))
    (assert (= (byte-blob-length bb) 4))
    (to_sint4 (byte-blob->blob bb) (byte-blob-offset bb) 
	      (endian-blob-mode b))))


(define (endian-blob->uint1 b)
  (let ((bb (endian-blob->byte-blob b)))
    (assert (= (byte-blob-length bb) 1))
    (to_uint1 (byte-blob->blob bb) (byte-blob-offset bb) 
	      (endian-blob-mode b))))


(define (endian-blob->uint2 b)
  (let ((bb (endian-blob->byte-blob b)))
    (assert (= (byte-blob-length bb) 2))
    (to_uint2 (byte-blob->blob bb) (byte-blob-offset bb) 
	      (endian-blob-mode b))))


(define (endian-blob->uint4 b)
  (let ((bb (endian-blob->byte-blob b)))
    (assert (= (byte-blob-length bb) 4))
    (to_uint4 (byte-blob->blob bb) (byte-blob-offset bb) 
	      (endian-blob-mode b))))


(define (endian-blob->ieee_float32 b)
  (let ((bb (endian-blob->byte-blob b)))
    (assert (= (byte-blob-length bb) 4))
    (to_ieee_float32 (byte-blob->blob bb) (byte-blob-offset bb) 
		      (endian-blob-mode b))))


(define (endian-blob->ieee_float64 b)
  (let ((bb (endian-blob->byte-blob b)))
    (assert (= (byte-blob-length bb) 8))
    (to_ieee_float64 (byte-blob->blob bb) (byte-blob-offset bb) 
		      (endian-blob-mode b))))

(define (endian-blob->s8vector b)
  (let* ((bb (endian-blob->byte-blob b))
	 (mode (endian-blob-mode b))
	 (n  (byte-blob-length bb)))
    (assert (positive? n))
    (if (fx= machine-mode mode) 
	 (byte-blob->s8vector bb)
	 (let ((v (make-s8vector n 0)))
	   (to_s8vector n v 
			(byte-blob->blob bb) 
			(byte-blob-offset bb)
			mode)
	   v))))


(define (endian-blob->s16vector b)
  (let* ((bb (endian-blob->byte-blob b))
	 (mode (endian-blob-mode b))
	 (n  (byte-blob-length bb)))
    (assert (and (positive? n) (zero? (modulo n 2))))
    (if (fx= machine-mode mode) 
	 (byte-blob->s16vector bb)
	 (let* ((s  (/ n 2))
		(v (make-s16vector s 0)))
	   (to_s16vector s v 
			 (byte-blob->blob bb) 
			 (byte-blob-offset bb) 
			 mode)
	   v))))


(define (endian-blob->s32vector b)
  (let* ((bb (endian-blob->byte-blob b))
	 (mode (endian-blob-mode b))
	 (n  (byte-blob-length bb)))
    (assert (and (positive? n) (zero? (modulo n 4))))
    (if (fx= machine-mode mode) 
	 (byte-blob->s32vector bb)
	 (let* ((s  (/ n 4))
		(v (make-s32vector s 0)))
	   (to_s32vector s v 
			 (byte-blob->blob bb) 
			 (byte-blob-offset bb) 
			 mode)
	   v))))

(define (endian-blob->u8vector b)
  (let* ((bb (endian-blob->byte-blob b))
	 (mode (endian-blob-mode b))
	 (n  (byte-blob-length bb)))
    (assert (positive? n))
    (if (fx= machine-mode mode) 
	(byte-blob->u8vector bb)
	(let ((v (make-u8vector n 0)))
	  (to_u8vector n v 
		       (byte-blob->blob bb) 
		       (byte-blob-offset bb) 
		       mode)
	  v))))


(define (endian-blob->u16vector b)
  (let* ((bb (endian-blob->byte-blob b))
	 (mode (endian-blob-mode b))
	 (n  (byte-blob-length bb)))
    (assert (and (positive? n) (zero? (modulo n 2))))
    (if (fx= machine-mode mode) 
	(byte-blob->u16vector bb)
	(let* ((s  (/ n 2))
	       (v (make-u16vector s 0)))
	  (to_u16vector s v 
			(byte-blob->blob bb) 
			(byte-blob-offset bb) 
			mode)
	  v))))


(define (endian-blob->u32vector b)
  (let* ((bb (endian-blob->byte-blob b))
	 (mode (endian-blob-mode b))
	 (n  (byte-blob-length bb)))
    (assert (and (positive? n) (zero? (modulo n 4))))
    (if (fx= machine-mode mode) 
	(byte-blob->u32vector bb)
	(let* ((s  (/ n 4))
	       (v (make-u32vector s 0)))
	  (to_u32vector s v 
			(byte-blob->blob bb) 
			(byte-blob-offset bb) 
			mode)
	  v))))


(define (endian-blob->f32vector b)
  (let* ((bb (endian-blob->byte-blob b))
	 (mode (endian-blob-mode b))
	 (n  (byte-blob-length bb)))
    (assert (and (positive? n) (zero? (modulo n 4))))
    (if (fx= machine-mode mode) 
	 (byte-blob->f32vector bb)
	 (let* ((s  (/ n 4))
		(v (make-f32vector s 0)))
	   (to_f32vector s v 
			 (byte-blob->blob bb) 
			 (byte-blob-offset bb) 
		    mode)
	   v))))


(define (endian-blob->f64vector b)
  (let* ((bb (endian-blob->byte-blob b))
	 (mode (endian-blob-mode b))
	 (n  (byte-blob-length bb)))
    (assert (and (positive? n) (zero? (modulo n 8))))
    (if (fx= machine-mode mode) 
	 (byte-blob->f64vector bb)
	 (let* ((s  (/ n 8))
		(v (make-f64vector s 0)))
	   (to_f64vector s v 
			 (byte-blob->blob bb) 
			 (byte-blob-offset bb) 
			 mode)
	   v))))


)