+ let module M = Minidom in
+ print_string ("jump: " ^
+ (match
+ M.node_get_attribute_ns node
+ (M.mDOMString_of_string "xlink")
+ (M.mDOMString_of_string "href")
+ with
+ None -> "DOES NOT WORKS (if you have clicked on the hyperlink)!!!!!"
+ | Some s -> M.string_of_mDOMString s
+ ) ^ "\n");
+ print_string ("jump: " ^
+ (match
+ M.node_get_attribute node
+ (M.mDOMString_of_string "href")
+ with
+ None -> "DOES NOT WORKS (if you have clicked on the hyperlink)!!!!!"
+ | Some s -> M.string_of_mDOMString s
+ ) ^ "\n");
+ flush stdout