Modify environment. Now, when a builtin value is declared, if it has a unicode alternative representation, then we add it as a definition. Now, everything that occurs in the environment has been 'declared'.
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
parent
e955c054ca
commit
d41160f8a5
6 changed files with 21 additions and 33 deletions
|
@ -119,7 +119,6 @@ class parser::imp {
|
|||
bool m_found_errors;
|
||||
local_decls m_local_decls;
|
||||
unsigned m_num_local_decls;
|
||||
builtins m_builtins;
|
||||
expr_pos_info m_expr_pos_info;
|
||||
pos_info m_last_cmd_pos;
|
||||
// Reference to temporary parser used to process import command.
|
||||
|
@ -246,12 +245,6 @@ class parser::imp {
|
|||
return r;
|
||||
}
|
||||
|
||||
/** \brief Initialize \c m_builtins table with Lean builtin symbols that do not have notation associated with them. */
|
||||
void init_builtins() {
|
||||
m_builtins["\u22A4"] = True;
|
||||
m_builtins["\u22A5"] = False;
|
||||
}
|
||||
|
||||
unsigned parse_unsigned(char const * msg) {
|
||||
lean_assert(curr_is_nat());
|
||||
mpz pval = curr_num().get_numerator();
|
||||
|
@ -577,12 +570,7 @@ class parser::imp {
|
|||
}
|
||||
}
|
||||
else {
|
||||
auto it = m_builtins.find(id);
|
||||
if (it != m_builtins.end()) {
|
||||
return it->second;
|
||||
} else {
|
||||
throw parser_error(sstream() << "unknown identifier '" << id << "'", p);
|
||||
}
|
||||
throw parser_error(sstream() << "unknown identifier '" << id << "'", p);
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -1497,7 +1485,6 @@ public:
|
|||
m_found_errors = false;
|
||||
m_num_local_decls = 0;
|
||||
m_scanner.set_command_keywords(g_command_keywords);
|
||||
init_builtins();
|
||||
scan();
|
||||
}
|
||||
|
||||
|
|
|
@ -33,6 +33,7 @@ public:
|
|||
}
|
||||
virtual void display(std::ostream & out) const { out << m_val; }
|
||||
virtual format pp() const { return format(m_val); }
|
||||
virtual format pp(bool unicode) const { return pp(); }
|
||||
virtual unsigned hash() const { return m_val.hash(); }
|
||||
mpz const & get_num() const { return m_val; }
|
||||
};
|
||||
|
@ -118,6 +119,7 @@ public:
|
|||
}
|
||||
virtual void display(std::ostream & out) const { out << m_val; }
|
||||
virtual format pp() const { return format(m_val); }
|
||||
virtual format pp(bool unicode) const { return pp(); }
|
||||
virtual unsigned hash() const { return m_val.hash(); }
|
||||
mpz const & get_num() const { return m_val; }
|
||||
};
|
||||
|
@ -217,6 +219,7 @@ public:
|
|||
}
|
||||
virtual void display(std::ostream & out) const { out << m_val; }
|
||||
virtual format pp() const { return format(m_val); }
|
||||
virtual format pp(bool unicode) const { return pp(); }
|
||||
virtual unsigned hash() const { return m_val.hash(); }
|
||||
mpq const & get_num() const { return m_val; }
|
||||
};
|
||||
|
|
|
@ -70,14 +70,10 @@ expr mk_bool_type() { return Bool; }
|
|||
|
||||
// =======================================
|
||||
// Boolean values True and False
|
||||
static char const * g_true_u_str = "\u22A4";
|
||||
static char const * g_false_u_str = "\u22A5";
|
||||
static format g_true_u_fmt(g_true_u_str);
|
||||
static format g_false_u_fmt(g_false_u_str);
|
||||
static name g_true_name("true");
|
||||
static name g_false_name("false");
|
||||
static format g_true_fmt(g_true_name);
|
||||
static format g_false_fmt(g_false_name);
|
||||
static name g_true_u_name("\u22A4"); // ⊤
|
||||
static name g_false_u_name("\u22A5"); // ⊥
|
||||
class bool_value_value : public value {
|
||||
bool m_val;
|
||||
public:
|
||||
|
@ -85,17 +81,11 @@ public:
|
|||
virtual ~bool_value_value() {}
|
||||
virtual expr get_type() const { return Bool; }
|
||||
virtual name get_name() const { return m_val ? g_true_name : g_false_name; }
|
||||
virtual name get_unicode_name() const { return m_val ? g_true_u_name : g_false_u_name; }
|
||||
virtual bool operator==(value const & other) const {
|
||||
bool_value_value const * _other = dynamic_cast<bool_value_value const*>(&other);
|
||||
return _other && _other->m_val == m_val;
|
||||
}
|
||||
virtual format pp(bool unicode) const {
|
||||
if (unicode)
|
||||
return m_val ? g_true_u_fmt : g_false_u_fmt;
|
||||
else
|
||||
return m_val ? g_true_fmt : g_false_fmt;
|
||||
}
|
||||
virtual format pp() const { return pp(true); }
|
||||
bool get_val() const { return m_val; }
|
||||
};
|
||||
expr const True = mk_value(*(new bool_value_value(true)));
|
||||
|
|
|
@ -235,11 +235,17 @@ struct environment::imp {
|
|||
}
|
||||
|
||||
/** \brief Add a new builtin value to this environment */
|
||||
void add_builtin(expr const & n, environment const & env) {
|
||||
if (!is_value(n))
|
||||
throw invalid_builtin_value_declaration(env, n);
|
||||
check_name(to_value(n).get_name(), env);
|
||||
register_named_object(mk_builtin(n));
|
||||
void add_builtin(expr const & v, environment const & env) {
|
||||
if (!is_value(v))
|
||||
throw invalid_builtin_value_declaration(env, v);
|
||||
name const & n = to_value(v).get_name();
|
||||
check_name(n, env);
|
||||
name const & u = to_value(v).get_unicode_name();
|
||||
check_name(u, env);
|
||||
register_named_object(mk_builtin(v));
|
||||
if (u != n) {
|
||||
add_definition(u, to_value(v).get_type(), mk_constant(n), false, env);
|
||||
}
|
||||
}
|
||||
|
||||
/** \brief Add a new builtin value set to this environment */
|
||||
|
|
|
@ -101,11 +101,12 @@ expr_let::expr_let(name const & n, expr const & v, expr const & b):
|
|||
m_body(b) {
|
||||
}
|
||||
expr_let::~expr_let() {}
|
||||
name value::get_unicode_name() const { return get_name(); }
|
||||
bool value::normalize(unsigned num_args, expr const * args, expr & r) const { return false; }
|
||||
void value::display(std::ostream & out) const { out << get_name(); }
|
||||
bool value::operator==(value const & other) const { return typeid(*this) == typeid(other); }
|
||||
format value::pp() const { return format(get_name()); }
|
||||
format value::pp(bool unicode) const { return pp(); }
|
||||
format value::pp(bool unicode) const { return unicode ? format(get_unicode_name()) : pp(); }
|
||||
unsigned value::hash() const { return get_name().hash(); }
|
||||
expr_value::expr_value(value & v):
|
||||
expr_cell(expr_kind::Value, v.hash()),
|
||||
|
|
|
@ -205,6 +205,7 @@ public:
|
|||
virtual ~value() {}
|
||||
virtual expr get_type() const = 0;
|
||||
virtual name get_name() const = 0;
|
||||
virtual name get_unicode_name() const;
|
||||
virtual bool normalize(unsigned num_args, expr const * args, expr & r) const;
|
||||
virtual bool operator==(value const & other) const;
|
||||
virtual void display(std::ostream & out) const;
|
||||
|
|
Loading…
Reference in a new issue