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

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

View file

@ -0,0 +1,166 @@
/** @file DQuoteSsm.hpp
*
* @author Roland Conybeare, Feb 2026
**/
#pragma once
#include "DSyntaxStateMachine.hpp"
#include "syntaxstatetype.hpp"
#include <xo/facet/obj.hpp>
#include <string_view>
namespace xo {
namespace scm {
/**
* @pre
*
* #q{ quote-expr }
* ^ ^ ^ ^ ^
* | | | | (done)
* | | | |
* | | | quote_3:expect_rightbrace
* | | quote_2:expect_parsed_expression
* | quote_1:expect_leftbrace
* quote_0
*
* quote_0 --on_quote_token()--> quote_1
* quote_1 --on_leftbrace_token()--> quote_2
* quote_2 --on_parsed_expression()--> quote_3 [will be constant expression]
* quote_3 --on_rightparen_token()--> (done)
*
* @endpre
**/
class QuoteXst {
public:
enum class code {
invalid = -1,
quote_0,
quote_1,
quote_2,
quote_3,
N,
};
explicit QuoteXst(code x) : code_{x} {}
/** @return string representation for enum @p x **/
static const char * _descr(code x);
code code() const noexcept { return code_; }
enum code code_;
};
inline std::ostream &
operator<<(std::ostream & os, QuoteXst x) {
os << QuoteXst::_descr(x.code_);
return os;
}
class DQuoteSsm : public DSyntaxStateMachine<DQuoteSsm> {
public:
using Super = DSyntaxStateMachine<DQuoteSsm>;
using TypeDescr = xo::reflect::TypeDescr;
using AAllocator = xo::mm::AAllocator;
using DArena = xo::mm::DArena;
using ppindentinfo = xo::print::ppindentinfo;
public:
/** @defgroup scm-parenssm-ctors **/
///@{
DQuoteSsm();
/** create instance using memory from @p parser_mm
**/
static DQuoteSsm * _make(DArena & parser_mm);
/** create fop pointing with new DQuoteSsm using memory from @p parser_mm **/
static obj<ASyntaxStateMachine,DQuoteSsm> make(DArena & parser_mm);
/** push DQuoteSsm instance onto @p p_psm stack **/
static void start(ParserStateMachine * p_psm);
///@}
/** @defgroup scm-parenssm-access-methods **/
///@{
/** identify this nested state machine **/
static const char * ssm_classname() { return "DQuoteSsm"; }
/** internal state **/
QuoteXst quotestate() const noexcept { return quote_xst_; }
///@}
/** @defgroup scm-parenssm-admin-methods admin methods **/
///@{
/** update ssm state for incoming leftparen token @p tk,
* with overall parser state in @p p_psm
**/
void on_leftbrace_token(const Token & tk,
ParserStateMachine * p_psm);
/** update ssm state for incoming rightparen token @p tk
* with overall parser state in @p p_psm
**/
void on_rightbrace_token(const Token & tk,
ParserStateMachine * p_psm);
///@}
/** @defgroup scm-parenssm-ssm-facet syntaxstatemachine facet methods **/
///@{
/** identifies this ssm **/
syntaxstatetype ssm_type() const noexcept;
/** text describing expected/allowed input to this ssm in current state. **/
std::string_view get_expect_str() const noexcept;
/** update ssm for token @p tk, with overall state in @p p_psm **/
void on_token(const Token & tk,
ParserStateMachine * p_psm);
/** update ssm for expression @p expr (emitted by nested ssm),
* with overall parser state in @p p_psm
**/
void on_parsed_expression(obj<AExpression> expr,
ParserStateMachine * p_psm);
/** update ssm for expression @p expr (emitted by nested ssm)
* that's immediately followed by token @p tk
* with overall parser state in @p p_psm
**/
void on_parsed_expression_with_token(obj<AExpression> expr,
const Token & tk,
ParserStateMachine * p_psmn);
///@}
/** @defgroup scm-parenssm-printable-facet printable facet methods **/
///@{
bool pretty(const ppindentinfo & ppii) const;
///@}
private:
/** @defgroup scm-parenssm-member-vars **/
///@{
/** identify quote-expression state **/
QuoteXst quote_xst_;
/** scaffold expression (representing parenthesized value) here **/
obj<AExpression> expr_;
///@}
};
} /*namespace scm*/
} /*namespace xo*/
/* end DQuoteSsm.hpp */

View file

@ -0,0 +1,12 @@
/** @file QuoteSsm.hpp
*
* @author Roland Conybeare, Mar 2026
**/
#pragma once
#include "DQuoteSsm.hpp"
#include "ssm/ISyntaxStateMachine_DQuoteSsm.hpp"
#include "ssm/IPrintable_DQuoteSsm.hpp"
/* end QuoteSsm.hpp */

View file

@ -0,0 +1,62 @@
/** @file IPrintable_DQuoteSsm.hpp
*
* Generated automagically from ingredients:
* 1. code generator:
* [xo-facet/codegen/genfacet]
* arguments:
* --input [idl/IPrintable_DQuoteSsm.json5]
* 2. jinja2 template for abstract facet .hpp file:
* [iface_facet_repr.hpp.j2]
* 3. idl for facet methods
* [idl/IPrintable_DQuoteSsm.json5]
**/
#pragma once
#include "Printable.hpp"
#include <xo/printable2/Printable.hpp>
#include <xo/printable2/detail/IPrintable_Xfer.hpp>
#include "DQuoteSsm.hpp"
namespace xo { namespace scm { class IPrintable_DQuoteSsm; } }
namespace xo {
namespace facet {
template <>
struct FacetImplementation<xo::print::APrintable,
xo::scm::DQuoteSsm>
{
using ImplType = xo::print::IPrintable_Xfer
<xo::scm::DQuoteSsm,
xo::scm::IPrintable_DQuoteSsm>;
};
}
}
namespace xo {
namespace scm {
/** @class IPrintable_DQuoteSsm
**/
class IPrintable_DQuoteSsm {
public:
/** @defgroup scm-printable-dquotessm-type-traits **/
///@{
using ppindentinfo = xo::print::APrintable::ppindentinfo;
using Copaque = xo::print::APrintable::Copaque;
using Opaque = xo::print::APrintable::Opaque;
///@}
/** @defgroup scm-printable-dquotessm-methods **/
///@{
// const methods
/** Pretty-printing support for this object.
See [xo-indentlog/xo/indentlog/pretty.hpp] **/
static bool pretty(const DQuoteSsm & self, const ppindentinfo & ppii);
// non-const methods
///@}
};
} /*namespace scm*/
} /*namespace xo*/
/* end */

View file

@ -0,0 +1,79 @@
/** @file ISyntaxStateMachine_DQuoteSsm.hpp
*
* Generated automagically from ingredients:
* 1. code generator:
* [xo-facet/codegen/genfacet]
* arguments:
* --input [idl/ISyntaxStateMachine_DQuoteSsm.json5]
* 2. jinja2 template for abstract facet .hpp file:
* [iface_facet_repr.hpp.j2]
* 3. idl for facet methods
* [idl/ISyntaxStateMachine_DQuoteSsm.json5]
**/
#pragma once
#include "SyntaxStateMachine.hpp"
#include "SyntaxStateMachine.hpp"
#include "ssm/ISyntaxStateMachine_Xfer.hpp"
#include "DQuoteSsm.hpp"
namespace xo { namespace scm { class ISyntaxStateMachine_DQuoteSsm; } }
namespace xo {
namespace facet {
template <>
struct FacetImplementation<xo::scm::ASyntaxStateMachine,
xo::scm::DQuoteSsm>
{
using ImplType = xo::scm::ISyntaxStateMachine_Xfer
<xo::scm::DQuoteSsm,
xo::scm::ISyntaxStateMachine_DQuoteSsm>;
};
}
}
namespace xo {
namespace scm {
/** @class ISyntaxStateMachine_DQuoteSsm
**/
class ISyntaxStateMachine_DQuoteSsm {
public:
/** @defgroup scm-syntaxstatemachine-dquotessm-type-traits **/
///@{
using TypeDescr = xo::scm::ASyntaxStateMachine::TypeDescr;
using Copaque = xo::scm::ASyntaxStateMachine::Copaque;
using Opaque = xo::scm::ASyntaxStateMachine::Opaque;
///@}
/** @defgroup scm-syntaxstatemachine-dquotessm-methods **/
///@{
// const methods
/** identify a type of syntax state machine **/
static syntaxstatetype ssm_type(const DQuoteSsm & self) noexcept;
/** text describing expected/allowed input to this ssm in current state **/
static std::string_view get_expect_str(const DQuoteSsm & self) noexcept;
// non-const methods
/** operate state machine for incoming token @p tk **/
static void on_token(DQuoteSsm & self, const Token & tk, ParserStateMachine * p_psm);
/** update stat machine for incoming parsed symbol @p sym **/
static void on_parsed_symbol(DQuoteSsm & self, std::string_view sym, ParserStateMachine * p_psm);
/** operate state machine for incoming type description @p td **/
static void on_parsed_typedescr(DQuoteSsm & self, TypeDescr td, ParserStateMachine * p_psm);
/** operate state machine for formal emitted by nested ssm **/
static void on_parsed_formal(DQuoteSsm & self, const DUniqueString * param_name, TypeDescr param_type, ParserStateMachine * p_psm);
/** operate state machine for formal emitted by nested ssm **/
static void on_parsed_formal_with_token(DQuoteSsm & self, const DUniqueString * param_name, TypeDescr param_type, const Token & tk, ParserStateMachine * p_psm);
/** consume formal arglist emitted by nested ssm **/
static void on_parsed_formal_arglist(DQuoteSsm & self, DArray * arglist, ParserStateMachine * p_psm);
/** update state machine for incoming parsed expression @p expr **/
static void on_parsed_expression(DQuoteSsm & self, obj<AExpression> expr, ParserStateMachine * p_psm);
/** update state machine @p p_psm for incoming parsed expression @p expr followed by token @p tk **/
static void on_parsed_expression_with_token(DQuoteSsm & self, obj<AExpression> expr, const Token & tk, ParserStateMachine * p_psm);
///@}
};
} /*namespace scm*/
} /*namespace xo*/
/* end */

View file

@ -39,6 +39,9 @@ namespace xo {
/** expression enclosed in parentheses. See @ref DParenSsm **/
paren,
/** quoted literal using #q{..} syntax. See @ref DQuoteSsm **/
quote,
/** toplevel of some translation unit. See @ref DToplevelSeqSsm **/
expect_toplevel_expression_sequence,