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

Update support table

This commit is contained in:
Retropikzel 2024-11-09 15:23:41 +00:00
parent a9f00a50ec
commit 6a2f138723
2 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
README.md
View File

@ -41,15 +41,15 @@ guarantees are being made just yet.
| | Chibi | Chicken | Cyclone | Gambit | Gauche | Gerbil | Guile | Kawa | Mosh | Racket | Sagittarius | Skint | STklos | tr7 | | | Chibi | Chicken | Cyclone | Gambit | Gauche | Gerbil | Guile | Kawa | Mosh | Racket | Sagittarius | Skint | STklos | tr7 |
| ------------------------------- | ----- | ------- | ------- | ------- | ------ | ------ | ----- | ---- | ---- | ------ | ----------- | ----- | ------ | --- | | ------------------------------- | ----- | ------- | ------- | ------- | ------ | ------ | ----- | ---- | ---- | ------ | ----------- | ----- | ------ | --- |
| pffi-init | X | X | X | | | | X | X | X | X | X | | | | | pffi-init | X | X | X | | | | X | X | X | X | X | | X | |
| pffi-size-of | X | X | X | | | | X | X | X | X | X | | | | | pffi-size-of | X | X | X | | | | X | X | X | X | X | | X | |
| pffi-shared-object-auto-load | X | X | X | | | | X | X | X | X | X | | | | | pffi-shared-object-auto-load | X | X | X | | | | X | X | X | X | X | | X | |
| pffi-shared-object-load | X | X | X | | | | X | X | X | X | X | | | | | pffi-shared-object-load | X | X | X | | | | X | X | X | X | X | | X | |
| pffi-pointer-null | X | X | X | | | | X | X | X | X | X | | | | | pffi-pointer-null | X | X | X | | | | X | X | X | X | X | | X | |
| pffi-pointer-null? | X | X | X | | | | X | X | X | X | X | | | | | pffi-pointer-null? | X | X | X | | | | X | X | X | X | X | | X | |
| pffi-pointer-allocate | X | X | X | | | | X | X | X | X | X | | | | | pffi-pointer-allocate | X | X | X | | | | X | X | X | X | X | | X | |
| pffi-pointer? | X | X | X | | | | X | X | X | X | X | | | | | pffi-pointer? | X | X | X | | | | X | X | X | X | X | | X | |
| pffi-pointer-free | X | X | X | | | | X | X | X | X | X | | | | | pffi-pointer-free | X | X | X | | | | X | X | X | X | X | | X | |
| pffi-pointer-set! | X | X | X | | | | X | X | X | X | X | | | | | pffi-pointer-set! | X | X | X | | | | X | X | X | X | X | | | |
| pffi-pointer-get | X | X | X | | | | X | X | X | X | X | | | | | pffi-pointer-get | X | X | X | | | | X | X | X | X | X | | | |
| pffi-string->pointer | X | X | X | | | | X | X | X | X | X | | | | | pffi-string->pointer | X | X | X | | | | X | X | X | X | X | | | |

3
test.scm
View File

@ -62,7 +62,6 @@
(assert equal? (number? size-int8) #t) (assert equal? (number? size-int8) #t)
(assert = size-int8 1) (assert = size-int8 1)
#|
(define size-uint8 (pffi-size-of 'uint8)) (define size-uint8 (pffi-size-of 'uint8))
(debug size-uint8) (debug size-uint8)
(assert equal? (number? size-uint8) #t) (assert equal? (number? size-uint8) #t)
@ -271,7 +270,6 @@
(debug (pffi-pointer-get set-pointer 'double offset)) (debug (pffi-pointer-get set-pointer 'double offset))
(assert = (pffi-pointer-get set-pointer 'double offset) 1.5) (assert = (pffi-pointer-get set-pointer 'double offset) 1.5)
;; pffi-string->pointer ;; pffi-string->pointer
(print-header 'pffi-string->pointer) (print-header 'pffi-string->pointer)
@ -399,5 +397,4 @@
(pffi-pointer-get array 'int (* (pffi-size-of 'int) 2)))) (pffi-pointer-get array 'int (* (pffi-size-of 'int) 2))))
(newline) (newline)
|#
(exit 0) (exit 0)