56 lines
1.8 KiB
C++
56 lines
1.8 KiB
C++
/** @file DVsmApplyFrame.hpp
|
|
*
|
|
* @author Roland Conybeare, Feb 2026
|
|
**/
|
|
|
|
#pragma once
|
|
|
|
#include "VsmFrame.hpp"
|
|
|
|
namespace xo {
|
|
namespace scm {
|
|
class DVsmApplyFrame : public VsmFrame {
|
|
public:
|
|
using AProcedure = xo::scm::AProcedure;
|
|
using ACollector = xo::mm::ACollector;
|
|
using AAllocator = xo::mm::AAllocator;
|
|
using ppindentinfo = xo::print::ppindentinfo;
|
|
|
|
public:
|
|
DVsmApplyFrame(obj<AGCObject> old_parent,
|
|
VsmInstr old_cont,
|
|
DArray * args);
|
|
|
|
/** create instance using memory from @p mm **/
|
|
static DVsmApplyFrame * make(obj<AAllocator> mm,
|
|
obj<AGCObject> old_parent,
|
|
VsmInstr old_cont,
|
|
DArray * args);
|
|
|
|
obj<AProcedure> fn() const noexcept { return fn_; }
|
|
DArray * args() const noexcept { return args_; }
|
|
|
|
void assign_fn(obj<AProcedure> x) { this->fn_ = x; }
|
|
|
|
std::size_t shallow_size() const noexcept;
|
|
DVsmApplyFrame * shallow_copy(obj<AAllocator> mm) const noexcept;
|
|
std::size_t forward_children(obj<ACollector> gc) noexcept;
|
|
|
|
/** pretty-printing support **/
|
|
bool pretty(const ppindentinfo & ppii) const;
|
|
|
|
private:
|
|
/** evaluated target procedure.
|
|
*
|
|
* note: when initially created, this will be unpopulated;
|
|
* don't know correct value until we evaluate
|
|
* expression in head position
|
|
**/
|
|
obj<AProcedure> fn_;
|
|
/** evaluated arguments (to target procedure) **/
|
|
DArray * args_;
|
|
};
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
/* end DVsmApplyFrame.hpp */
|