MymsMan
/
webif
forked from hummypkg/webif
1
0
Fork 0
Code Pull Requests Activity

Tweak debug code formatting

This commit is contained in:
prpr 2023-11-02 11:05:26 +00:00
parent 8e80e86d70
commit 33c2400cfc
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
webif/lib/rsv.class
View File

@ -1592,9 +1592,7 @@ proc {rsv evaluate_conflicts} {events type thresh {debug 0}} {
set uslot 0
}
if {$debug} {
puts " -> into slot $uslot"
}
if {$debug} { puts " -> into slot $uslot" }
# Insert event into slot
lset slots $uslot [list $sid $end]
}
@ -1604,9 +1602,7 @@ proc {rsv evaluate_conflicts} {events type thresh {debug 0}} {
proc {rsv newconflicts} {{thresh 1} {type "list"} {debug 0}} {
set events [lsort -index 0 -integer [rsv allevents]]
set conflicts [rsv evaluate_conflicts $events $type $thresh $debug]
if {$debug} {
puts "<br>\nConflicts: $conflicts"
}
if {$debug} { puts "<br>\nConflicts: $conflicts" }
if {$type eq "map"} { return $conflicts }
return [dict keys $conflicts]
}
@ -1616,9 +1612,7 @@ proc {rsv checkconflict} {s d thresh {debug 0}} {
lappend events [list $s $($s + $d) 0 0 -1]
set events [lsort -index 0 -integer $events]
set conflicts [rsv evaluate_conflicts $events 'list' $thresh $debug]
if {$debug} {
puts "<br>\nConflicts: $conflicts"
}
if {$debug} { puts "<br>\nConflicts: $conflicts" }
set ret {}
if {![dict exists $conflicts "-1"]} { return $ret }