helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/minidom.ml

   1
   2 type mDOMString
   3 type mDOMDoc
   4 type mDOMNode
   5 type mDOMAttr
   6 type mDOMEntity
   7
   8 external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
   9 external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
  10 external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
  11
  12 external doc_load : string -> mDOMDoc = "ml_doc_load"
  13 external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
  14
  15 external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
  16 external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
  17
  18 external doc_add_entity : mDOMDoc -> mDOMString -> mDOMString -> mDOMEntity = "ml_doc_add_entity"
  19 external doc_get_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_entity"
  20 external doc_get_predefined_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
  21 external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
  22
  23 external node_is_text  : mDOMNode -> bool = "ml_node_is_text"
  24 external node_is_element : mDOMNode -> bool = "ml_node_is_element"
  25 external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
  26 external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
  27 external node_get_type : mDOMNode -> int = "ml_node_get_type"
  28 external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
  29 external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
  30 external node_get_attribute : mDOMNode -> mDOMString -> mDOMString option = "ml_node_get_attribute"
  31 external node_get_attribute_ns : mDOMNode -> mDOMString -> mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
  32 external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
  33 external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
  34 external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
  35 external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
  36 external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
  37 external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
  38 external node_is_first : mDOMNode -> bool = "ml_node_is_first"
  39 external node_is_last : mDOMNode -> bool = "ml_node_is_last"
  40
  41 external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
  42 external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
  43 external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
  44 external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
  45 external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
  46 external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
  47
  48 let rec node_list_of_node_first =
  49   function None -> []
  50   |        Some node -> node :: (node_list_of_node_first (node_get_next_sibling node))
  51
  52 let rec attr_list_of_attr_first =
  53   function None -> []
  54   |        Some attr -> attr :: (attr_list_of_attr_first (attr_get_next_sibling attr))
  55
  56 let node_get_children node =
  57   (node_list_of_node_first (node_get_first_child node))
  58
  59 let node_get_attributes node =
  60   (attr_list_of_attr_first (node_get_first_attribute node))
  61