From 084e931741df37057fccff82a1a680afd3c128cf Mon Sep 17 00:00:00 2001
From: Arthur Maciel <arthurmaciel@gmail.com>
Date: Sun, 14 Jun 2020 00:14:58 -0300
Subject: [PATCH] Fixed '(cyclone foreign)' and added 'cvoid' type

---
 CHANGELOG.md                |  8 ++++++++
 docs/api/cyclone/foreign.md |  1 +
 libs/cyclone/foreign.sld    | 13 +++++++++----
 3 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index feddb7a0..16d5dc9a 100644
--- a/CHANGELOG.md
+++ b/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!
diff --git a/docs/api/cyclone/foreign.md b/docs/api/cyclone/foreign.md
index ffc7869b..300f833d 100644
--- a/docs/api/cyclone/foreign.md
+++ b/docs/api/cyclone/foreign.md
@@ -69,4 +69,5 @@ Scheme | C
 `double` | `double`
 `bignum` | `mp_int`
 `opaque` | `void *`
+`cvoid` | `void`
 
diff --git a/libs/cyclone/foreign.sld b/libs/cyclone/foreign.sld
index 6831bfc1..64b3e738 100644
--- a/libs/cyclone/foreign.sld
+++ b/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)))))))