Nmm_ocaml : Main.doc_of

let doc_of_axml (path : string) : Doc_types.tr_doc = 
        try
        let print_tokens = false in
        let axml:Xml.xml =
                match path with
                |"-" -> Xml_right.parse_stdin print_tokens
                |_ -> Xml_right.parse_file print_tokens path 
        in
        Doc_of_axml.f_tr_doc_of_axml axml
        with
        |Xml_right.Error e -> raise (Error (String.concat " " [path;"->";"Xml_right.Error:";e])) 
        |Doc_of_axml.Error e -> raise (Error (String.concat " " [path;"->";"Doc_of_axml.Error:";e]))