X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fio.scm;h=1e94c5d23fd774668b28156d189051a186018d48;hb=09e9ed196aadab0f77e831c134fce8bdb58b772b;hp=73961bb7655efdde69536940d86766a6419d4287;hpb=8c5c5f5fc4aef51c5dfa515b3a8eee67de3b8e9b;p=guile-irrlicht.git

diff --git a/irrlicht/io.scm b/irrlicht/io.scm
index 73961bb..1e94c5d 100644
--- a/irrlicht/io.scm
+++ b/irrlicht/io.scm
@@ -20,11 +20,38 @@
 
 (define-module (irrlicht io)
   #:use-module (oop goops)
+  #:use-module (ice-9 optargs)
   #:use-module (irrlicht foreign)
   #:use-module (irrlicht irr))
 
 
 ;; IAttributeExchangingObject
-(define-class <attribute-exchanging-object> (<reference-counted>))
+(define-class <attribute-exchanging-object> (<reference-counted>)
+  (irr-class #:init-value "IAttributeExchangingObject" #:getter irr-class))
 
 (export <attribute-exchanging-object>)
+
+
+;;IFileArchive
+(define-class <file-archive> (<reference-counted>)
+  (irr-class #:init-value "IFileArchive" #:getter irr-class))
+
+(export <file-archive>)
+
+
+;;IFileSystem
+(define-class <file-system> (<reference-counted>)
+  (irr-class #:init-value "IFileSystem" #:getter irr-class))
+
+(define-method (add-file-archive! (file-system <file-system>) filename . rest)
+  (let-keywords rest #f
+        ((ignore-case #t)
+         (ignore-paths #t)
+         (archive-type 'unknown)
+         (password "")
+         (ret-archive (make <file-archive>)))
+    (let ((addFileArchive (get-irrlicht-proc "addFileArchive" file-system)))
+      (addFileArchive
+       file-system filename ignore-case ignore-paths archive-type password ret-archive))))
+
+(export <file-system> add-file-archive!)