SettingsManager.cc

Go to the documentation of this file.

#include "SettingsManager.hh"
#include "SettingsConfig.hh"
#include "GlobalCommandController.hh"
#include "MSXException.hh"
#include "TclObject.hh"
#include "CommandException.hh"
#include "outer.hh"
#include "StringOp.hh"
#include "view.hh"
#include "vla.hh"
#include <cassert>
#include <cstring>
 
using std::string;
 
namespace openmsx {
 
// SettingsManager implementation:
 
SettingsManager::SettingsManager(GlobalCommandController& commandController)
        : settingInfo   (commandController.getOpenMSXInfoCommand())
        , setCompleter  (commandController)
        , incrCompleter (commandController, *this, "incr")
        , unsetCompleter(commandController, *this, "unset")
{
}
 
SettingsManager::~SettingsManager()
{
        assert(settings.empty());
}
 
void SettingsManager::registerSetting(BaseSetting& setting)
{
        assert(!settings.contains(setting.getFullNameObj()));
        settings.emplace_noDuplicateCheck(&setting);
}
 
void SettingsManager::unregisterSetting(BaseSetting& setting)
{
        const auto& name = setting.getFullNameObj();
        assert(settings.contains(name));
        settings.erase(name);
}
 
BaseSetting* SettingsManager::findSetting(std::string_view name) const
{
        if (auto it = settings.find(name); it != end(settings)) {
                return *it;
        }
        if (StringOp::startsWith(name, "::")) {
                // try without leading ::
                if (auto it = settings.find(name.substr(2)); it != end(settings)) {
                        return *it;
                }
        } else {
                // try adding ::
                if (auto it = settings.find(tmpStrCat("::", name)); it != end(settings)) {
                        return *it;
                }
        }
        return nullptr;
}
 
BaseSetting* SettingsManager::findSetting(std::string_view prefix, std::string_view baseName) const
{
        auto size = prefix.size() + baseName.size();
        VLA(char, fullname, size);
        memcpy(&fullname[0],             prefix  .data(), prefix  .size());
        memcpy(&fullname[prefix.size()], baseName.data(), baseName.size());
        return findSetting(std::string_view(fullname, size));
}
 
// Helper functions for setting commands
 
BaseSetting& SettingsManager::getByName(std::string_view cmd, std::string_view name) const
{
        if (auto* setting = findSetting(name)) {
                return *setting;
        }
        throw CommandException(cmd, ": ", name, ": no such setting");
}
 
std::vector<string> SettingsManager::getTabSettingNames() const
{
        std::vector<string> result;
        result.reserve(settings.size() * 2);
        for (auto* s : settings) {
                std::string_view name = s->getFullName();
                result.emplace_back(name);
                if (StringOp::startsWith(name, "::")) {
                        result.emplace_back(name.substr(2));
                } else {
                        result.push_back(strCat("::", name));
                }
        }
        return result;
}
 
void SettingsManager::loadSettings(const SettingsConfig& config)
{
        // restore default values or load new values
        for (auto* s : settings) {
                if (!s->needLoadSave()) continue;
 
                s->setValue(s->getRestoreValue());
 
                if (auto* savedValue = config.getValueForSetting(s->getFullName())) {
                        try {
                                s->setValue(TclObject(*savedValue));
                        } catch (MSXException&) {
                                // ignore, keep default value
                        }
                }
        }
}
 
 
// class SettingInfo
 
SettingsManager::SettingInfo::SettingInfo(InfoCommand& openMSXInfoCommand)
        : InfoTopic(openMSXInfoCommand, "setting")
{
}
 
void SettingsManager::SettingInfo::execute(
        span<const TclObject> tokens, TclObject& result) const
{
        auto& manager = OUTER(SettingsManager, settingInfo);
        switch (tokens.size()) {
        case 2:
                result.addListElements(view::transform(
                        manager.settings,
                        [](auto* p) { return p->getFullNameObj(); }));
                break;
        case 3: {
                const auto& settingName = tokens[2].getString();
                auto* setting = manager.findSetting(settingName);
                if (!setting) {
                        throw CommandException("No such setting: ", settingName);
                }
                try {
                        setting->info(result);
                } catch (MSXException& e) {
                        throw CommandException(e.getMessage());
 
                }
                break;
        }
        default:
                throw CommandException("Too many parameters.");
        }
}
 
string SettingsManager::SettingInfo::help(span<const TclObject> /*tokens*/) const
{
        return "openmsx_info setting        : "
                     "returns list of all settings\n"
               "openmsx_info setting <name> : "
                     "returns info on a specific setting\n";
}
 
void SettingsManager::SettingInfo::tabCompletion(std::vector<string>& tokens) const
{
        if (tokens.size() == 3) {
                // complete setting name
                auto& manager = OUTER(SettingsManager, settingInfo);
                completeString(tokens, manager.getTabSettingNames());
        }
}
 
 
// class SetCompleter
 
SettingsManager::SetCompleter::SetCompleter(
                CommandController& commandController_)
        : CommandCompleter(commandController_, "set")
{
}
 
string SettingsManager::SetCompleter::help(span<const TclObject> tokens) const
{
        if (tokens.size() == 2) {
                auto& manager = OUTER(SettingsManager, setCompleter);
                return string(manager.getByName("set", tokens[1].getString()).getDescription());
        }
        return "Set or query the value of a openMSX setting or Tcl variable\n"
               "  set <setting>          shows current value\n"
               "  set <setting> <value>  set a new value\n"
               "Use 'help set <setting>' to get more info on a specific\n"
               "openMSX setting.\n";
}
 
void SettingsManager::SetCompleter::tabCompletion(std::vector<string>& tokens) const
{
        auto& manager = OUTER(SettingsManager, setCompleter);
        switch (tokens.size()) {
        case 2: {
                // complete setting name
                completeString(tokens, manager.getTabSettingNames(), false); // case insensitive
                break;
        }
        case 3:
                // complete setting value
                if (auto* setting = manager.findSetting(tokens[1])) {
                        setting->tabCompletion(tokens);
                }
                break;
        }
}
 
 
// class SettingCompleter
 
SettingsManager::SettingCompleter::SettingCompleter(
                CommandController& commandController_, SettingsManager& manager_,
                const string& name_)
        : CommandCompleter(commandController_, name_)
        , manager(manager_)
{
}
 
string SettingsManager::SettingCompleter::help(span<const TclObject> /*tokens*/) const
{
        return {}; // TODO
}
 
void SettingsManager::SettingCompleter::tabCompletion(std::vector<string>& tokens) const
{
        if (tokens.size() == 2) {
                // complete setting name
                completeString(tokens, manager.getTabSettingNames());
        }
}
 
} // namespace openmsx