(define-module (irrlicht bindings)
- #:use-module (system foreign)
- #:export (create-device))
+ #:use-module (system foreign))
(define cirr (dynamic-link "libCIrrlicht"))
-(define create-device
+(define-public create-device
(pointer->procedure
- int
+ '*
(dynamic-func "irr_createDevice" cirr)
(list int '* uint32 int int int)))
+
+(define-public get-video-driver
+ (pointer->procedure
+ '*
+ (dynamic-func "irr_getVideoDriver" cirr)
+ (list '*)))
+
+(define-public get-gui-environment
+ (pointer->procedure
+ '*
+ (dynamic-func "irr_getGUIEnvironment" cirr)
+ (list '*)))
+
+(define-public get-scene-manager
+ (pointer->procedure
+ '*
+ (dynamic-func "irr_getSceneManager" cirr)
+ (list '*)))
+
+(define-public set-window-caption
+ (pointer->procedure
+ void
+ (dynamic-func "irr_setWindowCaption" cirr)
+ (list '* '*)))
+
+(define-public run
+ (pointer->procedure
+ int
+ (dynamic-func "irr_run" cirr)
+ (list '*)))
+
+(define-public drop
+ (pointer->procedure
+ int
+ (dynamic-func "irr_drop" cirr)
+ (list '*)))