Fossil Wrapper

         regexp $rgxrev $line rev
         dict set revnums $rev [expr {$revcnt}]
      }
   } 

   return $revnums
}


























# --( Fossil )----------------------------------------------------------

proc fossil {args} {
    global dbglvl
    set dbglvl 0

    # check for presence of a `--debug n' option, if present, it
    # defines the debug level which controls how much additional
    # output is generated. after extraction of the debug level the
    # option and its value are eliminated from the argument string
    # since it otherwise would be interpreted as an (unknown) command
    # during further processing.

    set dbgpat {\--debug[[:blank:]]+([[:digit:]]+[ ]*)}
    regexp $dbgpat $args dum dbglvl
    regsub $dbgpat $args "" args

    set candidate [first $args]; # candidate for expansion

    if {$dbglvl > 0} { puts "*** provided argument list: $args" }

    # Alias expansion and command interception:
    set params [intercept [expand $args]]
................................................................................
    }

    log_user $prior_log;              # revert Expect settings
    return [spawned_errno $spawn_id]; # return with fossil error code
}

# --( Entry )-----------------------------------------------------------


config::init ~/.fslrc
exit [fossil {*}$argv]

         regexp $rgxrev $line rev
         dict set revnums $rev [expr {$revcnt}]
      }
   } 

   return $revnums
}

proc preparse argv {
   # purpose: preprocessing of provided argument string by looking
   # for `fsl' specific option/value arguments, which are eliminated
   # from the argv string after the corresponding actions are performed.
   # currently understands the following options:
   #
   #    --debug n : set global variable `dbglvl' to value n
   # -------------------------------------------------------------------
   global dbglvl
   set dbglvl 0
  
   # check for presence of a `--debug n' option, if present, it
   # defines the debug level which controls how much additional
   # output is generated. after extraction of the debug level the
   # option and its value are eliminated from the argument string
   # since it otherwise would be interpreted as an (unknown) command
   # during further processing.
  
   set dbgpat {\--debug[[:blank:]]+([[:digit:]]+[ ]*)}
   regexp $dbgpat $argv dum dbglvl
   regsub $dbgpat $argv "" argv

   return $argv
}

# --( Fossil )----------------------------------------------------------

proc fossil {args} {
    global dbglvl













    set candidate [first $args]; # candidate for expansion

    if {$dbglvl > 0} { puts "*** provided argument list: $args" }

    # Alias expansion and command interception:
    set params [intercept [expand $args]]
................................................................................
    }

    log_user $prior_log;              # revert Expect settings
    return [spawned_errno $spawn_id]; # return with fossil error code
}

# --( Entry )-----------------------------------------------------------

set argv [preparse $argv]
config::init ~/.fslrc
exit [fossil {*}$argv]