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 |
#-----------------------------------------------------------------------
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
| | | | > > < | 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 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} }
catch {exec fossil timeline -n $huge $rflag $repo} timeline
set lines [split $timeline \n]
set revcnt 0
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} {
|
| ︙ | ︙ |