84 lines
2.4 KiB
C++
84 lines
2.4 KiB
C++
#include <cubescript/cubescript.hh>
|
|
|
|
#include "cs_vm.hh"
|
|
|
|
namespace cscript {
|
|
|
|
LIBCUBESCRIPT_EXPORT char *error::request_buf(
|
|
state &cs, std::size_t bufs, char *&sp
|
|
) {
|
|
charbuf &cb = *static_cast<charbuf *>(cs.p_errbuf);
|
|
codegen_state *gs = cs.p_pstate;
|
|
cb.clear();
|
|
std::size_t sz = 0;
|
|
if (gs) {
|
|
/* we can attach line number */
|
|
sz = gs->src_name.size() + 32;
|
|
for (;;) {
|
|
/* we are using so the buffer tracks the elements and therefore
|
|
* does not wipe them when we attempt to reserve more capacity
|
|
*/
|
|
cb.resize(sz);
|
|
int nsz;
|
|
if (!gs->src_name.empty()) {
|
|
nsz = std::snprintf(
|
|
cb.data(), sz, "%.*s:%zu: ",
|
|
int(gs->src_name.size()), gs->src_name.data(),
|
|
gs->current_line
|
|
);
|
|
} else {
|
|
nsz = std::snprintf(cb.data(), sz, "%zu: ", gs->current_line);
|
|
}
|
|
if (nsz <= 0) {
|
|
throw internal_error{"format error"};
|
|
} else if (std::size_t(nsz) < sz) {
|
|
sz = std::size_t(nsz);
|
|
break;
|
|
}
|
|
sz = std::size_t(nsz + 1);
|
|
}
|
|
}
|
|
cb.resize(sz + bufs + 1);
|
|
sp = cb.data();
|
|
return &cb[sz];
|
|
}
|
|
|
|
LIBCUBESCRIPT_EXPORT stack_state error::save_stack(state &cs) {
|
|
integer_var *dalias = static_cast<integer_var *>(cs.p_state->identmap[DbgaliasIdx]);
|
|
if (!dalias->get_value()) {
|
|
return stack_state(cs, nullptr, !!cs.p_callstack);
|
|
}
|
|
int total = 0, depth = 0;
|
|
for (ident_link *l = cs.p_callstack; l; l = l->next) {
|
|
total++;
|
|
}
|
|
if (!total) {
|
|
return stack_state(cs, nullptr, false);
|
|
}
|
|
stack_state_node *st = cs.p_state->create_array<stack_state_node>(
|
|
std::min(total, dalias->get_value())
|
|
);
|
|
stack_state_node *ret = st, *nd = st;
|
|
++st;
|
|
for (ident_link *l = cs.p_callstack; l; l = l->next) {
|
|
++depth;
|
|
if (depth < dalias->get_value()) {
|
|
nd->id = l->id;
|
|
nd->index = total - depth + 1;
|
|
if (!l->next) {
|
|
nd->next = nullptr;
|
|
} else {
|
|
nd->next = st;
|
|
}
|
|
nd = st++;
|
|
} else if (!l->next) {
|
|
nd->id = l->id;
|
|
nd->index = 1;
|
|
nd->next = nullptr;
|
|
}
|
|
}
|
|
return stack_state(cs, ret, total > dalias->get_value());
|
|
}
|
|
|
|
} /* namespace cscript */
|