236 lines
8.6 KiB
C++
236 lines
8.6 KiB
C++
/** @file exprstate.hpp
|
|
*
|
|
* Author: Roland Conybeare
|
|
**/
|
|
|
|
#pragma once
|
|
|
|
#include "xo/expression/Expression.hpp"
|
|
#include "xo/tokenizer/token.hpp"
|
|
#include <stack>
|
|
//#include <cstdint>
|
|
|
|
namespace xo {
|
|
namespace scm {
|
|
enum class exprstatetype {
|
|
invalid = -1,
|
|
|
|
/** toplevel of some translation unit **/
|
|
expect_toplevel_expression_sequence,
|
|
|
|
/** handle define-expression
|
|
* see @ref define_xs
|
|
**/
|
|
defexpr,
|
|
|
|
/** handle lambda-expression
|
|
* see @ref lambda_xs
|
|
**/
|
|
lambdaexpr,
|
|
|
|
/** handle parenthesized expression
|
|
* see @ref paren_xs
|
|
**/
|
|
parenexpr,
|
|
|
|
expect_rhs_expression,
|
|
expect_symbol,
|
|
expect_type,
|
|
/** handle formal argument list
|
|
* see @ref expect_formal_arglist_xs
|
|
**/
|
|
expect_formal_arglist,
|
|
/** handle formal argument
|
|
* see @ref expec_formal_xs
|
|
**/
|
|
expect_formal,
|
|
|
|
/** handle expression-in-progress,
|
|
* in case infix operators to follow
|
|
* see @ref progress_xs
|
|
**/
|
|
expr_progress,
|
|
|
|
n_exprstatetype
|
|
};
|
|
|
|
extern const char *
|
|
exprstatetype_descr(exprstatetype x);
|
|
|
|
inline std::ostream &
|
|
operator<< (std::ostream & os, exprstatetype x) {
|
|
os << exprstatetype_descr(x);
|
|
return os;
|
|
}
|
|
|
|
class exprstatestack;
|
|
|
|
class formal_arg;
|
|
|
|
/** state associated with a partially-parsed expression.
|
|
**/
|
|
class exprstate {
|
|
public:
|
|
using Expression = xo::ast::Expression;
|
|
using Variable = xo::ast::Variable;
|
|
using exprtype = xo::ast::exprtype;
|
|
using token_type = token<char>;
|
|
using TypeDescr = xo::reflect::TypeDescr;
|
|
|
|
public:
|
|
exprstate() = default;
|
|
exprstate(exprstatetype exs_type)
|
|
: exs_type_{exs_type}
|
|
{}
|
|
virtual ~exprstate() = default;
|
|
|
|
exprstatetype exs_type() const { return exs_type_; }
|
|
|
|
/** update exprstate in response to incoming token @p tk,
|
|
* forward instructions to parent parser
|
|
**/
|
|
void on_input(const token_type & tk,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
|
|
/** update exprstate in response to a successfully-parsed subexpression **/
|
|
virtual void on_expr(ref::brw<Expression> expr,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** update exprstate when expecting a symbol **/
|
|
virtual void on_symbol(const std::string & symbol,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** update exprstate when expeccting a typedescr **/
|
|
virtual void on_typedescr(TypeDescr td,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** update exprstate when expecting a formal parameter **/
|
|
virtual void on_formal(const rp<Variable> & formal,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** update expression when epecting a formal parameter list **/
|
|
virtual void on_formal_arglist(const std::vector<rp<Variable>> & argl,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** print human-readable representation on @p os **/
|
|
virtual void print(std::ostream & os) const;
|
|
|
|
// ----- input methods -----
|
|
|
|
/** handle incoming 'def' token **/
|
|
virtual void on_def_token(const token_type & tk,
|
|
exprstatestack * p_stack);
|
|
/** handle incoming 'lambda' token **/
|
|
virtual void on_lambda_token(const token_type & tk,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** handle incoming symbol token **/
|
|
virtual void on_symbol_token(const token_type & tk,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** handle incoming ',' token **/
|
|
virtual void on_comma_token(const token_type & tk,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** handle incoming ':' token **/
|
|
virtual void on_colon_token(const token_type & tk,
|
|
exprstatestack * p_stack);
|
|
/** handle incoming ';' token **/
|
|
virtual void on_semicolon_token(const token_type & tk,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** handle incoming '=' token **/
|
|
virtual void on_singleassign_token(const token_type & tk,
|
|
exprstatestack * p_stack);
|
|
/** handle incoming '(' token **/
|
|
virtual void on_leftparen_token(const token_type & tk,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** handle incoming ')' token **/
|
|
virtual void on_rightparen_token(const token_type & tk,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** handle incoming operator token **/
|
|
virtual void on_operator_token(const token_type & tk,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
/** handle incoming floating-point-literal token **/
|
|
virtual void on_f64_token(const token_type & tk,
|
|
exprstatestack * p_stack,
|
|
rp<Expression> * p_emit_expr);
|
|
|
|
protected:
|
|
/** throw exception when next token is inconsistent with
|
|
* parsing state
|
|
**/
|
|
void illegal_input_error(const char * self_name,
|
|
const token_type & tk) const;
|
|
|
|
protected:
|
|
/** explicit subtype: identifies derived class **/
|
|
exprstatetype exs_type_;
|
|
}; /*exprstate*/
|
|
|
|
inline std::ostream &
|
|
operator<< (std::ostream & os, const exprstate & x) {
|
|
x.print(os);
|
|
return os;
|
|
}
|
|
|
|
// ----- exprstatestack -----
|
|
|
|
/** @class exprstatestack
|
|
* @brief A stack of exprstate objects
|
|
**/
|
|
class exprstatestack {
|
|
public:
|
|
exprstatestack() {}
|
|
|
|
bool empty() const { return stack_.empty(); }
|
|
std::size_t size() const { return stack_.size(); }
|
|
|
|
exprstate & top_exprstate();
|
|
void push_exprstate(std::unique_ptr<exprstate> exs);
|
|
std::unique_ptr<exprstate> pop_exprstate();
|
|
|
|
/** relative to top-of-stack.
|
|
* 0 -> top (last in), z-1 -> bottom (first in)
|
|
**/
|
|
std::unique_ptr<exprstate> & operator[](std::size_t i) {
|
|
std::size_t z = stack_.size();
|
|
|
|
assert(i < z);
|
|
|
|
return stack_[z - i - 1];
|
|
}
|
|
|
|
const std::unique_ptr<exprstate> & operator[](std::size_t i) const {
|
|
std::size_t z = stack_.size();
|
|
|
|
assert(i < z);
|
|
|
|
return stack_[z - i - 1];
|
|
}
|
|
|
|
void print (std::ostream & os) const;
|
|
|
|
private:
|
|
std::vector<std::unique_ptr<exprstate>> stack_;
|
|
};
|
|
|
|
inline std::ostream &
|
|
operator<< (std::ostream & os, const exprstatestack & x) {
|
|
x.print(os);
|
|
return os;
|
|
}
|
|
|
|
inline std::ostream &
|
|
operator<< (std::ostream & os, const exprstatestack * x) {
|
|
x->print(os);
|
|
return os;
|
|
}
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
/** end exprstate.hpp **/
|