95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
proc readDiffs {fossilcmd} {
global difftxt debug
if {![info exists difftxt]} {
if {$debug} {
puts "# [list open $fossilcmd r]"
flush stdout
}
set in [open $fossilcmd r]
fconfigure $in -encoding utf-8
set difftxt [split [read $in] \n]
close $in
}
set N [llength $difftxt]
set ii 0
set nDiffs 0
set n1 0
set n2 0
array set widths {txt 3 ln 3 mkr 1}
|
>
|
|
|
|
>
>
>
>
|
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
proc readDiffs {fossilcmd} {
global difftxt debug
if {![info exists difftxt]} {
if {$debug} {
puts "# [list open $fossilcmd r]"
flush stdout
}
if {[catch {
set in [open $fossilcmd r]
fconfigure $in -encoding utf-8
set difftxt [split [read $in] \n]
close $in
} msg]} {
puts $msg
exit 1
}
}
set N [llength $difftxt]
set ii 0
set nDiffs 0
set n1 0
set n2 0
array set widths {txt 3 ln 3 mkr 1}
|