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" |
︙ | ︙ |