Ticket #479: bind-blob.diff.txt

File bind-blob.diff.txt, 2.5 KB (added by Jim Ursetto, 13 years ago)

Add blob support

Line 
1# HG changeset patch
2# User zb <zb@3e8.org>
3# Date 1294903303 21600
4# Node ID 7e15bf9986e74b288881a5b39ec04f55437c06e7
5# Parent  368abff2e24574a17aec3b6c98d28f30d9e523a8
6tokenize ___blob
7
8diff --git a/c.l b/c.l
9--- a/c.l
10+++ b/c.l
11@@ -61,6 +61,7 @@
12 "___scheme_value"                   (tok 'scheme-value)
13 "___scheme_pointer"                 (tok 'scheme-pointer)
14 "___byte_vector"                    (tok 'byte-vector)
15+"___blob"                           (tok 'blob)
16 "C_word"                            (tok 'scheme-value)
17 "___abstract"                       (tok 'abstract)
18 "___specialize"                     (tok 'specialize)
19# HG changeset patch
20# User zb <zb@3e8.org>
21# Date 1294903770 21600
22# Node ID bb9694e5f274cd637f6e476e9a8c36a72c2be12d
23# Parent  7e15bf9986e74b288881a5b39ec04f55437c06e7
24add blob to translator
25
26diff --git a/bind-translator.scm b/bind-translator.scm
27--- a/bind-translator.scm
28+++ b/bind-translator.scm
29@@ -285,6 +285,7 @@
30     [`(scheme-value . ,more) (values 'scheme-object more)]
31     [`(scheme-pointer . ,more) (values 'scheme-pointer more)]
32     [`(byte-vector . ,more) (values 'byte-vector more)]
33+    [`(blob . ,more) (values 'blob more)]
34     [`(pointer-vector . ,more) (values 'pointer-vector more)]
35     [`(fixnum . ,more) (values 'int more)]
36     [`(pointer unsigned short int star . ,more) (values '(c-pointer unsigned-short) more)]
37@@ -907,6 +908,7 @@
38     [(f32vector) 'f32vector-length]
39     [(f64vector) 'f64vector-length]
40     [(byte-vector) 'byte-vector-length]
41+    [(blob) 'blob-size]
42     [(c-string c-string*) 'string-length]
43     [else (parsing-error "do not know how to compute length of foreign type argument" t)] ) )
44 
45@@ -1115,7 +1117,7 @@
46       [(unsigned-long) (str "unsigned long")]
47       [(float) (str "float")]
48       [(double number) (str "double")]
49-      [(c-pointer nonnull-c-pointer scheme-pointer nonnull-scheme-pointer)
50+      [(c-pointer nonnull-c-pointer scheme-pointer nonnull-scheme-pointer blob nonnull-blob)
51        (str "void *")]
52       [(byte-vector nonnull-byte-vector u8vector nonnull-u8vector) (str "unsigned char *")]
53       ((pointer-vector nonnull-pointer-vector) (str "void **"))
54# HG changeset patch
55# User zb <zb@3e8.org>
56# Date 1294904398 21600
57# Node ID f34253a29ba01b3c1e732c817f861cb309abf653
58# Parent  bb9694e5f274cd637f6e476e9a8c36a72c2be12d
59bump to version 0.93
60
61diff --git a/bind.setup b/bind.setup
62--- a/bind.setup
63+++ b/bind.setup
64@@ -1,6 +1,6 @@
65 ;; bind.setup  -*- Scheme -*-
66 
67-(define version "0.92")
68+(define version "0.93")
69 
70 (make (("c.l.scm" ("c.l")
71        (run (csi -s runsilex.scm)) )