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

xo-facet: runtime facet lookup [PROTO]

Browse source
This commit is contained in:
Roland Conybeare 2026-01-09 10:07:20 -05:00
commit d5e1e6290b
1 changed files with 20 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/object2/DList.cpp
View file

@ -4,11 +4,15 @@
**/
#include "DList.hpp"
#include <xo/printable2/Printable.hpp>
#include <xo/facet/FacetRegistry.hpp>
#include <xo/indentlog/print/pretty.hpp>
#include <xo/indentlog/print/tag.hpp>
namespace xo {
using xo::print::APrintable;
using xo::mm::AGCObject;
using xo::facet::FacetRegistry;
using xo::facet::typeseq;
namespace scm {
@ -96,17 +100,28 @@ namespace xo {
if (ppii.upto()) {
/* perhaps print on one line */
if (!pps->print_upto("(...)"))
return false;
pps->write("(");
#ifdef NOT_YET
/* TODO: probably use iterators here, when available */
const DList * l = this;
while (!l->is_empty()) {
obj<APrintable>(l->head_.data());
size_t i = 0;
while (!l->is_empty()) {
if (i > 0)
pps->write(" ");
obj<APrintable> elt
= FacetRegistry::instance().variant<APrintable, AGCObject>(l->head_);
// what if no converter registered ?
if (!pps->print_upto(elt))
return false;
l = l->rest_;
++i;
}
#endif
pps->write(")");
return true;
} else {
pps->write("(...)");