lean4-htt/src/api/name.cpp

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

Author: Leonardo de Moura
*/
#include "api/name.h"
#include "api/string.h"
#include "api/exception.h"
namespace lean {
void to_buffer(unsigned sz, lean_name const * ns, buffer<name> & r) {
    check_nonnull(ns);
    for (unsigned i = 0; i < sz; i++) {
        check_nonnull(ns[i]);
        r.push_back(to_name_ref(ns[i]));
    }
}
}

using namespace lean; // NOLINT

lean_bool lean_name_mk_anonymous(lean_name * r, lean_exception * ex) {
    LEAN_TRY;
    *r = of_name(new name());
    LEAN_CATCH;
}

lean_bool lean_name_mk_str(lean_name pre, char const * s, lean_name * r, lean_exception * ex) {
    LEAN_TRY;
    check_nonnull(pre);
    check_nonnull(s);
    *r = of_name(new name(to_name_ref(pre), s));
    LEAN_CATCH;
}

lean_bool lean_name_mk_idx(lean_name pre, unsigned i, lean_name * r, lean_exception * ex) {
    LEAN_TRY;
    check_nonnull(pre);
    name const & p = to_name_ref(pre);
    if (p.is_anonymous())
        throw lean::exception("invalid argument, prefix is an anonymous name");
    *r = of_name(new name(to_name_ref(pre), i));
    LEAN_CATCH;
}

void lean_name_del(lean_name n) {
    delete to_name(n);
}

lean_bool lean_name_is_anonymous(lean_name n) {
    return n && to_name_ref(n).is_anonymous();
}

lean_bool lean_name_is_str(lean_name n) {
    return n && to_name_ref(n).is_string();
}

lean_bool lean_name_is_idx(lean_name n) {
    return n && to_name_ref(n).is_numeral();
}

lean_bool lean_name_eq(lean_name n1, lean_name n2) {
    return n1 && n2 && to_name_ref(n1) == to_name_ref(n2);
}

lean_bool lean_name_lt(lean_name n1, lean_name n2) {
    return n1 && n2 && cmp(to_name_ref(n1), to_name_ref(n2)) < 0;
}

lean_bool lean_name_quick_lt(lean_name n1, lean_name n2) {
    return n1 && n2 && quick_cmp(to_name_ref(n1), to_name_ref(n2)) < 0;
}

lean_bool lean_name_get_prefix(lean_name n, lean_name * r, lean_exception * ex) {
    LEAN_TRY;
    check_nonnull(n);
    if (to_name_ref(n).is_anonymous())
        throw lean::exception("invalid argument, argument is an anonymous name");
    else if (to_name_ref(n).is_atomic())
        *r = of_name(new name());
    else
        *r = of_name(new name(to_name_ref(n).get_prefix()));
    LEAN_CATCH;
}

lean_bool lean_name_get_str(lean_name n, char const ** r, lean_exception * ex) {
    LEAN_TRY;
    check_nonnull(n);
    if (!lean_name_is_str(n))
        throw lean::exception("invalid argument, it is not a string name");
    *r = mk_string(to_name_ref(n).get_string());
    LEAN_CATCH;
}

lean_bool lean_name_get_idx(lean_name n, unsigned * r, lean_exception * ex) {
    LEAN_TRY;
    check_nonnull(n);
    if (!lean_name_is_idx(n))
        throw lean::exception("invalid argument, it is not an indexed name");
    *r = to_name_ref(n).get_numeral();
    LEAN_CATCH;
}

lean_bool lean_name_to_string(lean_name n, char const **r, lean_exception * ex) {
    LEAN_TRY;
    check_nonnull(n);
    *r = mk_string(to_name_ref(n).to_string());
    LEAN_CATCH;
}

lean_bool lean_list_name_mk_nil(lean_list_name * r, lean_exception * ex) {
    LEAN_TRY;
    *r = of_list_name(new list<name>());
    LEAN_CATCH;
}

lean_bool lean_list_name_mk_cons(lean_name h, lean_list_name t, lean_list_name * r, lean_exception * ex) {
    LEAN_TRY;
    check_nonnull(h);
    check_nonnull(t);
    *r = of_list_name(new list<name>(to_name_ref(h), to_list_name_ref(t)));
    LEAN_CATCH;
}

void lean_list_name_del(lean_list_name l) {
    delete to_list_name(l);
}

lean_bool lean_list_name_is_cons(lean_list_name l) {
    return l && !is_nil(to_list_name_ref(l));
}

lean_bool lean_list_name_eq(lean_list_name l1, lean_list_name l2) {
    return l1 && l2 && to_list_name_ref(l1) == to_list_name_ref(l2);
}

lean_bool lean_list_name_head(lean_list_name l, lean_name * r, lean_exception * ex) {
    LEAN_TRY;
    check_nonnull(l);
    if (!lean_list_name_is_cons(l))
        throw lean::exception("invalid argument, non-nil list expected");
    *r = of_name(new name(head(to_list_name_ref(l))));
    LEAN_CATCH;
}

lean_bool lean_list_name_tail(lean_list_name l, lean_list_name * r, lean_exception * ex) {
    LEAN_TRY;
    check_nonnull(l);
    if (!lean_list_name_is_cons(l))
        throw lean::exception("invalid argument, non-nil list expected");
    *r = of_list_name(new list<name>(tail(to_list_name_ref(l))));
    LEAN_CATCH;
}