3 # RCS to ChangeLog generator
5 # Generate a change log prefix from RCS/* and the existing ChangeLog (if any).
6 # Output the new prefix to standard output.
7 # You can edit this prefix by hand, and then prepend it to ChangeLog.
9 # Ignore log entries that start with `#'.
10 # Clump together log entries that start with `{topic} ',
11 # where `topic' contains neither white space nor `}'.
13 # Author: Paul Eggert <eggert@twinsun.com>
15 # $Id: rcs2log,v 1.11 1993/05/03 17:55:22 eggert Exp rms $
17 # Copyright 1992, 1993 Free Software Foundation, Inc.
19 # This program is free software; you can redistribute it and/or modify
20 # it under the terms of the GNU General Public License as published by
21 # the Free Software Foundation; either version 2, or (at your option)
24 # This program is distributed in the hope that it will be useful,
25 # but WITHOUT ANY WARRANTY; without even the implied warranty of
26 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
27 # GNU General Public License for more details.
29 # You should have received a copy of the GNU General Public License
30 # along with this program; see the file COPYING. If not, write to
31 # the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
39 indent
=8 # indent of log line
40 length
=79 # suggested max width of log line
41 tabwidth
=8 # width of horizontal tab
49 -*) echo >&2 "$0: usage: $0 [-i indent] [-l length] [-t tabwidth] [file ...]"
57 m[0]="Jan"; m[1]="Feb"; m[2]="Mar"
58 m[3]="Apr"; m[4]="May"; m[5]="Jun"
59 m[6]="Jul"; m[7]="Aug"; m[8]="Sep"
60 m[9]="Oct"; m[10]="Nov"; m[11]="Dec"
62 # days in non-leap year thus far, indexed by month (0-12)
63 mo[0]=0; mo[1]=31; mo[2]=59; mo[3]=90
64 mo[4]=120; mo[5]=151; mo[6]=181; mo[7]=212
65 mo[8]=243; mo[9]=273; mo[10]=304; mo[11]=334
70 # Log into $rlogout the revisions checked in since the first ChangeLog entry.
75 # Add 1 to seconds to avoid duplicating most recent log.
77 /^... ... [ 0-9][0-9] [ 0-9][0-9]:[0-9][0-9]:[0-9][0-9] [0-9]+ /{
80 for (i=0; i<=11; i++) if (m[i] == $2) break
95 monthdays = mo[i+1] - mo[i]
96 if (i == 1 && year%4 == 0 && (year%100 != 0 || year%400 == 0)) monthdays++
97 if (dd == monthdays + 1) {
108 printf "%d/%02d/%02d %02d:%02d:%02d\n", year, i+1, dd, hh, mm, ss
112 d
=`awk "$e" <ChangeLog` ||
exit
119 # With no arguments, examine all files under the RCS directory.
123 for file in RCS
/.
* RCS
/*
127 RCS
/.\
* | RCS
/\
*) test -f "$file" && files
=$files$nl$file;;
128 *) files
=$files$nl$file
142 trap 'rm -f $rlogout; exit 1' 0
144 rlog
"$datearg" "$@" >$rlogout ||
exit
147 # Get the full name of each author the logs mention, and set initialize_fullname
148 # to awk code that initializes the `fullname' awk associative array.
149 # Warning: foreign authors (i.e. not known in the passwd file) are mishandled;
150 # you have to fix the resulting output by hand.
154 sed -n 's|^date: *[0-9]*/[0-9][0-9]/[0-9][0-9] [0-9][0-9]:[0-9][0-9]:[0-9][0-9]; *author: *\([^; ]*\).*|\1|p' <$rlogout |
160 for author
in $authors
162 initialize_author
="$initialize_author
163 author[\"$author\"] = 1
169 alphabet = "abcdefghijklmnopqrstuvwxyz"
170 ALPHABET = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
171 '"$initialize_author"'
176 abbr = index(fullname, "&")
180 i = index(alphabet, a)
181 if (i) A = substr(ALPHABET, i, 1)
182 fullname = substr(fullname, 1, abbr-1) A substr($1, 2) substr(fullname, abbr+1)
184 printf "fullname[\"%s\"] = \"%s\"\n", $1, fullname
190 initialize_fullname
=`
191 (cat /etc/passwd; ypmatch $authors passwd) 2>/dev/null |
197 # Function to print a single log line.
198 # We don't use awk functions, to stay compatible with old awk versions.
199 # `Log' is the log message (with \n replaced by \r).
200 # `files' contains the affected files.
203 # Following the GNU coding standards, rewrite
204 # * file: (function): comment
206 # * file (function): comment
207 if (Log ~ /^\([^)]*\): /) {
209 files = files " " substr(Log, 1, i)
210 Log = substr(Log, i+3)
213 # If "label: comment" is too long, break the line after the ":".
215 if ('"$length"' <= '"$indent"' + 1 + length(files) + index(Log, CR)) sep = "\n" indent_string
218 printf "%s*%s:", indent_string, files
220 # Print each line of the log, transliterating \r to \n.
221 while ((i = index(Log, CR)) != 0) {
222 printf "%s%s\n", sep, substr(Log, 1, i-1)
224 Log = substr(Log, i+1)
229 hostname || cat /etc/whoami || uuname -l || uname -n
231 echo >&2 "$0: cannot deduce hostname"
236 # Process the rlog output, generating ChangeLog style entries.
238 # First, reformat the rlog output so that each line contains one log entry.
239 # Transliterate \n to \r so that multiline entries fit on a single line.
240 # Discard irrelevant rlog output.
242 /^Working file:/ { filename = $3 }
243 /^date: /, /^(-----------*|===========*)$/ {
244 if ($0 ~ /^branches: /) { next }
245 if ($0 ~ /^date: [0-9][ \/0-9:]*;/) {
246 time = substr($3, 1, length($3)-1)
247 author = substr($5, 1, length($5)-1)
248 printf "%s %s %s %s %c", filename, $2, time, author, 13
251 if ($0 ~ /^(-----------*|===========*)$/) { print ""; next }
252 printf "%s%c", $0, 13
256 # Now each line is of the form
257 # FILENAME YYYY/MM/DD HH:MM:SS AUTHOR \rLOG
258 # where \r stands for a carriage return,
259 # and each line of the log is terminated by \r instead of \n.
260 # Sort the log entries, first by date+time (in reverse order),
261 # then by author, then by log entry, and finally by file name (just in case).
264 # Finally, reformat the sorted log entries.
267 # Some awks do not understand "\r" or "\013", so we have to
268 # put a carriage return directly in the file.
269 CR="
" # <-- There is a single CR between the " chars here.
271 # Initialize the fullname associative array.
272 '"$initialize_fullname"'
274 # Initialize indent string.
277 if (0 < '"$tabwidth"')
278 for (; '"$tabwidth"' <= i; i -= '"$tabwidth"')
279 indent_string = indent_string "\t"
281 indent_string = indent_string " "
283 # Set up date conversion tables.
284 # RCS uses a nice, clean, sortable format,
285 # but ChangeLog wants the traditional, ugly ctime format.
287 # January 1, 0 AD (Gregorian) was Saturday = 6
289 # Of course, there was no 0 AD, but the algorithm works anyway.
291 w[0]="Sun"; w[1]="Mon"; w[2]="Tue"; w[3]="Wed"
292 w[4]="Thu"; w[5]="Fri"; w[6]="Sat"
298 newlog = substr($0, 1 + index($0, CR))
300 # Ignore log entries prefixed by "#".
301 if (newlog ~ /^#/) { next }
303 if (Log != newlog || date != $2 || author != $4) {
305 # The previous log and this log differ.
308 if (date != "") '"$printlogline"'
310 # Logs that begin with "{clumpname} " should be grouped together,
311 # and the clumpname should be removed.
312 # Extract the new clumpname from the log header,
313 # and use it to decide whether to output a blank line.
316 if (date == "") sep = ""
317 if (newlog ~ /^{[^ }]*}[ ]/) {
318 i = index(newlog, "}")
319 newclumpname = substr(newlog, 1, i)
320 while (substr(newlog, i+1) ~ /^[ ]/) i++
321 newlog = substr(newlog, i+1)
322 if (clumpname == newclumpname) sep = ""
325 clumpname = newclumpname
327 # Get ready for the next log.
330 for (i in filesknown)
334 if (date != $2 || author != $4) {
335 # The previous date+author and this date+author differ.
340 # Convert nice RCS date like "1992/01/03 00:03:44"
341 # into ugly ctime date like "Fri Jan 3 00:03:44 1992".
342 # Calculate day of week from Gregorian calendar.
344 year = substr($2, 1, i-1) + 0
345 monthday = substr($2, i+1)
346 i = index(monthday, "/")
347 month = substr(monthday, 1, i-1) + 0
348 day = substr(monthday, i+1) + 0
350 if (2 < month && year%4 == 0 && (year%100 != 0 || year%400 == 0)) leap = 1
351 days_since_Sunday_before_epoch = EPOCH_WEEKDAY + year * 365 + int((year + 3) / 4) - int((year + 99) / 100) + int((year + 399) / 400) + mo[month-1] + leap + day - 1
353 # Print "date fullname (email address)" if the fullname is known;
354 # print "date author" otherwise.
355 # Get the fullname from the associative array.
356 # The email address is just author@thishostname.
357 printf "%s %s %2d %s %d ", w[days_since_Sunday_before_epoch%7], m[month-1], day, $3, year
358 if (fullname[author])
359 printf "%s (%s@%s)\n\n", fullname[author], author, "'"$hostname"'"
361 printf "%s\n\n", author
363 if (! filesknown[$1]) {
365 if (files == "") files = " " $1
366 else files = files ", " $1
370 # Print the last log.