| 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)) ) |
|---|
