/*
Copyright (c) 2013 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.

Author: Leonardo de Moura
*/
#include <utility>
#include <string>
#include <lean/sstream.h>
#include <lean/hash.h>
#include "library/private.h"
#include "library/module.h"

namespace lean {
extern "C" object* lean_mk_private_prefix(object *);
extern "C" object* lean_mk_private_name(object*, object*);
extern "C" object* lean_is_private_name(object*);
extern "C" object* lean_private_to_user_name(object*);
extern "C" object* lean_private_prefix(object*);

pair<environment, name> mk_private_prefix(environment const & env) {
    pair_ref<environment, name> r(lean_mk_private_prefix(env.to_obj_arg()));
    return mk_pair(r.fst(), r.snd());
}

pair<environment, name> mk_private_name(environment const & env, name const & n) {
    pair_ref<environment, name> r(lean_mk_private_name(env.to_obj_arg(), n.to_obj_arg()));
    return mk_pair(r.fst(), r.snd());
}

optional<name> private_to_user_name(name const & n) {
    return to_optional<name>(lean_private_to_user_name(n.to_obj_arg()));
}

bool is_private(name const & n) {
    return lean_is_private_name(n.to_obj_arg());
}

optional<name> get_private_prefix(name const & n) {
    return to_optional<name>(lean_private_prefix(n.to_obj_arg()));
}

void initialize_private() {
}

void finalize_private() {
}
}