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

Fix to work with pffi-define-library

This commit is contained in:
retropikzel 2025-03-22 19:25:09 +02:00
parent 603e6e1a50
commit 9f9974e09e
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
README.md
View File

@ -303,8 +303,11 @@ Example:
(additiona-paths (".")))))) (additiona-paths ("."))))))
#### Notes #### Notes
- Do not cond-expand inside the arguments, that might lead to problems on some - Do not cond-expand inside the arguments, that might lead to problems on some
implementations. implementations.
- Do not store options in variables, that might lead to problems on some
implementations.
- Do pass the headers using quote - Do pass the headers using quote
- As '(... and not (list... - As '(... and not (list...
- Do pass the options using quote - Do pass the options using quote

3
retropikzel/pffi.sld
View File

@ -504,8 +504,7 @@
pffi-size-of pffi-size-of
pffi-type? pffi-type?
pffi-align-of pffi-align-of
pffi-shared-object-auto-load pffi-define-library
pffi-shared-object-load
pffi-pointer-null pffi-pointer-null
pffi-pointer-null? pffi-pointer-null?
pffi-pointer-allocate pffi-pointer-allocate

2
retropikzel/pffi/ypsilon.scm
View File

@ -115,7 +115,7 @@
((equal? type 'pointer) (bytevector-c-void*-ref bv 0)))))) ((equal? type 'pointer) (bytevector-c-void*-ref bv 0))))))
(define pffi-shared-object-load (define pffi-shared-object-load
(lambda (headers path . options) (lambda (headers path options)
(load-shared-object path))) (load-shared-object path)))
(define pffi-type->native-type (define pffi-type->native-type