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
461
462
463
464
465
466
467
468
469
470
471
472
473
...
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
|
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})([^\]]*)\]}
set revcnt -1
catch {exec fossil time -n $huge } buf
set lizzy [split $buf \n]
set lizzy [unwrapTimeline $lizzy]
foreach line $lizzy {
if {[regexp $rgxtime $line]} {
incr revcnt
}
}
set iter -1
................................................................................
interact -o \n { send_user \r\n }
break
}
}
}
if {[interactive? $command] == false} {
if {$command == "timeline"} {
set revnums [computeRevnums $lines]
set lines [unwrapTimeline $lines]
set lines [reformTimeline $lines $revnums]
}
foreach line $lines {
if {$debug == true} {
puts -nonewline "IN: $line"
|
<
>
|
|
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
...
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
|
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
................................................................................
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"
|