Unwrap Irrlicht objects in C++ instead of Guile

[guile-irrlicht.git] / src / file-system.cpp

diff --git a/src/file-system.cpp b/src/file-system.cpp
index 5b872a5d1fbb5ffc9085c1ede2d25911c6544920..fe9b062d6e060b3fd268dfb0fb17526d5a18c189 100644 (file)
--- a/src/file-system.cpp
+++ b/src/file-system.cpp
@@ -24,11 +24,10 @@
 #include "file-archive.h"
 #include "file-system.h"
 #include "gsubr.h"
-
+#include "wrapped.h"
 
 using namespace irr;
 
-
 SCM
 IFileSystem_addFileArchive (SCM file_system,
                             SCM filename,
@@ -38,7 +37,7 @@ IFileSystem_addFileArchive (SCM file_system,
                             SCM password,
                             SCM ret_archive)
 {
-  io::IFileArchive* retArchive = (io::IFileArchive*)scm_to_pointer (ret_archive);
+  io::IFileArchive* retArchive = (io::IFileArchive*)scm_to_irr_pointer (ret_archive);
   io::IFileArchive** retArchiveReference = 0;
   if (retArchive != NULL)
     {
@@ -46,7 +45,7 @@ IFileSystem_addFileArchive (SCM file_system,
     }
 
   return scm_from_bool
-    (((io::IFileSystem*)scm_to_pointer (file_system))->
+    (((io::IFileSystem*)scm_to_irr_pointer (file_system))->
      addFileArchive (scm_to_utf8_stringn (filename, NULL),
                      scm_to_bool (ignore_case),
                      scm_to_bool (ignore_paths),
@@ -55,13 +54,8 @@ IFileSystem_addFileArchive (SCM file_system,
                      retArchiveReference));
 }
 
-
-extern "C" {
-
-  void
-  init_file_system (void)
-  {
-    DEFINE_GSUBR ("IFileSystem_addFileArchive", 7, 0, 0, IFileSystem_addFileArchive);
-  }
-
+void
+init_file_system (void)
+{
+  DEFINE_GSUBR ("IFileSystem_addFileArchive", 7, 0, 0, IFileSystem_addFileArchive);
 }