Fossil Wrapper

}

proc computeRevnums {params} {
#-----------------------------------------------------------------------
# generate a dictionary of SHA1 keys vs. "reverse" revision numbers 
# (last checkin = 1)
#-----------------------------------------------------------------------
   set huge 1000000        ;# should not be reached by most projects ...

   set rgxtime {^\d\d:\d\d:\d\d}
   set rgxrev {\[([a-f\d]{10})([^\]]*)\]}

   # very preliminary (need to learn a bit more Tcl, notably regarding 
   # how `exec'  is parsing its input: all variables seem to be
   # inserted as quoted strings in the `exec' call which prevents simple
   # construction of this call). anyway, the purpose is to make
   # revnum computation work for the case where `-R' is specified on the
   # command line:
   #
   set rflag {}
   regsub {^timeline}  $params {} repo
   regsub { \-t [^ ]*}   $repo {} repo
   regsub { \-n [^ ]*}   $repo {} repo
   regsub { \-showfiles} $repo {} repo
   regsub { \-R }        $repo {} repo
   if {[string length $repo] > 0} { set rflag {-R} }
   

   catch {exec fossil timeline -n $huge before now $rflag $repo} timeline
   set lines [split $timeline \n]

   set revcnt 0
   foreach line $lines {
      if {[regexp $rgxtime $line]} {
         incr revcnt
         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