let commit _ =
        if !current <> "" then begin
                if !line = "" then begin
                        line := !current;
                        line_len := !current_len
                end else begin
                        line := (!line ^ " " ^ !current);
                        line_len := !line_len + 1 + !current_len
                end;
                current := "";
                current_len := 0
        end

This web site is published by Informatikbüro Gerd Stolpmann