[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: * tp/ext/*.pm, tp/init/*.pm: check that there is
From: |
Patrice Dumas |
Subject: |
branch master updated: * tp/ext/*.pm, tp/init/*.pm: check that there is no incorrect autovivification, initialize explicitly. |
Date: |
Sun, 09 Oct 2022 06:05:46 -0400 |
This is an automated email from the git hooks/post-receive script.
pertusus pushed a commit to branch master
in repository texinfo.
The following commit(s) were added to refs/heads/master by this push:
new a3f6008521 * tp/ext/*.pm, tp/init/*.pm: check that there is no
incorrect autovivification, initialize explicitly.
a3f6008521 is described below
commit a3f6008521d537571fd282f8dcb4337b15784378
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Oct 9 12:05:28 2022 +0200
* tp/ext/*.pm, tp/init/*.pm: check that there is no incorrect
autovivification, initialize explicitly.
* tp/init/highlight_syntax.pm: update to match with changes in
default example formatting.
* tp/Texinfo/Convert/HTML.pm, tp/init/highlight_syntax.pm:
reindent.
Correct spelling of explicitly in different files.
---
ChangeLog | 21 ++++--
doc/tp_api/Makefile.am | 2 +-
tp/Texinfo/Convert/HTML.pm | 5 +-
tp/Texinfo/ParserNonXS.pm | 2 +-
tp/ext/epub3.pm | 3 +
tp/ext/latex2html.pm | 3 +
tp/ext/tex4ht.pm | 27 +++++--
tp/init/book.pm | 6 +-
tp/init/chm.pm | 3 +
tp/init/documentation_examples.pm | 3 +
tp/init/highlight_syntax.pm | 83 +++++++++++++++-------
tp/init/html32.pm | 3 +
.../highlight_syntax_example/chapter.html | 6 +-
.../highlight_syntax_example_latin9/chapter.html | 6 +-
14 files changed, 124 insertions(+), 49 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 718341dacd..093bbea1a6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2022-10-09 Patrice Dumas <pertusus@free.fr>
+
+ * tp/ext/*.pm, tp/init/*.pm: check that there is no incorrect
+ autovivification, initialize explicitly.
+
+ * tp/init/highlight_syntax.pm: update to match with changes in
+ default example formatting.
+
+ * tp/Texinfo/Convert/HTML.pm, tp/init/highlight_syntax.pm:
+ reindent.
+
+ Correct spelling of explicitly in different files.
+
2022-10-08 Patrice Dumas <pertusus@free.fr>
* util/htmlxref.cnf: corrections reported by Tzvetelin Katchov.
@@ -1477,7 +1490,7 @@
* tp/Texinfo/ParserNonXS.pm (_parse_texi),
tp/Texinfo/XS/parsetexi/parser.c (process_remaining_on_line):
- do not add explicitely an end command after a macro, verbatim or
+ do not add explicitly an end command after a macro, verbatim or
ignore @end, but let it be done by the code handling all the @end
commands.
@@ -2521,7 +2534,7 @@
tp/Texinfo/Convert/TexinfoXML.pm, tp/Texinfo/Convert/Unicode.pm
(%unicode_accented_letters, %transliterate_map, unicode_accent):
add dotless command to the unicode accents map, and handle
- explicitely when needed. Handle @dotless j similarly with i.
+ explicitly when needed. Handle @dotless j similarly with i.
2022-08-17 Patrice Dumas <pertusus@free.fr>
@@ -6151,7 +6164,7 @@
* tp/texi2any.pl: decode more input from command line that are
combined with messages or strings from document.
- Import Encode symbols explicitely.
+ Import Encode symbols explicitly.
2022-02-22 Gavin Smith <gavinsmith0123@gmail.com>
@@ -10366,7 +10379,7 @@
* tp/Texinfo/Convert/Converter.pm, tp/Texinfo/Convert/HTML.pm,
tp/Texinfo/Convert/Unicode.pm, tp/Texinfo/Structuring.pm,
tp/Texinfo/XS/parsetexi/Parsetexi.pm, tp/init/chm.pm: load
- needed used modules explicitely.
+ needed used modules explicitly.
* tp/Texinfo/Convert/Text.pm: do not inherit
Texinfo::Convert::Converter.
diff --git a/doc/tp_api/Makefile.am b/doc/tp_api/Makefile.am
index d2b1059790..a77347738b 100644
--- a/doc/tp_api/Makefile.am
+++ b/doc/tp_api/Makefile.am
@@ -35,7 +35,7 @@ info_TEXINFOS = tp_api.texi
TEXINFO_TEX = ../texinfo.tex
# dependencies are in api_includes/ directory but we do not want to list
-# them explicitely
+# them explicitly
tp_api_TEXINFOS = tp_api_indices.texi
#dist_tp_api_TEXINFOS =
EXTRA_DIST = api_includes
diff --git a/tp/Texinfo/Convert/HTML.pm b/tp/Texinfo/Convert/HTML.pm
index f54ee66ecd..9b1a879ca2 100644
--- a/tp/Texinfo/Convert/HTML.pm
+++ b/tp/Texinfo/Convert/HTML.pm
@@ -4078,7 +4078,8 @@ sub _convert_verbatiminclude_command($$$$)
my $verbatim_include_verbatim
= Texinfo::Convert::Utils::expand_verbatiminclude($self, $self, $command);
if (defined($verbatim_include_verbatim)) {
- return $self->convert_tree($verbatim_include_verbatim, 'convert
verbatiminclude');
+ return $self->convert_tree($verbatim_include_verbatim,
+ 'convert verbatiminclude');
} else {
return '';
}
@@ -6753,7 +6754,7 @@ sub _load_htmlxref_files {
unshift @htmlxref_dirs, '.';
my @texinfo_htmlxref_files;
- # no htmlxref for tests, unless explicitely specified
+ # no htmlxref for tests, unless explicitly specified
if ($self->get_conf('TEST')) {
if (defined($self->get_conf('HTMLXREF_FILE'))) {
$htmlxref_file_name = $self->get_conf('HTMLXREF_FILE');
diff --git a/tp/Texinfo/ParserNonXS.pm b/tp/Texinfo/ParserNonXS.pm
index 89a7e9f097..3187c0577c 100644
--- a/tp/Texinfo/ParserNonXS.pm
+++ b/tp/Texinfo/ParserNonXS.pm
@@ -4678,7 +4678,7 @@ sub _process_remaining_on_line($$$$)
$current = _begin_preformatted($self, $current);
# @*table
} elsif ($parent = _item_line_parent($current)) {
- # @item and _item_line_parent is explicitely avoided in the if
above
+ # @item and _item_line_parent is explicitly avoided in the if above
$self->_line_error(sprintf(__(
"\@%s not meaningful inside `\@%s' block"),
$command, $parent->{'cmdname'}), $source_info);
diff --git a/tp/ext/epub3.pm b/tp/ext/epub3.pm
index 6c8acb1f57..63b34d115b 100644
--- a/tp/ext/epub3.pm
+++ b/tp/ext/epub3.pm
@@ -80,6 +80,9 @@ use strict;
# for accented character in a comment
use utf8;
+# To check if there is no erroneous autovivification
+#no autovivification qw(fetch delete exists store strict);
+
use File::Path;
use File::Spec;
use File::Copy;
diff --git a/tp/ext/latex2html.pm b/tp/ext/latex2html.pm
index b243857968..bbea3bd4fc 100644
--- a/tp/ext/latex2html.pm
+++ b/tp/ext/latex2html.pm
@@ -27,6 +27,9 @@
require 5.0;
use strict;
+# To check if there is no erroneous autovivification
+#no autovivification qw(fetch delete exists store strict);
+
use Cwd;
use File::Copy;
use File::Spec;
diff --git a/tp/ext/tex4ht.pm b/tp/ext/tex4ht.pm
index b69f44f91c..0d82e466b3 100644
--- a/tp/ext/tex4ht.pm
+++ b/tp/ext/tex4ht.pm
@@ -32,6 +32,9 @@
use strict;
+# To check if there is no erroneous autovivification
+#no autovivification qw(fetch delete exists store strict);
+
use Cwd;
use Encode qw(encode);
@@ -114,12 +117,21 @@ sub tex4ht_prepare($$)
my $document_name = $self->get_info('document_name');
my $tex4ht_basename = "${document_name}_tex4ht";
- $commands{'math'}->{'style'} = $Texinfo::TeX4HT::STYLE_MATH;
- $commands{'tex'}->{'style'} = $Texinfo::TeX4HT::STYLE_TEX;
- $commands{'displaymath'}->{'style'} = $Texinfo::TeX4HT::STYLE_TEX;
- $formats{'tex'}->{'exec'} = $Texinfo::TeX4HT::tex4ht_command_tex;
- $formats{'latex'}->{'exec'} = $Texinfo::TeX4HT::tex4ht_command_latex;
- $formats{'texi'}->{'exec'} = $Texinfo::TeX4HT::tex4ht_command_texi;
+ $commands{'math'} = {'style' => $Texinfo::TeX4HT::STYLE_MATH,
+ 'results' => {}};
+ $commands{'tex'} = {'style' => $Texinfo::TeX4HT::STYLE_TEX,
+ 'results' => {}};
+ $commands{'displaymath'} = {'style' => $Texinfo::TeX4HT::STYLE_TEX,
+ 'results' => {}};
+ $formats{'tex'} = {'exec' => $Texinfo::TeX4HT::tex4ht_command_tex,
+ 'commands' => [],
+ 'results' => {}};
+ $formats{'latex'} = {'exec' => $Texinfo::TeX4HT::tex4ht_command_latex,
+ 'commands' => [],
+ 'results' => {}};
+ $formats{'texi'} = {'exec' => $Texinfo::TeX4HT::tex4ht_command_texi,
+ 'commands' => [],
+ 'results' => {}};
my @replaced_commands = sort(keys(%commands));
my $collected_commands = Texinfo::Common::collect_commands_list_in_tree(
$document_root, \@replaced_commands);
@@ -368,7 +380,8 @@ sub tex4ht_process_format($$) {
if ($line =~ /!-- tex4ht_end $formats{$format}->{'basename'} $cmdname
$count --/) {
$got_count++;
chomp($text) if ($cmdname eq 'math');
-
$commands{$cmdname}->{'results'}->{$formats{$format}->{'commands'}->[$count-1]}
= $text;
+ $commands{$cmdname}->{'results'}->{
+ $formats{$format}->{'commands'}->[$count-1]} =
$text;
$end_found = 1;
last;
} else {
diff --git a/tp/init/book.pm b/tp/init/book.pm
index 58fdbeecfd..d2124611b8 100644
--- a/tp/init/book.pm
+++ b/tp/init/book.pm
@@ -21,6 +21,9 @@
use strict;
+# To check if there is no erroneous autovivification
+#no autovivification qw(fetch delete exists store strict);
+
use Texinfo::Commands;
use Texinfo::Common;
use Texinfo::Convert::Texinfo;
@@ -411,7 +414,8 @@ sub book_element_file_name($$$)
if ($element->{'extra'}->{'unit_command'}) {
if ($element->{'extra'}->{'unit_command'}->{'cmdname'} ne 'node') {
$command = $element->{'extra'}->{'unit_command'};
- } elsif
($element->{'extra'}->{'unit_command'}->{'extra'}->{'associated_section'}) {
+ } elsif ($element->{'extra'}->{'unit_command'}->{'extra'}
+ and
$element->{'extra'}->{'unit_command'}->{'extra'}->{'associated_section'}) {
$command =
$element->{'extra'}->{'unit_command'}->{'extra'}->{'associated_section'};
}
}
diff --git a/tp/init/chm.pm b/tp/init/chm.pm
index 5c9d37bed0..63c29d47bb 100644
--- a/tp/init/chm.pm
+++ b/tp/init/chm.pm
@@ -31,6 +31,9 @@ package Texinfo::Config;
use strict;
+# To check if there is no erroneous autovivification
+#no autovivification qw(fetch delete exists store strict);
+
use File::Spec;
# Also for __(
diff --git a/tp/init/documentation_examples.pm
b/tp/init/documentation_examples.pm
index a0f3f212b5..4b5a6cf15a 100644
--- a/tp/init/documentation_examples.pm
+++ b/tp/init/documentation_examples.pm
@@ -5,6 +5,9 @@
use strict;
+# To check if there is no erroneous autovivification
+#no autovivification qw(fetch delete exists store strict);
+
my $default_footnotestyle = texinfo_get_conf('footnotestyle');
my $main_program_footnotestyle;
if (not defined($default_footnotestyle)) {
diff --git a/tp/init/highlight_syntax.pm b/tp/init/highlight_syntax.pm
index c8574ea643..879d50b78c 100644
--- a/tp/init/highlight_syntax.pm
+++ b/tp/init/highlight_syntax.pm
@@ -18,6 +18,9 @@
require 5.0;
use strict;
+# To check if there is no erroneous autovivification
+#no autovivification qw(fetch delete exists store strict);
+
use File::Spec;
use Texinfo::Commands;
@@ -72,15 +75,16 @@ if (defined($highlighted_languages_list)) {
texinfo_register_command_formatting('example',
\&highlight_preformatted_command);
# normally this is done in preformatted type, but preformatted
- # types in example are ignored in highlight_preformatted_command,
- # so register a replacement.
- # register inline pending content when opening an example block
- texinfo_register_command_opening('example',
\&highlight_open_inline_container_type);
+ # types conversion output in example is discarded in
+ # highlight_preformatted_command, so register a replacement.
+ # Register inline pending content when opening an example block.
+ texinfo_register_command_opening('example',
+ \&highlight_open_inline_container_type);
} else {
# important if $cmd returns no output to have a message. If there
# is some output, there will already be some line parse error messages.
texinfo_register_init_loading_warning(sprintf(__(
- '%s: no highlighted language found'), $cmd));
+ '%s: no highlighted language found'), $cmd));
}
}
@@ -127,7 +131,8 @@ sub _get_language($$$)
}
# the end of the string was randomly generated once for all.
-my $range_separator = '_______________________________________ highlight
texinfo _GT Haib0aik zei4YieH';
+my $range_separator
+ = '_______________________________________ highlight texinfo _GT Haib0aik
zei4YieH';
my %commands;
@@ -161,12 +166,24 @@ sub highlight_process($$)
foreach my $element (@{$collected_commands->{$cmdname}}) {
my $language = _get_language($self, $cmdname, $element);
if (defined($language)) {
- $languages{$language} = {'counter' => 0}
- if (not exists($languages{$language}));
+ $languages{$language} = {'counter' => 0, 'commands' => [],
+ 'line_ranges' => []}
+ if (not exists($languages{$language}));
$languages{$language}->{'counter'}++;
my $counter = $languages{$language}->{'counter'};
- $languages{$language}->{'commands'}->[$counter-1] = [$element,
$cmdname];
- $commands{$cmdname}->{'input_languages_counters'}->{$language}++;
+ $languages{$language}->{'commands'}->[$counter-1]
+ = [$element, $cmdname];
+ $commands{$cmdname} = {'input_languages_counters' => {},
+ 'results' => {},
+ 'retrieved_languages_counters' => {},
+ 'output_languages_counters' => {}}
+ if (not exists($commands{$cmdname}));
+ if (not exists($commands{$cmdname}
+ ->{'input_languages_counters'}->{$language})) {
+ $commands{$cmdname}->{'input_languages_counters'}->{$language} = 0;
+ $commands{$cmdname}->{'retrieved_languages_counters'}->{$language}
= 0;
+ $commands{$cmdname}->{'output_languages_counters'}->{$language} =
0;
+ }
}
}
}
@@ -230,7 +247,9 @@ sub highlight_process($$)
print HIGHLIGHT_LANG_IN "_______________________ $counter\n";
print HIGHLIGHT_LANG_IN $text;
print HIGHLIGHT_LANG_IN "_______________________ $counter\n";
- $languages{$language}->{'line_ranges'}->[$counter] =
[$highlight_lang_in_line_nr+1 +1, $highlight_lang_in_line_nr +
$text_lines_nr+1];
+ $languages{$language}->{'line_ranges'}->[$counter]
+ = [$highlight_lang_in_line_nr+1 +1,
+ $highlight_lang_in_line_nr + $text_lines_nr+1];
$highlight_lang_in_line_nr += 2 + $text_lines_nr;
$counter ++;
}
@@ -244,7 +263,10 @@ sub highlight_process($$)
push @option_line_ranges, '"'.$line_range->[0].'-'.$line_range->[1].'"';
}
my $option_line_range_str = join(',', @option_line_ranges);
- my $cmd = "source-highlight ${version_option}--src-lang=$language
--out-format=html5 -i '$input_language_path_name' -o '$html_result_path_name'
--line-range=$option_line_range_str --range-separator='$range_separator'";
+ my $cmd = "source-highlight ${version_option}"
+ ."--src-lang=$language --out-format=html5 "
+ ."-i '$input_language_path_name' -o '$html_result_path_name' "
+ ."--line-range=$option_line_range_str --range-separator='$range_separator'";
my $encoding = $self->get_conf('MESSAGE_ENCODING');
my $encoded_cmd;
@@ -282,7 +304,8 @@ sub highlight_process($$)
$separators_count++;
if (defined($text)) {
$got_count++;
- my $element_command =
$languages{$language}->{'commands'}->[$got_count-1];
+ my $element_command
+ = $languages{$language}->{'commands'}->[$got_count-1];
my $element = $element_command->[0];
my $cmdname = $element_command->[1];
$commands{$cmdname}->{'results'}->{$element} = $text;
@@ -302,7 +325,7 @@ sub highlight_process($$)
if ($separators_count != $language_fragments_nr +1) {
$self->document_warn($self, sprintf(__(
"highlight_syntax.pm: %s: %d separators; expected %d, the number of
fragments +1"),
- $language, $separators_count,
$language_fragments_nr+1));
+ $language, $separators_count, $language_fragments_nr+1));
}
if (defined($text) and $text ne '') {
my $element_command =
$languages{$language}->{'commands'}->[$got_count-1];
@@ -335,7 +358,8 @@ sub highlight_open_inline_container_type($$$)
my $pending_formatted = $self->get_pending_formatted_inline_content();
if (defined($pending_formatted)) {
- $self->associate_pending_formatted_inline_content($command,
$pending_formatted);
+ $self->associate_pending_formatted_inline_content($command,
+ $pending_formatted);
}
return '';
}
@@ -359,7 +383,7 @@ sub highlight_preformatted_command($$$$$)
if (not defined($language)) {
$self->document_warn($self, sprintf(__(
- "highlight_syntax.pm: output has HTML item for \@%s but no language
%s"),
+ "highlight_syntax.pm: output has HTML item for \@%s but no language
%s"),
$cmdname, $command));
} else {
$commands{$cmdname}->{'output_languages_counters'}->{$language}++;
@@ -370,12 +394,14 @@ sub highlight_preformatted_command($$$$$)
# need to do all the formatting done for content inside
# of @example as it is discarded. So need to do the preformatted
- # type formatting, from _convert_preformatted_type() and
_preformatted_class()
- # since we are formatting @example itself, it is not in the
preformatted
+ # type formatting, from _convert_preformatted_type() and
+ # _preformatted_class().
+ # Since we are formatting @example itself, it is not in the
preformatted
# context anymore, so we readd.
my @pre_classes = $self->preformatted_classes_stack();
- # NOTE $pre_class_format is setup to match as
$pre_class_commands{$cmdname}
- # which is private
+ # NOTE $pre_class_format is setup below to correspond to
+ # $pre_class_commands{$cmdname}, which cannot be used directly,
+ # as it is private.
my $pre_class_format = $cmdname;
my $main_cmdname = $cmdname;
if
(defined($Texinfo::Common::small_block_associated_command{$cmdname})) {
@@ -390,13 +416,14 @@ sub highlight_preformatted_command($$$$$)
# FIXME maybe add or $pre_class eq 'menu' to override
# 'menu' with 'menu-comment'?
$pre_class = $class unless ($pre_class
- and
$Texinfo::Commands::preformatted_code_commands{$pre_class}
- and
!($Texinfo::Commands::preformatted_code_commands{$class}
+ and $Texinfo::Commands::preformatted_code_commands{$pre_class}
+ and !($Texinfo::Commands::preformatted_code_commands{$class}
or $class eq 'menu'));
}
$pre_class = $pre_class.'-preformatted';
- # FIXME not clear on that. What to do with @example arguments?
+ # Add classes as done in the default conversion function.
+ # TODO is it correct? What should be done with @example arguments?
my @classes;
if ($cmdname eq 'example') {
if ($command->{'args'}) {
@@ -407,7 +434,7 @@ sub highlight_preformatted_command($$$$$)
=
Texinfo::Convert::NodeNameNormalization::convert_to_normalized(
$example_arg);
if ($converted_arg ne '') {
- push @classes, $converted_arg;
+ push @classes, 'user-' . $converted_arg;
}
}
}
@@ -418,7 +445,8 @@ sub highlight_preformatted_command($$$$$)
unshift @classes, $main_cmdname;
my $result_content = $commands{$cmdname}->{'results'}->{$command};
- # do it here, it is not done in preformatted. It was correctly
registered
+ # do it here, what was done in preformatted is discarded.
+ # It should have been correctly registered
# through highlight_open_inline_container_type.
$result_content =
$self->get_associated_formatted_inline_content($command)
. $result_content;
@@ -436,8 +464,9 @@ sub highlight_preformatted_command($$$$$)
= $commands{$cmdname}->{'input_languages_counters'}->{$language};
my $cmd_language_retrieved_count
= $commands{$cmdname}->{'retrieved_languages_counters'}->{$language};
- # message if the counters are equal, meaning language processed without
failure.
- # If they are not equal there should have been a message already
+ # Output an message only if the counters are equal, meaning language
+ # was processed without failure.
+ # If they are not equal there should have been a message already.
if ($cmd_language_input_count == $cmd_language_retrieved_count) {
$self->document_warn($self, sprintf(__(
"highlight_syntax.pm: output has no HTML item for \@%s %s %s"),
diff --git a/tp/init/html32.pm b/tp/init/html32.pm
index c45cc98cc8..48ce142dcd 100644
--- a/tp/init/html32.pm
+++ b/tp/init/html32.pm
@@ -33,6 +33,9 @@
use strict;
+# To check if there is no erroneous autovivification
+#no autovivification qw(fetch delete exists store strict);
+
use Texinfo::Common;
use Texinfo::Convert::Converter qw(xml_protect_text);
diff --git
a/tp/tests/other/res_parser_html/highlight_syntax_example/chapter.html
b/tp/tests/other/res_parser_html/highlight_syntax_example/chapter.html
index fb0818f28a..cd07c6a718 100644
--- a/tp/tests/other/res_parser_html/highlight_syntax_example/chapter.html
+++ b/tp/tests/other/res_parser_html/highlight_syntax_example/chapter.html
@@ -34,13 +34,13 @@ Previous: <a href="index.html" accesskey="p"
rel="prev">top</a>, Up: <a href="in
<h2 class="chapter" id="chap">1 châp</h2>
<p>Texinfo
-</p><div class="example texinfo">
+</p><div class="example user-texinfo">
<pre class="example-preformatted">texinfo
<i><span style="color:#9A1900">@code{protécted}</span></i>
</pre></div>
<p>C++
-</p><div class="example C++">
+</p><div class="example user-C++">
<pre class="example-preformatted"><i><span style="color:#9A1900">// Your First
C++ Program</span></i>
<b><span style="color:#000080">#include</span></b> <span
style="color:#FF0000"><iostream></span>
@@ -52,7 +52,7 @@ Previous: <a href="index.html" accesskey="p"
rel="prev">top</a>, Up: <a href="in
</pre></div>
<p>perl
-</p><div class="example perl">
+</p><div class="example user-perl">
<pre class="example-preformatted"><b><span style="color:#0000FF">my</span></b>
<span style="color:#009900">$list</span> <span style="color:#990000">=</span>
<span style="color:#990000">[</span><span
style="color:#FF0000">'ça'</span><span style="color:#990000">,</span> <span
style="color:#FF0000">'bôù'</span><span style="color:#990000">,</span> <span
style="color:#FF0000">'é'</span><span style="color:#990000">,</span> <span
style="color:#FF0000">'é ą € ≡'</span><span style="color:#990000" [...]
<b><span style="color:#0000FF">sub</span></b> <b><span
style="color:#0000FF">do</span></b> <span style="color:#990000">(</span>$<span
style="color:#990000">)</span> <span style="color:#FF0000">{</span>
<b><span style="color:#0000FF">my</span></b> <span
style="color:#009900">$arg</span> <span style="color:#990000">=</span> <b><span
style="color:#0000FF">shift</span></b><span style="color:#990000">;</span>
diff --git
a/tp/tests/other/res_parser_html/highlight_syntax_example_latin9/chapter.html
b/tp/tests/other/res_parser_html/highlight_syntax_example_latin9/chapter.html
index 07774bc34a..9e9f5796cc 100644
---
a/tp/tests/other/res_parser_html/highlight_syntax_example_latin9/chapter.html
+++
b/tp/tests/other/res_parser_html/highlight_syntax_example_latin9/chapter.html
@@ -34,13 +34,13 @@ Previous: <a href="index.html" accesskey="p"
rel="prev">top</a>, Up: <a href="in
<h2 class="chapter" id="chap">1 ch�p</h2>
<p>Texinfo
-</p><div class="example texinfo">
+</p><div class="example user-texinfo">
<pre class="example-preformatted">texinfo
<i><span style="color:#9A1900">@code{prot�cted}</span></i>
</pre></div>
<p>C++
-</p><div class="example C++">
+</p><div class="example user-C++">
<pre class="example-preformatted"><i><span style="color:#9A1900">// Your First
C++ Program</span></i>
<b><span style="color:#000080">#include</span></b> <span
style="color:#FF0000"><iostream></span>
@@ -52,7 +52,7 @@ Previous: <a href="index.html" accesskey="p"
rel="prev">top</a>, Up: <a href="in
</pre></div>
<p>perl
-</p><div class="example perl">
+</p><div class="example user-perl">
<pre class="example-preformatted"><b><span style="color:#0000FF">my</span></b>
<span style="color:#009900">$list</span> <span style="color:#990000">=</span>
<span style="color:#990000">[</span><span
style="color:#FF0000">'�a'</span><span style="color:#990000">,</span> <span
style="color:#FF0000">'b��'</span><span style="color:#990000">,</span> <span
style="color:#FF0000">'�'</span><span style="color:#990000">,</span> <span
style="color:#FF0000">'� a; � =='</span><span style="color:#99000 [...]
<b><span style="color:#0000FF">sub</span></b> <b><span
style="color:#0000FF">do</span></b> <span style="color:#990000">(</span>$<span
style="color:#990000">)</span> <span style="color:#FF0000">{</span>
<b><span style="color:#0000FF">my</span></b> <span
style="color:#009900">$arg</span> <span style="color:#990000">=</span> <b><span
style="color:#0000FF">shift</span></b><span style="color:#990000">;</span>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: * tp/ext/*.pm, tp/init/*.pm: check that there is no incorrect autovivification, initialize explicitly.,
Patrice Dumas <=
- Prev by Date:
branch master updated: * util/htmlxref.cnf: corrections reported by Tzvetelin Katchov. Replace dmd by shepherd, remove pages not found, update some urls.
- Next by Date:
branch master updated: * tp/Texinfo/Convert/Converter.pm (initialize_tree_units_files) (set_tree_unit_file, _set_tree_units_files, table_item_content_tree), tp/Texinfo/Convert/HTML.pm (_html_set_pages_files, output): add a function, initialize_tree_units_files to initialize hashes used in set_tree_unit_file and 'file_counters'. Add a file path argument to set_tree_unit_file and use the function to set file path when non split too. Initialize structures more explicitly.
- Previous by thread:
branch master updated: * util/htmlxref.cnf: corrections reported by Tzvetelin Katchov. Replace dmd by shepherd, remove pages not found, update some urls.
- Next by thread:
branch master updated: * tp/Texinfo/Convert/Converter.pm (initialize_tree_units_files) (set_tree_unit_file, _set_tree_units_files, table_item_content_tree), tp/Texinfo/Convert/HTML.pm (_html_set_pages_files, output): add a function, initialize_tree_units_files to initialize hashes used in set_tree_unit_file and 'file_counters'. Add a file path argument to set_tree_unit_file and use the function to set file path when non split too. Initialize structures more explicitly.
- Index(es):