Fossil Wrapper

# --------------------------------------------------------

   #these parameters should be user settable:
   set maxlen 78
   set indent {........ }
   set indent {         }


   set out {}
   set buf ""
   set usertag ""
   set rgxdate {^=== [0-9-]+ ===$}
   set rgxtime {^\d\d:\d\d:\d\d}
   set rgxrev {\[([a-f\d]{10})([^\]]*)\]}
   set rgxuser {\(user: .*\)}
................................................................................
         # through as is.
         lappend out $record\n
      }
   }
   return $out
}

proc computeRevnums {} {
#-----------------------------------------------------------------------
# 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})([^\]]*)\]}
   













   catch {exec fossil time -n $huge } 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
}

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

proc fossil {args} {
................................................................................
                break
            }
        }
    }

    if {[interactive? $command] == false} {
       if {$command == "timeline" && [llength $lines] > 1} { 
          set revnums [computeRevnums]
          set lines [unwrapTimeline $lines]
          set lines [reformTimeline $lines $revnums]
       } elseif {$command == "finfo" && [llength $lines] > 1} { 
          # let's see whether `-p' is there:
          set catmode false
          foreach word $params {
             switch -regexp $word {

# --------------------------------------------------------

   #these parameters should be user settable:
   set maxlen 78
   set indent {........ }
   set indent {         }

   set isAppended 0
   set out {}
   set buf ""
   set usertag ""
   set rgxdate {^=== [0-9-]+ ===$}
   set rgxtime {^\d\d:\d\d:\d\d}
   set rgxrev {\[([a-f\d]{10})([^\]]*)\]}
   set rgxuser {\(user: .*\)}
................................................................................
         # through as is.
         lappend out $record\n
      }
   }
   return $out
}

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 call which prevents simple
   # construction of the call). anyway, the purpose is to make
   # revnum computation work for the case where `-R' is used in the call:
   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 $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}]
      }
   } 
   puts $revnums

   return $revnums
}

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

proc fossil {args} {
................................................................................
                break
            }
        }
    }

    if {[interactive? $command] == false} {
       if {$command == "timeline" && [llength $lines] > 1} { 
          set revnums [computeRevnums $params]
          set lines [unwrapTimeline $lines]
          set lines [reformTimeline $lines $revnums]
       } elseif {$command == "finfo" && [llength $lines] > 1} { 
          # let's see whether `-p' is there:
          set catmode false
          foreach word $params {
             switch -regexp $word {