[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to tindex.pl
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to tindex.pl |
Date: |
Thu, 06 Sep 2007 04:23:42 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/09/06 04:23:42
Index: tindex.pl
===================================================================
RCS file: tindex.pl
diff -N tindex.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ tindex.pl 6 Sep 2007 04:23:42 -0000 1.1
@@ -0,0 +1,127 @@
+#! /usr/bin/perl
+
+# Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005,
+# 2006, 2007 Free Software Foundation, Inc.
+#
+# This file is part of GNU Emacs.
+#
+# GNU Emacs is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+#
+# GNU Emacs is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GNU Emacs; see the file COPYING. If not, write to the
+# Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+# Boston, MA 02110-1301, USA.
+
+require 5;
+use Getopt::Long;
+
+my $USAGE = <<ENDUSAGE;
+Remove address@hidden lines from files that were already present in previous
+versions.
+
+Usage: $0 [--old=EXT] FILE...
+ $0 --help
+ $0 --version
+
+ --help display this help and exit
+ --version print version and exit
+ --old=DIR find old files in DIR
+
+The script performs two passes. In the first pass, Texinfo files from
+DIR are scanned for address@hidden lines, and identifiers in them are
+recorded. In a second pass, Texinfo files in the current directory
+are scanned, and address@hidden lines for identifiers that were recorded in
+the first pass are removed. Old file contents are saved in files
+with extension ".orig". A list of modified files and removed address@hidden
+identifiers is printed to stdout at the end.
+ENDUSAGE
+
+sub fatal {
+ print STDERR "$0: ", @_, ".\n";
+ exit 1;
+}
+
+my $help = 0;
+my $version = 0;
+my $old;
+
+my $rc = GetOptions ('help' => \$help, 'version' => \$version,
+ 'old=s' => \$old);
+if ($version) {
+ print "0.1\n";
+ exit 0;
+} elsif (!$rc || !$old || @ARGV) {
+ print $USAGE;
+ exit 1;
+} elsif ($help) {
+ print $USAGE;
+ exit 0;
+}
+
+# Fill the hash %tindex with associations VAR -> COUNT where
+# the keys VAR are identifiers mentioned in @tindex lines in the older
+# files to process and COUNT is the number of times they are seen in
+# the files.
+
+my %tindex;
+my %removed;
+my @old_files = glob "$old/*.texi";
+my @new_files = glob "*.texi";
+fatal ("No Texinfo files found in `$old'") unless @old_files;
+fatal ("No Texinfo files found in current directory") unless @new_files;
+
+print "Scanning old files for address@hidden lines\n";
+foreach $file (@old_files) {
+ open (IN, "<$file") or fatal "Cannot open $file: $!";
+ while (<IN>) {
+ ++$tindex{$1} if /address@hidden(\S+)/;
+ }
+ close IN;
+}
+
+# Process current files and remove those @tindex lines which we
+# know were already present in the files scanned above.
+
+print "Removing old address@hidden lines\n";
+foreach $file (@new_files) {
+ my $modified = 0;
+ my $contents = "";
+
+ open (IN, "< $file") or fatal "Cannot open $file.orig for reading: $!";
+ while (<IN>) {
+ if (/address@hidden(\S+)/ && $tindex{$1}) {
+ ++$removed{$1};
+ $modified = 1;
+ } else {
+ $contents = $contents . $_;
+ }
+ }
+
+ close IN;
+
+ if ($modified) {
+ print " $file\n";
+ system ("cp $file $file.orig") == 0 or fatal "Cannot backup $file: $!";
+ open (OUT, ">$file") or fatal "Cannot open $file for writing: $!";
+ print OUT $contents;
+ close OUT;
+ }
+}
+
+# Print a list of identifiers removed.
+
+print "Removed address@hidden commands for:\n";
+my $key;
+foreach $key (keys %removed) {
+ print " $key\n";
+}
+
+# arch-tag: f8460df6-6bef-4c98-8555-e2c63a88b0fa