212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
if {$succ eq $cset} {
trouble fatal "Self-referencing changeset [$cset str]"
log write 2 cyclebreaker "LOOP changeset [$cset str] __________________"
array set nmap [$cset nextmap]
foreach r [lsort -dict [array names nmap]] {
foreach succrev $nmap($r) {
log write 2 cyclebreaker \
"LOOP * rev <$r> --> rev <$succrev> --> cs [project::rev strlist [project::rev ofrev $succrev]]"
}
}
}
}
}
if {$log} {
|
|
|
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
if {$succ eq $cset} {
trouble fatal "Self-referencing changeset [$cset str]"
log write 2 cyclebreaker "LOOP changeset [$cset str] __________________"
array set nmap [$cset nextmap]
foreach r [lsort -dict [array names nmap]] {
foreach succrev $nmap($r) {
log write 2 cyclebreaker \
"LOOP * rev <$r> --> rev <$succrev> --> cs [project::rev str [project::rev ofitem $succrev]]"
}
}
}
}
}
if {$log} {
|
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
|
# procedure to save the dependencies as well (encoded in the
# arcs).
return 1
}
proc ScheduleCandidates {} {
::variable mybottom
set mybottom [lsort -index 1 -integer [lsort -index 2 -integer [lsort -index 0 -dict $mybottom]]]
return
}
proc ShowPendingNodes {} {
if {[log verbosity?] < 10} return
::variable mybottom
log write 10 cyclebreaker "Pending..............................."
|
>
>
|
|
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
|
# procedure to save the dependencies as well (encoded in the
# arcs).
return 1
}
proc ScheduleCandidates {} {
::variable mybottom
# Sort by cset object name, lower border of timerange, at last
# by the upper border.
set mybottom [lsort -index 2 -integer [lsort -index 1 -integer [lsort -index 0 -dict $mybottom]]]
return
}
proc ShowPendingNodes {} {
if {[log verbosity?] < 10} return
::variable mybottom
log write 10 cyclebreaker "Pending..............................."
|