### non-standard chars replaced by _xxxx (ascii char code) and forced to
### start with a letter by prepending t_g if necessary)
+package main;
+$original_normalise_node = \&normalise_node;
+
+sub t2h_default_normalise_node($)
+{
+ my $text = shift;
+ $original_normalise_node->($text);
+}
+
+*normalise_node = sub($)
+{
+ my $text = shift;
+ return &$Texi2HTML::Config::normalise_node($text);
+};
package Texi2HTML::Config;
+##$normalise_node = \&t2h_default_normalise_node;
+$normalise_node = \&lilypond_normalise_node;
+
use utf8;
use Encode qw(decode);
$LY_LANGUAGES->{'es'} = {
'Back to Documentation Index' => 'Volver al índice de la documentación',
- '<p>Thanks to ${webdev_link} for hosting ${lily_site}.' => '',
+ '<p>Thanks to ${webdev_link} for hosting ${lily_site}.' => '<p>Agradecemos a ${webdev_link} el alojamiento de ${lily_site}.',
};
$LY_LANGUAGES->{'de'} = {
$LY_LANGUAGES->{'hu'} = {
'Back to Documentation Index' => 'Vissza a dokumentációk jegyzékéhez',
- '<p>Thanks to ${webdev_link} for hosting ${lily_site}.' => '',
+ '<p>Thanks to ${webdev_link} for hosting ${lily_site}.' => 'Köszönet a ${webdev_link} részére a ${lily_site} tárhelyért.',
};
$LY_LANGUAGES->{'it'} = {
'<p>Thanks to ${webdev_link} for hosting ${lily_site}.' => '',
};
+$LY_LANGUAGES->{'nl'} = {
+ 'Back to Documentation Index' => 'Terug naar de Documentatieindex',
+ '<p>Met dank aan ${webdev_link} voor het hosten van ${lily_site}.' => '',
+};
+
# FIXME: request the translations below then send them to texi2html/texinfo devs
$LANGUAGES->{'it'} = {
' The buttons in the navigation panels have the following meaning:' => ' I bottoni nei pannelli di navigazione hanno il seguente significato:',
'{title_ref}' => '{title_ref}'
};
+$LANGUAGES->{'ja'} = {
+ ' The buttons in the navigation panels have the following meaning:' => ' ナビゲーション パネルの中にあるボタンには以下のような意味があります:',
+ ' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' この表で、@strong{ 行き先 } は、現在の位置が以下のような構造を持つドキュメントの @strong{ サブサブセクション 1-2-3 } であると仮定しています:',
+ ' Up ' => ' 上へ ',
+ '(outside of any element)' => '(outside of any element)',
+ '(outside of any node)' => '(outside of any node)',
+ '@b{{quotation_arg}:} ' => '@b{{quotation_arg}:} ',
+ '@cite{{book}}' => '@cite{{book}}',
+ '@{No value for `{value}\'@}' => '@{No value for `{value}\'@}',
+ 'About' => '情報',
+ 'About (help)' => '情報 (ヘルプ)',
+ 'About This Document' => 'このドキュメントについて',
+ 'April' => '4 月',
+ 'August' => '8 月',
+ 'Back' => 'Back',
+ 'Back section in previous file' => '',
+ 'Beginning of this chapter or previous chapter' => 'この章あるいは前の章の先頭',
+ 'Button' => 'ボタン',
+ 'Contents' => '目次',
+ 'Cover (top) of document' => 'ドキュメントの表紙 (先頭)',
+ 'Current' => '',
+ 'Current Position' => '現在の位置',
+ 'Current section' => '',
+ 'December' => '12 月',
+ 'FastBack' => '',
+ 'FastForward' => '',
+ 'February' => '2 月',
+ 'First' => '',
+ 'First section in reading order' => '',
+ 'Following' => '',
+ 'Following node' => '',
+ 'Footnotes' => '脚注',
+ 'Forward' => '',
+ 'Forward section in next file' => '',
+ 'From 1.2.3 go to' => '1.2.3 からの行き先',
+ 'Go to' => '行き先',
+ 'Index' => 'インデックス',
+ 'Index Entry' => 'インデックス エントリ',
+ 'January' => '1 月',
+ 'July' => '7 月',
+ 'Jump to' => '',
+ 'June' => '6月',
+ 'Last' => '',
+ 'Last section in reading order' => '',
+ 'March' => '3 月',
+ 'May' => '5 月',
+ 'Menu:' => 'メニュー',
+ 'Name' => '',
+ 'Next' => '',
+ 'Next chapter' => '次の章',
+ 'Next file' => '',
+ 'Next node' => '',
+ 'Next section in reading order' => '次のセクション',
+ 'Next section on same level' => '',
+ 'NextFile' => '',
+ 'Node following in node reading order' => '',
+ 'Node up' => '',
+ 'NodeNext' => '',
+ 'NodePrev' => '',
+ 'NodeUp' => '',
+ 'November' => '11 月',
+ 'October' => '10 月',
+ 'Overview' => '概要',
+ 'Prev' => '',
+ 'PrevFile' => '',
+ 'Previous' => '',
+ 'Previous file' => '',
+ 'Previous node' => '',
+ 'Previous section in reading order' => '前のセクション',
+ 'Previous section on same level' => '',
+ 'Section' => 'セクション',
+ 'Section One' => 'セクション 1',
+ 'See ' => '',
+ 'See @cite{{book}}' => '',
+ 'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
+ 'See section `{section}\' in @cite{{book}}' => '',
+ 'See section {reference_name}' => '',
+ 'See {node_file_href}' => '',
+ 'See {node_file_href} @cite{{book}}' => '',
+ 'See {node_file_href} section `{section}\' in @cite{{book}}' => '',
+ 'See {reference_name}' => '',
+ 'See {ref}' => '',
+ 'See {title_ref}' => '',
+ 'September' => '9 月',
+ 'Short Table of Contents' => '',
+ 'Short table of contents' => '',
+ 'Subsection One-Four' => 'サブセクション 1-4',
+ 'Subsection One-One' => 'サブセクション 1-1',
+ 'Subsection One-Three' => 'サブセクション 1-3',
+ 'Subsection One-Two' => 'サブセクション 1-2',
+ 'Subsubsection One-Two-Four' => 'サブサブセクション 1-2-4',
+ 'Subsubsection One-Two-One' => 'サブサブセクション 1-2-1',
+ 'Subsubsection One-Two-Three' => 'サブサブセクション 1-2-3',
+ 'Subsubsection One-Two-Two' => 'サブサブセクション 1-2-2',
+ 'T2H_today' => '%s, %d %d',
+ 'Table of Contents' => '目次',
+ 'Table of contents' => '目次',
+ 'The node you are looking for is at {href}.' => '',
+ 'This' => '',
+ 'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'このドキュメントは @i{{date}} に、@uref{{program_homepage}, @i{{program}}} を用いて生成されました。',
+ 'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'このドキュメントは @uref{{program_homepage}, @emph{{program}}} を用いて生成されました。',
+ 'Top' => 'トップ',
+ 'Untitled Document' => '',
+ 'Up' => '上',
+ 'Up node' => '',
+ 'Up section' => '上のセクション',
+ 'current' => '',
+ 'on @emph{{date}}' => '@emph{{date}} に',
+ 'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
+ 'section `{section}\' in @cite{{book}}' => '',
+ 'see ' => '',
+ 'see @cite{{book}}' => '',
+ 'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
+ 'see section `{section}\' in @cite{{book}}' => '',
+ 'see section {reference_name}' => '',
+ 'see {node_file_href}' => '',
+ 'see {node_file_href} @cite{{book}}' => '',
+ 'see {node_file_href} section `{section}\' in @cite{{book}}' => '',
+ 'see {reference_name}' => '',
+ 'see {ref}' => '',
+ 'see {title_ref}' => '',
+ '{acronym_like} ({explanation})' => '{acronym_like} ({explanation})',
+ '{name} of {class}' => '',
+ '{name} on {class}' => '',
+ '{node_file_href}' => '',
+ '{node_file_href} @cite{{book}}' => '',
+ '{node_file_href} section `{section}\' in @cite{{book}}' => '',
+ '{reference_name}' => '',
+ '{ref}' => '{ref}',
+ '{style} {number}' => '{style} {number}',
+ '{style}: {caption_first_line}' => '{style}: {caption_first_line}',
+ '{style}: {shortcaption_first_line}' => '{style}: {shortcaption_first_line}',
+ '{title_ref}' => '{title_ref}'
+ };
+
sub ly_get_string () {
my $lang = $Texi2HTML::THISDOC{current_lang};
);
sub web_settings() {
- print STDERR "Initializing settings for web site\n";
+ print STDERR "Initializing settings for web site: [$Texi2HTML::THISDOC{current_lang}]\n";
$Texi2HTML::Config::BODYTEXT = "";
@Texi2HTML::Config::CSS_REFS = (
{FILENAME => "lilypond-web.css", TITLE => "Patrick McCarty's design"}
### HELPER FUNCTIONS
#############################################################################
+# only lc() the last portion of an href
+sub lc_last($)
+{
+ my $href = shift;
+ my @hrefsplit = split('/', $href);
+ # change the last portion (the filename), if it exists
+ if ($#hrefsplit > 0) {
+ @hrefsplit[$#hrefsplit] = lc( @hrefsplit[$#hrefsplit] );
+ $href = join("/", @hrefsplit);
+ }
+ return $href;
+}
+
# Convert a given node name to its proper file name (normalization as explained
# in the texinfo manual:
# http://www.gnu.org/software/texinfo/manual/texinfo/html_node/HTML-Xref-Node-Name-Expansion.html
$result = 't_g' . $result;
}
# DONE
- return lc($result)
+ return lc_last($result)
}
# Load a file containing a nodename<=>filename map (tab-sepatared, i.e.
my $lastfilename;
my $docnr = 0;
my $node_to_filename_map = ();
+$source_to_translationof_map = ();
# This function makes sure that files are only generated for numbered sections,
if (exists ($node_to_filename_map->{$node_name})) {
(my $filename, my $anchor) = @{$node_to_filename_map->{$node_name}};
$filename .= ".$docu_ext" if (defined($docu_ext));
+ # don't do lc_last here, otherwise the colors are messed up!
$filename = lc($filename);
# unnumbered sections (except those at top-level!) always go to the same
# file as the previous numbered section
- if (not $docu_name == "web" and not ($element->{number})
+ if (not ($web_manual) and not ($element->{number})
and not ($lastfilename eq '') and ($element->{level} > 1)) {
$filename = $lastfilename;
}
$$element{doc_nr} = $docnr;
$lastfilename = $filename;
}
- print STDERR "Output file name: $filename\n";
+ #print STDERR "Output file name: $filename\n";
+ $filename = lc_last($filename);
return $filename;
} elsif ($type eq "top" or $type eq "toc" or $type eq "doc" or
}
my $filename = texinfo_file_name($node_name);
$filename .= ".$docu_ext" if (defined($docu_ext));
- $filename = lc($filename);
+ $filename = lc_last($filename);
$docnr += 1;
$$element{doc_nr} = $docnr;
$lastfilename = $filename;
return $filename;
} else {
$$element{doc_nr} = $docnr;
- $filename = lc ($filename);
+ $filename = lc_last($filename);
print STDERR "File name: $filename\n";
return $filename;
}
return;
}
+sub lilypond_normalise_node($)
+{
+ my $text = shift;
+ my $norm = main::t2h_default_normalise_node($text);
+ if (exists ($source_to_translationof_map->{$text})) {
+ my $original = $source_to_translationof_map->{$text};
+ $norm = main::t2h_default_normalise_node($original);
+ }
+
+ return $norm;
+}
+
sub lilypond_element_target_name($$$)
{
my $element = shift;
}
# TODO: Once texi2html correctly prints out the target and not the id for
# the sections, change this back to ($id, $target)
- $target = lc($target);
- return ($target, $target);
+ # I don't understand this comment, so I'm reluctant to delete it -gp
+ $target = lc_last($target);
+ if ($target eq lc_last($id)) {
+ $id = "";
+ } else {
+ $id = substr($id, 0, - 2); # remove the "-1"
+ }
+ return ($id, $target);
}
my ($docu_dir, $docu_name) = split_texi_filename ($Texi2HTML::THISDOC{'input_file_name'});
my $map_filename = main::locate_include_file ("${docu_name}.$Texi2HTML::THISDOC{current_lang}.xref-map")
|| main::locate_include_file ("${docu_name}.xref-map");
- print STDERR "Map filename is: $map_filename\nDocu name is $docu_name\n";
+ #print STDERR "Map filename is: $map_filename\nDocu name is $docu_name\n";
if ($docu_name eq 'web') {
$web_manual = 1;
web_settings();
my $section = shift;
my $book = shift;
my $file_node = shift;
- my $href = lc(shift);
+ my $href = shift;
+
+ $href = lc_last($href);
+
my $cross_ref = shift;
my $displaytext = '';
# python script messed up ;-)
if ($pass == 1 and $macro eq "translationof") {
if (ref($state->{'element'}) eq 'HASH') {
- $state->{'element'}->{'translationof'} = main::normalise_space($line);
+ $state->{'element'}->{'translationof'} = main::normalise_space($line);
+ my $source = main::normalise_space ($line);
+ if (ref($state->{'node_ref'}) eq 'HASH') {
+ my $translationof = $state->{'node_ref'}->{'texi'};
+ our %source_to_translationof_map;
+ $source_to_translationof_map->{$source} = $translationof;
+ }
}
return ('', 1, undef, undef);
} else {
}
-
-
my %translated_books = ();
# Construct a href to an external source of information.
# node is the node with texinfo @-commands
}
if (defined $file) {
- return &$default_external_href($node, $node_id, $node_hxmlt_id, lc($file));
+ $href = &$default_external_href($node, $node_id, $node_hxmlt_id, lc_last($file));
+ remove_unneeded_anchor($href);
+
+ # TODO: very yucky, but will be fixed in issue 1004
+ if ($web_manual) {
+ my $only_web = $ENV{ONLY_WEB};
+ if ($only_web) {
+ $href = "../../doc/v2.13/Documentation/web/".$href;
+ }
+ }
+
+ return $href;
} else {
- return &$default_external_href($node, $node_id, $node_hxmlt_id);
+ $href = &$default_external_href($node, $node_id, $node_hxmlt_id);
+ remove_unneeded_anchor($href);
+ return $href;
}
}
-
+sub remove_unneeded_anchor($)
+{
+ my $ref = shift;
+ my @hrefsplit = split("/", $href);
+ for ($i = 0; $i < @hrefsplit; $i++) {
+ $item = @hrefsplit[$i];
+ if ($item =~ /#/) {
+ @splitted = split("#", $item);
+ if (@splitted[0] == @splitted[1]) {
+ @hrefsplit[$i] = @splitted[0]
+ }
+ }
+ }
+ $href = join("/", @hrefsplit);
+ return $href
+}
# -) the parent is a numbered element at top-level toplevel (i.e. show numbered
# and unnumbered 2nd-level children of numbered nodes)
# -) the child element is a numbered node below level maxlevel
-sub generate_ly_toc_entries($$$$)
+sub generate_ly_toc_entries($$$$$)
{
my $element = shift;
my $element_path = shift;
$maxlevel = 1;
}
my $child_count = shift;
+ my $current_element = shift;
# Skip undefined sections, plus all sections generated by index splitting
return() if (not defined($element) or exists($element->{'index_page'}));
my @result = ();
my $below_maxlevel = $c->{'toc_level'} le $maxlevel;
if ($force_children or ($is_numbered_child and $below_maxlevel)) {
my @child_res =
- generate_ly_toc_entries($c, $element_path, $maxlevel, $sub_child_count);
+ generate_ly_toc_entries($c, $element_path, $maxlevel, $sub_child_count, $current_element);
push (@child_result, @child_res);
$sub_child_count += 1;
}
if (@child_result) {
push (@result, "\n$ind<ul$NO_BULLET_LIST_ATTRIBUTE>\n");
if ($web_manual) {
- push (@result, "$ind<li class=\"colorDefault toc_current\">" .
+ push (@result, "$ind<li class=\"colorDefault" .
+ ($element->{'text'} eq $current_element->{'text'} ?
+ ' toc_current">' : '">') .
&$anchor ($element->{'tocid'},
"$element->{'file'}#$element->{'target'}",
$element->{'text'}) . "</li>\n");
}
my $children = $current_element->{'section_childs'};
foreach ( @$children ) {
- push (@toc_entries, generate_ly_toc_entries($_, \%parentelements, $page_toc_depth, 0));
+ push (@toc_entries, generate_ly_toc_entries($_, \%parentelements, $page_toc_depth, 0, $element));
}
# search box
local $/=undef;
open FILE, "$ENV{TOP_SRC_DIR}/Documentation/$lang/$name.ihtml" or
open FILE, "$ENV{TOP_SRC_DIR}/Documentation/$name.ihtml" or
die "no such file: $name.ihtml: $!";
- my $search_string = <FILE>;
+ my $search_string = decode ('UTF-8', <FILE>);
$search_string = "<li>\n" . $search_string . "</li>\n";
push (@toc_entries, $search_string);
close FILE;
} else {
$lang = "";
}
- my $reldir = "";
- $reldir = "../" if ($Texi2HTML::Config::SPLIT eq 'section');
- my $uplink = $reldir."web/manuals.${lang}html";
+ my $reldir = $ENV{DEPTH};
+ my $uplink = $reldir."/Documentation/web/manuals.${lang}html";
if (not $web_manual) {
print $fh "<p class=\"toc_uplink\"><a href=\"$uplink\"