420 lines
10 KiB
C++
420 lines
10 KiB
C++
#include "cs_ident.hh"
|
|
|
|
#include "cs_bcode.hh"
|
|
#include "cs_vm.hh"
|
|
|
|
namespace cubescript {
|
|
|
|
ident_impl::ident_impl(ident_type tp, string_ref nm, int fl):
|
|
p_name{nm}, p_type{int(tp)}, p_flags{fl}
|
|
{}
|
|
|
|
var_impl::var_impl(
|
|
ident_type tp, string_ref name, var_cb_func f, int fl
|
|
):
|
|
ident_impl{tp, name, fl}, cb_var{std::move(f)}
|
|
{}
|
|
|
|
void var_impl::changed(state &cs) {
|
|
if (cb_var) {
|
|
switch (p_type) {
|
|
case ID_IVAR:
|
|
cb_var(cs, *static_cast<ivar_impl *>(this));
|
|
break;
|
|
case ID_FVAR:
|
|
cb_var(cs, *static_cast<fvar_impl *>(this));
|
|
break;
|
|
case ID_SVAR:
|
|
cb_var(cs, *static_cast<svar_impl *>(this));
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
ivar_impl::ivar_impl(
|
|
string_ref name, integer_type m, integer_type x, integer_type v, var_cb_func f, int fl
|
|
):
|
|
var_impl{
|
|
ident_type::IVAR, name, std::move(f),
|
|
fl | ((m > x) ? IDENT_FLAG_READONLY : 0)
|
|
},
|
|
p_storage{v}, p_minval{m}, p_maxval{x}, p_overrideval{0}
|
|
{}
|
|
|
|
fvar_impl::fvar_impl(
|
|
string_ref name, float_type m, float_type x, float_type v, var_cb_func f, int fl
|
|
):
|
|
var_impl{
|
|
ident_type::FVAR, name, std::move(f),
|
|
fl | ((m > x) ? IDENT_FLAG_READONLY : 0)
|
|
},
|
|
p_storage{v}, p_minval{m}, p_maxval{x}, p_overrideval{0}
|
|
{}
|
|
|
|
svar_impl::svar_impl(
|
|
string_ref name, string_ref v, string_ref ov, var_cb_func f, int fl
|
|
):
|
|
var_impl{ident_type::SVAR, name, std::move(f), fl},
|
|
p_storage{v}, p_overrideval{ov}
|
|
{}
|
|
|
|
alias_impl::alias_impl(
|
|
state &cs, string_ref name, string_ref a, int fl
|
|
):
|
|
ident_impl{ident_type::ALIAS, name, fl},
|
|
p_acode{nullptr}, p_astack{nullptr}, p_val{cs}
|
|
{
|
|
p_val.set_str(a);
|
|
}
|
|
|
|
alias_impl::alias_impl(
|
|
state &cs, string_ref name, std::string_view a, int fl
|
|
):
|
|
ident_impl{ident_type::ALIAS, name, fl},
|
|
p_acode{nullptr}, p_astack{nullptr}, p_val{cs}
|
|
{
|
|
p_val.set_str(a);
|
|
}
|
|
|
|
alias_impl::alias_impl(state &cs, string_ref name, integer_type a, int fl):
|
|
ident_impl{ident_type::ALIAS, name, fl},
|
|
p_acode{nullptr}, p_astack{nullptr}, p_val{cs}
|
|
{
|
|
p_val.set_int(a);
|
|
}
|
|
|
|
alias_impl::alias_impl(state &cs, string_ref name, float_type a, int fl):
|
|
ident_impl{ident_type::ALIAS, name, fl},
|
|
p_acode{nullptr}, p_astack{nullptr}, p_val{cs}
|
|
{
|
|
p_val.set_float(a);
|
|
}
|
|
|
|
alias_impl::alias_impl(state &cs, string_ref name, int fl):
|
|
ident_impl{ident_type::ALIAS, name, fl},
|
|
p_acode{nullptr}, p_astack{nullptr}, p_val{cs}
|
|
{
|
|
p_val.set_none();
|
|
}
|
|
|
|
alias_impl::alias_impl(state &cs, string_ref name, any_value v, int fl):
|
|
ident_impl{ident_type::ALIAS, name, fl},
|
|
p_acode{nullptr}, p_astack{nullptr}, p_val{cs}
|
|
{
|
|
p_val = v;
|
|
}
|
|
|
|
void alias_impl::push_arg(any_value &v, ident_stack &st, bool um) {
|
|
if (p_astack == &st) {
|
|
/* prevent cycles and unnecessary code elsewhere */
|
|
p_val = std::move(v);
|
|
clean_code();
|
|
return;
|
|
}
|
|
st.val_s = std::move(p_val);
|
|
st.next = p_astack;
|
|
p_astack = &st;
|
|
p_val = std::move(v);
|
|
clean_code();
|
|
if (um) {
|
|
p_flags &= ~IDENT_FLAG_UNKNOWN;
|
|
}
|
|
}
|
|
|
|
void alias_impl::pop_arg() {
|
|
if (!p_astack) {
|
|
return;
|
|
}
|
|
ident_stack *st = p_astack;
|
|
p_val = std::move(p_astack->val_s);
|
|
clean_code();
|
|
p_astack = st->next;
|
|
}
|
|
|
|
void alias_impl::undo_arg(ident_stack &st) {
|
|
ident_stack *prev = p_astack;
|
|
st.val_s = std::move(p_val);
|
|
st.next = prev;
|
|
p_astack = prev->next;
|
|
p_val = std::move(prev->val_s);
|
|
clean_code();
|
|
}
|
|
|
|
void alias_impl::redo_arg(ident_stack &st) {
|
|
ident_stack *prev = st.next;
|
|
prev->val_s = std::move(p_val);
|
|
p_astack = prev;
|
|
p_val = std::move(st.val_s);
|
|
clean_code();
|
|
}
|
|
|
|
void alias_impl::set_arg(state &cs, any_value &v) {
|
|
if (ident_is_used_arg(this, cs)) {
|
|
p_val = std::move(v);
|
|
clean_code();
|
|
} else {
|
|
push_arg(v, cs.p_callstack->argstack[get_index()], false);
|
|
cs.p_callstack->usedargs |= 1 << get_index();
|
|
}
|
|
}
|
|
|
|
void alias_impl::set_alias(state &cs, any_value &v) {
|
|
p_val = std::move(v);
|
|
clean_code();
|
|
p_flags = (p_flags & cs.identflags) | cs.identflags;
|
|
}
|
|
|
|
void alias_impl::clean_code() {
|
|
if (p_acode) {
|
|
bcode_decr(p_acode->get_raw());
|
|
p_acode = nullptr;
|
|
}
|
|
}
|
|
|
|
bcode *alias_impl::compile_code(state &cs) {
|
|
if (!p_acode) {
|
|
codegen_state gs(cs);
|
|
gs.code.reserve(64);
|
|
gs.gen_main(get_value().get_str());
|
|
/* i wish i could steal the memory somehow */
|
|
uint32_t *code = bcode_alloc(cs, gs.code.size());
|
|
memcpy(code, gs.code.data(), gs.code.size() * sizeof(uint32_t));
|
|
bcode_incr(code);
|
|
p_acode = reinterpret_cast<bcode *>(code);
|
|
}
|
|
return p_acode;
|
|
}
|
|
|
|
command_impl::command_impl(
|
|
string_ref name, string_ref args, int nargs, command_func f
|
|
):
|
|
ident_impl{ident_type::COMMAND, name, 0},
|
|
p_cargs{args}, p_cb_cftv{std::move(f)}, p_numargs{nargs}
|
|
{}
|
|
|
|
bool ident_is_used_arg(ident *id, state &cs) {
|
|
if (!cs.p_callstack) {
|
|
return true;
|
|
}
|
|
return cs.p_callstack->usedargs & (1 << id->get_index());
|
|
}
|
|
|
|
/* public interface */
|
|
|
|
LIBCUBESCRIPT_EXPORT int ident::get_raw_type() const {
|
|
return p_impl->p_type;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT ident_type ident::get_type() const {
|
|
if (p_impl->p_type > ID_ALIAS) {
|
|
return ident_type::SPECIAL;
|
|
}
|
|
return ident_type(p_impl->p_type);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT std::string_view ident::get_name() const {
|
|
return p_impl->p_name;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT int ident::get_flags() const {
|
|
return p_impl->p_flags;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT int ident::get_index() const {
|
|
return p_impl->p_index;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT bool ident::is_alias() const {
|
|
return get_type() == ident_type::ALIAS;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT alias *ident::get_alias() {
|
|
if (!is_alias()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<alias *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT alias const *ident::get_alias() const {
|
|
if (!is_alias()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<alias const *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT bool ident::is_command() const {
|
|
return get_type() == ident_type::COMMAND;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT command *ident::get_command() {
|
|
if (!is_command()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<command_impl *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT command const *ident::get_command() const {
|
|
if (!is_command()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<command_impl const *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT bool ident::is_special() const {
|
|
return get_type() == ident_type::SPECIAL;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT bool ident::is_var() const {
|
|
switch (get_type()) {
|
|
case ident_type::IVAR:
|
|
case ident_type::FVAR:
|
|
case ident_type::SVAR:
|
|
return true;
|
|
default:
|
|
break;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT global_var *ident::get_var() {
|
|
if (!is_var()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<global_var *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT global_var const *ident::get_var() const {
|
|
if (!is_var()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<global_var const *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT bool ident::is_ivar() const {
|
|
return get_type() == ident_type::IVAR;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT integer_var *ident::get_ivar() {
|
|
if (!is_ivar()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<integer_var *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT integer_var const *ident::get_ivar() const {
|
|
if (!is_ivar()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<integer_var const *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT bool ident::is_fvar() const {
|
|
return get_type() == ident_type::FVAR;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT float_var *ident::get_fvar() {
|
|
if (!is_fvar()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<float_var *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT float_var const *ident::get_fvar() const {
|
|
if (!is_fvar()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<float_var const *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT bool ident::is_svar() const {
|
|
return get_type() == ident_type::SVAR;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT string_var *ident::get_svar() {
|
|
if (!is_svar()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<string_var *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT string_var const *ident::get_svar() const {
|
|
if (!is_svar()) {
|
|
return nullptr;
|
|
}
|
|
return static_cast<string_var const *>(this);
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT integer_type integer_var::get_val_min() const {
|
|
return static_cast<ivar_impl const *>(this)->p_minval;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT integer_type integer_var::get_val_max() const {
|
|
return static_cast<ivar_impl const *>(this)->p_maxval;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT integer_type integer_var::get_value() const {
|
|
return static_cast<ivar_impl const *>(this)->p_storage;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT void integer_var::set_value(integer_type val) {
|
|
static_cast<ivar_impl *>(this)->p_storage = val;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT float_type float_var::get_val_min() const {
|
|
return static_cast<fvar_impl const *>(this)->p_minval;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT float_type float_var::get_val_max() const {
|
|
return static_cast<fvar_impl const *>(this)->p_maxval;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT float_type float_var::get_value() const {
|
|
return static_cast<fvar_impl const *>(this)->p_storage;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT void float_var::set_value(float_type val) {
|
|
static_cast<fvar_impl *>(this)->p_storage = val;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT string_ref string_var::get_value() const {
|
|
return static_cast<svar_impl const *>(this)->p_storage;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT void string_var::set_value(string_ref val) {
|
|
static_cast<svar_impl *>(this)->p_storage = val;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT any_value alias::get_value() const {
|
|
return static_cast<alias_impl const *>(this)->p_val;
|
|
}
|
|
|
|
void alias::get_cval(any_value &v) const {
|
|
auto *imp = static_cast<alias_impl const *>(this);
|
|
switch (imp->p_val.get_type()) {
|
|
case value_type::STRING:
|
|
v = imp->p_val;
|
|
break;
|
|
case value_type::INT:
|
|
v.set_int(imp->p_val.get_int());
|
|
break;
|
|
case value_type::FLOAT:
|
|
v.set_float(imp->p_val.get_float());
|
|
break;
|
|
default:
|
|
v.set_none();
|
|
break;
|
|
}
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT std::string_view command::get_args() const {
|
|
return static_cast<command_impl const *>(this)->p_cargs;
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT int command::get_num_args() const {
|
|
return static_cast<command_impl const *>(this)->p_numargs;
|
|
}
|
|
|
|
} /* namespace cubescript */
|