Starting renaming and modfying to new schubert format

This commit is contained in:
retropikzel 2024-07-14 20:36:33 +03:00
parent a05570c92d
commit 26ad6f9506
25 changed files with 42 additions and 42 deletions

View File

@ -1 +1 @@
v0-3-0 v0-4-1

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -1,5 +1,5 @@
(define-library (define-library
(retropikzel pffi v0-3-0 guile) (retropikzel r7rs-pffi v0-4-0 guile)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme file) (scheme file)

View File

@ -1,32 +1,32 @@
(define-library (define-library
(retropikzel pffi v0-3-0 main) (retropikzel r7rs-pffi v0-4-0 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-3-0 sagittarius))) (retropikzel r7rs-pffi v0-4-0 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-3-0 guile))) (retropikzel r7rs-pffi v0-4-0 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-3-0 racket))) (retropikzel r7rs-pffi v0-4-0 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-3-0 stklos))) (retropikzel r7rs-pffi v0-4-0 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-3-0 cyclone))) (retropikzel r7rs-pffi v0-4-0 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-3-0 gambit))) (retropikzel r7rs-pffi v0-4-0 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-3-0 chicken))) (retropikzel r7rs-pffi v0-4-0 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-3-0 chibi))) (retropikzel r7rs-pffi v0-4-0 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-3-0 mit-scheme)))) (retropikzel r7rs-pffi v0-4-0 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

View File

@ -1,32 +1,32 @@
(define-library (define-library
(retropikzel pffi v0-3-0 main) (retropikzel r7rs-pffi v0-4-0 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-3-0 sagittarius))) (retropikzel r7rs-pffi v0-4-0 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-3-0 guile))) (retropikzel r7rs-pffi v0-4-0 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-3-0 racket))) (retropikzel r7rs-pffi v0-4-0 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-3-0 stklos))) (retropikzel r7rs-pffi v0-4-0 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-3-0 cyclone))) (retropikzel r7rs-pffi v0-4-0 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-3-0 gambit))) (retropikzel r7rs-pffi v0-4-0 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-3-0 chicken))) (retropikzel r7rs-pffi v0-4-0 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-3-0 chibi))) (retropikzel r7rs-pffi v0-4-0 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-3-0 mit-scheme)))) (retropikzel r7rs-pffi v0-4-0 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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (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) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4) (* (pffi-size-of 'uint8) 4)

View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (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) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4) (* (pffi-size-of 'uint8) 4)

View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (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) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4) (* (pffi-size-of 'uint8) 4)

View File

@ -1,6 +1,6 @@
(import (scheme base) (import (scheme base)
(scheme write) (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) (define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
(* (pffi-size-of 'uint8) 4) (* (pffi-size-of 'uint8) 4)

View File

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

View File

@ -2,7 +2,7 @@
(scheme write) (scheme write)
(scheme process-context) (scheme process-context)
(scheme eval) (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") (define libcurl (pffi-shared-object-auto-load (list "curl/curl.h")
(list) (list)

View File

@ -2,7 +2,7 @@
(scheme write) (scheme write)
(scheme process-context) (scheme process-context)
(scheme eval) (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") (define libc (pffi-shared-object-auto-load (list "curl/curl.h")
(list) (list)

View File

@ -1,7 +1,7 @@
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme process-context) (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 (define libcurl (pffi-shared-object-auto-load (list "curl/curl.h") ; Headers
(list ".") ; Additional search paths (list ".") ; Additional search paths