[7896] set parent on preamble

[gavinsmith0123]

Revision: 7896
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7896
Author:   gavin
Date:     2017-07-01 18:43:21 -0400 (Sat, 01 Jul 2017)
Log Message:
-----------
set parent on preamble

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Parser.pm
    trunk/tp/t/results/html_tests/empty_lines_at_beginning_no_setfilename.pl
    
trunk/tp/t/results/html_tests/empty_lines_at_beginning_no_setfilename_no_element.pl

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2017-07-01 22:06:11 UTC (rev 7895)
+++ trunk/ChangeLog     2017-07-01 22:43:21 UTC (rev 7896)
@@ -1,5 +1,10 @@
 2017-07-01  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Parser.pm (_parse_texi_file): Set the parent key on 
+       a created 'preamble' element.
+
+2017-07-01  Gavin Smith  <address@hidden>
+
        * tp/Texinfo/Convert/XSParagraph/configure.ac (fetch_conf): Put
        all sed commands within an environment variable, 'sed_script'.
        Assign 'sed_script' from a double-quoted string, using shell 

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2017-07-01 22:06:11 UTC (rev 7895)
+++ trunk/tp/Texinfo/Parser.pm  2017-07-01 22:43:21 UTC (rev 7896)
@@ -879,7 +879,8 @@
   }
   my $root = { 'contents' => [], 'type' => 'text_root' };
   if (@first_lines) {
-    push @{$root->{'contents'}}, { 'type' => 'preamble', 'contents' => [] };
+    push @{$root->{'contents'}}, { 'type' => 'preamble', 'contents' => [],
+                                   'parent' => $root };
     foreach my $line (@first_lines) {
       push @{$root->{'contents'}->[-1]->{'contents'}}, 
                                    { 'text' => $line,

Modified: 
trunk/tp/t/results/html_tests/empty_lines_at_beginning_no_setfilename.pl
===================================================================
--- trunk/tp/t/results/html_tests/empty_lines_at_beginning_no_setfilename.pl    
2017-07-01 22:06:11 UTC (rev 7895)
+++ trunk/tp/t/results/html_tests/empty_lines_at_beginning_no_setfilename.pl    
2017-07-01 22:43:21 UTC (rev 7896)
@@ -30,6 +30,7 @@
               'type' => 'preamble_text'
             }
           ],
+          'parent' => {},
           'type' => 'preamble'
         },
         {
@@ -177,6 +178,7 @@
 
$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[0]{'contents'}[0]{'parent'}
 = 
$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[0];
 
$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[0]{'contents'}[1]{'parent'}
 = 
$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[0];
 
$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[0]{'contents'}[2]{'parent'}
 = 
$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[0];
+$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[0]{'parent'}
 = $result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0];
 
$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'parent'}
 = 
$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[1];
 
$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[1]{'parent'}
 = $result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0];
 
$result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0]{'contents'}[2]{'parent'}
 = $result_trees{'empty_lines_at_beginning_no_setfilename'}{'contents'}[0];

Modified: 
trunk/tp/t/results/html_tests/empty_lines_at_beginning_no_setfilename_no_element.pl
===================================================================
--- 
trunk/tp/t/results/html_tests/empty_lines_at_beginning_no_setfilename_no_element.pl
 2017-07-01 22:06:11 UTC (rev 7895)
+++ 
trunk/tp/t/results/html_tests/empty_lines_at_beginning_no_setfilename_no_element.pl
 2017-07-01 22:43:21 UTC (rev 7896)
@@ -28,6 +28,7 @@
           'type' => 'preamble_text'
         }
       ],
+      'parent' => {},
       'type' => 'preamble'
     },
     {
@@ -112,6 +113,7 @@
 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[0]{'contents'}[0]{'parent'}
 = 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[0];
 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[0]{'contents'}[1]{'parent'}
 = 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[0];
 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[0]{'contents'}[2]{'parent'}
 = 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[0];
+$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[0]{'parent'}
 = $result_trees{'empty_lines_at_beginning_no_setfilename_no_element'};
 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[1]{'args'}[0]{'contents'}[0]{'extra'}{'command'}
 = 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[1];
 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
 = 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[1]{'args'}[0];
 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'}
 = 
$result_trees{'empty_lines_at_beginning_no_setfilename_no_element'}{'contents'}[1]{'args'}[0];