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