proc document_header {title path {search {}}} { set ret [subst -nocommands { $title }] if {[file exists DRAFT]} { set tagline {*** DRAFT ***} } else { set tagline {Small. Fast. Reliable.
Choose any three.} } append ret [subst -nocommands {
$tagline
}] append ret [subst -nocommands { }] regsub -all {\n+\s+} [string trim $ret] \n ret regsub -all {\s*/\*[- a-z0-9A-Z"*\n]+\*/} $ret {} ret return $ret }