Bump version to v0-3-0

.gitignore

@@ -22,4 +22,5 @@ test/*
 retropikzel/pffi/*/*.c
 retropikzel/pffi/*/*.o*
 retropikzel/pffi/*/*.so
+retropikzel/pffi/*/compiled
 tmp

Makefile

@@ -36,6 +36,7 @@ clean:
 	rm -rf retropikzel/pffi/${VERSION}/*.so
 	rm -rf retropikzel/pffi/${VERSION}/*.meta
 	rm -rf retropikzel/pffi/${VERSION}/retropikzel.*
+	rm -rf retropikzel/pffi/${VERSION}/compiled
 	rm -rf retropikzel.*
 	rm -rf test/*.c
 	rm -rf test/*.o*

README.md

@@ -206,7 +206,7 @@ Arguments:
     - Procedure used as callback function
     - Argument count must mathc the argument-types count
 
-### pffi-size-of
+#### pffi-size-of
 
 Get the size of type.
 
@@ -221,7 +221,7 @@ Returns:
     - The size of the given type
 
 
-### pffi-pointer-allocate
+#### pffi-pointer-allocate
 
 Allocates a pointer of given size.
 
@@ -236,7 +236,7 @@ Returns:
     - A pointer of given size
 
 
-### pffi-pointer-null
+#### pffi-pointer-null
 
 Create a null pointer.
 
@@ -244,7 +244,7 @@ Returns:
 - object
     - Null pointer
 
-### pffi-string->pointer
+#### pffi-string->pointer
 
 Arguments:
 
@@ -257,7 +257,7 @@ Returns:
     - Pointer of the given string
 
 
-### pffi-pointer->string
+#### pffi-pointer->string
 
 Arguments:
 
@@ -269,14 +269,14 @@ Returns:
 - string
     - String from the given pointer
 
-### pffi-pointer-free
+#### pffi-pointer-free
 
 Arguments:
 
 - pointer - object
     - The pointer you want to free
 
-### pffi-pointer?
+#### pffi-pointer?
 
 Arguments:
 
@@ -289,7 +289,7 @@ Returns:
     - Returns true if given object is pointer, otherwise false
 
 
-### pffi-pointer-set!
+#### pffi-pointer-set!
 
 Arguments:
 
@@ -303,7 +303,7 @@ Arguments:
 - value - object
     - The value to be placed into the object
 
-### pffi-pointer-get
+#### pffi-pointer-get
 
 Arguments:
 
@@ -321,7 +321,7 @@ Returns:
 - object
     - The value in the poiner in the given offset as given type
 
-### pffi-pointer-deref
+#### pffi-pointer-deref
 
 Arguments:
 

VERSION

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

composition.scm

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

retropikzel/pffi/v0-2-2/schubert-doc.md

@@ -1,57 +0,0 @@
-# pffi
-
-
-## Procedures
-
-
-### pffi-call
-
-Arguments:
-
-- shared-object (object)
-  - Shared object returned by pffi-shared-object-load or pffi-shared-object-auto-load
-- name (symbol)
-  - Name of the C function you want to call
-- type (symbol)
-  - Return type of the C function you want to call
-- arguments (list (cons type value)...)
-  - Arguments you want to pass to the C function as pairs of type and value
-
-Example:
-
-(define sdl2* (pffi-shared-object-auto-load "SDL2" (list))
-
-(pffi-call sdl2* 'SDL_Init 'int '((int . 32)))
-
-(define window* (pffi-call sdl2*
-                          'SDL_CreateWindow
-                          'pointer
-                          (list (cons 'pointer (pffi-string->pointer "Hello"))
-                                (cons 'int 1)
-                                (cons 'int 1)
-                                (cons 'int 400)
-                                (cons 'int 400)
-                                (cons 'int 4))
-
-
-### pffi-shared-object-load
-
-Arguments:
-- path (string) The path to the shared object you want to load, including any "lib" infront and .so/.dll at the end
-
-Returns:
-
-
-
-### pffi-shared-object-auto-load
-
-Arguments:
-- object-name (symbol)
- - The name of the dynamic library file you want to load without the "lib" in fron of it or .so/.dll at the end
-- addition-paths (list (string)...)
- - Any additional paths you want to search for the library
-
-Returns:
-- (object) Shared object, the type depends on the implementation
-
-

retropikzel/pffi/v0-3-0/chicken.scm

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

retropikzel/pffi/v0-3-0/cyclone.sld

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

retropikzel/pffi/v0-3-0/empty.scm

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

retropikzel/pffi/v0-3-0/gambit.scm

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

retropikzel/pffi/v0-3-0/gerbil.scm

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

retropikzel/pffi/v0-3-0/guile.scm

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

retropikzel/pffi/v0-3-0/main.scm

@@ -1,32 +1,32 @@
 (define-library
-  (retropikzel pffi v0-2-2 main)
+  (retropikzel pffi v0-3-0 main)
   (cond-expand
     (sagittarius
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 sagittarius)))
+              (retropikzel pffi v0-3-0 sagittarius)))
     (guile
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 guile)))
+              (retropikzel pffi v0-3-0 guile)))
     (racket
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
               (only (racket base) system-type)
-              (retropikzel pffi v0-2-2 racket)))
+              (retropikzel pffi v0-3-0 racket)))
     (stklos
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
               (stklos)
-              (retropikzel pffi v0-2-2 stklos)))
+              (retropikzel pffi v0-3-0 stklos)))
     (kawa
       (import (scheme base)
               (scheme write)
@@ -37,31 +37,31 @@
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 cyclone)))
+              (retropikzel pffi v0-3-0 cyclone)))
     (gambit
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 gambit)))
+              (retropikzel pffi v0-3-0 gambit)))
     (chicken
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 chicken)))
+              (retropikzel pffi v0-3-0 chicken)))
     (chibi
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 chibi)))
+              (retropikzel pffi v0-3-0 chibi)))
     (mit-scheme
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 mit-scheme))))
+              (retropikzel pffi v0-3-0 mit-scheme))))
   (export pffi-shared-object-auto-load
           pffi-shared-object-load
           pffi-define
@@ -84,7 +84,7 @@
 
 
 
-    (define library-version "v0-2-2")
+    (define library-version "v0-3-0")
     (define slash (cond-expand (windows (string #\\)) (else "/")))
 
     (define platform-file-extension

retropikzel/pffi/v0-3-0/main.sld

@@ -1,32 +1,32 @@
 (define-library
-  (retropikzel pffi v0-2-2 main)
+  (retropikzel pffi v0-3-0 main)
   (cond-expand
     (sagittarius
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 sagittarius)))
+              (retropikzel pffi v0-3-0 sagittarius)))
     (guile
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 guile)))
+              (retropikzel pffi v0-3-0 guile)))
     (racket
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
               (only (racket base) system-type)
-              (retropikzel pffi v0-2-2 racket)))
+              (retropikzel pffi v0-3-0 racket)))
     (stklos
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
               (stklos)
-              (retropikzel pffi v0-2-2 stklos)))
+              (retropikzel pffi v0-3-0 stklos)))
     (kawa
       (import (scheme base)
               (scheme write)
@@ -37,31 +37,31 @@
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 cyclone)))
+              (retropikzel pffi v0-3-0 cyclone)))
     (gambit
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 gambit)))
+              (retropikzel pffi v0-3-0 gambit)))
     (chicken
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 chicken)))
+              (retropikzel pffi v0-3-0 chicken)))
     (chibi
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 chibi)))
+              (retropikzel pffi v0-3-0 chibi)))
     (mit-scheme
       (import (scheme base)
               (scheme write)
               (scheme file)
               (scheme process-context)
-              (retropikzel pffi v0-2-2 mit-scheme))))
+              (retropikzel pffi v0-3-0 mit-scheme))))
   (export pffi-shared-object-auto-load
           pffi-shared-object-load
           pffi-define
@@ -84,7 +84,7 @@
 
 
 
-    (define library-version "v0-2-2")
+    (define library-version "v0-3-0")
     (define slash (cond-expand (windows (string #\\)) (else "/")))
 
     (define platform-file-extension

retropikzel/pffi/v0-3-0/racket.rkt

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

retropikzel/pffi/v0-3-0/sagittarius.scm

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

retropikzel/pffi/v0-3-0/stklos.scm

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

test/200_import.scm

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

test/300_size-of.scm

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

test/400_pointer-allocate-free.scm

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

test/401_is-pointer.scm

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

test/402_null-pointer.scm

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

test/410_pointer-set-get.scm

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

test/500_string-to-pointer-to-string.scm

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

test/600_pffi-define.scm

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

test/700_libc.scm

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

test/800_libcurl.scm

@@ -1,7 +1,7 @@
 (import (scheme base)
         (scheme write)
         (scheme process-context)
-        (retropikzel pffi v0-2-2 main))
+        (retropikzel pffi v0-3-0 main))
 
 (define libcurl (pffi-shared-object-auto-load (list "curl/curl.h") ; Headers
                                               (list ".") ; Additional search paths