(define-library
  (foreign c stklos-primitives)
  (import (scheme base)
          (scheme write)
          (scheme char)
          (scheme file)
          (scheme inexact)
          (scheme process-context)
          (only (stklos)
                %make-callback
                make-external-function
                allocate-bytes
                free-bytes
                cpointer?
                cpointer-null?
                cpointer-data
                cpointer-data-set!
                cpointer-set-abs!
                cpointer-ref-abs
                c-size-of
                void?))
  (export primitives-init
          size-of-type
          align-of-type
          shared-object-load
          define-c-procedure
          c-bytevector?
          c-bytevector-u8-ref
          c-bytevector-u8-set!
          c-bytevector-pointer-ref
          c-bytevector-pointer-set!
          make-c-null ;; FIXME
          c-null?
          ;; STklos specific
          ; calculate-struct-size-and-offsets
          ;struct-make
          get-environment-variable
          file-exists?
          make-external-function
          ;address->c-bytevector
          ;c-bytevector-pointer-set!
          ;c-bytevector-pointer-ref
          void?
          free-bytes
          )
  (include "stklos-primitives.scm"))