#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,
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)
{
}
return scm_from_bool
- (((io::IFileSystem*)scm_to_pointer (file_system))->
- addFileArchive (scm_to_utf8_stringn (filename, NULL),
+ (((io::IFileSystem*)scm_to_irr_pointer (file_system))->
+ addFileArchive (scm_to_utf8_string (filename),
scm_to_bool (ignore_case),
scm_to_bool (ignore_paths),
scm_to_file_archive_type (archive_type),
- scm_to_utf8_stringn (password, NULL),
+ scm_to_utf8_string (password),
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);
}