git subrepo clone (merge) git@github.com:Rconybea/xo-expression.git xo-expression

subrepo:
  subdir:   "xo-expression"
  merged:   "fbc5b619"
upstream:
  origin:   "git@github.com:Rconybea/xo-expression.git"
  branch:   "main"
  commit:   "fbc5b619"
git-subrepo:
  version:  "0.4.9"
  origin:   "???"
  commit:   "???"

xo-expression/src/expression/Sequence.cpp

@@ -0,0 +1,122 @@
+/* @file Sequence.cpp */
+
+#include "Sequence.hpp"
+#include "pretty_expression.hpp"
+#include <cstddef>
+
+namespace xo {
+    namespace scm {
+        std::set<std::string>
+        Sequence::get_free_variables() const {
+            std::set<std::string> retval;
+
+            for (const auto & x : expr_v_) {
+                std::set<std::string> free_vars;
+                free_vars = x->get_free_variables();
+
+                for (const auto & y : free_vars)
+                    retval.insert(y);
+            }
+
+            return retval;
+        }
+
+        std::size_t
+        Sequence::visit_preorder(VisitFn visitor_fn) {
+            std::size_t n = 1;
+
+            visitor_fn(this);
+
+            for (const auto & x : expr_v_)
+                n += x->visit_preorder(visitor_fn);
+
+            return n;
+        }
+
+        std::size_t
+        Sequence::visit_layer(VisitFn visitor_fn) {
+            std::size_t n = 1;
+
+            visitor_fn(this);
+
+            for (const auto & x : expr_v_)
+                n += x->visit_layer(visitor_fn);
+
+            return n;
+        }
+
+        rp<Expression>
+        Sequence::xform_layer(TransformFn xform_fn) {
+            for (std::size_t i = 0, n = expr_v_.size(); i < n; ++i) {
+                expr_v_[i] = expr_v_[i]->xform_layer(xform_fn);
+            }
+
+            return xform_fn(this);
+        }
+
+        void
+        Sequence::attach_envs(bp<SymbolTable> p) {
+            for (const auto & x : expr_v_)
+                x->attach_envs(p);
+        }
+
+        void
+        Sequence::display(std::ostream & os) const {
+            os << "<Sequence";
+            std::size_t i = 0;
+            for (const auto & x : expr_v_) {
+                std::string i_str = tostr("[", i, "]");
+
+                os << xtag(i_str.c_str(), x);
+            }
+
+            os << ">";
+        }
+
+        std::uint32_t
+        Sequence::pretty_print(const ppindentinfo & ppii) const
+        {
+            ppstate * pps = ppii.pps();
+
+            if (ppii.upto()) {
+                if (!pps->print_upto("<Sequence"))
+                    return false;
+
+                std::size_t i = 0;
+                for (const auto & expr_i : expr_v_) {
+                    if (!pps->has_margin())
+                        return false;
+
+                    std::string i_str = tostr("[", i, "]");
+                    if (!pps->print_upto_tag(i_str.c_str(), expr_i))
+                        return false;
+                    ++i;
+                }
+
+                if (!pps->has_margin())
+                    return false;
+
+                pps->write(">");
+
+                return true;
+            } else {
+                pps->write("<Sequence");
+
+                std::size_t i = 0;
+                for (const auto & expr_i : expr_v_) {
+                    std::string i_str = tostr("[", i, "]");
+                    pps->newline_pretty_tag(ppii.ci1(),
+                                            i_str.c_str(),
+                                            expr_i);
+                    ++i;
+                }
+
+                pps->write(">");
+                return false;
+            }
+        }
+    } /*namespace scm*/
+} /*namespace xo*/
+
+
+/* end Sequence.cpp */