external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
external doc_load : string -> mDOMDoc = "ml_doc_load"
-external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
-
external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
external node_get_attribute : mDOMNode -> mDOMString -> mDOMString option = "ml_node_get_attribute"
external node_get_attribute_ns : mDOMNode -> mDOMString -> mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
+external node_has_attribute : mDOMNode -> mDOMString -> bool = "ml_node_has_attribute"
+external node_has_attribute_ns : mDOMNode -> mDOMString -> mDOMString -> bool = "ml_node_has_attribute_ns"
external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"