Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | minor. |
---|---|
Timelines: | family | ancestors | descendants | both | grep |
Files: | files | file ages | folders |
SHA1: |
36a8a1862c51ac1e0cf358735bcb3ad1 |
User & Date: | j 2019-07-21 12:26:41 |
Context
2019-07-21
| ||
12:27 | merged `grep'. check-in: 8df6e8d8f7 user: j tags: dresden | |
12:26 | minor. Leaf check-in: 36a8a1862c user: j tags: grep | |
10:15 | added new `setmtime' option to list of options known by the `up' interceptor. think: could this separate handling of options be avoided? check-in: 917d7d9d56 user: j tags: grep | |
Changes
Changes to fsl.
︙ | ︙ | |||
700 701 702 703 704 705 706 | " # `getoptions' raises error even when called with `-help'. this is # irritating, so we work around it ... if { [catch {::cmdline::getoptions argv $knownoptions $usage} optlist] } { if { [string length $argv] } { puts "[lindex $argv 0]: invalid option, see `fsl -help'. Giving up" | | | 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 | " # `getoptions' raises error even when called with `-help'. this is # irritating, so we work around it ... if { [catch {::cmdline::getoptions argv $knownoptions $usage} optlist] } { if { [string length $argv] } { puts "[lindex $argv 0]: invalid option, see `fsl -help'. Giving up" exit 1 } else { # this should be `fsl -help' puts $optlist exit } } |
︙ | ︙ | |||
1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 | # irritating, so we work around it ... set args0 [lreplace $params 0 0] set cmd [first $params] set args $args0 if { [catch {::cmdline::getoptions args $knownoptions $usage} optlist] } { if { [string length $args] } { puts "[lindex $args 0]: invalid option, see `fossil help up'. Giving up" } else { # in case `fsl up -help' is issued ... puts $optlist | > < | > | 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 | # irritating, so we work around it ... set args0 [lreplace $params 0 0] set cmd [first $params] set args $args0 if { [catch {::cmdline::getoptions args $knownoptions $usage} optlist] } { if { [string length $args] } { puts "[lindex $args 0]: invalid option, see `fossil help up'. Giving up" exit 1 } else { # in case `fsl up -help' is issued ... puts $optlist exit } } regsub $args $args0 {} opts set version [lindex $args 0] if { $version != "" } then { set hash2num [computeRevnums {}] dict for {key val} $hash2num { |
︙ | ︙ |