TestbedPipelineInstance.cc

#include <vtestbed/gui/TestbedGUI.hh>
#include <vtestbed/gui/TestbedPipelineInstance.hh>
#include <vtestbed/guile/macros.hh>
#include <vtestbed/guile/traits.hh>

vtb::gui::vpipeline_type vtb::gui::vpipeline;

namespace vtb {

    namespace guile {

        SCM get_testbed() {
            using namespace vtb::gui;
            if (vpipeline.started()) { throw std::runtime_error("pipeline is running"); }
            return Traits<std::any>::make(vpipeline.testbed());
        }

        SCM set_testbed(SCM other) {
            using namespace vtb::gui;
            if (vpipeline.started()) { throw std::runtime_error("pipeline is running"); }
            vpipeline.testbed(std::move(*get_object<testbed_type>(other)));
            return SCM_UNSPECIFIED;
        }

        SCM testbed_gui_start_recording() {
            using namespace vtb::gui;
            vpipeline.testbed_gui()->recording(true);
            return SCM_UNSPECIFIED;
        }

        SCM testbed_gui_stop_recording() {
            using namespace vtb::gui;
            vpipeline.testbed_gui()->recording(false);
            return SCM_UNSPECIFIED;
        }

        SCM testbed_gui_start() {
            using namespace vtb::gui;
            vpipeline.testbed_gui()->start();
            return SCM_UNSPECIFIED;
        }

        SCM testbed_gui_pause() {
            using namespace vtb::gui;
            vpipeline.testbed_gui()->pause();
            return SCM_UNSPECIFIED;
        }

        SCM testbed_gui_stop() {
            using namespace vtb::gui;
            vpipeline.testbed_gui()->stop();
            return SCM_UNSPECIFIED;
        }

    }

}

void vtb::gui::testbed_pipeline_define() {
    using namespace vtb::guile;
    define_procedure("get-testbed", 0, 0, 0, VTB_GUILE_0(get_testbed));
    define_procedure("set-testbed!", 1, 0, 0, VTB_GUILE_1(set_testbed));
    define_procedure("testbed-gui-start-recording!", 0, 0, 0,
                     VTB_GUILE_0(testbed_gui_start_recording));
    define_procedure("testbed-gui-stop-recording!", 0, 0, 0,
                     VTB_GUILE_0(testbed_gui_stop_recording));
    define_procedure("testbed-gui-start!", 0, 0, 0, VTB_GUILE_0(testbed_gui_start));
    define_procedure("testbed-gui-pause!", 0, 0, 0, VTB_GUILE_0(testbed_gui_pause));
    define_procedure("testbed-gui-stop!", 0, 0, 0, VTB_GUILE_0(testbed_gui_stop));
}