type patch_raw = string listand fileinfo = ((int * int) * hunk) listtype patchline = | Context of string| Minus of string| Plus of string
type stat = {mutable nb_minus : int;mutable nb_plus : int;
}val string_of_stat : stat -> stringval parse_hunk : string list -> patchline listval modified_lines : fileinfo -> int listtype edition_cmd = | RemoveLines of int list| PreAddAt of int * string list| PostAddAt of int * string list