api_control.cc

Go to the documentation of this file.

/*
 * This file is part of the Simutrans project under the Artistic License.
 * (see LICENSE.txt)
 */

#include "api.h"

#include "../api_function.h"
#include "../api_class.h"
#include "../script.h"
#include "../../../squirrel/sq_extensions.h"
#include "../../tool/simtool.h"

namespace script_api {

    bool pause_game()
    {
        tool_pause_t t;
        if (!t.is_selected()) {
            t.init(NULL);
        }
        return t.is_selected();
    }

    bool is_game_paused()
    {
        tool_pause_t t;
        return t.is_selected();
    }
};

using namespace script_api;

SQInteger sleep(HSQUIRRELVM vm)
{
    if (const char* blocker = sq_get_suspend_blocker(vm)) {
        return sq_raise_error(vm, "Cannot call sleep from within `%s'.", blocker);
    }
    return sq_suspendvm(vm);
}

SQInteger set_pause_on_error(HSQUIRRELVM vm)
{
    if (script_vm_t *script = (script_vm_t*)sq_getforeignptr(vm)) {
        bool poe = param<bool>::get(vm, 2);
        script->pause_on_error = poe;
    }
    return SQ_OK;
}



void export_control(HSQUIRRELVM vm)
{
    // in global scope

    register_function(vm, sleep, "sleep", 1, ".");

    register_function<int(*)()>(vm, sq_get_ops_total, "get_ops_total");

    register_function<int(*)()>(vm, sq_get_ops_remaing, "get_ops_remaining");


    begin_class(vm, "debug");
    STATIC register_method(vm, &pause_game, "pause", false, true);
    STATIC register_method(vm, &is_game_paused, "is_paused", false, true);

    STATIC register_function<void(*)(bool)>(vm, set_pause_on_error, "set_pause_on_error", true);

    end_class(vm);
}