Fossil Wrapper

      # actually, in the commit message itself):
      regsub -all {([[:alnum:]])- ([[:alnum:]])} $record \\1-\\2 record

      lappend out "$record"
   }
   return $out
}





































































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

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

................................................................................
            }
        }
    }

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

       }
       foreach line $lines {
          if {$debug == true} {
             puts -nonewline "IN: $line"
             puts -nonewline "OU: "
          }
          filter_with $chain "$line"

      # actually, in the commit message itself):
      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: reformatted `timeline' where user/tags information
# is put directly after the time and SHA1 hash on the same
# line and the commit message is put on the following line(s)
# using an 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]
      set msg $indent[lindex $words 0]
      set len [string length $msg]

      set words [lreplace $words 0 0]
      foreach word $words {
         #if {[string length $word] == 0} {continue}
         set len [expr {$len + 1 + [string length $word]}]
         if {$len <= $maxlen} {
            set msg "$msg $word"
         } else {
            set msg $msg\n$indent$word
            set lindent [string length $indent]
            set len [expr {$lindent + [string length $word]}] 
         }
      }
      # the commit message yields a single list element
      # (i.e. is treated by the subsequent filters as a single line):
      lappend out $msg\n\n
   }
   return $out
}

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

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

................................................................................
            }
        }
    }

    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"