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
707
708
709
710
711
712
713
714
....
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
|
"
# `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"
error {}
} else {
# this should be `fsl -help'
puts $optlist
exit
}
}
................................................................................
# 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
}
exit
}
regsub $args $args0 {} opts
set version [lindex $args 0]
if { $version != "" } then {
set hash2num [computeRevnums {}]
dict for {key val} $hash2num {
|
|
>
<
|
>
|
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
....
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
|
"
# `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
}
}
................................................................................
# 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 {
|