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

Add missing C types

Browse source
This commit is contained in:
Justin Ethier 2020-05-16 19:48:21 -04:00
parent bb309da886
commit 1faf874fff
1 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
libs/cyclone/foreign.sld
View file

@ -164,11 +164,21 @@
"make_utf8_string(data," var ", " ,code ");") "make_utf8_string(data," var ", " ,code ");")
(string-append "&" var) (string-append "&" var)
))) )))
TODO: ((bytevector)
; /*bytevector_tag */ , "bytevector" (let ((var (mangle (gensym 'var))))
; /*c_opaque_tag */ , "opaque" (cons
; /*bignum_tag */ , "bignum" (string-append
; /*symbol_tag */ , "symbol" "make_empty_bytevector(data," var ");"
var "->data = " ,code ";")
(string-append "&" var)
)))
((opaque)
(let ((var (mangle (gensym 'var))))
(cons
(string-append
"make_c_opaque(data," var ", " ,code ");")
(string-append "&" var)
)))
(else (else
(error "c->scm unable to convert C object of type " ,type))))))) (error "c->scm unable to convert C object of type " ,type)))))))