X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht.scm;h=345a5c787e0271c2048e4301024fb14bd273e37a;hb=a56a205c111552251f341cacec237f42c54bd5d0;hp=97bad7e51d7bf1814381553e8f614337c2a5c14f;hpb=6e3f5a53745ccdc3d03a5f1fa95899adbba562b3;p=guile-irrlicht.git diff --git a/irrlicht.scm b/irrlicht.scm index 97bad7e..345a5c7 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,15 +18,55 @@ ;;; . -(define-module (irrlicht)) +(define-module (irrlicht) + #:use-module (oop goops) + #:use-module (irrlicht base) + #:use-module (irrlicht core) + #: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-custom-scene-node! + add-file-archive! + add-internal-point! + add-octree-scene-node! + add-static-text! + begin-scene + create-device + create-rotation-animator + drop! + end-scene + get-cursor-control + get-file-system + get-fps + get-gui-environment + get-mesh + get-name + get-position + get-root-scene-node + get-scene-manager + get-texture + get-video-driver + is-empty? + is-window-active? + make-box3d + make-material + make-vertex3d + reset-box3d! + run + set-material-flag! + set-material-texture! + set-md2-animation! + set-position! + set-visible! + set-window-caption! + yield-device)) -(eval-when (eval load compile) - ;; load public symbols into current module - (let ((public-modules - '((irrlicht device))) - (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)