Show More
| @@ -264,9 +264,8 b' proc readrefs {} {' | |||||
| 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 | |
General Comments 0
You need to be logged in to leave comments.
Login now