xo-interpreter2 stack: parse literal lists (w/ implicit types)
This commit is contained in:
parent
906bb2a913
commit
f2a9aa3f52
19 changed files with 1052 additions and 99 deletions
215
src/reader2/DExpectQListSsm.cpp
Normal file
215
src/reader2/DExpectQListSsm.cpp
Normal file
|
|
@ -0,0 +1,215 @@
|
|||
/** @file DExpectQListSsm.cpp
|
||||
*
|
||||
* @author Roland Conybeare, Mar 2026
|
||||
**/
|
||||
|
||||
#include "ExpectQListSsm.hpp"
|
||||
#include "ExpectQLiteralSsm.hpp"
|
||||
#include <xo/object2/List.hpp>
|
||||
#include <xo/facet/FacetRegistry.hpp>
|
||||
#include <xo/indentlog/print/pretty.hpp>
|
||||
|
||||
namespace xo {
|
||||
using xo::print::APrintable;
|
||||
using xo::facet::FacetRegistry;
|
||||
using xo::mm::AGCObject;
|
||||
|
||||
namespace scm {
|
||||
const char *
|
||||
QListXst::_descr(enum code x)
|
||||
{
|
||||
switch (x) {
|
||||
case code::invalid: break;
|
||||
case code::qlist_0: return "qlist_0";
|
||||
case code::qlist_1a: return "qlist_1a";
|
||||
case code::qlist_2: return "qlist_2";
|
||||
case code::N: break;
|
||||
}
|
||||
|
||||
return "?QListXst";
|
||||
}
|
||||
|
||||
DExpectQListSsm::DExpectQListSsm() : state_{QListXst::code::qlist_0} {}
|
||||
|
||||
obj<ASyntaxStateMachine,DExpectQListSsm>
|
||||
DExpectQListSsm::make(DArena & parser_mm)
|
||||
{
|
||||
return obj<ASyntaxStateMachine,DExpectQListSsm>(_make(parser_mm));
|
||||
}
|
||||
|
||||
DExpectQListSsm *
|
||||
DExpectQListSsm::_make(DArena & parser_mm)
|
||||
{
|
||||
void * mem = parser_mm.alloc_for<DExpectQListSsm>();
|
||||
|
||||
return new (mem) DExpectQListSsm();
|
||||
}
|
||||
|
||||
void
|
||||
DExpectQListSsm::start(ParserStateMachine * p_psm)
|
||||
{
|
||||
DArena::Checkpoint ckp = p_psm->parser_alloc().checkpoint();
|
||||
|
||||
p_psm->push_ssm(ckp, DExpectQListSsm::make(p_psm->parser_alloc()));
|
||||
}
|
||||
|
||||
syntaxstatetype
|
||||
DExpectQListSsm::ssm_type() const noexcept {
|
||||
return syntaxstatetype::expect_qlist;
|
||||
}
|
||||
|
||||
std::string_view
|
||||
DExpectQListSsm::get_expect_str() const {
|
||||
switch (state_.code()) {
|
||||
case QListXst::code::qlist_0:
|
||||
return "leftparen";
|
||||
case QListXst::code::qlist_1a:
|
||||
return "qliteral|rightparen";
|
||||
case QListXst::code::qlist_2:
|
||||
return "(done)";
|
||||
case QListXst::code::invalid:
|
||||
case QListXst::code::N:
|
||||
break;
|
||||
}
|
||||
|
||||
return "?DExpectQListSsm";
|
||||
}
|
||||
|
||||
void
|
||||
DExpectQListSsm::on_token(const Token & tk,
|
||||
ParserStateMachine * p_psm)
|
||||
{
|
||||
switch(tk.tk_type())
|
||||
{
|
||||
case tokentype::tk_leftparen:
|
||||
this->on_leftparen_token(tk, p_psm);
|
||||
return;
|
||||
|
||||
case tokentype::tk_rightparen:
|
||||
this->on_rightparen_token(tk, p_psm);
|
||||
return;
|
||||
|
||||
case tokentype::tk_comma:
|
||||
case tokentype::tk_lambda:
|
||||
case tokentype::tk_def:
|
||||
case tokentype::tk_if:
|
||||
case tokentype::tk_symbol:
|
||||
case tokentype::tk_colon:
|
||||
case tokentype::tk_singleassign:
|
||||
case tokentype::tk_string:
|
||||
case tokentype::tk_f64:
|
||||
case tokentype::tk_i64:
|
||||
case tokentype::tk_bool:
|
||||
case tokentype::tk_semicolon:
|
||||
case tokentype::tk_invalid:
|
||||
case tokentype::tk_quote:
|
||||
case tokentype::tk_leftbracket:
|
||||
case tokentype::tk_rightbracket:
|
||||
case tokentype::tk_leftbrace:
|
||||
case tokentype::tk_rightbrace:
|
||||
case tokentype::tk_leftangle:
|
||||
case tokentype::tk_rightangle:
|
||||
case tokentype::tk_lessequal:
|
||||
case tokentype::tk_greatequal:
|
||||
case tokentype::tk_dot:
|
||||
case tokentype::tk_doublecolon:
|
||||
case tokentype::tk_assign:
|
||||
case tokentype::tk_yields:
|
||||
case tokentype::tk_plus:
|
||||
case tokentype::tk_minus:
|
||||
case tokentype::tk_star:
|
||||
case tokentype::tk_slash:
|
||||
case tokentype::tk_cmpeq:
|
||||
case tokentype::tk_cmpne:
|
||||
case tokentype::tk_type:
|
||||
case tokentype::tk_then:
|
||||
case tokentype::tk_else:
|
||||
case tokentype::tk_let:
|
||||
case tokentype::tk_in:
|
||||
case tokentype::tk_end:
|
||||
case tokentype::N:
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
DExpectQListSsm::on_leftparen_token(const Token & tk,
|
||||
ParserStateMachine * p_psm)
|
||||
{
|
||||
if (state_.code() == QListXst::code::qlist_0) {
|
||||
this->state_ = QListXst(QListXst::code::qlist_1a);
|
||||
this->start_ = DList::_nil();
|
||||
this->end_ = nullptr;
|
||||
|
||||
DExpectQLiteralSsm::start(p_psm,
|
||||
true /*cxl_on_rightparen*/);
|
||||
return;
|
||||
}
|
||||
|
||||
Super::illegal_token(tk, p_psm);
|
||||
}
|
||||
|
||||
void
|
||||
DExpectQListSsm::on_rightparen_token(const Token & tk,
|
||||
ParserStateMachine * p_psm)
|
||||
{
|
||||
if (state_.code() == QListXst::code::qlist_1a) {
|
||||
this->state_ = QListXst(QListXst::code::qlist_2);
|
||||
|
||||
obj<AGCObject> lit = obj<AGCObject,DList>(start_);
|
||||
|
||||
p_psm->pop_ssm();
|
||||
p_psm->on_quoted_literal(lit);
|
||||
return;
|
||||
}
|
||||
|
||||
Super::illegal_token(tk, p_psm);
|
||||
}
|
||||
|
||||
void
|
||||
DExpectQListSsm::on_quoted_literal(obj<AGCObject> lit,
|
||||
ParserStateMachine * p_psm)
|
||||
{
|
||||
if(state_.code() == QListXst::code::qlist_1a) {
|
||||
// append lit at the end of list start_ .. end_
|
||||
{
|
||||
DList * new_last
|
||||
= DList::_cons(p_psm->expr_alloc(), lit, DList::_nil());
|
||||
|
||||
if (this->end_) {
|
||||
end_->assign_rest(new_last);
|
||||
|
||||
this->end_ = new_last;
|
||||
} else {
|
||||
this->start_ = DList::_cons(p_psm->expr_alloc(),
|
||||
lit,
|
||||
DList::_nil());
|
||||
this->end_ = this->start_;
|
||||
}
|
||||
}
|
||||
|
||||
// start syntax to receive next literal
|
||||
DExpectQLiteralSsm::start(p_psm,
|
||||
true /*cxl_on_rightparen*/);
|
||||
return;
|
||||
}
|
||||
|
||||
Super::illegal_quoted_literal(lit, p_psm);
|
||||
}
|
||||
|
||||
bool
|
||||
DExpectQListSsm::pretty(const ppindentinfo & ppii) const
|
||||
{
|
||||
obj<AGCObject,DList> list(start_);
|
||||
auto list_pr = FacetRegistry::instance().variant<APrintable,AGCObject>(list);
|
||||
|
||||
return ppii.pps()->pretty_struct(ppii,
|
||||
"DExpectQListSsm",
|
||||
refrtag("state", state_),
|
||||
refrtag("expect", this->get_expect_str()),
|
||||
refrtag("list", list_pr));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* end DExpectQListSsm.cpp */
|
||||
Loading…
Add table
Add a link
Reference in a new issue