Merge pull request #390 from arthurmaciel/master

Fixed '(cyclone foreign)' and added 'cvoid' type

CHANGELOG.md

@@ -2,6 +2,14 @@
 
 ## 0.19 - TBD
 
+Features
+
+- Added `cvoid` type into `(cyclone foreign)`.
+
+Bug Fixes
+
+- Fixed `make_empty_bytevector` and `make_c_opaque` parameters on `(cyclone foreign)`.
+
 ## 0.18 - June 8, 2020
 
 With this release we proudly present Cyclone-Winds, the official package manager for Cyclone Scheme. Cyclone-Winds contains a growing list of packages and is an easy way to distribute programs and libraries built using Cyclone. Please join me in thanking Arthur Maciel for writing Cyclone-Winds and making this release possible!

docs/api/cyclone/foreign.md

@@ -69,4 +69,5 @@ Scheme | C
 `double` | `double`
 `bignum` | `mp_int`
 `opaque` | `void *`
+`cvoid` | `void`
 

libs/cyclone/foreign.sld

@@ -117,6 +117,8 @@
              (string-append "(((bytevector_type *)" ,code ")->data)"))
             ((opaque)
              (string-append "opaque_ptr(" ,code ")"))
+            ((cvoid)
+             "Cyc_VOID")
             (else
               (error "scm->c unable to convert scheme object of type " ,type)))))))
   
@@ -168,7 +170,7 @@
            (let ((var (mangle (gensym 'var))))
            (cons
              (string-append 
-               "make_empty_bytevector(data," var ");"
+               "make_empty_bytevector(" var ");"
                var "->data = " ,code ";")
              (string-append "&" var)
            )))
@@ -176,9 +178,12 @@
            (let ((var (mangle (gensym 'var))))
            (cons
              (string-append 
-               "make_c_opaque(data," var ", " ,code ");")
-             (string-append "&" var)
-           )))
+               "make_c_opaque(" var ", " ,code ");")
+             (string-append "&" var))))
+          ((cvoid)
+           (cons
+            (string-append ,code ";")
+            "Cyc_VOID"))
           (else
             (error "c->scm unable to convert C object of type " ,type)))))))