/* Copyright (c) 2014 Microsoft Corporation. All rights reserved. Released under Apache 2.0 license as described in the file LICENSE. Author: Leonardo de Moura */ #include #include #include "util/name_set.h" #include "library/protected.h" #include "library/module.h" namespace lean { struct protected_ext : public environment_extension { name_set m_protected; // protected declarations }; struct protected_ext_reg { unsigned m_ext_id; protected_ext_reg() { m_ext_id = environment::register_extension(std::make_shared()); } }; static protected_ext_reg g_ext; static protected_ext const & get_extension(environment const & env) { return static_cast(env.get_extension(g_ext.m_ext_id)); } static environment update(environment const & env, protected_ext const & ext) { return env.update(g_ext.m_ext_id, std::make_shared(ext)); } static std::string g_prt_key("prt"); environment add_protected(environment const & env, name const & n) { protected_ext ext = get_extension(env); ext.m_protected.insert(n); environment new_env = update(env, ext); return module::add(new_env, g_prt_key, [=](serializer & s) { s << n; }); } static void protected_reader(deserializer & d, module_idx, shared_environment & senv, std::function &, std::function &) { name n; d >> n; senv.update([=](environment const & env) -> environment { protected_ext ext = get_extension(env); ext.m_protected.insert(n); return update(env, ext); }); } register_module_object_reader_fn g_protected_reader(g_prt_key, protected_reader); bool is_protected(environment const & env, name const & n) { return get_extension(env).m_protected.contains(n); } }