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")
(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")

View File

@ -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)

View File

@ -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)

View File

@ -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)

View File

@ -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)

View File

@ -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)

View File

@ -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)

View File

@ -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

View File

@ -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

View File

@ -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)

View File

@ -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)

View File

@ -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)

View File

@ -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)

View File

@ -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 " ")

View File

@ -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)

View File

@ -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)

View File

@ -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)

View File

@ -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)

View File

@ -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")

View File

@ -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)

View File

@ -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)

View File

@ -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