Nmm_ocaml : Exml_utils.xml_list_of_ts_txt

let xml_list_of_ts_txt_units (doc_settings : t_doc_settings) (cref_table : t_cref_table) (nte_table : t_nte_table) (path : t_path) (a : ts_txt_units) : Xml.xml list =
        let rec aux (lst : tu_txt_unit list) (acc : Xml.xml list) =
                match lst with
                |[] -> acc
                |hd::tl ->
                        let xml_hd : Xml.xml = xml_of_tu_txt_unit doc_settings cref_table nte_table path hd in
                        aux tl (xml_hd::acc)
        in
        match a with
        | Cs_txt_units (b : tu_txt_unit list) -> List.rev (aux b [])