Better clean

Makefile

@@ -16,9 +16,10 @@ GAMBIT_I=gsi -:r7rs,search=$(shell pwd)
 CHICKEN_ENV=CHICKEN_REPOSITORY_PATH=${ENV_CHICKEN_REPOSITORY_PATH}:${CHICKEN_INSTALL_REPOSITORY}:$(shell pwd) CHICKEN_INCLUDE_PATH=$(shell pwd) LD_LIBRARY_PATH=${GUIX_ENVIRONMENT}/lib
 CHICKEN=${CHICKEN_ENV} csc -X r7rs -R r7rs -sJ
 CHICKEN_I=${CHICKEN_ENV} csi -R r7rs -s
-GERBIL=gxc -exe -prelude :scheme/r7rs
+GERBIL=gxc -prelude :scheme/r7rs -exe
+GERBIL_I=gxi --lang r7rs
 
-build: build-rkt build-main-scm build-main-chicken build-main-gambit
+build: build-rkt build-main-scm build-main-chicken build-main-gambit build-main-gerbil
 
 chicken-install:
 	mkdir -p ${CHICKEN_INSTALL_REPOSITORY}
@@ -47,6 +48,11 @@ build-main-gambit:
 	${GAMBIT} -obj retropikzel/pffi/${VERSION}/main.sld
 	#cp retropikzel/pffi/${VERSION}/*.o* test/
 
+build-main-gerbil:
+	#${GAMBIT} -obj retropikzel/pffi/${VERSION}/gambit.scm
+	#${GAMBIT} -obj retropikzel/pffi/${VERSION}/main.sld
+	#cp retropikzel/pffi/${VERSION}/*.o* test/
+
 
 update-documentation:
 	schubert document
@@ -60,7 +66,6 @@ documentation:
 	schubert document
 	VERSION=${VERSION} bash doc/generate.sh > documentation.md
 
-
 test/import.scm: clean build
 	${SASH} $@
 	${GUILE} $@
@@ -68,22 +73,15 @@ test/import.scm: clean build
 	${STKLOS} $@
 	${KAWA} $@
 	#${CYCLONE} $@ && test/import
-	#${GAMBIT} $@
+	#${GAMBIT} -exe $@ && ./test/import
 	#${CHICKEN} $@
 	#${GERBIL} $@
 
-test/import.scm: clean build
-	${GAMBIT_I} $@
-	${GAMBIT} -exe $@ && ./test/import
-
 test/pffi-define.scm: clean build
 	${SASH} $@
 	${GUILE} $@
 	${KAWA} $@
 
-#test/pffi-define.scm: clean build
-	#${CYCLONE} $@ && test/pffi-define
-
 test/size-of.scm:
 	${SASH} $@
 	${GUILE} $@
@@ -119,9 +117,15 @@ clean:
 	rm -rf retropikzel/pffi/${VERSION}/*.o*
 	rm -rf retropikzel/pffi/${VERSION}/*.so
 	rm -rf retropikzel/pffi/${VERSION}/*.meta
+	rm -rf retropikzel.*
 	rm -rf test/*.c
-	rm -rf test/*.o
+	rm -rf test/*.o*
 	rm -rf test/*.so
 	rm -rf test/*.meta
 	rm -rf test/import
 	rm -rf test/pffi-define
+	rm -rf test/*gambit*
+	rm -rf test/*.link
+	rm -rf *.c
+	rm -rf *.o
+	rm -rf *.so

manifest.scm

@@ -7,7 +7,6 @@
         "racket-minimal"
         "gambit-c"
         "chicken"
-        "chibi-scheme"
         "gerbil"
         "openjdk"
         "curl"

retropikzel/pffi/v0-1-0/chibi.scm

@@ -1,84 +0,0 @@
-(define-library
-  (retropikzel pffi v0-1-0 chibi)
-  (import (scheme base)
-          (scheme write)
-          (scheme file)
-          (scheme process-context))
-  (export pffi-shared-object-load
-          pffi-define
-          pffi-size-of
-          pffi-pointer-allocate
-          pffi-pointer-null
-          pffi-string->pointer
-          pffi-pointer->string
-          pffi-pointer->bytevector
-          pffi-pointer-free
-          pffi-pointer?
-          pffi-pointer-null?
-          pffi-pointer-set!
-          pffi-pointer-get
-          pffi-pointer-deref)
-  (begin
-
-    (define pffi-type->native-type
-      (lambda (type)
-        (error "Not defined")))
-
-    (define pffi-pointer?
-      (lambda (object)
-        (error "Not defined")))
-
-    (define-syntax pffi-define
-      (syntax-rules ()
-        ((pffi-define scheme-name shared-object c-name return-type argument-types)
-         (error "Not defined"))))
-
-
-    (define pffi-size-of
-      (lambda (type)
-        (error "Not defined")))
-
-    (define pffi-pointer-allocate
-      (lambda (size)
-        (error "Not defined")))
-
-    (define pffi-pointer-null
-      (lambda ()
-        (error "Not defined")))
-
-    (define pffi-string->pointer
-      (lambda (string-content)
-        (error "Not defined")))
-
-    (define pffi-pointer->string
-      (lambda (pointer)
-        pointer))
-
-    (define pffi-pointer->bytevector
-      (lambda (pointer size)
-        (error "Not defined")))
-
-    (define pffi-shared-object-load
-      (lambda (header path)
-        (error "Not defined")))
-
-    (define pffi-pointer-free
-      (lambda (pointer)
-        (error "Not defined")))
-
-    (define pffi-pointer-null?
-      (lambda (pointer)
-        (error "Not defined")))
-
-    (define pffi-pointer-set!
-      (lambda (pointer type offset value)
-        (let ((p pointer))
-          (error "Not defined"))))
-
-    (define pffi-pointer-get
-      (lambda (pointer type offset)
-        (error "Not defined")))
-
-    (define pffi-pointer-deref
-      (lambda (pointer)
-        (error "Not defined")))))

retropikzel/pffi/v0-1-0/main.rkt

@@ -58,7 +58,13 @@
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-1-0 chibi))))
+              (retropikzel pffi v0-1-0 chibi)))
+    (mit-scheme
+      (import (scheme base)
+              (scheme write)
+              (scheme file)
+              (scheme process-context)
+              (retropikzel pffi v0-1-0 mit-scheme))))
   (export pffi-shared-object-auto-load
           pffi-shared-object-load
           pffi-define

retropikzel/pffi/v0-1-0/main.scm

@@ -57,7 +57,13 @@
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-1-0 chibi))))
+              (retropikzel pffi v0-1-0 chibi)))
+    (mit-scheme
+      (import (scheme base)
+              (scheme write)
+              (scheme file)
+              (scheme process-context)
+              (retropikzel pffi v0-1-0 mit-scheme))))
   (export pffi-shared-object-auto-load
           pffi-shared-object-load
           pffi-define

retropikzel/pffi/v0-1-0/main.sld

@@ -57,7 +57,13 @@
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-1-0 chibi))))
+              (retropikzel pffi v0-1-0 chibi)))
+    (mit-scheme
+      (import (scheme base)
+              (scheme write)
+              (scheme file)
+              (scheme process-context)
+              (retropikzel pffi v0-1-0 mit-scheme))))
   (export pffi-shared-object-auto-load
           pffi-shared-object-load
           pffi-define