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