- 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");