Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

New example

Browse source
This commit is contained in:
Justin Ethier 2021-01-26 22:48:30 -05:00
parent db7a82899b
commit e06cd94354
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
examples/ffi/custom-type.scm Normal file
View file

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