[8119] split def args using map statement

[gavinsmith0123]

Revision: 8119
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8119
Author:   gavin
Date:     2018-08-25 12:17:50 -0400 (Sat, 25 Aug 2018)
Log Message:
-----------
split def args using map statement

Modified Paths:
--------------
    trunk/tp/Texinfo/Common.pm
    trunk/tp/Texinfo/Parser.pm
    trunk/tp/t/results/def/all_empty_def.pl
    trunk/tp/t/results/def/empty_def_arguments.pl
    trunk/tp/t/results/def/no_category_or_no_name.pl

Modified: trunk/tp/Texinfo/Common.pm
===================================================================
--- trunk/tp/Texinfo/Common.pm  2018-08-25 16:07:15 UTC (rev 8118)
+++ trunk/tp/Texinfo/Common.pm  2018-08-25 16:17:50 UTC (rev 8119)
@@ -69,7 +69,7 @@
 @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
 
 @EXPORT = qw(
-__ __p
+__ __p print_tree
 );
 
 $VERSION = '6.5dev';

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2018-08-25 16:07:15 UTC (rev 8118)
+++ trunk/tp/Texinfo/Parser.pm  2018-08-25 16:17:50 UTC (rev 8119)
@@ -2273,42 +2273,51 @@
   return 0;
 }
 
-# used for definition line parsing
-sub _next_bracketed_or_word($$)
+# Return array, first element spaces, next element non-space.
+sub _next_bracketed_or_word
 {
-  my ($self, $contents) = @_;
+  my ($contents) = @_;
+  my ($spaces, $arg);
 
-  return undef if (!scalar(@{$contents}));
-  my $spaces;
-  $spaces = shift @{$contents} if (defined($contents->[0]->{'text'}) and 
-                                     $contents->[0]->{'text'} !~ /\S/);
-  if (defined($spaces)) {
-    delete $spaces->{'parent'};
-    #print STDERR "Gather spaces only text\n";
-    $spaces->{'type'} = 'spaces';
-    $spaces = undef if ($spaces->{'text'} eq '');
+  my $next = shift @$contents;
+  if (!defined($next->{'type'}) or $next->{'type'} ne 'spaces') {
+    $arg = $next;
+  } else {
+    $spaces = $next;
+    if (@$contents) {
+      $arg = shift @$contents;
+    }
   }
-  return ($spaces, undef) if (!scalar(@{$contents}));
+  return ($spaces, $arg);
+}
 
-  #print STDERR "BEFORE PROCESSING 
".Texinfo::Convert::Texinfo::convert({'contents' => $contents});
-  if ($contents->[0]->{'type'} and $contents->[0]->{'type'} eq 'bracketed') {
-    #print STDERR "Return bracketed\n";
-    my $bracketed = shift @{$contents};
-    _isolate_last_space($self, $bracketed);
-    $bracketed->{'type'} = 'bracketed_def_content';
-    return ($spaces, $bracketed);
-  } elsif ($contents->[0]->{'cmdname'}) {
-    #print STDERR "Return command $contents->[0]->{'cmdname'}\n";
-    return ($spaces, shift @{$contents});
-  } else {
-    #print STDERR "Process $contents->[0]->{'text'}\n";
-    $contents->[0]->{'text'} =~ s/^(\s*)//;
-    my $space_text = $1;
-    $spaces = {'text' => $space_text, 'type' => 'spaces'} if ($space_text);
-    $contents->[0]->{'text'} =~ s/^(\S+)//;
-    shift @{$contents} if ($contents->[0]->{'text'} eq '');
-    return ($spaces, {'text' => $1});
+sub _split_def_args
+{
+  my ($self, $root) = @_;
+
+  if (defined $root->{'text'}) {
+    my @elements;
+    my $type;
+    my @split_text = split /(?<=\s)(?=\S)|(?<=\S)(?=\s)/, $root->{'text'};
+    if ($split_text[0] =~ /^\s*$/) {
+      $type = 'spaces';
+    }
+    for my $t (@split_text) {
+      my $e = {'text' => $t };
+      if ($type) {
+        $e->{'type'} = $type;
+        $type = undef;
+      } else {
+        $type = 'spaces';
+      }
+      push @elements, $e;
+    }
+    return @elements;
+  } elsif ($root->{'type'} and $root->{'type'} eq 'bracketed') {
+    _isolate_last_space($self, $root);
+    $root->{'type'} = 'bracketed_def_content';
   }
+  return $root;
 }
 
 # definition line parsing
@@ -2345,6 +2354,8 @@
 
     $command = $def_aliases{$command};
   }
+  @contents = map (_split_def_args($self, $_), @contents );
+  
   my @result;
   my @args = @{$def_map{$command}};
   my $arg_type;
@@ -2355,7 +2366,7 @@
   # tokenize the line.  We need to do that in order to be able to 
   # look ahead for spaces.
   while (@contents) {
-    my ($spaces, $next) = _next_bracketed_or_word($self, address@hidden);
+    my ($spaces, $next) = _next_bracketed_or_word (address@hidden);
     # if there is no argument at all, the leading space is not associated
     # to the @-command, so end up being gathered here.  We do not want to
     # have this leading space appear in the arguments ever, so we ignore

Modified: trunk/tp/t/results/def/all_empty_def.pl
===================================================================
--- trunk/tp/t/results/def/all_empty_def.pl     2018-08-25 16:07:15 UTC (rev 
8118)
+++ trunk/tp/t/results/def/all_empty_def.pl     2018-08-25 16:17:50 UTC (rev 
8119)
@@ -77,9 +77,10 @@
       'extra' => {
         'end_command' => {},
         'spaces_after_command' => {
+          'parent' => {},
           'text' => '
 ',
-          'type' => 'spaces'
+          'type' => 'empty_line_after_command'
         }
       },
       'line_nr' => {},
@@ -161,9 +162,10 @@
       'extra' => {
         'end_command' => {},
         'spaces_after_command' => {
+          'parent' => {},
           'text' => '
 ',
-          'type' => 'spaces'
+          'type' => 'empty_line_after_command'
         }
       },
       'line_nr' => {},
@@ -245,9 +247,10 @@
       'extra' => {
         'end_command' => {},
         'spaces_after_command' => {
+          'parent' => {},
           'text' => '
 ',
-          'type' => 'spaces'
+          'type' => 'empty_line_after_command'
         }
       },
       'line_nr' => {},
@@ -329,9 +332,10 @@
       'extra' => {
         'end_command' => {},
         'spaces_after_command' => {
+          'parent' => {},
           'text' => '
 ',
-          'type' => 'spaces'
+          'type' => 'empty_line_after_command'
         }
       },
       'line_nr' => {},
@@ -413,9 +417,10 @@
       'extra' => {
         'end_command' => {},
         'spaces_after_command' => {
+          'parent' => {},
           'text' => '
 ',
-          'type' => 'spaces'
+          'type' => 'empty_line_after_command'
         }
       },
       'line_nr' => {},
@@ -497,9 +502,10 @@
       'extra' => {
         'end_command' => {},
         'spaces_after_command' => {
+          'parent' => {},
           'text' => '
 ',
-          'type' => 'spaces'
+          'type' => 'empty_line_after_command'
         }
       },
       'line_nr' => {},
@@ -581,9 +587,10 @@
       'extra' => {
         'end_command' => {},
         'spaces_after_command' => {
+          'parent' => {},
           'text' => '
 ',
-          'type' => 'spaces'
+          'type' => 'empty_line_after_command'
         }
       },
       'line_nr' => {},
@@ -665,9 +672,10 @@
       'extra' => {
         'end_command' => {},
         'spaces_after_command' => {
+          'parent' => {},
           'text' => '
 ',
-          'type' => 'spaces'
+          'type' => 'empty_line_after_command'
         }
       },
       'line_nr' => {},
@@ -749,9 +757,10 @@
       'extra' => {
         'end_command' => {},
         'spaces_after_command' => {
+          'parent' => {},
           'text' => '
 ',
-          'type' => 'spaces'
+          'type' => 'empty_line_after_command'
         }
       },
       'line_nr' => {},
@@ -769,6 +778,7 @@
 
$result_trees{'all_empty_def'}{'contents'}[0]{'contents'}[1]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'all_empty_def'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0];
 $result_trees{'all_empty_def'}{'contents'}[0]{'contents'}[1]{'parent'} = 
$result_trees{'all_empty_def'}{'contents'}[0];
 $result_trees{'all_empty_def'}{'contents'}[0]{'extra'}{'end_command'} = 
$result_trees{'all_empty_def'}{'contents'}[0]{'contents'}[1];
+$result_trees{'all_empty_def'}{'contents'}[0]{'extra'}{'spaces_after_command'}{'parent'}
 = $result_trees{'all_empty_def'}{'contents'}[0]{'contents'}[0]{'args'}[0];
 $result_trees{'all_empty_def'}{'contents'}[0]{'line_nr'} = 
$result_trees{'all_empty_def'}{'contents'}[0]{'contents'}[0]{'line_nr'};
 $result_trees{'all_empty_def'}{'contents'}[0]{'parent'} = 
$result_trees{'all_empty_def'};
 $result_trees{'all_empty_def'}{'contents'}[1]{'parent'} = 
$result_trees{'all_empty_def'};
@@ -781,6 +791,7 @@
 
$result_trees{'all_empty_def'}{'contents'}[2]{'contents'}[1]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'all_empty_def'}{'contents'}[2]{'contents'}[1]{'args'}[0]{'contents'}[0];
 $result_trees{'all_empty_def'}{'contents'}[2]{'contents'}[1]{'parent'} = 
$result_trees{'all_empty_def'}{'contents'}[2];
 $result_trees{'all_empty_def'}{'contents'}[2]{'extra'}{'end_command'} = 
$result_trees{'all_empty_def'}{'contents'}[2]{'contents'}[1];
+$result_trees{'all_empty_def'}{'contents'}[2]{'extra'}{'spaces_after_command'}{'parent'}
 = $result_trees{'all_empty_def'}{'contents'}[2]{'contents'}[0]{'args'}[0];
 $result_trees{'all_empty_def'}{'contents'}[2]{'line_nr'} = 
$result_trees{'all_empty_def'}{'contents'}[2]{'contents'}[0]{'line_nr'};
 $result_trees{'all_empty_def'}{'contents'}[2]{'parent'} = 
$result_trees{'all_empty_def'};
 $result_trees{'all_empty_def'}{'contents'}[3]{'parent'} = 
$result_trees{'all_empty_def'};
@@ -793,6 +804,7 @@
 
$result_trees{'all_empty_def'}{'contents'}[4]{'contents'}[1]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'all_empty_def'}{'contents'}[4]{'contents'}[1]{'args'}[0]{'contents'}[0];
 $result_trees{'all_empty_def'}{'contents'}[4]{'contents'}[1]{'parent'} = 
$result_trees{'all_empty_def'}{'contents'}[4];
 $result_trees{'all_empty_def'}{'contents'}[4]{'extra'}{'end_command'} = 
$result_trees{'all_empty_def'}{'contents'}[4]{'contents'}[1];
+$result_trees{'all_empty_def'}{'contents'}[4]{'extra'}{'spaces_after_command'}{'parent'}
 = $result_trees{'all_empty_def'}{'contents'}[4]{'contents'}[0]{'args'}[0];
 $result_trees{'all_empty_def'}{'contents'}[4]{'line_nr'} = 
$result_trees{'all_empty_def'}{'contents'}[4]{'contents'}[0]{'line_nr'};
 $result_trees{'all_empty_def'}{'contents'}[4]{'parent'} = 
$result_trees{'all_empty_def'};
 $result_trees{'all_empty_def'}{'contents'}[5]{'parent'} = 
$result_trees{'all_empty_def'};
@@ -805,6 +817,7 @@
 
$result_trees{'all_empty_def'}{'contents'}[6]{'contents'}[1]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'all_empty_def'}{'contents'}[6]{'contents'}[1]{'args'}[0]{'contents'}[0];
 $result_trees{'all_empty_def'}{'contents'}[6]{'contents'}[1]{'parent'} = 
$result_trees{'all_empty_def'}{'contents'}[6];
 $result_trees{'all_empty_def'}{'contents'}[6]{'extra'}{'end_command'} = 
$result_trees{'all_empty_def'}{'contents'}[6]{'contents'}[1];
+$result_trees{'all_empty_def'}{'contents'}[6]{'extra'}{'spaces_after_command'}{'parent'}
 = $result_trees{'all_empty_def'}{'contents'}[6]{'contents'}[0]{'args'}[0];
 $result_trees{'all_empty_def'}{'contents'}[6]{'line_nr'} = 
$result_trees{'all_empty_def'}{'contents'}[6]{'contents'}[0]{'line_nr'};
 $result_trees{'all_empty_def'}{'contents'}[6]{'parent'} = 
$result_trees{'all_empty_def'};
 $result_trees{'all_empty_def'}{'contents'}[7]{'parent'} = 
$result_trees{'all_empty_def'};
@@ -817,6 +830,7 @@
 
$result_trees{'all_empty_def'}{'contents'}[8]{'contents'}[1]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'all_empty_def'}{'contents'}[8]{'contents'}[1]{'args'}[0]{'contents'}[0];
 $result_trees{'all_empty_def'}{'contents'}[8]{'contents'}[1]{'parent'} = 
$result_trees{'all_empty_def'}{'contents'}[8];
 $result_trees{'all_empty_def'}{'contents'}[8]{'extra'}{'end_command'} = 
$result_trees{'all_empty_def'}{'contents'}[8]{'contents'}[1];
+$result_trees{'all_empty_def'}{'contents'}[8]{'extra'}{'spaces_after_command'}{'parent'}
 = $result_trees{'all_empty_def'}{'contents'}[8]{'contents'}[0]{'args'}[0];
 $result_trees{'all_empty_def'}{'contents'}[8]{'line_nr'} = 
$result_trees{'all_empty_def'}{'contents'}[8]{'contents'}[0]{'line_nr'};
 $result_trees{'all_empty_def'}{'contents'}[8]{'parent'} = 
$result_trees{'all_empty_def'};
 $result_trees{'all_empty_def'}{'contents'}[9]{'parent'} = 
$result_trees{'all_empty_def'};
@@ -829,6 +843,7 @@
 
$result_trees{'all_empty_def'}{'contents'}[10]{'contents'}[1]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'all_empty_def'}{'contents'}[10]{'contents'}[1]{'args'}[0]{'contents'}[0];
 $result_trees{'all_empty_def'}{'contents'}[10]{'contents'}[1]{'parent'} = 
$result_trees{'all_empty_def'}{'contents'}[10];
 $result_trees{'all_empty_def'}{'contents'}[10]{'extra'}{'end_command'} = 
$result_trees{'all_empty_def'}{'contents'}[10]{'contents'}[1];
+$result_trees{'all_empty_def'}{'contents'}[10]{'extra'}{'spaces_after_command'}{'parent'}
 = $result_trees{'all_empty_def'}{'contents'}[10]{'contents'}[0]{'args'}[0];
 $result_trees{'all_empty_def'}{'contents'}[10]{'line_nr'} = 
$result_trees{'all_empty_def'}{'contents'}[10]{'contents'}[0]{'line_nr'};
 $result_trees{'all_empty_def'}{'contents'}[10]{'parent'} = 
$result_trees{'all_empty_def'};
 $result_trees{'all_empty_def'}{'contents'}[11]{'parent'} = 
$result_trees{'all_empty_def'};
@@ -841,6 +856,7 @@
 
$result_trees{'all_empty_def'}{'contents'}[12]{'contents'}[1]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'all_empty_def'}{'contents'}[12]{'contents'}[1]{'args'}[0]{'contents'}[0];
 $result_trees{'all_empty_def'}{'contents'}[12]{'contents'}[1]{'parent'} = 
$result_trees{'all_empty_def'}{'contents'}[12];
 $result_trees{'all_empty_def'}{'contents'}[12]{'extra'}{'end_command'} = 
$result_trees{'all_empty_def'}{'contents'}[12]{'contents'}[1];
+$result_trees{'all_empty_def'}{'contents'}[12]{'extra'}{'spaces_after_command'}{'parent'}
 = $result_trees{'all_empty_def'}{'contents'}[12]{'contents'}[0]{'args'}[0];
 $result_trees{'all_empty_def'}{'contents'}[12]{'line_nr'} = 
$result_trees{'all_empty_def'}{'contents'}[12]{'contents'}[0]{'line_nr'};
 $result_trees{'all_empty_def'}{'contents'}[12]{'parent'} = 
$result_trees{'all_empty_def'};
 $result_trees{'all_empty_def'}{'contents'}[13]{'parent'} = 
$result_trees{'all_empty_def'};
@@ -853,6 +869,7 @@
 
$result_trees{'all_empty_def'}{'contents'}[14]{'contents'}[1]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'all_empty_def'}{'contents'}[14]{'contents'}[1]{'args'}[0]{'contents'}[0];
 $result_trees{'all_empty_def'}{'contents'}[14]{'contents'}[1]{'parent'} = 
$result_trees{'all_empty_def'}{'contents'}[14];
 $result_trees{'all_empty_def'}{'contents'}[14]{'extra'}{'end_command'} = 
$result_trees{'all_empty_def'}{'contents'}[14]{'contents'}[1];
+$result_trees{'all_empty_def'}{'contents'}[14]{'extra'}{'spaces_after_command'}{'parent'}
 = $result_trees{'all_empty_def'}{'contents'}[14]{'contents'}[0]{'args'}[0];
 $result_trees{'all_empty_def'}{'contents'}[14]{'line_nr'} = 
$result_trees{'all_empty_def'}{'contents'}[14]{'contents'}[0]{'line_nr'};
 $result_trees{'all_empty_def'}{'contents'}[14]{'parent'} = 
$result_trees{'all_empty_def'};
 $result_trees{'all_empty_def'}{'contents'}[15]{'parent'} = 
$result_trees{'all_empty_def'};
@@ -865,6 +882,7 @@
 
$result_trees{'all_empty_def'}{'contents'}[16]{'contents'}[1]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'all_empty_def'}{'contents'}[16]{'contents'}[1]{'args'}[0]{'contents'}[0];
 $result_trees{'all_empty_def'}{'contents'}[16]{'contents'}[1]{'parent'} = 
$result_trees{'all_empty_def'}{'contents'}[16];
 $result_trees{'all_empty_def'}{'contents'}[16]{'extra'}{'end_command'} = 
$result_trees{'all_empty_def'}{'contents'}[16]{'contents'}[1];
+$result_trees{'all_empty_def'}{'contents'}[16]{'extra'}{'spaces_after_command'}{'parent'}
 = $result_trees{'all_empty_def'}{'contents'}[16]{'contents'}[0]{'args'}[0];
 $result_trees{'all_empty_def'}{'contents'}[16]{'line_nr'} = 
$result_trees{'all_empty_def'}{'contents'}[16]{'contents'}[0]{'line_nr'};
 $result_trees{'all_empty_def'}{'contents'}[16]{'parent'} = 
$result_trees{'all_empty_def'};
 

Modified: trunk/tp/t/results/def/empty_def_arguments.pl
===================================================================
--- trunk/tp/t/results/def/empty_def_arguments.pl       2018-08-25 16:07:15 UTC 
(rev 8118)
+++ trunk/tp/t/results/def/empty_def_arguments.pl       2018-08-25 16:17:50 UTC 
(rev 8119)
@@ -252,9 +252,10 @@
             'def_command' => 'deffn',
             'original_def_cmdname' => 'deffnx',
             'spaces_after_command' => {
+              'parent' => {},
               'text' => ' 
 ',
-              'type' => 'spaces'
+              'type' => 'empty_line_after_command'
             }
           },
           'line_nr' => {
@@ -684,6 +685,7 @@
 $result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[1]{'line_nr'} 
= 
$result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'line_nr'};
 $result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[1]{'parent'} = 
$result_trees{'empty_def_arguments'}{'contents'}[0];
 
$result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[2]{'args'}[0]{'parent'}
 = $result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[2];
+$result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[2]{'extra'}{'spaces_after_command'}{'parent'}
 = 
$result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[2]{'args'}[0];
 $result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[2]{'parent'} = 
$result_trees{'empty_def_arguments'}{'contents'}[0];
 
$result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[3]{'args'}[0]{'contents'}[0]{'parent'}
 = 
$result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[3]{'args'}[0];
 
$result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[3]{'args'}[0]{'parent'}
 = $result_trees{'empty_def_arguments'}{'contents'}[0]{'contents'}[3];

Modified: trunk/tp/t/results/def/no_category_or_no_name.pl
===================================================================
--- trunk/tp/t/results/def/no_category_or_no_name.pl    2018-08-25 16:07:15 UTC 
(rev 8118)
+++ trunk/tp/t/results/def/no_category_or_no_name.pl    2018-08-25 16:17:50 UTC 
(rev 8119)
@@ -94,9 +94,10 @@
       'extra' => {
         'end_command' => {},
         'spaces_after_command' => {
+          'parent' => {},
           'text' => '
 ',
-          'type' => 'spaces'
+          'type' => 'empty_line_after_command'
         }
       },
       'line_nr' => {},
@@ -427,9 +428,10 @@
             'def_command' => 'deffn',
             'original_def_cmdname' => 'deffnx',
             'spaces_after_command' => {
+              'parent' => {},
               'text' => ' 
 ',
-              'type' => 'spaces'
+              'type' => 'empty_line_after_command'
             }
           },
           'line_nr' => {
@@ -517,6 +519,7 @@
 
$result_trees{'no_category_or_no_name'}{'contents'}[0]{'contents'}[2]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'no_category_or_no_name'}{'contents'}[0]{'contents'}[2]{'args'}[0]{'contents'}[0];
 
$result_trees{'no_category_or_no_name'}{'contents'}[0]{'contents'}[2]{'parent'} 
= $result_trees{'no_category_or_no_name'}{'contents'}[0];
 $result_trees{'no_category_or_no_name'}{'contents'}[0]{'extra'}{'end_command'} 
= $result_trees{'no_category_or_no_name'}{'contents'}[0]{'contents'}[2];
+$result_trees{'no_category_or_no_name'}{'contents'}[0]{'extra'}{'spaces_after_command'}{'parent'}
 = 
$result_trees{'no_category_or_no_name'}{'contents'}[0]{'contents'}[0]{'args'}[0];
 $result_trees{'no_category_or_no_name'}{'contents'}[0]{'line_nr'} = 
$result_trees{'no_category_or_no_name'}{'contents'}[0]{'contents'}[0]{'line_nr'};
 $result_trees{'no_category_or_no_name'}{'contents'}[0]{'parent'} = 
$result_trees{'no_category_or_no_name'};
 $result_trees{'no_category_or_no_name'}{'contents'}[1]{'parent'} = 
$result_trees{'no_category_or_no_name'};
@@ -556,6 +559,7 @@
 
$result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[1]{'extra'}{'spaces_after_command'}
 = 
$result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[1]{'args'}[0]{'contents'}[0];
 
$result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[1]{'parent'} 
= $result_trees{'no_category_or_no_name'}{'contents'}[4];
 
$result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[2]{'args'}[0]{'parent'}
 = $result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[2];
+$result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[2]{'extra'}{'spaces_after_command'}{'parent'}
 = 
$result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[2]{'args'}[0];
 
$result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[2]{'parent'} 
= $result_trees{'no_category_or_no_name'}{'contents'}[4];
 
$result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[3]{'contents'}[0]{'contents'}[0]{'parent'}
 = 
$result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[3]{'contents'}[0];
 
$result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[3]{'contents'}[0]{'parent'}
 = $result_trees{'no_category_or_no_name'}{'contents'}[4]{'contents'}[3];