56 lines
2.1 KiB
C++
56 lines
2.1 KiB
C++
/*
|
|
Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
Author: Leonardo de Moura
|
|
*/
|
|
#include <string>
|
|
#include "library/class.h"
|
|
|
|
namespace lean {
|
|
uint8 is_class_core(object* env, object* n);
|
|
uint8 is_instance_core(object* env, object* n);
|
|
object* get_class_instances_core(object* env, object* n);
|
|
uint8 is_out_param_core(object* e);
|
|
uint8 has_out_params_core(object* env, object* n);
|
|
object* add_instance_core(object* env, object* n);
|
|
|
|
bool is_class_out_param(expr const & e) { return is_out_param_core(e.to_obj_arg()); }
|
|
bool has_class_out_params(environment const & env, name const & c) { return has_out_params_core(env.to_obj_arg(), c.to_obj_arg()); }
|
|
bool is_class(environment const & env, name const & c) { return is_class_core(env.to_obj_arg(), c.to_obj_arg()); }
|
|
bool is_instance(environment const & env, name const & i) { return is_instance_core(env.to_obj_arg(), i.to_obj_arg()); }
|
|
names get_class_instances(environment const & env, name const & c) { return names(get_class_instances_core(env.to_obj_arg(), c.to_obj_arg())); }
|
|
|
|
environment add_instance(environment const & env, name const & n, bool persistent) {
|
|
if (!persistent) throw exception("local instances have been disabled");
|
|
return get_except_value<environment>(add_instance_core(env.to_obj_arg(), n.to_obj_arg()));
|
|
}
|
|
|
|
static name * g_anonymous_inst_name_prefix = nullptr;
|
|
|
|
name const & get_anonymous_instance_prefix() {
|
|
return *g_anonymous_inst_name_prefix;
|
|
}
|
|
|
|
name mk_anonymous_inst_name(unsigned idx) {
|
|
return g_anonymous_inst_name_prefix->append_after(idx);
|
|
}
|
|
|
|
bool is_anonymous_inst_name(name const & n) {
|
|
// remove mangled macro scopes
|
|
auto n2 = n.get_root();
|
|
if (!n2.is_string()) return false;
|
|
return strncmp(n2.get_string().data(),
|
|
g_anonymous_inst_name_prefix->get_string().data(),
|
|
strlen(g_anonymous_inst_name_prefix->get_string().data())) == 0;
|
|
}
|
|
|
|
|
|
void initialize_class() {
|
|
g_anonymous_inst_name_prefix = new name("_inst");
|
|
}
|
|
|
|
void finalize_class() {
|
|
delete g_anonymous_inst_name_prefix;
|
|
}
|
|
}
|