/** @file DVsmEvalArgsFrame.cpp
 *
 *  @author Roland Conybeare, Feb 2026
 **/

#include "DVsmEvalArgsFrame.hpp"
#include <xo/indentlog/print/pretty.hpp>

namespace xo {
    using xo::facet::typeseq;
    using xo::print::ppindentinfo;

    namespace scm {

        // ----- VsmEvalArgsFrame -----

        DVsmEvalArgsFrame::DVsmEvalArgsFrame(DVsmApplyFrame * parent,
                                             VsmInstr cont,
                                             const DApplyExpr * apply_expr)
        : parent_{parent},
          cont_{cont},
          apply_expr_{apply_expr}
        {}

        DVsmEvalArgsFrame *
        DVsmEvalArgsFrame::make(obj<AAllocator> mm,
                                DVsmApplyFrame * apply_frame,
                                VsmInstr cont,
                                const DApplyExpr * apply_expr)
        {
            DVsmEvalArgsFrame * result = nullptr;

            void * mem = mm.alloc(typeseq::id<DVsmEvalArgsFrame>(),
                                  sizeof(DVsmEvalArgsFrame));

            result = new (mem) DVsmEvalArgsFrame(apply_frame, cont, apply_expr);

            assert(result);

            return result;
        }

        std::size_t
        DVsmEvalArgsFrame::shallow_size() const noexcept
        {
            return sizeof(DVsmEvalArgsFrame);
        }

        DVsmEvalArgsFrame *
        DVsmEvalArgsFrame::shallow_copy(obj<AAllocator> mm) const noexcept
        {
            DVsmEvalArgsFrame * copy = (DVsmEvalArgsFrame *)mm.alloc_copy((std::byte *)this);

            if (copy)
                *copy = *this;

            return copy;
        }

        std::size_t
        DVsmEvalArgsFrame::forward_children(obj<ACollector> gc) noexcept
        {
            (void)gc;

            return this->shallow_size();
        }

        bool
        DVsmEvalArgsFrame::pretty(const ppindentinfo & ppii) const
        {
            return ppii.pps()->pretty_struct
                (ppii,
                 "DVsmEvalArgsFrame",
                 refrtag("cont", cont_),
                 refrtag("i_arg", i_arg_)
                    );
        }
    } /*namespace scm*/
} /*namespace xo*/

/* end VsmEvalArgsFrame.cpp */