[7461] remove unused functions

[gavinsmith0123]

Revision: 7461
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7461
Author:   gavin
Date:     2016-10-18 23:14:51 +0000 (Tue, 18 Oct 2016)
Log Message:
-----------
remove unused functions

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/Structuring.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2016-10-17 20:45:24 UTC (rev 7460)
+++ trunk/ChangeLog     2016-10-18 23:14:51 UTC (rev 7461)
@@ -1,3 +1,8 @@
+2016-10-19  Gavin Smith  <address@hidden>
+
+       * tp/Texinfo/Structuring.pm (_next_content, _collect_structure):
+       Remove unused functions.
+
 2016-10-17  Gavin Smith  <address@hidden>
 
        * tp/Texinfo/Structuring.pm (_check_menu_entry): Remove 

Modified: trunk/tp/Texinfo/Structuring.pm
===================================================================
--- trunk/tp/Texinfo/Structuring.pm     2016-10-17 20:45:24 UTC (rev 7460)
+++ trunk/tp/Texinfo/Structuring.pm     2016-10-18 23:14:51 UTC (rev 7461)
@@ -86,68 +86,7 @@
   $types_to_enter{$type_to_enter} = 1;
 }
 
-# anchor may appear in @center? @item/x?
-# going in node, sectioning 
-# not going in: pagesizes listoffloats shorttitlepage 
-#               settitle author subtitle title
-# index entries
-# footnote? section node
-# float printindex contents shortcontents
-# anchor
 
-# Not used for now
-sub _next_content($)
-{
-  my $current = shift;
-  if ($current->{'contents'} and scalar(@{$current->{'contents'}})) {
-    $current = $current->{'contents'}->[0];
-  } elsif ($current->{'args'} and @{$current->{'args'}}
-           and (!defined($current->{'args'}->[0]->{'type'})
-               or ($current->{'args'}->[0]->{'type'} 
-                  and $types_to_enter{$current->{'args'}->[0]->{'type'}}
-                  and !($current->{'extra'} 
-                        and $current->{'extra'}->{'misc_args'}))
-               or $current->{'type'} and $current->{'type'} eq 'menu_entry')) {
-    $current = $current->{'args'}->[0];
-  } elsif ($current->{'next'}) {
-    $current = $current->{'next'};
-  } else {
-    while ($current->{'parent'} and !$current->{'parent'}->{'next'}) {
-      $current = $current->{'parent'};
-    }
-    if ($current->{'parent'} and $current->{'parent'}->{'next'}) {
-      $current = $current->{'parent'}->{'next'}
-    } else {
-      $current = undef;
-    }
-  }
-  return $current;
-}
-
-# Not used for now
-# the tree is modified: 'next' pointers are added.
-sub _collect_structure($)
-{
-  my $current = shift;
-
-  while ($current) {
-    if ($current->{'contents'} and scalar(@{$current->{'contents'}})) {
-      for (my $i = 0; $i < scalar(@{$current->{'contents'}}) -1; $i++) {
-        $current->{'contents'}->[$i]->{'next'} = 
$current->{'contents'}->[$i+1];
-      }
-    }
-    if ($current->{'args'} and scalar(@{$current->{'args'}}) > 1
-        and !($current->{'extra'} 
-              and $current->{'extra'}->{'misc_args'})) {
-      for (my $i = 0; $i < scalar(@{$current->{'args'}}) -1; $i++) {
-        $current->{'args'}->[$i]->{'next'} = $current->{'args'}->[$i+1];
-      }
-    }
-    print STDERR "".Texinfo::Parser::_print_current($current);
-    $current = _next_content($current);
-  }
-}
-
 my %command_structuring_level = %Texinfo::Common::command_structuring_level;
 
 my %appendix_commands;