Fossil Wrapper

      puts ""
   }
}

interceptor st:status {
   return [lreplace $params 0 0 status]
}

interceptor clon:clone {
# ------------------------------------------------------------------------
# Catch the case where `clone' is issued without the mandatory
# trailing FILENAME argument. If this happens a default name for the
# repo and checkout directory is constructed, a checkout directory is
# created (if not yet existing), and the repo is cloned and opened in
# this checkout directory. the name generation strategy is roughly as
# follows (for details, see the source code):
#
#  * determine basename of URI
#  * strip leading `.' and trailing `.'-separated extender from the basename
#  * trim leading and trailing blanks, if any
#  * replace remaining blanks by underscore
#  * append "-fsl"
#  * use resulting name as checkout directory and create it
#  * clone repo into this directory under the invariant name `.fslrepo'
#
# Otherwise (if FILENAME is provided) just pass the call unmodified to
# fossil. 
# ------------------------------------------------------------------------
   set defaultName .fslrepo
   set params [lreplace $params 0 0 clone]
   set hasOpts [regexp {^-} [lindex $params 1]]
   if {!$hasOpts && [llength $params] == 3} {
      # we do not want to parse all possible `clone' options properly,
      # but this case (a call without options but two arguments...)
      # clearly should be passed through to `fossil' unchanged.
      return $params
   } elseif {[catch {exec fossil {*}$params} msg]} {
      # there might be other reasons for failure (e.g. a typo in
      # URI specification in a call using options (that thus
      # reaches this block) ...), but we confidentally assume that
      # an error signals omission of the FILENAME argument expected
      # by `clone' and thus the intention to automaticlly
      # "clone+open" the repo using the described naming strategy.
      set uri [lindex $params end]
      set remoteName [lindex [file split $uri] end]
      set checkout [split [string trimleft $remoteName .] .]
      if {[llength $checkout] > 1} {
         set checkout [lreplace $checkout end end]
      } 
      set checkout [string trim [join $checkout]]
      regsub {(.*)-fsl$} $checkout {\1} checkout
      regsub -all { } $checkout {_} checkout
      append checkout -fsl
      if {[file exists $checkout]} {
         puts "$checkout: file exists"
         exit 1
      }
      if {[catch {file mkdir $checkout} msg]} {
         puts $msg
         exit 1
      } else {
         cd $checkout
         lappend params $defaultName
         puts "cloning to ./$checkout ..."
         if {[catch {exec fossil {*}$params} msg]} {
            puts $msg
            exit 1
         } else {
            if {[catch {exec fossil open $defaultName} msg]} {
               puts $msg
               exit 1
            }
         }
      } 
   } else { return $params }
}

interceptor s:show {
# ------------------------------------------------------------------------
# Provide repository status information the hg/svn way. 
# ------------------------------------------------------------------------
   set afilter ::config::fslrc::status