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

xo-reader2 stack: handle comparison expression (x == y)

Browse source
This commit is contained in:
Roland Conybeare 2026-02-13 17:24:23 -05:00
commit 6a52c00b2e
4 changed files with 138 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/reader2/DProgressSsm.cpp
View file

@ -292,11 +292,11 @@ namespace xo {
break;
case tokentype::tk_star:
case tokentype::tk_cmpeq:
this->on_operator_token(tk, p_psm);
return;
case tokentype::tk_slash:
case tokentype::tk_cmpeq:
case tokentype::tk_cmpne:
case tokentype::tk_type:
case tokentype::tk_lambda:
@ -1177,6 +1177,10 @@ namespace xo {
);
}
namespace {
// make_builtin_apply_pm2
}
obj<AExpression>
DProgressSsm::assemble_expr(ParserStateMachine * p_psm)
{
@ -1209,7 +1213,28 @@ namespace xo {
return this->lhs_;
case optype::op_assign:
assert(false);
break;
case optype::op_equal:
{
auto pm_obj = (with_facet<AGCObject>::mkobj
(&Primitives::s_equal_gco_gco_pm));
auto fn_expr = (DConstant::make
(p_psm->expr_alloc(), pm_obj));
// see note on op_multiply
TypeRef tref = TypeRef::dwim
(TypeRef::prefix_type::from_chars("_equal_gco"),
nullptr);
return DApplyExpr::make2(p_psm->expr_alloc(),
tref,
fn_expr, lhs_, rhs_);
}
break;
case optype::op_not_equal:
case optype::op_less:
case optype::op_less_equal:
@ -1217,6 +1242,7 @@ namespace xo {
case optype::op_great_equal:
case optype::op_add:
case optype::op_subtract:
assert(false);
break;
case optype::op_multiply:
@ -1255,6 +1281,7 @@ namespace xo {
break;
case optype::op_divide:
// TODO: implement binary operator expression assembly
assert(false);
break;
#ifdef NOT_YET