texinfo/makeinfo/node.c

44 /* Adding nodes, and making tags.  */
1410   TAG_ENTRY *tags = tag_table;
1412   while (tags)
1417       input_filename = tags->filename;
1418       line_number = tags->line_no;
1421       if (tags->flags & TAG_FLAG_NO_WARN)
1423           tags = tags->next_ent;
1428       if (tags->next)
1430           validate (tags->next, tags->line_no, _("Next"));
1435           temp_tag = find_node (tags->next);
1439               int you_lose = !prev || !STREQ (prev, tags->node);
1444                   tem2 = expand_node_name (tags->node);
1454                               tags->node);
1466       if (!(tags->flags & TAG_FLAG_PREV_ERROR) && tags->prev)
1468           int valid_p = validate (tags->prev, tags->line_no, _("Prev"));
1471             tags->flags |= TAG_FLAG_PREV_ERROR;
1476               int prev_equals_up = !tags->up || STREQ (tags->prev, tags->up);
1480                   tem1 = expand_node_name (tags->prev);
1481                   tem2 = expand_node_name (tags->up);
1488                   temp_tag = find_node (tags->prev);
1497                         || !STREQ (temp_tag->next, tags->node);
1502                           tem2 = expand_node_name (tags->node);
1512                              tags->node);
1524       if (!tags->up
1525           && !(tags->flags & TAG_FLAG_ANCHOR)
1526           && strcasecmp (tags->node, "Top") != 0)
1527         line_error (_("`%s' has no Up field (perhaps incorrect sectioning?)"), tags->node);
1528       else if (tags->up)
1530           int valid_p = validate (tags->up, tags->line_no, _("Up"));
1534           if (valid_p && *tags->up != '(')
1542                   nref = find_node_reference (tags->node, list);
1546                   if (strcmp (nref->containing_node, tags->up) == 0)
1567 		      char *tags_up = expand_node_name (tags->up);
1574 			  nref = find_node_reference (tags->node, list);
1594                       temp_tag = find_node (tags->up);
1597                                   tags->up, tags->node);
1602       tags = tags->next_ent;
1609   for (tags = tag_table; tags; tags = tags->next_ent)
1612       if (tags->flags & TAG_FLAG_NO_WARN)
1614           tags = tags->next_ent;
1621       if (tags->touched > reference_warning_limit)
1623           input_filename = tags->filename;
1624           line_number = tags->line_no;
1626                    tags->node, tags->touched);
1629       if (tags->touched == 0)
1631           input_filename = tags->filename;
1632           line_number = tags->line_no;
1637           if (strcasecmp (tags->node, "Top") != 0
1638               && !(tags->flags & TAG_FLAG_ANCHOR))
1639             warning (_("unreferenced node `%s'"), tags->node);
1653 last_node_p (TAG_ENTRY *tags)
1656   while (tags->next_ent) {
1657     tags = tags->next_ent;
1658     if (tags->flags & TAG_FLAG_ANCHOR)
1783      tags for the nodes. */
1786     TAG_ENTRY *tags = tag_table;
1795     the_header = xmalloc (1 + (header_size = tags->position));
1798     while (tags)
1803         file_top = file_bot = tags->position;
1808         if (last_node_p (tags))
1810             int i = tags->position + 1;
1824             tags = tags->next_ent;
1830         for (; tags; tags = tags->next_ent)
1832             if (last_node_p (tags))
1836                 int i = tags->position + 1;
1853                     tags = tags->next_ent;
1861                     file_bot = tags->position;
1867             if (tags->next_ent->position > limit
1868                 && !(tags->flags & TAG_FLAG_ANCHOR))
1870                 if (tags->position == file_top)
1871                   tags = tags->next_ent;
1873                 file_bot = tags->position;