mkxp-z/binding-sandbox/binding-util.cpp

/*
** binding-util.cpp
**
** This file is part of mkxp.
**
** Copyright (C) 2013 - 2021 Amaryllis Kulla <ancurio@mapleshrine.eu>
**
** mkxp is free software: you can redistribute it and/or modify
** it under the terms of the GNU General Public License as published by
** the Free Software Foundation, either version 2 of the License, or
** (at your option) any later version.
**
** mkxp is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
** GNU General Public License for more details.
**
** You should have received a copy of the GNU General Public License
** along with mkxp.  If not, see <http://www.gnu.org/licenses/>.
*/

#include "binding-util.h"
#include "core.h"
#include "sharedstate.h"

using namespace mkxp_sandbox;

void mkxp_sandbox::dfree(wasm_objkey_t key) {
    sb()->destroy_object(key);
}

wasm_size_t get_length::operator()(VALUE obj) {
    BOOST_ASIO_CORO_REENTER (this) {
        SANDBOX_AWAIT_S(0, rb_intern, "length");
        SANDBOX_AWAIT_S(1, rb_funcall, obj, SANDBOX_SLOT(0), 0);
        SANDBOX_AWAIT_S(2, rb_num2ulong, SANDBOX_SLOT(1));
    }

    return SANDBOX_SLOT(2);
}

wasm_size_t get_bytesize::operator()(VALUE obj) {
    BOOST_ASIO_CORO_REENTER (this) {
        SANDBOX_AWAIT_S(0, rb_intern, "bytesize");
        SANDBOX_AWAIT_S(1, rb_funcall, obj, SANDBOX_SLOT(0), 0);
        SANDBOX_AWAIT_S(2, rb_num2ulong, SANDBOX_SLOT(1));
    }

    return SANDBOX_SLOT(2);
}

void log_backtrace::operator()(VALUE exception) {
    BOOST_ASIO_CORO_REENTER (this) {
        SANDBOX_AWAIT(rb_p, exception);
        SANDBOX_AWAIT_S(0, rb_intern, "backtrace");
        SANDBOX_AWAIT_S(1, rb_funcall, exception, SANDBOX_SLOT(0), 0);
        SANDBOX_AWAIT_S(0, rb_intern, "join");
        SANDBOX_AWAIT_S(2, rb_str_new_cstr, "\n\t");
        SANDBOX_AWAIT_S(1, rb_funcall, SANDBOX_SLOT(1), SANDBOX_SLOT(0), 1, SANDBOX_SLOT(2));
        SANDBOX_AWAIT_S(3, rb_string_value_cstr, &SANDBOX_SLOT(1));
        mkxp_retro::log_printf(RETRO_LOG_ERROR, "%s\n", (const char *)sb()->str(SANDBOX_SLOT(3)));
    }
}

VALUE mkxp_sandbox::mkxp_error_class;
VALUE mkxp_sandbox::physfs_error_class;
VALUE mkxp_sandbox::sdl_error_class;
VALUE mkxp_sandbox::rgss_error_class;
VALUE mkxp_sandbox::reset_class;
VALUE mkxp_sandbox::enoent_class;

void exception_binding_init::operator()() {
    BOOST_ASIO_CORO_REENTER (this) {
        SANDBOX_AWAIT_R(mkxp_error_class, rb_define_class, "MKXPError", sb()->rb_eException());
        SANDBOX_AWAIT_R(physfs_error_class, rb_define_class, "PHYSFSError", sb()->rb_eException());
        SANDBOX_AWAIT_R(sdl_error_class, rb_define_class, "SDLError", sb()->rb_eException());
        SANDBOX_AWAIT_R(rgss_error_class, rb_define_class, "RGSSError", sb()->rb_eStandardError());
        SANDBOX_AWAIT_R(reset_class, rb_define_class, rgssVer >= 3 ? "RGSSReset" : "Reset", sb()->rb_eStandardError());
        SANDBOX_AWAIT_S(0, rb_intern, "Errno");
        SANDBOX_AWAIT_R(enoent_class, rb_const_get, sb()->rb_cObject(), SANDBOX_SLOT(0));
        SANDBOX_AWAIT_S(0, rb_intern, "ENOENT");
        SANDBOX_AWAIT_R(enoent_class, rb_const_get, enoent_class, SANDBOX_SLOT(0));
    }
}

void exception_raise::operator()(const Exception &exception) {
    BOOST_ASIO_CORO_REENTER (this) {
        if (exception.type == Exception::Ok) {
            return;
        }

        SANDBOX_AWAIT_S(0, rb_str_new_cstr, exception.msg.c_str());

        if (exception.type == Exception::RGSSError) {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), rgss_error_class);
        } else if (exception.type == Exception::Reset) {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), reset_class);
        } else if (exception.type == Exception::NoFileError) {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), enoent_class);
        } else if (exception.type == Exception::IOError) {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), sb()->rb_eIOError());
        } else if (exception.type == Exception::TypeError) {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), sb()->rb_eTypeError());
        } else if (exception.type == Exception::ArgumentError) {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), sb()->rb_eArgError());
        } else if (exception.type == Exception::SystemExit) {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), sb()->rb_eSystemExit());
        } else if (exception.type == Exception::RuntimeError) {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), sb()->rb_eRuntimeError());
        } else if (exception.type == Exception::PHYSFSError) {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), physfs_error_class);
        } else if (exception.type == Exception::SDLError) {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), sdl_error_class);
        } else {
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), mkxp_error_class);
        }

        SANDBOX_AWAIT(rb_exc_raise, SANDBOX_SLOT(0));
    }
}

void check_arity::operator()(int32_t argc, int32_t min_argc, int32_t max_argc) {
    BOOST_ASIO_CORO_REENTER (this) {
        if (argc < min_argc || (max_argc != -1 && argc > max_argc)) {
            SANDBOX_AWAIT(rb_error_arity, argc, min_argc, max_argc);
        }
    }
}

void check_type::operator()(VALUE obj, VALUE klass) {
    BOOST_ASIO_CORO_REENTER (this) {
        SANDBOX_AWAIT_S(0, rb_obj_is_kind_of, obj, klass);
        if (!SANDBOX_VALUE_TO_BOOL(SANDBOX_SLOT(0))) {
            SANDBOX_AWAIT_S(0, rb_str_new_cstr, "no implicit conversion of ");
            SANDBOX_AWAIT_S(1, rb_obj_class, obj);
            SANDBOX_AWAIT_S(1, rb_class_name, SANDBOX_SLOT(1));
            SANDBOX_AWAIT(rb_str_append, SANDBOX_SLOT(0), SANDBOX_SLOT(1));
            SANDBOX_AWAIT(rb_str_cat_cstr, SANDBOX_SLOT(0), " into ");
            SANDBOX_AWAIT_S(1, rb_class_name, klass);
            SANDBOX_AWAIT(rb_str_append, SANDBOX_SLOT(0), SANDBOX_SLOT(1));
            SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), sb()->rb_eTypeError());
            SANDBOX_AWAIT(rb_exc_raise, SANDBOX_SLOT(0));
        }
    }
}

void raise_disposed_access::operator()(VALUE obj) {
    BOOST_ASIO_CORO_REENTER (this) {
        SANDBOX_AWAIT_S(1, rb_obj_class, obj);
        SANDBOX_AWAIT_S(1, rb_class_name, SANDBOX_SLOT(1));
        SANDBOX_AWAIT_S(2, rb_intern, "downcase!");
        SANDBOX_AWAIT(rb_funcall, SANDBOX_SLOT(1), SANDBOX_SLOT(2), 0);
        SANDBOX_AWAIT_S(0, rb_str_new_cstr, "disposed ");
        SANDBOX_AWAIT(rb_str_append, SANDBOX_SLOT(0), SANDBOX_SLOT(1));
        SANDBOX_AWAIT_S(0, rb_class_new_instance, 1, &SANDBOX_SLOT(0), rgss_error_class);
        SANDBOX_AWAIT(rb_exc_raise, SANDBOX_SLOT(0));
    }
}