Fossil Wrapper

   set indent {         }

   set out {}
   set buf ""
   set usertag ""
   set rgxdate {^=== [0-9-]+ ===$}
   set rgxtime {^\d\d:\d\d:\d\d}
   set rgxrvsn {\[([a-f\d]{10})([^\]]*)\]}
   set rgxuser {\(user: .*\)}

   set maxrev [dict size $revnums]

   foreach record $records {
      # temporarily get rid of the record terminating newline:
      set record "[string trimright $record]"
................................................................................
      if {[regexp $rgxdate $record]} {
         # a "date" line is passed through as is (plus linefeeds)
         lappend out $record\n
         continue
      } 

      regexp $rgxtime $record time
      regexp $rgxrvsn $record rvsn
      regexp $rgxuser $record usertag
      set revnum [dict get $revnums $rvsn]
      lappend out "$time ($revnum):$rvsn $usertag\n"


      regsub $rgxuser $record "" record
      regsub $time    $record "" record
      regsub $rgxrvsn $record "" record

      set message [string trim $record]
      set words [split $message]
      set line $indent[lindex $words 0]
      set len [string length $line]

      set words [lreplace $words 0 0]
................................................................................
      }
      if {$isAppended == 0} {lappend out $line\n}
      lappend out \n
   }
   return $out
}

proc computeRevnums records {
#-----------------------------------------------------------------------
#generate a dictionary SHA1 (key) vs. chron. rev. number (value)

#-----------------------------------------------------------------------
   set huge 1000000
   set rgxtime {^\d\d:\d\d:\d\d}
   set rgxrvsn {\[([a-f\d]{10})([^\]]*)\]}

   catch {exec fossil time -n $huge } buf
   set lizzy [split $buf \n]
   set lizzy [unwrapTimeline $lizzy]

   set revcnt -1
   foreach line $lizzy {
      if {[regexp $rgxtime $line]} {
         incr revcnt


      }
   } 

   set iter -1
   foreach line $lizzy {
      if {[regexp $rgxtime $line]} {
         incr iter
         regexp $rgxrvsn $line rvsn
         dict set revnums $rvsn [expr {$revcnt - $iter}]
      }
   }
   return $revnums
}

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

proc fossil {args} {
    #if `true' generate some noise:
................................................................................
                break
            }
        }
    }

    if {[interactive? $command] == false} {
       if {$command == "timeline" && [llength $lines] > 1} { 
          set revnums [computeRevnums $lines]
          set lines [unwrapTimeline $lines]
          set lines [reformTimeline $lines $revnums]
       }
       foreach line $lines {
          if {$debug == true} {
             puts -nonewline "IN: $line"
             puts -nonewline "OU: "

   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: .*\)}

   set maxrev [dict size $revnums]

   foreach record $records {
      # temporarily get rid of the record terminating newline:
      set record "[string trimright $record]"
................................................................................
      if {[regexp $rgxdate $record]} {
         # a "date" line is passed through as is (plus linefeeds)
         lappend out $record\n
         continue
      } 

      regexp $rgxtime $record time
      regexp $rgxrev $record rev
      regexp $rgxuser $record usertag
      set numrev [expr { $maxrev - [dict get $revnums $rev] }]
      lappend out "$time $numrev:$rev $usertag\n"
      #lappend out "$time $rev:$numrev\n$usertag\n"

      regsub $rgxuser $record "" record
      regsub $time    $record "" record
      regsub $rgxrev  $record "" record

      set message [string trim $record]
      set words [split $message]
      set line $indent[lindex $words 0]
      set len [string length $line]

      set words [lreplace $words 0 0]
................................................................................
      }
      if {$isAppended == 0} {lappend out $line\n}
      lappend out \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} {
    #if `true' generate some noise:
................................................................................
                break
            }
        }
    }

    if {[interactive? $command] == false} {
       if {$command == "timeline" && [llength $lines] > 1} { 
          set revnums [computeRevnums]
          set lines [unwrapTimeline $lines]
          set lines [reformTimeline $lines $revnums]
       }
       foreach line $lines {
          if {$debug == true} {
             puts -nonewline "IN: $line"
             puts -nonewline "OU: "