Nmm_ocaml : Common_utils.par_restated_of_tr

let par_restated_of_tr_id (doc_settings : t_doc_settings) (cref_table : t_cref_table) (path : t_path) (id : tr_id) : (Doc_types.tr_par_std * t_path) option =
        match reference_of_ts_c_ref cref_table path (Cs_c_ref id) with
        |None -> let _ : unit = IO.print_warning (String.concat "" [
                        "WARNING: id \'";string_of_tr_id id;
                        "\' referenced in ";
                        string_of_path doc_settings path;
                        " does not exist or is out of scope.";
                ]) in None
        |Some (table_id, table_path, Cref_element_par par) ->
                Some (par_restated_of_tr_par par, table_path)
        |_ -> let _ : unit = IO.print_warning (String.concat "" [
                                "WARNING: id \'";
                                string_of_tr_id id;
                                "\' does not belong to a paragraph.";
                ]) in None