180 |
sub chm_init_out() |
sub chm_init_out() |
181 |
{ |
{ |
182 |
my $encoding = &$default_init_out(); |
my $encoding = &$default_init_out(); |
|
$TOC_FILE = $Texi2HTML::THISDOC{'file_base_name'}.'.hhc'; |
|
183 |
my $hhk_file = "$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'file_base_name'}" . ".hhk"; |
my $hhk_file = "$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'file_base_name'}" . ".hhk"; |
184 |
open(IDXFILE, ">:encoding(utf8)", $hhk_file) |
open(IDXFILE, ">:encoding(utf8)", $hhk_file) |
185 |
|| die "Can't open $file_name for writing: $!\n"; |
|| die "Can't open $file_name for writing: $!\n"; |
205 |
$language = $chm_languages{$LANG}; |
$language = $chm_languages{$LANG}; |
206 |
} |
} |
207 |
my $title = to_utf8($Texi2HTML::THISDOC{'title_texi'}); |
my $title = to_utf8($Texi2HTML::THISDOC{'title_texi'}); |
208 |
|
my $top_file = $Texi2HTML::THISDOC{'filename'}->{'top'}; |
209 |
print HHPFILE <<EOT; |
print HHPFILE <<EOT; |
210 |
[OPTIONS] |
[OPTIONS] |
211 |
Compatibility=1.1 or later |
Compatibility=1.1 or later |
212 |
Compiled file=$Texi2HTML::THISDOC{'file_base_name'}.chm |
Compiled file=$Texi2HTML::THISDOC{'file_base_name'}.chm |
213 |
Contents file=$Texi2HTML::THISDOC{'file_base_name'}.hhc |
Contents file=$Texi2HTML::THISDOC{'file_base_name'}.hhc |
214 |
Default Window=Default |
Default Window=Default |
215 |
Default topic=$TOP_FILE |
Default topic=$top_file |
216 |
Display compile progress=No |
Display compile progress=No |
217 |
Full-text search=Yes |
Full-text search=Yes |
218 |
Index file=$Texi2HTML::THISDOC{'file_base_name'}.hhk |
Index file=$Texi2HTML::THISDOC{'file_base_name'}.hhk |
220 |
Title=$title |
Title=$title |
221 |
|
|
222 |
[WINDOWS] |
[WINDOWS] |
223 |
Default=,"$Texi2HTML::THISDOC{'file_base_name'}.hhc","$Texi2HTML::THISDOC{'file_base_name'}.hhk","$TOP_FILE","$TOP_FILE",,,,,0x22520,,0x384e,,,,,,,,0 |
Default=,"$Texi2HTML::THISDOC{'file_base_name'}.hhc","$Texi2HTML::THISDOC{'file_base_name'}.hhk","$top_file","$top_file",,,,,0x22520,,0x384e,,,,,,,,0 |
224 |
|
|
225 |
[FILES] |
[FILES] |
226 |
EOT |
EOT |