Add files for Larceny and Ypsilon

Makefile

@@ -69,6 +69,13 @@ test-kawa-podman-amd64:
 test-kawa:
 	${KAWA} test.scm
 
+LARCENY=larceny -r7 -I .
+test-larceny-podman-amd64:
+	podman run --arch=amd64 -it -v ${PWD}:/workdir schemers/larceny:latest bash -c "cd /workdir && ${LARCENY} test.scm"
+
+test-larceny:
+	${LARCENY} test.scm
+
 MOSH=mosh --loadpath=.
 test-mosh-podman-amd64:
 	podman run --arch=amd64 -it -v ${PWD}:/workdir schemers/mosh:0 bash -c "cd /workdir && ${MOSH} test.scm"
@@ -103,6 +110,13 @@ test-stklos:
 test-tr7:
 	tr7i test.scm
 
+YPSILON=ypsilon --r7rs --loadpath=.
+test-ypsilon-podman-amd64:
+	podman run --arch=amd64 -it -v ${PWD}:/workdir schemers/ypsilon bash -c "cd /workdir && ${YPSILON} test.scm"
+
+test-ypsilon:
+	tr7i test.scm
+
 documentation:
 	cat README.md > docs/index.md
 	mkdocs build

retropikzel/r7rs-pffi.sld

@@ -63,6 +63,12 @@
               (scheme char)
               (scheme file)
               (scheme process-context)))
+    (larceny
+      (import (scheme base)
+              (scheme write)
+              (scheme char)
+              (scheme file)
+              (scheme process-context)))
     (mosh
       (import (scheme base)
               (scheme write)
@@ -108,11 +114,17 @@
               (scheme char)
               (scheme file)
               (scheme process-context)))
+    (ypsilon
+      (import (scheme base)
+              (scheme write)
+              (scheme char)
+              (scheme file)
+              (scheme process-context)))
     (else (error "Unsupported implementation")))
   (export pffi-init
-          pffi-size-of
+          ;pffi-size-of
-          pffi-shared-object-auto-load
+          ;pffi-shared-object-auto-load
-          pffi-shared-object-load
+          ;pffi-shared-object-load
           ;pffi-pointer-null
           ;pffi-pointer-null?
           ;pffi-pointer-allocate
@@ -136,12 +148,14 @@
     (gerbil (include "r7rs-pffi/gerbil.scm"))
     (guile (include "r7rs-pffi/guile.scm"))
     (kawa (include "r7rs-pffi/kawa.scm"))
+    (larceny (include "r7rs-pffi/larceny.scm"))
     (mosh (include "r7rs-pffi/mosh.scm"))
     (racket (include "r7rs-pffi/racket.scm"))
     (sagittarius (include "r7rs-pffi/sagittarius.scm"))
     (skint (include "r7rs-pffi/skint.scm"))
     (stklos (include "retropikzel/r7rs-pffi/stklos.scm"))
     (tr7 (include "retropikzel/r7rs-pffi/tr7.scm"))
+    (ypsilon (include "r7rs-pffi/ypsilon.scm"))
     (else #t))
   (cond-expand
     (cyclone (include "retropikzel/r7rs-pffi/main.scm"))

retropikzel/r7rs-pffi/gambit.scm

@@ -52,4 +52,10 @@
           (else (error "Can not get size of unknown type" type)))))
 
 (define-macro (pffi-shared-object-load headers)
-  `(c-declare ,(string-append "#include <stdint.h>")))
+  `(c-declare "#include <stdint.h>"))
+
+#;(define-syntax pffi-shared-object-load
+  (syntax-rules ()
+    ((_ headers)
+    (c-declare "#include <stdint.h>"))))
+

retropikzel/r7rs-pffi/larceny.scm

@@ -0,0 +1 @@
+(define pffi-init (lambda () #t))

retropikzel/r7rs-pffi/ypsilon.scm

@@ -0,0 +1 @@
+(define pffi-init (lambda () #t))