54 lines
2.2 KiB
C++
54 lines
2.2 KiB
C++
/*
|
|
Copyright (c) 2016 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
Author: Daniel Selsam
|
|
*/
|
|
#include "library/inductive_compiler/ginductive.h"
|
|
#include "library/inductive_compiler/add_decl.h"
|
|
#include "library/inductive_compiler/compiler.h"
|
|
#include "library/constructions/has_sizeof.h"
|
|
#include "library/constants.h"
|
|
|
|
namespace lean {
|
|
static name * g_inductive_compiler_fresh = nullptr; /* prefix for inductive compiler name generator */
|
|
|
|
environment add_inductive_declaration(environment const & old_env, options const & opts,
|
|
name_map<implicit_infer_kind> implicit_infer_map,
|
|
buffer<name> const & lp_names, buffer<expr> const & params,
|
|
buffer<expr> const & inds, buffer<buffer<expr> > const & intro_rules,
|
|
bool is_meta) {
|
|
name_generator ngen(*g_inductive_compiler_fresh);
|
|
ginductive_decl decl(old_env, 0, lp_names, params, inds, intro_rules);
|
|
environment env = add_inner_inductive_declaration(old_env, ngen, opts, implicit_infer_map, decl, is_meta);
|
|
return env;
|
|
}
|
|
|
|
environment add_structure_declaration_aux(environment const & old_env, options const &, buffer <name> const & lp_names,
|
|
buffer <expr> const & params, expr const & ind, expr const & intro_rule,
|
|
bool is_meta) {
|
|
buffer<expr> inds;
|
|
inds.push_back(ind);
|
|
|
|
buffer<buffer<expr> > intro_rules;
|
|
intro_rules.emplace_back();
|
|
intro_rules.back().push_back(intro_rule);
|
|
|
|
ginductive_decl decl(old_env, 0, lp_names, params, inds, intro_rules);
|
|
|
|
environment env = old_env;
|
|
if (!is_meta && local_name(ind) != get_has_sizeof_name())
|
|
env = mk_has_sizeof(env, local_name(ind));
|
|
|
|
return register_ginductive_decl(env, decl, ginductive_kind::BASIC);
|
|
}
|
|
|
|
void initialize_inductive_compiler_add_decl() {
|
|
g_inductive_compiler_fresh = new name("_ic_fresh");
|
|
register_name_generator_prefix(*g_inductive_compiler_fresh);
|
|
}
|
|
|
|
void finalize_inductive_compiler_add_decl() {
|
|
delete g_inductive_compiler_fresh;
|
|
}
|
|
}
|