18 lines
671 B
Scheme
18 lines
671 B
Scheme
|
|
(library (ikarus foreign)
|
|
|
|
(export malloc free pointer-set-char pointer-set-short
|
|
pointer-set-int pointer-set-long pointer-set-pointer
|
|
pointer-set-float pointer-set-double
|
|
pointer-ref-signed-char pointer-ref-signed-short
|
|
pointer-ref-signed-int pointer-ref-signed-long
|
|
pointer-ref-unsigned-char pointer-ref-unsigned-short
|
|
pointer-ref-unsigned-int pointer-ref-unsigned-long
|
|
pointer-ref-pointer pointer-ref-float pointer-ref-double
|
|
pointer->integer integer->pointer pointer? dlopen dlsym
|
|
dlclose dlerror
|
|
make-callout make-callback)
|
|
|
|
(import (ikarus system $foreign)))
|
|
|