git.chise.org Git - chise/xemacs-chise.git.1/blob - lib-src/rcs2log

   1 #! /bin/sh
   2
   3 # RCS to ChangeLog generator
   4
   5 # Generate a change log prefix from RCS files (perhaps in the CVS repository)
   6 # and the ChangeLog (if any).
   7 # Output the new prefix to standard output.
   8 # You can edit this prefix by hand, and then prepend it to ChangeLog.
   9
  10 # Ignore log entries that start with `#'.
  11 # Clump together log entries that start with `{topic} ',
  12 # where `topic' contains neither white space nor `}'.
  13
  14 Help='The default FILEs are the files registered under the working directory.
  15 Options:
  16
  17   -c CHANGELOG  Output a change log prefix to CHANGELOG (default ChangeLog).
  18   -h HOSTNAME  Use HOSTNAME in change log entries (default current host).
  19   -i INDENT  Indent change log lines by INDENT spaces (default 8).
  20   -l LENGTH  Try to limit log lines to LENGTH characters (default 79).
  21   -R  If no FILEs are given and RCS is used, recurse through working directory.
  22   -r OPTION  Pass OPTION to subsidiary log command.
  23   -t TABWIDTH  Tab stops are every TABWIDTH characters (default 8).
  24   -u "LOGIN<tab>FULLNAME<tab>MAILADDR"  Assume LOGIN has FULLNAME and MAILADDR.
  25   -v  Append RCS revision to file names in log lines.
  26   --help  Output help.
  27   --version  Output version number.
  28
  29 Report bugs to <bug-gnu-emacs@prep.ai.mit.edu>.'
  30
  31 Id='$Id: rcs2log,v 1.2 1997/07/09 04:31:03 steve Exp $'
  32
  33 # Copyright 1992, 1993, 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
  34
  35 # This program is free software; you can redistribute it and/or modify
  36 # it under the terms of the GNU General Public License as published by
  37 # the Free Software Foundation; either version 2, or (at your option)
  38 # any later version.
  39 #
  40 # This program is distributed in the hope that it will be useful,
  41 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  42 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  43 # GNU General Public License for more details.
  44 #
  45 # You should have received a copy of the GNU General Public License
  46 # along with this program; see the file COPYING.  If not, write to the
  47 # Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  48 # Boston, MA 02111-1307, USA.
  49
  50 Copyright='Copyright 1997 Free Software Foundation, Inc.
  51 This program comes with NO WARRANTY, to the extent permitted by law.
  52 You may redistribute copies of this program
  53 under the terms of the GNU General Public License.
  54 For more information about these matters, see the files named COPYING.
  55 Author: Paul Eggert <eggert@twinsun.com>'
  56
  57 tab='   '
  58 nl='
  59 '
  60
  61 # Parse options.
  62
  63 # defaults
  64 : ${AWK=awk}
  65 : ${TMPDIR=/tmp}
  66 changelog=ChangeLog # change log file name
  67 datearg= # rlog date option
  68 hostname= # name of local host (if empty, will deduce it later)
  69 indent=8 # indent of log line
  70 length=79 # suggested max width of log line
  71 logins= # login names for people we know fullnames and mailaddrs of
  72 loginFullnameMailaddrs= # login<tab>fullname<tab>mailaddr triplets
  73 logTZ= # time zone for log dates (if empty, use local time)
  74 recursive= # t if we want recursive rlog
  75 revision= # t if we want revision numbers
  76 rlog_options= # options to pass to rlog
  77 tabwidth=8 # width of horizontal tab
  78
  79 while :
  80 do
  81         case $1 in
  82         -c)     changelog=${2?}; shift;;
  83         -i)     indent=${2?}; shift;;
  84         -h)     hostname=${2?}; shift;;
  85         -l)     length=${2?}; shift;;
  86         -[nu])  # -n is obsolescent; it is replaced by -u.
  87                 case $1 in
  88                 -n)     case ${2?}${3?}${4?} in
  89                         *"$tab"* | *"$nl"*)
  90                                 echo >&2 "$0: -n '$2' '$3' '$4': tabs, newlines not allowed"
  91                                 exit 1
  92                         esac
  93                         loginFullnameMailaddrs=$loginFullnameMailaddrs$nl$2$tab$3$tab$4
  94                         shift; shift; shift;;
  95                 -u)
  96                         # If $2 is not tab-separated, use colon for separator.
  97                         case ${2?} in
  98                         *"$nl"*)
  99                                 echo >&2 "$0: -u '$2': newlines not allowed"
 100                                 exit 1;;
 101                         *"$tab"*)
 102                                 t=$tab;;
 103                         *)
 104                                 t=:
 105                         esac
 106                         case $2 in
 107                         *"$t"*"$t"*"$t"*)
 108                                 echo >&2 "$0: -u '$2': too many fields"
 109                                 exit 1;;
 110                         *"$t"*"$t"*)
 111                                 ;;
 112                         *)
 113                                 echo >&2 "$0: -u '$2': not enough fields"
 114                                 exit 1
 115                         esac
 116                         loginFullnameMailaddrs=$loginFullnameMailaddrs$nl$2
 117                         shift
 118                 esac
 119                 logins=$logins$nl$login
 120                 ;;
 121         -r)     rlog_options=$rlog_options$nl${2?}; shift;;
 122         -R)     recursive=t;;
 123         -t)     tabwidth=${2?}; shift;;
 124         -v)     revision=t;;
 125         --version)
 126                 set $Id
 127                 rcs2logVersion=$3
 128                 echo >&2 "rcs2log (GNU Emacs) $rcs2logVersion$nl$Copyright"
 129                 exit 0;;
 130         -*)     echo >&2 "Usage: $0 [OPTION]... [FILE ...]$nl$Help"
 131                 case $1 in
 132                 --help) exit 0;;
 133                 *) exit 1
 134                 esac;;
 135         *)      break
 136         esac
 137         shift
 138 done
 139
 140 month_data='
 141         m[0]="Jan"; m[1]="Feb"; m[2]="Mar"
 142         m[3]="Apr"; m[4]="May"; m[5]="Jun"
 143         m[6]="Jul"; m[7]="Aug"; m[8]="Sep"
 144         m[9]="Oct"; m[10]="Nov"; m[11]="Dec"
 145 '
 146
 147
 148 # Put rlog output into $rlogout.
 149
 150 # If no rlog options are given,
 151 # log the revisions checked in since the first ChangeLog entry.
 152 # Since ChangeLog is only by date, some of these revisions may be duplicates of
 153 # what's already in ChangeLog; it's the user's responsibility to remove them.
 154 case $rlog_options in
 155 '')
 156         if test -s "$changelog"
 157         then
 158                 e='
 159                         /^[0-9]+-[0-9][0-9]-[0-9][0-9]/{
 160                                 # ISO 8601 date
 161                                 print $1
 162                                 exit
 163                         }
 164                         /^... ... [ 0-9][0-9] [ 0-9][0-9]:[0-9][0-9]:[0-9][0-9] [0-9]+ /{
 165                                 # old-fashioned date and time (Emacs 19.31 and earlier)
 166                                 '"$month_data"'
 167                                 year = $5
 168                                 for (i=0; i<=11; i++) if (m[i] == $2) break
 169                                 dd = $3
 170                                 printf "%d-%02d-%02d\n", year, i+1, dd
 171                                 exit
 172                         }
 173                 '
 174                 d=`$AWK "$e" <"$changelog"` || exit
 175                 case $d in
 176                 ?*) datearg="-d>$d"
 177                 esac
 178         fi
 179 esac
 180
 181 # Use TZ specified by ChangeLog local variable, if any.
 182 if test -s "$changelog"
 183 then
 184         extractTZ='
 185                 /^.*change-log-time-zone-rule['"$tab"' ]*:['"$tab"' ]*"\([^"]*\)".*/{
 186                         s//\1/; p; q
 187                 }
 188                 /^.*change-log-time-zone-rule['"$tab"' ]*:['"$tab"' ]*t.*/{
 189                         s//UTC0/; p; q
 190                 }
 191         '
 192         logTZ=`tail "$changelog" | sed -n "$extractTZ"`
 193         case $logTZ in
 194         ?*) TZ=$logTZ; export TZ
 195         esac
 196 fi
 197
 198 # If CVS is in use, examine its repository, not the normal RCS files.
 199 if test ! -f CVS/Repository
 200 then
 201         rlog=rlog
 202         repository=
 203 else
 204         rlog='cvs -q log'
 205         repository=`sed 1q <CVS/Repository` || exit
 206         test ! -f CVS/Root || CVSROOT=`cat <CVS/Root` || exit
 207         case $CVSROOT in
 208         *:/*)
 209                 # remote repository
 210                 ;;
 211         *)
 212                 # local repository
 213                 case $repository in
 214                 /*) ;;
 215                 *) repository=${CVSROOT?}/$repository
 216                 esac
 217                 if test ! -d "$repository"
 218                 then
 219                         echo >&2 "$0: $repository: bad repository (see CVS/Repository)"
 220                         exit 1
 221                 fi
 222         esac
 223 fi
 224
 225 # Use $rlog's -zLT option, if $rlog supports it.
 226 case `$rlog -zLT 2>&1` in
 227 *' option'*) ;;
 228 *) rlog_options=-zLT$nl$rlog_options
 229 esac
 230
 231 # With no arguments, examine all files under the RCS directory.
 232 case $# in
 233 0)
 234         case $repository in
 235         '')
 236                 oldIFS=$IFS
 237                 IFS=$nl
 238                 case $recursive in
 239                 t)
 240                         RCSdirs=`find . -name RCS -type d -print`
 241                         filesFromRCSfiles='s|,v$||; s|/RCS/|/|; s|^\./||'
 242                         files=`
 243                                 {
 244                                         case $RCSdirs in
 245                                         ?*) find $RCSdirs \
 246                                                         -type f \
 247                                                         ! -name '*_' \
 248                                                         ! -name ',*,' \
 249                                                         ! -name '.*_' \
 250                                                         ! -name .rcsfreeze.log \
 251                                                         ! -name .rcsfreeze.ver \
 252                                                         -print
 253                                         esac
 254                                         find . -name '*,v' -print
 255                                 } |
 256                                 sort -u |
 257                                 sed "$filesFromRCSfiles"
 258                         `;;
 259                 *)
 260                         files=
 261                         for file in RCS/.* RCS/* .*,v *,v
 262                         do
 263                                 case $file in
 264                                 RCS/. | RCS/.. | RCS/,*, | RCS/*_) continue;;
 265                                 RCS/.rcsfreeze.log | RCS/.rcsfreeze.ver) continue;;
 266                                 RCS/.\* | RCS/\* | .\*,v | \*,v) test -f "$file" || continue
 267                                 esac
 268                                 files=$files$nl$file
 269                         done
 270                         case $files in
 271                         '') exit 0
 272                         esac
 273                 esac
 274                 set x $files
 275                 shift
 276                 IFS=$oldIFS
 277         esac
 278 esac
 279
 280 llogout=$TMPDIR/rcs2log$$l
 281 rlogout=$TMPDIR/rcs2log$$r
 282 trap exit 1 2 13 15
 283 trap "rm -f $llogout $rlogout; exit 1" 0
 284
 285 case $datearg in
 286 ?*) $rlog $rlog_options "$datearg" ${1+"$@"} >$rlogout;;
 287 '') $rlog $rlog_options ${1+"$@"} >$rlogout
 288 esac || exit
 289
 290
 291 # Get the full name of each author the logs mention, and set initialize_fullname
 292 # to awk code that initializes the `fullname' awk associative array.
 293 # Warning: foreign authors (i.e. not known in the passwd file) are mishandled;
 294 # you have to fix the resulting output by hand.
 295
 296 initialize_fullname=
 297 initialize_mailaddr=
 298
 299 case $loginFullnameMailaddrs in
 300 ?*)
 301         case $loginFullnameMailaddrs in
 302         *\"* | *\\*)
 303                 sed 's/["\\]/\\&/g' >$llogout <<EOF || exit
 304 $loginFullnameMailaddrs
 305 EOF
 306                 loginFullnameMailaddrs=`cat $llogout`
 307         esac
 308
 309         oldIFS=$IFS
 310         IFS=$nl
 311         for loginFullnameMailaddr in $loginFullnameMailaddrs
 312         do
 313                 case $loginFullnameMailaddr in
 314                 *"$tab"*) IFS=$tab;;
 315                 *) IFS=:
 316                 esac
 317                 set x $loginFullnameMailaddr
 318                 login=$2
 319                 fullname=$3
 320                 mailaddr=$4
 321                 initialize_fullname="$initialize_fullname
 322                         fullname[\"$login\"] = \"$fullname\""
 323                 initialize_mailaddr="$initialize_mailaddr
 324                         mailaddr[\"$login\"] = \"$mailaddr\""
 325         done
 326         IFS=$oldIFS
 327 esac
 328
 329 case $llogout in
 330 ?*) sort -u -o $llogout <<EOF || exit
 331 $logins
 332 EOF
 333 esac
 334 output_authors='/^date: / {
 335         if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9:]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) {
 336                 print substr($5, 1, length($5)-1)
 337         }
 338 }'
 339 authors=`
 340         $AWK "$output_authors" <$rlogout |
 341         case $llogout in
 342         '') sort -u;;
 343         ?*) sort -u | comm -23 - $llogout
 344         esac
 345 `
 346 case $authors in
 347 ?*)
 348         cat >$llogout <<EOF || exit
 349 $authors
 350 EOF
 351         initialize_author_script='s/["\\]/\\&/g; s/.*/author[\"&\"] = 1/'
 352         initialize_author=`sed -e "$initialize_author_script" <$llogout`
 353         awkscript='
 354                 BEGIN {
 355                         alphabet = "abcdefghijklmnopqrstuvwxyz"
 356                         ALPHABET = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 357                         '"$initialize_author"'
 358                 }
 359                 {
 360                         if (author[$1]) {
 361                                 fullname = $5
 362                                 if (fullname ~ /[0-9]+-[^(]*\([0-9]+\)$/) {
 363                                         # Remove the junk from fullnames like "0000-Admin(0000)".
 364                                         fullname = substr(fullname, index(fullname, "-") + 1)
 365                                         fullname = substr(fullname, 1, index(fullname, "(") - 1)
 366                                 }
 367                                 if (fullname ~ /,[^ ]/) {
 368                                         # Some sites put comma-separated junk after the fullname.
 369                                         # Remove it, but leave "Bill Gates, Jr" alone.
 370                                         fullname = substr(fullname, 1, index(fullname, ",") - 1)
 371                                 }
 372                                 abbr = index(fullname, "&")
 373                                 if (abbr) {
 374                                         a = substr($1, 1, 1)
 375                                         A = a
 376                                         i = index(alphabet, a)
 377                                         if (i) A = substr(ALPHABET, i, 1)
 378                                         fullname = substr(fullname, 1, abbr-1) A substr($1, 2) substr(fullname, abbr+1)
 379                                 }
 380
 381                                 # Quote quotes and backslashes properly in full names.
 382                                 # Do not use gsub; traditional awk lacks it.
 383                                 quoted = ""
 384                                 rest = fullname
 385                                 for (;;) {
 386                                         p = index(rest, "\\")
 387                                         q = index(rest, "\"")
 388                                         if (p) {
 389                                                 if (q && q<p) p = q
 390                                         } else {
 391                                                 if (!q) break
 392                                                 p = q
 393                                         }
 394                                         quoted = quoted substr(rest, 1, p-1) "\\" substr(rest, p, 1)
 395                                         rest = substr(rest, p+1)
 396                                 }
 397
 398                                 printf "fullname[\"%s\"] = \"%s%s\"\n", $1, quoted, rest
 399                                 author[$1] = 0
 400                         }
 401                 }
 402         '
 403
 404         initialize_fullname=`
 405                 (
 406                         cat /etc/passwd
 407                         for author in $authors
 408                         do nismatch $author passwd.org_dir
 409                         done
 410                         ypmatch $authors passwd
 411                 ) 2>/dev/null |
 412                 $AWK -F: "$awkscript"
 413         `$initialize_fullname
 414 esac
 415
 416
 417 # Function to print a single log line.
 418 # We don't use awk functions, to stay compatible with old awk versions.
 419 # `Log' is the log message (with \n replaced by \r).
 420 # `files' contains the affected files.
 421 printlogline='{
 422
 423         # Following the GNU coding standards, rewrite
 424         #       * file: (function): comment
 425         # to
 426         #       * file (function): comment
 427         if (Log ~ /^\([^)]*\): /) {
 428                 i = index(Log, ")")
 429                 files = files " " substr(Log, 1, i)
 430                 Log = substr(Log, i+3)
 431         }
 432
 433         # If "label: comment" is too long, break the line after the ":".
 434         sep = " "
 435         if ('"$length"' <= '"$indent"' + 1 + length(files) + index(Log, CR)) sep = "\n" indent_string
 436
 437         # Print the label.
 438         printf "%s*%s:", indent_string, files
 439
 440         # Print each line of the log, transliterating \r to \n.
 441         while ((i = index(Log, CR)) != 0) {
 442                 logline = substr(Log, 1, i-1)
 443                 if (logline ~ /[^'"$tab"' ]/) {
 444                         printf "%s%s\n", sep, logline
 445                 } else {
 446                         print ""
 447                 }
 448                 sep = indent_string
 449                 Log = substr(Log, i+1)
 450         }
 451 }'
 452
 453 # Pattern to match the `revision' line of rlog output.
 454 rlog_revision_pattern='^revision [0-9]+\.[0-9]+(\.[0-9]+\.[0-9]+)*(['"$tab"' ]+locked by: [^'"$tab"' $,.0-9:;@]*[^'"$tab"' $,:;@][^'"$tab"' $,.0-9:;@]*;)?['"$tab"' ]*$'
 455
 456 case $hostname in
 457 '')
 458         hostname=`(
 459                 hostname || uname -n || uuname -l || cat /etc/whoami
 460         ) 2>/dev/null` || {
 461                 echo >&2 "$0: cannot deduce hostname"
 462                 exit 1
 463         }
 464
 465         case $hostname in
 466         *.*) ;;
 467         *)
 468                 domainname=`(domainname) 2>/dev/null` &&
 469                 case $domainname in
 470                 *.*) hostname=$hostname.$domainname
 471                 esac
 472         esac
 473 esac
 474
 475
 476 # Process the rlog output, generating ChangeLog style entries.
 477
 478 # First, reformat the rlog output so that each line contains one log entry.
 479 # Transliterate \n to \r so that multiline entries fit on a single line.
 480 # Discard irrelevant rlog output.
 481 $AWK <$rlogout '
 482         BEGIN { repository = "'"$repository"'" }
 483         /^RCS file:/ {
 484                 if (repository != "") {
 485                         filename = $3
 486                         if (substr(filename, 1, length(repository) + 1) == repository "/") {
 487                                 filename = substr(filename, length(repository) + 2)
 488                         }
 489                         if (filename ~ /,v$/) {
 490                                 filename = substr(filename, 1, length(filename) - 2)
 491                         }
 492                         if (filename ~ /(^|\/)Attic\/[^\/]*$/) {
 493                                 i = length(filename)
 494                                 while (substr(filename, i, 1) != "/") i--
 495                                 filename = substr(filename, 1, i - 6) substr(filename, i + 1)
 496                         }
 497                 }
 498                 rev = "?"
 499         }
 500         /^Working file:/ { if (repository == "") filename = $3 }
 501         /'"$rlog_revision_pattern"'/, /^(-----------*|===========*)$/ {
 502                 if ($0 ~ /'"$rlog_revision_pattern"'/) {
 503                         rev = $2
 504                         next
 505                 }
 506                 if ($0 ~ /^date: [0-9][- +\/0-9:]*;/) {
 507                         date = $2
 508                         if (date ~ /\//) {
 509                                 # This is a traditional RCS format date YYYY/MM/DD.
 510                                 # Replace "/"s with "-"s to get ISO format.
 511                                 newdate = ""
 512                                 while ((i = index(date, "/")) != 0) {
 513                                         newdate = newdate substr(date, 1, i-1) "-"
 514                                         date = substr(date, i+1)
 515                                 }
 516                                 date = newdate date
 517                         }
 518                         time = substr($3, 1, length($3) - 1)
 519                         author = substr($5, 1, length($5)-1)
 520                         printf "%s %s %s %s %s %c", filename, rev, date, time, author, 13
 521                         rev = "?"
 522                         next
 523                 }
 524                 if ($0 ~ /^branches: /) { next }
 525                 if ($0 ~ /^(-----------*|===========*)$/) { print ""; next }
 526                 if ($0 == "Initial revision" || $0 ~ /^file .+ was initially added on branch .+\.$/) {
 527                         $0 = "New file."
 528         }
 529                 printf "%s%c", $0, 13
 530         }
 531 ' |
 532
 533 # Now each line is of the form
 534 # FILENAME REVISION YYYY-MM-DD HH:MM:SS[+-TIMEZONE] AUTHOR \rLOG
 535 #       where \r stands for a carriage return,
 536 #       and each line of the log is terminated by \r instead of \n.
 537 # Sort the log entries, first by date+time (in reverse order),
 538 # then by author, then by log entry, and finally by file name and revision
 539 # (just in case).
 540 sort +2 -4r +4 +0 |
 541
 542 # Finally, reformat the sorted log entries.
 543 $AWK '
 544         BEGIN {
 545                 logTZ = "'"$logTZ"'"
 546                 revision = "'"$revision"'"
 547
 548                 # Some awk variants do not understand "\r" or "\013", so we have to
 549                 # put a carriage return directly in the file.
 550                 CR="\r" # <-- There is a single CR between the " chars here.
 551
 552                 # Initialize the fullname and mailaddr associative arrays.
 553                 '"$initialize_fullname"'
 554                 '"$initialize_mailaddr"'
 555
 556                 # Initialize indent string.
 557                 indent_string = ""
 558                 i = '"$indent"'
 559                 if (0 < '"$tabwidth"')
 560                         for (;  '"$tabwidth"' <= i;  i -= '"$tabwidth"')
 561                                 indent_string = indent_string "\t"
 562                 while (1 <= i--)
 563                         indent_string = indent_string " "
 564         }
 565
 566         {
 567                 newlog = substr($0, 1 + index($0, CR))
 568
 569                 # Ignore log entries prefixed by "#".
 570                 if (newlog ~ /^#/) { next }
 571
 572                 if (Log != newlog || date != $3 || author != $5) {
 573
 574                         # The previous log and this log differ.
 575
 576                         # Print the old log.
 577                         if (date != "") '"$printlogline"'
 578
 579                         # Logs that begin with "{clumpname} " should be grouped together,
 580                         # and the clumpname should be removed.
 581                         # Extract the new clumpname from the log header,
 582                         # and use it to decide whether to output a blank line.
 583                         newclumpname = ""
 584                         sep = "\n"
 585                         if (date == "") sep = ""
 586                         if (newlog ~ /^\{[^'"$tab"' }]*}['"$tab"' ]/) {
 587                                 i = index(newlog, "}")
 588                                 newclumpname = substr(newlog, 1, i)
 589                                 while (substr(newlog, i+1) ~ /^['"$tab"' ]/) i++
 590                                 newlog = substr(newlog, i+1)
 591                                 if (clumpname == newclumpname) sep = ""
 592                         }
 593                         printf sep
 594                         clumpname = newclumpname
 595
 596                         # Get ready for the next log.
 597                         Log = newlog
 598                         if (files != "")
 599                                 for (i in filesknown)
 600                                         filesknown[i] = 0
 601                         files = ""
 602                 }
 603                 if (date != $3  ||  author != $5) {
 604                         # The previous date+author and this date+author differ.
 605                         # Print the new one.
 606                         date = $3
 607                         time = $4
 608                         author = $5
 609
 610                         zone = ""
 611                         if (logTZ && ((i = index(time, "-")) || (i = index(time, "+"))))
 612                                 zone = " " substr(time, i)
 613
 614                         # Print "date[ timezone]  fullname  <email address>".
 615                         # Get fullname and email address from associative arrays;
 616                         # default to author and author@hostname if not in arrays.
 617                         if (fullname[author])
 618                                 auth = fullname[author]
 619                         else
 620                                 auth = author
 621                         printf "%s%s  %s  ", date, zone, auth
 622                         if (mailaddr[author])
 623                                 printf "<%s>\n\n", mailaddr[author]
 624                         else
 625                                 printf "<%s@%s>\n\n", author, "'"$hostname"'"
 626                 }
 627                 if (! filesknown[$1]) {
 628                         filesknown[$1] = 1
 629                         if (files == "") files = " " $1
 630                         else files = files ", " $1
 631                         if (revision && $2 != "?") files = files " " $2
 632                 }
 633         }
 634         END {
 635                 # Print the last log.
 636                 if (date != "") {
 637                         '"$printlogline"'
 638                         printf "\n"
 639                 }
 640         }
 641 ' &&
 642
 643
 644 # Exit successfully.
 645
 646 exec rm -f $llogout $rlogout
 647
 648 # Local Variables:
 649 # tab-width:4
 650 # End: