comparison lib-src/rcs2log @ 594:efa0c124c178

Add clumpname support.

593:bd5346b8a486

#!/bin/sh

# RCS to ChangeLog generator

#	$Id: rcs2clog,v 1.2 1992/02/05 04:31:18 eggert Exp eggert $

# Generate a change log prefix from RCS/* and the existing ChangeLog (if any).
# Output the new prefix to standard output.
# You can edit this prefix by hand, and then prepend it to ChangeLog.

# Function to print a single log line.
# We don't use awk functions, to stay compatible with old awk versions.
# `Log' is the log message (with \n replaced by \r).
# `files' contains the affected files (each preceded by a space).
printlogline='{

	# Following the GNU coding standards, rewrite
	#	* file: (function): comment
	# to

	while ((i = index(Log, "\r")) != 0) {
		printf "%s%s\n", sep, substr(Log, 1, i-1)
		sep = indent_string
		Log = substr(Log, i+1)
	}

	printf "\n"
}'

hostname=`(
	hostname || cat /etc/whoami || uuname -l || uname -n
) 2>/dev/null` || {

		mo[12]=365
	}
	{
		newlog = substr($0, 1 + index($0, "\r"))
		if (Log != newlog || date != $2 || author != $4) {
			# The previous log and this log differ.
			# Print the old one.
			if (date != "") '"$printlogline"'

			# Get ready for the next log.
			Log = newlog
			if (files != "")
				for (i in filesknown)

			else
				printf "%s\n\n", author
		}
		if (! filesknown[$1]) {
			filesknown[$1] = 1
			files = files " " $1
		}
	}
	END {
		# Print the last log.
		if (date != "") '"$printlogline"'
	}
' &&


# Exit successfully.

594:efa0c124c178

#!/bin/sh

# RCS to ChangeLog generator

#	$Id: rcs2clog,v 1.3 1992/02/05 17:25:10 eggert Exp eggert $

# Generate a change log prefix from RCS/* and the existing ChangeLog (if any).
# Output the new prefix to standard output.
# You can edit this prefix by hand, and then prepend it to ChangeLog.

# Function to print a single log line.
# We don't use awk functions, to stay compatible with old awk versions.
# `Log' is the log message (with \n replaced by \r).
# `files' contains the affected files.
printlogline='{

	# Following the GNU coding standards, rewrite
	#	* file: (function): comment
	# to

	while ((i = index(Log, "\r")) != 0) {
		printf "%s%s\n", sep, substr(Log, 1, i-1)
		sep = indent_string
		Log = substr(Log, i+1)
	}
}'

hostname=`(
	hostname || cat /etc/whoami || uuname -l || uname -n
) 2>/dev/null` || {

		mo[12]=365
	}
	{
		newlog = substr($0, 1 + index($0, "\r"))
		if (Log != newlog || date != $2 || author != $4) {

			# The previous log and this log differ.

			# Print the old log.
			if (date != "") '"$printlogline"'

			# Logs that begin with "{clumpname} " should be grouped together,
			# and the clumpname should be removed.
			# Extract the new clumpname from the log header,
			# and use it to decide whether to output a blank line.
			newclumpname = ""
			sep = "\n"
			if (newlog ~ /^{[^	 }]+}[	 ]/) {
				i = index(newlog, "}")
				newclumpname = substr(newlog, 1, i)
				while (substr(newlog, i+1) ~ /^[	 ]/) i++
				newlog = substr(newlog, i+1)
				if (clumpname == newclumpname) sep = ""
			}
			printf sep
			clumpname = newclumpname

			# Get ready for the next log.
			Log = newlog
			if (files != "")
				for (i in filesknown)

			else
				printf "%s\n\n", author
		}
		if (! filesknown[$1]) {
			filesknown[$1] = 1
			if (files == "") files = " " $1
			else files = files ", " $1
		}
	}
	END {
		# Print the last log.
		if (date != "") {
			'"$printlogline"'
			printf "\n"
		}
	}
' &&


# Exit successfully.