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

allowing link on input parameters for use with functions like readdir

Browse source
This commit is contained in:
Alex Shinn 2009-12-22 22:55:46 +09:00
parent 6da435d21c
commit cb1859c683
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/posix.stub
View file

@ -25,7 +25,7 @@
(define-c errno (delete-directory "rmdir") (string)) (define-c errno (delete-directory "rmdir") (string))
(define-c (free DIR) opendir (string)) (define-c (free DIR) opendir (string))
(define-c dirent readdir (DIR)) (define-c dirent readdir ((link DIR)))
(define-c int (duplicate-fd "dup") (int)) (define-c int (duplicate-fd "dup") (int))

8
tools/genstubs.scm
View file

@ -683,7 +683,7 @@
((type-array ret-type) " tmp = ") ((type-array ret-type) " tmp = ")
(else " res = "))) (else " res = ")))
((if (type-array ret-type) ((if (type-array ret-type)
(lambda (t f) (f)) (lambda (t f x) (f))
c->scheme-converter) c->scheme-converter)
ret-type ret-type
(lambda () (lambda ()
@ -709,7 +709,11 @@
arg arg
(string-append "arg" (type-index-string arg)))))) (string-append "arg" (type-index-string arg))))))
c-args) c-args)
(cat ")"))) (cat ")"))
(cond
((any type-link? (func-c-args func))
=> (lambda (a) (string-append "arg" (type-index-string a))))
(else #f)))
(cat ";\n") (cat ";\n")
(if (type-array ret-type) (if (type-array ret-type)
(write-result ret-type)))) (write-result ret-type))))