/[emacs]/emacs/lispref/tindex.pl
ViewVC logotype

Diff of /emacs/lispref/tindex.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by gerd, Wed Jan 5 14:20:14 2000 UTC revision 1.1.18.1 by miles, Fri Apr 4 06:20:42 2003 UTC
# Line 52  my $help = 0; Line 52  my $help = 0;
52  my $version = 0;  my $version = 0;
53  my $old;  my $old;
54    
55  my $rc = GetOptions ('help' => \$help, 'version' => \$version,  my $rc = GetOptions ('help' => \$help, 'version' => \$version,
56                       'old=s' => \$old);                       'old=s' => \$old);
57  if ($version) {  if ($version) {
58      print "0.1\n";      print "0.1\n";
# Line 86  foreach $file (@old_files) { Line 86  foreach $file (@old_files) {
86      close IN;      close IN;
87  }  }
88    
89  # Process current files and remove those @tindex lines which we  # Process current files and remove those @tindex lines which we
90  # know were already present in the files scanned above.  # know were already present in the files scanned above.
91    
92  print "Removing old \@tindex lines\n";  print "Removing old \@tindex lines\n";
93  foreach $file (@new_files) {  foreach $file (@new_files) {
94      my $modified = 0;      my $modified = 0;
95      my $contents = "";      my $contents = "";
96        
97      open (IN, "< $file") or fatal "Cannot open $file.orig for reading: $!";      open (IN, "< $file") or fatal "Cannot open $file.orig for reading: $!";
98      while (<IN>) {      while (<IN>) {
99          if (/^\s*\@tindex\s+(\S+)/ && $tindex{$1}) {          if (/^\s*\@tindex\s+(\S+)/ && $tindex{$1}) {
# Line 103  foreach $file (@new_files) { Line 103  foreach $file (@new_files) {
103              $contents = $contents . $_;              $contents = $contents . $_;
104          }          }
105      }      }
106        
107      close IN;      close IN;
108    
109      if ($modified) {      if ($modified) {

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.18.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26