src/mods.cpp

   1 #include <dirent.h>
   2 #include <iostream>
   3 #include <libguile.h>
   4 #include "mods.h"
   5 #include "paths.h"
   6
   7 SCM register_generator(SCM name, SCM proc)
   8 {
   9   printf ("Register: %s\n", scm_to_locale_string(name));
  10   scm_call_1(proc, scm_from_int(-1));
  11   return SCM_UNSPECIFIED;
  12 }
  13
  14 void init_dungeon_master_module(void *unused)
  15 {
  16   scm_c_define_gsubr("register-generator", 2, 0, 0, (scm_t_subr)register_generator);
  17   scm_c_export("register-generator", NULL);
  18 }
  19
  20 void scm_init_dungeon_master_module()
  21 {
  22   scm_c_define_module("dungeon-master", init_dungeon_master_module, NULL);
  23 }
  24
  25 void load_mods()
  26 {
  27   scm_init_guile();
  28   scm_init_dungeon_master_module();
  29
  30   std::set<std::string> paths = get_dm_paths();
  31   DIR* mods_dir;
  32   struct dirent* mod;
  33   std::string
  34     mods_path,
  35     mod_main;
  36
  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()));
  45         }
  46       }
  47     }
  48     closedir(mods_dir);
  49   }
  50 }