1 | # HG changeset patch |
---|
2 | # User zb <zb@3e8.org> |
---|
3 | # Date 1294903303 21600 |
---|
4 | # Node ID 7e15bf9986e74b288881a5b39ec04f55437c06e7 |
---|
5 | # Parent 368abff2e24574a17aec3b6c98d28f30d9e523a8 |
---|
6 | tokenize ___blob |
---|
7 | |
---|
8 | diff --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 |
---|
24 | add blob to translator |
---|
25 | |
---|
26 | diff --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 |
---|
59 | bump to version 0.93 |
---|
60 | |
---|
61 | diff --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)) ) |
---|