[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[6811] parsetexi add parse_texi_text
From: |
Gavin D. Smith |
Subject: |
[6811] parsetexi add parse_texi_text |
Date: |
Sun, 29 Nov 2015 15:21:54 +0000 |
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($$;$$$$)
{
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [6811] parsetexi add parse_texi_text,
Gavin D. Smith <=