Show More
@@ -196,6 +196,7 b' proc parsecommit {id contents listed old' | |||||
196 | } |
|
196 | } | |
197 | foreach line [split $contents "\n"] { |
|
197 | foreach line [split $contents "\n"] { | |
198 | if {$inhdr} { |
|
198 | if {$inhdr} { | |
|
199 | set line [split $line] | |||
199 | if {$line == {}} { |
|
200 | if {$line == {}} { | |
200 | set inhdr 0 |
|
201 | set inhdr 0 | |
201 | } else { |
|
202 | } else { | |
@@ -203,11 +204,11 b' proc parsecommit {id contents listed old' | |||||
203 | if {$tag == "author"} { |
|
204 | if {$tag == "author"} { | |
204 | set x [expr {[llength $line] - 2}] |
|
205 | set x [expr {[llength $line] - 2}] | |
205 | set audate [lindex $line $x] |
|
206 | set audate [lindex $line $x] | |
206 | set auname [lrange $line 1 [expr {$x - 1}]] |
|
207 | set auname [join [lrange $line 1 [expr {$x - 1}]]] | |
207 | } elseif {$tag == "committer"} { |
|
208 | } elseif {$tag == "committer"} { | |
208 | set x [expr {[llength $line] - 2}] |
|
209 | set x [expr {[llength $line] - 2}] | |
209 | set comdate [lindex $line $x] |
|
210 | set comdate [lindex $line $x] | |
210 | set comname [lrange $line 1 [expr {$x - 1}]] |
|
211 | set comname [join [lrange $line 1 [expr {$x - 1}]]] | |
211 | } |
|
212 | } | |
212 | } |
|
213 | } | |
213 | } else { |
|
214 | } else { |
General Comments 0
You need to be logged in to leave comments.
Login now