7 SCM register_generator(SCM name, SCM proc)
9 printf ("Register: %s\n", scm_to_locale_string(name));
10 scm_call_1(proc, scm_from_int(-1));
11 return SCM_UNSPECIFIED;
14 void init_dungeon_master_module(void *unused)
16 scm_c_define_gsubr("register-generator", 2, 0, 0, (scm_t_subr)register_generator);
17 scm_c_export("register-generator", NULL);
20 void scm_init_dungeon_master_module()
22 scm_c_define_module("dungeon-master", init_dungeon_master_module, NULL);
28 scm_init_dungeon_master_module();
30 std::set<std::string> paths = get_dm_paths();
37 for (const std::string &path : paths) {
38 mods_path = path + DIR_DELIM + "mods";
39 mods_dir = opendir(mods_path.c_str());
40 if (mods_dir != NULL) {
41 while (mod = readdir(mods_dir)) {
42 if (strcmp(mod->d_name, ".") != 0 && strcmp(mod->d_name, "..") != 0) {
43 mod_main = mods_path + DIR_DELIM + mod->d_name + DIR_DELIM + "main.scm";
44 scm_primitive_load(scm_from_locale_string(mod_main.c_str()));