diff --git a/Makefile b/Makefile index e46967a..c3a8d8b 100644 --- a/Makefile +++ b/Makefile @@ -57,7 +57,7 @@ documentation: test/import.scm: clean build ${SASH} $@ ${GUILE} $@ - #${RACKET} $@ + ${RACKET} $@ ${STKLOS} $@ ${KAWA} $@ ${CYCLONE} $@ && test/import @@ -66,7 +66,8 @@ test/import.scm: clean build #${GERBIL} $@ test/import.scm: clean build - ${GAMBIT} -exe $@ && ./test/import + ${RACKET} $@ + #${GAMBIT} -exe $@ && ./test/import test/pffi-define.scm: clean build ${SASH} $@ @@ -75,7 +76,8 @@ test/pffi-define.scm: clean build ${CHICKEN} -L -lcurl $@ && ./test/pffi-define test/pffi-define.scm: clean build - ${CYCLONE} -CLNK -lcurl $@ && test/pffi-define + ${RACKET} $@ + #${CYCLONE} -CLNK -lcurl $@ && test/pffi-define test/size-of.scm: ${SASH} $@ diff --git a/retropikzel/pffi/v0-1-0/compiled/main_rkt.dep b/retropikzel/pffi/v0-1-0/compiled/main_rkt.dep new file mode 100644 index 0000000..6e80ffe --- /dev/null +++ b/retropikzel/pffi/v0-1-0/compiled/main_rkt.dep @@ -0,0 +1 @@ +("8.12" ta6le ("ef25d0339315600c996485e29d2d36b0be50ef74" . "87ea6db5c29da02402ccf3308ea25984d84f8e9f") (collects #"r7rs" #"base.rkt") (collects #"r7rs" #"file.rkt") (collects #"r7rs" #"lang" #"reader.rkt") (collects #"r7rs" #"main.rkt") (collects #"r7rs" #"process-context.rkt") (collects #"r7rs" #"write.rkt") (collects #"racket" #"base.rkt") (collects #"racket" #"runtime-config.rkt") (collects #"retropikzel" #"pffi" #"v0-1-0" #"racket.rkt")) diff --git a/retropikzel/pffi/v0-1-0/compiled/main_rkt.zo b/retropikzel/pffi/v0-1-0/compiled/main_rkt.zo new file mode 100644 index 0000000..6546386 Binary files /dev/null and b/retropikzel/pffi/v0-1-0/compiled/main_rkt.zo differ diff --git a/retropikzel/pffi/v0-1-0/compiled/racket_rkt.dep b/retropikzel/pffi/v0-1-0/compiled/racket_rkt.dep new file mode 100644 index 0000000..b98f16d --- /dev/null +++ b/retropikzel/pffi/v0-1-0/compiled/racket_rkt.dep @@ -0,0 +1 @@ +("8.12" ta6le ("213d7907ee3cf2051004e3be2f9a67102c0176ce" . "c6039c9fe52ff5953361b25f7570ae33857df055") (collects #"compatibility" #"mlist.rkt") (collects #"ffi" #"unsafe.rkt") (collects #"r7rs" #"base.rkt") (collects #"r7rs" #"file.rkt") (collects #"r7rs" #"lang" #"reader.rkt") (collects #"r7rs" #"main.rkt") (collects #"r7rs" #"process-context.rkt") (collects #"r7rs" #"write.rkt") (collects #"racket" #"base.rkt") (collects #"racket" #"runtime-config.rkt")) diff --git a/retropikzel/pffi/v0-1-0/compiled/racket_rkt.zo b/retropikzel/pffi/v0-1-0/compiled/racket_rkt.zo new file mode 100644 index 0000000..4847483 Binary files /dev/null and b/retropikzel/pffi/v0-1-0/compiled/racket_rkt.zo differ diff --git a/retropikzel/pffi/v0-1-0/main.rkt b/retropikzel/pffi/v0-1-0/main.rkt index c7edba7..358099a 100644 --- a/retropikzel/pffi/v0-1-0/main.rkt +++ b/retropikzel/pffi/v0-1-0/main.rkt @@ -22,6 +22,7 @@ (scheme write) (scheme file) (scheme process-context) + (only (racket base) system-type) (retropikzel pffi v0-1-0 racket))) (stklos (import (scheme base) diff --git a/retropikzel/pffi/v0-1-0/main.scm b/retropikzel/pffi/v0-1-0/main.scm index 797eeb6..311295a 100644 --- a/retropikzel/pffi/v0-1-0/main.scm +++ b/retropikzel/pffi/v0-1-0/main.scm @@ -21,6 +21,7 @@ (scheme write) (scheme file) (scheme process-context) + (only (racket base) system-type) (retropikzel pffi v0-1-0 racket))) (stklos (import (scheme base) diff --git a/retropikzel/pffi/v0-1-0/main.sld b/retropikzel/pffi/v0-1-0/main.sld index 797eeb6..311295a 100644 --- a/retropikzel/pffi/v0-1-0/main.sld +++ b/retropikzel/pffi/v0-1-0/main.sld @@ -21,6 +21,7 @@ (scheme write) (scheme file) (scheme process-context) + (only (racket base) system-type) (retropikzel pffi v0-1-0 racket))) (stklos (import (scheme base) diff --git a/retropikzel/pffi/v0-1-0/racket.scm b/retropikzel/pffi/v0-1-0/racket.rkt similarity index 96% rename from retropikzel/pffi/v0-1-0/racket.scm rename to retropikzel/pffi/v0-1-0/racket.rkt index 94134b1..bf371ed 100644 --- a/retropikzel/pffi/v0-1-0/racket.scm +++ b/retropikzel/pffi/v0-1-0/racket.rkt @@ -1,10 +1,11 @@ +#lang r7rs + (define-library (retropikzel pffi v0-1-0 racket) (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (only (racket base) system-type) (compatibility mlist) (ffi unsafe)) (export pffi-shared-object-load @@ -85,11 +86,14 @@ (define pffi-pointer->bytevector (lambda (pointer size) - (pointer->bytevector pointer size))) + #f + ;(pointer->bytevector pointer size) + + )) (define pffi-shared-object-load - (lambda header path) - (ffi-lib path)) + (lambda (header path) + (ffi-lib path))) (define pffi-pointer-free (lambda (pointer) diff --git a/test/pffi-define.scm b/test/pffi-define.scm index 01c4f18..7b6f62e 100644 --- a/test/pffi-define.scm +++ b/test/pffi-define.scm @@ -9,7 +9,7 @@ (display libcurl) (newline) -(pffi-define 'curl-version libcurl 'curl_version 'string (list)) +(pffi-define curl-version libcurl 'curl_version 'string (list)) (display "=================") (newline)