72-scan-texinfo.patch

[Akim Demaille]

Index: ChangeLog
from  Akim Demaille  <address@hidden>
        * automake.in (&scan_texinfo_file): Also compute the list of files
        to clean.
        Handle local errors.
        (&handle_texinfo): Use it.
        
        
Index: Makefile.in
--- Makefile.in Sat, 24 Feb 2001 17:12:49 +0100 akim (am/h/16_Makefile.i 1.23 
644)
+++ Makefile.in Sun, 25 Feb 2001 14:15:47 +0100 akim (am/h/16_Makefile.i 1.23 
644)
@@ -296,11 +296,10 @@
        done
 
 mostlyclean-aminfo:
-       -rm -f automake.aux automake.cp automake.cps automake.dvi automake.fn \
-         automake.fns automake.pgs automake.ky automake.kys \
-         automake.ps automake.log automake.pg automake.toc automake.tp \
-         automake.tps automake.vr automake.vrs automake.op automake.tr \
-         automake.cv automake.cn automake.cm automake.ov
+       -rm -f automake.aux automake.cm automake.cp automake.cps automake.cv \
+         automake.dvi automake.fn automake.ky automake.log automake.op \
+         automake.ov automake.pg automake.ps automake.toc automake.tp \
+         automake.tr automake.vr automake.vrs
 
 maintainer-clean-aminfo:
        cd $(srcdir) && \
Index: automake.in
--- automake.in Sun, 25 Feb 2001 13:21:52 +0100 akim (am/f/39_automake.i 1.79 
755)
+++ automake.in Sun, 25 Feb 2001 14:15:35 +0100 akim (am/f/39_automake.i 1.79 
755)
@@ -2139,13 +2139,19 @@ sub handle_scripts
     }
 }
 
-# Search a file for a "version.texi" Texinfo include.  Return the name
-# of the include file if found, or the empty string if not.  A
-# "version.texi" file is actually any file whose name matches
-# "vers*.texi".
+
+# ($OUTFILE, $VFILE, @CLEAN_FILES)
+# &scan_texinfo_file ($FILENAME)
+# ------------------------------
+# $OUTFILE is the name of the info file produced by $FILENAME.
+# $VFILE is the name of the version.texi file used (empty if none).
+# @CLEAN_FILES is the list of by products (indexes etc.)
 sub scan_texinfo_file
 {
     my ($filename) = @_;
+    my @clean_suffixes = ('aux', 'dvi', 'log', 'ps', 'toc',
+                         # grep new.*index texinfo.tex
+                         'cp', 'fn', 'ky', 'vr', 'tp', 'pg');
 
     if (! open (TEXI, $filename))
     {
@@ -2157,22 +2163,44 @@ sub scan_texinfo_file
     my ($outfile, $vfile);
     while (<TEXI>)
     {
-       if (/address@hidden +(\S+)/)
+      if (/address@hidden +(\S+)/)
+       {
+         $outfile = $1;
+         if ($outfile =~ /\.(.+)$/ && $1 ne 'info')
+           {
+             &am_file_error ($filename, "$.: ",
+                             "output \`$outfile' has unrecognized extension");
+             return;
+           }
+       }
+      # A "version.texi" file is actually any file whose name
+      # matches "vers*.texi".
+      elsif (/address@hidden(vers[^.]*\.texi)\s*$/)
        {
-           $outfile = $1;
-           last if ($vfile);
+         $vfile = $1;
        }
-
-       if (/address@hidden(vers[^.]*\.texi)\s*$/)
+      elsif (/address@hidden (\w*)/)
        {
-           # Found version.texi include.
-           $vfile = $1;
-           last if $outfile;
+         push @clean_suffixes, $1;
+       }
+      elsif (/address@hidden \w+ (\w*)/)
+       {
+         push @clean_suffixes, "$1s";
        }
     }
-
     close (TEXI);
-    return ($outfile, $vfile);
+
+    if ($outfile eq '')
+      {
+       &am_error ("\`$filename' missing address@hidden");
+       return;
+      }
+
+    my $infobase = basename ($filename);
+    $infobase =~ s/\.te?xi(nfo)?$//;
+    my %clean_files;
+    grep { $clean_files{"$infobase.$_"} = 1 } @clean_suffixes;
+    return ($outfile, $vfile, (sort keys %clean_files));
 }
 
 
@@ -2210,21 +2238,10 @@ sub handle_texinfo
 
        # If 'version.texi' is referenced by input file, then include
        # automatic versioning capability.
-       my ($out_file, $vtexi) = &scan_texinfo_file ($relative_dir
-                                                    . "/" . $info_cursor);
-
-       if ($out_file eq '')
-       {
-           &am_error ("\`$info_cursor' missing address@hidden");
-           next;
-       }
-
-       if ($out_file =~ /\.(.+)$/ && $1 ne 'info')
-       {
-           # FIXME should report line number in input file.
-           &am_error ("output of \`$info_cursor', \`$out_file', has 
unrecognized extension");
-           next;
-       }
+       my ($out_file, $vtexi, @clean_files) =
+         &scan_texinfo_file ("$relative_dir/$info_cursor")
+           or next;
+       push (@texi_cleans, @clean_files);
 
        if ($vtexi)
        {
@@ -2285,19 +2302,6 @@ sub handle_texinfo
 
        push (@info_deps_list, $out_file);
        push (@dvis_list, $infobase . '.dvi');
-
-       # Generate list of things to clean for this target.  We do
-       # this explicitly because otherwise too many things could be
-       # removed.  In particular the ".log" extension might
-       # reasonably be used in other contexts by the user.
-       # FIXME: this is really out of control.
-       foreach my $tc_cursor ('aux', 'cp', 'cps', 'dvi', 'fn', 'fns', 'pgs',
-                              'ky', 'kys', 'ps', 'log', 'pg', 'toc', 'tp',
-                              'tps', 'vr', 'vrs', 'op', 'tr', 'cv', 'cn',
-                              'cm', 'ov')
-       {
-           push (@texi_cleans, $infobase . '.' . $tc_cursor);
-       }
     }
 
     # Find these programs wherever they may lie.  Yes, this has