[7838] texi2dvi add sorted_index_files function

[gavinsmith0123]

Revision: 7838
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7838
Author:   gavin
Date:     2017-06-21 15:34:18 -0400 (Wed, 21 Jun 2017)
Log Message:
-----------
texi2dvi add sorted_index_files function

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/util/texi2dvi

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2017-06-19 19:42:30 UTC (rev 7837)
+++ trunk/ChangeLog     2017-06-21 19:34:18 UTC (rev 7838)
@@ -1,3 +1,14 @@
+2017-06-21  Gavin Smith  <address@hidden>
+
+       * util/texi2dvi (filter_files): Comment changed.
+       (add_all_filter): Do not print the argument of the file, so 
+       using this with filter_files only prints secondary files.
+       (add_all_filter, sorted_index_filter): Rename.
+       (sorted_index_files): New function.
+       (all_files): Use sorted_index_files instead of add_all_filter.
+
+       No functional changes intended.
+
 2017-06-19  Gavin Smith  <address@hidden>
 
        * tp/TODO: Mention that some checks for incorrect nesting

Modified: trunk/util/texi2dvi
===================================================================
--- trunk/util/texi2dvi 2017-06-19 19:42:30 UTC (rev 7837)
+++ trunk/util/texi2dvi 2017-06-21 19:34:18 UTC (rev 7838)
@@ -1013,8 +1013,9 @@
 }
 
 
-# filter_file PREDICATE - Print the names of files in xref_files_new
-#                         that match PREDICATE.
+# filter_file PREDICATE - Go through the list of files in xref_files_new
+# and use PREDICATE on each one to optionally print it or print other files 
+# based on the filename.
 filter_files ()
 {
   test -n "$xref_files_new" || return 0
@@ -1630,13 +1631,18 @@
 {
   echo $in_noext.log
   echo $in_noext.fls
-  filter_files add_all_filter
+  echo $xref_files_new
+  echo `sorted_index_files`
 }
 
-# Echo FILE and any generated file based thereon.
-add_all_filter ()
+sorted_index_files ()
 {
-  echo $1
+  filter_files sorted_index_filter
+}
+
+# Print the name of a generated file based on FILE if there is one.
+sorted_index_filter ()
+{
   case $in_lang in
     texinfo)
       # texindex: texinfo.cp -> texinfo.cps