method elements dir = List.filter (fun ci -> (Filename.dirname ci.Ocvs_types.cvs_file) = dir) elements