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

Experimenting with what an FFI could look like

Browse source
This commit is contained in:
Justin Ethier 2016-01-06 23:00:50 -05:00
parent e41923ad05
commit 04dda29132
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
scheme/load.sld
View file

@ -1,10 +1,26 @@
(define-library (scheme load) (define-library (scheme load)
(export load) (export
prim-test ;; TODO: This is just temporary, of course
load)
(import (scheme base) (import (scheme base)
(scheme eval) (scheme eval)
(scheme file) (scheme file)
(scheme read)) (scheme read))
(begin (begin
;; Experimenting with what an FFI could look like
;; TODO: also need a way to add #include's, and later on compiler options (may already have that, need to check)
;;
;; want the signature to be similar to this:
;; static void __lambda_0(void *data, int argc, closure _,object k_7322, object arg1_737, object arg2_736) {
;; lambda portion is computed, so we can't include that.
;; compiler would need to insert the "static void (lambda)" part
(c-ffi:define prim-test "
(void *data, int argc, closure _, object k, object arg1, object arg2) {
return_closcall1(data, k, arg1);
}
")
)
;; End FFI
(define (load filename . env) (define (load filename . env)
(let ((exprs (call-with-input-file filename (let ((exprs (call-with-input-file filename
(lambda (port) (lambda (port)