/usr/src/gnu/usr.bin/texinfo/info/indices.c

Bug Summary

File:	src/gnu/usr.bin/texinfo/info/indices.c
Warning:	line 375, column 7 Use of memory after it is freed

Annotated Source Code

Press '?' to see keyboard shortcuts

Show analyzer invocation

clang -cc1 -cc1 -triple amd64-unknown-openbsd7.0 -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name indices.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -pic-is-pie -mframe-pointer=all -relaxed-aliasing -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/gnu/usr.bin/texinfo/obj/info -resource-dir /usr/local/lib/clang/13.0.0 -D HAVE_CONFIG_H -D LOCALEDIR="/usr/share/locale" -D INFODIR="/usr/share/info" -D INFODIR2="/usr/share/info" -I . -I /usr/src/gnu/usr.bin/texinfo/info -I .. -I . -I /usr/src/gnu/usr.bin/texinfo/lib -I ../intl -I .. -I /usr/src/gnu/usr.bin/texinfo/info -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/gnu/usr.bin/texinfo/obj/info -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fgnuc-version=4.2.1 -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/vmm/scan-build/2022-01-12-194120-40624-1 -x c /usr/src/gnu/usr.bin/texinfo/info/indices.c

1/* indices.c -- deal with an Info file index.
 $Id: indices.c,v 1.5 2006/07/17 16:12:36 espie Exp $

 Copyright (C) 1993, 1997, 1998, 1999, 2002, 2003, 2004 Free Software
 Foundation, Inc.

 This program 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 2, or (at your option)
 any later version.

 This program 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 this program; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

 Originally written by Brian Fox (bfox@ai.mit.edu). */

23#include "info.h"
24#include "indices.h"

26/* User-visible variable controls the output of info-index-next. */
27int show_index_match = 1;

29/* In the Info sense, an index is a menu.  This variable holds the last
 parsed index. */
31static REFERENCE **index_index = (REFERENCE **)NULL((void *)0);

33/* The offset of the most recently selected index element. */
34static int index_offset = 0;

36/* Variable which holds the last string searched for. */
37static char *index_search = (char *)NULL((void *)0);

39/* A couple of "globals" describing where the initial index was found. */
40static char *initial_index_filename = (char *)NULL((void *)0);
41static char *initial_index_nodename = (char *)NULL((void *)0);

43/* A structure associating index names with index offset ranges. */
44typedef struct {
char *name;                   /* The nodename of this index. */
int first;                    /* The index in our list of the first entry. */
int last;                     /* The index in our list of the last entry. */
48} INDEX_NAME_ASSOC;

50/* An array associating index nodenames with index offset ranges. */
51static INDEX_NAME_ASSOC **index_nodenames = (INDEX_NAME_ASSOC **)NULL((void *)0);
52static int index_nodenames_index = 0;
53static int index_nodenames_slots = 0;

55/* Add the name of NODE, and the range of the associated index elements
 (passed in ARRAY) to index_nodenames. */
57static void
58add_index_to_index_nodenames (REFERENCE **array, NODE *node)
59{
register int i, last;
INDEX_NAME_ASSOC *assoc;

for (last = 0; array[last + 1]; last++);
assoc = (INDEX_NAME_ASSOC *)xmalloc (sizeof (INDEX_NAME_ASSOC));
assoc->name = xstrdup (node->nodename);

if (!index_nodenames_index)
  {
    assoc->first = 0;
    assoc->last = last;
  }
else
  {
    for (i = 0; index_nodenames[i + 1]; i++);
    assoc->first = 1 + index_nodenames[i]->last;
    assoc->last = assoc->first + last;
  }
add_pointer_to_arraydo { if (index_nodenames_index + 2 >= index_nodenames_slots
) index_nodenames = (INDEX_NAME_ASSOC * *)(xrealloc (index_nodenames
, (index_nodenames_slots += 10) * sizeof (INDEX_NAME_ASSOC *)
)); index_nodenames[index_nodenames_index++] = (INDEX_NAME_ASSOC
 *)assoc; index_nodenames[index_nodenames_index] = (INDEX_NAME_ASSOC
 *)((void *)0); } while (0)
  (assoc, index_nodenames_index, index_nodenames, index_nodenames_slots,do { if (index_nodenames_index + 2 >= index_nodenames_slots
) index_nodenames = (INDEX_NAME_ASSOC * *)(xrealloc (index_nodenames
, (index_nodenames_slots += 10) * sizeof (INDEX_NAME_ASSOC *)
)); index_nodenames[index_nodenames_index++] = (INDEX_NAME_ASSOC
 *)assoc; index_nodenames[index_nodenames_index] = (INDEX_NAME_ASSOC
 *)((void *)0); } while (0)
   10, INDEX_NAME_ASSOC *)do { if (index_nodenames_index + 2 >= index_nodenames_slots
) index_nodenames = (INDEX_NAME_ASSOC * *)(xrealloc (index_nodenames
, (index_nodenames_slots += 10) * sizeof (INDEX_NAME_ASSOC *)
)); index_nodenames[index_nodenames_index++] = (INDEX_NAME_ASSOC
 *)assoc; index_nodenames[index_nodenames_index] = (INDEX_NAME_ASSOC
 *)((void *)0); } while (0);
81}

83/* Find and return the indices of WINDOW's file.  The indices are defined
 as the first node in the file containing the word "Index" and any
 immediately following nodes whose names also contain "Index".  All such
 indices are concatenated and the result returned.  If WINDOW's info file
 doesn't have any indices, a NULL pointer is returned. */
88REFERENCE **
89info_indices_of_window (WINDOW *window)
90{
FILE_BUFFER *fb;

fb = file_buffer_of_window (window);

return (info_indices_of_file_buffer (fb));
96}

98REFERENCE **
99info_indices_of_file_buffer (FILE_BUFFER *file_buffer)
100{
register int i;
REFERENCE **result = (REFERENCE **)NULL((void *)0);

/* No file buffer, no indices. */
if (!file_buffer)
  return ((REFERENCE **)NULL((void *)0));

/* Reset globals describing where the index was found. */
maybe_free (initial_index_filename)do { if (initial_index_filename) free (initial_index_filename
); } while (0);
maybe_free (initial_index_nodename)do { if (initial_index_nodename) free (initial_index_nodename
); } while (0);
initial_index_filename = (char *)NULL((void *)0);
initial_index_nodename = (char *)NULL((void *)0);

if (index_nodenames)
  {
    for (i = 0; index_nodenames[i]; i++)
      {
        free (index_nodenames[i]->name);
        free (index_nodenames[i]);
      }

    index_nodenames_index = 0;
    index_nodenames[0] = (INDEX_NAME_ASSOC *)NULL((void *)0);
  }

/* Grovel the names of the nodes found in this file. */
if (file_buffer->tags)
  {
    TAG *tag;

    for (i = 0; (tag = file_buffer->tags[i]); i++)
      {
        if (string_in_line ("Index", tag->nodename) != -1)
          {
            NODE *node;
            REFERENCE **menu;

            /* Found one.  Get its menu. */
            node = info_get_node (tag->filename, tag->nodename);
            if (!node)
              continue;

            /* Remember the filename and nodename of this index. */
            initial_index_filename = xstrdup (file_buffer->filename);
            initial_index_nodename = xstrdup (tag->nodename);

            menu = info_menu_of_node (node);

            /* If we have a menu, add this index's nodename and range
               to our list of index_nodenames. */
            if (menu)
              {
                add_index_to_index_nodenames (menu, node);

                /* Concatenate the references found so far. */
                result = info_concatenate_references (result, menu);
              }
            free (node);
          }
      }
  }

/* If there is a result, clean it up so that every entry has a filename. */
for (i = 0; result && result[i]; i++)
  if (!result[i]->filename)
    result[i]->filename = xstrdup (file_buffer->filename);

return (result);
169}

171DECLARE_INFO_COMMAND (info_index_search,void info_index_search (WINDOW *window, int count, unsigned char
 key)
 _("Look up a string in the index for this file"))void info_index_search (WINDOW *window, int count, unsigned char
 key)
173{
do_info_index_search (window, count, 0);
1
Calling 'do_info_index_search'→
175}

177/* Look up SEARCH_STRING in the index for this file.  If SEARCH_STRING
 is NULL, prompt user for input.  */ 
179void
180do_info_index_search (WINDOW *window, int count, char *search_string)
181{
FILE_BUFFER *fb;
char *line;

/* Reset the index offset, since this is not the info-index-next command. */
index_offset = 0;

/* The user is selecting a new search string, so flush the old one. */
maybe_free (index_search)do { if (index_search) free (index_search); } while (0);
2
←
Assuming 'index_search' is null→
3
←
Taking false branch→
4
←
Loop condition is false.  Exiting loop→
index_search = (char *)NULL((void *)0);

/* If this window's file is not the same as the one that we last built an
   index for, build and remember an index now. */
fb = file_buffer_of_window (window);
if (!initial_index_filename ||
5
←
Assuming 'initial_index_filename' is non-null→
7
←
Taking false branch→
    (FILENAME_CMPstrcmp (initial_index_filename, fb->filename) != 0))
6
←
Assuming the condition is false→
  {
    info_free_references (index_index);
    window_message_in_echo_area ((char *) _("Finding index entries...")((const char *) ("Finding index entries...")),
        NULL((void *)0), NULL((void *)0));
    index_index = info_indices_of_file_buffer (fb);
  }

/* If there is no index, quit now. */
if (!index_index)
8
←
Assuming 'index_index' is non-null→
9
←
Taking false branch→
  {
    info_error ((char *) _("No indices found.")((const char *) ("No indices found.")), NULL((void *)0), NULL((void *)0));
    return;
  }

/* Okay, there is an index.  Look for SEARCH_STRING, or, if it is
   empty, prompt for one.  */
if (search_string9.1
'search_string' is null
 && *search_string)
  line = xstrdup (search_string);
else
  {
    line = info_read_maybe_completing (window, (char *) _("Index entry: ")((const char *) ("Index entry: ")),
                                       index_index);
    window = active_window;

    /* User aborted? */
    if (!line)
10
←
Assuming 'line' is non-null→
11
←
Taking false branch→
      {
        info_abort_key (active_window, 1, 0);
        return;
      }

    /* Empty line means move to the Index node. */
    if (!*line)
12
←
Assuming the condition is true→
13
←
Taking true branch→
      {
        free (line);
14
←
Memory is released→

        if (initial_index_filename && initial_index_nodename)
15
←
Assuming 'initial_index_filename' is null→
          {
            NODE *node;

            node = info_get_node (initial_index_filename,
                                  initial_index_nodename);
            set_remembered_pagetop_and_point (window);
            window_set_node_of_window (window, node);
            remember_window_and_node (window, node);
            window_clear_echo_area ();
            return;
          }
      }
  }

/* The user typed either a completed index label, or a partial string.
   Find an exact match, or, failing that, the first index entry containing
   the partial string.  So, we just call info_next_index_match () with minor
   manipulation of INDEX_OFFSET. */
{
  int old_offset;

  /* Start the search right after/before this index. */
  if (count < 0)
16
←
Assuming 'count' is >= 0→
17
←
Taking false branch→
    {
      register int i;
      for (i = 0; index_index[i]; i++);
      index_offset = i;
    }
  else
    index_offset = -1;

  old_offset = index_offset;

  /* The "last" string searched for is this one. */
  index_search = line;

  /* Find it, or error. */
  info_next_index_match (window, count, 0);
18
←
Calling 'info_next_index_match'→

  /* If the search failed, return the index offset to where it belongs. */
  if (index_offset == old_offset)
    index_offset = 0;
}
277}

279int
280index_entry_exists (WINDOW *window, char *string)
281{
register int i;
FILE_BUFFER *fb;

/* If there is no previous search string, the user hasn't built an index
   yet. */
if (!string)
  return 0;

fb = file_buffer_of_window (window);
if (!initial_index_filename
    || (FILENAME_CMPstrcmp (initial_index_filename, fb->filename) != 0))
  {
    info_free_references (index_index);
    index_index = info_indices_of_file_buffer (fb);
  }

/* If there is no index, that is an error. */
if (!index_index)
  return 0;

for (i = 0; (i > -1) && (index_index[i]); i++)
  if (strcmp (string, index_index[i]->label) == 0)
    break;

/* If that failed, look for the next substring match. */
if ((i < 0) || (!index_index[i]))
  {
    for (i = 0; (i > -1) && (index_index[i]); i++)
      if (string_in_line (string, index_index[i]->label) != -1)
        break;

    if ((i > -1) && (index_index[i]))
      string_in_line (string, index_index[i]->label);
  }

/* If that failed, return 0. */
if ((i < 0) || (!index_index[i]))
  return 0;

return 1;
322}

324DECLARE_INFO_COMMAND (info_next_index_match,void info_next_index_match (WINDOW *window, int count, unsigned
 char key)
_("Go to the next matching index item from the last `\\[index-search]' command"))void info_next_index_match (WINDOW *window, int count, unsigned
 char key)
326{
register int i;
int partial, dir;
NODE *node;

/* If there is no previous search string, the user hasn't built an index
   yet. */
if (!index_search18.1
'index_search' is non-null
)
19
←
Taking false branch→
  {
    info_error ((char *) _("No previous index search string.")((const char *) ("No previous index search string.")), NULL((void *)0), NULL((void *)0));
    return;
  }

/* If there is no index, that is an error. */
if (!index_index)
20
←
Assuming 'index_index' is non-null→
21
←
Taking false branch→
  {
    info_error ((char *) _("No index entries.")((const char *) ("No index entries.")), NULL((void *)0), NULL((void *)0));
    return;
  }

/* The direction of this search is controlled by the value of the
   numeric argument. */
if (count21.1
'count' is >= 0
 < 0)
22
←
Taking false branch→
  dir = -1;
else
  dir = 1;

/* Search for the next occurence of index_search.  First try to find
   an exact match. */
partial = 0;

for (i = index_offset + dir; (i > -1) && (index_index[i]); i += dir)
23
←
Loop condition is false. Execution continues on line 362→
  if (strcmp (index_search, index_index[i]->label) == 0)
    break;

/* If that failed, look for the next substring match. */
if ((i23.1
'i' is >= 0
 < 0) || (!index_index[i]))
24
←
Taking true branch→
  {
    for (i = index_offset + dir; (i > -1) && (index_index[i]); i += dir)
25
←
Loop condition is false. Execution continues on line 368→
      if (string_in_line (index_search, index_index[i]->label) != -1)
        break;

    if ((i > -1) && (index_index[i]))
26
←
Taking false branch→
      partial = string_in_line (index_search, index_index[i]->label);
  }

/* If that failed, print an error. */
if ((i26.1
'i' is >= 0
 < 0) || (!index_index[i]))
27
←
Taking true branch→
  {
    info_error ((char *) _("No %sindex entries containing `%s'.")((const char *) ("No %sindex entries containing `%s'.")),
29
←
Use of memory after it is freed
                index_offset27.1
'index_offset' is <= 0
 > 0 ? (char *) _("more ")((const char *) ("more ")) : "", index_search);
28
←
'?' condition is false→
    return;
  }

/* Okay, we found the next one.  Move the offset to the current entry. */
index_offset = i;

/* Report to the user on what we have found. */
{
  register int j;
  const char *name = _("CAN'T SEE THIS")((const char *) ("CAN'T SEE THIS"));
  char *match;

  for (j = 0; index_nodenames[j]; j++)
    {
      if ((i >= index_nodenames[j]->first) &&
          (i <= index_nodenames[j]->last))
        {
          name = index_nodenames[j]->name;
          break;
        }
    }

  /* If we had a partial match, indicate to the user which part of the
     string matched. */
  match = xstrdup (index_index[i]->label);

  if (partial && show_index_match)
    {
      int k, ls, start, upper;

      ls = strlen (index_search);
      start = partial - ls;
      upper = isupper (match[start]) ? 1 : 0;

      for (k = 0; k < ls; k++)
        if (upper)
          match[k + start] = info_tolower (match[k + start])(isupper (match[k + start]) ? tolower (match[k + start]) : match
[k + start]);
        else
          match[k + start] = info_toupper (match[k + start])(islower (match[k + start]) ? toupper (match[k + start]) : match
[k + start]);
    }

  {
    char *format;

    format = replace_in_documentation
      ((char *) _("Found `%s' in %s. (`\\[next-index-match]' tries to find next.)")((const char *) ("Found `%s' in %s. (`\\[next-index-match]' tries to find next.)"
)),
       0);

    window_message_in_echo_area (format, match, (char *) name);
  }

  free (match);
}

/* Select the node corresponding to this index entry. */
node = info_get_node (index_index[i]->filename, index_index[i]->nodename);

if (!node)
  {
    info_error ((char *) msg_cant_file_node,
                index_index[i]->filename, index_index[i]->nodename);
    return;
  }

info_set_node_of_window (1, window, node);

/* Try to find an occurence of LABEL in this node. */
{
  long start, loc;

  start = window->line_starts[1] - window->node->contents;
  loc = info_target_search_node (node, index_index[i]->label, start);

  if (loc != -1)
    {
      window->point = loc;
      window_adjust_pagetop (window);
    }
}
456}
457
458/* **************************************************************** */
459/*                                                                  */
460/*                 Info APROPOS: Search every known index.          */
461/*                                                                  */
462/* **************************************************************** */

464/* For every menu item in DIR, search the indices of that file for
 SEARCH_STRING. */
466REFERENCE **
467apropos_in_all_indices (char *search_string, int inform)
468{
register int i, dir_index;
REFERENCE **all_indices = (REFERENCE **)NULL((void *)0);
REFERENCE **dir_menu = (REFERENCE **)NULL((void *)0);
NODE *dir_node;

dir_node = info_get_node ("dir", "Top");
if (dir_node)
  dir_menu = info_menu_of_node (dir_node);

if (!dir_menu)
  return NULL((void *)0);

/* For every menu item in DIR, get the associated node's file buffer and
   read the indices of that file buffer.  Gather all of the indices into
   one large one. */
for (dir_index = 0; dir_menu[dir_index]; dir_index++)
  {
    REFERENCE **this_index, *this_item;
    NODE *this_node;
    FILE_BUFFER *this_fb;
    int dir_node_duplicated = 0;

    this_item = dir_menu[dir_index];

    if (!this_item->filename)
      {
 dir_node_duplicated = 1;
        if (dir_node->parent)
          this_item->filename = xstrdup (dir_node->parent);
        else
          this_item->filename = xstrdup (dir_node->filename);
      }

    /* Find this node.  If we cannot find it, try using the label of the
       entry as a file (i.e., "(LABEL)Top"). */
    this_node = info_get_node (this_item->filename, this_item->nodename);

    if (!this_node && this_item->nodename &&
        (strcmp (this_item->label, this_item->nodename) == 0))
      this_node = info_get_node (this_item->label, "Top");

    if (!this_node)
{
 if (dir_node_duplicated)
   free (this_item->filename);
 continue;
}

    /* Get the file buffer associated with this node. */
    {
      char *files_name;

      files_name = this_node->parent;
      if (!files_name)
        files_name = this_node->filename;

      this_fb = info_find_file (files_name);

/* If we already scanned this file, don't do that again.
  In addition to being faster, this also avoids having
  multiple identical entries in the *Apropos* menu.  */
for (i = 0; i < dir_index; i++)
 if (FILENAME_CMPstrcmp (this_fb->filename, dir_menu[i]->filename) == 0)
   break;
if (i < dir_index)
 {
   if (dir_node_duplicated)
     free (this_item->filename);
   continue;
 }

      if (this_fb && inform)
        message_in_echo_area ((char *) _("Scanning indices of `%s'...")((const char *) ("Scanning indices of `%s'...")),
            files_name, NULL((void *)0));

      this_index = info_indices_of_file_buffer (this_fb);
      free (this_node);

      if (this_fb && inform)
        unmessage_in_echo_area ();
    }

    if (this_index)
      {
        /* Remember the filename which contains this set of references. */
        for (i = 0; this_index && this_index[i]; i++)
          if (!this_index[i]->filename)
            this_index[i]->filename = xstrdup (this_fb->filename);

        /* Concatenate with the other indices.  */
        all_indices = info_concatenate_references (all_indices, this_index);
      }
  }

info_free_references (dir_menu);

/* Build a list of the references which contain SEARCH_STRING. */
if (all_indices)
  {
    REFERENCE *entry, **apropos_list = (REFERENCE **)NULL((void *)0);
    int apropos_list_index = 0;
    int apropos_list_slots = 0;

    for (i = 0; (entry = all_indices[i]); i++)
      {
        if (string_in_line (search_string, entry->label) != -1)
          {
            add_pointer_to_arraydo { if (apropos_list_index + 2 >= apropos_list_slots) apropos_list
 = (REFERENCE * *)(xrealloc (apropos_list, (apropos_list_slots
 += 100) * sizeof (REFERENCE *))); apropos_list[apropos_list_index
++] = (REFERENCE *)entry; apropos_list[apropos_list_index] = (
REFERENCE *)((void *)0); } while (0)
              (entry, apropos_list_index, apropos_list, apropos_list_slots,do { if (apropos_list_index + 2 >= apropos_list_slots) apropos_list
 = (REFERENCE * *)(xrealloc (apropos_list, (apropos_list_slots
 += 100) * sizeof (REFERENCE *))); apropos_list[apropos_list_index
++] = (REFERENCE *)entry; apropos_list[apropos_list_index] = (
REFERENCE *)((void *)0); } while (0)
               100, REFERENCE *)do { if (apropos_list_index + 2 >= apropos_list_slots) apropos_list
 = (REFERENCE * *)(xrealloc (apropos_list, (apropos_list_slots
 += 100) * sizeof (REFERENCE *))); apropos_list[apropos_list_index
++] = (REFERENCE *)entry; apropos_list[apropos_list_index] = (
REFERENCE *)((void *)0); } while (0);
          }
        else
          {
            maybe_free (entry->label)do { if (entry->label) free (entry->label); } while (0);
            maybe_free (entry->filename)do { if (entry->filename) free (entry->filename); } while
 (0);
            maybe_free (entry->nodename)do { if (entry->nodename) free (entry->nodename); } while
 (0);
            free (entry);
          }
      }

    free (all_indices);
    all_indices = apropos_list;
  }
return (all_indices);
593}

595#define APROPOS_NONE("No available info files have `%s' in their indices.") \
 N_("No available info files have `%s' in their indices.")("No available info files have `%s' in their indices.")

598void
599info_apropos (char *string)
600{
REFERENCE **apropos_list;

apropos_list = apropos_in_all_indices (string, 0);

if (!apropos_list)
  info_error ((char *) _(APROPOS_NONE)((const char *) (("No available info files have `%s' in their indices."
))), string, NULL((void *)0));
else
  {
    register int i;
    REFERENCE *entry;

    for (i = 0; (entry = apropos_list[i]); i++)
      fprintf (stdout(&__sF[1]), "\"(%s)%s\" -- %s\n",
               entry->filename, entry->nodename, entry->label);
  }
info_free_references (apropos_list);
617}

619static char *apropos_list_nodename = "*Apropos*";

621DECLARE_INFO_COMMAND (info_index_apropos,void info_index_apropos (WINDOW *window, int count, unsigned char
 key)
 _("Grovel all known info file's indices for a string and build a menu"))void info_index_apropos (WINDOW *window, int count, unsigned char
 key)
623{
char *line;

line = info_read_in_echo_area (window, (char *) _("Index apropos: ")((const char *) ("Index apropos: ")));

window = active_window;

/* User aborted? */
if (!line)
  {
    info_abort_key (window, 1, 1);
    return;
  }

/* User typed something? */
if (*line)
  {
    REFERENCE **apropos_list;
    NODE *apropos_node;

    apropos_list = apropos_in_all_indices (line, 1);

    if (!apropos_list)
      info_error ((char *) _(APROPOS_NONE)((const char *) (("No available info files have `%s' in their indices."
))), line, NULL((void *)0));
    else
      {
        register int i;
        char *line_buffer;

        initialize_message_buffer ();
        printf_to_message_buffer
          ((char *) _("\n* Menu: Nodes whose indices contain `%s':\n")((const char *) ("\n* Menu: Nodes whose indices contain `%s':\n"
)),
           line, NULL((void *)0), NULL((void *)0));
        line_buffer = (char *)xmalloc (500);

        for (i = 0; apropos_list[i]; i++)
          {
            int len;
     /* The label might be identical to that of another index
 entry in another Info file.  Therefore, we make the file
 name part of the menu entry, to make them all distinct.  */
            sprintf (line_buffer, "* %s [%s]: ",
       apropos_list[i]->label, apropos_list[i]->filename);
            len = pad_to (40, line_buffer);
            sprintf (line_buffer + len, "(%s)%s.",
                     apropos_list[i]->filename, apropos_list[i]->nodename);
            printf_to_message_buffer ("%s\n", line_buffer, NULL((void *)0), NULL((void *)0));
          }
        free (line_buffer);
      }

    apropos_node = message_buffer_to_node ();
    add_gcable_pointer (apropos_node->contents);
    name_internal_node (apropos_node, apropos_list_nodename);

    /* Even though this is an internal node, we don't want the window
       system to treat it specially.  So we turn off the internalness
       of it here. */
    apropos_node->flags &= ~N_IsInternal0x10;

    /* Find/Create a window to contain this node. */
    {
      WINDOW *new;
      NODE *node;

      set_remembered_pagetop_and_point (window);

      /* If a window is visible and showing an apropos list already,
         re-use it. */
      for (new = windows; new; new = new->next)
        {
          node = new->node;

          if (internal_info_node_p (node) &&
              (strcmp (node->nodename, apropos_list_nodename) == 0))
            break;
        }

      /* If we couldn't find an existing window, try to use the next window
         in the chain. */
      if (!new && window->next)
        new = window->next;

      /* If we still don't have a window, make a new one to contain
         the list. */
      if (!new)
        {
          WINDOW *old_active;

          old_active = active_window;
          active_window = window;
          new = window_make_window ((NODE *)NULL((void *)0));
          active_window = old_active;
        }

      /* If we couldn't make a new window, use this one. */
      if (!new)
        new = window;

      /* Lines do not wrap in this window. */
      new->flags |= W_NoWrap0x10;

      window_set_node_of_window (new, apropos_node);
      remember_window_and_node (new, apropos_node);
      active_window = new;
    }
    info_free_references (apropos_list);
  }
free (line);

if (!info_error_was_printed)
  window_clear_echo_area ();
735}