with
| Some x -> Some (new o_mDOMString x)
| None -> None
+ method has_attribute (name : o_mDOMString) =
+ Minidom.node_has_attribute node (name#get_dom_string)
+ method has_attribute_ns (name : o_mDOMString) (uri : o_mDOMString) =
+ Minidom.node_has_attribute_ns node (name#get_dom_string) (uri#get_dom_string)
method get_content =
match Minidom.node_get_content node with
| Some x -> Some (new o_mDOMString x)