diff --git a/VERSION b/VERSION index 96555c7..7b02c30 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -v0-3-0 +v0-4-1 diff --git a/composition.scm b/composition.scm index 8c089b7..e8a9b68 100644 --- a/composition.scm +++ b/composition.scm @@ -1,6 +1,6 @@ ((packager . "retropikzel") - (name . "pffi") - (version . "v0-3-0") + (name . "r7rs-pffi") + (version . "v0-4-0") (type . "library") (description . "Portable Foreign Function Interface for R7RS schemes") (license . "LGPL") diff --git a/retropikzel/pffi/v0-3-0/chicken.scm b/retropikzel/r7rs-pffi/v0-4-0/chicken.scm similarity index 99% rename from retropikzel/pffi/v0-3-0/chicken.scm rename to retropikzel/r7rs-pffi/v0-4-0/chicken.scm index 4ad4418..0062f45 100644 --- a/retropikzel/pffi/v0-3-0/chicken.scm +++ b/retropikzel/r7rs-pffi/v0-4-0/chicken.scm @@ -1,5 +1,5 @@ (define-library - (retropikzel pffi v0-3-0 chicken) + (retropikzel r7rs-pffi v0-4-0 chicken) (import (scheme base) (scheme write) (scheme file) diff --git a/retropikzel/pffi/v0-3-0/cyclone.sld b/retropikzel/r7rs-pffi/v0-4-0/cyclone.sld similarity index 99% rename from retropikzel/pffi/v0-3-0/cyclone.sld rename to retropikzel/r7rs-pffi/v0-4-0/cyclone.sld index 29eb404..5dd5800 100644 --- a/retropikzel/pffi/v0-3-0/cyclone.sld +++ b/retropikzel/r7rs-pffi/v0-4-0/cyclone.sld @@ -1,5 +1,5 @@ (define-library - (retropikzel pffi v0-3-0 cyclone) + (retropikzel r7rs-pffi v0-4-0 cyclone) (import (scheme base) (scheme write) (scheme file) diff --git a/retropikzel/pffi/v0-3-0/empty.scm b/retropikzel/r7rs-pffi/v0-4-0/empty.scm similarity index 97% rename from retropikzel/pffi/v0-3-0/empty.scm rename to retropikzel/r7rs-pffi/v0-4-0/empty.scm index b8b7b6a..3343c5e 100644 --- a/retropikzel/pffi/v0-3-0/empty.scm +++ b/retropikzel/r7rs-pffi/v0-4-0/empty.scm @@ -1,5 +1,5 @@ (define-library - (retropikzel pffi v0-3-0 empty) + (retropikzel r7rs-pffi v0-4-0 empty) (import (scheme base) (scheme write) (scheme file) diff --git a/retropikzel/pffi/v0-3-0/gambit.scm b/retropikzel/r7rs-pffi/v0-4-0/gambit.scm similarity index 97% rename from retropikzel/pffi/v0-3-0/gambit.scm rename to retropikzel/r7rs-pffi/v0-4-0/gambit.scm index d4f7a6b..5be01f0 100644 --- a/retropikzel/pffi/v0-3-0/gambit.scm +++ b/retropikzel/r7rs-pffi/v0-4-0/gambit.scm @@ -1,5 +1,5 @@ (define-library - (retropikzel pffi v0-3-0 gambit) + (retropikzel r7rs-pffi v0-4-0 gambit) (import (scheme base) (scheme write) (scheme file) diff --git a/retropikzel/pffi/v0-3-0/gerbil.scm b/retropikzel/r7rs-pffi/v0-4-0/gerbil.scm similarity index 97% rename from retropikzel/pffi/v0-3-0/gerbil.scm rename to retropikzel/r7rs-pffi/v0-4-0/gerbil.scm index ebc3662..223936a 100644 --- a/retropikzel/pffi/v0-3-0/gerbil.scm +++ b/retropikzel/r7rs-pffi/v0-4-0/gerbil.scm @@ -1,5 +1,5 @@ (define-library - (retropikzel pffi v0-3-0 gerbil) + (retropikzel r7rs-pffi v0-4-0 gerbil) (import (scheme base) (scheme write) (scheme file) diff --git a/retropikzel/pffi/v0-3-0/guile.scm b/retropikzel/r7rs-pffi/v0-4-0/guile.scm similarity index 99% rename from retropikzel/pffi/v0-3-0/guile.scm rename to retropikzel/r7rs-pffi/v0-4-0/guile.scm index c7f57a5..157fedc 100644 --- a/retropikzel/pffi/v0-3-0/guile.scm +++ b/retropikzel/r7rs-pffi/v0-4-0/guile.scm @@ -1,5 +1,5 @@ (define-library - (retropikzel pffi v0-3-0 guile) + (retropikzel r7rs-pffi v0-4-0 guile) (import (scheme base) (scheme write) (scheme file) diff --git a/retropikzel/pffi/v0-3-0/kawa.scm b/retropikzel/r7rs-pffi/v0-4-0/kawa.scm similarity index 100% rename from retropikzel/pffi/v0-3-0/kawa.scm rename to retropikzel/r7rs-pffi/v0-4-0/kawa.scm diff --git a/retropikzel/pffi/v0-3-0/main.rkt b/retropikzel/r7rs-pffi/v0-4-0/main.rkt similarity index 100% rename from retropikzel/pffi/v0-3-0/main.rkt rename to retropikzel/r7rs-pffi/v0-4-0/main.rkt diff --git a/retropikzel/pffi/v0-3-0/main.scm b/retropikzel/r7rs-pffi/v0-4-0/main.scm similarity index 93% rename from retropikzel/pffi/v0-3-0/main.scm rename to retropikzel/r7rs-pffi/v0-4-0/main.scm index e5fcd0f..d47b2f8 100644 --- a/retropikzel/pffi/v0-3-0/main.scm +++ b/retropikzel/r7rs-pffi/v0-4-0/main.scm @@ -1,32 +1,32 @@ (define-library - (retropikzel pffi v0-3-0 main) + (retropikzel r7rs-pffi v0-4-0 main) (cond-expand (sagittarius (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 sagittarius))) + (retropikzel r7rs-pffi v0-4-0 sagittarius))) (guile (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 guile))) + (retropikzel r7rs-pffi v0-4-0 guile))) (racket (import (scheme base) (scheme write) (scheme file) (scheme process-context) (only (racket base) system-type) - (retropikzel pffi v0-3-0 racket))) + (retropikzel r7rs-pffi v0-4-0 racket))) (stklos (import (scheme base) (scheme write) (scheme file) (scheme process-context) (stklos) - (retropikzel pffi v0-3-0 stklos))) + (retropikzel r7rs-pffi v0-4-0 stklos))) (kawa (import (scheme base) (scheme write) @@ -37,31 +37,31 @@ (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 cyclone))) + (retropikzel r7rs-pffi v0-4-0 cyclone))) (gambit (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 gambit))) + (retropikzel r7rs-pffi v0-4-0 gambit))) (chicken (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 chicken))) + (retropikzel r7rs-pffi v0-4-0 chicken))) (chibi (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 chibi))) + (retropikzel r7rs-pffi v0-4-0 chibi))) (mit-scheme (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 mit-scheme)))) + (retropikzel r7rs-pffi v0-4-0 mit-scheme)))) (export pffi-shared-object-auto-load pffi-shared-object-load pffi-define diff --git a/retropikzel/pffi/v0-3-0/main.sld b/retropikzel/r7rs-pffi/v0-4-0/main.sld similarity index 93% rename from retropikzel/pffi/v0-3-0/main.sld rename to retropikzel/r7rs-pffi/v0-4-0/main.sld index e5fcd0f..d47b2f8 100644 --- a/retropikzel/pffi/v0-3-0/main.sld +++ b/retropikzel/r7rs-pffi/v0-4-0/main.sld @@ -1,32 +1,32 @@ (define-library - (retropikzel pffi v0-3-0 main) + (retropikzel r7rs-pffi v0-4-0 main) (cond-expand (sagittarius (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 sagittarius))) + (retropikzel r7rs-pffi v0-4-0 sagittarius))) (guile (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 guile))) + (retropikzel r7rs-pffi v0-4-0 guile))) (racket (import (scheme base) (scheme write) (scheme file) (scheme process-context) (only (racket base) system-type) - (retropikzel pffi v0-3-0 racket))) + (retropikzel r7rs-pffi v0-4-0 racket))) (stklos (import (scheme base) (scheme write) (scheme file) (scheme process-context) (stklos) - (retropikzel pffi v0-3-0 stklos))) + (retropikzel r7rs-pffi v0-4-0 stklos))) (kawa (import (scheme base) (scheme write) @@ -37,31 +37,31 @@ (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 cyclone))) + (retropikzel r7rs-pffi v0-4-0 cyclone))) (gambit (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 gambit))) + (retropikzel r7rs-pffi v0-4-0 gambit))) (chicken (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 chicken))) + (retropikzel r7rs-pffi v0-4-0 chicken))) (chibi (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 chibi))) + (retropikzel r7rs-pffi v0-4-0 chibi))) (mit-scheme (import (scheme base) (scheme write) (scheme file) (scheme process-context) - (retropikzel pffi v0-3-0 mit-scheme)))) + (retropikzel r7rs-pffi v0-4-0 mit-scheme)))) (export pffi-shared-object-auto-load pffi-shared-object-load pffi-define diff --git a/retropikzel/pffi/v0-3-0/racket.rkt b/retropikzel/r7rs-pffi/v0-4-0/racket.rkt similarity index 98% rename from retropikzel/pffi/v0-3-0/racket.rkt rename to retropikzel/r7rs-pffi/v0-4-0/racket.rkt index 987202b..f118cb9 100644 --- a/retropikzel/pffi/v0-3-0/racket.rkt +++ b/retropikzel/r7rs-pffi/v0-4-0/racket.rkt @@ -1,7 +1,7 @@ #lang r7rs (define-library - (retropikzel pffi v0-3-0 racket) + (retropikzel r7rs-pffi v0-4-0 racket) (import (scheme base) (scheme write) (scheme file) diff --git a/retropikzel/pffi/v0-3-0/sagittarius.scm b/retropikzel/r7rs-pffi/v0-4-0/sagittarius.scm similarity index 99% rename from retropikzel/pffi/v0-3-0/sagittarius.scm rename to retropikzel/r7rs-pffi/v0-4-0/sagittarius.scm index 6aa1d1e..945d52d 100644 --- a/retropikzel/pffi/v0-3-0/sagittarius.scm +++ b/retropikzel/r7rs-pffi/v0-4-0/sagittarius.scm @@ -1,5 +1,5 @@ (define-library - (retropikzel pffi v0-3-0 sagittarius) + (retropikzel r7rs-pffi v0-4-0 sagittarius) (import (scheme base) (scheme write) (scheme file) diff --git a/retropikzel/pffi/v0-3-0/stklos.scm b/retropikzel/r7rs-pffi/v0-4-0/stklos.scm similarity index 98% rename from retropikzel/pffi/v0-3-0/stklos.scm rename to retropikzel/r7rs-pffi/v0-4-0/stklos.scm index f6d421d..6a8abae 100644 --- a/retropikzel/pffi/v0-3-0/stklos.scm +++ b/retropikzel/r7rs-pffi/v0-4-0/stklos.scm @@ -1,5 +1,5 @@ (define-library - (retropikzel pffi v0-3-0 stklos) + (retropikzel r7rs-pffi v0-4-0 stklos) (import (scheme base) (scheme write) (scheme file) diff --git a/test/200_import.scm b/test/200_import.scm index 9d8fac8..57dd4ae 100644 --- a/test/200_import.scm +++ b/test/200_import.scm @@ -1,6 +1,6 @@ (import (scheme base) (scheme write) - (retropikzel pffi v0-3-0 main)) + (retropikzel r7rs-pffi v0-4-0 main)) (display "Hello from import.scm") (newline) diff --git a/test/300_size-of.scm b/test/300_size-of.scm index 6be3432..ef22e9b 100644 --- a/test/300_size-of.scm +++ b/test/300_size-of.scm @@ -1,6 +1,6 @@ (import (scheme base) (scheme write) - (retropikzel pffi v0-3-0 main)) + (retropikzel r7rs-pffi v0-4-0 main)) (display 'int8) (display " ") diff --git a/test/400_pointer-allocate-free.scm b/test/400_pointer-allocate-free.scm index 942570d..0251cfd 100644 --- a/test/400_pointer-allocate-free.scm +++ b/test/400_pointer-allocate-free.scm @@ -1,6 +1,6 @@ (import (scheme base) (scheme write) - (retropikzel pffi v0-3-0 main)) + (retropikzel r7rs-pffi v0-4-0 main)) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3) (* (pffi-size-of 'uint8) 4) diff --git a/test/401_is-pointer.scm b/test/401_is-pointer.scm index e42fdce..5d119a9 100644 --- a/test/401_is-pointer.scm +++ b/test/401_is-pointer.scm @@ -1,6 +1,6 @@ (import (scheme base) (scheme write) - (retropikzel pffi v0-3-0 main)) + (retropikzel r7rs-pffi v0-4-0 main)) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3) (* (pffi-size-of 'uint8) 4) diff --git a/test/402_null-pointer.scm b/test/402_null-pointer.scm index 516ace9..b8a6b60 100644 --- a/test/402_null-pointer.scm +++ b/test/402_null-pointer.scm @@ -1,6 +1,6 @@ (import (scheme base) (scheme write) - (retropikzel pffi v0-3-0 main)) + (retropikzel r7rs-pffi v0-4-0 main)) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3) (* (pffi-size-of 'uint8) 4) diff --git a/test/410_pointer-set-get.scm b/test/410_pointer-set-get.scm index 6bc56ba..0b5cd13 100644 --- a/test/410_pointer-set-get.scm +++ b/test/410_pointer-set-get.scm @@ -1,6 +1,6 @@ (import (scheme base) (scheme write) - (retropikzel pffi v0-3-0 main)) + (retropikzel r7rs-pffi v0-4-0 main)) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3) (* (pffi-size-of 'uint8) 4) diff --git a/test/500_string-to-pointer-to-string.scm b/test/500_string-to-pointer-to-string.scm index 7c214fe..3f29f9c 100644 --- a/test/500_string-to-pointer-to-string.scm +++ b/test/500_string-to-pointer-to-string.scm @@ -1,6 +1,6 @@ (import (scheme base) (scheme write) - (retropikzel pffi v0-3-0 main)) + (retropikzel r7rs-pffi v0-4-0 main)) (define original "Hello world") diff --git a/test/600_pffi-define.scm b/test/600_pffi-define.scm index fc9c4d6..69a1878 100644 --- a/test/600_pffi-define.scm +++ b/test/600_pffi-define.scm @@ -2,7 +2,7 @@ (scheme write) (scheme process-context) (scheme eval) - (retropikzel pffi v0-3-0 main)) + (retropikzel r7rs-pffi v0-4-0 main)) (define libcurl (pffi-shared-object-auto-load (list "curl/curl.h") (list) diff --git a/test/700_libc.scm b/test/700_libc.scm index 6e501bc..db79fc7 100644 --- a/test/700_libc.scm +++ b/test/700_libc.scm @@ -2,7 +2,7 @@ (scheme write) (scheme process-context) (scheme eval) - (retropikzel pffi v0-3-0 main)) + (retropikzel r7rs-pffi v0-4-0 main)) (define libc (pffi-shared-object-auto-load (list "curl/curl.h") (list) diff --git a/test/800_libcurl.scm b/test/800_libcurl.scm index f478f21..bac22fb 100644 --- a/test/800_libcurl.scm +++ b/test/800_libcurl.scm @@ -1,7 +1,7 @@ (import (scheme base) (scheme write) (scheme process-context) - (retropikzel pffi v0-3-0 main)) + (retropikzel r7rs-pffi v0-4-0 main)) (define libcurl (pffi-shared-object-auto-load (list "curl/curl.h") ; Headers (list ".") ; Additional search paths