43 lines
1.2 KiB
Scheme
43 lines
1.2 KiB
Scheme
(define-library
|
|
(foreign c racket-primitives)
|
|
(cond-expand
|
|
(r6rs
|
|
(import (except (rnrs)
|
|
native-endianness)
|
|
(only (racket base)
|
|
system-type
|
|
system-big-endian?)
|
|
(ffi winapi)
|
|
(compatibility mlist)
|
|
(ffi unsafe)
|
|
(ffi vector)))
|
|
(else
|
|
(import (scheme base)
|
|
(scheme write)
|
|
(scheme char)
|
|
(scheme file)
|
|
(scheme inexact)
|
|
(scheme process-context)
|
|
(only (racket base)
|
|
system-type
|
|
system-big-endian?)
|
|
(ffi winapi)
|
|
(compatibility mlist)
|
|
(ffi unsafe)
|
|
(ffi vector))))
|
|
(export primitives-init
|
|
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!
|
|
make-c-null ;; FIXME
|
|
c-null? ;; FIXME
|
|
)
|
|
(include "racket-primitives.scm"))
|