[6811] parsetexi add parse_texi_text

[Gavin D. Smith]

Revision: 6811
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=6811
Author:   gavin
Date:     2015-11-29 15:21:54 +0000 (Sun, 29 Nov 2015)
Log Message:
-----------
parsetexi add parse_texi_text

Modified Paths:
--------------
    trunk/parsetexi/Parsetexi/lib/Parsetexi.pm

Modified: trunk/parsetexi/Parsetexi/lib/Parsetexi.pm
===================================================================
--- trunk/parsetexi/Parsetexi/lib/Parsetexi.pm  2015-11-29 00:18:35 UTC (rev 
6810)
+++ trunk/parsetexi/Parsetexi/lib/Parsetexi.pm  2015-11-29 15:21:54 UTC (rev 
6811)
@@ -356,6 +356,27 @@
   return $TREE;
 }
 
+# Replacement for Texinfo::Parser::parse_texi_text (line 757)
+#
+# Used in tests under tp/t.
+sub parse_texi_text($$;$$$$)
+{
+    my $self = shift;
+    my $text = shift;
+    my $lines_nr = shift;
+    my $file = shift;
+    my $macro = shift;
+    my $fixed_line_number = shift;
+
+    return undef if (!defined($text));
+
+    $self = parser() if (!defined($self));
+    parse_string($text);
+    my $tree = build_texinfo_tree ();
+    _add_parents ($tree);
+    return $tree;
+}
+
 # Replacement for Texinfo::Parser::parse_texi_line (line 918)
 sub parse_texi_line($$;$$$$)
 {