Nmm_ocaml : Txt_utils.lines_of_ts_txt

let lines_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) : string list =
        let lines_of_string_function : int -> string -> string list = (
                match path with
                | [] -> lines_of_string doc_settings
                | hd :: tl -> 
                        match hd with
                        | DSP_LINE_NODE _ -> lines_of_string_dsp
                        | _ -> lines_of_string doc_settings
        )
        in 
        lines_of_string_function (indent_of_path doc_settings path) (string_of_ts_txt_units doc_settings cref_table nte_table path a)