texinfo/tp Texinfo/Parser.pm t/results/invalid_...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        10/10/24 11:14:56

Modified files:
        tp/Texinfo     : Parser.pm 
        tp/t/results/invalid_nestings: bad_style_nesting.pl 
                                       bad_tab_nesting.pl center.pl 
                                       style_not_closed_in_block_command.pl 
                                       style_not_closed_in_table_line.pl 
                                       
style_not_closed_no_newline_root_commands.pl 

Log message:
        Warn for misc and block @-commands in style brace @-commands.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Parser.pm?cvsroot=texinfo&r1=1.99&r2=1.100
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/invalid_nestings/bad_style_nesting.pl?cvsroot=texinfo&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/invalid_nestings/bad_tab_nesting.pl?cvsroot=texinfo&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/invalid_nestings/center.pl?cvsroot=texinfo&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/invalid_nestings/style_not_closed_in_block_command.pl?cvsroot=texinfo&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/invalid_nestings/style_not_closed_in_table_line.pl?cvsroot=texinfo&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/invalid_nestings/style_not_closed_no_newline_root_commands.pl?cvsroot=texinfo&r1=1.1&r2=1.2

Patches:
Index: Texinfo/Parser.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Parser.pm,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -b -r1.99 -r1.100
--- Texinfo/Parser.pm   24 Oct 2010 10:02:42 -0000      1.99
+++ Texinfo/Parser.pm   24 Oct 2010 11:14:56 -0000      1.100
@@ -566,13 +566,13 @@
 
 # commands that accept full text, but no block or top-level commands
 my %full_text_commands;
-#foreach my $brace_command (keys (%brace_commands)) {  
-#  if ($brace_commands{$brace_command} == 1 
-#      and (!$simple_text_commands{$brace_command} 
-#           and !$context_brace_commands{$brace_command})) {
-#    $full_text_commands{$brace_command} = 1;
-#  }
-#}
+foreach my $brace_command (keys (%brace_commands)) {  
+  if ($brace_commands{$brace_command} == 1 
+      and (!$simple_text_commands{$brace_command} 
+           and !$context_brace_commands{$brace_command})) {
+    $full_text_commands{$brace_command} = 1;
+  }
+}
 $full_text_commands{'center'} = 1;
 $full_text_commands{'exdent'} = 1;
 

Index: t/results/invalid_nestings/bad_style_nesting.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/invalid_nestings/bad_style_nesting.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- t/results/invalid_nestings/bad_style_nesting.pl     23 Oct 2010 15:36:53 
-0000      1.1
+++ t/results/invalid_nestings/bad_style_nesting.pl     24 Oct 2010 11:14:56 
-0000      1.2
@@ -81,6 +81,15 @@
 
 $result_errors{'bad_style_nesting'} = [
   {
+    'error_line' => ':2: warning: @quotation should not appear in @code
+',
+    'file_name' => '',
+    'line_nr' => 2,
+    'macro' => '',
+    'text' => '@quotation should not appear in @code',
+    'type' => 'warning'
+  },
+  {
     'error_line' => ':2: @code missing close brace
 ',
     'file_name' => '',

Index: t/results/invalid_nestings/bad_tab_nesting.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/invalid_nestings/bad_tab_nesting.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- t/results/invalid_nestings/bad_tab_nesting.pl       23 Oct 2010 15:36:53 
-0000      1.1
+++ t/results/invalid_nestings/bad_tab_nesting.pl       24 Oct 2010 11:14:56 
-0000      1.2
@@ -174,6 +174,15 @@
 
 $result_errors{'bad_tab_nesting'} = [
   {
+    'error_line' => ':3: warning: @tab should not appear in @code
+',
+    'file_name' => '',
+    'line_nr' => 3,
+    'macro' => '',
+    'text' => '@tab should not appear in @code',
+    'type' => 'warning'
+  },
+  {
     'error_line' => ':3: @code missing close brace
 ',
     'file_name' => '',

Index: t/results/invalid_nestings/center.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/results/invalid_nestings/center.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- t/results/invalid_nestings/center.pl        23 Oct 2010 21:52:53 -0000      
1.3
+++ t/results/invalid_nestings/center.pl        24 Oct 2010 11:14:56 -0000      
1.4
@@ -590,6 +590,15 @@
     'type' => 'warning'
   },
   {
+    'error_line' => ':15: warning: @center should not appear in @code
+',
+    'file_name' => '',
+    'line_nr' => 15,
+    'macro' => '',
+    'text' => '@center should not appear in @code',
+    'type' => 'warning'
+  },
+  {
     'error_line' => ':15: @code missing close brace
 ',
     'file_name' => '',

Index: t/results/invalid_nestings/style_not_closed_in_block_command.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/invalid_nestings/style_not_closed_in_block_command.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- t/results/invalid_nestings/style_not_closed_in_block_command.pl     24 Oct 
2010 09:39:12 -0000      1.1
+++ t/results/invalid_nestings/style_not_closed_in_block_command.pl     24 Oct 
2010 11:14:56 -0000      1.2
@@ -71,6 +71,15 @@
 
 $result_errors{'style_not_closed_in_block_command'} = [
   {
+    'error_line' => ':3: warning: @end should not appear in @code
+',
+    'file_name' => '',
+    'line_nr' => 3,
+    'macro' => '',
+    'text' => '@end should not appear in @code',
+    'type' => 'warning'
+  },
+  {
     'error_line' => ':3: @code missing close brace
 ',
     'file_name' => '',

Index: t/results/invalid_nestings/style_not_closed_in_table_line.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/invalid_nestings/style_not_closed_in_table_line.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- t/results/invalid_nestings/style_not_closed_in_table_line.pl        24 Oct 
2010 09:39:12 -0000      1.1
+++ t/results/invalid_nestings/style_not_closed_in_table_line.pl        24 Oct 
2010 11:14:56 -0000      1.2
@@ -170,6 +170,15 @@
 
 $result_errors{'style_not_closed_in_table_line'} = [
   {
+    'error_line' => ':4: warning: @item should not appear in @code
+',
+    'file_name' => '',
+    'line_nr' => 4,
+    'macro' => '',
+    'text' => '@item should not appear in @code',
+    'type' => 'warning'
+  },
+  {
     'error_line' => ':4: @code missing close brace
 ',
     'file_name' => '',

Index: t/results/invalid_nestings/style_not_closed_no_newline_root_commands.pl
===================================================================
RCS file: 
/sources/texinfo/texinfo/tp/t/results/invalid_nestings/style_not_closed_no_newline_root_commands.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- t/results/invalid_nestings/style_not_closed_no_newline_root_commands.pl     
23 Oct 2010 15:36:53 -0000      1.1
+++ t/results/invalid_nestings/style_not_closed_no_newline_root_commands.pl     
24 Oct 2010 11:14:56 -0000      1.2
@@ -284,6 +284,15 @@
 
 $result_errors{'style_not_closed_no_newline_root_commands'} = [
   {
+    'error_line' => ':8: warning: @node should not appear in @code
+',
+    'file_name' => '',
+    'line_nr' => 8,
+    'macro' => '',
+    'text' => '@node should not appear in @code',
+    'type' => 'warning'
+  },
+  {
     'error_line' => ':8: @code missing close brace
 ',
     'file_name' => '',
@@ -293,6 +302,15 @@
     'type' => 'error'
   },
   {
+    'error_line' => ':12: warning: @bye should not appear in @code
+',
+    'file_name' => '',
+    'line_nr' => 12,
+    'macro' => '',
+    'text' => '@bye should not appear in @code',
+    'type' => 'warning'
+  },
+  {
     'error_line' => ':12: @code missing close brace
 ',
     'file_name' => '',