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

WIP

Browse source
This commit is contained in:
Justin Ethier 2020-04-22 16:35:07 -04:00
parent 2faa5fbb9a
commit 41548f4d64
1 changed files with 32 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
test-foreign.scm
View file

@ -1,6 +1,7 @@
(import
(scheme base)
(scheme write)
(cyclone test)
(scheme cyclone cgen)
(scheme cyclone util)
(scheme cyclone pretty-print))
@ -61,9 +62,26 @@
)
)
(define-foreign-lambda scm-strlen int "strlen" string)
(display (scm-strlen "testing 1, 2, 3"))
(newline)
;; Unbox scheme object
(define (scm->c code type)
(cond
(else
(error "scm->c unable to convert" type))))
;; Box C object, basically the meat of (foreign-value)
(define (c->scm code type)
(case type
((int integer)
(string-append "obj_int2obj(" code ")"))
((bool)
(string-append "(" code " == 0 ? boolean_f : boolean_t)"))
((string)
TODO: how to handle the allocation here?
(string-append "
))
(else
(error "c->scm unable to convert" type))))
;(define-c foreign-value
; "(void *data, int argc, closure _, object k, object code, object type)"
@ -75,7 +93,16 @@
;(write (Cyc-foreign-value "errno" "3"))
;(newline)
(test-group "basic"
(write (foreign-code
"printf(\"test %d %d \\n\", 1, 2);"
"printf(\"test %d %d %d\\n\", 1, 2, 3);"))
(newline)
"printf(\"test %d %d %d\\n\", 1, 2, 3);")) (newline)
)
;; Must be top-level
(define-foreign-lambda scm-strlen int "strlen" string)
(test-group "foreign lambda"
(test 15 (scm-strlen "testing 1, 2, 3"))
)
(test-exit)