texinfo/tp TODO Texinfo/Structuring.pm t/result...

[Patrice Dumas]

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

Modified files:
        tp             : TODO 
        tp/Texinfo     : Structuring.pm 
        tp/t/results/sectioning: chapter_before_part.pl 
                                 part_before_top.pl 
                                 part_node_after_top.pl 
                                 part_node_before_top.pl 
                                 section_before_part.pl 
                                 section_node_before_part.pl 

Log message:
        Add a warning for @part not associated to a sectioning command.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/TODO?cvsroot=texinfo&r1=1.224&r2=1.225
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Structuring.pm?cvsroot=texinfo&r1=1.107&r2=1.108
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/chapter_before_part.pl?cvsroot=texinfo&r1=1.8&r2=1.9
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/part_before_top.pl?cvsroot=texinfo&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/part_node_after_top.pl?cvsroot=texinfo&r1=1.9&r2=1.10
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/part_node_before_top.pl?cvsroot=texinfo&r1=1.18&r2=1.19
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/section_before_part.pl?cvsroot=texinfo&r1=1.16&r2=1.17
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/sectioning/section_node_before_part.pl?cvsroot=texinfo&r1=1.17&r2=1.18

Patches:
Index: TODO
===================================================================
RCS file: /sources/texinfo/texinfo/tp/TODO,v
retrieving revision 1.224
retrieving revision 1.225
diff -u -b -r1.224 -r1.225
--- TODO        22 Nov 2011 00:34:58 -0000      1.224
+++ TODO        23 Nov 2011 22:13:56 -0000      1.225
@@ -10,17 +10,12 @@
 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 
-or if there is no chapter like command.
+add warning msg for @part if there is an associated node. 
 
 
 Bugs
 ====
 
-Other positive, check they are all in tests.
-Old Texinfo, use of subheading and explicit direction.
-a intercalar node
-
 
 Delayed bugs
 ============

Index: Texinfo/Structuring.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Structuring.pm,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -b -r1.107 -r1.108
--- Texinfo/Structuring.pm      23 Nov 2011 00:28:04 -0000      1.107
+++ Texinfo/Structuring.pm      23 Nov 2011 22:13:56 -0000      1.108
@@ -329,6 +329,11 @@
         if ($section_top and $content ne $section_top) {
           $content->{'toplevel_up'} = $section_top;
         }
+      } elsif ($content->{'cmdname'} eq 'part' 
+               and !$content->{'extra'}->{'part_associated_section'}) {
+        $self->line_warn(sprintf($self->__(
+            "No sectioning command associated with address@hidden"),
+                $content->{'cmdname'}), $content->{'line_nr'});
       }
 
       if ($self->{'DEBUG'}) {

Index: t/results/sectioning/chapter_before_part.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/sectioning/chapter_before_part.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- t/results/sectioning/chapter_before_part.pl 1 Nov 2011 12:01:45 -0000       
1.8
+++ t/results/sectioning/chapter_before_part.pl 23 Nov 2011 22:13:56 -0000      
1.9
@@ -179,7 +179,17 @@
 $result_sectioning{'chapter_before_part'}{'section_childs'}[0]{'section_up'} = 
$result_sectioning{'chapter_before_part'};
 $result_sectioning{'chapter_before_part'}{'section_childs'}[1]{'section_up'} = 
$result_sectioning{'chapter_before_part'};
 
-$result_errors{'chapter_before_part'} = [];
+$result_errors{'chapter_before_part'} = [
+  {
+    'error_line' => ':3: warning: No sectioning command associated with @part
+',
+    'file_name' => '',
+    'line_nr' => 3,
+    'macro' => '',
+    'text' => 'No sectioning command associated with @part',
+    'type' => 'warning'
+  }
+];
 
 
 $result_elements{'chapter_before_part'} = [

Index: t/results/sectioning/part_before_top.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/results/sectioning/part_before_top.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- t/results/sectioning/part_before_top.pl     1 Nov 2011 12:01:47 -0000       
1.7
+++ t/results/sectioning/part_before_top.pl     23 Nov 2011 22:13:57 -0000      
1.8
@@ -179,7 +179,17 @@
 $result_sectioning{'part_before_top'}{'section_childs'}[1]{'section_prev'} = 
$result_sectioning{'part_before_top'}{'section_childs'}[0];
 $result_sectioning{'part_before_top'}{'section_childs'}[1]{'section_up'} = 
$result_sectioning{'part_before_top'};
 
-$result_errors{'part_before_top'} = [];
+$result_errors{'part_before_top'} = [
+  {
+    'error_line' => ':1: warning: No sectioning command associated with @part
+',
+    'file_name' => '',
+    'line_nr' => 1,
+    'macro' => '',
+    'text' => 'No sectioning command associated with @part',
+    'type' => 'warning'
+  }
+];
 
 
 $result_elements{'part_before_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.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- t/results/sectioning/part_node_after_top.pl 1 Nov 2011 12:26:11 -0000       
1.9
+++ t/results/sectioning/part_node_after_top.pl 23 Nov 2011 22:13:57 -0000      
1.10
@@ -526,7 +526,17 @@
 };
 $result_menus{'part_node_after_top'}{'menu_child'}{'menu_up'} = 
$result_menus{'part_node_after_top'};
 
-$result_errors{'part_node_after_top'} = [];
+$result_errors{'part_node_after_top'} = [
+  {
+    'error_line' => ':9: warning: No sectioning command associated with @part
+',
+    'file_name' => '',
+    'line_nr' => 9,
+    'macro' => '',
+    'text' => 'No sectioning command associated with @part',
+    'type' => 'warning'
+  }
+];
 
 
 $result_elements{'part_node_after_top'} = [

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.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- t/results/sectioning/part_node_before_top.pl        1 Nov 2011 12:26:11 
-0000       1.18
+++ t/results/sectioning/part_node_before_top.pl        23 Nov 2011 22:13:57 
-0000      1.19
@@ -578,7 +578,17 @@
 };
 $result_menus{'part_node_before_top'}{'menu_child'}{'menu_up'} = 
$result_menus{'part_node_before_top'};
 
-$result_errors{'part_node_before_top'} = [];
+$result_errors{'part_node_before_top'} = [
+  {
+    'error_line' => ':2: warning: No sectioning command associated with @part
+',
+    'file_name' => '',
+    'line_nr' => 2,
+    'macro' => '',
+    'text' => 'No sectioning command associated with @part',
+    'type' => 'warning'
+  }
+];
 
 
 $result_elements{'part_node_before_top'} = [

Index: t/results/sectioning/section_before_part.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/sectioning/section_before_part.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- t/results/sectioning/section_before_part.pl 3 Nov 2011 18:45:11 -0000       
1.16
+++ t/results/sectioning/section_before_part.pl 23 Nov 2011 22:13:57 -0000      
1.17
@@ -183,6 +183,15 @@
     'macro' => '',
     'text' => 'No chapter-level command before @part',
     'type' => 'warning'
+  },
+  {
+    'error_line' => ':3: warning: No sectioning command associated with @part
+',
+    'file_name' => '',
+    'line_nr' => 3,
+    'macro' => '',
+    'text' => 'No sectioning command associated with @part',
+    'type' => 'warning'
   }
 ];
 

Index: t/results/sectioning/section_node_before_part.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/sectioning/section_node_before_part.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- t/results/sectioning/section_node_before_part.pl    1 Nov 2011 12:26:11 
-0000       1.17
+++ t/results/sectioning/section_node_before_part.pl    23 Nov 2011 22:13:57 
-0000      1.18
@@ -273,6 +273,15 @@
     'macro' => '',
     'text' => 'No chapter-level command before @part',
     'type' => 'warning'
+  },
+  {
+    'error_line' => ':5: warning: No sectioning command associated with @part
+',
+    'file_name' => '',
+    'line_nr' => 5,
+    'macro' => '',
+    'text' => 'No sectioning command associated with @part',
+    'type' => 'warning'
   }
 ];