45 lines
1.2 KiB
C++
45 lines
1.2 KiB
C++
/*
|
|
Copyright (c) 2019 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
Author: Leonardo de Moura
|
|
*/
|
|
#include "library/module.h"
|
|
#include "library/compiler/util.h"
|
|
|
|
namespace lean {
|
|
struct llnf_code_ext : public environment_extension {
|
|
comp_decls m_code;
|
|
};
|
|
|
|
struct llnf_code_ext_reg {
|
|
unsigned m_ext_id;
|
|
llnf_code_ext_reg() { m_ext_id = environment::register_extension(std::make_shared<llnf_code_ext>()); }
|
|
};
|
|
|
|
static llnf_code_ext_reg * g_ext = nullptr;
|
|
static llnf_code_ext const & get_extension(environment const & env) {
|
|
return static_cast<llnf_code_ext const &>(env.get_extension(g_ext->m_ext_id));
|
|
}
|
|
static environment update(environment const & env, llnf_code_ext const & ext) {
|
|
return env.update(g_ext->m_ext_id, std::make_shared<llnf_code_ext>(ext));
|
|
}
|
|
|
|
environment save_llnf_code(environment const & env, comp_decls const & ds) {
|
|
llnf_code_ext ext = get_extension(env);
|
|
ext.m_code = append(ext.m_code, ds);
|
|
return update(env, ext);
|
|
}
|
|
|
|
comp_decls get_llnf_code(environment const & env) {
|
|
return get_extension(env).m_code;
|
|
}
|
|
|
|
void initialize_llnf_code() {
|
|
g_ext = new llnf_code_ext_reg();
|
|
}
|
|
|
|
void finalize_llnf_code() {
|
|
delete g_ext;
|
|
}
|
|
}
|