roland/xo-alloc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xo-reader: refactor: move on_colon() for def-expr to define_xs.cpp

Browse source
This commit is contained in:
Roland Conybeare 2024-08-08 13:32:02 -04:00
commit a3b8f778f2
3 changed files with 27 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/reader/define_xs.cpp
View file

@ -423,6 +423,30 @@ namespace xo {
}
}
void
define_xs::on_colon(exprstatestack * p_stack) {
constexpr bool c_debug_flag = true;
scope log(XO_DEBUG(c_debug_flag));
constexpr const char * self_name = "exprstate::on_colon";
/* lots of illegal states */
if (!this->admits_colon())
{
throw std::runtime_error(tostr(self_name,
": unexpected colon for parsing state",
xtag("state", *this)));
}
if (this->exs_type_ == exprstatetype::def_1) {
this->exs_type_ = exprstatetype::def_2;
p_stack->push_exprstate(exprstate::expect_type());
} else {
assert(false);
}
}
} /*namespace scm*/
} /*namespace xo*/

10
src/reader/exprstate.cpp
View file

@ -595,7 +595,7 @@ namespace xo {
}
void
exprstate::on_colon(exprstatestack * p_stack) {
exprstate::on_colon(exprstatestack * /*p_stack*/) {
constexpr bool c_debug_flag = true;
scope log(XO_DEBUG(c_debug_flag));
@ -609,13 +609,7 @@ namespace xo {
xtag("state", *this)));
}
if (this->exs_type_ == exprstatetype::def_1) {
this->exs_type_ = exprstatetype::def_2;
p_stack->push_exprstate(exprstate::expect_type());
} else {
assert(false);
}
assert(false);
}
void