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

Update readme

This commit is contained in:
retropikzel 2025-04-26 13:12:59 +03:00
parent 66d2cb9a0c
commit 7789dfdd48
2 changed files with 44 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
README.md
View File

@ -11,3 +11,35 @@ being portable by conforming to some specification.
The new readme is a work in progress. The new readme is a work in progress.
## Implementation table
## Primitives
| | c-size-of | define-c-library | c-bytevector? | define-c-procedure | define-c-callbck | c-bytevector-u8-ref |
|------------------|:------------:|:-------------------:|:-------------:|:-------------------:|:----------------:|:-------------------:|
| Chibi | X | X | X | X | | X |
| **Chicken** | X | X | X | X | X | X |
| Gauche | X | X | X | X | | |
| **Guile** | X | X | X | X | X | X |
| Kawa | X | X | X | X | | X |
| **Mosh** | X | X | X | X | X | X |
| **Racket** | X | X | X | X | X | X |
| **Saggittarius** | X | X | X | X | X | X |
| Stklos | X | X | X | X | | X |
| **Ypsilon** | X | X | X | X | X | X |
## Test files pass
| | primitives.scm | addressof.scm |
|------------------|:--------------:|:-------------:|
| Chibi | | |
| **Chicken** | X | X |
| Gauche | | |
| **Guile** | X | X |
| Kawa | | X |
| Mosh | X | |
| Racket | X | |
| **Saggittarius** | X | X |
| Stklos | | X |
| Ypsilon | X | |

24
foreign/c.sld
View File

@ -24,7 +24,7 @@
(chicken syntax) (chicken syntax)
(chicken memory) (chicken memory)
(chicken random))) (chicken random)))
(cyclone #;(cyclone
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme char) (scheme char)
@ -33,7 +33,7 @@
(scheme process-context) (scheme process-context)
(cyclone foreign) (cyclone foreign)
(scheme cyclone primitives))) (scheme cyclone primitives)))
(gambit #;(gambit
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme char) (scheme char)
@ -50,7 +50,7 @@
(scheme process-context) (scheme process-context)
(gauche base) (gauche base)
(foreign c primitives gauche))) (foreign c primitives gauche)))
(gerbil #;(gerbil
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme char) (scheme char)
@ -74,7 +74,7 @@
(scheme file) (scheme file)
(scheme inexact) (scheme inexact)
(scheme process-context))) (scheme process-context)))
(larceny #;(larceny
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme char) (scheme char)
@ -117,7 +117,7 @@
(scheme process-context) (scheme process-context)
(except (sagittarius ffi) c-free c-malloc) (except (sagittarius ffi) c-free c-malloc)
(sagittarius))) (sagittarius)))
(skint #;(skint
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme char) (scheme char)
@ -182,7 +182,7 @@
pffi:string-split pffi:string-split
c-bytevector-pointer-set! c-bytevector-pointer-set!
c-bytevector-pointer-ref)) c-bytevector-pointer-ref))
(tr7 #;(tr7
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme char) (scheme char)
@ -299,19 +299,19 @@
void) void)
(include "c/primitives/chicken.scm")) (include "c/primitives/chicken.scm"))
(chicken-6 (include-relative "c/primitives/chicken.scm")) (chicken-6 (include-relative "c/primitives/chicken.scm"))
(cyclone (include "c/primitives/cyclone.scm")) ;(cyclone (include "c/primitives/cyclone.scm"))
(gambit (include "c/primitives/gambit.scm")) ;(gambit (include "c/primitives/gambit.scm"))
(gauche (include "c/primitives/gauche.scm")) (gauche (include "c/primitives/gauche.scm"))
(gerbil (include "c/primitives/gerbil.scm")) ;(gerbil (include "c/primitives/gerbil.scm"))
(guile (include "c/primitives/guile.scm")) (guile (include "c/primitives/guile.scm"))
(kawa (include "c/primitives/kawa.scm")) (kawa (include "c/primitives/kawa.scm"))
(larceny (include "c/primitives/larceny.scm")) ;(larceny (include "c/primitives/larceny.scm"))
(mosh (include "c/primitives/mosh.scm")) (mosh (include "c/primitives/mosh.scm"))
(racket (include "c/primitives/racket.scm")) (racket (include "c/primitives/racket.scm"))
(sagittarius (include "c/primitives/sagittarius.scm")) (sagittarius (include "c/primitives/sagittarius.scm"))
(skint (include "c/primitives/skint.scm")) ;(skint (include "c/primitives/skint.scm"))
(stklos (include "c/primitives/stklos.scm")) (stklos (include "c/primitives/stklos.scm"))
(tr7 (include "c/primitives/tr7.scm")) ;(tr7 (include "c/primitives/tr7.scm"))
(ypsilon (export c-function c-callback) (ypsilon (export c-function c-callback)
(include "c/primitives/ypsilon.scm"))) (include "c/primitives/ypsilon.scm")))
(cond-expand (cond-expand