51 lines
1.7 KiB
Scheme
51 lines
1.7 KiB
Scheme
(define-library
|
|
(foreign c larceny-primitives)
|
|
(cond-expand
|
|
(r6rs (import (rnrs base)
|
|
(rnrs lists)
|
|
(rnrs control)
|
|
(rnrs files)
|
|
(rnrs io simple)
|
|
(rnrs programs)
|
|
(only (rnrs bytevectors)
|
|
make-bytevector
|
|
bytevector-length
|
|
utf8->string
|
|
string->utf8
|
|
bytevector-u8-ref
|
|
bytevector-u8-set!)
|
|
(only (rnrs r5rs)
|
|
remainder
|
|
quotient)
|
|
(rename (primitives r5rs:require) (r5rs:require require))
|
|
(primitives std-ffi)
|
|
(primitives foreign-procedure)
|
|
(primitives foreign-file)
|
|
(primitives foreign-stdlib)
|
|
(primitives system-interface)))
|
|
(else
|
|
(import (scheme base)
|
|
(scheme write)
|
|
(scheme char)
|
|
(scheme file)
|
|
(scheme inexact)
|
|
(scheme process-context)
|
|
(rename (primitives r5rs:require) (r5rs:require require))
|
|
(primitives std-ffi)
|
|
(primitives foreign-procedure)
|
|
(primitives foreign-file)
|
|
(primitives foreign-stdlib)
|
|
(primitives system-interface))))
|
|
(export 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
|
|
c-null?)
|
|
(include "larceny-primitives.scm"))
|