(define-library (foreign c gauche-primitives) (import (scheme base) (scheme write) (scheme char) (scheme file) (scheme inexact) (scheme process-context) (gauche base) (foreign c primitives gauche)) (export size-of-type align-of-type shared-object-load define-c-procedure define-c-callback c-bytevector? c-bytevector-u8-ref c-bytevector-u8-set! c-bytevector-pointer-ref c-bytevector-pointer-set!) (include "gauche-primitives.scm"))