let get_cvslog params = let inch = Unix.open_process_in (Printf.sprintf "cvs log %s" params) in let s = string_of_in_channel inch in ignore(Unix.close_process_in inch); s