From e06cd9435483588b098179c6441218ceda1900a4 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 26 Jan 2021 22:48:30 -0500
Subject: [PATCH] New example

---
 examples/ffi/custom-type.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 examples/ffi/custom-type.scm

diff --git a/examples/ffi/custom-type.scm b/examples/ffi/custom-type.scm
new file mode 100644
index 00000000..77c2f4cf
--- /dev/null
+++ b/examples/ffi/custom-type.scm
@@ -0,0 +1,14 @@
+;;
+;; Basic example of using a custom type
+;;
+(import (scheme base)
+        (scheme write)
+        (cyclone foreign))
+
+(c-define-type string-as-integer string number->string string->number)
+(c-define scm-strlen int "strlen" string-as-integer)
+
+(write
+  (scm-strlen 42)
+)
+(newline)