168 lines
5.6 KiB
C++
168 lines
5.6 KiB
C++
/** @file NumericDispatch.cpp
|
|
*
|
|
* @author Roland Conybeare, Feb 2026
|
|
**/
|
|
|
|
#include "NumericDispatch.hpp"
|
|
#include <xo/object2/RuntimeError.hpp>
|
|
#include <xo/facet/TypeRegistry.hpp>
|
|
#include <xo/indentlog/scope.hpp>
|
|
|
|
namespace xo {
|
|
using xo::mm::AGCObject;
|
|
using xo::facet::TypeRegistry;
|
|
|
|
namespace scm {
|
|
|
|
void
|
|
NumericDispatch::visit_pools(const MemorySizeVisitor & visitor)
|
|
{
|
|
dispatch_.visit_pools(visitor);
|
|
}
|
|
|
|
obj<AGCObject>
|
|
NumericDispatch::dispatch(obj<ARuntimeContext> rcx,
|
|
const char * caller,
|
|
const char * error_headline,
|
|
BinaryOp AnonymizedNumericOps::* member_ptr,
|
|
obj<AGCObject> x,
|
|
obj<AGCObject> y)
|
|
{
|
|
KeyType key(x._typeseq(), y._typeseq());
|
|
|
|
auto target_fn
|
|
= NumericDispatch::instance().dispatch_[key].*member_ptr;
|
|
|
|
if (!target_fn) {
|
|
// FIXME: use {fmt} here
|
|
std::stringstream ss;
|
|
tosn(ss,
|
|
error_headline,
|
|
xtag("x.tseq", x._typeseq()),
|
|
xtag("x.type", TypeRegistry::id2name(x._typeseq())),
|
|
xtag("x.data", x.data()),
|
|
xtag("y.tseq", y._typeseq()),
|
|
xtag("y.type", TypeRegistry::id2name(y._typeseq())),
|
|
xtag("y.data", y.data()));
|
|
|
|
return DRuntimeError::make(rcx.allocator(),
|
|
caller,
|
|
ss.str().c_str());
|
|
}
|
|
|
|
return (*target_fn)(rcx, x.data(), y.data());
|
|
}
|
|
|
|
obj<AGCObject>
|
|
NumericDispatch::multiply(obj<ARuntimeContext> rcx,
|
|
obj<AGCObject> x,
|
|
obj<AGCObject> y)
|
|
{
|
|
return dispatch(rcx,
|
|
"NumericDispatch::multiply",
|
|
"incomparable types in x*y",
|
|
&AnonymizedNumericOps::multiply_,
|
|
x, y);
|
|
}
|
|
|
|
obj<AGCObject>
|
|
NumericDispatch::divide(obj<ARuntimeContext> rcx,
|
|
obj<AGCObject> x,
|
|
obj<AGCObject> y)
|
|
{
|
|
return dispatch(rcx,
|
|
"NumericDispatch::divide",
|
|
"incomparable types in x/y",
|
|
&AnonymizedNumericOps::divide_,
|
|
x, y);
|
|
|
|
#ifdef OBSOLETE
|
|
KeyType key(x._typeseq(), y._typeseq());
|
|
|
|
auto target_fn
|
|
= NumericDispatch::instance().dispatch_[key].divide_;
|
|
|
|
if (!target_fn)
|
|
assert(false);
|
|
|
|
return (*target_fn)(rcx, x.data(), y.data());
|
|
#endif
|
|
}
|
|
|
|
obj<AGCObject>
|
|
NumericDispatch::add(obj<ARuntimeContext> rcx,
|
|
obj<AGCObject> x,
|
|
obj<AGCObject> y)
|
|
{
|
|
return dispatch(rcx,
|
|
"NumericDispatch::add",
|
|
"incomparable types in x+y",
|
|
&AnonymizedNumericOps::add_,
|
|
x, y);
|
|
}
|
|
|
|
obj<AGCObject>
|
|
NumericDispatch::subtract(obj<ARuntimeContext> rcx,
|
|
obj<AGCObject> x,
|
|
obj<AGCObject> y)
|
|
{
|
|
return dispatch(rcx,
|
|
"NumericDispatch::subtract",
|
|
"incomparable types in x-y",
|
|
&AnonymizedNumericOps::subtract_,
|
|
x, y);
|
|
}
|
|
|
|
obj<AGCObject>
|
|
NumericDispatch::cmp_equal(obj<ARuntimeContext> rcx,
|
|
obj<AGCObject> x,
|
|
obj<AGCObject> y)
|
|
{
|
|
return dispatch(rcx,
|
|
"NumericDispatch::cmp_equal",
|
|
"incomparable types in x==y",
|
|
&AnonymizedNumericOps::cmpeq_,
|
|
x, y);
|
|
|
|
}
|
|
|
|
obj<AGCObject>
|
|
NumericDispatch::cmp_notequal(obj<ARuntimeContext> rcx,
|
|
obj<AGCObject> x,
|
|
obj<AGCObject> y)
|
|
{
|
|
return dispatch(rcx,
|
|
"NumericDispatch::cmp_notequal",
|
|
"incomparable types in x!=y",
|
|
&AnonymizedNumericOps::cmpne_,
|
|
x, y);
|
|
}
|
|
|
|
obj<AGCObject>
|
|
NumericDispatch::cmp_less(obj<ARuntimeContext> rcx,
|
|
obj<AGCObject> x,
|
|
obj<AGCObject> y)
|
|
{
|
|
return dispatch(rcx,
|
|
"NumericDispatch::cmp_less",
|
|
"incomparable types in x<y",
|
|
&AnonymizedNumericOps::cmplt_,
|
|
x, y);
|
|
}
|
|
|
|
obj<AGCObject>
|
|
NumericDispatch::cmp_lessequal(obj<ARuntimeContext> rcx,
|
|
obj<AGCObject> x,
|
|
obj<AGCObject> y)
|
|
{
|
|
return dispatch(rcx,
|
|
"NumericDispatch::cmp_lessequal",
|
|
"incomparable types in x<=y",
|
|
&AnonymizedNumericOps::cmple_,
|
|
x, y);
|
|
}
|
|
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
/* end NumericDispatch.cpp **/
|