TclCallbackMessages.cc

Go to the documentation of this file.

#include "TclCallbackMessages.hh"
#include "GlobalCliComm.hh"
 
namespace openmsx {
 
TclCallbackMessages::TclCallbackMessages(GlobalCliComm& cliComm_,
                                         CommandController& controller)
        : cliComm(cliComm_)
        , messageCallback(
                controller, "message_callback",
                "Tcl proc called when a new message is available",
                "",
                Setting::Save::YES, // the user must be able to override
                true) // this is a message callback (so the TclCallback must prevent recursion)
{
        cliComm.addListener(std::unique_ptr<CliListener>(this)); // wrap in unique_ptr
}
 
TclCallbackMessages::~TclCallbackMessages()
{
        std::unique_ptr<CliListener> ptr = cliComm.removeListener(*this);
        (void)ptr.release();
}
 
void TclCallbackMessages::log(CliComm::LogLevel level, std::string_view message, float fraction) noexcept
{
        // TODO Possibly remove this?  No longer needed now that ImGui displays messages?
        try {
                if (level == CliComm::LogLevel::PROGRESS && fraction >= 0.0f) {
                        messageCallback.execute(tmpStrCat(message, "... ", int(100.0f * fraction), '%'),
                                                toString(level));
                } else {
                        messageCallback.execute(message, toString(level));
                }
        } catch (TclObject& command) {
                // Command for this message could not be executed yet.
                // Buffer until we can redo them.
                postponedCommands.push_back(command);
        }
}
 
void TclCallbackMessages::update(
        CliComm::UpdateType /*type*/, std::string_view /*machine*/,
        std::string_view /*name*/, std::string_view /*value*/) noexcept
{
        // ignore
}
 
void TclCallbackMessages::redoPostponedCallbacks()
{
        for (auto& command: postponedCommands) {
                messageCallback.executeCommon(command);
        }
        postponedCommands.clear();
}
 
} // namespace openmsx