Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #432 from briancaine/briancaine/ffi-cflags-global

Browse source 
More explicit ways to add compiler flags in chibi-ffi .stub files
This commit is contained in:
Alex Shinn 2017-08-08 14:34:26 +09:00 • committed by GitHub
commit a24a26cd25
1 changed files with 19 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
tools/chibi-ffi
View file

@ -41,6 +41,7 @@
(define *consts* '()) (define *consts* '())
(define *inits* '()) (define *inits* '())
(define *clibs* '()) (define *clibs* '())
(define *cflags* '())
(define *tags* '()) (define *tags* '())
(define *open-namespaces* '()) (define *open-namespaces* '())
(define *c++?* #f) (define *c++?* #f)
@ -318,13 +319,17 @@
(else (lp from (+ i 1) res)))))) (else (lp from (+ i 1) res))))))
(define (string-split str c . o) (define (string-split str c . o)
(let ((start (if (pair? o) (car o) 0)) (let ((test?
(if (procedure? c)
c
(lambda (char) (eqv? char c))))
(start (if (pair? o) (car o) 0))
(end (string-length str))) (end (string-length str)))
(let lp ((from start) (i start) (res '())) (let lp ((from start) (i start) (res '()))
(define (collect) (if (= i from) res (cons (substring str from i) res))) (define (collect) (if (= i from) res (cons (substring str from i) res)))
(cond (cond
((>= i end) (reverse (collect))) ((>= i end) (reverse (collect)))
((eqv? c (string-ref str i)) (lp (+ i 1) (+ i 1) (collect))) ((test? (string-ref str i)) (lp (+ i 1) (+ i 1) (collect)))
(else (lp from (+ i 1) res)))))) (else (lp from (+ i 1) res))))))
(define (string-scan c str . o) (define (string-scan c str . o)
@ -414,6 +419,16 @@
(define (c-link lib) (define (c-link lib)
(set! *clibs* (cons lib *clibs*))) (set! *clibs* (cons lib *clibs*)))
(define (c-flags-from-script cmd)
(eval '(import (chibi process)) (current-environment))
(let ((string-null? (lambda (str) (equal? str "")))
(process->string (eval 'process->string (current-environment))))
(set! *cflags*
(append *cflags*
(filter
(lambda (x) (not (string-null? x)))
(string-split (process->string cmd) char-whitespace?))))))
(define (c-declare . args) (define (c-declare . args)
(apply cat args) (apply cat args)
(newline)) (newline))
@ -2059,7 +2074,8 @@
(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 *cflags*
`("-o" ,so ,dest "-lchibi-scheme")
(map (lambda (x) (string-append "-l" x)) (map (lambda (x) (string-append "-l" x))
(reverse *clibs*)))) (reverse *clibs*))))
(args (args