emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r108036: Remove doc/lispref/tindex.pl


From: Glenn Morris
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r108036: Remove doc/lispref/tindex.pl
Date: Wed, 25 Apr 2012 18:47:05 -0700
User-agent: Bazaar (2.3.1)

------------------------------------------------------------
revno: 108036
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2012-04-25 18:47:05 -0700
message:
  Remove doc/lispref/tindex.pl
  I think it is not needed any more.
  
  * doc/lispref/tindex.pl: Remove file.
  * make-dist: No more doc/lispref/tindex.pl.
removed:
  doc/lispref/tindex.pl
modified:
  ChangeLog
  doc/lispref/ChangeLog
  make-dist
=== modified file 'ChangeLog'
--- a/ChangeLog 2012-04-22 14:11:43 +0000
+++ b/ChangeLog 2012-04-26 01:47:05 +0000
@@ -1,3 +1,7 @@
+2012-04-26  Glenn Morris  <address@hidden>
+
+       * make-dist: No more doc/lispref/tindex.pl.
+
 2012-04-22  Michael Albinus  <address@hidden>
 
        * configure.in (dbus_validate_bus_name, dbus_validate_path)

=== modified file 'doc/lispref/ChangeLog'
--- a/doc/lispref/ChangeLog     2012-04-26 01:08:03 +0000
+++ b/doc/lispref/ChangeLog     2012-04-26 01:47:05 +0000
@@ -1,5 +1,7 @@
 2012-04-26  Glenn Morris  <address@hidden>
 
+       * tindex.pl: Remove file.
+
        * makefile.w32-in (srcs):
        * Makefile.in (srcs): Remove back.texi (which is unused).
 

=== removed file 'doc/lispref/tindex.pl'
--- a/doc/lispref/tindex.pl     2012-01-19 07:21:25 +0000
+++ b/doc/lispref/tindex.pl     1970-01-01 00:00:00 +0000
@@ -1,124 +0,0 @@
-#! /usr/bin/perl
-
-# Copyright (C) 2000-2012  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 of the License, 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.  If not, see <http://www.gnu.org/licenses/>.
-
-
-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";
-}
-

=== modified file 'make-dist'
--- a/make-dist 2012-02-05 20:56:41 +0000
+++ b/make-dist 2012-04-26 01:47:05 +0000
@@ -478,7 +478,7 @@
 echo "Making links to \`doc/lispref'"
 (cd doc/lispref
  ln *.texi *.in makefile.w32-in README ChangeLog* ../../${tempdir}/doc/lispref
- ln *.txt *.el spellfile tindex.pl ../../${tempdir}/doc/lispref
+ ln *.txt *.el spellfile ../../${tempdir}/doc/lispref
  ln two-volume.make ../../${tempdir}/doc/lispref)
 
 echo "Making links to \`doc/lispintro'"


reply via email to

[Prev in Thread] Current Thread [Next in Thread]