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

xo-expression2: + DApplyExpr [WIP]. Builds, not used or tested

Browse source
This commit is contained in:
Roland Conybeare 2026-01-25 13:14:26 -05:00
commit c0978f5098
7 changed files with 181 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

95
xo-expression2/src/expression2/DApplyExpr.cpp Normal file
View file

@ -0,0 +1,95 @@
/** @file DApplyExpr.cpp
*
* @author Roland Conybeare, Jan 2026
**/
#include "DApplyExpr.hpp"
#include "Expression.hpp"
#include <xo/printable2/Printable.hpp>
#include <xo/facet/FacetRegistry.hpp>
namespace xo {
using xo::print::APrintable;
using xo::facet::FacetRegistry;
using xo::mm::AGCObject;
namespace scm {
obj<AExpression>
DApplyExpr::arg(size_type i) const
{
if (i >= args_->size()) [[unlikely]] {
throw std::runtime_error(tostr("attempt to fetch argument i where [0..n) expected",
xtag("i", i),
xtag("n", args_->size()),
xtag("src", "DApplyExpr::arg")));
}
obj<AGCObject> arg_i = args_->at(i);
auto expr_i = FacetRegistry::instance().variant<AExpression>(arg_i);
if (!expr_i) [[unlikely]] {
throw std::runtime_error(tostr("expected expression interface on argument i",
xtag("i", i),
xtag("arg[i]", arg_i)));
}
return expr_i;
}
void
DApplyExpr::assign_valuetype(TypeDescr td) noexcept {
typeref_.resolve(td);
}
bool
DApplyExpr::pretty(const ppindentinfo & ppii) const {
using xo::print::ppstate;
ppstate * pps = ppii.pps();
if (ppii.upto()) {
/* perhaps print on one line */
if (!pps->print_upto("<ApplyExpr"))
return false;
{
obj<APrintable> fn
= FacetRegistry::instance().variant<APrintable>(fn_);
if (!pps->print_upto(refrtag("fn", fn)))
return false;
}
for (size_t i_arg = 0, n_arg = this->n_arg(); i_arg < n_arg; ++i_arg) {
obj<APrintable> arg_i
= FacetRegistry::instance().variant<APrintable>(this->arg(i_arg));
if (!pps->print_upto(refrtag(concat("arg", 1+i_arg), arg_i)))
return false;
}
return true;
} else {
pps->write("<ApplyExpr");
obj<APrintable> fn
= FacetRegistry::instance().variant<APrintable>(fn_);
pps->newline_indent(ppii.ci1());
pps->pretty(refrtag("fn", fn));
for (size_t i_arg = 0, n_arg = this->n_arg(); i_arg < n_arg; ++i_arg) {
obj<APrintable> arg_i
= FacetRegistry::instance().variant<APrintable>(fn_);
pps->newline_indent(ppii.ci1());
pps->pretty(refrtag(concat("arg", 1+i_arg), arg_i));
}
return false;
}
}
} /*namespace scm*/
} /*namespace xo*/
/* end DApplyExpr.cpp */