Fossil Wrapper

      regsub -all {([[:alnum:]])- ([[:alnum:]])} $record \\1-\\2 record

      lappend out "$record"
   }
   return $out
}

proc reformTimeline records {
# --------------------------------------------------------
# expected input: list of timeline entries as provided by
# `unwrapTimeline', i.e. either "date lines" or "commit"
# lines containing the whole commit including the commit
# message.
#
# output: a list of newline terminated lines where the user/tags
................................................................................
# indent string `indent' and a line length `maxlen'.
# --------------------------------------------------------

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


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



   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


      lappend out "$time $rvsn $usertag\n"


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

      set message [string trim $record]
      set words [split $message]
................................................................................
         }
      }
      if {$isAppended == 0} {lappend out $line\n}
      lappend out \n
   }
   return $out
}































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

proc fossil {args} {
    #if `true' generate some noise:
    set debug false

................................................................................
                break
            }
        }
    }

    if {[interactive? $command] == false} {
       if {$command == "timeline"} { 

          set lines [unwrapTimeline $lines]
          set lines [reformTimeline $lines]
       }
       foreach line $lines {
          if {$debug == true} {
             puts -nonewline "IN: $line"
             puts -nonewline "OU: "
          }
          filter_with $chain "$line"

      regsub -all {([[:alnum:]])- ([[:alnum:]])} $record \\1-\\2 record

      lappend out "$record"
   }
   return $out
}

proc reformTimeline {records revnums} {
# --------------------------------------------------------
# expected input: list of timeline entries as provided by
# `unwrapTimeline', i.e. either "date lines" or "commit"
# lines containing the whole commit including the commit
# message.
#
# output: a list of newline terminated lines where the user/tags
................................................................................
# indent string `indent' and a line length `maxlen'.
# --------------------------------------------------------

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

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

   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"
      #lappend out "$time $rvsn $usertag {$revnum}\n"
      #lappend out "chkin: $revnum\n$time $rvsn $usertag\n"

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

      set message [string trim $record]
      set words [split $message]
................................................................................
         }
      }
      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})([^\]]*)\]}
   set revcnt -1

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

   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:
    set debug false

................................................................................
                break
            }
        }
    }

    if {[interactive? $command] == false} {
       if {$command == "timeline"} { 
          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: "
          }
          filter_with $chain "$line"