08bc333705
Detected by https://clang.llvm.org/extra/clang-tidy/checks/performance/noexcept-move-constructor.html. This ensures constructions like `std::vector<object_ref>` call these operators instead of the copy ones, and do not do extra refcounting. Note that `optional` and `atomic` need something more complex using `noexcept()`, as they are templated.
112 lines
4.1 KiB
C++
112 lines
4.1 KiB
C++
/*
|
|
Copyright (c) 2013-2014 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
Author: Leonardo de Moura
|
|
*/
|
|
#pragma once
|
|
#include <utility>
|
|
#include <memory>
|
|
#include <vector>
|
|
#include "runtime/optional.h"
|
|
#include "util/rc.h"
|
|
#include "util/list.h"
|
|
#include "util/rb_map.h"
|
|
#include "util/name_set.h"
|
|
#include "util/name_map.h"
|
|
#include "kernel/expr.h"
|
|
#include "kernel/declaration.h"
|
|
|
|
#ifndef LEAN_BELIEVER_TRUST_LEVEL
|
|
/* If an environment E is created with a trust level > LEAN_BELIEVER_TRUST_LEVEL, then
|
|
we can add declarations to E without type checking them. */
|
|
#define LEAN_BELIEVER_TRUST_LEVEL 1024
|
|
#endif
|
|
|
|
namespace lean {
|
|
|
|
/* Wrapper for `Kernel.Diagnostics` */
|
|
class diagnostics : public object_ref {
|
|
public:
|
|
diagnostics(diagnostics const & other):object_ref(other) {}
|
|
diagnostics(diagnostics && other) noexcept:object_ref(std::move(other)) {}
|
|
explicit diagnostics(b_obj_arg o, bool b):object_ref(o, b) {}
|
|
explicit diagnostics(obj_arg o):object_ref(o) {}
|
|
~diagnostics() {}
|
|
void record_unfold(name const & decl_name);
|
|
};
|
|
|
|
/*
|
|
Store `Kernel.Diagnostics` (to be stored in `Kernel.Environment.diagnostics`) in `m_diag` IF
|
|
- `Kernel.Diagnostics.enable = true`
|
|
- `collect = true`. This is a minor optimization.
|
|
|
|
We use this class to ensure we don't waste time collecting information
|
|
that was not requested.
|
|
*/
|
|
class scoped_diagnostics {
|
|
diagnostics * m_diag;
|
|
public:
|
|
scoped_diagnostics(environment const & env, bool collect);
|
|
scoped_diagnostics(scoped_diagnostics const &) = delete;
|
|
scoped_diagnostics(scoped_diagnostics &&) = delete;
|
|
~scoped_diagnostics();
|
|
environment update(environment const &) const;
|
|
diagnostics * get() const { return m_diag; }
|
|
};
|
|
|
|
/* Wrapper for `Lean.Kernel.Environment` */
|
|
class LEAN_EXPORT environment : public object_ref {
|
|
friend class add_inductive_fn;
|
|
|
|
void check_name(name const & n) const;
|
|
void check_duplicated_univ_params(names ls) const;
|
|
|
|
void add_core(constant_info const & info);
|
|
void mark_quot_initialized();
|
|
environment add(constant_info const & info) const;
|
|
environment add_axiom(declaration const & d, bool check) const;
|
|
environment add_definition(declaration const & d, bool check) const;
|
|
environment add_theorem(declaration const & d, bool check) const;
|
|
environment add_opaque(declaration const & d, bool check) const;
|
|
environment add_mutual(declaration const & d, bool check) const;
|
|
environment add_quot() const;
|
|
environment add_inductive(declaration const & d) const;
|
|
public:
|
|
environment(environment const & other):object_ref(other) {}
|
|
environment(environment && other) noexcept:object_ref(std::move(other)) {}
|
|
explicit environment(b_obj_arg o, bool b):object_ref(o, b) {}
|
|
explicit environment(obj_arg o):object_ref(o) {}
|
|
~environment() {}
|
|
|
|
environment & operator=(environment const & other) { object_ref::operator=(other); return *this; }
|
|
environment & operator=(environment && other) noexcept { object_ref::operator=(std::move(other)); return *this; }
|
|
|
|
diagnostics get_diag() const;
|
|
environment set_diag(diagnostics const & diag) const;
|
|
|
|
bool is_quot_initialized() const;
|
|
|
|
/** \brief Return information for the constant with name \c n (if it is defined in this environment). */
|
|
optional<constant_info> find(name const & n) const;
|
|
|
|
/** \brief Return information for the constant with name \c n. Throws and exception if constant declaration does not exist in this environment. */
|
|
constant_info get(name const & n) const;
|
|
|
|
/** \brief Extends the current environment with the given declaration */
|
|
environment add(declaration const & d, bool check = true) const;
|
|
|
|
/** \brief Apply the function \c f to each constant */
|
|
void for_each_constant(std::function<void(constant_info const & d)> const & f) const;
|
|
|
|
/** \brief Pointer equality */
|
|
friend bool is_eqp(environment const & e1, environment const & e2) {
|
|
return e1.raw() == e2.raw();
|
|
}
|
|
};
|
|
|
|
void check_no_metavar_no_fvar(environment const & env, name const & n, expr const & e);
|
|
|
|
void initialize_environment();
|
|
void finalize_environment();
|
|
}
|