equal
deleted
inserted
replaced
262 |
262 |
263 set tags [exec hg tags] |
263 set tags [exec hg tags] |
264 regsub -all "\r\n" $tags "\n" tags |
264 regsub -all "\r\n" $tags "\n" tags |
265 set lines [split $tags "\n"] |
265 set lines [split $tags "\n"] |
266 foreach f $lines { |
266 foreach f $lines { |
267 set f [regexp -all -inline {\S+} $f] |
267 regexp {(\S+)$} $f full |
268 set direct [lindex $f 0] |
268 regsub {\s+(\S+)$} $f "" direct |
269 set full [lindex $f 1] |
|
270 set sha [split $full ':'] |
269 set sha [split $full ':'] |
271 set tag [lindex $sha 1] |
270 set tag [lindex $sha 1] |
272 lappend tagids($direct) $tag |
271 lappend tagids($direct) $tag |
273 lappend idtags($tag) $direct |
272 lappend idtags($tag) $direct |
274 } |
273 } |