Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | small fix. |
|---|---|
| Timelines: | family | ancestors | descendants | both | dresden |
| Files: | files | file ages | folders |
| SHA1: |
34844683fd4e2b284def5eb6d4eca201 |
| User & Date: | j 2013-01-10 21:13:31 |
Context
|
2013-01-10
| ||
| 21:22 | minor tidy up. check-in: b7f21c3555 user: j tags: dresden | |
| 21:13 | small fix. check-in: 34844683fd user: j tags: dresden | |
| 20:51 | bug fix (skipping of single word remaining on last line of reformatted checkin message). check-in: b84e704411 user: j tags: dresden | |
Changes
Changes to fsl.
| ︙ | ︙ | |||
454 455 456 457 458 459 460 |
proc computeRevnums records {
#-----------------------------------------------------------------------
#generate a dictionary SHA1 (key) vs. chron. rev. number (value)
#-----------------------------------------------------------------------
set huge 1000000
set rgxtime {^\d\d:\d\d:\d\d}
set rgxrvsn {\[([a-f\d]{10})([^\]]*)\]}
| < > | 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 |
proc computeRevnums records {
#-----------------------------------------------------------------------
#generate a dictionary SHA1 (key) vs. chron. rev. number (value)
#-----------------------------------------------------------------------
set huge 1000000
set rgxtime {^\d\d:\d\d:\d\d}
set rgxrvsn {\[([a-f\d]{10})([^\]]*)\]}
catch {exec fossil time -n $huge } buf
set lizzy [split $buf \n]
set lizzy [unwrapTimeline $lizzy]
set revcnt -1
foreach line $lizzy {
if {[regexp $rgxtime $line]} {
incr revcnt
}
}
set iter -1
|
| ︙ | ︙ | |||
530 531 532 533 534 535 536 |
interact -o \n { send_user \r\n }
break
}
}
}
if {[interactive? $command] == false} {
| | | 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 |
interact -o \n { send_user \r\n }
break
}
}
}
if {[interactive? $command] == false} {
if {$command == "timeline" && [llength $lines] > 1} {
set revnums [computeRevnums $lines]
set lines [unwrapTimeline $lines]
set lines [reformTimeline $lines $revnums]
}
foreach line $lines {
if {$debug == true} {
puts -nonewline "IN: $line"
|
| ︙ | ︙ |