Fossil Wrapper

# `fossil' command, simply print its body, otherwise only print any leading
# comment block found in the interceptor's definition and append the
# help output for the corresponding `fossil' command.
# ------------------------------------------------------------------------
    set expansion [expand [lrange $params 1 end] 1]
    set command   [first $expansion]

    # compile a list of the `fossil' commands (ignoring the `test' commands):
    # the dynamic variant would be to ask `fossil' each time but this
    # increases latency of `fsl' somewhat (but only by about 10%
    # on my machine...):
    #
    #    catch {exec fossil help --all} foscom
    #
    # so for now we use a static list (resulting from a dump of the above
    # command:

    set foscom {
      3-way-merge    clone          help           redo           sync         
      add            close          http           remote-url     tag          
      addremove      co             import         rename         tarball      
      all            commit         info           reparent       ticket       
      amend          configuration  init           revert         timeline     
      annotate       dbstat         leaves         rm             ui           
      artifact       deconstruct    ls             rss            undo         
      attachment     delete         md5sum         scrub          unpublished  
      bisect         descendants    merge          search         unset        
      blame          diff           mv             server         unversioned  
      branch         email          new            settings       update       
      bundle         export         open           sha1sum        user         
      cache          extras         praise         sha3sum        uv           
      cat            finfo          publish        shell          version      
      cgi            forget         pull           sql            whatis       
      changes        fts-config     purge          sqlar          wiki         
      checkout       gdiff          push           sqlite3        zip          
      ci             grep           rebuild        stash        
      clean          hash-policy    reconstruct    status       
    }

    # regularize foscom: bracket all commands with _single_ blanks
    # (including first and last one ...) in order to facilitate further
    # processing:
    regsub -all {^|\n|$} $foscom { } foscom
    regsub -all {[ ]+} $foscom { } foscom