max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

feat(library/init/meta/environment): add environment.fingerprint API

Browse source
This commit is contained in:
Leonardo de Moura 2017-06-02 16:52:40 -07:00
parent 6af3084f9a
commit a1dc121eee
2 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
library/init/meta/environment.lean
View file

@ -87,6 +87,7 @@ meta constant structure_fields : environment → name → option (list name)
occurring in instances of type classes tagged with the attribute `attr_name`.
Example: [algebra] -/
meta constant get_class_attribute_symbols : environment → name → name_set
meta constant fingerprint : environment → nat
open expr
meta constant unfold_untrusted_macros : environment → expr → expr

6
src/library/vm/vm_environment.cpp
View file

@ -14,6 +14,7 @@ Author: Leonardo de Moura
#include "library/class.h"
#include "library/projection.h"
#include "library/util.h"
#include "library/fingerprint.h"
#include "library/relation_manager.h"
#include "library/inductive_compiler/ginductive.h"
#include "library/vm/vm_nat.h"
@ -251,6 +252,10 @@ vm_obj environment_get_class_attribute_symbols(vm_obj const & env, vm_obj const
return to_obj(get_class_attribute_symbols(to_env(env), to_name(n)));
}
vm_obj environment_fingerprint(vm_obj const & env) {
return mk_vm_nat(mpz(get_fingerprint(to_env(env))));
}
void initialize_vm_environment() {
DECLARE_VM_BUILTIN(name({"environment", "mk_std"}), environment_mk_std);
DECLARE_VM_BUILTIN(name({"environment", "trust_lvl"}), environment_trust_lvl);
@ -280,6 +285,7 @@ void initialize_vm_environment() {
DECLARE_VM_BUILTIN(name({"environment", "unfold_untrusted_macros"}), environment_unfold_untrusted_macros);
DECLARE_VM_BUILTIN(name({"environment", "structure_fields"}), environment_structure_fields);
DECLARE_VM_BUILTIN(name({"environment", "get_class_attribute_symbols"}), environment_get_class_attribute_symbols);
DECLARE_VM_BUILTIN(name({"environment", "fingerprint"}), environment_fingerprint);
}
void finalize_vm_environment() {