/*
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;
}
}