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

feat(library/vm/vm_list): add to_list

Browse source
This commit is contained in:
Leonardo de Moura 2016-07-17 14:34:47 -04:00
parent be88270f09
commit e72bccb2e3
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/library/vm/vm_list.h
View file

@ -40,6 +40,17 @@ inline bool is_nil(vm_obj const & o) { return is_simple(o); }
inline vm_obj head(vm_obj const & o) { lean_assert(!is_nil(o)); return cfield(o, 0); }
inline vm_obj tail(vm_obj const & o) { lean_assert(!is_nil(o)); return cfield(o, 1); }
template<typename A, typename F>
list<A> to_list(vm_obj const & o, F const & fn) {
if (is_simple(o)) {
return list<A>();
} else if (is_constructor(o)) {
return list<A>(fn(cfield(o, 0)), to_list<A>(cfield(o, 1), fn));
} else {
lean_unreachable();
}
}
void initialize_vm_list();
void finalize_vm_list();
}