X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/b6a6731a9b28956748afe6fee2512da84a30e052..adc55deaa5e0496d50042dd5a6bd4d0c41e09c78:/lib-src/grep-changelog

diff --git a/lib-src/grep-changelog b/lib-src/grep-changelog
index 15a3d3c99d..82a14efb38 100755
--- a/lib-src/grep-changelog
+++ b/lib-src/grep-changelog
@@ -1,5 +1,4 @@
 #! /usr/bin/perl
-# $Id: grep-changelog,v 1.4 2001/07/20 09:59:19 gerd Exp $
 
 # Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
 #
@@ -24,22 +23,28 @@
 # Extract entries from ChangeLogs matching specified criteria.
 # Optionally format the resulting output to a form suitable for RCS
 # logs, like they are used in Emacs, for example.  In this format,
-# author lines leading spaces, and file names are removed.
+# author lines, leading spaces, and file names are removed.
 
 require 5;
+use strict;
 
 # Parse command line options.
 
+use vars qw($author $regexp $exclude $from_date $to_date
+            $rcs_log $with_date $version $help $reverse
+            @entries);
+
 use Getopt::Long;
-$result = GetOptions ("author=s" => \$author,
-		      "text=s"  => \$regexp,
-		      "exclude=s"  => \$exclude,
-		      "from-date=s" => \$from_date,
-		      "to-date=s" => \$to_date,
-		      "rcs-log" => \$rcs_log,
-		      "with-date" => \$with_date,
-		      "version" => \$version,
-		      "help"    => \$help);
+my $result = GetOptions ("author=s" => \$author,
+                         "text=s"  => \$regexp,
+                         "exclude=s"  => \$exclude,
+                         "from-date=s" => \$from_date,
+                         "to-date=s" => \$to_date,
+                         "rcs-log" => \$rcs_log,
+                         "with-date" => \$with_date,
+                         "reverse!" => \$reverse,
+                         "version" => \$version,
+                         "help"    => \$help);
 
 # If date options are specified, check that they have the format
 # YYYY-MM-DD.
@@ -64,6 +69,7 @@ are
   --to-date=YYYY-MM-DD    match entries not younger than given date
   --rcs-log		  format output suitable for RCS log entries.
   --with-date		  print short date line in RCS log
+  --reverse               show entries in reverse (chronological) order
   --version		  print version info
   --help		  print this help
 
@@ -139,6 +145,7 @@ sub entry_match_p ($) {
 
 sub print_log ($$) {
     my ($header, $entry) = @_;
+    my $output = '';
 
     if ($rcs_log) {
 	# Remove leading whitespace from entry.
@@ -149,11 +156,17 @@ sub print_log ($$) {
 	$entry =~ s/^\*.*://mg;
         if ($with_date) {
 	    $header =~ /(\d\d\d\d-\d\d-\d\d)/;
-	    print "!changelog-date $1\n";
+	    $output = "!changelog-date $1\n";
 	}
-	print $entry;
+	$output .= $entry;
+    } else {
+	$output .= $header . $entry;
+    }
+
+    if ($reverse) {
+        push @entries, $output;
     } else {
-	print $header, $entry;
+        print $output;
     }
 }
 
@@ -161,13 +174,15 @@ sub print_log ($$) {
 
 sub parse_changelog ($) {
     my $log = shift;
-    my $entry;
-    my $match;
+    my $entry = undef;
+    my $header = undef;
+
+    @entries = () if $reverse;
 
     # Open the ChangeLog.
     open (IN, "< $log") || die "Cannot open $log: $!";
 
-    while ($line = <IN>) {
+    while (defined(my $line = <IN>)) {
 	if ($line =~ /^\S/) {
 	    # Line is an author-line.  Print previous entry if
 	    # it matches.
@@ -183,6 +198,8 @@ sub parse_changelog ($) {
 	    }
         }
 
+        last unless defined $line;
+
 	if ($line =~ /^\s*\*/) {
 	    # LINE is the first line of a ChangeLog entry.  Print
 	    # previous entry if it matches.
@@ -200,24 +217,27 @@ sub parse_changelog ($) {
 	if header_match_p ($header) && entry_match_p ($entry);
 
     close IN;
+
+    if ($reverse) {
+        while (defined (my $entry = pop @entries)) {
+            print $entry;
+        }
+    }
 }
 
 
 # Main program.  Process ChangeLogs.
 
-if (@ARGV > 0) {
-    # If files were specified on the command line, parse those files.
-    while ($log = shift @ARGV) {
-	parse_changelog ($log);
-    }
-} else {
-    # Parse default files ChangeLog and ChangeLog.9...ChangeLog.1 in
-    # that order.
-    parse_changelog ("ChangeLog");
-    for ($i = 9; $i >= 1; --$i) {
-	my $log = "ChangeLog.$i";
-	parse_changelog ($log) if -f $log;
-    }
+# If files were specified on the command line, parse those files in the
+# order supplied by the user; otherwise parse default files ChangeLog and
+# ChangeLog.9...ChangeLog.1 according to $reverse.
+unless (@ARGV > 0) {
+    @ARGV = ("ChangeLog", map {"ChangeLog.$_"} reverse 1..9);
+    @ARGV = reverse @ARGV if $reverse;
+}
+
+while (defined (my $log = shift @ARGV)) {
+    parse_changelog ($log) if -f $log;
 }