Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Working on Gambit implementation

This commit is contained in:
retropikzel 2025-03-21 07:30:16 +02:00
parent a9e1088151
commit 7d39b4ee78
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile
View File

@ -88,3 +88,7 @@ clean:
find . -name "core.1" -delete find . -name "core.1" -delete
find . -name "*@gambit*" -delete find . -name "*@gambit*" -delete
rm -rf retropikzel/pffi.c rm -rf retropikzel/pffi.c
rm -rf tests/compliance.c
rm -rf tests/compliance.o
rm -rf tests/compliance.so
rm -rf tests/compliance

2
retropikzel/pffi.sld
View File

@ -135,7 +135,7 @@
(scheme char) (scheme char)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(only (gambit) c-declare c-lambda c-define)) (only (gambit) c-declare c-lambda c-define define-macro))
(export pffi-init (export pffi-init
pffi-size-of pffi-size-of
pffi-type? pffi-type?

6
retropikzel/pffi/shared/main.scm
View File

@ -88,11 +88,7 @@
res))) res)))
(cond-expand (cond-expand
(gambit (gambit #t)
(define-macro
(pffi-load headers object-name options)
`(pffi-shared-object-load ,(car headers))))
((or chicken cyclone) ((or chicken cyclone)
(define-syntax pffi-load (define-syntax pffi-load
(syntax-rules () (syntax-rules ()