;;;; to-hex.scm  -*- Hen -*-
;;;; Kon Lovett, Sep '10

(module to-hex

  (;export
    mem_to_hex
    s8vec_to_hex
    u8vec_to_hex
    blob_to_hex
    str_to_hex)

  (import
    scheme
    chicken
    foreign)

;;

#>
static void
bv_to_hex( void *out, void *in, int off, int len )
{
  static char digits[] = "0123456789abcdef";
  unsigned char *pin = ((unsigned char *)in) + off;
  unsigned char *pout = ((unsigned char *)out);
  while (len--) {
    *pout++ = digits[ *pin >> 4 ];
    *pout++ = digits[ *pin++ & 0x0f ];
  }
}
<#

(define str_to_hex
  (foreign-lambda void "bv_to_hex" nonnull-scheme-pointer nonnull-scheme-pointer int int))

(define blob_to_hex
  (foreign-lambda void "bv_to_hex" nonnull-scheme-pointer nonnull-blob int int))

(define u8vec_to_hex
  (foreign-lambda void "bv_to_hex" nonnull-scheme-pointer nonnull-u8vector int int))

(define s8vec_to_hex
  (foreign-lambda void "bv_to_hex" nonnull-scheme-pointer nonnull-s8vector int int))

(define mem_to_hex
  (foreign-lambda void "bv_to_hex" nonnull-scheme-pointer nonnull-c-pointer int int))

) ;module to-hex