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

xo-procedure2: simplify primitive install

Browse source
This commit is contained in:
Roland Conybeare 2026-03-16 20:12:19 -05:00
commit 9c2a817eb3
2 changed files with 49 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

23
include/xo/procedure2/PrimitiveRegistry.hpp
View file

@ -34,8 +34,6 @@ namespace xo {
return InstallFlags(static_cast<uint64_t>(x) & static_cast<uint64_t>(y));
}
/** provided by VSM to receive created primitives.
* InstallSink(pm) adopts a primitive
**/
@ -70,6 +68,26 @@ namespace xo {
/** singleton instance **/
static PrimitiveRegistry & instance();
template <typename PrimitiveRepr>
static bool install_aux(InstallSink sink,
PrimitiveRepr * pm,
InstallFlags flags) {
scope log(XO_DEBUG(true));
if (flags != InstallFlags::f_none) {
log && log("create primitive", xtag("name", pm->name()));
return sink(pm->name(),
pm->fn_td(),
obj<AProcedure,PrimitiveRepr>(pm),
flags);
} else {
log && log("skip primitive", xtag("name", pm->name()));
return true;
}
}
/** remember primitive-factory @p source_fn **/
void register_primitives(InstallSource source_fn);
@ -83,6 +101,7 @@ namespace xo {
InstallSink sink,
InstallFlags flags);
private:
/** a set of factories that create primitives **/
std::vector<InstallSource> init_seq_v_;