X-Git-Url: https://git.jsancho.org/?p=dungeon-master.git;a=blobdiff_plain;f=src%2Fmain.cpp;h=3b1787ebd14ce10c950f6e537df70d7d5a1b7c6d;hp=6c2e2a756dc856903df78a4bf80b0e0e3cb6decc;hb=d5019db1298fc13fe68ec4d4f48b583a0148b88c;hpb=b201086ac53a63e010f23a7ec9128013fe3ac385

diff --git a/src/main.cpp b/src/main.cpp
index 6c2e2a7..3b1787e 100644
--- a/src/main.cpp
+++ b/src/main.cpp
@@ -5,9 +5,28 @@ using namespace irr;
 using namespace core;
 using namespace video;
 
+SCM register_generator(SCM name, SCM proc)
+{
+  printf ("Register: %s\n", scm_to_locale_string(name));
+  scm_call_1(proc, scm_from_int(-1));
+  return SCM_UNSPECIFIED;
+}
+
+void init_dungeon_master_module(void *unused)
+{
+  scm_c_define_gsubr("register-generator", 2, 0, 0, (scm_t_subr)register_generator);
+  scm_c_export("register-generator", NULL);
+}
+
+void scm_init_dungeon_master_module()
+{
+  scm_c_define_module("dungeon-master", init_dungeon_master_module, NULL);
+}
+
 int main()
 {
   scm_init_guile();
+  scm_init_dungeon_master_module();
   scm_primitive_load(scm_from_locale_string("plugins/default/main.scm"));
 
   IrrlichtDevice* device =