Fossil Wrapper

Check-in [36a8a1862c]
Login

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: 36a8a1862c51ac1e0cf358735bcb3ad1ee4994f6
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

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"
         error {}
      } else {
         # this should be `fsl -help'
         puts $optlist
         exit
      }
   }








|







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
1016
1017

1018
1019
1020
1021
1022
1023
1024
   # 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 {







>



<
|
>







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 {