src/lua/paths.cpp

   1 #include "lua/internal.hpp"
   2 #include "interface/romtype.hpp"
   3 #include "library/running-executable.hpp"
   4 #include "library/string.hpp"
   5 #include "core/misc.hpp"
   6 #include "core/settings.hpp"
   7 #include "core/moviedata.hpp"
   8 #include "core/instance.hpp"
   9 #include "core/project.hpp"
  10
  11 namespace
  12 {
  13         class value_unknown {};
  14
  15         template<std::string(*value)(lua::state& L, lua::parameters& P)>
  16         int lua_push_string_fn(lua::state& L, lua::parameters& P)
  17         {
  18                 try {
  19                         L.pushlstring(value(L, P));
  20                 } catch(value_unknown) {
  21                         L.pushnil();
  22                 }
  23                 return 1;
  24         }
  25
  26         std::string get_executable_file(lua::state& L, lua::parameters& P)
  27         {
  28                 try {
  29                         return running_executable();
  30                 } catch(...) {
  31                         throw value_unknown();
  32                 }
  33         }
  34
  35         std::string get_executable_path(lua::state& L, lua::parameters& P)
  36         {
  37                 auto fname = get_executable_file(L, P);
  38 #if defined(__WIN32__) || defined(__WIN64__)
  39                 const char* pathsep = "/\\";
  40 #else
  41                 const char* pathsep = "/";
  42 #endif
  43                 size_t split = fname.find_last_of(pathsep);
  44                 if(split >= fname.length()) throw value_unknown();
  45                 return fname.substr(0, split);
  46         }
  47
  48         std::string l_get_config_path(lua::state& L, lua::parameters& P)
  49         {
  50                 return get_config_path();
  51         }
  52
  53         std::string get_rompath(lua::state& L, lua::parameters& P)
  54         {
  55                 return SET_rompath(*CORE().settings);
  56         }
  57
  58         std::string get_firmwarepath(lua::state& L, lua::parameters& P)
  59         {
  60                 return SET_firmwarepath(*CORE().settings);
  61         }
  62
  63         std::string get_slotpath(lua::state& L, lua::parameters& P)
  64         {
  65                 auto& core = CORE();
  66                 auto p = core.project->get();
  67                 if(p) {
  68                         return p->directory;
  69                 } else {
  70                         return SET_slotpath(*core.settings);
  71                 }
  72         }
  73
  74         std::string get_save_slot_file(lua::state& L, lua::parameters& P)
  75         {
  76                 uint32_t num;
  77                 std::string name;
  78                 bool for_save;
  79                 int binary_flag;
  80                 std::string ret;
  81
  82                 if(P.is_number()) {
  83                         P(num, for_save);
  84                         name = (stringfmt() << "$SLOT:" << num).str();
  85                 } else if(P.is_string()) {
  86                         P(name);
  87                         for_save = false;
  88                 } else {
  89                         (stringfmt() << "Expected string or number as argument #1 to " << P.get_fname()).throwex();
  90                 }
  91                 ret = translate_name_mprefix(name, binary_flag, for_save ? 1 : -1);
  92                 return ret;
  93         }
  94
  95         lua::functions LUA_paths_fns(lua_func_misc, "paths", {
  96                 {"get_executable_file", lua_push_string_fn<get_executable_file>},
  97                 {"get_executable_path", lua_push_string_fn<get_executable_path>},
  98                 {"get_config_path", lua_push_string_fn<l_get_config_path>},
  99                 {"get_rompath", lua_push_string_fn<get_rompath>},
 100                 {"get_firmwarepath", lua_push_string_fn<get_firmwarepath>},
 101                 {"get_slotpath", lua_push_string_fn<get_slotpath>},
 102                 {"get_save_slot_file", lua_push_string_fn<get_save_slot_file>},
 103         });
 104 }