[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
texinfo/tp Texinfo/Convert/Plaintext.pm t/info_...
|
From: |
Patrice Dumas |
|
Subject: |
texinfo/tp Texinfo/Convert/Plaintext.pm t/info_... |
|
Date: |
Thu, 17 Feb 2011 20:38:28 +0000 |
CVSROOT: /sources/texinfo
Module name: texinfo
Changes by: Patrice Dumas <pertusus> 11/02/17 20:38:27
Modified files:
tp/Texinfo/Convert: Plaintext.pm
tp/t : info_tests.t test_utils.pl
Added files:
tp/t/results/info_tests: footnote_no_number.pl
tp/t/results/paragraph: image_in_paragraph.pl
Log message:
Even if footnotes are not numbered, number the associated anchors.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Convert/Plaintext.pm?cvsroot=texinfo&r1=1.85&r2=1.86
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/info_tests.t?cvsroot=texinfo&r1=1.9&r2=1.10
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_utils.pl?cvsroot=texinfo&r1=1.68&r2=1.69
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/info_tests/footnote_no_number.pl?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/paragraph/image_in_paragraph.pl?cvsroot=texinfo&rev=1.1
Patches:
Index: Texinfo/Convert/Plaintext.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Convert/Plaintext.pm,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -b -r1.85 -r1.86
--- Texinfo/Convert/Plaintext.pm 17 Feb 2011 20:07:34 -0000 1.85
+++ Texinfo/Convert/Plaintext.pm 17 Feb 2011 20:38:26 -0000 1.86
@@ -780,8 +780,14 @@
}) if ($element);
# this pushes on 'context', 'format_context' and 'formatters'
$self->push_top_formatter('footnote');
+ my $formatted_footnote_number;
+ if ($self->{'NUMBER_FOOTNOTES'}) {
+ $formatted_footnote_number = $footnote->{'number'};
+ } else {
+ $formatted_footnote_number = $NO_NUMBER_FOOTNOTE_SYMBOL;
+ }
my $footnote_text = ' ' x $footnote_indent
- . "($footnote->{'number'}) ";
+ . "($formatted_footnote_number) ";
$result .= $footnote_text;
$self->{'text_element_context'}->[-1]->{'counter'} +=
Texinfo::Convert::Unicode::string_width($footnote_text);
@@ -1367,18 +1373,18 @@
}
return '';
} elsif ($command eq 'footnote') {
- my $footnote_number;
- if ($self->{'NUMBER_FOOTNOTES'}) {
$self->{'footnote_index'}++ unless ($self->{'multiple_pass'});
- $footnote_number = $self->{'footnote_index'};
+ my $formatted_footnote_number;
+ if ($self->{'NUMBER_FOOTNOTES'}) {
+ $formatted_footnote_number = $self->{'footnote_index'};
} else {
- $footnote_number = $NO_NUMBER_FOOTNOTE_SYMBOL;
+ $formatted_footnote_number = $NO_NUMBER_FOOTNOTE_SYMBOL;
}
push @{$self->{'pending_footnotes'}}, {'root' => $root,
- 'number' => $footnote_number}
+ 'number' => $self->{'footnote_index'}}
unless ($self->{'multiple_pass'});
return $self->_count_added($formatter->{'container'},
- $formatter->{'container'}->add_text("($footnote_number)"));
+
$formatter->{'container'}->add_text("($formatted_footnote_number)"));
} elsif ($command eq 'anchor') {
$result = $self->_count_added($formatter->{'container'},
$formatter->{'container'}->add_pending_word());
Index: t/info_tests.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/info_tests.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- t/info_tests.t 17 Feb 2011 20:07:35 -0000 1.9
+++ t/info_tests.t 17 Feb 2011 20:38:27 -0000 1.10
@@ -35,6 +35,13 @@
@node chapter node
@chapter chapter'
],
+['footnote_no_number',
+'@node Top
+
address@hidden 1.}.
+
address@hidden 2.}.
+',{} , {'NUMBER_FOOTNOTES' => 0}],
['ref_tests',
'
@node Top
Index: t/test_utils.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_utils.pl,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -b -r1.68 -r1.69
--- t/test_utils.pl 3 Feb 2011 23:38:02 -0000 1.68
+++ t/test_utils.pl 17 Feb 2011 20:38:27 -0000 1.69
@@ -176,42 +176,51 @@
sub filter_floats_keys { [grep {!$avoided_keys_floats{$_}}
( sort keys %{$_[0]} )] }
-sub convert_to_plaintext($$$)
+sub convert_to_plaintext($$$;$)
{
my $self = shift;
my $tree = shift;
my $parser = shift;
+ my $converter_options = shift;
+ $converter_options = {} if (!defined($converter_options));
my $converter =
Texinfo::Convert::Plaintext::converter({'DEBUG' => $self->{'DEBUG'},
- 'parser' => $parser });
+ 'parser' => $parser,
+ %$converter_options });
my $result = $converter->convert($tree);
my ($errors, $error_nrs) = $converter->errors();
return ($errors, $result);
}
-sub convert_to_info($$$)
+sub convert_to_info($$$;$)
{
my $self = shift;
my $tree = shift;
my $parser = shift;
+ my $converter_options = shift;
+ $converter_options = {} if (!defined($converter_options));
my $converter =
Texinfo::Convert::Info->converter ({'DEBUG' => $self->{'DEBUG'},
'parser' => $parser,
- 'OUTFILE' => ''});
+ 'OUTFILE' => '',
+ %$converter_options });
my $result = $converter->output($tree);
die if (!defined($result));
my ($errors, $error_nrs) = $converter->errors();
return ($errors, $result);
}
-sub debugcount($$$)
+sub debugcount($$$;$)
{
my $self = shift;
my $tree = shift;
my $parser = shift;
+ my $converter_options = shift;
+ $converter_options = {} if (!defined($converter_options));
my $converter =
DebugTexinfo::DebugCount->converter({'DEBUG' => $self->{'DEBUG'},
- 'parser' => $parser });
+ 'parser' => $parser,
+ %$converter_options });
my $result = $converter->convert($tree);
my ($errors, $error_nrs) = $converter->errors();
return ($errors, $result);
@@ -223,6 +232,7 @@
my $test_case = shift;
my $parser_options = {};
+ my $converter_options = {};
my ($test_name, $test_text);
my $tests_count = 0;
@@ -231,6 +241,7 @@
die if (!defined($test_name));
$test_text = shift @$test_case;
$parser_options = shift @$test_case if (@$test_case);
+ $converter_options = shift @$test_case if (@$test_case);
my $test_file;
if ($parser_options->{'test_file'}) {
$test_file = $parser_options->{'test_file'};
@@ -285,7 +296,7 @@
foreach my $format (@tested_formats) {
if (defined($formats{$format})) {
($converted_errors{$format}, $converted{$format})
- = &{$formats{$format}}($self, $result, $parser);
+ = &{$formats{$format}}($self, $result, $parser, $converter_options);
$converted_errors{$format} = undef if (address@hidden);
#print STDERR "$format: \n$converted{$format}";
}
Index: t/results/info_tests/footnote_no_number.pl
===================================================================
RCS file: t/results/info_tests/footnote_no_number.pl
diff -N t/results/info_tests/footnote_no_number.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/results/info_tests/footnote_no_number.pl 17 Feb 2011 20:38:27 -0000
1.1
@@ -0,0 +1,252 @@
+use vars qw(%result_texis %result_texts %result_trees %result_errors
+ %result_indices %result_sectioning %result_nodes %result_menus
+ %result_floats %result_converted %result_converted_errors);
+
+$result_trees{'footnote_no_number'} = {
+ 'contents' => [
+ {
+ 'contents' => [],
+ 'parent' => {},
+ 'type' => 'text_root'
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => ' ',
+ 'type' => 'empty_spaces_after_command'
+ },
+ {
+ 'parent' => {},
+ 'text' => 'Top'
+ },
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'spaces_at_end'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'misc_line_arg'
+ }
+ ],
+ 'cmdname' => 'node',
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'empty_line'
+ },
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'Para'
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'Footnote 1.'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_context'
+ }
+ ],
+ 'cmdname' => 'footnote',
+ 'contents' => [],
+ 'line_nr' => {
+ 'file_name' => '',
+ 'line_nr' => 3,
+ 'macro' => ''
+ },
+ 'parent' => {}
+ },
+ {
+ 'parent' => {},
+ 'text' => '.
+'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ },
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'empty_line'
+ },
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'Para2'
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'Footnote 2.'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_context'
+ }
+ ],
+ 'cmdname' => 'footnote',
+ 'contents' => [],
+ 'line_nr' => {
+ 'file_name' => '',
+ 'line_nr' => 5,
+ 'macro' => ''
+ },
+ 'parent' => {}
+ },
+ {
+ 'parent' => {},
+ 'text' => '.
+'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ],
+ 'extra' => {
+ 'node_content' => [
+ {}
+ ],
+ 'nodes_manuals' => [
+ {
+ 'node_content' => [],
+ 'normalized' => 'Top'
+ }
+ ],
+ 'normalized' => 'Top'
+ },
+ 'line_nr' => {
+ 'file_name' => '',
+ 'line_nr' => 1,
+ 'macro' => ''
+ },
+ 'parent' => {}
+ }
+ ],
+ 'type' => 'document_root'
+};
+$result_trees{'footnote_no_number'}{'contents'}[0]{'parent'} =
$result_trees{'footnote_no_number'};
+$result_trees{'footnote_no_number'}{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'footnote_no_number'}{'contents'}[1]{'args'}[0];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'}
= $result_trees{'footnote_no_number'}{'contents'}[1]{'args'}[0];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'}
= $result_trees{'footnote_no_number'}{'contents'}[1]{'args'}[0];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'args'}[0]{'parent'} =
$result_trees{'footnote_no_number'}{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[0]{'parent'} =
$result_trees{'footnote_no_number'}{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1]{'contents'}[0]{'parent'}
= $result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[0];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1]{'contents'}[1]{'args'}[0];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1]{'contents'}[1]{'args'}[0]{'parent'}
=
$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1]{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1]{'contents'}[1]{'parent'}
= $result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1]{'contents'}[2]{'parent'}
= $result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[1]{'parent'} =
$result_trees{'footnote_no_number'}{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[2]{'parent'} =
$result_trees{'footnote_no_number'}{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3]{'contents'}[0]{'parent'}
= $result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3]{'contents'}[1]{'args'}[0]{'contents'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3]{'contents'}[1]{'args'}[0]{'contents'}[0];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3]{'contents'}[1]{'args'}[0];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3]{'contents'}[1]{'args'}[0]{'parent'}
=
$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3]{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3]{'contents'}[1]{'parent'}
= $result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3]{'contents'}[2]{'parent'}
= $result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'contents'}[3]{'parent'} =
$result_trees{'footnote_no_number'}{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'extra'}{'node_content'}[0]
= $result_trees{'footnote_no_number'}{'contents'}[1]{'args'}[0]{'contents'}[1];
+$result_trees{'footnote_no_number'}{'contents'}[1]{'extra'}{'nodes_manuals'}[0]{'node_content'}
= $result_trees{'footnote_no_number'}{'contents'}[1]{'extra'}{'node_content'};
+$result_trees{'footnote_no_number'}{'contents'}[1]{'parent'} =
$result_trees{'footnote_no_number'};
+
+$result_texis{'footnote_no_number'} = '@node Top
+
address@hidden 1.}.
+
address@hidden 2.}.
+';
+
+
+$result_texts{'footnote_no_number'} = '
+Para.
+
+Para2.
+';
+
+$result_sectioning{'footnote_no_number'} = {};
+
+$result_nodes{'footnote_no_number'} = {
+ 'cmdname' => 'node',
+ 'extra' => {
+ 'normalized' => 'Top'
+ },
+ 'node_up' => {
+ 'extra' => {
+ 'manual_content' => [
+ {
+ 'text' => 'dir'
+ }
+ ]
+ }
+ }
+};
+
+$result_menus{'footnote_no_number'} = {
+ 'cmdname' => 'node',
+ 'extra' => {
+ 'normalized' => 'Top'
+ }
+};
+
+$result_errors{'footnote_no_number'} = [];
+
+
+
+$result_converted{'info'}->{'footnote_no_number'} = 'This is , produced by
makeinfo version 4.13 from .
+
+
+File: , Node: Top, Up: (dir)
+
+Para(*).
+
+ Para2(*).
+
+ ---------- Footnotes ----------
+
+ (*) Footnote 1.
+
+ (*) Footnote 2.
+
+
+
+Tag Table:
+Node: Top52
+Ref: Top-Footnote-1146
+Ref: Top-Footnote-2166
+
+End Tag Table
+';
+
+1;
Index: t/results/paragraph/image_in_paragraph.pl
===================================================================
RCS file: t/results/paragraph/image_in_paragraph.pl
diff -N t/results/paragraph/image_in_paragraph.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/results/paragraph/image_in_paragraph.pl 17 Feb 2011 20:38:27 -0000
1.1
@@ -0,0 +1,140 @@
+use vars qw(%result_texis %result_texts %result_trees %result_errors
+ %result_indices %result_sectioning %result_nodes %result_menus
+ %result_floats %result_converted %result_converted_errors);
+
+$result_trees{'image_in_paragraph'} = {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'Para. '
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'aa'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ },
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'bb'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ },
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'cc'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ },
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'dd'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ },
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'ee'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'image',
+ 'contents' => [],
+ 'extra' => {
+ 'brace_command_contents' => [
+ [
+ {}
+ ],
+ [
+ {}
+ ],
+ [
+ {}
+ ],
+ [
+ {}
+ ],
+ [
+ {}
+ ]
+ ]
+ },
+ 'line_nr' => {
+ 'file_name' => '',
+ 'line_nr' => 1,
+ 'macro' => ''
+ },
+ 'parent' => {}
+ },
+ {
+ 'parent' => {},
+ 'text' => '. After image.
+'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ],
+ 'type' => 'text_root'
+};
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[0]{'parent'} =
$result_trees{'image_in_paragraph'}{'contents'}[0];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'parent'}
= $result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[1]{'contents'}[0]{'parent'}
= $result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[1];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[1]{'parent'}
= $result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[2]{'contents'}[0]{'parent'}
= $result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[2];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[2]{'parent'}
= $result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[3]{'contents'}[0]{'parent'}
= $result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[3];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[3]{'parent'}
= $result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[4]{'contents'}[0]{'parent'}
= $result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[4];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[4]{'parent'}
= $result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'extra'}{'brace_command_contents'}[0][0]
=
$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'extra'}{'brace_command_contents'}[1][0]
=
$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[1]{'contents'}[0];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'extra'}{'brace_command_contents'}[2][0]
=
$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[2]{'contents'}[0];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'extra'}{'brace_command_contents'}[3][0]
=
$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[3]{'contents'}[0];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'extra'}{'brace_command_contents'}[4][0]
=
$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'args'}[4]{'contents'}[0];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[1]{'parent'} =
$result_trees{'image_in_paragraph'}{'contents'}[0];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'contents'}[2]{'parent'} =
$result_trees{'image_in_paragraph'}{'contents'}[0];
+$result_trees{'image_in_paragraph'}{'contents'}[0]{'parent'} =
$result_trees{'image_in_paragraph'};
+
+$result_texis{'image_in_paragraph'} = 'Para. @image{aa,bb,cc,dd,ee}. After
image.
+';
+
+
+$result_texts{'image_in_paragraph'} = 'Para. aa. After image.
+';
+
+$result_errors{'image_in_paragraph'} = [];
+
+
+
+$result_converted{'plaintext'}->{'image_in_paragraph'} = 'Para. [Text for
image out of paragraph.]. After image.
+';
+
+1;