Nmm_ocaml : Main.doc_of

let doc_of_nmm (options : Common_utils.t_axml_options) (path : string) : Doc_types.tr_doc =
        try
        match path with
        |"-" -> Doc_of_nmm.doc_of_nmm_stdin_with_tagger (Tags.tagger_of_path_opt options.tags)
        |_ -> Doc_of_nmm.doc_of_nmm_file_with_tagger (Tags.tagger_of_path_opt options.tags) path
        with 
        |Doc_of_nmm.Error e -> raise (Error (String.concat " " [path;"->";"Doc_of_nmm.Error:";e]))