lib-src/rcs2log

   1 #! /bin/sh
   2
   3 # RCS to ChangeLog generator
   4
   5 # Copyright (C) 1992-1998, 2001-2015 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) 2015 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 if type mktemp >/dev/null 2>&1; then
 209         logdir=`mktemp -d`
 210 else
 211         logdir=$TMPDIR/rcs2log$$
 212         (umask 077 && mkdir "$logdir")
 213 fi || exit
 214 case $logdir in
 215 -*) logdir=./$logdir;;
 216 esac
 217 trap exit 1 2 13 15
 218 trap "rm -fr \"$logdir\" 2>/dev/null" 0
 219
 220 llogout=$logdir/l
 221
 222 # If no rlog-format log file is given, generate one into $rlogfile.
 223 case $rlogfile in
 224 '')
 225         rlogfile=$logdir/r
 226
 227         # If no rlog options are given,
 228         # log the revisions checked in since the first ChangeLog entry.
 229         # Since ChangeLog is only by date, some of these revisions may be
 230         # duplicates of what's already in ChangeLog; it's the user's
 231         # responsibility to remove them.
 232         case $rlog_options in
 233         '')
 234                 if test -s "$changelog"
 235                 then
 236                         e='
 237                                 /^[0-9]+-[0-9][0-9]-[0-9][0-9]/{
 238                                         # ISO 8601 date
 239                                         print $1
 240                                         exit
 241                                 }
 242                                 /^... ... [ 0-9][0-9] [ 0-9][0-9]:[0-9][0-9]:[0-9][0-9] [0-9]+ /{
 243                                         # old-fashioned date and time (Emacs 19.31 and earlier)
 244                                         '"$month_data"'
 245                                         year = $5
 246                                         for (i=0; i<=11; i++) if (m[i] == $2) break
 247                                         dd = $3
 248                                         printf "%d-%02d-%02d\n", year, i+1, dd
 249                                         exit
 250                                 }
 251                         '
 252                         d=`$AWK "$e" <"$changelog"` || exit
 253                         case $d in
 254                         ?*) datearg="-d>$d";;
 255                         esac
 256                 fi;;
 257         esac
 258
 259         # Use TZ specified by ChangeLog local variable, if any.
 260         if test -s "$changelog"
 261         then
 262                 extractTZ='
 263                         /^.*change-log-time-zone-rule['"$tab"' ]*:['"$tab"' ]*"\([^"]*\)".*/{
 264                                 s//\1/; p; q
 265                         }
 266                         /^.*change-log-time-zone-rule['"$tab"' ]*:['"$tab"' ]*t.*/{
 267                                 s//UTC0/; p; q
 268                         }
 269                 '
 270                 logTZ=`tail "$changelog" | sed -n "$extractTZ"`
 271                 case $logTZ in
 272                 ?*) TZ=$logTZ; export TZ;;
 273                 esac
 274         fi
 275
 276         # If CVS is in use, examine its repository, not the normal RCS files.
 277         if test ! -f CVS/Repository
 278         then
 279                 rlog=rlog
 280                 repository=
 281         else
 282                 rlog='cvs -q log'
 283                 repository=`sed 1q <CVS/Repository` || exit
 284                 test ! -f CVS/Root || CVSROOT=`cat <CVS/Root` || exit
 285                 pository=
 286                 case $CVSROOT in
 287                 /* | :fork:* | :local:*) ;;
 288                 */*)
 289                         # remote repository
 290                         pository=`expr "X$CVSROOT" : '[^/]*\(.*\)'`;;
 291                 esac
 292                 case $pository in
 293                 '')
 294                         # local repository
 295                         case $repository in
 296                         /*) ;;
 297                         *)
 298                                 repository=${CVSROOT?}/$repository
 299                                 case $repository in
 300                                 :fork:* | :local:*)
 301                                         repository=`expr "$repository" : ':[^:]*:\(.*\)'`;;
 302                                 esac;;
 303                         esac
 304                         if test ! -d "$repository"
 305                         then
 306                                 echo >&2 "$0: $repository: bad repository (see CVS/Repository)"
 307                                 exit 1
 308                         fi
 309                         pository=$repository;;
 310                 esac
 311
 312                 # Ensure that $pository ends in exactly one slash.
 313                 while :
 314                 do
 315                         case $pository in
 316                         *//) pository=`expr "X$pository" : 'X\(.*\)/'`;;
 317                         */) break;;
 318                         *) pository=$pository/; break;;
 319                         esac
 320                 done
 321
 322                 # If no rlog options are given, and if we are in a tagged CVS branch,
 323                 # log only the changes in that branch.
 324                 case $rlog_options in
 325                 '')
 326                         if test -f CVS/Tag
 327                         then
 328                                 CVSTAG=`cat <CVS/Tag` || exit
 329                                 case $CVSTAG in
 330                                 T?*)
 331                                         rlog_options=-r`expr "$CVSTAG" : 'T\(.*\)'`;;
 332                                 *)
 333                                         echo >&2 "$0: invalid CVS/Tag"; exit 1;;
 334                                 esac
 335                         fi;;
 336                 esac
 337         fi
 338
 339         # Use $rlog's -zLT option, if $rlog supports it.
 340         case `$rlog -zLT 2>&1` in
 341         *' option'*) ;;
 342         *)
 343                 case $rlog_options in
 344                 '') rlog_options=-zLT;;
 345                 ?*) rlog_options=-zLT$nl$rlog_options;;
 346                 esac;;
 347         esac
 348
 349         # With no arguments, examine all files under the RCS directory.
 350         case $# in
 351         0)
 352                 case $repository in
 353                 '')
 354                         oldIFS=$IFS
 355                         IFS=$nl
 356                         case $recursive in
 357                         t)
 358                                 RCSdirs=`find . -name RCS -type d -print`
 359                                 filesFromRCSfiles='s|,v$||; s|/RCS/|/|; s|^\./||'
 360                                 files=`
 361                                         {
 362                                                 case $RCSdirs in
 363                                                 ?*) find $RCSdirs \
 364                                                                 -type f \
 365                                                                 ! -name '*_' \
 366                                                                 ! -name ',*,' \
 367                                                                 ! -name '.*_' \
 368                                                                 ! -name .rcsfreeze.log \
 369                                                                 ! -name .rcsfreeze.ver \
 370                                                                 -print;;
 371                                                 esac
 372                                                 find . -name '*,v' -print
 373                                         } |
 374                                         sort -u |
 375                                         sed "$filesFromRCSfiles"
 376                                 `;;
 377                         *)
 378                                 files=
 379                                 for file in RCS/.* RCS/* .*,v *,v
 380                                 do
 381                                         case $file in
 382                                         RCS/. | RCS/.. | RCS/,*, | RCS/*_) continue;;
 383                                         RCS/.rcsfreeze.log | RCS/.rcsfreeze.ver) continue;;
 384                                         RCS/.\* | RCS/\* | .\*,v | \*,v) test -f "$file" || continue;;
 385                                         RCS/*,v | RCS/.*,v) ;;
 386                                         RCS/* | RCS/.*) test -f "$file" || continue;;
 387                                         esac
 388                                         case $files in
 389                                         '') files=$file;;
 390                                         ?*) files=$files$nl$file;;
 391                                         esac
 392                                 done
 393                                 case $files in
 394                                 '') exit 0;;
 395                                 esac;;
 396                         esac
 397                         set x $files
 398                         shift
 399                         IFS=$oldIFS;;
 400                 esac;;
 401         esac
 402
 403         case $datearg in
 404         ?*) $rlog $rlog_options "$datearg" ${1+"$@"} >$rlogfile;;
 405         '') $rlog $rlog_options ${1+"$@"} >$rlogfile;;
 406         esac || exit;;
 407 esac
 408
 409
 410 # Prefer the POSIX-style -k options, since POSIX 1003.1-2001 prohibits
 411 # support for the traditional-style +M -N options.
 412 SORT_K_OPTIONS='-k 3,4r -k 5 -k 1'
 413 sort $SORT_K_OPTIONS </dev/null 2>/dev/null || SORT_K_OPTIONS='+2 -4r +4 +0'
 414
 415
 416 # Get the full name of each author the logs mention, and set initialize_fullname
 417 # to awk code that initializes the `fullname' awk associative array.
 418 # Warning: foreign authors (i.e. not known in the passwd file) are mishandled;
 419 # you have to fix the resulting output by hand.
 420
 421 initialize_fullname=
 422 initialize_mailaddr=
 423
 424 case $loginFullnameMailaddrs in
 425 ?*)
 426         case $loginFullnameMailaddrs in
 427         *\"* | *\\*)
 428                 sed 's/["\\]/\\&/g' >"$llogout" <<EOF || exit
 429 $loginFullnameMailaddrs
 430 EOF
 431                 loginFullnameMailaddrs=`cat "$llogout"`;;
 432         esac
 433
 434         oldIFS=$IFS
 435         IFS=$nl
 436         for loginFullnameMailaddr in $loginFullnameMailaddrs
 437         do
 438                 IFS=$tab
 439                 set x $loginFullnameMailaddr
 440                 login=$2
 441                 fullname=$3
 442                 mailaddr=$4
 443                 initialize_fullname="$initialize_fullname
 444                         fullname[\"$login\"] = \"$fullname\""
 445                 initialize_mailaddr="$initialize_mailaddr
 446                         mailaddr[\"$login\"] = \"$mailaddr\""
 447         done
 448         IFS=$oldIFS;;
 449 esac
 450
 451 case $logins in
 452 ?*)
 453         sort -u -o "$llogout" <<EOF
 454 $logins
 455 EOF
 456         ;;
 457 '')
 458         : ;;
 459 esac >"$llogout" || exit
 460
 461 output_authors='/^date: / {
 462         cvsformat = $5 == "author:"
 463         if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && (cvsformat ? $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9]/ && $4 ~ /^[-+][0-9:]*;$/ : $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9:]*;$/)) {
 464                 author = $(5 + cvsformat)
 465                 if ($(4 + cvsformat) == "author:" && author ~ /^[^;]*;$/) {
 466                         print substr(author, 1, length(author)-1)
 467                 }
 468         }
 469 }'
 470 authors=`
 471         $AWK "$output_authors" <"$rlogfile" | sort -u | comm -23 - "$llogout"
 472 `
 473 case $authors in
 474 ?*)
 475         cat >"$llogout" <<EOF || exit
 476 $authors
 477 EOF
 478         initialize_author_script='s/["\\]/\\&/g; s/.*/author[\"&\"] = 1/'
 479         initialize_author=`sed -e "$initialize_author_script" <"$llogout"`
 480         awkscript='
 481                 BEGIN {
 482                         alphabet = "abcdefghijklmnopqrstuvwxyz"
 483                         ALPHABET = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 484                         '"$initialize_author"'
 485                 }
 486                 {
 487                         if (author[$1]) {
 488                                 fullname = $5
 489                                 if (fullname ~ /[0-9]+-[^(]*\([0-9]+\)$/) {
 490                                         # Remove the junk from fullnames like "0000-Admin(0000)".
 491                                         fullname = substr(fullname, index(fullname, "-") + 1)
 492                                         fullname = substr(fullname, 1, index(fullname, "(") - 1)
 493                                 }
 494                                 if (fullname ~ /,[^ ]/) {
 495                                         # Some sites put comma-separated junk after the fullname.
 496                                         # Remove it, but leave "Bill Gates, Jr" alone.
 497                                         fullname = substr(fullname, 1, index(fullname, ",") - 1)
 498                                 }
 499                                 abbr = index(fullname, "&")
 500                                 if (abbr) {
 501                                         a = substr($1, 1, 1)
 502                                         A = a
 503                                         i = index(alphabet, a)
 504                                         if (i) A = substr(ALPHABET, i, 1)
 505                                         fullname = substr(fullname, 1, abbr-1) A substr($1, 2) substr(fullname, abbr+1)
 506                                 }
 507
 508                                 # Quote quotes and backslashes properly in full names.
 509                                 # Do not use gsub; traditional awk lacks it.
 510                                 quoted = ""
 511                                 rest = fullname
 512                                 for (;;) {
 513                                         p = index(rest, "\\")
 514                                         q = index(rest, "\"")
 515                                         if (p) {
 516                                                 if (q && q<p) p = q
 517                                         } else {
 518                                                 if (!q) break
 519                                                 p = q
 520                                         }
 521                                         quoted = quoted substr(rest, 1, p-1) "\\" substr(rest, p, 1)
 522                                         rest = substr(rest, p+1)
 523                                 }
 524
 525                                 printf "fullname[\"%s\"] = \"%s%s\"\n", $1, quoted, rest
 526                                 author[$1] = 0
 527                         }
 528                 }
 529         '
 530
 531         initialize_fullname=`
 532                 {
 533                         (getent passwd $authors) ||
 534                         (
 535                                 cat /etc/passwd
 536                                 for author in $authors
 537                                 do NIS_PATH= nismatch $author passwd.org_dir
 538                                 done
 539                                 ypmatch $authors passwd
 540                         )
 541                 } 2>/dev/null |
 542                 $AWK -F: "$awkscript"
 543         `$initialize_fullname;;
 544 esac
 545
 546
 547 # Function to print a single log line.
 548 # We don't use awk functions, to stay compatible with old awk versions.
 549 # `Log' is the log message.
 550 # `files' contains the affected files.
 551 printlogline='{
 552
 553         # Following the GNU coding standards, rewrite
 554         #       * file: (function): comment
 555         # to
 556         #       * file (function): comment
 557         if (Log ~ /^\([^)]*\):[\t\n ]/) {
 558                 i = index(Log, ")")
 559                 filefunc = substr(Log, 1, i)
 560                 while ((j = index(filefunc, "\n"))) {
 561                         files = files " " substr(filefunc, 1, j-1)
 562                         filefunc = substr(filefunc, j+1)
 563                 }
 564                 files = files " " filefunc
 565                 Log = substr(Log, i+3)
 566         }
 567
 568         # If "label: comment" is too long, break the line after the ":".
 569         sep = " "
 570         i = index(Log, "\n")
 571         if ('"$length"' <= '"$indent"' + 1 + length(files) + i) sep = "\n" indent_string
 572
 573         # Print the label.
 574         printf "%s*%s:", indent_string, files
 575
 576         # Print each line of the log.
 577         while (i) {
 578                 logline = substr(Log, 1, i-1)
 579                 if (logline ~ /[^'"$tab"' ]/) {
 580                         printf "%s%s\n", sep, logline
 581                 } else {
 582                         print ""
 583                 }
 584                 sep = indent_string
 585                 Log = substr(Log, i+1)
 586                 i = index(Log, "\n")
 587         }
 588 }'
 589
 590 # Pattern to match the `revision' line of rlog output.
 591 rlog_revision_pattern='^revision [0-9]+\.[0-9]+(\.[0-9]+\.[0-9]+)*(['"$tab"' ]+locked by: [^'"$tab"' $,.0-9:;@]*[^'"$tab"' $,:;@][^'"$tab"' $,.0-9:;@]*;)?['"$tab"' ]*$'
 592
 593 case $hostname in
 594 '')
 595         hostname=`(
 596                 hostname || uname -n || uuname -l || cat /etc/whoami
 597         ) 2>/dev/null` || {
 598                 echo >&2 "$0: cannot deduce hostname"
 599                 exit 1
 600         }
 601
 602         case $hostname in
 603         *.*) ;;
 604         *)
 605                 domainname=`(domainname) 2>/dev/null` &&
 606                 case $domainname in
 607                 *.*) hostname=$hostname.$domainname;;
 608                 esac;;
 609         esac;;
 610 esac
 611
 612
 613 # Process the rlog output, generating ChangeLog style entries.
 614
 615 # First, reformat the rlog output so that each line contains one log entry.
 616 # Transliterate \n to SOH so that multiline entries fit on a single line.
 617 # Discard irrelevant rlog output.
 618 $AWK '
 619         BEGIN {
 620                 pository = "'"$pository"'"
 621                 SOH="'"$SOH"'"
 622         }
 623         /^RCS file: / {
 624                 if (pository != "") {
 625                         filename = substr($0, 11)
 626                         if (substr(filename, 1, length(pository)) == pository) {
 627                                 filename = substr(filename, length(pository) + 1)
 628                         }
 629                         if (filename ~ /,v$/) {
 630                                 filename = substr(filename, 1, length(filename) - 2)
 631                         }
 632                         if (filename ~ /(^|\/)Attic\/[^\/]*$/) {
 633                                 i = length(filename)
 634                                 while (substr(filename, i, 1) != "/") i--
 635                                 filename = substr(filename, 1, i - 6) substr(filename, i + 1)
 636                         }
 637                 }
 638                 rev = "?"
 639         }
 640         /^Working file: / { if (repository == "") filename = substr($0, 15) }
 641         /'"$rlog_revision_pattern"'/, /^(-----------*|===========*)$/ {
 642                 line = $0
 643                 if (line ~ /'"$rlog_revision_pattern"'/) {
 644                         rev = $2
 645                         next
 646                 }
 647                 if (line ~ /^date: [0-9][- +\/0-9:]*;/) {
 648                         date = $2
 649                         if (date ~ /\//) {
 650                                 # This is a traditional RCS format date YYYY/MM/DD.
 651                                 # Replace "/"s with "-"s to get ISO format.
 652                                 newdate = ""
 653                                 while ((i = index(date, "/")) != 0) {
 654                                         newdate = newdate substr(date, 1, i-1) "-"
 655                                         date = substr(date, i+1)
 656                                 }
 657                                 date = newdate date
 658                         }
 659                         time = ""
 660                         for (i = 3; i <= NF; i++) {
 661                                 time = time $i
 662                                 if (time ~ /;$/) {
 663                                         time = substr(time, 1, length(time) - 1)
 664                                         break
 665                                 }
 666                         }
 667                         i++
 668                         if ($i == "author:") {
 669                                 author = $(i + 1)
 670                                 if (author ~ /;$/) {
 671                                         author = substr(author, 1, length(author) - 1)
 672                                 }
 673                         } else {
 674                                 author = ""
 675                         }
 676                         printf "%s%s%s%s%s%s%s%s%s%s", filename, SOH, rev, SOH, date, SOH, time, SOH, author, SOH
 677                         rev = "?"
 678                         next
 679                 }
 680                 if (line ~ /^branches: /) { next }
 681                 if (line ~ /^(-----------*|===========*)$/) { print ""; next }
 682                 if (line == "Initial revision" || line ~ /^file .+ was initially added on branch .+\.$/) {
 683                         line = "New file."
 684                 }
 685                 printf "%s%s", line, SOH
 686         }
 687 ' <"$rlogfile" |
 688
 689 # Now each line is of the form
 690 # FILENAME@REVISION@YYYY-MM-DD@HH:MM:SS[+-TIMEZONE]@AUTHOR@LOG
 691 #       where @ stands for an SOH (octal code 001),
 692 #       and each line of LOG is terminated by SOH instead of \n.
 693 # Sort the log entries, first by date+time (in reverse order),
 694 # then by author, then by log entry, and finally by file name and revision
 695 # (just in case).
 696 sort -t"$SOH" $SORT_K_OPTIONS |
 697
 698 # Finally, reformat the sorted log entries.
 699 $AWK -F"$SOH" '
 700         BEGIN {
 701                 logTZ = "'"$logTZ"'"
 702                 revision = "'"$revision"'"
 703
 704                 # Initialize the fullname and mailaddr associative arrays.
 705                 '"$initialize_fullname"'
 706                 '"$initialize_mailaddr"'
 707
 708                 # Initialize indent string.
 709                 indent_string = ""
 710                 i = '"$indent"'
 711                 if (0 < '"$tabwidth"')
 712                         for (;  '"$tabwidth"' <= i;  i -= '"$tabwidth"')
 713                                 indent_string = indent_string "\t"
 714                 while (1 <= i--)
 715                         indent_string = indent_string " "
 716         }
 717
 718         {
 719                 newlog = ""
 720                 for (i = 6; i < NF; i++) newlog = newlog $i "\n"
 721
 722                 # Ignore log entries prefixed by "#".
 723                 if (newlog ~ /^#/) { next }
 724
 725                 if (Log != newlog || date != $3 || author != $5) {
 726
 727                         # The previous log and this log differ.
 728
 729                         # Print the old log.
 730                         if (date != "") '"$printlogline"'
 731
 732                         # Logs that begin with "{clumpname} " should be grouped together,
 733                         # and the clumpname should be removed.
 734                         # Extract the new clumpname from the log header,
 735                         # and use it to decide whether to output a blank line.
 736                         newclumpname = ""
 737                         sep = "\n"
 738                         if (date == "") sep = ""
 739                         if (newlog ~ /^\{[^'"$tab"' }]*}['"$tab"' ]/) {
 740                                 i = index(newlog, "}")
 741                                 newclumpname = substr(newlog, 1, i)
 742                                 while (substr(newlog, i+1) ~ /^['"$tab"' ]/) i++
 743                                 newlog = substr(newlog, i+1)
 744                                 if (clumpname == newclumpname && date == $3 && author == $5) sep = ""
 745                         }
 746                         printf sep
 747                         clumpname = newclumpname
 748
 749                         # Get ready for the next log.
 750                         Log = newlog
 751                         if (files != "")
 752                                 for (i in filesknown)
 753                                         filesknown[i] = 0
 754                         files = ""
 755                 }
 756                 if (date != $3  ||  author != $5) {
 757                         # The previous date+author and this date+author differ.
 758                         # Print the new one.
 759                         date = $3
 760                         time = $4
 761                         author = $5
 762
 763                         zone = ""
 764                         if (logTZ && ((i = index(time, "-")) || (i = index(time, "+"))))
 765                                 zone = " " substr(time, i)
 766
 767                         # Print "date[ timezone]  fullname  <email address>".
 768                         # Get fullname and email address from associative arrays;
 769                         # default to author and author@hostname if not in arrays.
 770                         if (fullname[author])
 771                                 auth = fullname[author]
 772                         else
 773                                 auth = author
 774                         printf "%s%s  %s  ", date, zone, auth
 775                         if (mailaddr[author])
 776                                 printf "<%s>\n\n", mailaddr[author]
 777                         else
 778                                 printf "<%s@%s>\n\n", author, "'"$hostname"'"
 779                 }
 780                 if (! filesknown[$1]) {
 781                         filesknown[$1] = 1
 782                         if (files == "") files = " " $1
 783                         else files = files ", " $1
 784                         if (revision && $2 != "?") files = files " " $2
 785                 }
 786         }
 787         END {
 788                 # Print the last log.
 789                 if (date != "") {
 790                         '"$printlogline"'
 791                         printf "\n"
 792                 }
 793         }
 794 ' &&
 795
 796
 797 # Exit successfully.
 798
 799 exec rm -fr "$logdir"
 800
 801 # Local Variables:
 802 # tab-width:4
 803 # End: