Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding c-link to chibi-ffi

Browse source
This commit is contained in:
Alex Shinn 2015-05-09 21:08:18 +09:00
parent 8813a62b8e
commit 7d697c29c0
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tools/chibi-ffi
View file

@ -40,6 +40,7 @@
(define *methods* '()) (define *methods* '())
(define *consts* '()) (define *consts* '())
(define *inits* '()) (define *inits* '())
(define *clibs* '())
(define *tags* '()) (define *tags* '())
(define *open-namespaces* '()) (define *open-namespaces* '())
(define *c++?* #f) (define *c++?* #f)
@ -405,6 +406,9 @@
(define (ffi-include file) (define (ffi-include file)
(load file (current-environment))) (load file (current-environment)))
(define (c-link lib)
(set! *clibs* (cons lib *clibs*)))
(define (c-declare . args) (define (c-declare . args)
(apply cat args) (apply cat args)
(newline)) (newline))
@ -2031,7 +2035,9 @@
(execute (begin (eval '(import (chibi process)) (execute (begin (eval '(import (chibi process))
(current-environment)) (current-environment))
(eval 'execute (current-environment)))) (eval 'execute (current-environment))))
(base-args (append cflags `("-o" ,so ,dest "-lchibi-scheme"))) (base-args (append cflags `("-o" ,so ,dest "-lchibi-scheme")
(map (lambda (x) (string-append "-l" x))
(reverse *clibs*))))
(args (args
(eval (eval
`(cond-expand `(cond-expand