xo-reader2: refactor: move Lambda genfacet files to subdirs
This commit is contained in:
parent
afe34f1d8a
commit
309af002d2
10 changed files with 17 additions and 16 deletions
213
include/xo/reader2/lambda/DLambdaSsm.hpp
Normal file
213
include/xo/reader2/lambda/DLambdaSsm.hpp
Normal file
|
|
@ -0,0 +1,213 @@
|
|||
/** @file DLambdaSsm.hpp
|
||||
*
|
||||
* Author: Roland Conybeare
|
||||
**/
|
||||
|
||||
#pragma once
|
||||
|
||||
#include "DSyntaxStateMachine.hpp"
|
||||
#include <xo/expression2/DLambdaExpr.hpp>
|
||||
#include <xo/expression2/SymbolTable.hpp>
|
||||
//#include <xo/expression2/DLocalSymtab.hpp>
|
||||
|
||||
namespace xo {
|
||||
namespace scm {
|
||||
class ParserStateMachine;
|
||||
|
||||
/**
|
||||
* @text
|
||||
*
|
||||
* lambda ( name(1) : type(1), ..., ) : type body-expr ;
|
||||
* ^ ^ ^ ^ ^ ^
|
||||
* | | | | lm_4 lm_5
|
||||
* | | | lm_3
|
||||
* lm_0 lm_1 lm_2
|
||||
*
|
||||
* lm_0 --on_lambda_token()--> lm_1
|
||||
* lm_1 --on_formal_arglist()--> lm_2
|
||||
* lm_2 --on_expr()--> lm_3
|
||||
* lm_5 --on_semicolon_token()--> (done)
|
||||
*
|
||||
* @endtext
|
||||
**/
|
||||
enum class lambdastatetype {
|
||||
invalid = -1,
|
||||
|
||||
lm_0,
|
||||
lm_1,
|
||||
lm_2,
|
||||
lm_3,
|
||||
lm_4,
|
||||
lm_5,
|
||||
|
||||
n_lambdastatetype
|
||||
};
|
||||
|
||||
extern const char *
|
||||
lambdastatetype_descr(lambdastatetype x);
|
||||
|
||||
inline std::ostream &
|
||||
operator<< (std::ostream & os, lambdastatetype x) {
|
||||
os << lambdastatetype_descr(x);
|
||||
return os;
|
||||
}
|
||||
|
||||
/** @class DLambdaSsm
|
||||
* @brief parsing state-machine for a lambda-expression
|
||||
**/
|
||||
class DLambdaSsm : public DSyntaxStateMachine<DLambdaSsm> {
|
||||
public:
|
||||
using Super = DSyntaxStateMachine<DLambdaSsm>;
|
||||
using DLocalSymtab = xo::scm::DLocalSymtab;
|
||||
using AAllocator = xo::mm::AAllocator;
|
||||
using DArena = xo::mm::DArena;
|
||||
using TypeDescr = xo::reflect::TypeDescr;
|
||||
using ppindentinfo = xo::print::ppindentinfo;
|
||||
|
||||
public:
|
||||
/** @defgroup scm-lambdassm-ctors **/
|
||||
///@{
|
||||
|
||||
DLambdaSsm();
|
||||
|
||||
/** create instance using memory from @p parser_mm **/
|
||||
static obj<ASyntaxStateMachine,DLambdaSsm> make(DArena & parser_mm);
|
||||
|
||||
/** create instance using memory from @p parser_mm **/
|
||||
static DLambdaSsm * _make(DArena & parser_mm);
|
||||
|
||||
///@}
|
||||
/** @defgroup scm-lambdassm-methods **/
|
||||
///@{
|
||||
|
||||
static const char * ssm_classname() { return "DLambdaSsm"; }
|
||||
|
||||
static void start(ParserStateMachine * p_psm);
|
||||
|
||||
/** update ssm on lambda keyword token @p tk,
|
||||
* with overall parser state in @p p_psm
|
||||
**/
|
||||
void on_lambda_token(const Token & tk,
|
||||
ParserStateMachine * p_psm);
|
||||
|
||||
/** update ssm on yield token @p tk,
|
||||
* with overall parser state in @p p_psm
|
||||
**/
|
||||
void on_yields_token(const Token & tk,
|
||||
ParserStateMachine * p_psm);
|
||||
|
||||
/** update ssm on leftbrace token @p tk,
|
||||
* with overall parser state in @p p_psm
|
||||
**/
|
||||
void on_leftbrace_token(const Token & tk,
|
||||
ParserStateMachine * p_psm);
|
||||
|
||||
///@}
|
||||
/** @defgroup scm-lambdassm-syntaxstatemachine-facet **/
|
||||
///@{
|
||||
|
||||
/** identify this nested state machine **/
|
||||
syntaxstatetype ssm_type() const noexcept;
|
||||
|
||||
/** text describing expected/allowed input to this ssm in current state.
|
||||
* Intended to drive error messages
|
||||
**/
|
||||
std::string_view get_expect_str() const noexcept;
|
||||
|
||||
/** update this ssm for incoming token @p tk **/
|
||||
void on_token(const Token & tk,
|
||||
ParserStateMachine * p_psm);
|
||||
|
||||
#ifdef OBSOLETE
|
||||
/** update this ssm when nested parser
|
||||
* emits @p td.
|
||||
**/
|
||||
void on_parsed_symbol(std::string_view sym,
|
||||
ParserStateMachine * p_psm);
|
||||
#endif
|
||||
|
||||
/** update this ssm when nested parser
|
||||
* emits @p td.
|
||||
**/
|
||||
void on_parsed_typedescr(TypeDescr td,
|
||||
ParserStateMachine * p_psm);
|
||||
|
||||
#ifdef OBSOLETE
|
||||
/** update this ssm to consume parsed formal (name,value)
|
||||
* from nested (and now expired) ssm
|
||||
**/
|
||||
void on_parsed_formal(const DUniqueString * sym,
|
||||
TypeDescr td,
|
||||
ParserStateMachine * p_psm);
|
||||
#endif
|
||||
|
||||
/** consume formal params @p arglist from completed nested ssm,
|
||||
* with overall parser state in @p p_psm.
|
||||
**/
|
||||
void on_parsed_formal_arglist(DArray * arglist,
|
||||
ParserStateMachine * p_psm);
|
||||
|
||||
/** update this ssm when nested parser
|
||||
* emits expression @p expr
|
||||
**/
|
||||
void on_parsed_expression(obj<AExpression> expr,
|
||||
ParserStateMachine * p_psm);
|
||||
|
||||
/** update this ssm when nested parser
|
||||
* emits expression @p expr
|
||||
**/
|
||||
void on_parsed_expression_with_token(obj<AExpression> expr,
|
||||
const Token & tk,
|
||||
ParserStateMachine * p_psm);
|
||||
|
||||
#ifdef NOT_YET
|
||||
virtual const char * get_expect_str() const override;
|
||||
|
||||
virtual void on_leftbrace_token(const token_type & tk,
|
||||
parserstatemachine * p_psm) override;
|
||||
virtual void on_colon_token(const token_type & tk,
|
||||
parserstatemachine * p_psm) override;
|
||||
virtual void on_semicolon_token(const token_type & tk,
|
||||
parserstatemachine * p_psm) override;
|
||||
virtual void on_f64_token(const token_type & tk,
|
||||
parserstatemachine * p_psm) final override;
|
||||
|
||||
virtual void print(std::ostream & os) const override;
|
||||
virtual bool pretty_print(const print::ppindentinfo & ppii) const override;
|
||||
#endif
|
||||
|
||||
///@}
|
||||
/** @defgroup scm-lambdassm-printable-facet **/
|
||||
///@{
|
||||
|
||||
/** pretty-printing support **/
|
||||
bool pretty(const ppindentinfo & ppii) const;
|
||||
|
||||
///@}
|
||||
|
||||
|
||||
private:
|
||||
/** parsing state-machine state **/
|
||||
lambdastatetype lmstate_ = lambdastatetype::lm_0;
|
||||
|
||||
/** lambda environment (for formal parameters) **/
|
||||
DLocalSymtab * local_symtab_ = nullptr;
|
||||
|
||||
/** explicit return type (if supplied) **/
|
||||
TypeDescr explicit_return_td_ = nullptr;
|
||||
|
||||
/** lambda signature (when known) **/
|
||||
TypeDescr lambda_td_ = nullptr;
|
||||
|
||||
/** body expression **/
|
||||
obj<AExpression> body_;
|
||||
|
||||
/** parent environment **/
|
||||
obj<ASymbolTable> parent_symtab_;
|
||||
|
||||
};
|
||||
|
||||
} /*namespace scm*/
|
||||
} /*namespace xo*/
|
||||
|
||||
/* end DLambdaSsm.hpp */
|
||||
Loading…
Add table
Add a link
Reference in a new issue