[8312] parsetexi defcodeindex check existing indices

[gavinsmith0123]

Revision: 8312
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8312
Author:   gavin
Date:     2018-10-17 08:35:54 -0400 (Wed, 17 Oct 2018)
Log Message:
-----------
parsetexi defcodeindex check existing indices

Modified Paths:
--------------
    trunk/tp/Texinfo/XS/parsetexi/end_line.c

Modified: trunk/tp/Texinfo/XS/parsetexi/end_line.c
===================================================================
--- trunk/tp/Texinfo/XS/parsetexi/end_line.c    2018-10-17 12:26:39 UTC (rev 
8311)
+++ trunk/tp/Texinfo/XS/parsetexi/end_line.c    2018-10-17 12:35:54 UTC (rev 
8312)
@@ -497,7 +497,6 @@
            BASE.NAME in the same directory.  This is to prevent such
            files being overwritten by the files read by texindex. */
         {
-          /* TODO: Also forbid existing index names. */
           static char *forbidden_index_names[] = {
             "info", "ps", "pdf", "htm", "html",
             "log", "aux", "dvi", "texi", "txi",
@@ -507,6 +506,9 @@
           for (ptr = forbidden_index_names; *ptr; ptr++)
             if (!strcmp (name, *ptr))
               goto defindex_reserved;
+
+          if (index_by_name (name))
+            goto defindex_reserved;
         }
 
         add_index (name, cmd == CM_defcodeindex ? 1 : 0);