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 {
|
| ︙ | ︙ |