(define-library
  (retropikzel r7rs-pffi)
  (cond-expand
    (chibi
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context)
              (chibi ast)
              (chibi))
      (export pffi-init
              pffi-size-of
              pffi-align-of
              pffi-shared-object-auto-load
              pffi-shared-object-load
              pffi-pointer-null
              pffi-pointer-null?
              pffi-pointer-allocate
              pffi-pointer?
              pffi-pointer-free
              pffi-pointer-set!
              pffi-pointer-get
              pffi-string->pointer
              pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
              )
      (include-shared "r7rs-pffi/r7rs-pffi-chibi"))
    (chicken
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context)
              (chicken foreign)
              (chicken locative)
              (chicken syntax)
              (chicken memory)
              (chicken random))
      (export pffi-init
              pffi-size-of
              pffi-align-of
              pffi-shared-object-auto-load
              pffi-shared-object-load
              pffi-pointer-null
              pffi-pointer-null?
              pffi-pointer-allocate
              pffi-pointer?
              pffi-pointer-free
              pffi-pointer-set!
              pffi-pointer-get
              pffi-string->pointer
              pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              pffi-define
              pffi-define-callback
              pffi-pointer-address
              ;pffi-pointer-dereference
              ))
    (cyclone
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context)
              (cyclone foreign)
              (scheme cyclone primitives))
      (export pffi-init
              pffi-size-of
              pffi-align-of
              pffi-shared-object-auto-load
              pffi-shared-object-load
              pffi-pointer-null
              pffi-pointer-null?
              pffi-pointer-allocate
              pffi-pointer?
              pffi-pointer-free
              pffi-pointer-set!
              pffi-pointer-get
              pffi-string->pointer
              pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
              ))
    (gambit
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context)
              (only (gambit) c-declare c-lambda c-define))
      (export pffi-init
              pffi-size-of
              pffi-align-of
              pffi-shared-object-auto-load
              pffi-shared-object-load
              ;pffi-pointer-null
              ;pffi-pointer-null?
              ;pffi-pointer-allocate
              ;pffi-pointer?
              ;pffi-pointer-free
              ;pffi-pointer-set!
              ;pffi-pointer-get
              ;pffi-string->pointer
              ;pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              ;pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
              ))
    (gauche
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context))
      (export pffi-init
              ;pffi-size-of
              pffi-align-of
              ;pffi-shared-object-auto-load
              ;pffi-shared-object-load
              ;pffi-pointer-null
              ;pffi-pointer-null?
              ;pffi-pointer-allocate
              ;pffi-pointer?
              ;pffi-pointer-free
              ;pffi-pointer-set!
              ;pffi-pointer-get
              ;pffi-string->pointer
              ;pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              ;pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
              ))
    (gerbil
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context))
      (export pffi-init
              ;pffi-size-of
              ;pffi-align-of
              ;pffi-shared-object-auto-load
              ;pffi-shared-object-load
              ;pffi-pointer-null
              ;pffi-pointer-null?
              ;pffi-pointer-allocate
              ;pffi-pointer?
              ;pffi-pointer-free
              ;pffi-pointer-set!
              ;pffi-pointer-get
              ;pffi-string->pointer
              ;pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              ;pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
              ))
    (guile
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context)
              (rnrs bytevectors)
              (system foreign)
              (system foreign-library))
      (export pffi-init
              pffi-size-of
              pffi-align-of
              pffi-shared-object-auto-load
              pffi-shared-object-load
              pffi-pointer-null
              pffi-pointer-null?
              pffi-pointer-allocate
              pffi-pointer?
              pffi-pointer-free
              pffi-pointer-set!
              pffi-pointer-get
              pffi-string->pointer
              pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              pffi-define
              pffi-define-callback
              pffi-pointer-address
              pffi-pointer-dereference))
    (kawa
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context))
      (export pffi-init
              pffi-size-of
              pffi-align-of
              pffi-shared-object-auto-load
              pffi-shared-object-load
              pffi-pointer-null
              pffi-pointer-null?
              pffi-pointer-allocate
              pffi-pointer?
              pffi-pointer-free
              pffi-pointer-set!
              pffi-pointer-get
              pffi-string->pointer
              pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              pffi-pointer-dereference))
    (larceny
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context)
              (rename (primitives r5rs:require) (r5rs:require require))
              (primitives std-ffi)
              (primitives foreign-procedure)
              (primitives foreign-file)
              (primitives foreign-stdlib)
              )
      (export pffi-init
              ;pffi-size-of
              ;pffi-align-of
              ;pffi-shared-object-auto-load
              ;pffi-shared-object-load
              ;pffi-pointer-null
              ;pffi-pointer-null?
              ;pffi-pointer-allocate
              ;pffi-pointer?
              ;pffi-pointer-free
              ;pffi-pointer-set!
              ;pffi-pointer-get
              ;pffi-string->pointer
              ;pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              ;pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
              )
      )
    (mosh
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context)
              (mosh ffi))
      (export pffi-init
              pffi-size-of
              pffi-align-of
              pffi-shared-object-auto-load
              pffi-shared-object-load
              pffi-pointer-null
              pffi-pointer-null?
              pffi-pointer-allocate
              pffi-pointer?
              pffi-pointer-free
              pffi-pointer-set!
              pffi-pointer-get
              pffi-string->pointer
              pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              pffi-define
              pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
              ))
    (racket
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context)
              (only (racket base) system-type)
              (ffi winapi)
              (compatibility mlist)
              (ffi unsafe)
              (ffi vector))
      (export pffi-init
              pffi-size-of
              pffi-align-of
              pffi-shared-object-auto-load
              pffi-shared-object-load
              pffi-pointer-null
              pffi-pointer-null?
              pffi-pointer-allocate
              pffi-pointer?
              pffi-pointer-free
              pffi-pointer-set!
              pffi-pointer-get
              pffi-string->pointer
              pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              pffi-define
              pffi-define-callback
              pffi-pointer-address
              pffi-pointer-dereference))
    (sagittarius
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context)
              (sagittarius ffi)
              (sagittarius))
      (export pffi-init
              pffi-size-of
              pffi-align-of
              pffi-shared-object-auto-load
              pffi-shared-object-load
              pffi-pointer-null
              pffi-pointer-null?
              pffi-pointer-allocate
              pffi-pointer?
              pffi-pointer-free
              pffi-pointer-set!
              pffi-pointer-get
              pffi-string->pointer
              pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              pffi-define
              pffi-define-callback
              pffi-pointer-address
              pffi-pointer-dereference))
    (skint
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context))
      (export pffi-init
              ;pffi-size-of
              ;pffi-align-of
              ;pffi-shared-object-auto-load
              ;pffi-shared-object-load
              ;pffi-pointer-null
              ;pffi-pointer-null?
              ;pffi-pointer-allocate
              ;pffi-pointer?
              ;pffi-pointer-free
              ;pffi-pointer-set!
              ;pffi-pointer-get
              ;pffi-string->pointer
              ;pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              ;pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
              ))
    (stklos
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context)
              (stklos))
      (export pffi-init
              pffi-size-of
              pffi-align-of
              pffi-shared-object-auto-load
              pffi-shared-object-load
              pffi-pointer-null
              pffi-pointer-null?
              pffi-pointer-allocate
              pffi-pointer?
              pffi-pointer-free
              pffi-pointer-set!
              ;pffi-pointer-get
              ;pffi-string->pointer
              ;pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              ;pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
              ))
    (tr7
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context))
      (export pffi-init
              ;pffi-size-of
              ;pffi-align-of
              ;pffi-shared-object-auto-load
              ;pffi-shared-object-load
              ;pffi-pointer-null
              ;pffi-pointer-null?
              ;pffi-pointer-allocate
              ;pffi-pointer?
              ;pffi-pointer-free
              ;pffi-pointer-set!
              ;pffi-pointer-get
              ;pffi-string->pointer
              ;pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              ;pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
              ))
    (ypsilon
      (import (scheme base)
              (scheme write)
              (scheme char)
              (scheme file)
              (scheme process-context))
      (export ;pffi-init
              ;pffi-size-of
              ;pffi-align-of
              ;pffi-shared-object-auto-load
              ;pffi-shared-object-load
              ;pffi-pointer-null
              ;pffi-pointer-null?
              ;pffi-pointer-allocate
              ;pffi-pointer?
              ;pffi-pointer-free
              ;pffi-pointer-set!
              ;pffi-pointer-get
              ;pffi-string->pointer
              ;pffi-pointer->string
              pffi-struct-make
              pffi-struct-size
              pffi-struct-pointer
              pffi-struct-get
              pffi-struct-set!
              ;pffi-define
              ;pffi-define-callback
              ;pffi-pointer-address
              ;pffi-pointer-dereference
        ))
    (else (error "Unsupported implementation")))
  (include "r7rs-pffi/struct.scm")
  (cond-expand
    (chibi (include "r7rs-pffi/chibi.scm"))
    (chicken (include "r7rs-pffi/chicken.scm"))
    (cyclone (include "r7rs-pffi/cyclone.scm"))
    (gambit (include "r7rs-pffi/gambit.scm"))
    (gauche (include "r7rs-pffi/gauche.scm"))
    (gerbil (include "r7rs-pffi/gerbil.scm"))
    (guile (include "r7rs-pffi/guile.scm"))
    (kawa (include "r7rs-pffi/kawa.scm"))
    (larceny (include "r7rs-pffi/larceny.scm"))
    (mosh (include "r7rs-pffi/mosh.scm"))
    (racket (include "r7rs-pffi/racket.scm"))
    (sagittarius (include "r7rs-pffi/sagittarius.scm"))
    (skint (include "r7rs-pffi/skint.scm"))
    (stklos (include "retropikzel/r7rs-pffi/stklos.scm"))
    (tr7 (include "r7rs-pffi/tr7.scm"))
    (ypsilon (include "r7rs-pffi/ypsilon.scm"))
    (else #t))
  (include "r7rs-pffi/main.scm"))