LedStatus.cc

Go to the documentation of this file.

#include "LedStatus.hh"
#include "MSXCliComm.hh"
#include "ReadOnlySetting.hh"
#include "CommandController.hh"
#include "Timer.hh"
#include "xrange.hh"
#include <memory>
 
namespace openmsx {
 
[[nodiscard]] static std::string getLedName(LedStatus::Led led)
{
        static constexpr const char* const names[LedStatus::NUM_LEDS] = {
                "power", "caps", "kana", "pause", "turbo", "FDD"
        };
        return names[led];
}
 
LedStatus::LedStatus(
                RTScheduler& rtScheduler,
                CommandController& commandController,
                MSXCliComm& msxCliComm_)
        : RTSchedulable(rtScheduler)
        , msxCliComm(msxCliComm_)
        , interp(commandController.getInterpreter())
{
        lastTime = Timer::getTime();
        for (auto i : xrange(int(NUM_LEDS))) {
                ledValue[i] = false;
                std::string name = getLedName(static_cast<Led>(i));
                ledStatus[i] = std::make_unique<ReadOnlySetting>(
                        commandController, tmpStrCat("led_", name),
                        "Current status for LED",
                        TclObject("off"));
        }
}
 
LedStatus::~LedStatus() = default;
 
void LedStatus::setLed(Led led, bool status)
{
        if (ledValue[led] == status) return;
        ledValue[led] = status;
 
        // Some MSX programs generate tons of LED events (e.g. New Era uses
        // the LEDs as a VU meter while playing samples). Without throttling
        // all these events overload the host CPU. That's why we limit it to
        // 100 events per second.
        auto now = Timer::getTime();
        auto diff = now - lastTime;
        if (diff > 10000) { // 1/100 s
                // handle now
                lastTime = now;
                handleEvent(led);
        } else {
                // schedule to handle it later, if we didn't plan to do so already
                if (!isPendingRT()) {
                        scheduleRT(10000 - diff);
                }
        }
}
 
void LedStatus::handleEvent(Led led) noexcept
{
        std::string_view str = ledValue[led] ? "on": "off";
        ledStatus[led]->setReadOnlyValue(TclObject(str));
        msxCliComm.update(CliComm::LED, getLedName(led), str);
}
 
void LedStatus::executeRT()
{
        for (auto i : xrange(int(NUM_LEDS))) {
                if (ledValue[i] != ledStatus[i]->getValue().getBoolean(interp)) {
                        handleEvent(static_cast<Led>(i));
                }
        }
        lastTime = Timer::getTime();
}
 
} // namespace openmsx