michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(library/reducible): define opaque_type_checker using default_converter

Browse source
This commit is contained in:
Leonardo de Moura 2015-02-07 17:05:29 -08:00
parent e04250f0d8
commit b4f1029318
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/library/reducible.cpp
View file

@ -8,6 +8,7 @@ Author: Leonardo de Moura
#include "util/sstream.h" #include "util/sstream.h"
#include "kernel/environment.h" #include "kernel/environment.h"
#include "kernel/type_checker.h" #include "kernel/type_checker.h"
#include "kernel/default_converter.h"
#include "library/kernel_serializer.h" #include "library/kernel_serializer.h"
#include "library/scoped_ext.h" #include "library/scoped_ext.h"
#include "library/reducible.h" #include "library/reducible.h"
@ -138,12 +139,15 @@ std::unique_ptr<type_checker> mk_type_checker(environment const & env, bool rela
return mk_type_checker(env, name_generator(*g_tmp_prefix), relax_main_opaque, rb); return mk_type_checker(env, name_generator(*g_tmp_prefix), relax_main_opaque, rb);
} }
class opaque_converter : public default_converter {
public:
opaque_converter(environment const & env): default_converter(env, true, true) {}
virtual bool is_opaque(declaration const &) const { return true; }
};
std::unique_ptr<type_checker> mk_opaque_type_checker(environment const & env, name_generator const & ngen) { std::unique_ptr<type_checker> mk_opaque_type_checker(environment const & env, name_generator const & ngen) {
extra_opaque_pred pred([=](name const &) { return true; }); // everything is opaque return std::unique_ptr<type_checker>(new type_checker(env, ngen,
bool relax_main_opaque = false; std::unique_ptr<converter>(new opaque_converter(env))));
bool memoize = true;
return std::unique_ptr<type_checker>(new type_checker(env, ngen, mk_default_converter(env, relax_main_opaque,
memoize, pred)));
} }
static int mk_opaque_type_checker(lua_State * L) { static int mk_opaque_type_checker(lua_State * L) {