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

Adding support for list FFI values.

Browse source
This commit is contained in:
Alex Shinn 2011-11-17 23:41:44 -08:00
parent 55fecb2149
commit adef7b2116
1 changed files with 23 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
tools/chibi-ffi
View file

@ -756,17 +756,31 @@
(func-c-args func))) (func-c-args func)))
(define (write-actual-parameter func arg) (define (write-actual-parameter func arg)
(define (write-value val)
(cond
((find (lambda (x)
(and (type-array x)
(type-auto-expand? x)
(eq? val (get-array-length func x))))
(func-c-args func))
=> (lambda (x) (cat "len" (type-index x))))
((assq val *types*)
(cat (or (type-struct-type val) "") " " val))
((list? val)
(write (car val))
(cat
"("
(lambda ()
(cond
((pair? (cdr val))
(write-value (cadr val))
(for-each (lambda (x) (display ", ") (write-value x)) (cddr val)))))
")"))
(else
(write val))))
(cond (cond
((and (not (type-default? arg)) (type-value arg)) ((and (not (type-default? arg)) (type-value arg))
=> (lambda (x) => write-value)
(cond
((find (lambda (y)
(and (type-array y)
(type-auto-expand? y)
(eq? x (get-array-length func y))))
(func-c-args func))
=> (lambda (y) (cat "len" (type-index y))))
(else (write x)))))
((or (type-result? arg) (type-array arg)) ((or (type-result? arg) (type-array arg))
(cat (if (or (type-free? arg) (type-reference? arg) (basic-type? arg)) (cat (if (or (type-free? arg) (type-reference? arg) (basic-type? arg))
"&" "&"