lib-src/rcs2log

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