let rec get_cvs_files dir =
let files = List.map (fun ci -> ci.cvs_file) (status_dir dir) in
let subdirs = List.map (Filename.concat dir) (Ocvs_misc.get_cvs_directories dir) in
List.iter prerr_endline subdirs;
let ll = List.map get_cvs_files subdirs in
List.flatten (files :: ll)