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

Bump the version number

This commit is contained in:
retropikzel 2024-05-29 15:45:14 +03:00
parent c0814d2675
commit b3dbaf74c6
24 changed files with 44 additions and 142 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
VERSION
View File

@ -1 +1 @@
v0-2-0 v0-2-1

2
composition.scm
View File

@ -1,6 +1,6 @@
((packager . "retropikzel") ((packager . "retropikzel")
(name . "pffi") (name . "pffi")
(version . "v0-2-0") (version . "v0-2-1")
(type . "library") (type . "library")
(description . "Portable Foreign Function Interface for R7RS schemes") (description . "Portable Foreign Function Interface for R7RS schemes")
(license . "LGPL") (license . "LGPL")

2
retropikzel/pffi/v0-2-0/chicken.scm → retropikzel/pffi/v0-2-1/chicken.scm
View File

@ -1,5 +1,5 @@
(define-library (define-library
(retropikzel pffi v0-2-0 chicken) (retropikzel pffi v0-2-1 chicken)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)

2
retropikzel/pffi/v0-2-0/cyclone.sld → retropikzel/pffi/v0-2-1/cyclone.sld
View File

@ -1,5 +1,5 @@
(define-library (define-library
(retropikzel pffi v0-2-0 cyclone) (retropikzel pffi v0-2-1 cyclone)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)

2
retropikzel/pffi/v0-2-0/empty.scm → retropikzel/pffi/v0-2-1/empty.scm
View File

@ -1,5 +1,5 @@
(define-library (define-library
(retropikzel pffi v0-2-0 empty) (retropikzel pffi v0-2-1 empty)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)

2
retropikzel/pffi/v0-2-0/gambit.scm → retropikzel/pffi/v0-2-1/gambit.scm
View File

@ -1,5 +1,5 @@
(define-library (define-library
(retropikzel pffi v0-2-0 gambit) (retropikzel pffi v0-2-1 gambit)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)

2
retropikzel/pffi/v0-2-0/gerbil.scm → retropikzel/pffi/v0-2-1/gerbil.scm
View File

@ -1,5 +1,5 @@
(define-library (define-library
(retropikzel pffi v0-2-0 gerbil) (retropikzel pffi v0-2-1 gerbil)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)

4
retropikzel/pffi/v0-2-0/guile.scm → retropikzel/pffi/v0-2-1/guile.scm
View File

@ -1,5 +1,5 @@
(define-library (define-library
(retropikzel pffi v0-2-0 guile) (retropikzel pffi v0-2-1 guile)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
@ -138,7 +138,7 @@
((equal? native-type unsigned-long) (bytevector-u64-ref p offset value (native-endianness))) ((equal? native-type unsigned-long) (bytevector-u64-ref p offset value (native-endianness)))
((equal? native-type float) (bytevector-u64-ref p offset value (native-endianness))) ((equal? native-type float) (bytevector-u64-ref p offset value (native-endianness)))
((equal? native-type double) (bytevector-u64-ref p offset value (native-endianness))) ((equal? native-type double) (bytevector-u64-ref p offset value (native-endianness)))
((equal? native-type '*) (bytevector-sint-ref p offset value (native-endianness) (pffi-size-of type))))))))))) ((equal? native-type '*) (bytevector-sint-ref p offset value (native-endianness) (pffi-size-of type)))))))
(define pffi-pointer-deref (define pffi-pointer-deref
(lambda (pointer) (lambda (pointer)

0
retropikzel/pffi/v0-2-0/kawa.scm → retropikzel/pffi/v0-2-1/kawa.scm
View File

0
retropikzel/pffi/v0-2-0/main.rkt → retropikzel/pffi/v0-2-1/main.rkt
View File

73
retropikzel/pffi/v0-2-0/main.scm → retropikzel/pffi/v0-2-1/main.scm
View File

@ -1,32 +1,32 @@
(define-library (define-library
(retropikzel pffi v0-2-0 main) (retropikzel pffi v0-2-1 main)
(cond-expand (cond-expand
(sagittarius (sagittarius
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 sagittarius))) (retropikzel pffi v0-2-1 sagittarius)))
(guile (guile
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 guile))) (retropikzel pffi v0-2-1 guile)))
(racket (racket
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(only (racket base) system-type) (only (racket base) system-type)
(retropikzel pffi v0-2-0 racket))) (retropikzel pffi v0-2-1 racket)))
(stklos (stklos
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(stklos) (stklos)
(retropikzel pffi v0-2-0 stklos))) (retropikzel pffi v0-2-1 stklos)))
(kawa (kawa
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
@ -37,31 +37,31 @@
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 cyclone))) (retropikzel pffi v0-2-1 cyclone)))
(gambit (gambit
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 gambit))) (retropikzel pffi v0-2-1 gambit)))
(chicken (chicken
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 chicken))) (retropikzel pffi v0-2-1 chicken)))
(chibi (chibi
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 chibi))) (retropikzel pffi v0-2-1 chibi)))
(mit-scheme (mit-scheme
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 mit-scheme)))) (retropikzel pffi v0-2-1 mit-scheme))))
(export pffi-shared-object-auto-load (export pffi-shared-object-auto-load
pffi-shared-object-load pffi-shared-object-load
pffi-define pffi-define
@ -83,7 +83,7 @@
(define library-version "v0-2-0") (define library-version "v0-2-1")
(define slash (cond-expand (windows (string #\\)) (else "/"))) (define slash (cond-expand (windows (string #\\)) (else "/")))
(define platform-file-extension (define platform-file-extension
@ -168,58 +168,9 @@
(define auto-load-versions (list "")) (define auto-load-versions (list ""))
(define-syntax pffi-shared-object-auto-load-old
(syntax-rules ()
((pffi-shared-object-auto-load headers object-name additional-paths)
(cond-expand
(cyclone (pffi-shared-object-load headers))
(chicken (pffi-shared-object-load headers))
(gambit (pffi-shared-object-load headers))
(else
(let* ((paths (append auto-load-paths additional-paths))
(shared-object #f))
(for-each
(lambda (path)
(if (not shared-object)
(let ((object-path
(string-append path
"/"
object-name
platform-file-extension))
(object-version-path
(string-append path
"/"
object-name
platform-version-file-extension))
(object-lib-path
(string-append path
"/"
platform-lib-prefix
object-name
platform-file-extension))
(object-version-lib-path
(string-append path
"/"
platform-lib-prefix
object-name
platform-version-file-extension)))
(cond
((file-exists? object-path)
(set! shared-object (pffi-shared-object-load headers object-path)))
((file-exists? object-version-path)
(set! shared-object (pffi-shared-object-load headers object-version-path)))
((file-exists? object-lib-path)
(set! shared-object (pffi-shared-object-load headers object-lib-path)))
((file-exists? object-version-lib-path)
(set! shared-object (pffi-shared-object-load headers object-version-lib-path)))))))
paths)
(if (not shared-object)
(error "Could not load shared object" object-name)
shared-object)))))))
(define-syntax pffi-shared-object-auto-load (define-syntax pffi-shared-object-auto-load
(syntax-rules () (syntax-rules ()
((pffi-shared-object-auto-load headers object-name additional-versions additional-paths) ((pffi-shared-object-auto-load headers additional-paths object-name additional-versions)
(cond-expand (cond-expand
(cyclone (pffi-shared-object-load headers)) (cyclone (pffi-shared-object-load headers))
(chicken (pffi-shared-object-load headers)) (chicken (pffi-shared-object-load headers))

73
retropikzel/pffi/v0-2-0/main.sld → retropikzel/pffi/v0-2-1/main.sld
View File

@ -1,32 +1,32 @@
(define-library (define-library
(retropikzel pffi v0-2-0 main) (retropikzel pffi v0-2-1 main)
(cond-expand (cond-expand
(sagittarius (sagittarius
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 sagittarius))) (retropikzel pffi v0-2-1 sagittarius)))
(guile (guile
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 guile))) (retropikzel pffi v0-2-1 guile)))
(racket (racket
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(only (racket base) system-type) (only (racket base) system-type)
(retropikzel pffi v0-2-0 racket))) (retropikzel pffi v0-2-1 racket)))
(stklos (stklos
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(stklos) (stklos)
(retropikzel pffi v0-2-0 stklos))) (retropikzel pffi v0-2-1 stklos)))
(kawa (kawa
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
@ -37,31 +37,31 @@
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 cyclone))) (retropikzel pffi v0-2-1 cyclone)))
(gambit (gambit
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 gambit))) (retropikzel pffi v0-2-1 gambit)))
(chicken (chicken
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 chicken))) (retropikzel pffi v0-2-1 chicken)))
(chibi (chibi
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 chibi))) (retropikzel pffi v0-2-1 chibi)))
(mit-scheme (mit-scheme
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)
(scheme process-context) (scheme process-context)
(retropikzel pffi v0-2-0 mit-scheme)))) (retropikzel pffi v0-2-1 mit-scheme))))
(export pffi-shared-object-auto-load (export pffi-shared-object-auto-load
pffi-shared-object-load pffi-shared-object-load
pffi-define pffi-define
@ -83,7 +83,7 @@
(define library-version "v0-2-0") (define library-version "v0-2-1")
(define slash (cond-expand (windows (string #\\)) (else "/"))) (define slash (cond-expand (windows (string #\\)) (else "/")))
(define platform-file-extension (define platform-file-extension
@ -168,58 +168,9 @@
(define auto-load-versions (list "")) (define auto-load-versions (list ""))
(define-syntax pffi-shared-object-auto-load-old
(syntax-rules ()
((pffi-shared-object-auto-load headers object-name additional-paths)
(cond-expand
(cyclone (pffi-shared-object-load headers))
(chicken (pffi-shared-object-load headers))
(gambit (pffi-shared-object-load headers))
(else
(let* ((paths (append auto-load-paths additional-paths))
(shared-object #f))
(for-each
(lambda (path)
(if (not shared-object)
(let ((object-path
(string-append path
"/"
object-name
platform-file-extension))
(object-version-path
(string-append path
"/"
object-name
platform-version-file-extension))
(object-lib-path
(string-append path
"/"
platform-lib-prefix
object-name
platform-file-extension))
(object-version-lib-path
(string-append path
"/"
platform-lib-prefix
object-name
platform-version-file-extension)))
(cond
((file-exists? object-path)
(set! shared-object (pffi-shared-object-load headers object-path)))
((file-exists? object-version-path)
(set! shared-object (pffi-shared-object-load headers object-version-path)))
((file-exists? object-lib-path)
(set! shared-object (pffi-shared-object-load headers object-lib-path)))
((file-exists? object-version-lib-path)
(set! shared-object (pffi-shared-object-load headers object-version-lib-path)))))))
paths)
(if (not shared-object)
(error "Could not load shared object" object-name)
shared-object)))))))
(define-syntax pffi-shared-object-auto-load (define-syntax pffi-shared-object-auto-load
(syntax-rules () (syntax-rules ()
((pffi-shared-object-auto-load headers object-name additional-versions additional-paths) ((pffi-shared-object-auto-load headers additional-paths object-name additional-versions)
(cond-expand (cond-expand
(cyclone (pffi-shared-object-load headers)) (cyclone (pffi-shared-object-load headers))
(chicken (pffi-shared-object-load headers)) (chicken (pffi-shared-object-load headers))

2
retropikzel/pffi/v0-2-0/racket.rkt → retropikzel/pffi/v0-2-1/racket.rkt
View File

@ -1,7 +1,7 @@
#lang r7rs #lang r7rs
(define-library (define-library
(retropikzel pffi v0-2-0 racket) (retropikzel pffi v0-2-1 racket)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)

2
retropikzel/pffi/v0-2-0/sagittarius.scm → retropikzel/pffi/v0-2-1/sagittarius.scm
View File

@ -1,5 +1,5 @@
(define-library (define-library
(retropikzel pffi v0-2-0 sagittarius) (retropikzel pffi v0-2-1 sagittarius)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)

0
retropikzel/pffi/v0-2-0/schubert-doc.md → retropikzel/pffi/v0-2-1/schubert-doc.md
View File

2
retropikzel/pffi/v0-2-0/stklos.scm → retropikzel/pffi/v0-2-1/stklos.scm
View File

@ -1,5 +1,5 @@
(define-library (define-library
(retropikzel pffi v0-2-0 stklos) (retropikzel pffi v0-2-1 stklos)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)

2
test/200_import.scm
View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(retropikzel pffi v0-2-0 main)) (retropikzel pffi v0-2-1 main))
(display "Hello from import.scm") (display "Hello from import.scm")
(newline) (newline)

2
test/300_size-of.scm
View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(retropikzel pffi v0-2-0 main)) (retropikzel pffi v0-2-1 main))
(display 'int8) (display 'int8)
(display " ") (display " ")

2
test/400_pointer-allocate-free.scm
View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(retropikzel pffi v0-2-0 main)) (retropikzel pffi v0-2-1 main))
(define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4) (* (pffi-size-of 'uint8) 4)

2
test/401_is-pointer.scm
View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(retropikzel pffi v0-2-0 main)) (retropikzel pffi v0-2-1 main))
(define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4) (* (pffi-size-of 'uint8) 4)

2
test/402_null-pointer.scm
View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(retropikzel pffi v0-2-0 main)) (retropikzel pffi v0-2-1 main))
(define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4) (* (pffi-size-of 'uint8) 4)

2
test/410_pointer-set-get.scm
View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(retropikzel pffi v0-2-0 main)) (retropikzel pffi v0-2-1 main))
(define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4) (* (pffi-size-of 'uint8) 4)

2
test/500_string-to-pointer-to-string.scm
View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(retropikzel pffi v0-2-0 main)) (retropikzel pffi v0-2-1 main))
(define original "Hello world") (define original "Hello world")

2
test/600_pffi-define.scm
View File

@ -2,7 +2,7 @@
(scheme write) (scheme write)
(scheme process-context) (scheme process-context)
(scheme eval) (scheme eval)
(retropikzel pffi v0-2-0 main)) (retropikzel pffi v0-2-1 main))
(define libcurl (pffi-shared-object-auto-load (list "curl/curl.h") (define libcurl (pffi-shared-object-auto-load (list "curl/curl.h")
"curl" "curl"