SettingsManager.cc

Go to the documentation of this file.

#include "SettingsManager.hh"
#include "GlobalCommandController.hh"
#include "TclObject.hh"
#include "CommandException.hh"
#include "XMLElement.hh"
#include "outer.hh"
#include "StringOp.hh"
#include "view.hh"
#include "vla.hh"
#include <cassert>
#include <cstring>
 
using std::string;
using std::string_view;
using std::vector;
 
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(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(strCat("::", name)); it != end(settings)) {
                        return *it;
                }
        }
        return nullptr;
}
 
BaseSetting* SettingsManager::findSetting(string_view prefix, 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(string_view(fullname, size));
}
 
// Helper functions for setting commands
 
BaseSetting& SettingsManager::getByName(string_view cmd, string_view name) const
{
        if (auto* setting = findSetting(name)) {
                return *setting;
        }
        throw CommandException(cmd, ": ", name, ": no such setting");
}
 
vector<string> SettingsManager::getTabSettingNames() const
{
        vector<string> result;
        result.reserve(settings.size() * 2);
        for (auto* s : settings) {
                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 XMLElement& config)
{
        // restore default values
        for (auto* s : settings) {
                if (s->needLoadSave()) {
                        s->setValue(s->getRestoreValue());
                }
        }
 
        // load new values
        auto* settingsElem = config.findChild("settings");
        if (!settingsElem) return;
        for (auto* s : settings) {
                if (!s->needLoadSave()) continue;
                if (auto* elem = settingsElem->findChildWithAttribute(
                                "setting", "id", s->getFullName())) {
                        try {
                                s->setValue(TclObject(elem->getData()));
                        } 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);
                }
                setting->info(result);
                break;
        }
        default:
                throw CommandException("Too many parameters.");
        }
}
 
string SettingsManager::SettingInfo::help(const vector<string>& /*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(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(const vector<string>& tokens) const
{
        if (tokens.size() == 2) {
                auto& manager = OUTER(SettingsManager, setCompleter);
                return string(manager.getByName("set", tokens[1]).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(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(const vector<string>& /*tokens*/) const
{
        return {}; // TODO
}
 
void SettingsManager::SettingCompleter::tabCompletion(vector<string>& tokens) const
{
        if (tokens.size() == 2) {
                // complete setting name
                completeString(tokens, manager.getTabSettingNames());
        }
}
 
} // namespace openmsx