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

xo-XXX -> .xo-XXX (prep subrepo)

Browse source
This commit is contained in:
Roland Conybeare 2026-06-06 22:00:54 -04:00
commit cf0bd4d975
2105 changed files with 0 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

122
xo-object/src/object/List.cpp
View file

@ -1,122 +0,0 @@
/** @file List.cpp
*
* author: Roland Conybeare, Aug 2025
**/
#include "List.hpp"
#include "xo/reflect/Reflect.hpp"
#include "xo/indentlog/scope.hpp"
#include <cassert>
#include <cstddef>
namespace xo {
using xo::reflect::Reflect;
using xo::reflect::TaggedPtr;
namespace obj {
List::List(gp<Object> head, gp<List> rest)
: head_{head}, rest_{rest} {}
gp<List>
List::nil = new List(nullptr, nullptr);
gp<List>
List::from(gp<IObject> x) {
return dynamic_cast<List *>(x.ptr());
}
gp<List>
List::cons(gp<Object> car, gp<List> cdr) {
return new (MMPtr(mm)) List(car, cdr);
}
std::size_t
List::size() const {
std::size_t retval = 0;
gp<const List> l(this);
while (!l->is_nil()) {
++retval;
l = l->rest();
}
return retval;
}
gp<Object>
List::list_ref(std::size_t i) const {
gp<const List> rem(this);
while (i > 0) {
assert(!(rem->is_nil()));
rem = rem->rest();
--i;
}
return rem->head();
}
void
List::assign_head(gp<Object> head)
{
Object::assign_member(this, &(this->head_), head);
}
void
List::assign_rest(gp<List> tail)
{
Object::assign_member(this, &(this->rest_), tail);
}
TaggedPtr
List::self_tp() const
{
return Reflect::make_tp(const_cast<List*>(this));
}
void
List::display(std::ostream & os) const
{
gp<List> l = const_cast<List*>(this);
os << "(";
size_t i = 0;
while (!l->is_nil()) {
if (i > 0)
os << " ";
os << l->head();
l = l->rest();
++i;
}
os << ")";
}
std::size_t
List::_shallow_size() const
{
return sizeof(List);
}
IObject *
List::_shallow_copy(gc::IAlloc * gc) const
{
assert(!(this->is_nil()));
Cpof cpof(gc, this);
return new (cpof) List(*this);
}
std::size_t
List::_forward_children(gc::IAlloc * gc)
{
Object::_forward_inplace(head_, gc);
Object::_forward_inplace(rest_, gc);
return List::_shallow_size();
}
}
}
/* end List.cpp */