Nmm_ocaml : Common_utils.class_of_tr

let class_of_tr_doc (doc : Doc_types.tr_doc) : t_doc_class =
        match doc.fld_doc_main with
        |Cu_doc_main_chs _ -> DOC_CHS
        |Cu_doc_main_secs _ -> DOC_SECS
        |Cu_doc_main_pars _ -> DOC_PARS
        |Cu_doc_main_blks _ -> DOC_BLKS