Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | remove spurious `puts'. |
|---|---|
| Timelines: | family | ancestors | descendants | both | dresden |
| Files: | files | file ages | folders |
| SHA1: |
db8044a91339e695190da5460cf98e3d |
| User & Date: | j 2013-01-16 15:57:34 |
Context
|
2013-01-16
| ||
| 16:07 | bug fix to get colors right even when output is piped through `less'. check-in: a745700c2a user: j tags: dresden | |
| 15:57 | remove spurious `puts'. check-in: db8044a913 user: j tags: dresden | |
| 15:50 | tentative bug fix. needs improvements. check-in: fe3d253157 user: j tags: dresden | |
Changes
Changes to fsl.
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
...
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
|
#-----------------------------------------------------------------------
set huge 1000000 ;# should not be reached by most projects ...
set rgxtime {^\d\d:\d\d:\d\d}
set rgxrev {\[([a-f\d]{10})([^\]]*)\]}
# very preliminary (need to learn a bit more Tcl, notably regarding
# how `exec' is parsing its input: all variables seem to be
# inserted as quoted strings in the call which prevents simple
# construction of the call). anyway, the purpose is to make
# revnum computation work for the case where `-R' is used in the call:
set rflag {}
regsub {^timeline} $params {} repo
regsub { \-t [^ ]*} $repo {} repo
regsub { \-n [^ ]*} $repo {} repo
regsub { \-showfiles} $repo {} repo
regsub { \-R } $repo {} repo
if {[string length $repo] > 0} { set rflag {-R} }
................................................................................
foreach line $lines {
if {[regexp $rgxtime $line]} {
incr revcnt
regexp $rgxrev $line rev
dict set revnums $rev [expr {$revcnt}]
}
}
puts $revnums
return $revnums
}
# --( Fossil )----------------------------------------------------------
proc fossil {args} {
|
|
|
|
>
>
<
|
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
...
506
507
508
509
510
511
512
513
514
515
516
517
518
519
|
#-----------------------------------------------------------------------
set huge 1000000 ;# should not be reached by most projects ...
set rgxtime {^\d\d:\d\d:\d\d}
set rgxrev {\[([a-f\d]{10})([^\]]*)\]}
# very preliminary (need to learn a bit more Tcl, notably regarding
# how `exec' is parsing its input: all variables seem to be
# inserted as quoted strings in the `exec' call which prevents simple
# construction of this call). anyway, the purpose is to make
# revnum computation work for the case where `-R' is specified on the
# command line:
#
set rflag {}
regsub {^timeline} $params {} repo
regsub { \-t [^ ]*} $repo {} repo
regsub { \-n [^ ]*} $repo {} repo
regsub { \-showfiles} $repo {} repo
regsub { \-R } $repo {} repo
if {[string length $repo] > 0} { set rflag {-R} }
................................................................................
foreach line $lines {
if {[regexp $rgxtime $line]} {
incr revcnt
regexp $rgxrev $line rev
dict set revnums $rev [expr {$revcnt}]
}
}
return $revnums
}
# --( Fossil )----------------------------------------------------------
proc fossil {args} {
|