(define-module (irrlicht bindings io)
#:use-module (system foreign)
- #:use-module (rnrs arithmetic bitwise))
-
-(define cirr (dynamic-link "libCIrrlicht"))
+ #:use-module (rnrs arithmetic bitwise)
+ #:use-module (irrlicht util foreign))
(define (make-cirr-id c0 c1 c2 c3)
(define (char->numeric c)
(define-public EFAT_UNKNOWN (make-cirr-id #\u #\n #\k #\n))
;; IO functions
-(define-public add-file-archive
- (pointer->procedure
- int
- (dynamic-func "irr_io_addFileArchive" cirr)
- (list '* '* int int int '* '*)))
+(define-foreign add-file-archive
+ int "irr_io_addFileArchive" (list '* '* int int int '* '*))