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

Removed FFI testing code

Browse source
This commit is contained in:
Justin Ethier 2016-01-09 23:29:19 -05:00
parent 4ab9f085fd
commit b931fb5dbc
1 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
scheme/load.sld
View file

@ -1,24 +1,11 @@
(define-library (scheme load) (define-library (scheme load)
(export (export
prim-test ;; TODO: This is just temporary, of course
load) 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
;; TODO: maybe break up into two args, one being the args list and the other being the function body??
(define-c 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)