/usr/src/gnu/usr.bin/texinfo/makeinfo/sectioning.c

Bug Summary

File:	src/gnu/usr.bin/texinfo/makeinfo/sectioning.c
Warning:	line 413, column 33 1st function call argument is an uninitialized value

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 sectioning.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/makeinfo -resource-dir /usr/local/lib/clang/13.0.0 -D HAVE_CONFIG_H -I . -I /usr/src/gnu/usr.bin/texinfo/makeinfo -I .. -I /usr/src/gnu/usr.bin/texinfo/lib -I ../intl -D LOCALEDIR="/usr/share/locale" -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/makeinfo -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/makeinfo/sectioning.c

1/* sectioning.c -- for @chapter, @section, ..., @contents ...
 $Id: sectioning.c,v 1.1.1.3 2006/07/17 16:03:48 espie Exp $

 Copyright (C) 1999, 2001, 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 Karl Heinz Marbaise <kama@hippo.fido.de>.  */

22#include "system.h"
23#include "cmds.h"
24#include "macro.h"
25#include "makeinfo.h"
26#include "node.h"
27#include "toc.h"
28#include "sectioning.h"
29#include "xml.h"

31/* See comment in sectioning.h.  */
32section_alist_type section_alist[] = {
{ "unnumberedsubsubsec", 5, ENUM_SECT_NO0,  TOC_YES1 },
{ "unnumberedsubsec",    4, ENUM_SECT_NO0,  TOC_YES1 },
{ "unnumberedsec",       3, ENUM_SECT_NO0,  TOC_YES1 },
{ "unnumbered",          2, ENUM_SECT_NO0,  TOC_YES1 },
{ "centerchap",          2, ENUM_SECT_NO0,  TOC_YES1 },

{ "appendixsubsubsec",   5, ENUM_SECT_APP2, TOC_YES1 },  /* numbered like A.X.X.X */
{ "appendixsubsec",      4, ENUM_SECT_APP2, TOC_YES1 },
{ "appendixsec",         3, ENUM_SECT_APP2, TOC_YES1 },
{ "appendixsection",     3, ENUM_SECT_APP2, TOC_YES1 },
{ "appendix",            2, ENUM_SECT_APP2, TOC_YES1 },

{ "subsubsec",           5, ENUM_SECT_YES1, TOC_YES1 },
{ "subsubsection",       5, ENUM_SECT_YES1, TOC_YES1 },
{ "subsection",          4, ENUM_SECT_YES1, TOC_YES1 },
{ "section",             3, ENUM_SECT_YES1, TOC_YES1 },
{ "chapter",             2, ENUM_SECT_YES1, TOC_YES1 },

{ "subsubheading",       5, ENUM_SECT_NO0,  TOC_NO0 },
{ "subheading",          4, ENUM_SECT_NO0,  TOC_NO0 },
{ "heading",             3, ENUM_SECT_NO0,  TOC_NO0 },
{ "chapheading",         2, ENUM_SECT_NO0,  TOC_NO0 },
{ "majorheading",        2, ENUM_SECT_NO0,  TOC_NO0 },

{ "top",                 1, ENUM_SECT_NO0,  TOC_YES1 },
{ NULL((void *)0),                  0, 0, 0 }
59};
60
61/* The argument of @settitle, used for HTML. */
62char *title = NULL((void *)0);


65#define APPENDIX_MAGIC1024   1024
66#define UNNUMBERED_MAGIC2048 2048

68/* Number memory for every level @chapter, @section,
 @subsection, @subsubsection. */
70static int numbers [] = { 0, 0, 0, 0 };

72/* enum_marker == APPENDIX_MAGIC then we are counting appendencies
 enum_marker == UNNUMBERED_MAGIC then we are within unnumbered area.
 Handling situations like this:
 @unnumbered ..
 @section ...   */
77static int enum_marker = 0;

79/* Organized by level commands.  That is, "*" == chapter, "=" == section. */
80static char *scoring_characters = "*=-.";

82/* Amount to offset the name of sectioning commands to levels by. */
83static int section_alist_offset = 0;

85/* These two variables are for @float, @cindex like commands that need to know
 in which section they are used.  */
87/* Last value returned by get_sectioning_number.  */
88static char *last_sectioning_number = "";
89/* Last title used by sectioning_underscore, etc.  */
90static char *last_sectioning_title = "";
91
92/* num == ENUM_SECT_NO  means unnumbered (should never call this)
 num == ENUM_SECT_YES means numbered
 num == ENUM_SECT_APP means numbered like A.1 and so on */
95static char *
96get_sectioning_number (int level, int num)
97{
static char s[100]; /* should ever be enough for 99.99.99.99
                       Appendix A.1 */

char *p;
int i;

s[0] = 0;

/* create enumeration in front of chapter, section, subsection and so on. */
for (i = 0; i < level; i++)
  {
    p = s + strlen (s);
    if ((i == 0) && (enum_marker == APPENDIX_MAGIC1024))
      sprintf (p, "%c.", numbers[i] + 64); /* Should be changed to
                                              be more portable */
    else
      sprintf (p, "%d.", numbers[i]);
  }

/* the last number is never followed by a dot */
p = s + strlen (s);
if ((num == ENUM_SECT_APP2)
    && (i == 0)
    && (enum_marker == APPENDIX_MAGIC1024))
  sprintf (p, _("Appendix %c")((const char *) ("Appendix %c")), numbers[i] + 64);
else
  sprintf (p, "%d", numbers[i]);

/* Poor man's cache :-)  */
if (strlen (last_sectioning_number))
  free (last_sectioning_number);
last_sectioning_number = xstrdup (s);

return s;
132}


135/* Set the level of @top to LEVEL.  Return the old level of @top. */
136int
137set_top_section_level (int level)
138{
int i, result = -1;

for (i = 0; section_alist[i].name; i++)
  if (strcmp (section_alist[i].name, "top") == 0)
    {
      result = section_alist[i].level;
      section_alist[i].level = level;
      break;
    }
return result;
149}


152/* return the index of the given sectioning command in section_alist */
153static int
154search_sectioning (char *text)
155{
int i;
char *t;

/* ignore the optional command prefix */
if (text[0] == COMMAND_PREFIX'@')
  text++;

for (i = 0; (t = section_alist[i].name); i++)
  {
    if (strcmp (t, text) == 0)
      {
        return i;
      }
  }
return -1;
171}

173/* Return an integer which identifies the type of section present in
 TEXT -- 1 for @top, 2 for chapters, ..., 5 for subsubsections (as
 specified in section_alist).  We take into account any @lowersections
 and @raisesections.  If SECNAME is non-NULL, also return the
 corresponding section name.  */
178int
179what_section (char *text, char **secname)
180{
int index, j;
char *temp;
int return_val;

find_section_command:
for (j = 0; text[j] && cr_or_whitespace (text[j])(((text[j]) == '\t' || (text[j]) == ' ') || (text[j]) == '\r'
 || (text[j]) == '\n'); j++);
6
←
Assuming the condition is false→
if (text[j] != COMMAND_PREFIX'@')
7
←
Taking true branch→
  return -1;
8
←
Returning without writing to '*secname'→

text = text + j + 1;

/* We skip @c, @comment, and @?index commands. */
if ((strncmp (text, "comment", strlen ("comment")) == 0) ||
    (text[0] == 'c' && cr_or_whitespace (text[1])(((text[1]) == '\t' || (text[1]) == ' ') || (text[1]) == '\r'
 || (text[1]) == '\n')) ||
    (strcmp (text + 1, "index") == 0))
  {
    while (*text++ != '\n');
    goto find_section_command;
  }

/* Handle italicized sectioning commands. */
if (*text == 'i')
  text++;

for (j = 0; text[j] && !cr_or_whitespace (text[j])(((text[j]) == '\t' || (text[j]) == ' ') || (text[j]) == '\r'
 || (text[j]) == '\n'); j++);

temp = xmalloc (1 + j);
strncpy (temp, text, j);
temp[j] = 0;

index = search_sectioning (temp);
free (temp);
if (index >= 0)
  {
    return_val = section_alist[index].level + section_alist_offset;
    if (return_val < 0)
      return_val = 0;
    else if (return_val > 5)
      return_val = 5;

    if (secname)
      {
        int i;
        int alist_size = sizeof (section_alist) / sizeof(section_alist_type);
        /* Find location of offset sectioning entry, but don't go off
           either end of the array.  */
        int index_offset = MAX (index - section_alist_offset, 0)((index - section_alist_offset) > (0) ? (index - section_alist_offset
) : (0));
        index_offset = MIN (index_offset, alist_size - 1)((index_offset) < (alist_size - 1) ? (index_offset) : (alist_size
 - 1));

        /* Also make sure we don't go into the next "group" of
           sectioning changes, e.g., change from an @appendix to an
           @heading or some such.  */
233#define SIGN(expr)((expr) < 0 ? -1 : 1) ((expr) < 0 ? -1 : 1)
        for (i = index; i != index_offset; i -= SIGN (section_alist_offset)((section_alist_offset) < 0 ? -1 : 1))
          {
            /* As it happens, each group has unique .num/.toc values.  */
            if (section_alist[i].num != section_alist[index_offset].num
                || section_alist[i].toc != section_alist[index_offset].toc)
              break;
          }
        *secname = section_alist[i].name;
      }
    return return_val;
  }
return -1;
246}

248/* Returns current top level division (ie. chapter, unnumbered) number.
 - For chapters, returns the number.
 - For unnumbered sections, returns empty string.
 - For appendices, returns A, B, etc. */
252char *
253current_chapter_number (void)
254{
if (enum_marker == UNNUMBERED_MAGIC2048)
  return xstrdup ("");
else if (enum_marker == APPENDIX_MAGIC1024)
  {
    char s[1];
    sprintf (s, "%c", numbers[0] + 64);
    return xstrdup (s);
  }
else
  {
    char s[5];
    sprintf (s, "%d", numbers[0]);
    return xstrdup (s);
  }
269}

271/* Returns number of the last sectioning command used.  */
272char *
273current_sectioning_number (void)
274{
if (enum_marker == UNNUMBERED_MAGIC2048 || !number_sections)
  return xstrdup ("");
else
  return xstrdup (last_sectioning_number);
279}

281/* Returns arguments of the last sectioning command used.  */
282char *
283current_sectioning_name (void)
284{
return xstrdup (last_sectioning_title);
286}

288/* insert_and_underscore, sectioning_underscore and sectioning_html call this.  */

290static char *
291handle_enum_increment (int level, int index)
292{
/* Here is how TeX handles enumeration:
   - Anything starting with @unnumbered is not enumerated.
   - @majorheading and the like are not enumberated.  */
int i;

/* First constraint above.  */
if (enum_marker == UNNUMBERED_MAGIC2048 && level == 0)
  return xstrdup ("");

/* Second constraint.  */
if (section_alist[index].num == ENUM_SECT_NO0)
  return xstrdup ("");

/* reset all counters which are one level deeper */
for (i = level; i < 3; i++)
  numbers [i + 1] = 0;

numbers[level]++;
if (section_alist[index].num == ENUM_SECT_NO0 || enum_marker == UNNUMBERED_MAGIC2048
    || !number_sections)
  return xstrdup ("");
else
  return xstrdup (get_sectioning_number (level, section_alist[index].num));
316}


319void
320sectioning_underscore (char *cmd)
321{
char *temp, *secname;
2
←
'secname' declared without an initial value→
int level;

/* If we're not indenting the first paragraph, we shall make it behave
   like @noindent is called directly after the section heading. */
if (! do_first_par_indent)
3
←
Assuming 'do_first_par_indent' is not equal to 0→
4
←
Taking false branch→
  cm_noindent ();

temp = xmalloc (2 + strlen (cmd));
temp[0] = COMMAND_PREFIX'@';
strcpy (&temp[1], cmd);
level = what_section (temp, &secname);
5
←
Calling 'what_section'→
9
←
Returning from 'what_section'→
level -= 2;
if (level9.1
'level' is < 0
 < 0)
10
←
Taking true branch→
  level = 0;
free (temp);

/* If the argument to @top is empty, we try using the one from @settitle.
   Warn if both are unusable.  */
if (STREQ (command, "top")(strcmp (command, "top") == 0))
11
←
Assuming the condition is false→
12
←
Taking false branch→
  {
    int save_input_text_offset = input_text_offset;

    get_rest_of_line (0, &temp);

    /* Due to get_rest_of_line ... */
    line_number--;

    if (strlen (temp) == 0 && (!title || strlen (title) == 0))
      warning ("Must specify a title with least one of @settitle or @top");

    input_text_offset = save_input_text_offset;
  }

if (xml)
13
←
Assuming 'xml' is not equal to 0→
14
←
Taking true branch→
  {
    /* If the section appears in the toc, it means it's a real section
unlike majorheading, chapheading etc. */
    if (section_alist[search_sectioning (cmd)].toc == TOC_YES1)
15
←
Assuming field 'toc' is not equal to TOC_YES→
16
←
Taking false branch→
{
 xml_close_sections (level);
 /* Mark the beginning of the section
    If the next command is printindex, we will remove
    the section and put an Index instead */
 flush_output ();
 xml_last_section_output_position = output_paragraph_offset;

 get_rest_of_line (0, &temp);

        /* Use @settitle value if @top parameter is empty.  */
        if (STREQ (command, "top")(strcmp (command, "top") == 0) && strlen(temp) == 0)
          temp = xstrdup (title ? title : "");

        /* Docbook does not support @unnumbered at all.  So we provide numbers
           that other formats use.  @appendix seems to be fine though, so we let
           Docbook handle that as usual.  */
        if (docbook && enum_marker != APPENDIX_MAGIC1024)
          {
            if (section_alist[search_sectioning (cmd)].num == ENUM_SECT_NO0
                && section_alist[search_sectioning (cmd)].toc == TOC_YES1)
              xml_insert_element_with_attribute (xml_element (secname),
                  START0, "label=\"%s\" xreflabel=\"%s\"",
                  handle_enum_increment (level, search_sectioning (cmd)),
                  text_expansion (temp));
            else
              xml_insert_element_with_attribute (xml_element (secname),
                  START0, "label=\"%s\"",
                  handle_enum_increment (level, search_sectioning (cmd)));
          }
        else
          xml_insert_element (xml_element (secname), START0);

 xml_insert_element (TITLE, START0);
 xml_open_section (level, secname);
 execute_string ("%s", temp);
 xml_insert_element (TITLE, END1);

 free (temp);
}
    else
      {
        if (docbook)
17
←
Assuming 'docbook' is 0→
18
←
Taking false branch→
          {
            if (level > 0)
              xml_insert_element_with_attribute (xml_element (secname), START0,
                  "renderas=\"sect%d\"", level);
            else
              xml_insert_element_with_attribute (xml_element (secname), START0,
                  "renderas=\"other\"");
          }
        else
          xml_insert_element (xml_element (secname), START0);
19
←
1st function call argument is an uninitialized value

        get_rest_of_line (0, &temp);
        execute_string ("%s", temp);
        free (temp);

        xml_insert_element (xml_element (secname), END1);
      }
  }
else if (html)
  sectioning_html (level, secname);
else
  insert_and_underscore (level, secname);
426}


429/* Insert the text following input_text_offset up to the end of the line
 in a new, separate paragraph.  Directly underneath it, insert a
 line of WITH_CHAR, the same length of the inserted text. */
432void
433insert_and_underscore (int level, char *cmd)
434{
int i, len;
int index;
int old_no_indent;
unsigned char *starting_pos, *ending_pos;
char *temp;
char with_char = scoring_characters[level];

close_paragraph ();
filling_enabled =  indented_fill = 0;
old_no_indent = no_indent;
no_indent = 1;

if (macro_expansion_output_stream && !executing_string)
  append_to_expansion_output (input_text_offset + 1);

get_rest_of_line (0, &temp);

/* Use @settitle value if @top parameter is empty.  */
if (STREQ (command, "top")(strcmp (command, "top") == 0) && strlen(temp) == 0)
  temp = xstrdup (title ? title : "");

starting_pos = output_paragraph + output_paragraph_offset;

/* Poor man's cache for section title.  */
if (strlen (last_sectioning_title))
  free (last_sectioning_title);
last_sectioning_title = xstrdup (temp);

index = search_sectioning (cmd);
if (index < 0)
  {
    /* should never happen, but a poor guy, named Murphy ... */
    warning (_("Internal error (search_sectioning) `%s'!")((const char *) ("Internal error (search_sectioning) `%s'!")), cmd);
    return;
  }

/* This is a bit tricky: we must produce "X.Y SECTION-NAME" in the
   Info output and in TOC, but only SECTION-NAME in the macro-expanded
   output.  */

/* Step 1: produce "X.Y" and add it to Info output.  */
add_word_args ("%s ", handle_enum_increment (level, index));

/* Step 2: add "SECTION-NAME" to both Info and macro-expanded output.  */
if (macro_expansion_output_stream && !executing_string)
  {
    char *temp1 = xmalloc (2 + strlen (temp));
    sprintf (temp1, "%s\n", temp);
    remember_itext (input_text, input_text_offset);
    me_execute_string (temp1);
    free (temp1);
  }
else
  execute_string ("%s\n", temp);

/* Step 3: pluck "X.Y SECTION-NAME" from the output buffer and
   insert it into the TOC.  */
ending_pos = output_paragraph + output_paragraph_offset;
if (section_alist[index].toc == TOC_YES1)
  toc_add_entry (substring (starting_pos, ending_pos - 1),
                 level, current_node, NULL((void *)0));

free (temp);

len = (ending_pos - starting_pos) - 1;
for (i = 0; i < len; i++)
  add_char (with_char);
insert ('\n');
close_paragraph ();
filling_enabled = 1;
no_indent = old_no_indent;
506}

508/* Insert the text following input_text_offset up to the end of the
 line as an HTML heading element of the appropriate `level' and
 tagged as an anchor for the current node.. */

512void
513sectioning_html (int level, char *cmd)
514{
static int toc_ref_count = 0;
int index;
int old_no_indent;
unsigned char *starting_pos, *ending_pos;
char *temp, *toc_anchor = NULL((void *)0);

close_paragraph ();
filling_enabled =  indented_fill = 0;
old_no_indent = no_indent;
no_indent = 1;

/* level 0 (chapter) is <h2>, and we go down from there.  */
add_html_block_elt_args ("<h%d class=\"%s\">", level + 2, cmd);

/* If we are outside of any node, produce an anchor that
   the TOC could refer to.  */
if (!current_node || !*current_node)
  {
    static const char a_name[] = "<a name=\"";

    starting_pos = output_paragraph + output_paragraph_offset;
    add_word_args ("%sTOC%d\">", a_name, toc_ref_count++);
    toc_anchor = substring (starting_pos + sizeof (a_name) - 1,
                            output_paragraph + output_paragraph_offset);
    /* This must be added after toc_anchor is extracted, since
       toc_anchor cannot include the closing </a>.  For details,
       see toc.c:toc_add_entry and toc.c:contents_update_html.

       Also, the anchor close must be output before the section name
       in case the name itself contains an anchor. */
    add_word ("</a>");
  }
starting_pos = output_paragraph + output_paragraph_offset;

if (macro_expansion_output_stream && !executing_string)
  append_to_expansion_output (input_text_offset + 1);

get_rest_of_line (0, &temp);

/* Use @settitle value if @top parameter is empty.  */
if (STREQ (command, "top")(strcmp (command, "top") == 0) && strlen(temp) == 0)
  temp = xstrdup (title ? title : "");

index = search_sectioning (cmd);
if (index < 0)
  {
    /* should never happen, but a poor guy, named Murphy ... */
    warning (_("Internal error (search_sectioning) \"%s\"!")((const char *) ("Internal error (search_sectioning) \"%s\"!"
)), cmd);
    return;
  }

/* Produce "X.Y" and add it to HTML output.  */
{
  char *title_number = handle_enum_increment (level, index);
  if (strlen (title_number) > 0)
    add_word_args ("%s ", title_number);
}

/* add the section name to both HTML and macro-expanded output.  */
if (macro_expansion_output_stream && !executing_string)
  {
    remember_itext (input_text, input_text_offset);
    me_execute_string (temp);
    write_region_to_macro_output ("\n", 0, 1);
  }
else
  execute_string ("%s", temp);

ending_pos = output_paragraph + output_paragraph_offset;

/* Pluck ``X.Y SECTION-NAME'' from the output buffer and insert it
   into the TOC.  */
if (section_alist[index].toc == TOC_YES1)
  toc_add_entry (substring (starting_pos, ending_pos),
                 level, current_node, toc_anchor);

free (temp);

if (outstanding_node)
  outstanding_node = 0;

add_word_args ("</h%d>", level + 2);
close_paragraph();
filling_enabled = 1;
no_indent = old_no_indent;
600}

602
603/* Shift the meaning of @section to @chapter. */
604void
605cm_raisesections (void)
606{
discard_until ("\n");
section_alist_offset--;
609}

611/* Shift the meaning of @chapter to @section. */
612void
613cm_lowersections (void)
614{
discard_until ("\n");
section_alist_offset++;
617}

619/* The command still works, but prints a warning message in addition. */
620void
621cm_ideprecated (int arg, int start, int end)
622{
warning (_("%c%s is obsolete; use %c%s instead")((const char *) ("%c%s is obsolete; use %c%s instead")),
         COMMAND_PREFIX'@', command, COMMAND_PREFIX'@', command + 1);
sectioning_underscore (command + 1);
626}

628
629/* Treat this just like @unnumbered.  The only difference is
 in node defaulting. */
631void
632cm_top (void)
633{
/* It is an error to have more than one @top. */
if (top_node_seen && strcmp (current_node, "Top") != 0)
  {
    TAG_ENTRY *tag = tag_table;

    line_error (_("Node with %ctop as a section already exists")((const char *) ("Node with %ctop as a section already exists"
)),
                COMMAND_PREFIX'@');

    while (tag)
      {
        if (tag->flags & TAG_FLAG_IS_TOP16)
          {
            file_line_error (tag->filename, tag->line_no,
                             _("Here is the %ctop node")((const char *) ("Here is the %ctop node")), COMMAND_PREFIX'@');
            return;
          }
        tag = tag->next_ent;
      }
  }
else
  {
    top_node_seen = 1;

    /* It is an error to use @top before using @node. */
    if (!tag_table)
      {
        char *top_name;

        get_rest_of_line (0, &top_name);
        line_error (_("%ctop used before %cnode, defaulting to %s")((const char *) ("%ctop used before %cnode, defaulting to %s"
)),
                    COMMAND_PREFIX'@', COMMAND_PREFIX'@', top_name);
        execute_string ("@node Top, , (dir), (dir)\n@top %s\n", top_name);
        free (top_name);
        return;
      }

    cm_unnumbered ();

    /* The most recently defined node is the top node. */
    tag_table->flags |= TAG_FLAG_IS_TOP16;

    /* Now set the logical hierarchical level of the Top node. */
    {
      int orig_offset = input_text_offset;

      input_text_offset = search_forward (node_search_string, orig_offset);

      if (input_text_offset > 0)
        {
          int this_section;

          /* We have encountered a non-top node, so mark that one exists. */
          non_top_node_seen = 1;

          /* Move to the end of this line, and find out what the
             sectioning command is here. */
          while (input_text[input_text_offset] != '\n')
            input_text_offset++;

          if (input_text_offset < input_text_length)
            input_text_offset++;

          this_section = what_section (input_text + input_text_offset,
                                       NULL((void *)0));

          /* If we found a sectioning command, then give the top section
             a level of this section - 1. */
          if (this_section != -1)
            set_top_section_level (this_section - 1);
        }
      input_text_offset = orig_offset;
    }
  }
707}

709/* The remainder of the text on this line is a chapter heading. */
710void
711cm_chapter (void)
712{
enum_marker = 0;
sectioning_underscore ("chapter");
715}

717/* The remainder of the text on this line is a section heading. */
718void
719cm_section (void)
720{
sectioning_underscore ("section");
722}

724/* The remainder of the text on this line is a subsection heading. */
725void
726cm_subsection (void)
727{
sectioning_underscore ("subsection");
729}

731/* The remainder of the text on this line is a subsubsection heading. */
732void
733cm_subsubsection (void)
734{
sectioning_underscore ("subsubsection");
736}

738/* The remainder of the text on this line is an unnumbered heading. */
739void
740cm_unnumbered (void)
741{
enum_marker = UNNUMBERED_MAGIC2048;
sectioning_underscore ("unnumbered");
744}

746/* The remainder of the text on this line is an unnumbered section heading. */
747void
748cm_unnumberedsec (void)
749{
sectioning_underscore ("unnumberedsec");
751}

753/* The remainder of the text on this line is an unnumbered
 subsection heading. */
755void
756cm_unnumberedsubsec (void)
757{
sectioning_underscore ("unnumberedsubsec");
759}

761/* The remainder of the text on this line is an unnumbered
 subsubsection heading. */
763void
764cm_unnumberedsubsubsec (void)
765{
sectioning_underscore ("unnumberedsubsubsec");
767}

769/* The remainder of the text on this line is an appendix heading. */
770void
771cm_appendix (void)
772{
/* Reset top level number so we start from Appendix A */
if (enum_marker != APPENDIX_MAGIC1024)
  numbers [0] = 0;
enum_marker = APPENDIX_MAGIC1024;
sectioning_underscore ("appendix");
778}

780/* The remainder of the text on this line is an appendix section heading. */
781void
782cm_appendixsec (void)
783{
sectioning_underscore ("appendixsec");
785}

787/* The remainder of the text on this line is an appendix subsection heading. */
788void
789cm_appendixsubsec (void)
790{
sectioning_underscore ("appendixsubsec");
792}

794/* The remainder of the text on this line is an appendix
 subsubsection heading. */
796void
797cm_appendixsubsubsec (void)
798{
sectioning_underscore ("appendixsubsubsec");
800}

802/* Compatibility functions substitute for chapter, section, etc. */
803void
804cm_majorheading (void)
805{
sectioning_underscore ("majorheading");
807}

809void
810cm_chapheading (void)
811{
sectioning_underscore ("chapheading");
813}

815void
816cm_heading (void)
817{
sectioning_underscore ("heading");
819}

821void
822cm_subheading (void)
823{
sectioning_underscore ("subheading");
825}

827void
828cm_subsubheading (void)
829{
sectioning_underscore ("subsubheading");
1
Calling 'sectioning_underscore'→
831}