method comparison_function col =
match col with
| 1 -> fun ci1 -> fun ci2 ->
compare
(Ocvs_types.string_of_status ci1.Ocvs_types.cvs_status)
(Ocvs_types.string_of_status ci2.Ocvs_types.cvs_status)
| 2 -> fun ci1 -> fun ci2 ->
compare ci1.Ocvs_types.cvs_work_rev ci2.Ocvs_types.cvs_work_rev
| 3 -> fun ci1 -> fun ci2 ->
compare ci1.Ocvs_types.cvs_rep_rev ci2.Ocvs_types.cvs_rep_rev
| 4 -> fun ci1 -> fun ci2 ->
compare ci1.Ocvs_types.cvs_date_string ci2.Ocvs_types.cvs_date_string
| _ -> fun ci1 -> fun ci2 ->
compare ci1.Ocvs_types.cvs_file ci2.Ocvs_types.cvs_file