TOC with direct C++

[guile-irrlicht.git] / irrlicht / bindings / core.scm

diff --git a/irrlicht/bindings/core.scm b/irrlicht/bindings/core.scm
index e0a13afdcf3ae6810bc88ad9f193390e049611fb..a5f06fd8a2ea651fe38390bf40367c93e242ee24 100644 (file)
--- a/irrlicht/bindings/core.scm
+++ b/irrlicht/bindings/core.scm
@@ -51,12 +51,19 @@
   (make-c-struct vector3df data))
 
 ;; aabbox3df struct
+(define-wrapped-pointer-type aabbox3df-type
+  aabbox3df?
+  pointer->aabbox3df aabbox3df->pointer
+  (lambda (box port)
+    (format port "#<aabbox3df ~x>"
+            (pointer-address (aabbox3df->pointer box)))))
+
+(export pointer->aabbox3df
+        aabbox3df->pointer)
+
 (define-public aabbox3df
   (list vector3df vector3df))
 
-(define-public (aabbox3df->pointer data)
-  (make-c-struct aabbox3df data))
-
 (define-foreign aabbox3d-add-internal-point
   void "irr_core_aabbox3d_addInternalPoint" (list '* '*))