texinfo/tp TODO Texinfo/Parser.pm t/results/sec...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/11/23 22:35:17

Modified files:
        tp             : TODO 
        tp/Texinfo     : Parser.pm 
        tp/t/results/sectioning: node_part_chapter_after_chapter.pl 
                                 node_part_chapter_after_top.pl 
                                 part_node_after_top.pl 
                                 part_node_before_top.pl 

Log message:
        Warn if a @part is preceded by a @node.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/TODO?cvsroot=texinfo&r1=1.225&r2=1.226
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Parser.pm?cvsroot=texinfo&r1=1.336&r2=1.337
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/node_part_chapter_after_chapter.pl?cvsroot=texinfo&r1=1.28&r2=1.29
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/node_part_chapter_after_top.pl?cvsroot=texinfo&r1=1.20&r2=1.21
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/part_node_after_top.pl?cvsroot=texinfo&r1=1.10&r2=1.11
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/part_node_before_top.pl?cvsroot=texinfo&r1=1.19&r2=1.20

Patches:
Index: TODO
===================================================================
RCS file: /sources/texinfo/texinfo/tp/TODO,v
retrieving revision 1.225
retrieving revision 1.226
diff -u -b -r1.225 -r1.226
--- TODO        23 Nov 2011 22:13:56 -0000      1.225
+++ TODO        23 Nov 2011 22:35:16 -0000      1.226
@@ -10,8 +10,6 @@
 In plaintext output internationalize definition lines like
 gdt(' -- {category} of {class}: {type} {name} {arguments}')
 
-add warning msg for @part if there is an associated node. 
-
 
 Bugs
 ====

Index: Texinfo/Parser.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Parser.pm,v
retrieving revision 1.336
retrieving revision 1.337
diff -u -b -r1.336 -r1.337
--- Texinfo/Parser.pm   15 Nov 2011 00:00:42 -0000      1.336
+++ Texinfo/Parser.pm   23 Nov 2011 22:35:16 -0000      1.337
@@ -3024,6 +3024,11 @@
         $self->{'current_section'} = $current;
       } elsif ($command eq 'part') {
         push @{$self->{'current_parts'}}, $current;
+        if ($self->{'current_node'}
+           and !$self->{'current_node'}->{'extra'}->{'associated_section'}) {
+          $self->line_warn (sprintf($self->__("address@hidden precedes 
address@hidden, but part are not associated with nodes"), 
+              $command), $line_nr);
+        }
       }
     }
    # do that last in order to have the line processed if one of the above

Index: t/results/sectioning/node_part_chapter_after_chapter.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/sectioning/node_part_chapter_after_chapter.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- t/results/sectioning/node_part_chapter_after_chapter.pl     22 Nov 2011 
00:35:09 -0000      1.28
+++ t/results/sectioning/node_part_chapter_after_chapter.pl     23 Nov 2011 
22:35:16 -0000      1.29
@@ -911,7 +911,17 @@
 
$result_menus{'node_part_chapter_after_chapter'}{'menu_child'}{'menu_next'}{'menu_up'}
 = $result_menus{'node_part_chapter_after_chapter'};
 $result_menus{'node_part_chapter_after_chapter'}{'menu_child'}{'menu_up'} = 
$result_menus{'node_part_chapter_after_chapter'};
 
-$result_errors{'node_part_chapter_after_chapter'} = [];
+$result_errors{'node_part_chapter_after_chapter'} = [
+  {
+    'error_line' => ':14: warning: @node precedes @part, but part are not 
associated with nodes
+',
+    'file_name' => '',
+    'line_nr' => 14,
+    'macro' => '',
+    'text' => '@node precedes @part, but part are not associated with nodes',
+    'type' => 'warning'
+  }
+];
 
 
 $result_elements{'node_part_chapter_after_chapter'} = [

Index: t/results/sectioning/node_part_chapter_after_top.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/sectioning/node_part_chapter_after_top.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- t/results/sectioning/node_part_chapter_after_top.pl 22 Nov 2011 00:35:09 
-0000      1.20
+++ t/results/sectioning/node_part_chapter_after_top.pl 23 Nov 2011 22:35:17 
-0000      1.21
@@ -631,7 +631,17 @@
 };
 $result_menus{'node_part_chapter_after_top'}{'menu_child'}{'menu_up'} = 
$result_menus{'node_part_chapter_after_top'};
 
-$result_errors{'node_part_chapter_after_top'} = [];
+$result_errors{'node_part_chapter_after_top'} = [
+  {
+    'error_line' => ':9: warning: @node precedes @part, but part are not 
associated with nodes
+',
+    'file_name' => '',
+    'line_nr' => 9,
+    'macro' => '',
+    'text' => '@node precedes @part, but part are not associated with nodes',
+    'type' => 'warning'
+  }
+];
 
 
 $result_elements{'node_part_chapter_after_top'} = [

Index: t/results/sectioning/part_node_after_top.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/sectioning/part_node_after_top.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- t/results/sectioning/part_node_after_top.pl 23 Nov 2011 22:13:57 -0000      
1.10
+++ t/results/sectioning/part_node_after_top.pl 23 Nov 2011 22:35:17 -0000      
1.11
@@ -528,6 +528,15 @@
 
 $result_errors{'part_node_after_top'} = [
   {
+    'error_line' => ':9: warning: @node precedes @part, but part are not 
associated with nodes
+',
+    'file_name' => '',
+    'line_nr' => 9,
+    'macro' => '',
+    'text' => '@node precedes @part, but part are not associated with nodes',
+    'type' => 'warning'
+  },
+  {
     'error_line' => ':9: warning: No sectioning command associated with @part
 ',
     'file_name' => '',

Index: t/results/sectioning/part_node_before_top.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/sectioning/part_node_before_top.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- t/results/sectioning/part_node_before_top.pl        23 Nov 2011 22:13:57 
-0000      1.19
+++ t/results/sectioning/part_node_before_top.pl        23 Nov 2011 22:35:17 
-0000      1.20
@@ -580,6 +580,15 @@
 
 $result_errors{'part_node_before_top'} = [
   {
+    'error_line' => ':2: warning: @node precedes @part, but part are not 
associated with nodes
+',
+    'file_name' => '',
+    'line_nr' => 2,
+    'macro' => '',
+    'text' => '@node precedes @part, but part are not associated with nodes',
+    'type' => 'warning'
+  },
+  {
     'error_line' => ':2: warning: No sectioning command associated with @part
 ',
     'file_name' => '',