-static std::unordered_set<xml_tree::tag_t>*& HSET(value x)
-{
- return Obj_val<std::unordered_set<xml_tree::tag_t>*>(x);
-}
-
-
-NoAlloc extern "C" value caml_unordered_set_length(value hset)
-{
- return (Val_int((HSET(hset))->size()));
-}
-
-extern "C" value caml_unordered_set_alloc(value unit)
-{
- CAMLparam1(unit);
- CAMLlocal1(hset);
- hset = sxsi_alloc_custom<std::unordered_set<xml_tree::tag_t>*>();
- HSET(hset) = new std::unordered_set<xml_tree::tag_t>();
- CAMLreturn (hset);
-}
-
-NoAlloc extern "C" value caml_unordered_set_set(value set, value v)
-{
- HSET(set)->insert(TAG(v));
- return (Val_unit);
-}
-
-extern "C" value caml_xml_tree_save(value tree, value fd, value prefix)