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

xo-reader2 stack: + #q token + QuoteSsm [WIP - not functional]

Browse source
This commit is contained in:
Roland Conybeare 2026-03-01 13:06:57 +11:00
commit 7b70296eb1
26 changed files with 712 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

218
src/reader2/DQuoteSsm.cpp Normal file
View file

@ -0,0 +1,218 @@
/** @file DQuoterSsm.cpp
*
* @author Roland Conybeare, Mar 2026
**/
#include "QuoteSsm.hpp"
#include "ExpectExprSsm.hpp"
#include "syntaxstatetype.hpp"
//#include <string_view>
namespace xo {
using xo::facet::with_facet;
using xo::facet::typeseq;
namespace scm {
extern const char *
QuoteXst::_descr(enum QuoteXst::code x)
{
switch(x) {
case code::invalid: return "invalid";
case code::quote_0: return "quote_0";
case code::quote_1: return "quote_1";
case code::quote_2: return "quote_2";
case code::quote_3: return "quote_3";
case code::N: break;
}
return "?QuoteXst";
}
DQuoteSsm::DQuoteSsm()
: quote_xst_(QuoteXst::code::quote_0),
expr_{}
{}
DQuoteSsm *
DQuoteSsm::_make(DArena & mm)
{
void * mem = mm.alloc_for<DQuoteSsm>();
return new (mem) DQuoteSsm();
}
obj<ASyntaxStateMachine,DQuoteSsm>
DQuoteSsm::make(DArena & mm)
{
return obj<ASyntaxStateMachine,DQuoteSsm>(_make(mm));
}
void
DQuoteSsm::start(ParserStateMachine * p_psm)
{
DArena::Checkpoint ckp = p_psm->parser_alloc().checkpoint();
auto paren_ssm = DQuoteSsm::make(p_psm->parser_alloc());
p_psm->push_ssm(ckp, paren_ssm);
}
syntaxstatetype
DQuoteSsm::ssm_type() const noexcept
{
return syntaxstatetype::paren;
}
std::string_view
DQuoteSsm::get_expect_str() const noexcept
{
switch (this->quote_xst_.code()) {
case QuoteXst::code::invalid:
case QuoteXst::code::N:
break;
case QuoteXst::code::quote_0: return "#q";
case QuoteXst::code::quote_1: return "leftbrace";
case QuoteXst::code::quote_2: return "qliteral";
case QuoteXst::code::quote_3: return "rightbrace";
}
assert(false);
return "?quotexst";
}
void
DQuoteSsm::on_token(const Token & tk,
ParserStateMachine * p_psm)
{
switch (tk.tk_type()) {
case tokentype::tk_leftbrace:
this->on_leftbrace_token(tk, p_psm);
return;
case tokentype::tk_rightbrace:
this->on_rightbrace_token(tk, p_psm);
return;
// all the not-yet handled cases
case tokentype::tk_symbol:
case tokentype::tk_def:
case tokentype::tk_colon:
case tokentype::tk_singleassign:
case tokentype::tk_semicolon:
case tokentype::tk_invalid:
case tokentype::tk_string:
case tokentype::tk_f64:
case tokentype::tk_i64:
case tokentype::tk_bool:
case tokentype::tk_if:
case tokentype::tk_quote:
case tokentype::tk_leftparen:
case tokentype::tk_rightparen:
case tokentype::tk_leftbracket:
case tokentype::tk_rightbracket:
case tokentype::tk_leftangle:
case tokentype::tk_rightangle:
case tokentype::tk_lessequal:
case tokentype::tk_greatequal:
case tokentype::tk_dot:
case tokentype::tk_comma:
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_lambda:
case tokentype::tk_then:
case tokentype::tk_else:
case tokentype::tk_let:
case tokentype::tk_in:
case tokentype::tk_end:
case tokentype::N:
break;
}
Super::on_token(tk, p_psm);
}
void
DQuoteSsm::on_leftbrace_token(const Token & tk,
ParserStateMachine * p_psm)
{
if (quote_xst_.code() == QuoteXst::code::quote_0) {
this->quote_xst_ = QuoteXst(QuoteXst::code::quote_1);
assert(false);
//DExpectQLiteralSsm::start(p_psm);
//return;
}
Super::on_token(tk, p_psm);
}
void
DQuoteSsm::on_rightbrace_token(const Token & tk,
ParserStateMachine * p_psm)
{
if (quote_xst_.code() == QuoteXst::code::quote_3) {
// quoted literal (reported as constant expr) successfully parsed
p_psm->pop_ssm();
p_psm->on_parsed_expression(this->expr_);
return;
}
Super::on_token(tk, p_psm);
}
void
DQuoteSsm::on_parsed_expression(obj<AExpression> expr,
ParserStateMachine * p_psm)
{
if (quote_xst_.code() == QuoteXst::code::quote_2) {
this->quote_xst_ = QuoteXst(QuoteXst::code::quote_3);
this->expr_ = expr;
return;
}
Super::on_parsed_expression(expr, p_psm);
}
void
DQuoteSsm::on_parsed_expression_with_token(obj<AExpression> expr,
const Token & tk,
ParserStateMachine * p_psm)
{
if (quote_xst_.code() == QuoteXst::code::quote_2) {
this->quote_xst_ = QuoteXst(QuoteXst::code::quote_3);
this->expr_ = expr;
this->on_token(tk, p_psm);
return;
}
Super::on_parsed_expression(expr, p_psm);
}
bool
DQuoteSsm::pretty(const ppindentinfo & ppii) const
{
return ppii.pps()->pretty_struct(ppii,
"DParenSsm",
refrtag("quote_xst", quote_xst_),
refrtag("expect", this->get_expect_str()));
}
} /*namespace scm*/
} /*namespace xo*/
/* end DQuoteSsm.cpp */