# HG changeset patch
# User zb <zb@3e8.org>
# Date 1294903303 21600
# Node ID 7e15bf9986e74b288881a5b39ec04f55437c06e7
# Parent  368abff2e24574a17aec3b6c98d28f30d9e523a8
tokenize ___blob

diff --git a/c.l b/c.l
--- a/c.l
+++ b/c.l
@@ -61,6 +61,7 @@
 "___scheme_value"                   (tok 'scheme-value)
 "___scheme_pointer"                 (tok 'scheme-pointer)
 "___byte_vector"                    (tok 'byte-vector)
+"___blob"                           (tok 'blob)
 "C_word"                            (tok 'scheme-value)
 "___abstract"                       (tok 'abstract)
 "___specialize"                     (tok 'specialize)
# HG changeset patch
# User zb <zb@3e8.org>
# Date 1294903770 21600
# Node ID bb9694e5f274cd637f6e476e9a8c36a72c2be12d
# Parent  7e15bf9986e74b288881a5b39ec04f55437c06e7
add blob to translator

diff --git a/bind-translator.scm b/bind-translator.scm
--- a/bind-translator.scm
+++ b/bind-translator.scm
@@ -285,6 +285,7 @@
     [`(scheme-value . ,more) (values 'scheme-object more)]
     [`(scheme-pointer . ,more) (values 'scheme-pointer more)]
     [`(byte-vector . ,more) (values 'byte-vector more)]
+    [`(blob . ,more) (values 'blob more)]
     [`(pointer-vector . ,more) (values 'pointer-vector more)]
     [`(fixnum . ,more) (values 'int more)]
     [`(pointer unsigned short int star . ,more) (values '(c-pointer unsigned-short) more)]
@@ -907,6 +908,7 @@
     [(f32vector) 'f32vector-length]
     [(f64vector) 'f64vector-length]
     [(byte-vector) 'byte-vector-length]
+    [(blob) 'blob-size]
     [(c-string c-string*) 'string-length]
     [else (parsing-error "do not know how to compute length of foreign type argument" t)] ) )
 
@@ -1115,7 +1117,7 @@
       [(unsigned-long) (str "unsigned long")]
       [(float) (str "float")]
       [(double number) (str "double")]
-      [(c-pointer nonnull-c-pointer scheme-pointer nonnull-scheme-pointer)
+      [(c-pointer nonnull-c-pointer scheme-pointer nonnull-scheme-pointer blob nonnull-blob)
        (str "void *")]
       [(byte-vector nonnull-byte-vector u8vector nonnull-u8vector) (str "unsigned char *")]
       ((pointer-vector nonnull-pointer-vector) (str "void **"))
# HG changeset patch
# User zb <zb@3e8.org>
# Date 1294904398 21600
# Node ID f34253a29ba01b3c1e732c817f861cb309abf653
# Parent  bb9694e5f274cd637f6e476e9a8c36a72c2be12d
bump to version 0.93

diff --git a/bind.setup b/bind.setup
--- a/bind.setup
+++ b/bind.setup
@@ -1,6 +1,6 @@
 ;; bind.setup  -*- Scheme -*-
 
-(define version "0.92")
+(define version "0.93")
 
 (make (("c.l.scm" ("c.l") 
 	(run (csi -s runsilex.scm)) )