Eskil

    set pdf [eskilprint %AUTO% -file $pdfFile -cpl $cpl -cpln $cpln \
                     -headleft $lfile -headright $rfile -headsize 10]
    set linesPerPage [$pdf getNLines]
    $pdf setTag change $::Pref(printColorChange)
    $pdf setTag new1   $::Pref(printColorNew1)
    $pdf setTag new2   $::Pref(printColorNew2)

    # Preprocess for page breaks in patch mode
    if {$::eskil($top,mode) eq "patch"} {
        set i 0
        set newWlines1 {}
        set newWlines2 {}
        foreach wline1 $wraplines1 wline2 $wraplines2 {
            if {[string match "-+-+-+-+-+-+-+-+-*" [lindex $wline1 0]]} {
                # This is a patch chunk header
                if {$i > 3} {
                    for {} {$i < $linesPerPage} {incr i} {
                        lappend newWlines1 {}
                        lappend newWlines2 {}
                    }
                    set i 0
                }
            }
            incr i
            if {$i >= $linesPerPage} {
                set i 0
            }
            lappend newWlines1 $wline1
            lappend newWlines2 $wline2
        }
        set wraplines1 $newWlines1
        set wraplines2 $newWlines2
    }

    set len1 [llength $wraplines1]
    set len2 [llength $wraplines2]

    set max [expr {$len1 > $len2 ? $len1 : $len2}]
    set npages [expr {($max + $linesPerPage - 1) / $linesPerPage}]
    $pdf configure -headnpages $npages