Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | cosmetics. |
---|---|
Timelines: | family | ancestors | descendants | both | dresden |
Files: | files | file ages | folders |
SHA1: |
010ef7878766dfc62188b9fd2154c64b |
User & Date: | j 2013-07-29 14:42:31 |
Context
2013-07-29
| ||
14:50 | minor. check-in: 23a1c9b4dd user: j tags: dresden | |
14:42 | cosmetics. check-in: 010ef78787 user: j tags: dresden | |
13:00 | cosmetics. check-in: 9c0ef09819 user: j tags: dresden | |
Changes
Changes to fsl.
︙ | ︙ | |||
555 556 557 558 559 560 561 | # further `diff' arguments. # This call is mapped to # # fsl (g)di ... -r sha1_n (--to sha1_m) ... # # where `sha1_n, sha1_m' are the sha1 hashes of the respective checkins. # ------------------------------------------------------------------------ | | | | | | | < | | > | < < | > | | 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 | # further `diff' arguments. # This call is mapped to # # fsl (g)di ... -r sha1_n (--to sha1_m) ... # # where `sha1_n, sha1_m' are the sha1 hashes of the respective checkins. # ------------------------------------------------------------------------ # map this interceptor command to `fossil (g)di'. we use `di' instead of # `diff' since only the former will trigger the `diff' filter: regsub {^(g?d)f} $params {\1i} params # extract the revison number information from `params'. contrary to # `fossil' it is acceptable to omit blanks between `-r' and `n:m': set rgxopt { \-r[[:blank:]]*} set rgxrevnum {[[:digit:]]+(:[[:digit:]]+)?} append rgxopt $rgxrevnum # without `-r' argument we can return already: if {![regexp $rgxopt $params revarg]} {return $params} set hash2num [computeRevnums {}] # exchange keys and values in the above dictonary. at the same time, # strip the square brackets around the hash value: dict for {key val} $hash2num { regexp {[a-f\d]{10}} $key sha1 dict set num2hash $val $sha1 } # translate rev. numbers to sha1 hashes and construct the # required `diff' arguments: regexp $rgxrevnum $revarg numbers set revs [split $numbers :] set cnt 0 set fromto [list --from --to] set ftopt { } foreach rev $revs { append ftopt [lindex $fromto $cnt] append ftopt " [dict get $num2hash $rev] " incr cnt } set ftopt [string trimright $ftopt] #replace `-r n:m' by the constructed `diff' arguments: regsub $revarg $params $ftopt params return $params } proc intercept {params} { set command [first $params] if {[interceptor? $command]} { |
︙ | ︙ |