X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Ffile-system.cpp;h=76892ef7a74ac78a86113ff06659b36b5b996b2d;hp=44171b362c46f4ecce38a9503a11f29c22cc9d82;hb=12c23d8b50e25efce7891cc81427c5774340bd18;hpb=cb00a4ce59df131e82f28deb4160015baae1fabe

diff --git a/src/file-system.cpp b/src/file-system.cpp
index 44171b3..76892ef 100644
--- a/src/file-system.cpp
+++ b/src/file-system.cpp
@@ -21,85 +21,47 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
-
-#include "device.h"
 #include "file-archive.h"
 #include "file-system.h"
 #include "gsubr.h"
-#include "gui-environment.h"
-#include "scene-manager.h"
 
-extern "C" {
 
-  void
-  init_file_system (void)
-  {
-    init_file_system_type ();
-    DEFINE_GSUBR ("add-file-archive!", 2, 0, 1, irr_io_addFileArchive);
-    DEFINE_GSUBR ("get-file-system", 1, 0, 0, irr_getFileSystem);
-  }
+using namespace irr;
 
-  DEFINE_WRAPPED_TYPE (irr::io::IFileSystem*, "file-system",
-                       init_file_system_type, file_system_p,
-                       wrap_file_system, unwrap_file_system);
 
-  SCM
-  irr_io_addFileArchive (SCM wrapped_file_system,
-                         SCM filename,
-                         SCM rest)
-  {
-    SCM ignore_case = SCM_BOOL_T;
-    SCM ignore_paths = SCM_BOOL_T;
-    SCM archive_type = scm_from_utf8_symbol ("unknown");
-    SCM password = scm_from_utf8_string ("");
-    SCM ret_archive = SCM_UNDEFINED;
+SCM
+io_IFileSystem_addFileArchive (SCM file_system,
+                               SCM filename,
+                               SCM ignore_case,
+                               SCM ignore_paths,
+                               SCM archive_type,
+                               SCM password,
+                               SCM ret_archive)
+{
+  io::IFileArchive* retArchive = (io::IFileArchive*)scm_to_pointer (ret_archive);
+  io::IFileArchive** retArchiveReference = 0;
+  if (retArchive != NULL)
+    {
+      retArchiveReference = &retArchive;
+    }
 
-    scm_c_bind_keyword_arguments ("add-file-archive!", rest, (scm_t_keyword_arguments_flags)0,
-                                  scm_from_utf8_keyword ("ignore-case"), &ignore_case,
-                                  scm_from_utf8_keyword ("ignore-paths"), &ignore_paths,
-                                  scm_from_utf8_keyword ("archive-type"), &archive_type,
-                                  scm_from_utf8_keyword ("password"), &password,
-                                  scm_from_utf8_keyword ("ret-archive"), &ret_archive,
-                                  SCM_UNDEFINED);
+  return scm_from_bool
+    (((io::IFileSystem*)scm_to_pointer (file_system))->
+     addFileArchive (scm_to_utf8_stringn (filename, NULL),
+                     scm_to_bool (ignore_case),
+                     scm_to_bool (ignore_paths),
+                     scm_to_file_archive_type (archive_type),
+                     scm_to_utf8_stringn (password, NULL),
+                     retArchiveReference));
+}
 
-    irr::io::IFileArchive** retArchiveReference = 0;
-    if (ret_archive != SCM_UNDEFINED)
-      {
-        irr::io::IFileArchive* retArchive = unwrap_file_archive (ret_archive);
-        retArchiveReference = &retArchive;
-      }
-    irr::io::IFileSystem* file_system = unwrap_file_system (wrapped_file_system);
-    return scm_from_bool
-      (file_system->addFileArchive (scm_to_utf8_stringn (filename, NULL),
-                                    scm_to_bool (ignore_case),
-                                    scm_to_bool (ignore_paths),
-                                    scm_to_file_archive_type (archive_type),
-                                    scm_to_utf8_stringn (password, NULL),
-                                    retArchiveReference));
-  }
 
-  SCM
-  irr_getFileSystem (SCM wrapped_obj)
+extern "C" {
+
+  void
+  init_file_system (void)
   {
-    irr::io::IFileSystem* file_system;
-    if (gui_environment_p (wrapped_obj))
-      {
-        file_system = unwrap_gui_environment (wrapped_obj)->getFileSystem ();
-      }
-    else if (device_p (wrapped_obj))
-      {
-        file_system = unwrap_device (wrapped_obj)->getFileSystem ();
-      }
-    else if (scene_manager_p (wrapped_obj))
-      {
-        file_system = unwrap_scene_manager (wrapped_obj)->getFileSystem ();
-      }
-    else
-      {
-        scm_error (scm_arg_type_key, NULL, "Cannot get file system from object: ~S",
-                   scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
-      }
-    return wrap_file_system (file_system);
+    DEFINE_GSUBR ("io_IFileSystem_addFileArchive", 7, 0, 0, io_IFileSystem_addFileArchive);
   }
 
 }