X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht.scm;h=2807ec84a519ceb3f845fe8695adc22ea5a3de76;hb=2cb9ebb90bdf488128d5443f0e26ae22cd41d3fa;hp=f3474c63dd48071b6eee9be7d459e7267f600ae7;hpb=2a0373b3eda4407e2e41a4e8fc3a7333bb789a89;p=guile-irrlicht.git diff --git a/irrlicht.scm b/irrlicht.scm index f3474c6..2807ec8 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -1,5 +1,5 @@ ;;; guile-irrlicht --- FFI bindings for Irrlicht Engine -;;; Copyright (C) 2019 Javier Sancho +;;; Copyright (C) 2020 Javier Sancho ;;; ;;; This file is part of guile-irrlicht. ;;; @@ -18,19 +18,40 @@ ;;; . -(define-module (irrlicht)) +(define-module (irrlicht) + #:use-module (oop goops) + #:use-module (irrlicht base) + #:use-module (irrlicht device) + #:use-module (irrlicht gui) + #:use-module (irrlicht io) + #:use-module (irrlicht irr) + #:use-module (irrlicht scene) + #:use-module (irrlicht video) + #:duplicates (merge-generics) + #:re-export (add-animated-mesh-scene-node! + add-camera-scene-node! + add-camera-scene-node-fps! + add-file-archive! + add-octree-scene-node! + add-static-text! + begin-scene + create-device + drop! + end-scene + get-file-system + get-gui-environment + get-mesh + get-name + get-scene-manager + get-texture + get-video-driver + is-empty? + run + set-material-flag! + set-material-texture! + set-md2-animation! + set-position! + set-window-caption!)) -(eval-when (eval load compile) - ;; load public symbols into current module - (let ((public-modules - '((irrlicht device) - (irrlicht gui) - (irrlicht io) - (irrlicht scene) - (irrlicht video))) - (current-interface - (module-public-interface (current-module)))) - (for-each - (lambda (m) - (module-use! current-interface (resolve-interface m))) - public-modules))) +;; Merged methods have to be exported apart +(re-export draw-all)