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