File: [local] / OpenXM / src / asir-doc / Attic / texi2html (download)
Revision 1.3, Tue Mar 28 23:22:20 2017 UTC (7 years, 2 months ago) by takayama
Branch: MAIN
Changes since 1.2: +44493 -1953
lines
texi2html is replaced by the latest one.
|
#! /usr/local/bin/perl --
# perl
'di ';
'ig 00 ';
# texi2html: generated by addformats.sh from texi2html.temp and formats/html.init formats/info.init formats/docbook.init formats/xml.init formats/plaintext.init
# texi2html.temp: generated by buildt2h.sh from texi2html_configured.pl and MySimple.pm T2h_i18n.pm texi2html.init translations.pl examples/l2h.init T2h_l2h.pm documentlanguages.pl
#+##############################################################################
#
# texi2html: Program to transform Texinfo documents to HTML
#
# Copyright (C) 1999-2010 Patrice Dumas <pertusus@free.fr>,
# Derek Price <derek@ximbiot.com>,
# Adrian Aichner <adrian@xemacs.org>,
# & others.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301 USA
#
# Some error messages come from texinfo (makeinfo), so copyright holder
# is the FSF or the individual who wrote them. All come from before the
# switch of texinfo to GPLv3+.
#
#-##############################################################################
# The man page for this program is included at the end of this file and can be
# viewed using the command 'nroff -man texi2html'.
# for POSIX::setlocale and File::Spec
require 5.00405;
# Perl pragma to restrict unsafe constructs
use strict;
# used in case of tests, to revert to "C" locale.
use POSIX qw(setlocale LC_ALL LC_CTYPE);
# used to obtain the name of the current working directory
use Cwd;
# Used to find the parent directory of this script.
use File::Basename;
# used to find a relative path back to the current working directory
use File::Spec;
# to determine the path separator and null file
use Config;
#use encoding::warnings;
# for translations
#use encoding 'utf8';
#use utf8;
#
# According to
# larry.jones@sdrc.com (Larry Jones)
# this pragma is not present in perl5.004_02:
#
# Perl pragma to control optional warnings
# use warnings;
# determine the path separators
my $path_separator = $Config{'path_sep'};
$path_separator = ':' if (!defined($path_separator));
my $quoted_path_separator = quotemeta($path_separator);
#++##########################################################################
#
# NOTE FOR DEBUGGING THIS SCRIPT:
# You can run 'perl -x texi2html.pl' directly, provided you have the script
# in the same directory with, or the environment variable T2H_HOME set to
# the directory containing, the texi2html.init, T2h_i18n.pm, translations.pl,
# l2h.init, & T2h_l2h.pm files. Ditto makeinfo.pl, if you make it a
# symlink to texi2html.pl.
#
#--##########################################################################
my $T2H_HOME = defined $ENV{T2H_HOME} ? $ENV{T2H_HOME} : dirname $0;
if ($0 =~ /\.pl$/)
{
# Issue a warning in debugging mode if $T2H_HOME is set but isn't
# accessible.
if (!-e $T2H_HOME)
{ warn "T2H_HOME ($T2H_HOME) does not exist."; }
elsif (!-d $T2H_HOME)
{ warn "T2H_HOME ($T2H_HOME) is not a directory."; }
elsif (!-x $T2H_HOME)
{ warn "T2H_HOME ($T2H_HOME) is not accessible."; }
}
# CVS version:
# $Id: texi2html.pl,v 1.393 2010/06/30 22:01:27 pertusus Exp $
# FIXME. Change for texinfo, and also simplify.
# Homepage:
my $T2H_HOMEPAGE = "http://www.nongnu.org/texi2html/";
# Authors (appears in comments):
my $T2H_AUTHORS = <<EOT;
texi2html was written by:
Lionel Cons <Lionel.Cons\@cern.ch> (original author)
Karl Berry <karl\@freefriends.org>
Olaf Bachmann <obachman\@mathematik.uni-kl.de>
and many others.
Maintained by: Many creative people.
Send bugs and suggestions to <texi2html-bug\@nongnu.org>
EOT
# Version: set in configure.in
my $THISVERSION = '5.0';
my $THISPROG = "texi2html $THISVERSION"; # program name and version
#+++########################################################################
# #
# Paths and file names #
# #
#---########################################################################
# set by configure, prefix for the sysconfdir and so on
my $prefix = '/usr/local';
my $datarootdir;# = '${prefix}/share';
my $sysconfdir;
my $pkgdatadir;
my $datadir;
# We need to eval as $prefix has to be expanded. However when we haven't
# run configure @sysconfdir will be expanded as an array, thus we verify
# whether configure was run or not
if ('${prefix}/etc' ne '@' . 'sysconfdir@')
{
$sysconfdir = eval '"${prefix}/etc"';
}
else
{
$sysconfdir = "/usr/local/etc";
}
if ('${prefix}/share' ne '@' . 'datarootdir@')
{
$datarootdir = eval '"${prefix}/share"';
}
else
{
$datarootdir = "/usr/local/share";
}
if ('${datarootdir}' ne '@' . 'datadir@')
{
$pkgdatadir = eval '"${datarootdir}/texi2html"';
$datadir = eval '"${datarootdir}"';
}
else
{
$pkgdatadir = "/usr/local/share/texi2html";
$datadir = "/usr/local/share";
}
my $target_prefix = "t_h";
#+++########################################################################
# #
# Constants #
# #
#---########################################################################
my $DEBUG_MENU = 1;
my $DEBUG_INDEX = 2;
my $DEBUG_TEXI = 4;
my $DEBUG_MACROS = 8;
my $DEBUG_FORMATS = 16;
my $DEBUG_ELEMENTS = 32;
my $DEBUG_USER = 64;
my $DEBUG_L2H = 128;
my $VARRE = '[\w\-]+'; # RE for a variable name
my $MAX_LEVEL = 4;
my $MIN_LEVEL = 1;
#+++########################################################################
# #
# Command name and default format #
# #
#---########################################################################
my $real_command_name = $0;
$real_command_name =~ s/.*\///;
$real_command_name =~ s/\.pl$//;
my %command_format = (
'texi2html' => 'html',
'makeinfo' => 'info',
'texi2any' => 'raw-text',
);
# Config files
my $i18n_dir = 'i18n'; # name of the directory containing the per language files
my $conf_file_name = 'Config' ;
my $texinfo_htmlxref = 'htmlxref.cnf';
# directories for texinfo configuration files
my @texinfo_config_dirs = ('./.texinfo');
push @texinfo_config_dirs, "$ENV{'HOME'}/.texinfo" if (defined($ENV{'HOME'}));
push @texinfo_config_dirs, "$sysconfdir/texinfo" if (defined($sysconfdir));
push @texinfo_config_dirs, "$datadir/texinfo" if (defined($datadir));
my @program_config_dirs;
my @program_init_dirs;
# program name dependent initializations: config directories and default
# format.
sub set_config_init_dirs_output($)
{
my $program_name = shift;
if (!defined($command_format{$program_name}))
{
# user can make any link to set $0, or use --program with an unknown name.
# In that case the default is to use texi2any
$program_name = 'texi2any';
}
my $default_output_format = $command_format{$program_name};
# directories for config files
@program_config_dirs = ('./');
push @program_config_dirs, "$ENV{'HOME'}/.$program_name/" if (defined($ENV{'HOME'}));
push @program_config_dirs, "$sysconfdir/$program_name/" if (defined($sysconfdir));
push @program_config_dirs, "$datadir/$program_name" if (defined($datadir));
# directories for init files
@program_init_dirs = @program_config_dirs;
# common directories for all command names
foreach my $texinfo_config_dir (@texinfo_config_dirs)
{
push @program_init_dirs, "${texinfo_config_dir}/init/";
}
$Texi2HTML::Config::DEFAULT_OUTPUT_FORMAT = $default_output_format;
$Texi2HTML::Config::COMMAND_NAME = $program_name;
Texi2HTML::Config::t2h_default_load_format($default_output_format, 0);
}
#+++###########################################################################
# #
# Initialization #
# Some declarations, some functions that are GPL and therefore cannot be in #
# texi2html.init, some functions that are not to be customized. #
# Pasted content of File $(srcdir)/texi2html.init: Default initializations #
# #
#---###########################################################################
{
package Texi2HTML::Config;
use Config;
# customization options variables
use vars qw(
$DEBUG
$PREFIX
$VERBOSE
$SUBDIR
$IDX_SUMMARY
$SPLIT
$SPLIT_SIZE
$SHORT_REF
@EXPAND
$TOP
$DOCTYPE
$FRAMESET_DOCTYPE
$ERROR_LIMIT
$CHECK
$TEST
$DUMP_TEXI
$MACRO_EXPAND
$CAPTION_STYLE
$USE_ISO
$TOP_FILE
$TOC_FILE
$FRAMES
$SHOW_MENU
$SHOW_TITLE
$NUMBER_SECTIONS
$NUMBER_FOOTNOTES
$USE_NODES
$USE_SECTIONS
$USE_NODE_TARGET
$USE_UNICODE
$USE_UNIDECODE
$TRANSLITERATE_FILE_NAMES
$NODE_FILES
$NODE_FILENAMES
$NODE_NAME_IN_MENU
$NODE_NAME_IN_INDEX
$AVOID_MENU_REDUNDANCY
$HEADERS
$NO_WARN
$FORCE
$MONOLITHIC
$SHORTEXTN
$EXTENSION
$OUT
$NOVALIDATE
$DEF_TABLE
$DOCUMENTLANGUAGE
$CONTENTS
$SHORTCONTENTS
$FOOTNOTESTYLE
$FILLCOLUMN
$SETCONTENTSAFTERTITLEPAGE
$SETSHORTCONTENTSAFTERTITLEPAGE
$KBDINPUTSTYLE
$FRENCHSPACING
$ALLOWCODEBREAKS
$SETFILENAME
$TOC_LINKS
$L2H
$L2H_L2H
$L2H_SKIP
$L2H_TMP
$L2H_CLEAN
$L2H_FILE
$L2H_HTML_VERSION
$EXTERNAL_DIR
@INCLUDE_DIRS
@PREPEND_DIRS
@CONF_DIRS
$IGNORE_PREAMBLE_TEXT
@CSS_FILES
@CSS_REFS
$INLINE_CONTENTS
$INLINE_INSERTCOPYING
$PARAGRAPHINDENT
$FIRSTPARAGRAPHINDENT
$ENABLE_ENCODING
$INTERNAL_LINKS
$DEFAULT_OUTPUT_FORMAT
$OUTPUT_FORMAT
$COMMAND_NAME
@COMMANDS
);
# customization variables
use vars qw(
$ENCODING_NAME
$DOCUMENT_ENCODING
$OUT_ENCODING
$IN_ENCODING
$DEFAULT_ENCODING
$MENU_PRE_STYLE
$MENU_PRE_COMPLEX_FORMAT
$EXAMPLE_INDENT_CELL
$SMALL_EXAMPLE_INDENT_CELL
$SMALL_FONT_SIZE
$SMALL_RULE
$DEFAULT_RULE
$MIDDLE_RULE
$BIG_RULE
$TOP_HEADING
$INDEX_CHAPTER
$SPLIT_INDEX
$USE_MENU_DIRECTIONS
$USE_UP_FOR_ADJACENT_NODES
$AFTER_BODY_OPEN
$PRE_BODY_CLOSE
$EXTRA_HEAD
$VERTICAL_HEAD_NAVIGATION
$WORDS_IN_PAGE
$ICONS
$UNNUMBERED_SYMBOL_IN_MENU
$SIMPLE_MENU
$MENU_SYMBOL
$MENU_ENTRY_COLON
$INDEX_ENTRY_COLON
$USE_ACCESSKEY
$USE_REL_REV
$USE_LINKS
$OPEN_QUOTE_SYMBOL
$CLOSE_QUOTE_SYMBOL
$NO_NUMBER_FOOTNOTE_SYMBOL
$NO_BULLET_LIST_STYLE
$NO_BULLET_LIST_ATTRIBUTE
$NO_BULLET_LIST_CLASS
$TOP_NODE_FILE
$TOP_NODE_FILE_TARGET
$TOP_NODE_UP
$NODE_FILE_EXTENSION
$STDIN_DOCU_NAME
$STDOUT_DOCU_NAME
$BEFORE_OVERVIEW
$AFTER_OVERVIEW
$BEFORE_TOC_LINES
$AFTER_TOC_LINES
$NEW_CROSSREF_STYLE
$TOP_HEADING_AT_BEGINNING
$USE_NUMERIC_ENTITY
$USE_SETFILENAME
$USE_SETFILENAME_EXTENSION
$SEPARATE_DESCRIPTION
$IGNORE_BEFORE_SETFILENAME
$OVERVIEW_LINK_TO_TOC
$COMPLETE_IMAGE_PATHS
$DATE
%ACTIVE_ICONS
%NAVIGATION_TEXT
%PASSIVE_ICONS
%BUTTONS_NAME
%BUTTONS_GOTO
%BUTTONS_EXAMPLE
%BUTTONS_ACCESSKEY
%BUTTONS_REL
%BUTTONS_TEXT
@T2H_FORMAT_EXPAND
@CHAPTER_BUTTONS
@MISC_BUTTONS
@SECTION_BUTTONS
@SECTION_FOOTER_BUTTONS
@NODE_FOOTER_BUTTONS
@TOP_BUTTONS
@LINKS_BUTTONS
@IMAGE_EXTENSIONS
@INPUT_FILE_SUFFIXES
$ENABLE_ENCODING_USE_ENTITY
$PROGRAM_NAME_IN_FOOTER
$HEADER_IN_TABLE
$DATE_IN_HEADER
$COMPLEX_FORMAT_IN_TABLE
$USE_TITLEPAGE_FOR_TITLE
$INLINE_CSS_STYLE
$NO_CSS
$I18N_PERL_HASH
$USE_NLS
);
# customization variables which may be guessed in the script
#our $ADDRESS;
use vars qw(
$BODYTEXT
$CSS_LINES
$DOCUMENT_DESCRIPTION
$EXTERNAL_CROSSREF_SPLIT
);
# I18n
use vars qw(
$I
$LANGUAGES
);
# customizable subroutines references
use vars qw(
$print_section
$one_section
$end_section
$print_Top_header
$print_Top_footer
$print_Top
$print_Toc
$print_Overview
$print_Footnotes
$print_About
$print_misc_header
$print_misc_footer
$print_misc
$print_section_header
$print_section_footer
$print_chapter_header
$print_chapter_footer
$print_element_header
$print_page_head
$print_page_foot
$print_head_navigation
$print_foot_navigation
$print_title
$button_icon_img
$button_formatting
$print_navigation
$about_body
$print_frame
$print_toc_frame
$toc_body
$contents
$internal_links
$shortcontents
$titlepage
$insertcopying
$css_lines
$print_redirection_page
$translate_names
$init_out
$finish_out
$node_file_name
$element_file_name
$node_target_name
$element_target_name
$placed_target_file_name
$inline_contents
$program_string
$preserve_misc_command
$misc_command_line
$misc_command_line_texi
$protect_text
$anchor
$anchor_label
$element_label
$misc_element_label
$def_item
$def
$menu
$menu_command
$menu_link
$menu_description
$menu_comment
$simple_menu_link
$ref_beginning
$info_ref
$book_ref
$external_href
$external_ref
$internal_ref
$table_item
$table_line
$row
$cell
$list_item
$comment
$def_line
$def_line_no_texi
$heading_no_texi
$raw
$raw_no_texi
$heading
$element_heading
$heading_text
$heading_text_preformatted
$paragraph
$preformatted
$empty_preformatted
$foot_line_and_ref
$foot_section
$image
$image_files
$index_entry_label
$index_entry
$index_entry_command
$index_letter
$print_index
$printindex
$index_summary
$summary_letter
$complex_format
$cartouche
$sp
$definition_category
$definition_index_entry
$table_list
$copying_comment
$documentdescription
$index_summary_file_entry
$index_summary_file_end
$index_summary_file_begin
$style
$line_command
$format
$normal_text
$empty_line
$unknown
$unknown_style
$float
$caption_shortcaption
$caption_shortcaption_command
$listoffloats
$listoffloats_entry
$listoffloats_caption
$listoffloats_float_style
$listoffloats_style
$acronym_like
$quotation
$quotation_prepend_text
$paragraph_style_command
$heading_texi
$index_element_heading_texi
$format_list_item_texi
$begin_format_texi
$begin_style_texi
$begin_paragraph_texi
$tab_item_texi
$footnote_texi
$colon_command
$simple_command
$thing_command
$begin_special_region
$end_special_region
$PRE_ABOUT
$AFTER_ABOUT
);
# hash which entries might be redefined by the user
use vars qw(
$complex_format_map
%complex_format_map
%accent_map
%def_map
%format_map
%simple_map
%simple_map_pre
%simple_map_texi
%simple_map_math
%style_map
%style_map_pre
%style_map_math
%style_map_texi
%simple_format_simple_map_texi
%simple_format_style_map_texi
%simple_format_texi_map
%line_command_map
%command_type
%paragraph_style
%stop_paragraph_command
%format_code_style
%region_formats_kept
%texi_formats_map
%things_map
%pre_map
%math_map
%texi_map
%sorting_things_map
%unicode_map
%unicode_diacritical
%transliterate_map
%transliterate_accent_map
%no_transliterate_map
%ascii_character_map
%default_simple_map
%default_things_map
%default_texi_map
%default_style_map
%default_style_map_pre
%default_style_map_texi
%default_simple_format_style_map_texi
%numeric_entity_map
%perl_charset_to_html
%misc_pages_targets
%misc_command
%no_paragraph_commands
%css_map
%format_in_paragraph
%special_list_commands
%accent_letters
%unicode_accents
%special_accents
%inter_item_commands
$def_always_delimiters
$def_in_type_delimiters
$def_argument_separator_delimiters
%colon_command_punctuation_characters
$punctuation_characters
$after_punctuation_characters
@command_handler_setup
@command_handler_init
@command_handler_names
@command_handler_process
@command_handler_output
@command_handler_finish
%command_handler
%special_style
%null_device_file
%language_codes
%region_codes
%deprecated_commands
%output_format_names
%canonical_texinfo_encodings
@text_substitutions_normal
@text_substitutions_texi
@text_substitutions_simple_format
@text_substitutions_pre
%htmlxref_entries
);
# deprecated
use vars qw(
$address
%iso_symbols
%simple_map_pre_math
%simple_map_texi_math
$ENCODING
$CENTER_IMAGE
$HREF_DIR_INSTEAD_FILE
$EXPAND
$USE_GLOSSARY
$INVISIBLE_MARK
);
# subject to change
use vars qw(
%makeinfo_encoding_to_map
%makeinfo_unicode_to_eight_bit
%eight_bit_to_unicode
%t2h_encoding_aliases
);
# FIXME i18n ?
%output_format_names = (
'info' => 'Info',
'html' => 'HTML',
'docbook' => 'Docbook XML',
'xml' => 'Texinfo XML',
'plaintext' => 'plain text',
'raw-text' => 'raw text',
);
sub load($)
{
my $file = shift;
# If required like other init files, the functions would be redefined
# and the format dependent stuff wouldn't be loaded. Having the
# formats loaded could be worked around, for example there could be
# a variable that, and if the variable is defined a function reference
# should be called right after the require. There is no real
# workaround for having the function redefined, though.
foreach my $output_format (keys(%output_format_names))
{
if ($file =~ /\/$output_format\.init$/)
{
t2h_default_load_format($output_format, 1);
return 1;
}
}
eval { require($file) ;};
if ($@ ne '')
{
print STDERR "error loading $file: $@\n";
return 0;
}
return 1;
}
sub set_conf($$;$)
{
my $name = shift;
my $value = shift;
my $not_global = shift;
unless ($not_global)
{
if (defined($value))
{
$Texi2HTML::GLOBAL{$name} = $value;
}
else
{
delete $Texi2HTML::GLOBAL{$name};
}
return 1;
}
return 0 if (defined($Texi2HTML::GLOBAL{$name}));
if (defined($value))
{
$Texi2HTML::THISDOC{$name} = $value;
}
else
{
delete $Texi2HTML::THISDOC{$name};
}
return 1;
}
my %config_map = (
'paragraphindent' => \$PARAGRAPHINDENT,
'firstparagraphindent' => \$FIRSTPARAGRAPHINDENT,
'footnotestyle' => \$FOOTNOTESTYLE,
'fillcolumn' => \$FILLCOLUMN,
'documentlanguage' => \$DOCUMENTLANGUAGE,
'novalidate' => \$NOVALIDATE,
'SPLIT' => \$SPLIT,
'SPLIT_SIZE' => \$SPLIT_SIZE,
'contents' => \$CONTENTS,
'shortcontents' => \$SHORTCONTENTS,
'doctype' => \$DOCTYPE,
'headers' => \$HEADERS,
'DOCUMENT_ENCODING' => \$DOCUMENT_ENCODING,
'IN_ENCODING' => \$IN_ENCODING,
'setcontentsaftertitlepage' => \$SETCONTENTSAFTERTITLEPAGE,
'setshortcontentsaftertitlepage' => \$SETSHORTCONTENTSAFTERTITLEPAGE,
'kbdinputstyle' => \$KBDINPUTSTYLE,
'frenchspacing' => \$FRENCHSPACING,
'allowcodebreaks' => \$ALLOWCODEBREAKS,
'setfilename' => \$SETFILENAME,
'use_nls' => \$USE_NLS,
);
sub get_conf($)
{
my $name = shift;
return $Texi2HTML::THISDOC{$name} if (defined($Texi2HTML::THISDOC{$name}));
return $Texi2HTML::GLOBAL{$name} if (defined($Texi2HTML::GLOBAL{$name}));
return ${$config_map{$name}} if (defined($config_map{$name}));
# there is no default value for many @-commmands, like headings....
#print STDERR "Unknown conf string: $name\n";
}
# manage expanded sections
sub set_expansion($$)
{
my $region = shift;
my $set = shift;
$set = 1 if (!defined($set));
if ($set)
{
push (@EXPAND, $region) unless (grep {$_ eq $region} @EXPAND);
}
else
{
@EXPAND = grep {$_ ne $region} @EXPAND;
@T2H_FORMAT_EXPAND = grep {$_ ne $region} @T2H_FORMAT_EXPAND;
}
}
# needed in this namespace for translations
$I = \&Texi2HTML::I18n::get_string;
sub gdt($;$$)
{
return &main::gdt(@_);
}
sub __($)
{
return &main::__(@_);
}
sub __p($$)
{
return &main::__p(@_);
}
sub N__($)
{
return $_[0];
}
#
# Function refs covered by the GPL as part of the texi2html.pl original
# code. As such they cannot appear in texi2html.init which is public
# domain (at least the things coded by me, and, if I'm not wrong also the
# things coded by Olaf -- Pat).
#
sub HTML_DEFAULT_shortcontents($$)
{
my $elements_list = shift;
my $stoc_file = shift;
return unless (Texi2HTML::Config::get_conf('shortcontents') or $FRAMES);
my $ul_class = '';
$ul_class = $NO_BULLET_LIST_CLASS if ($NUMBER_SECTIONS);
my @result = ();
foreach my $element (@$elements_list)
{
next if ($element->{'tag'} eq 'top' or $element->{'toc_level'} != 1);
my $dest_for_stoc = $element->{'file'};
my $dest_target_for_stoc = $element->{'target'};
if ($Texi2HTML::Config::OVERVIEW_LINK_TO_TOC)
{
$dest_for_stoc = $Texi2HTML::THISDOC{'toc_file'};
$dest_target_for_stoc = $element->{'tocid'};
}
$dest_for_stoc = '' if ($dest_for_stoc eq $stoc_file);
my $text = $element->{'text'};
my $stoc_entry = "<li>" . &$anchor ($element->{'stocid'}, "$dest_for_stoc#$dest_target_for_stoc",$text);
push(@result, $stoc_entry. "</li>\n");
}
if (@result)
{
unshift @result, html_default_attribute_class('ul', $ul_class) .">\n";
push @result, "</ul>\n";
unshift @result, $BEFORE_OVERVIEW;
push @result, $AFTER_OVERVIEW;
}
return \@result;
}
sub HTML_DEFAULT_contents($$)
{
my $elements_list = shift;
my $toc_file = shift;
return unless (Texi2HTML::Config::get_conf('contents'));
my $current_level = 0;
my $ul_class = '';
$ul_class = $NO_BULLET_LIST_CLASS if ($NUMBER_SECTIONS);
my @result = ();
foreach my $element (@$elements_list)
{
next if ($element->{'tag'} eq 'top');
my $ind = ' ' x $current_level;
my $level = $element->{'toc_level'};
print STDERR "Bug no toc_level for ($element) $element->{'texi'}\n" if (!defined ($level));
if ($level > $current_level)
{
while ($level > $current_level)
{
$current_level++;
my $ln = "\n$ind".html_default_attribute_class('ul', $ul_class).">\n";
$ind = ' ' x $current_level;
push(@result, $ln);
}
}
elsif ($level < $current_level)
{
while ($level < $current_level)
{
$current_level--;
$ind = ' ' x $current_level;
my $line = "</li>\n$ind</ul>";
$line .= "</li>" if ($level == $current_level);
push(@result, "$line\n");
}
}
else
{
push(@result, "</li>\n");
}
my $dest_for_toc = $element->{'file'};
my $dest_for_stoc = $element->{'file'};
my $dest_target_for_stoc = $element->{'target'};
$dest_for_toc = '' if ($dest_for_toc eq $toc_file);
my $text = $element->{'text'};
my $toc_entry = "<li>" . &$anchor ($element->{'tocid'}, "$dest_for_toc#$element->{'target'}",$text);
push (@result, $ind . $toc_entry);
}
while (0 < $current_level)
{
$current_level--;
my $ind = ' ' x $current_level;
push(@result, "</li>\n$ind</ul>\n");
}
if (@result)
{
unshift @result, $BEFORE_TOC_LINES;
push @result, $AFTER_TOC_LINES;
}
return \@result;
}
#$toc_body = \&T2H_GPL_toc_body;
#$style = \&T2H_GPL_style;
#$format = \&T2H_GPL_format;
#$printindex = \&t2h_GPL_default_printindex;
#$summary_letter = \&t2h_default_summary_letter;
sub T2H_GPL_style($$$$$$$$$$)
{ # known style
my $style = shift;
my $command = shift;
my $text = shift;
my $args = shift;
my $no_close = shift;
my $no_open = shift;
my $line_nr = shift;
my $state = shift;
my $style_stack = shift;
my $kept_line_nrs = shift;
my $do_quotes = 0;
my $use_attribute = 0;
my $use_begin_end = 0;
my $inline_attribute = 0;
if (ref($style) eq 'HASH')
{
#print STDERR "GPL_STYLE $command ($style)\n";
#print STDERR " @$args\n";
if (ref($style->{'args'}) ne 'ARRAY')
{
print STDERR "BUG: args not an array for command `$command'\n";
}
$do_quotes = $style->{'quote'};
if (defined($style->{'function'}))
{
$text = &{$style->{'function'}}($command, $args, $style_stack, $state, $line_nr, $kept_line_nrs);
}
elsif (@{$style->{'args'}} == 1)
{
if (defined($style->{'inline_attribute'}))
{
$style = $style->{'inline_attribute'};
$use_attribute = 1;
$inline_attribute = 1;
}
elsif (defined($style->{'attribute'}))
{
$style = $style->{'attribute'};
$use_attribute = 1;
}
#$text = $args->[0];
}
}
else
{
if ($style =~ s/^\"//)
{ # add quotes
$do_quotes = 1;
}
if ($style =~ s/^\&//)
{ # custom
$style = 'Texi2HTML::Config::' . $style;
eval "\$text = &$style(\$text, \$command, \$style_stack)";
}
elsif ($style ne '')
{
$use_attribute = 1;
}
else
{ # no style
}
}
if ($use_attribute)
{
my ($attribute_text, $class);
($style, $class, $attribute_text) = html_default_parse_attribute ($style);
$text = html_default_attribute_class($style, $class) . "$attribute_text>" . "$text" if (!$no_open or $inline_attribute);
$text .= "</$style>" if (!$no_close or $inline_attribute);
if ($do_quotes)
{
$text = $OPEN_QUOTE_SYMBOL . "$text" if (!$no_open);
$text .= $CLOSE_QUOTE_SYMBOL if (!$no_close);
}
}
if (ref($style) eq 'HASH')
{
if (defined($style->{'begin'}) and !$no_open)
{
$text = $style->{'begin'} . $text;
}
if (defined($style->{'end'}) and !$no_close)
{
$text = $text . $style->{'end'};
}
if (defined($style->{'inline_begin'}))
{
$text = $style->{'inline_begin'} . $text;
}
if (defined($style->{'inline_end'}))
{
$text = $text . $style->{'inline_end'};
}
}
if ($do_quotes and !$use_attribute)
{
$text = $OPEN_QUOTE_SYMBOL . "$text" if (!$no_open);
$text .= $CLOSE_QUOTE_SYMBOL if (!$no_close);
}
return $text;
}
sub T2H_GPL_format($$$)
{
my $tag = shift;
my $element = shift;
my $text = shift;
return '' if (!defined($element) or ($text !~ /\S/));
return $text if ($element eq '');
my $attribute_text = '';
if ($element =~ /^(\w+)(\s+.*)/)
{
$element = $1;
$attribute_text = $2;
}
return "<${element}$attribute_text>\n" . $text. "</$element>\n";
}
# for each index holds the letters split as determined by SPLIT_INDEX.
my %t2h_default_index_letters_array;
# equivalent of doc_nr, but with files (and hence numbers) added when
# a split index leads to an additional element and a file is created.
my $t2h_default_file_number;
# this is an increasing number to construct the id for each newly
# created index element.
my $t2h_default_index_id_nr;
# this holds the file name associated with an element file, such
# as to follow the splitting coming from the main program, and also use
# the newly generated files.
my %t2h_default_seen_files;
# holds the elements and indices that are split to easily set the
# directions after they are done in the main program.
my $t2h_default_element_split_printindices;
# construct a hash of index names holding the letter grouped how they will
# be split.
sub t2h_default_init_split_indices()
{
push @command_handler_process, \&t2h_default_index_rearrange_directions;
%t2h_default_index_letters_array = ();
%t2h_default_seen_files = ();
$t2h_default_element_split_printindices = undef;
$t2h_default_index_id_nr = 0;
$t2h_default_file_number = 0;
foreach my $index_name(keys %{$Texi2HTML::THISDOC{'index_letters_array'}})
{
my $entries_count = 0;
my @letters = ();
foreach my $letter_entry (@{$Texi2HTML::THISDOC{'index_letters_array'}->{$index_name}})
{
push @letters, $letter_entry;
$entries_count += scalar(@{$letter_entry->{'entries'}});
# Don't split if document is not split
if (get_conf('SPLIT') and $SPLIT_INDEX and $entries_count >= $SPLIT_INDEX)
{
push @{$t2h_default_index_letters_array{$index_name}}, [ @letters ];
@letters = ();
$entries_count = 0;
}
}
push @{$t2h_default_index_letters_array{$index_name}}, [ @letters ] if (scalar(@letters));
}
}
sub t2h_default_associate_index_element($$$$)
{
my $element = shift;
my $is_top = shift;
my $docu_name = shift;
my $use_node_file = shift;
my $default_element_file = $element->{'file'};
# redo the file naming -- the doc_nr part -- in case new elements were
# inserted upon index split. But respect the default splitting to keep
# the elements that are associated with the same file in the same file,
# or the added file.
if (!$use_node_file or $t2h_default_seen_files{$default_element_file})
{
my $file;
if ($t2h_default_seen_files{$default_element_file})
{
$file = $t2h_default_seen_files{$default_element_file};
}
else
{
if ($is_top eq 'top')
{ # this is the element_top, so we keep docu_top as associated file.
# this, in fact, is not necessary since the element_top is never
# associated with another element, but who knows.
$t2h_default_seen_files{$default_element_file} = $default_element_file;
}
else
{
$file = "${docu_name}_$t2h_default_file_number";
$file .= '.' . $Texi2HTML::THISDOC{'extension'} if
(defined($Texi2HTML::THISDOC{'extension'}));
$t2h_default_seen_files{$default_element_file} = $file;
}
$t2h_default_file_number++;
}
$element->{'file'} = $file if (defined($file));
}
my $level = $element->{'level'};
# Even if, without USE_SECTION, output can be split at chapter or
# section we don't split indices accordingly. We don't want to add
# more cases where users want split indices, this was a very difficult
# to maintain feature from the beginning.
#$level = $element->{'with_section'}->{'level'} if (!defined($level) and
# defined($element->{'with_section'}));
# if the element is not the level of splitting, then we don't split.
# also if 'top' is set we don't split since the formatting is different
# in that case and the result would be quite unpredictable.
return if ($element->{'top'} or ((get_conf('SPLIT') ne 'node')
and (!defined($level) or $level > $Texi2HTML::THISDOC{'split_level'})));
#print STDERR "Doing printindices for $element $element->{'texi'}, file $element->{'file'} (@{$element->{'place'}})\n";
# iterate over the @places of the element, which includes associated nodes,
# associated elements, anchors, footnotes, floats, index entries,
# printindices (including the element command itself, be it a @node or
# a sectioning @-command).
# during the iteration, split printindices that needs it, and reassociate
# other placed elements with files and elements.
my $current_element = $element;
my @places = @{$element->{'place'}};
@{$element->{'place'}} = ();
foreach my $place (@places)
{
my ($printindex, $printindex_to_split, $index_name);
# determines if the placed thing is a printindex to be split
if ($place->{'command'} and $place->{'command'} eq 'printindex')
{
$printindex = $place;
$index_name = $printindex->{'name'};
# ! empty index
if (exists($t2h_default_index_letters_array{$index_name}) and
# split index
scalar(@{$t2h_default_index_letters_array{$index_name}} > 1)
# the condition defined($printindex->{'associated_element'} implies
# that we don't split printindex before first element, otherwise
# there will be a need to begin document without a first element
# which would be annoying.
and defined($printindex->{'associated_element'}))
{
$printindex_to_split = 1;
}
}
# this is a non split printindex or any other placed thing.
if (!$printindex_to_split)
{
push @{$current_element->{'place'}}, $place;
# don't remodify the original element file, it was set right at the
# beginning of the function.
$place->{'file'} = $current_element->{'file'} if ($place ne $element);
# the 'element_ref' has to be reset. Otherwise, $place->{'element_ref'}
# will appear as a new element and trigger closing the file and
# opening a new one.
$place->{'element_ref'} = $current_element if ($place->{'element_ref'} and $current_element ne $element);
# this resets the element associated with a printindex.
if ($place->{'associated_element'} and $current_element ne $element)
{
$place->{'associated_element'} = $current_element;
}
next;
}
# now split the index
my @letter_groups = ();
my @letters_split = @{$t2h_default_index_letters_array{$index_name}};
foreach my $letters_split (@letters_split)
{
push @letter_groups, {'letters' => [@$letters_split]};
}
$letter_groups[0]->{'element'} = $current_element;
# besides preparing the new elements corresponding with split indices,
# they are recorded for later directions rearrangements in
# t2h_default_index_rearrange_directions.
# this weird construct is there because the element used as a key is
# converted to a string by perl, losing its meaning as a reference,
# the reference must be recorded explicitly
$t2h_default_element_split_printindices->{$element}->{'element'} = $element;
push @{$t2h_default_element_split_printindices->{$element}->{'printindices'}}, $printindex;
#print STDERR "Setting $element, $element->{'texi'}, $printindex $printindex->{'name'} as a split element\n";
foreach my $split_group (@letter_groups)
{
my $first_letter = $split_group->{'letters'}->[0]->{'letter'};
my $last_letter = $split_group->{'letters'}->[-1]->{'letter'};
if (!$split_group->{'element'})
{ # this is not the first letters group, which is already associated
# with an element, a new element is done.
# construct new element name
my $letters_heading;
if ($last_letter ne $first_letter)
{
$letters_heading = &$normal_text("$first_letter -- $last_letter");
}
else
{
$letters_heading = &$normal_text("$first_letter");
}
my ($name, $simple);
my $texi = "ADDED ELEMENT $element->{'texi'}: $letters_heading";
if (!defined($element->{'text'}))
{
my $element_heading_texi = &$heading_texi($element->{'tag'}, $element->{'texi'}, $element->{'number'});
my $index_heading_texi = &$index_element_heading_texi(
$element_heading_texi,
$element->{'tag'},
$element->{'texi'},
$element->{'number'},
$first_letter, $last_letter);
$name = main::substitute_line($index_heading_texi, sprintf(__p("\@sectionning_command index page","\@%s index page"), $element->{'tag'}));
$simple = main::simple_format(undef,undef,"simple_format \@$element->{'tag'} index page", $index_heading_texi);
}
else
{ # should never happen, at this point 'text' is always undefined.
$name = "$element->{'text'}: $letters_heading";
$simple = "$element->{'simple_format'}: $letters_heading";
}
#file and id
my $relative_file = $Texi2HTML::THISDOC{'file_base_name'} . '_' . $t2h_default_file_number;
$t2h_default_file_number++;
$relative_file .= '.' . $Texi2HTML::THISDOC{'extension'} if
(defined($Texi2HTML::THISDOC{'extension'}));
my $id = "index_split-$t2h_default_index_id_nr";
$t2h_default_index_id_nr++;
my $new_element = { 'file' => $relative_file, 'id' => $id, 'target' => $id, 'text' => $name, 'texi' => $texi, 'seen' => 1, 'simple_format' => $simple };
# to avoid crashing when there is a filename collision.
main::add_file($new_element->{'file'});
$split_group->{'element'} = $new_element;
$current_element = $new_element;
#print STDERR "Added file $new_element->{'file'} ($new_element, $new_element->{'id'}) for $new_element->{'texi'} ($first_letter:$last_letter)\n";
}
else
{ # this is the first index split, it is still associated with the element
#print STDERR "No file added for ($first_letter:$last_letter)\n";
}
}
$t2h_default_seen_files{$default_element_file} = $current_element->{'file'};
$printindex->{'split_groups'} = \@letter_groups;
#print STDERR "$index_name processed for $element, $element->{'texi'} (@{$printindex->{'split_groups'}})\n";
}
}
# set directions for added elements now that they are done in the
# main program for all the other elements.
sub t2h_default_index_rearrange_directions()
{
return if (!defined($t2h_default_element_split_printindices));
foreach my $element_string (keys(%$t2h_default_element_split_printindices))
{
my $element = $t2h_default_element_split_printindices->{$element_string}->{'element'};
my $current_element = $element;
#print STDERR " E Processing $element_string,$current_element $current_element->{'texi'}\n";
foreach my $printindex (@{$t2h_default_element_split_printindices->{$element_string}->{'printindices'}})
{
#print STDERR " I Processing $printindex $printindex->{'name'} (@{$printindex->{'split_groups'}})\n";
foreach my $split_group (@{$printindex->{'split_groups'}})
{
my $first_letter = $split_group->{'letters'}->[0]->{'letter'};
my $last_letter = $split_group->{'letters'}->[-1]->{'letter'};
my $new_element = $split_group->{'element'};
next if ($current_element eq $new_element);
#print STDERR " G Processing ($first_letter:$last_letter) in $element->{'texi'}, index $printindex->{'name'}: $new_element->{'texi'}\n";
$new_element->{'This'} = $new_element;
if ($current_element->{'Forward'})
{
$current_element->{'Forward'}->{'Back'} = $new_element;
$new_element->{'Forward'} = $current_element->{'Forward'};
}
$current_element->{'Forward'} = $new_element;
$new_element->{'Back'} = $current_element;
if ($current_element->{'Following'})
{
#print STDERR "F: C($current_element): $current_element->{'texi'}, N($new_element): $new_element->{'texi'} -- C->F: $current_element->{'Following'}->{'texi'}\n";
$new_element->{'Following'} = $current_element->{'Following'};
$current_element->{'Following'} = $new_element;
}
foreach my $key ('FastForward', 'FastBack', 'Up', 'tag_level', 'tag',
'level', 'node')
{
$new_element->{$key} = $element->{$key} if (defined($element->{$key}));
}
$new_element->{'this'} = $new_element;
$new_element->{'element_ref'} = $new_element;
$current_element = $new_element;
}
}
}
}
# not needed to initialize it for a document, since it is reset
# in index_summary
my $t2h_symbol_indices = 0;
# format a letter appearing in a summary for an index. The letter links to
# the place where the index elements beginning with this letter are (called
# a letter entry).
#
# arguments:
# letter
# file where the target letter entry is
# identifier for the target letter entry
sub html_default_summary_letter($$$$$$$)
{
my $letter = shift;
my $file = shift;
my $default_identifier = shift;
my $index_element_id = shift;
my $number = shift;
my $index_element = shift;
my $index_name = shift;
return '' if ($letter =~ /^\s*$/);
my $is_symbol = $letter !~ /^[A-Za-z]/;
my $identifier = $default_identifier;
if ($NEW_CROSSREF_STYLE)
{
if ($is_symbol)
{
$t2h_symbol_indices++;
$identifier = $index_element_id . "_${index_name}_symbol-$t2h_symbol_indices";
}
else
{
$identifier = $index_element_id . "_${index_name}_letter-${letter}";
}
}
my $result = &$anchor('', $file . '#' . $identifier, '<b>' . &$protect_text($letter) . '</b>', 'class="summary-letter"');
return $result unless ($NEW_CROSSREF_STYLE);
return ($result, $identifier, $is_symbol);
}
# this replaces do_index_page
# args should be:
# index_name
# printindex
sub t2h_GPL_default_printindex($$)
{
my $index_name = shift;
my $printindex = shift;
# could be cross verified with argument
my $identifier_index_nr = 0;
my @split_letters;
if (defined($printindex->{'split_groups'}) and scalar(@{$printindex->{'split_groups'}}))
{
@split_letters = @{$printindex->{'split_groups'}};
}
elsif (defined($Texi2HTML::THISDOC{'index_letters_array'}->{$index_name}) and scalar(@{$Texi2HTML::THISDOC{'index_letters_array'}->{$index_name}}))
{
my $element = $printindex->{'associated_element'};
# this happens for printindex before the first element.
if (!defined($element))
{
$element = {'file' => '', 'id' => "$printindex->{'region'}_printindex"};
}
elsif (defined($element->{'element_ref'}))
{
$element = $element->{'element_ref'};
}
@split_letters = ({ 'letters' => $Texi2HTML::THISDOC{'index_letters_array'}->{$index_name}, 'element' => $element});
}
else
{
return '';
}
foreach my $split_group (@split_letters)
{
#do summmary
my @non_alpha = ();
my @alpha = ();
#print STDERR "$index_name @{$split_group->{'letters'}}\n";
# letter_id could be done once for all instead of for each split_group
# and outside of t2h_default_summary_letter (or t2h_default_summary_letter
# could be simplified and inlined
my %letter_id;
foreach my $summary_split_group (@split_letters)
{
foreach my $letter_entry (@{$summary_split_group->{'letters'}})
{
my $letter = $letter_entry->{'letter'};
my $dest_file = '';
####################################### debug
if (!defined($summary_split_group->{'element'}))
{
main::msg_debug ("index $index_name, letter $letter, element for summary_split_group $summary_split_group not defined");
}
elsif (!defined($summary_split_group->{'element'}->{'id'}))
{
main::msg_debug ("index $index_name, letter $letter, element $summary_split_group->{'element'} `$summary_split_group->{'element'}->{'texi'}', id undef");
}
####################################### end debug
$dest_file = $summary_split_group->{'element'}->{'file'}
if ($summary_split_group ne $split_group);
my $index_element_id = $summary_split_group->{'element'}->{'id'};
my $default_identifier = $index_element_id . "_$identifier_index_nr";
#print STDERR "$split_group $summary_split_group $summary_split_group->{'element'} $summary_split_group->{'element'}->{'id'} $identifier_index_nr $index_element_id $default_identifier\n";
$identifier_index_nr++;
my ($result, $identifier, $is_symbol) =
&$summary_letter($letter, $dest_file, $default_identifier, $index_element_id, '', '', $index_name);
$identifier = $default_identifier if (!defined($identifier));
$letter_id{$letter} = $identifier;
$is_symbol = $letter !~ /^[A-Za-z]/ if (!defined($is_symbol));
if ($result ne '')
{
if ($is_symbol)
{
push @non_alpha, $result;
}
else
{
push @alpha, $result;
}
}
}
}
my $summary = &$index_summary(\@alpha, \@non_alpha);
# reset symbols numbering
$t2h_symbol_indices = 0;
my $letters_text = '';
foreach my $letter_entry (@{$split_group->{'letters'}})
{
my $letter = $letter_entry->{'letter'};
my $entries_text = '';
foreach my $index_entry_ref (@{$letter_entry->{'entries'}})
{
my ($text_href, $entry_file, $element_file, $entry_target,
$entry_element_target, $formatted_entry, $element_href,
$entry_element_text, $in_region_not_in_output)
= main::get_index_entry_infos($index_entry_ref, $split_group->{'element'});
$entries_text .= &$index_entry ($text_href, $formatted_entry, $element_href, $entry_element_text, $entry_file, $element_file, $entry_target, $entry_element_target, $in_region_not_in_output, $index_entry_ref);
}
$letters_text .= &$index_letter ($letter, $letter_id{$letter}, $entries_text)
}
my $index_text = &$print_index($letters_text, $index_name);
$split_group->{'text'} = $summary . $index_text . $summary;
# print STDERR " ---> $index_name @{$split_group->{'letters'}}
# * elt: $split_group->{'element'}->{'id'}, $split_group->{'element'}->{'file'}, $split_group->{'element'}->{'name'}
# * directions: B: $split_group->{'element'}->{'Back'}->{'name'}, F: $split_group->{'element'}->{'Forward'}->{'name'}, FB: $split_group->{'element'}->{'FastBack'}->{'name'}, FF: $split_group->{'element'}->{'FastForward'}->{'name'}
# * text
#
#$split_group->{'text'}
#
#";
}
my $current_page = shift @split_letters;
if (!scalar(@split_letters))
{
return $current_page->{'text'};
}
while (1)
{
# print the index letters
push @{$Texi2HTML::THIS_SECTION}, $current_page->{'text'};
$current_page = shift @split_letters;
last if (!defined($current_page));
# there is no need to begin first element if not already done, since
# the index is not split if not already in an element.
# end the previous element
main::finish_element ($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT, $Texi2HTML::THIS_ELEMENT->{'Forward'}, 0);
# do the new element beginning
$Texi2HTML::THIS_ELEMENT = $current_page->{'element'};
my $new_element = $Texi2HTML::THIS_ELEMENT;
main::unref_file($new_element->{'file'});
main::do_element_directions($new_element);
my $do_page_head = main::open_out_file($new_element->{'file'});
if ($do_page_head)
{
&$print_page_head($Texi2HTML::THISDOC{'FH'});
&$print_chapter_header($Texi2HTML::THISDOC{'FH'}, $new_element) if Texi2HTML::Config::get_conf('SPLIT') eq 'chapter';
&$print_section_header($Texi2HTML::THISDOC{'FH'}, $new_element) if Texi2HTML::Config::get_conf('SPLIT') eq 'section';
}
# almost nothing of this is used in the default html output
@{$Texi2HTML::THIS_SECTION} = &$element_heading($new_element, $new_element->{'tag'}, $new_element->{'texi'},
$new_element->{'text'}, 0, 0, $new_element->{'this'}, 1, 0, 0, "\@$new_element->{'tag'} $new_element->{'texi'}",
$new_element->{'id'}, $new_element);
}
return '';
}
# leave this within comments, and keep the require statement
# This way, you can directly run texi2html.pl,
# if $T2H_HOME/documentlanguages.pl exists.
#
# @T2H_DOCUMENT_LANGUAGES@
%language_codes = (
'aa' => 1,
'ab' => 1,
'ae' => 1,
'af' => 1,
'ak' => 1,
'am' => 1,
'an' => 1,
'ar' => 1,
'as' => 1,
'av' => 1,
'ay' => 1,
'az' => 1,
'ba' => 1,
'be' => 1,
'bg' => 1,
'bh' => 1,
'bi' => 1,
'bm' => 1,
'bn' => 1,
'bo' => 1,
'br' => 1,
'ca' => 1,
'ce' => 1,
'ch' => 1,
'co' => 1,
'cr' => 1,
'cs' => 1,
'cu' => 1,
'cv' => 1,
'cy' => 1,
'da' => 1,
'de' => 1,
'dv' => 1,
'dz' => 1,
'ee' => 1,
'el' => 1,
'en' => 1,
'eo' => 1,
'es' => 1,
'et' => 1,
'eu' => 1,
'fa' => 1,
'ff' => 1,
'fi' => 1,
'fj' => 1,
'fo' => 1,
'fr' => 1,
'fy' => 1,
'ga' => 1,
'gd' => 1,
'gl' => 1,
'gn' => 1,
'gu' => 1,
'gv' => 1,
'ha' => 1,
'he' => 1,
'hi' => 1,
'ho' => 1,
'ht' => 1,
'hu' => 1,
'hy' => 1,
'hz' => 1,
'ia' => 1,
'ie' => 1,
'ig' => 1,
'ii' => 1,
'ik' => 1,
'io' => 1,
'is' => 1,
'it' => 1,
'iu' => 1,
'iw' => 1,
'ja' => 1,
'ji' => 1,
'jv' => 1,
'jw' => 1,
'ka' => 1,
'kg' => 1,
'ki' => 1,
'kj' => 1,
'kk' => 1,
'kl' => 1,
'km' => 1,
'kn' => 1,
'ko' => 1,
'kr' => 1,
'ks' => 1,
'ku' => 1,
'kv' => 1,
'kw' => 1,
'ky' => 1,
'la' => 1,
'lb' => 1,
'lg' => 1,
'li' => 1,
'ln' => 1,
'lo' => 1,
'lt' => 1,
'lu' => 1,
'lv' => 1,
'mg' => 1,
'mh' => 1,
'mi' => 1,
'mk' => 1,
'ml' => 1,
'mn' => 1,
'mo' => 1,
'mr' => 1,
'ms' => 1,
'mt' => 1,
'my' => 1,
'na' => 1,
'nd' => 1,
'ne' => 1,
'ng' => 1,
'nl' => 1,
'no' => 1,
'nr' => 1,
'nv' => 1,
'ny' => 1,
'oc' => 1,
'oj' => 1,
'om' => 1,
'or' => 1,
'os' => 1,
'pa' => 1,
'pi' => 1,
'pl' => 1,
'ps' => 1,
'pt' => 1,
'qu' => 1,
'rm' => 1,
'rn' => 1,
'ro' => 1,
'ru' => 1,
'rw' => 1,
'sa' => 1,
'sc' => 1,
'sd' => 1,
'se' => 1,
'sg' => 1,
'sh' => 1,
'si' => 1,
'sk' => 1,
'sl' => 1,
'sm' => 1,
'sn' => 1,
'so' => 1,
'sq' => 1,
'ss' => 1,
'st' => 1,
'su' => 1,
'sv' => 1,
'sw' => 1,
'ta' => 1,
'te' => 1,
'tg' => 1,
'th' => 1,
'ti' => 1,
'tk' => 1,
'tl' => 1,
'tn' => 1,
'to' => 1,
'tr' => 1,
'ts' => 1,
'tt' => 1,
'ty' => 1,
'ug' => 1,
'uk' => 1,
'ur' => 1,
'uz' => 1,
've' => 1,
'vi' => 1,
'vo' => 1,
'wa' => 1,
'wo' => 1,
'xh' => 1,
'yi' => 1,
'yo' => 1,
'za' => 1,
'zh' => 1,
'zu' => 1,
'aaa' => 1,
'aab' => 1,
'aac' => 1,
'aad' => 1,
'aaf' => 1,
'aag' => 1,
'aah' => 1,
'aai' => 1,
'aak' => 1,
'aal' => 1,
'aam' => 1,
'aan' => 1,
'aap' => 1,
'aaq' => 1,
'aas' => 1,
'aau' => 1,
'aav' => 1,
'aaw' => 1,
'aax' => 1,
'aaz' => 1,
'aba' => 1,
'abb' => 1,
'abc' => 1,
'abd' => 1,
'abe' => 1,
'abf' => 1,
'abg' => 1,
'abi' => 1,
'abj' => 1,
'abl' => 1,
'abm' => 1,
'abn' => 1,
'abo' => 1,
'abp' => 1,
'abq' => 1,
'abr' => 1,
'abs' => 1,
'abt' => 1,
'abu' => 1,
'abw' => 1,
'abx' => 1,
'aby' => 1,
'abz' => 1,
'aca' => 1,
'acb' => 1,
'acd' => 1,
'ace' => 1,
'acf' => 1,
'ach' => 1,
'aci' => 1,
'ack' => 1,
'acl' => 1,
'acn' => 1,
'acp' => 1,
'acr' => 1,
'acs' => 1,
'act' => 1,
'acu' => 1,
'acv' => 1,
'acz' => 1,
'ada' => 1,
'adb' => 1,
'add' => 1,
'ade' => 1,
'adg' => 1,
'adh' => 1,
'adi' => 1,
'adj' => 1,
'adl' => 1,
'adn' => 1,
'ado' => 1,
'adp' => 1,
'adq' => 1,
'adr' => 1,
'ads' => 1,
'adt' => 1,
'adu' => 1,
'adw' => 1,
'adx' => 1,
'ady' => 1,
'adz' => 1,
'aea' => 1,
'aed' => 1,
'aee' => 1,
'aek' => 1,
'ael' => 1,
'aem' => 1,
'aen' => 1,
'aeq' => 1,
'aer' => 1,
'aes' => 1,
'aeu' => 1,
'aew' => 1,
'aey' => 1,
'aez' => 1,
'afa' => 1,
'afd' => 1,
'afe' => 1,
'afg' => 1,
'afh' => 1,
'afi' => 1,
'afk' => 1,
'afn' => 1,
'afo' => 1,
'afp' => 1,
'afs' => 1,
'aft' => 1,
'afu' => 1,
'afz' => 1,
'aga' => 1,
'agb' => 1,
'agc' => 1,
'agd' => 1,
'age' => 1,
'agf' => 1,
'agg' => 1,
'agh' => 1,
'agi' => 1,
'agj' => 1,
'agk' => 1,
'agl' => 1,
'agm' => 1,
'agn' => 1,
'ago' => 1,
'agp' => 1,
'agq' => 1,
'agr' => 1,
'ags' => 1,
'agt' => 1,
'agu' => 1,
'agv' => 1,
'agw' => 1,
'agx' => 1,
'agy' => 1,
'agz' => 1,
'aha' => 1,
'ahb' => 1,
'ahg' => 1,
'ahh' => 1,
'ahi' => 1,
'ahk' => 1,
'ahl' => 1,
'ahm' => 1,
'ahn' => 1,
'aho' => 1,
'ahp' => 1,
'ahr' => 1,
'ahs' => 1,
'aht' => 1,
'aia' => 1,
'aib' => 1,
'aic' => 1,
'aid' => 1,
'aie' => 1,
'aif' => 1,
'aig' => 1,
'aih' => 1,
'aij' => 1,
'aik' => 1,
'ail' => 1,
'aim' => 1,
'ain' => 1,
'aio' => 1,
'aip' => 1,
'aiq' => 1,
'air' => 1,
'ais' => 1,
'ait' => 1,
'aiw' => 1,
'aix' => 1,
'aiy' => 1,
'aja' => 1,
'ajg' => 1,
'aji' => 1,
'ajw' => 1,
'ajz' => 1,
'akb' => 1,
'akc' => 1,
'akd' => 1,
'ake' => 1,
'akf' => 1,
'akg' => 1,
'akh' => 1,
'aki' => 1,
'akj' => 1,
'akk' => 1,
'akl' => 1,
'akm' => 1,
'ako' => 1,
'akp' => 1,
'akq' => 1,
'akr' => 1,
'aks' => 1,
'akt' => 1,
'aku' => 1,
'akv' => 1,
'akw' => 1,
'akx' => 1,
'aky' => 1,
'akz' => 1,
'ala' => 1,
'alc' => 1,
'ald' => 1,
'ale' => 1,
'alf' => 1,
'alg' => 1,
'alh' => 1,
'ali' => 1,
'alj' => 1,
'alk' => 1,
'all' => 1,
'alm' => 1,
'alo' => 1,
'alp' => 1,
'alq' => 1,
'alr' => 1,
'alt' => 1,
'alu' => 1,
'alv' => 1,
'alw' => 1,
'alx' => 1,
'aly' => 1,
'alz' => 1,
'ama' => 1,
'amb' => 1,
'amc' => 1,
'ame' => 1,
'amf' => 1,
'amg' => 1,
'ami' => 1,
'amj' => 1,
'amk' => 1,
'aml' => 1,
'amm' => 1,
'amn' => 1,
'amo' => 1,
'amp' => 1,
'amq' => 1,
'amr' => 1,
'ams' => 1,
'amt' => 1,
'amu' => 1,
'amv' => 1,
'amw' => 1,
'amx' => 1,
'amy' => 1,
'amz' => 1,
'ana' => 1,
'anb' => 1,
'anc' => 1,
'and' => 1,
'ane' => 1,
'anf' => 1,
'ang' => 1,
'anh' => 1,
'ani' => 1,
'anj' => 1,
'ank' => 1,
'anl' => 1,
'anm' => 1,
'ann' => 1,
'ano' => 1,
'anp' => 1,
'anq' => 1,
'anr' => 1,
'ans' => 1,
'ant' => 1,
'anu' => 1,
'anv' => 1,
'anw' => 1,
'anx' => 1,
'any' => 1,
'anz' => 1,
'aoa' => 1,
'aob' => 1,
'aoc' => 1,
'aod' => 1,
'aoe' => 1,
'aof' => 1,
'aog' => 1,
'aoh' => 1,
'aoi' => 1,
'aoj' => 1,
'aok' => 1,
'aol' => 1,
'aom' => 1,
'aon' => 1,
'aor' => 1,
'aos' => 1,
'aot' => 1,
'aox' => 1,
'aoz' => 1,
'apa' => 1,
'apb' => 1,
'ape' => 1,
'apg' => 1,
'aph' => 1,
'api' => 1,
'apj' => 1,
'apk' => 1,
'apl' => 1,
'apm' => 1,
'apn' => 1,
'apo' => 1,
'app' => 1,
'apq' => 1,
'apr' => 1,
'aps' => 1,
'apt' => 1,
'apu' => 1,
'apv' => 1,
'apw' => 1,
'apx' => 1,
'apy' => 1,
'apz' => 1,
'aqa' => 1,
'aqc' => 1,
'aqg' => 1,
'aql' => 1,
'aqm' => 1,
'aqn' => 1,
'aqp' => 1,
'aqr' => 1,
'arc' => 1,
'ard' => 1,
'are' => 1,
'arh' => 1,
'ari' => 1,
'arj' => 1,
'ark' => 1,
'arl' => 1,
'arn' => 1,
'aro' => 1,
'arp' => 1,
'arr' => 1,
'art' => 1,
'aru' => 1,
'arv' => 1,
'arw' => 1,
'arx' => 1,
'asa' => 1,
'asb' => 1,
'asc' => 1,
'asd' => 1,
'ase' => 1,
'asf' => 1,
'asg' => 1,
'ash' => 1,
'asi' => 1,
'asj' => 1,
'ask' => 1,
'asl' => 1,
'asn' => 1,
'aso' => 1,
'asp' => 1,
'asq' => 1,
'asr' => 1,
'ass' => 1,
'ast' => 1,
'asu' => 1,
'asv' => 1,
'asw' => 1,
'asx' => 1,
'asy' => 1,
'asz' => 1,
'ata' => 1,
'atb' => 1,
'atc' => 1,
'atd' => 1,
'ate' => 1,
'atg' => 1,
'ath' => 1,
'ati' => 1,
'atj' => 1,
'atk' => 1,
'atl' => 1,
'atm' => 1,
'atn' => 1,
'ato' => 1,
'atp' => 1,
'atq' => 1,
'atr' => 1,
'ats' => 1,
'att' => 1,
'atu' => 1,
'atv' => 1,
'atw' => 1,
'atx' => 1,
'aty' => 1,
'atz' => 1,
'aua' => 1,
'aub' => 1,
'auc' => 1,
'aud' => 1,
'aue' => 1,
'auf' => 1,
'aug' => 1,
'auh' => 1,
'aui' => 1,
'auj' => 1,
'auk' => 1,
'aul' => 1,
'aum' => 1,
'aun' => 1,
'auo' => 1,
'aup' => 1,
'auq' => 1,
'aur' => 1,
'aus' => 1,
'aut' => 1,
'auu' => 1,
'auw' => 1,
'aux' => 1,
'auy' => 1,
'avb' => 1,
'avd' => 1,
'avi' => 1,
'avk' => 1,
'avn' => 1,
'avo' => 1,
'avs' => 1,
'avt' => 1,
'avu' => 1,
'avv' => 1,
'awa' => 1,
'awb' => 1,
'awc' => 1,
'awd' => 1,
'awe' => 1,
'awh' => 1,
'awi' => 1,
'awk' => 1,
'awm' => 1,
'awn' => 1,
'awo' => 1,
'awr' => 1,
'aws' => 1,
'awt' => 1,
'awu' => 1,
'awv' => 1,
'aww' => 1,
'awx' => 1,
'awy' => 1,
'axb' => 1,
'axg' => 1,
'axk' => 1,
'axm' => 1,
'axx' => 1,
'aya' => 1,
'ayb' => 1,
'ayd' => 1,
'aye' => 1,
'ayg' => 1,
'ayi' => 1,
'ayk' => 1,
'ayo' => 1,
'ayq' => 1,
'ays' => 1,
'ayt' => 1,
'ayu' => 1,
'ayx' => 1,
'ayy' => 1,
'ayz' => 1,
'aza' => 1,
'azc' => 1,
'azg' => 1,
'azm' => 1,
'azo' => 1,
'azt' => 1,
'azz' => 1,
'baa' => 1,
'bab' => 1,
'bac' => 1,
'bad' => 1,
'bae' => 1,
'baf' => 1,
'bag' => 1,
'bah' => 1,
'bai' => 1,
'baj' => 1,
'bal' => 1,
'ban' => 1,
'bao' => 1,
'bap' => 1,
'bar' => 1,
'bas' => 1,
'bat' => 1,
'bau' => 1,
'bav' => 1,
'baw' => 1,
'bax' => 1,
'bay' => 1,
'baz' => 1,
'bba' => 1,
'bbb' => 1,
'bbc' => 1,
'bbd' => 1,
'bbe' => 1,
'bbf' => 1,
'bbg' => 1,
'bbh' => 1,
'bbi' => 1,
'bbj' => 1,
'bbk' => 1,
'bbl' => 1,
'bbm' => 1,
'bbn' => 1,
'bbo' => 1,
'bbp' => 1,
'bbq' => 1,
'bbr' => 1,
'bbs' => 1,
'bbt' => 1,
'bbu' => 1,
'bbv' => 1,
'bbw' => 1,
'bbx' => 1,
'bby' => 1,
'bca' => 1,
'bcb' => 1,
'bcd' => 1,
'bce' => 1,
'bcf' => 1,
'bcg' => 1,
'bch' => 1,
'bci' => 1,
'bcj' => 1,
'bck' => 1,
'bcm' => 1,
'bcn' => 1,
'bco' => 1,
'bcp' => 1,
'bcq' => 1,
'bcr' => 1,
'bcs' => 1,
'bct' => 1,
'bcu' => 1,
'bcv' => 1,
'bcw' => 1,
'bcy' => 1,
'bcz' => 1,
'bda' => 1,
'bdb' => 1,
'bdc' => 1,
'bdd' => 1,
'bde' => 1,
'bdg' => 1,
'bdh' => 1,
'bdi' => 1,
'bdj' => 1,
'bdk' => 1,
'bdl' => 1,
'bdm' => 1,
'bdn' => 1,
'bdo' => 1,
'bdp' => 1,
'bdq' => 1,
'bdr' => 1,
'bds' => 1,
'bdu' => 1,
'bdv' => 1,
'bdw' => 1,
'bdx' => 1,
'bdy' => 1,
'bdz' => 1,
'bea' => 1,
'beb' => 1,
'bec' => 1,
'bed' => 1,
'bee' => 1,
'bef' => 1,
'beg' => 1,
'beh' => 1,
'bei' => 1,
'bej' => 1,
'bek' => 1,
'bem' => 1,
'beo' => 1,
'bep' => 1,
'beq' => 1,
'ber' => 1,
'bes' => 1,
'bet' => 1,
'beu' => 1,
'bev' => 1,
'bew' => 1,
'bex' => 1,
'bey' => 1,
'bez' => 1,
'bfa' => 1,
'bfb' => 1,
'bfc' => 1,
'bfd' => 1,
'bfe' => 1,
'bff' => 1,
'bfg' => 1,
'bfh' => 1,
'bfi' => 1,
'bfj' => 1,
'bfk' => 1,
'bfl' => 1,
'bfm' => 1,
'bfn' => 1,
'bfo' => 1,
'bfp' => 1,
'bfq' => 1,
'bfr' => 1,
'bfs' => 1,
'bft' => 1,
'bfu' => 1,
'bfw' => 1,
'bfy' => 1,
'bfz' => 1,
'bga' => 1,
'bgb' => 1,
'bgc' => 1,
'bgd' => 1,
'bge' => 1,
'bgf' => 1,
'bgg' => 1,
'bgi' => 1,
'bgj' => 1,
'bgk' => 1,
'bgl' => 1,
'bgm' => 1,
'bgo' => 1,
'bgr' => 1,
'bgs' => 1,
'bgt' => 1,
'bgu' => 1,
'bgv' => 1,
'bgw' => 1,
'bgx' => 1,
'bgy' => 1,
'bgz' => 1,
'bha' => 1,
'bhb' => 1,
'bhc' => 1,
'bhd' => 1,
'bhe' => 1,
'bhf' => 1,
'bhg' => 1,
'bhh' => 1,
'bhi' => 1,
'bhj' => 1,
'bhl' => 1,
'bhm' => 1,
'bhn' => 1,
'bho' => 1,
'bhp' => 1,
'bhq' => 1,
'bhs' => 1,
'bht' => 1,
'bhu' => 1,
'bhv' => 1,
'bhw' => 1,
'bhx' => 1,
'bhy' => 1,
'bhz' => 1,
'bia' => 1,
'bib' => 1,
'bic' => 1,
'bid' => 1,
'bie' => 1,
'bif' => 1,
'big' => 1,
'bij' => 1,
'bik' => 1,
'bil' => 1,
'bim' => 1,
'bin' => 1,
'bio' => 1,
'bip' => 1,
'biq' => 1,
'bir' => 1,
'bit' => 1,
'biu' => 1,
'biv' => 1,
'biw' => 1,
'bix' => 1,
'biy' => 1,
'biz' => 1,
'bja' => 1,
'bjb' => 1,
'bjc' => 1,
'bjd' => 1,
'bje' => 1,
'bjf' => 1,
'bjg' => 1,
'bjh' => 1,
'bji' => 1,
'bjj' => 1,
'bjk' => 1,
'bjl' => 1,
'bjm' => 1,
'bjo' => 1,
'bjr' => 1,
'bjs' => 1,
'bjt' => 1,
'bju' => 1,
'bjv' => 1,
'bjw' => 1,
'bjx' => 1,
'bjy' => 1,
'bjz' => 1,
'bka' => 1,
'bkb' => 1,
'bkc' => 1,
'bkd' => 1,
'bkf' => 1,
'bkg' => 1,
'bkh' => 1,
'bki' => 1,
'bkj' => 1,
'bkk' => 1,
'bkl' => 1,
'bkm' => 1,
'bkn' => 1,
'bko' => 1,
'bkp' => 1,
'bkq' => 1,
'bkr' => 1,
'bks' => 1,
'bkt' => 1,
'bku' => 1,
'bkv' => 1,
'bkw' => 1,
'bkx' => 1,
'bky' => 1,
'bkz' => 1,
'bla' => 1,
'blb' => 1,
'blc' => 1,
'bld' => 1,
'ble' => 1,
'blf' => 1,
'blg' => 1,
'blh' => 1,
'bli' => 1,
'blj' => 1,
'blk' => 1,
'bll' => 1,
'blm' => 1,
'blo' => 1,
'blp' => 1,
'blq' => 1,
'blr' => 1,
'bls' => 1,
'blt' => 1,
'blv' => 1,
'blw' => 1,
'blx' => 1,
'bly' => 1,
'blz' => 1,
'bma' => 1,
'bmb' => 1,
'bmc' => 1,
'bmd' => 1,
'bme' => 1,
'bmf' => 1,
'bmg' => 1,
'bmh' => 1,
'bmi' => 1,
'bmj' => 1,
'bmk' => 1,
'bml' => 1,
'bmn' => 1,
'bmo' => 1,
'bmp' => 1,
'bmq' => 1,
'bmr' => 1,
'bms' => 1,
'bmt' => 1,
'bmu' => 1,
'bmv' => 1,
'bmw' => 1,
'bmx' => 1,
'bmy' => 1,
'bmz' => 1,
'bna' => 1,
'bnb' => 1,
'bnc' => 1,
'bnd' => 1,
'bne' => 1,
'bnf' => 1,
'bng' => 1,
'bni' => 1,
'bnj' => 1,
'bnk' => 1,
'bnl' => 1,
'bnm' => 1,
'bnn' => 1,
'bno' => 1,
'bnp' => 1,
'bnq' => 1,
'bnr' => 1,
'bns' => 1,
'bnt' => 1,
'bnu' => 1,
'bnv' => 1,
'bnw' => 1,
'bnx' => 1,
'bny' => 1,
'bnz' => 1,
'boa' => 1,
'bob' => 1,
'boe' => 1,
'bof' => 1,
'bog' => 1,
'boh' => 1,
'boi' => 1,
'boj' => 1,
'bok' => 1,
'bol' => 1,
'bom' => 1,
'bon' => 1,
'boo' => 1,
'bop' => 1,
'boq' => 1,
'bor' => 1,
'bot' => 1,
'bou' => 1,
'bov' => 1,
'bow' => 1,
'box' => 1,
'boy' => 1,
'boz' => 1,
'bpa' => 1,
'bpb' => 1,
'bpd' => 1,
'bpg' => 1,
'bph' => 1,
'bpi' => 1,
'bpj' => 1,
'bpk' => 1,
'bpl' => 1,
'bpm' => 1,
'bpn' => 1,
'bpo' => 1,
'bpp' => 1,
'bpq' => 1,
'bpr' => 1,
'bps' => 1,
'bpt' => 1,
'bpu' => 1,
'bpv' => 1,
'bpw' => 1,
'bpx' => 1,
'bpy' => 1,
'bpz' => 1,
'bqa' => 1,
'bqb' => 1,
'bqc' => 1,
'bqd' => 1,
'bqf' => 1,
'bqg' => 1,
'bqh' => 1,
'bqi' => 1,
'bqj' => 1,
'bqk' => 1,
'bql' => 1,
'bqm' => 1,
'bqn' => 1,
'bqo' => 1,
'bqp' => 1,
'bqq' => 1,
'bqr' => 1,
'bqs' => 1,
'bqt' => 1,
'bqu' => 1,
'bqv' => 1,
'bqw' => 1,
'bqx' => 1,
'bqy' => 1,
'bqz' => 1,
'bra' => 1,
'brb' => 1,
'brc' => 1,
'brd' => 1,
'brf' => 1,
'brg' => 1,
'brh' => 1,
'bri' => 1,
'brj' => 1,
'brk' => 1,
'brl' => 1,
'brm' => 1,
'brn' => 1,
'bro' => 1,
'brp' => 1,
'brq' => 1,
'brr' => 1,
'brs' => 1,
'brt' => 1,
'bru' => 1,
'brv' => 1,
'brw' => 1,
'brx' => 1,
'bry' => 1,
'brz' => 1,
'bsa' => 1,
'bsb' => 1,
'bsc' => 1,
'bse' => 1,
'bsf' => 1,
'bsg' => 1,
'bsh' => 1,
'bsi' => 1,
'bsj' => 1,
'bsk' => 1,
'bsl' => 1,
'bsm' => 1,
'bsn' => 1,
'bso' => 1,
'bsp' => 1,
'bsq' => 1,
'bsr' => 1,
'bss' => 1,
'bst' => 1,
'bsu' => 1,
'bsv' => 1,
'bsw' => 1,
'bsx' => 1,
'bsy' => 1,
'bta' => 1,
'btb' => 1,
'btc' => 1,
'btd' => 1,
'bte' => 1,
'btf' => 1,
'btg' => 1,
'bth' => 1,
'bti' => 1,
'btk' => 1,
'btl' => 1,
'btm' => 1,
'btn' => 1,
'btp' => 1,
'btq' => 1,
'btr' => 1,
'bts' => 1,
'btt' => 1,
'btu' => 1,
'btv' => 1,
'btw' => 1,
'btx' => 1,
'bty' => 1,
'btz' => 1,
'bua' => 1,
'bub' => 1,
'buc' => 1,
'bud' => 1,
'bue' => 1,
'buf' => 1,
'bug' => 1,
'buh' => 1,
'bui' => 1,
'buj' => 1,
'buk' => 1,
'bum' => 1,
'bun' => 1,
'buo' => 1,
'bup' => 1,
'buq' => 1,
'bus' => 1,
'but' => 1,
'buu' => 1,
'buv' => 1,
'buw' => 1,
'bux' => 1,
'buy' => 1,
'buz' => 1,
'bva' => 1,
'bvb' => 1,
'bvc' => 1,
'bvd' => 1,
'bvf' => 1,
'bvg' => 1,
'bvh' => 1,
'bvi' => 1,
'bvj' => 1,
'bvk' => 1,
'bvl' => 1,
'bvm' => 1,
'bvn' => 1,
'bvo' => 1,
'bvq' => 1,
'bvr' => 1,
'bvt' => 1,
'bvv' => 1,
'bvw' => 1,
'bvx' => 1,
'bvz' => 1,
'bwa' => 1,
'bwb' => 1,
'bwc' => 1,
'bwd' => 1,
'bwe' => 1,
'bwf' => 1,
'bwg' => 1,
'bwh' => 1,
'bwi' => 1,
'bwj' => 1,
'bwk' => 1,
'bwl' => 1,
'bwm' => 1,
'bwn' => 1,
'bwo' => 1,
'bwp' => 1,
'bwq' => 1,
'bwr' => 1,
'bws' => 1,
'bwt' => 1,
'bwu' => 1,
'bww' => 1,
'bwx' => 1,
'bwy' => 1,
'bwz' => 1,
'bxa' => 1,
'bxb' => 1,
'bxc' => 1,
'bxd' => 1,
'bxe' => 1,
'bxf' => 1,
'bxg' => 1,
'bxh' => 1,
'bxi' => 1,
'bxj' => 1,
'bxl' => 1,
'bxn' => 1,
'bxo' => 1,
'bxp' => 1,
'bxq' => 1,
'bxs' => 1,
'bxv' => 1,
'bxw' => 1,
'bxx' => 1,
'bxz' => 1,
'bya' => 1,
'byb' => 1,
'byc' => 1,
'byd' => 1,
'bye' => 1,
'byf' => 1,
'byg' => 1,
'byh' => 1,
'byi' => 1,
'byj' => 1,
'byk' => 1,
'byl' => 1,
'bym' => 1,
'byn' => 1,
'byo' => 1,
'byp' => 1,
'byq' => 1,
'byr' => 1,
'bys' => 1,
'byt' => 1,
'byv' => 1,
'byw' => 1,
'byx' => 1,
'byy' => 1,
'byz' => 1,
'bza' => 1,
'bzb' => 1,
'bzd' => 1,
'bze' => 1,
'bzf' => 1,
'bzg' => 1,
'bzh' => 1,
'bzi' => 1,
'bzj' => 1,
'bzk' => 1,
'bzl' => 1,
'bzm' => 1,
'bzn' => 1,
'bzo' => 1,
'bzp' => 1,
'bzq' => 1,
'bzr' => 1,
'bzs' => 1,
'bzt' => 1,
'bzu' => 1,
'bzv' => 1,
'bzw' => 1,
'bzx' => 1,
'bzy' => 1,
'bzz' => 1,
'caa' => 1,
'cab' => 1,
'cac' => 1,
'cad' => 1,
'cae' => 1,
'caf' => 1,
'cag' => 1,
'cah' => 1,
'cai' => 1,
'caj' => 1,
'cak' => 1,
'cal' => 1,
'cam' => 1,
'can' => 1,
'cao' => 1,
'cap' => 1,
'caq' => 1,
'car' => 1,
'cas' => 1,
'cau' => 1,
'cav' => 1,
'caw' => 1,
'cax' => 1,
'cay' => 1,
'caz' => 1,
'cba' => 1,
'cbb' => 1,
'cbc' => 1,
'cbd' => 1,
'cbe' => 1,
'cbg' => 1,
'cbh' => 1,
'cbi' => 1,
'cbj' => 1,
'cbk' => 1,
'cbl' => 1,
'cbn' => 1,
'cbo' => 1,
'cbr' => 1,
'cbs' => 1,
'cbt' => 1,
'cbu' => 1,
'cbv' => 1,
'cby' => 1,
'cca' => 1,
'ccc' => 1,
'ccd' => 1,
'cce' => 1,
'ccg' => 1,
'cch' => 1,
'ccj' => 1,
'ccl' => 1,
'ccm' => 1,
'ccn' => 1,
'cco' => 1,
'ccp' => 1,
'ccq' => 1,
'ccr' => 1,
'ccs' => 1,
'cda' => 1,
'cdc' => 1,
'cdd' => 1,
'cde' => 1,
'cdf' => 1,
'cdg' => 1,
'cdh' => 1,
'cdi' => 1,
'cdj' => 1,
'cdm' => 1,
'cdn' => 1,
'cdr' => 1,
'cds' => 1,
'cdy' => 1,
'cdz' => 1,
'cea' => 1,
'ceb' => 1,
'ceg' => 1,
'cel' => 1,
'cen' => 1,
'cet' => 1,
'cfa' => 1,
'cfd' => 1,
'cfg' => 1,
'cfm' => 1,
'cga' => 1,
'cgc' => 1,
'cgg' => 1,
'cgk' => 1,
'chb' => 1,
'chc' => 1,
'chd' => 1,
'chf' => 1,
'chg' => 1,
'chh' => 1,
'chj' => 1,
'chk' => 1,
'chl' => 1,
'chm' => 1,
'chn' => 1,
'cho' => 1,
'chp' => 1,
'chq' => 1,
'chr' => 1,
'cht' => 1,
'chw' => 1,
'chx' => 1,
'chy' => 1,
'chz' => 1,
'cia' => 1,
'cib' => 1,
'cic' => 1,
'cid' => 1,
'cie' => 1,
'cih' => 1,
'cik' => 1,
'cim' => 1,
'cin' => 1,
'cip' => 1,
'cir' => 1,
'ciy' => 1,
'cja' => 1,
'cje' => 1,
'cjh' => 1,
'cji' => 1,
'cjk' => 1,
'cjm' => 1,
'cjn' => 1,
'cjo' => 1,
'cjp' => 1,
'cjr' => 1,
'cjs' => 1,
'cjv' => 1,
'cka' => 1,
'ckh' => 1,
'ckl' => 1,
'cko' => 1,
'ckq' => 1,
'ckr' => 1,
'cks' => 1,
'ckt' => 1,
'cku' => 1,
'ckv' => 1,
'ckx' => 1,
'cky' => 1,
'ckz' => 1,
'cla' => 1,
'clc' => 1,
'cle' => 1,
'clh' => 1,
'cli' => 1,
'clk' => 1,
'cll' => 1,
'clm' => 1,
'clo' => 1,
'clu' => 1,
'clw' => 1,
'cly' => 1,
'cma' => 1,
'cmc' => 1,
'cme' => 1,
'cmg' => 1,
'cmi' => 1,
'cmk' => 1,
'cml' => 1,
'cmm' => 1,
'cmo' => 1,
'cmr' => 1,
'cms' => 1,
'cmt' => 1,
'cna' => 1,
'cnb' => 1,
'cnc' => 1,
'cng' => 1,
'cnh' => 1,
'cni' => 1,
'cnk' => 1,
'cnl' => 1,
'cno' => 1,
'cns' => 1,
'cnt' => 1,
'cnu' => 1,
'cnw' => 1,
'cnx' => 1,
'cob' => 1,
'coc' => 1,
'cod' => 1,
'coe' => 1,
'cof' => 1,
'cog' => 1,
'coh' => 1,
'coj' => 1,
'cok' => 1,
'col' => 1,
'com' => 1,
'con' => 1,
'coo' => 1,
'cop' => 1,
'coq' => 1,
'cot' => 1,
'cou' => 1,
'cov' => 1,
'cow' => 1,
'cox' => 1,
'coy' => 1,
'coz' => 1,
'cpa' => 1,
'cpb' => 1,
'cpc' => 1,
'cpe' => 1,
'cpf' => 1,
'cpg' => 1,
'cpi' => 1,
'cpn' => 1,
'cpp' => 1,
'cps' => 1,
'cpu' => 1,
'cpy' => 1,
'cra' => 1,
'crb' => 1,
'crc' => 1,
'crd' => 1,
'crf' => 1,
'crg' => 1,
'crh' => 1,
'cri' => 1,
'crn' => 1,
'cro' => 1,
'crp' => 1,
'crq' => 1,
'crr' => 1,
'crs' => 1,
'crt' => 1,
'crv' => 1,
'crw' => 1,
'crx' => 1,
'cry' => 1,
'crz' => 1,
'csa' => 1,
'csb' => 1,
'csc' => 1,
'csd' => 1,
'cse' => 1,
'csf' => 1,
'csg' => 1,
'csh' => 1,
'csi' => 1,
'csk' => 1,
'csl' => 1,
'csm' => 1,
'csn' => 1,
'cso' => 1,
'csq' => 1,
'csr' => 1,
'css' => 1,
'cst' => 1,
'csu' => 1,
'csy' => 1,
'csz' => 1,
'cta' => 1,
'ctc' => 1,
'ctd' => 1,
'cte' => 1,
'ctg' => 1,
'ctl' => 1,
'ctm' => 1,
'ctn' => 1,
'cto' => 1,
'ctp' => 1,
'ctt' => 1,
'ctu' => 1,
'ctz' => 1,
'cua' => 1,
'cub' => 1,
'cuc' => 1,
'cug' => 1,
'cuh' => 1,
'cui' => 1,
'cuj' => 1,
'cuk' => 1,
'cul' => 1,
'cum' => 1,
'cuo' => 1,
'cup' => 1,
'cuq' => 1,
'cur' => 1,
'cus' => 1,
'cut' => 1,
'cuu' => 1,
'cuv' => 1,
'cuw' => 1,
'cux' => 1,
'cvg' => 1,
'cvn' => 1,
'cwa' => 1,
'cwb' => 1,
'cwe' => 1,
'cwg' => 1,
'cwt' => 1,
'cya' => 1,
'cyb' => 1,
'cyo' => 1,
'czk' => 1,
'czn' => 1,
'czt' => 1,
'daa' => 1,
'dac' => 1,
'dad' => 1,
'dae' => 1,
'daf' => 1,
'dag' => 1,
'dah' => 1,
'dai' => 1,
'daj' => 1,
'dak' => 1,
'dal' => 1,
'dam' => 1,
'dao' => 1,
'dap' => 1,
'daq' => 1,
'dar' => 1,
'das' => 1,
'dau' => 1,
'dav' => 1,
'daw' => 1,
'dax' => 1,
'day' => 1,
'daz' => 1,
'dba' => 1,
'dbb' => 1,
'dbd' => 1,
'dbe' => 1,
'dbf' => 1,
'dbg' => 1,
'dbi' => 1,
'dbj' => 1,
'dbl' => 1,
'dbm' => 1,
'dbn' => 1,
'dbo' => 1,
'dbp' => 1,
'dbq' => 1,
'dbr' => 1,
'dbu' => 1,
'dbv' => 1,
'dby' => 1,
'dcc' => 1,
'dcr' => 1,
'ddd' => 1,
'dde' => 1,
'ddg' => 1,
'ddi' => 1,
'ddj' => 1,
'ddn' => 1,
'ddo' => 1,
'dds' => 1,
'ddw' => 1,
'dec' => 1,
'ded' => 1,
'dee' => 1,
'def' => 1,
'deg' => 1,
'deh' => 1,
'dei' => 1,
'dek' => 1,
'del' => 1,
'dem' => 1,
'den' => 1,
'dep' => 1,
'deq' => 1,
'der' => 1,
'des' => 1,
'dev' => 1,
'dez' => 1,
'dga' => 1,
'dgb' => 1,
'dgc' => 1,
'dgd' => 1,
'dge' => 1,
'dgg' => 1,
'dgh' => 1,
'dgi' => 1,
'dgk' => 1,
'dgn' => 1,
'dgr' => 1,
'dgs' => 1,
'dgu' => 1,
'dgx' => 1,
'dgz' => 1,
'dha' => 1,
'dhg' => 1,
'dhi' => 1,
'dhl' => 1,
'dhm' => 1,
'dhn' => 1,
'dho' => 1,
'dhr' => 1,
'dhs' => 1,
'dhu' => 1,
'dhv' => 1,
'dhw' => 1,
'dia' => 1,
'dic' => 1,
'did' => 1,
'dif' => 1,
'dig' => 1,
'dih' => 1,
'dii' => 1,
'dij' => 1,
'dil' => 1,
'dim' => 1,
'din' => 1,
'dio' => 1,
'dir' => 1,
'dis' => 1,
'dit' => 1,
'diu' => 1,
'dix' => 1,
'diy' => 1,
'diz' => 1,
'djb' => 1,
'djc' => 1,
'djd' => 1,
'dje' => 1,
'djf' => 1,
'dji' => 1,
'djj' => 1,
'djk' => 1,
'djl' => 1,
'djm' => 1,
'djn' => 1,
'djo' => 1,
'djr' => 1,
'dju' => 1,
'djw' => 1,
'dka' => 1,
'dkk' => 1,
'dkl' => 1,
'dkr' => 1,
'dkx' => 1,
'dlg' => 1,
'dlm' => 1,
'dln' => 1,
'dma' => 1,
'dmc' => 1,
'dme' => 1,
'dmg' => 1,
'dmk' => 1,
'dml' => 1,
'dmm' => 1,
'dmn' => 1,
'dmo' => 1,
'dmr' => 1,
'dms' => 1,
'dmu' => 1,
'dmv' => 1,
'dmx' => 1,
'dmy' => 1,
'dna' => 1,
'dnd' => 1,
'dne' => 1,
'dng' => 1,
'dni' => 1,
'dnk' => 1,
'dnn' => 1,
'dnr' => 1,
'dnt' => 1,
'dnu' => 1,
'dnw' => 1,
'dny' => 1,
'doa' => 1,
'dob' => 1,
'doc' => 1,
'doe' => 1,
'dof' => 1,
'doh' => 1,
'doi' => 1,
'dok' => 1,
'dol' => 1,
'don' => 1,
'doo' => 1,
'dop' => 1,
'doq' => 1,
'dor' => 1,
'dos' => 1,
'dot' => 1,
'dov' => 1,
'dow' => 1,
'dox' => 1,
'doy' => 1,
'doz' => 1,
'dpp' => 1,
'dra' => 1,
'drb' => 1,
'drd' => 1,
'dre' => 1,
'drg' => 1,
'drh' => 1,
'dri' => 1,
'drl' => 1,
'drn' => 1,
'dro' => 1,
'drq' => 1,
'drr' => 1,
'drs' => 1,
'drt' => 1,
'dru' => 1,
'drw' => 1,
'dry' => 1,
'dsb' => 1,
'dse' => 1,
'dsh' => 1,
'dsi' => 1,
'dsl' => 1,
'dsn' => 1,
'dso' => 1,
'dsq' => 1,
'dta' => 1,
'dtb' => 1,
'dti' => 1,
'dtk' => 1,
'dtm' => 1,
'dtp' => 1,
'dtr' => 1,
'dts' => 1,
'dtt' => 1,
'dtu' => 1,
'dua' => 1,
'dub' => 1,
'duc' => 1,
'dud' => 1,
'due' => 1,
'duf' => 1,
'dug' => 1,
'duh' => 1,
'dui' => 1,
'duj' => 1,
'duk' => 1,
'dul' => 1,
'dum' => 1,
'dun' => 1,
'duo' => 1,
'duq' => 1,
'dur' => 1,
'dus' => 1,
'duu' => 1,
'duv' => 1,
'duw' => 1,
'dux' => 1,
'duy' => 1,
'duz' => 1,
'dva' => 1,
'dwa' => 1,
'dwl' => 1,
'dwr' => 1,
'dws' => 1,
'dww' => 1,
'dya' => 1,
'dyb' => 1,
'dyd' => 1,
'dyg' => 1,
'dyi' => 1,
'dym' => 1,
'dyn' => 1,
'dyo' => 1,
'dyu' => 1,
'dyy' => 1,
'dza' => 1,
'dzd' => 1,
'dzg' => 1,
'dzl' => 1,
'dzn' => 1,
'ebg' => 1,
'ebo' => 1,
'ebr' => 1,
'ebu' => 1,
'ecr' => 1,
'ecs' => 1,
'ecy' => 1,
'eee' => 1,
'efa' => 1,
'efe' => 1,
'efi' => 1,
'ega' => 1,
'egl' => 1,
'ego' => 1,
'egx' => 1,
'egy' => 1,
'ehu' => 1,
'eip' => 1,
'eit' => 1,
'eiv' => 1,
'eja' => 1,
'eka' => 1,
'eke' => 1,
'ekg' => 1,
'eki' => 1,
'ekl' => 1,
'ekm' => 1,
'eko' => 1,
'ekp' => 1,
'ekr' => 1,
'eky' => 1,
'ele' => 1,
'elh' => 1,
'eli' => 1,
'elk' => 1,
'elm' => 1,
'elo' => 1,
'elp' => 1,
'elu' => 1,
'elx' => 1,
'ema' => 1,
'emb' => 1,
'eme' => 1,
'emg' => 1,
'emi' => 1,
'emm' => 1,
'emn' => 1,
'emo' => 1,
'emp' => 1,
'ems' => 1,
'emu' => 1,
'emw' => 1,
'emy' => 1,
'ena' => 1,
'enc' => 1,
'end' => 1,
'enf' => 1,
'enh' => 1,
'enm' => 1,
'enn' => 1,
'eno' => 1,
'enq' => 1,
'enr' => 1,
'enu' => 1,
'env' => 1,
'enw' => 1,
'eot' => 1,
'epi' => 1,
'era' => 1,
'erg' => 1,
'erh' => 1,
'eri' => 1,
'erk' => 1,
'ero' => 1,
'err' => 1,
'ers' => 1,
'ert' => 1,
'erw' => 1,
'ese' => 1,
'esh' => 1,
'esl' => 1,
'esm' => 1,
'esn' => 1,
'eso' => 1,
'esq' => 1,
'ess' => 1,
'esu' => 1,
'esx' => 1,
'etb' => 1,
'etc' => 1,
'eth' => 1,
'etn' => 1,
'eto' => 1,
'etr' => 1,
'ets' => 1,
'ett' => 1,
'etu' => 1,
'etx' => 1,
'etz' => 1,
'euq' => 1,
'eve' => 1,
'evh' => 1,
'evn' => 1,
'ewo' => 1,
'ext' => 1,
'eya' => 1,
'eze' => 1,
'faa' => 1,
'fab' => 1,
'fad' => 1,
'faf' => 1,
'fag' => 1,
'fah' => 1,
'fai' => 1,
'faj' => 1,
'fak' => 1,
'fal' => 1,
'fam' => 1,
'fan' => 1,
'fap' => 1,
'far' => 1,
'fau' => 1,
'fax' => 1,
'fay' => 1,
'faz' => 1,
'fcs' => 1,
'fer' => 1,
'ffi' => 1,
'fgr' => 1,
'fia' => 1,
'fie' => 1,
'fil' => 1,
'fip' => 1,
'fir' => 1,
'fit' => 1,
'fiu' => 1,
'fiw' => 1,
'fkv' => 1,
'fla' => 1,
'flh' => 1,
'fli' => 1,
'fll' => 1,
'fln' => 1,
'flr' => 1,
'fly' => 1,
'fmp' => 1,
'fmu' => 1,
'fng' => 1,
'fni' => 1,
'fod' => 1,
'foi' => 1,
'fom' => 1,
'fon' => 1,
'for' => 1,
'fos' => 1,
'fox' => 1,
'fpe' => 1,
'fqs' => 1,
'frc' => 1,
'frd' => 1,
'frk' => 1,
'frm' => 1,
'fro' => 1,
'frp' => 1,
'frq' => 1,
'frr' => 1,
'frs' => 1,
'frt' => 1,
'fse' => 1,
'fsl' => 1,
'fss' => 1,
'fud' => 1,
'fuj' => 1,
'fum' => 1,
'fun' => 1,
'fur' => 1,
'fut' => 1,
'fuu' => 1,
'fuy' => 1,
'fvr' => 1,
'fwa' => 1,
'fwe' => 1,
'gaa' => 1,
'gab' => 1,
'gad' => 1,
'gae' => 1,
'gaf' => 1,
'gag' => 1,
'gah' => 1,
'gai' => 1,
'gaj' => 1,
'gak' => 1,
'gal' => 1,
'gam' => 1,
'gao' => 1,
'gap' => 1,
'gaq' => 1,
'gar' => 1,
'gas' => 1,
'gat' => 1,
'gau' => 1,
'gav' => 1,
'gaw' => 1,
'gay' => 1,
'gba' => 1,
'gbb' => 1,
'gbc' => 1,
'gbd' => 1,
'gbe' => 1,
'gbf' => 1,
'gbg' => 1,
'gbh' => 1,
'gbi' => 1,
'gbj' => 1,
'gbk' => 1,
'gbl' => 1,
'gbm' => 1,
'gbn' => 1,
'gbr' => 1,
'gbs' => 1,
'gbu' => 1,
'gbv' => 1,
'gbx' => 1,
'gby' => 1,
'gbz' => 1,
'gcc' => 1,
'gcd' => 1,
'gce' => 1,
'gcf' => 1,
'gcl' => 1,
'gcn' => 1,
'gcr' => 1,
'gct' => 1,
'gdb' => 1,
'gdc' => 1,
'gdd' => 1,
'gde' => 1,
'gdf' => 1,
'gdg' => 1,
'gdh' => 1,
'gdi' => 1,
'gdj' => 1,
'gdk' => 1,
'gdl' => 1,
'gdm' => 1,
'gdn' => 1,
'gdo' => 1,
'gdq' => 1,
'gdr' => 1,
'gdu' => 1,
'gdx' => 1,
'gea' => 1,
'geb' => 1,
'ged' => 1,
'geg' => 1,
'geh' => 1,
'gei' => 1,
'gej' => 1,
'gek' => 1,
'gel' => 1,
'gem' => 1,
'geq' => 1,
'ges' => 1,
'gew' => 1,
'gex' => 1,
'gey' => 1,
'gez' => 1,
'gfk' => 1,
'gft' => 1,
'gga' => 1,
'ggb' => 1,
'ggd' => 1,
'gge' => 1,
'ggg' => 1,
'ggk' => 1,
'ggl' => 1,
'ggn' => 1,
'ggr' => 1,
'ggt' => 1,
'ggu' => 1,
'ggw' => 1,
'gha' => 1,
'ghc' => 1,
'ghe' => 1,
'ghh' => 1,
'ghk' => 1,
'ghl' => 1,
'ghn' => 1,
'gho' => 1,
'ghr' => 1,
'ghs' => 1,
'ght' => 1,
'gia' => 1,
'gib' => 1,
'gic' => 1,
'gid' => 1,
'gig' => 1,
'gil' => 1,
'gim' => 1,
'gin' => 1,
'gio' => 1,
'gip' => 1,
'giq' => 1,
'gir' => 1,
'gis' => 1,
'git' => 1,
'giw' => 1,
'gix' => 1,
'giy' => 1,
'giz' => 1,
'gji' => 1,
'gjk' => 1,
'gjn' => 1,
'gka' => 1,
'gke' => 1,
'gkn' => 1,
'glc' => 1,
'gld' => 1,
'glh' => 1,
'gli' => 1,
'glj' => 1,
'glk' => 1,
'glo' => 1,
'glr' => 1,
'glu' => 1,
'glw' => 1,
'gly' => 1,
'gma' => 1,
'gmb' => 1,
'gmd' => 1,
'gme' => 1,
'gmh' => 1,
'gml' => 1,
'gmn' => 1,
'gmq' => 1,
'gmu' => 1,
'gmv' => 1,
'gmw' => 1,
'gmx' => 1,
'gmy' => 1,
'gna' => 1,
'gnb' => 1,
'gnc' => 1,
'gnd' => 1,
'gne' => 1,
'gng' => 1,
'gnh' => 1,
'gni' => 1,
'gnk' => 1,
'gnl' => 1,
'gnm' => 1,
'gnn' => 1,
'gnq' => 1,
'gnr' => 1,
'gnt' => 1,
'gnu' => 1,
'gnz' => 1,
'goa' => 1,
'gob' => 1,
'goc' => 1,
'god' => 1,
'goe' => 1,
'gof' => 1,
'gog' => 1,
'goh' => 1,
'goi' => 1,
'goj' => 1,
'gok' => 1,
'gol' => 1,
'gon' => 1,
'goo' => 1,
'gop' => 1,
'goq' => 1,
'gor' => 1,
'gos' => 1,
'got' => 1,
'gou' => 1,
'gow' => 1,
'gox' => 1,
'goy' => 1,
'goz' => 1,
'gpa' => 1,
'gpn' => 1,
'gqa' => 1,
'gqi' => 1,
'gqn' => 1,
'gqr' => 1,
'gra' => 1,
'grb' => 1,
'grc' => 1,
'grd' => 1,
'grg' => 1,
'grh' => 1,
'gri' => 1,
'grk' => 1,
'grm' => 1,
'gro' => 1,
'grq' => 1,
'grr' => 1,
'grs' => 1,
'grt' => 1,
'gru' => 1,
'grw' => 1,
'grx' => 1,
'grz' => 1,
'gse' => 1,
'gsg' => 1,
'gsl' => 1,
'gsm' => 1,
'gsn' => 1,
'gsp' => 1,
'gss' => 1,
'gsw' => 1,
'gta' => 1,
'gti' => 1,
'gua' => 1,
'gub' => 1,
'guc' => 1,
'gud' => 1,
'gue' => 1,
'guf' => 1,
'guh' => 1,
'guk' => 1,
'gul' => 1,
'gum' => 1,
'guo' => 1,
'gup' => 1,
'guq' => 1,
'gur' => 1,
'gus' => 1,
'gut' => 1,
'guu' => 1,
'guv' => 1,
'guw' => 1,
'gux' => 1,
'guz' => 1,
'gva' => 1,
'gvc' => 1,
'gve' => 1,
'gvf' => 1,
'gvj' => 1,
'gvl' => 1,
'gvm' => 1,
'gvn' => 1,
'gvo' => 1,
'gvp' => 1,
'gvr' => 1,
'gvs' => 1,
'gvy' => 1,
'gwa' => 1,
'gwb' => 1,
'gwc' => 1,
'gwd' => 1,
'gwe' => 1,
'gwf' => 1,
'gwg' => 1,
'gwi' => 1,
'gwj' => 1,
'gwn' => 1,
'gwr' => 1,
'gwt' => 1,
'gwu' => 1,
'gww' => 1,
'gwx' => 1,
'gxx' => 1,
'gyb' => 1,
'gyd' => 1,
'gye' => 1,
'gyf' => 1,
'gyg' => 1,
'gyi' => 1,
'gyl' => 1,
'gym' => 1,
'gyn' => 1,
'gyr' => 1,
'gyy' => 1,
'gza' => 1,
'gzi' => 1,
'gzn' => 1,
'haa' => 1,
'hab' => 1,
'hac' => 1,
'had' => 1,
'haf' => 1,
'hag' => 1,
'hah' => 1,
'hai' => 1,
'haj' => 1,
'hal' => 1,
'ham' => 1,
'han' => 1,
'hao' => 1,
'hap' => 1,
'haq' => 1,
'har' => 1,
'has' => 1,
'hav' => 1,
'haw' => 1,
'hay' => 1,
'haz' => 1,
'hba' => 1,
'hbb' => 1,
'hbn' => 1,
'hbo' => 1,
'hbu' => 1,
'hca' => 1,
'hch' => 1,
'hds' => 1,
'hdy' => 1,
'hed' => 1,
'heg' => 1,
'heh' => 1,
'hei' => 1,
'hem' => 1,
'hgm' => 1,
'hgw' => 1,
'hhi' => 1,
'hhr' => 1,
'hhy' => 1,
'hia' => 1,
'hib' => 1,
'hid' => 1,
'hif' => 1,
'hig' => 1,
'hih' => 1,
'hii' => 1,
'hij' => 1,
'hik' => 1,
'hil' => 1,
'him' => 1,
'hio' => 1,
'hir' => 1,
'hit' => 1,
'hiw' => 1,
'hix' => 1,
'hka' => 1,
'hke' => 1,
'hkk' => 1,
'hks' => 1,
'hla' => 1,
'hlb' => 1,
'hld' => 1,
'hle' => 1,
'hlt' => 1,
'hlu' => 1,
'hmb' => 1,
'hmf' => 1,
'hmk' => 1,
'hmn' => 1,
'hmr' => 1,
'hmt' => 1,
'hmu' => 1,
'hmv' => 1,
'hmx' => 1,
'hmz' => 1,
'hna' => 1,
'hne' => 1,
'hnh' => 1,
'hni' => 1,
'hnn' => 1,
'hns' => 1,
'hnu' => 1,
'hoa' => 1,
'hob' => 1,
'hoc' => 1,
'hod' => 1,
'hoe' => 1,
'hoh' => 1,
'hoi' => 1,
'hok' => 1,
'hol' => 1,
'hom' => 1,
'hoo' => 1,
'hop' => 1,
'hor' => 1,
'hos' => 1,
'hot' => 1,
'hov' => 1,
'how' => 1,
'hoy' => 1,
'hoz' => 1,
'hpo' => 1,
'hps' => 1,
'hra' => 1,
'hre' => 1,
'hrk' => 1,
'hro' => 1,
'hrr' => 1,
'hrt' => 1,
'hru' => 1,
'hrx' => 1,
'hrz' => 1,
'hsb' => 1,
'hsh' => 1,
'hsl' => 1,
'hss' => 1,
'hti' => 1,
'hto' => 1,
'hts' => 1,
'htu' => 1,
'htx' => 1,
'hub' => 1,
'huc' => 1,
'hud' => 1,
'hue' => 1,
'huf' => 1,
'hug' => 1,
'huh' => 1,
'hui' => 1,
'huk' => 1,
'hul' => 1,
'hum' => 1,
'huo' => 1,
'hup' => 1,
'huq' => 1,
'hur' => 1,
'hus' => 1,
'hut' => 1,
'huu' => 1,
'huv' => 1,
'huw' => 1,
'hux' => 1,
'huy' => 1,
'huz' => 1,
'hvc' => 1,
'hve' => 1,
'hvk' => 1,
'hvn' => 1,
'hvv' => 1,
'hwa' => 1,
'hwc' => 1,
'hwo' => 1,
'hya' => 1,
'hyx' => 1,
'iai' => 1,
'ian' => 1,
'iap' => 1,
'iar' => 1,
'iba' => 1,
'ibb' => 1,
'ibd' => 1,
'ibe' => 1,
'ibg' => 1,
'ibi' => 1,
'ibl' => 1,
'ibm' => 1,
'ibn' => 1,
'ibr' => 1,
'ibu' => 1,
'iby' => 1,
'ica' => 1,
'ich' => 1,
'icl' => 1,
'icr' => 1,
'idb' => 1,
'idc' => 1,
'idd' => 1,
'ide' => 1,
'idi' => 1,
'idr' => 1,
'ids' => 1,
'idt' => 1,
'idu' => 1,
'ifa' => 1,
'ifb' => 1,
'ife' => 1,
'iff' => 1,
'ifk' => 1,
'ifm' => 1,
'ifu' => 1,
'ify' => 1,
'igb' => 1,
'ige' => 1,
'igg' => 1,
'igl' => 1,
'igm' => 1,
'ign' => 1,
'igo' => 1,
'igs' => 1,
'igw' => 1,
'ihb' => 1,
'ihi' => 1,
'ihp' => 1,
'iir' => 1,
'ijc' => 1,
'ije' => 1,
'ijj' => 1,
'ijn' => 1,
'ijo' => 1,
'ijs' => 1,
'iki' => 1,
'ikk' => 1,
'ikl' => 1,
'iko' => 1,
'ikp' => 1,
'ikv' => 1,
'ikw' => 1,
'ikx' => 1,
'ikz' => 1,
'ila' => 1,
'ilb' => 1,
'ilg' => 1,
'ili' => 1,
'ilk' => 1,
'ill' => 1,
'ilo' => 1,
'ils' => 1,
'ilu' => 1,
'ilv' => 1,
'ilw' => 1,
'ima' => 1,
'ime' => 1,
'imi' => 1,
'iml' => 1,
'imn' => 1,
'imo' => 1,
'imr' => 1,
'ims' => 1,
'imy' => 1,
'inb' => 1,
'inc' => 1,
'ine' => 1,
'ing' => 1,
'inh' => 1,
'inj' => 1,
'inl' => 1,
'inm' => 1,
'inn' => 1,
'ino' => 1,
'inp' => 1,
'ins' => 1,
'int' => 1,
'inz' => 1,
'ior' => 1,
'iou' => 1,
'iow' => 1,
'ipi' => 1,
'ipo' => 1,
'iqu' => 1,
'ira' => 1,
'ire' => 1,
'irh' => 1,
'iri' => 1,
'irk' => 1,
'irn' => 1,
'iro' => 1,
'irr' => 1,
'iru' => 1,
'irx' => 1,
'iry' => 1,
'isa' => 1,
'isc' => 1,
'isd' => 1,
'ise' => 1,
'isg' => 1,
'ish' => 1,
'isi' => 1,
'ism' => 1,
'isn' => 1,
'iso' => 1,
'isr' => 1,
'ist' => 1,
'isu' => 1,
'itb' => 1,
'itc' => 1,
'ite' => 1,
'iti' => 1,
'itk' => 1,
'itl' => 1,
'itm' => 1,
'ito' => 1,
'itr' => 1,
'its' => 1,
'itt' => 1,
'itv' => 1,
'itw' => 1,
'itx' => 1,
'ity' => 1,
'itz' => 1,
'ium' => 1,
'ivb' => 1,
'ivv' => 1,
'iwk' => 1,
'iwm' => 1,
'iwo' => 1,
'iws' => 1,
'ixc' => 1,
'ixl' => 1,
'iya' => 1,
'iyo' => 1,
'iyx' => 1,
'izh' => 1,
'izi' => 1,
'izr' => 1,
'jaa' => 1,
'jab' => 1,
'jac' => 1,
'jad' => 1,
'jae' => 1,
'jaf' => 1,
'jah' => 1,
'jaj' => 1,
'jal' => 1,
'jam' => 1,
'jao' => 1,
'jaq' => 1,
'jar' => 1,
'jas' => 1,
'jau' => 1,
'jay' => 1,
'jaz' => 1,
'jbe' => 1,
'jbj' => 1,
'jbn' => 1,
'jbo' => 1,
'jbr' => 1,
'jbt' => 1,
'jbu' => 1,
'jcs' => 1,
'jct' => 1,
'jda' => 1,
'jdg' => 1,
'jdt' => 1,
'jeb' => 1,
'jee' => 1,
'jeg' => 1,
'jeh' => 1,
'jei' => 1,
'jek' => 1,
'jel' => 1,
'jen' => 1,
'jer' => 1,
'jet' => 1,
'jeu' => 1,
'jgb' => 1,
'jge' => 1,
'jgo' => 1,
'jhi' => 1,
'jhs' => 1,
'jia' => 1,
'jib' => 1,
'jic' => 1,
'jid' => 1,
'jie' => 1,
'jig' => 1,
'jih' => 1,
'jii' => 1,
'jil' => 1,
'jim' => 1,
'jio' => 1,
'jiq' => 1,
'jit' => 1,
'jiu' => 1,
'jiv' => 1,
'jiy' => 1,
'jko' => 1,
'jku' => 1,
'jle' => 1,
'jma' => 1,
'jmb' => 1,
'jmc' => 1,
'jmd' => 1,
'jmi' => 1,
'jml' => 1,
'jmn' => 1,
'jmr' => 1,
'jms' => 1,
'jmx' => 1,
'jna' => 1,
'jnd' => 1,
'jng' => 1,
'jni' => 1,
'jnj' => 1,
'jnl' => 1,
'jns' => 1,
'job' => 1,
'jod' => 1,
'jor' => 1,
'jos' => 1,
'jow' => 1,
'jpa' => 1,
'jpr' => 1,
'jpx' => 1,
'jqr' => 1,
'jra' => 1,
'jrb' => 1,
'jrr' => 1,
'jrt' => 1,
'jru' => 1,
'jsl' => 1,
'jua' => 1,
'jub' => 1,
'juc' => 1,
'jud' => 1,
'juh' => 1,
'juk' => 1,
'jul' => 1,
'jum' => 1,
'jun' => 1,
'juo' => 1,
'jup' => 1,
'jur' => 1,
'jus' => 1,
'jut' => 1,
'juu' => 1,
'juw' => 1,
'juy' => 1,
'jvd' => 1,
'jvn' => 1,
'jwi' => 1,
'jya' => 1,
'jyy' => 1,
'kaa' => 1,
'kab' => 1,
'kac' => 1,
'kad' => 1,
'kae' => 1,
'kaf' => 1,
'kag' => 1,
'kah' => 1,
'kai' => 1,
'kaj' => 1,
'kak' => 1,
'kam' => 1,
'kao' => 1,
'kap' => 1,
'kaq' => 1,
'kar' => 1,
'kav' => 1,
'kaw' => 1,
'kax' => 1,
'kay' => 1,
'kba' => 1,
'kbb' => 1,
'kbc' => 1,
'kbd' => 1,
'kbe' => 1,
'kbf' => 1,
'kbg' => 1,
'kbh' => 1,
'kbi' => 1,
'kbj' => 1,
'kbk' => 1,
'kbl' => 1,
'kbm' => 1,
'kbn' => 1,
'kbo' => 1,
'kbp' => 1,
'kbq' => 1,
'kbr' => 1,
'kbs' => 1,
'kbt' => 1,
'kbu' => 1,
'kbv' => 1,
'kbw' => 1,
'kbx' => 1,
'kbz' => 1,
'kca' => 1,
'kcb' => 1,
'kcc' => 1,
'kcd' => 1,
'kce' => 1,
'kcf' => 1,
'kcg' => 1,
'kch' => 1,
'kci' => 1,
'kcj' => 1,
'kck' => 1,
'kcl' => 1,
'kcm' => 1,
'kcn' => 1,
'kco' => 1,
'kcp' => 1,
'kcq' => 1,
'kcr' => 1,
'kcs' => 1,
'kct' => 1,
'kcu' => 1,
'kcv' => 1,
'kcw' => 1,
'kcx' => 1,
'kcy' => 1,
'kcz' => 1,
'kda' => 1,
'kdc' => 1,
'kdd' => 1,
'kde' => 1,
'kdf' => 1,
'kdg' => 1,
'kdh' => 1,
'kdi' => 1,
'kdj' => 1,
'kdk' => 1,
'kdl' => 1,
'kdm' => 1,
'kdn' => 1,
'kdo' => 1,
'kdp' => 1,
'kdq' => 1,
'kdr' => 1,
'kdt' => 1,
'kdu' => 1,
'kdv' => 1,
'kdw' => 1,
'kdx' => 1,
'kdy' => 1,
'kdz' => 1,
'kea' => 1,
'keb' => 1,
'kec' => 1,
'ked' => 1,
'kee' => 1,
'kef' => 1,
'keg' => 1,
'keh' => 1,
'kei' => 1,
'kej' => 1,
'kek' => 1,
'kel' => 1,
'kem' => 1,
'ken' => 1,
'keo' => 1,
'kep' => 1,
'keq' => 1,
'ker' => 1,
'kes' => 1,
'ket' => 1,
'keu' => 1,
'kev' => 1,
'kew' => 1,
'kex' => 1,
'key' => 1,
'kez' => 1,
'kfa' => 1,
'kfb' => 1,
'kfc' => 1,
'kfd' => 1,
'kfe' => 1,
'kff' => 1,
'kfg' => 1,
'kfh' => 1,
'kfi' => 1,
'kfj' => 1,
'kfk' => 1,
'kfl' => 1,
'kfm' => 1,
'kfn' => 1,
'kfo' => 1,
'kfp' => 1,
'kfq' => 1,
'kfr' => 1,
'kfs' => 1,
'kft' => 1,
'kfu' => 1,
'kfv' => 1,
'kfw' => 1,
'kfx' => 1,
'kfy' => 1,
'kfz' => 1,
'kga' => 1,
'kgb' => 1,
'kgc' => 1,
'kgd' => 1,
'kge' => 1,
'kgf' => 1,
'kgg' => 1,
'kgh' => 1,
'kgi' => 1,
'kgj' => 1,
'kgk' => 1,
'kgl' => 1,
'kgm' => 1,
'kgn' => 1,
'kgo' => 1,
'kgp' => 1,
'kgq' => 1,
'kgr' => 1,
'kgs' => 1,
'kgt' => 1,
'kgu' => 1,
'kgv' => 1,
'kgw' => 1,
'kgx' => 1,
'kgy' => 1,
'kha' => 1,
'khb' => 1,
'khc' => 1,
'khd' => 1,
'khe' => 1,
'khf' => 1,
'khg' => 1,
'khh' => 1,
'khi' => 1,
'khj' => 1,
'khl' => 1,
'khn' => 1,
'kho' => 1,
'khp' => 1,
'khq' => 1,
'khr' => 1,
'khs' => 1,
'kht' => 1,
'khu' => 1,
'khv' => 1,
'khw' => 1,
'khx' => 1,
'khy' => 1,
'khz' => 1,
'kia' => 1,
'kib' => 1,
'kic' => 1,
'kid' => 1,
'kie' => 1,
'kif' => 1,
'kig' => 1,
'kih' => 1,
'kii' => 1,
'kij' => 1,
'kil' => 1,
'kim' => 1,
'kio' => 1,
'kip' => 1,
'kiq' => 1,
'kis' => 1,
'kit' => 1,
'kiv' => 1,
'kiw' => 1,
'kix' => 1,
'kiy' => 1,
'kiz' => 1,
'kja' => 1,
'kjb' => 1,
'kjc' => 1,
'kjd' => 1,
'kje' => 1,
'kjf' => 1,
'kjg' => 1,
'kjh' => 1,
'kji' => 1,
'kjj' => 1,
'kjk' => 1,
'kjl' => 1,
'kjm' => 1,
'kjn' => 1,
'kjo' => 1,
'kjp' => 1,
'kjq' => 1,
'kjr' => 1,
'kjs' => 1,
'kjt' => 1,
'kju' => 1,
'kjx' => 1,
'kjy' => 1,
'kjz' => 1,
'kka' => 1,
'kkb' => 1,
'kkc' => 1,
'kkd' => 1,
'kke' => 1,
'kkf' => 1,
'kkg' => 1,
'kkh' => 1,
'kki' => 1,
'kkj' => 1,
'kkk' => 1,
'kkl' => 1,
'kkm' => 1,
'kkn' => 1,
'kko' => 1,
'kkp' => 1,
'kkq' => 1,
'kkr' => 1,
'kks' => 1,
'kkt' => 1,
'kku' => 1,
'kkv' => 1,
'kkw' => 1,
'kkx' => 1,
'kky' => 1,
'kkz' => 1,
'kla' => 1,
'klb' => 1,
'klc' => 1,
'kld' => 1,
'kle' => 1,
'klf' => 1,
'klg' => 1,
'klh' => 1,
'kli' => 1,
'klj' => 1,
'klk' => 1,
'kll' => 1,
'klm' => 1,
'kln' => 1,
'klo' => 1,
'klp' => 1,
'klq' => 1,
'klr' => 1,
'kls' => 1,
'klt' => 1,
'klu' => 1,
'klv' => 1,
'klw' => 1,
'klx' => 1,
'kly' => 1,
'klz' => 1,
'kma' => 1,
'kmb' => 1,
'kmc' => 1,
'kmd' => 1,
'kme' => 1,
'kmf' => 1,
'kmg' => 1,
'kmh' => 1,
'kmi' => 1,
'kmj' => 1,
'kmk' => 1,
'kml' => 1,
'kmm' => 1,
'kmn' => 1,
'kmo' => 1,
'kmp' => 1,
'kmq' => 1,
'kms' => 1,
'kmt' => 1,
'kmu' => 1,
'kmv' => 1,
'kmw' => 1,
'kmx' => 1,
'kmy' => 1,
'kmz' => 1,
'kna' => 1,
'knb' => 1,
'knd' => 1,
'kne' => 1,
'knf' => 1,
'kni' => 1,
'knj' => 1,
'knk' => 1,
'knl' => 1,
'knm' => 1,
'kno' => 1,
'knp' => 1,
'knq' => 1,
'knr' => 1,
'kns' => 1,
'knt' => 1,
'knu' => 1,
'knv' => 1,
'knw' => 1,
'knx' => 1,
'kny' => 1,
'knz' => 1,
'koa' => 1,
'koc' => 1,
'kod' => 1,
'koe' => 1,
'kof' => 1,
'kog' => 1,
'koh' => 1,
'koj' => 1,
'kok' => 1,
'kol' => 1,
'koo' => 1,
'kop' => 1,
'koq' => 1,
'kos' => 1,
'kot' => 1,
'kou' => 1,
'kov' => 1,
'kow' => 1,
'kox' => 1,
'koy' => 1,
'koz' => 1,
'kpa' => 1,
'kpb' => 1,
'kpc' => 1,
'kpd' => 1,
'kpe' => 1,
'kpf' => 1,
'kpg' => 1,
'kph' => 1,
'kpi' => 1,
'kpj' => 1,
'kpk' => 1,
'kpl' => 1,
'kpm' => 1,
'kpn' => 1,
'kpo' => 1,
'kpp' => 1,
'kpq' => 1,
'kpr' => 1,
'kps' => 1,
'kpt' => 1,
'kpu' => 1,
'kpw' => 1,
'kpx' => 1,
'kpy' => 1,
'kpz' => 1,
'kqa' => 1,
'kqb' => 1,
'kqc' => 1,
'kqd' => 1,
'kqe' => 1,
'kqf' => 1,
'kqg' => 1,
'kqh' => 1,
'kqi' => 1,
'kqj' => 1,
'kqk' => 1,
'kql' => 1,
'kqm' => 1,
'kqn' => 1,
'kqo' => 1,
'kqp' => 1,
'kqq' => 1,
'kqr' => 1,
'kqs' => 1,
'kqt' => 1,
'kqu' => 1,
'kqv' => 1,
'kqw' => 1,
'kqx' => 1,
'kqy' => 1,
'kqz' => 1,
'kra' => 1,
'krb' => 1,
'krc' => 1,
'krd' => 1,
'kre' => 1,
'krf' => 1,
'krh' => 1,
'kri' => 1,
'krj' => 1,
'krk' => 1,
'krl' => 1,
'krm' => 1,
'krn' => 1,
'kro' => 1,
'krp' => 1,
'krr' => 1,
'krs' => 1,
'kru' => 1,
'krv' => 1,
'krw' => 1,
'krx' => 1,
'kry' => 1,
'krz' => 1,
'ksa' => 1,
'ksb' => 1,
'ksc' => 1,
'ksd' => 1,
'kse' => 1,
'ksf' => 1,
'ksg' => 1,
'ksh' => 1,
'ksi' => 1,
'ksj' => 1,
'ksk' => 1,
'ksl' => 1,
'ksm' => 1,
'ksn' => 1,
'kso' => 1,
'ksp' => 1,
'ksq' => 1,
'ksr' => 1,
'kss' => 1,
'kst' => 1,
'ksu' => 1,
'ksv' => 1,
'ksw' => 1,
'ksx' => 1,
'ksy' => 1,
'ksz' => 1,
'kta' => 1,
'ktb' => 1,
'ktc' => 1,
'ktd' => 1,
'kte' => 1,
'ktf' => 1,
'ktg' => 1,
'kth' => 1,
'kti' => 1,
'ktj' => 1,
'ktk' => 1,
'ktl' => 1,
'ktm' => 1,
'ktn' => 1,
'kto' => 1,
'ktp' => 1,
'ktq' => 1,
'ktr' => 1,
'kts' => 1,
'ktt' => 1,
'ktu' => 1,
'ktv' => 1,
'ktw' => 1,
'ktx' => 1,
'kty' => 1,
'ktz' => 1,
'kub' => 1,
'kuc' => 1,
'kud' => 1,
'kue' => 1,
'kuf' => 1,
'kug' => 1,
'kuh' => 1,
'kui' => 1,
'kuj' => 1,
'kuk' => 1,
'kul' => 1,
'kum' => 1,
'kun' => 1,
'kuo' => 1,
'kup' => 1,
'kuq' => 1,
'kus' => 1,
'kut' => 1,
'kuu' => 1,
'kuv' => 1,
'kuw' => 1,
'kux' => 1,
'kuy' => 1,
'kuz' => 1,
'kva' => 1,
'kvc' => 1,
'kvd' => 1,
'kve' => 1,
'kvf' => 1,
'kvg' => 1,
'kvh' => 1,
'kvi' => 1,
'kvj' => 1,
'kvk' => 1,
'kvl' => 1,
'kvm' => 1,
'kvn' => 1,
'kvo' => 1,
'kvp' => 1,
'kvq' => 1,
'kvs' => 1,
'kvt' => 1,
'kvu' => 1,
'kvv' => 1,
'kvw' => 1,
'kvx' => 1,
'kvy' => 1,
'kvz' => 1,
'kwa' => 1,
'kwb' => 1,
'kwc' => 1,
'kwd' => 1,
'kwe' => 1,
'kwf' => 1,
'kwg' => 1,
'kwh' => 1,
'kwi' => 1,
'kwj' => 1,
'kwk' => 1,
'kwl' => 1,
'kwm' => 1,
'kwn' => 1,
'kwo' => 1,
'kwp' => 1,
'kwq' => 1,
'kwr' => 1,
'kws' => 1,
'kwt' => 1,
'kwu' => 1,
'kwv' => 1,
'kww' => 1,
'kwx' => 1,
'kwz' => 1,
'kxa' => 1,
'kxb' => 1,
'kxc' => 1,
'kxe' => 1,
'kxf' => 1,
'kxh' => 1,
'kxi' => 1,
'kxj' => 1,
'kxk' => 1,
'kxl' => 1,
'kxm' => 1,
'kxn' => 1,
'kxo' => 1,
'kxp' => 1,
'kxq' => 1,
'kxr' => 1,
'kxs' => 1,
'kxt' => 1,
'kxu' => 1,
'kxv' => 1,
'kxw' => 1,
'kxx' => 1,
'kxy' => 1,
'kxz' => 1,
'kya' => 1,
'kyb' => 1,
'kyc' => 1,
'kyd' => 1,
'kye' => 1,
'kyf' => 1,
'kyg' => 1,
'kyh' => 1,
'kyi' => 1,
'kyj' => 1,
'kyk' => 1,
'kyl' => 1,
'kym' => 1,
'kyn' => 1,
'kyo' => 1,
'kyp' => 1,
'kyq' => 1,
'kyr' => 1,
'kys' => 1,
'kyt' => 1,
'kyu' => 1,
'kyv' => 1,
'kyw' => 1,
'kyx' => 1,
'kyy' => 1,
'kyz' => 1,
'kza' => 1,
'kzb' => 1,
'kzc' => 1,
'kzd' => 1,
'kze' => 1,
'kzf' => 1,
'kzg' => 1,
'kzh' => 1,
'kzi' => 1,
'kzj' => 1,
'kzk' => 1,
'kzl' => 1,
'kzm' => 1,
'kzn' => 1,
'kzo' => 1,
'kzp' => 1,
'kzq' => 1,
'kzr' => 1,
'kzs' => 1,
'kzt' => 1,
'kzu' => 1,
'kzv' => 1,
'kzw' => 1,
'kzx' => 1,
'kzy' => 1,
'kzz' => 1,
'laa' => 1,
'lab' => 1,
'lac' => 1,
'lad' => 1,
'lae' => 1,
'laf' => 1,
'lag' => 1,
'lah' => 1,
'lai' => 1,
'laj' => 1,
'lak' => 1,
'lal' => 1,
'lam' => 1,
'lan' => 1,
'lap' => 1,
'laq' => 1,
'lar' => 1,
'las' => 1,
'lau' => 1,
'law' => 1,
'lax' => 1,
'lay' => 1,
'laz' => 1,
'lba' => 1,
'lbb' => 1,
'lbc' => 1,
'lbe' => 1,
'lbf' => 1,
'lbg' => 1,
'lbi' => 1,
'lbj' => 1,
'lbm' => 1,
'lbn' => 1,
'lbo' => 1,
'lbq' => 1,
'lbr' => 1,
'lbs' => 1,
'lbt' => 1,
'lbu' => 1,
'lbv' => 1,
'lbw' => 1,
'lbx' => 1,
'lby' => 1,
'lbz' => 1,
'lcc' => 1,
'lcd' => 1,
'lch' => 1,
'lcl' => 1,
'lcm' => 1,
'lcp' => 1,
'lcq' => 1,
'lcs' => 1,
'ldb' => 1,
'ldd' => 1,
'ldg' => 1,
'ldh' => 1,
'ldj' => 1,
'ldk' => 1,
'ldl' => 1,
'ldm' => 1,
'ldn' => 1,
'ldo' => 1,
'ldp' => 1,
'ldq' => 1,
'lea' => 1,
'leb' => 1,
'lec' => 1,
'led' => 1,
'lee' => 1,
'lef' => 1,
'leg' => 1,
'leh' => 1,
'lei' => 1,
'lej' => 1,
'lek' => 1,
'lel' => 1,
'lem' => 1,
'len' => 1,
'leo' => 1,
'lep' => 1,
'leq' => 1,
'ler' => 1,
'les' => 1,
'let' => 1,
'leu' => 1,
'lev' => 1,
'lew' => 1,
'lex' => 1,
'ley' => 1,
'lez' => 1,
'lfa' => 1,
'lfn' => 1,
'lga' => 1,
'lgb' => 1,
'lgg' => 1,
'lgh' => 1,
'lgi' => 1,
'lgk' => 1,
'lgl' => 1,
'lgm' => 1,
'lgn' => 1,
'lgq' => 1,
'lgr' => 1,
'lgt' => 1,
'lgu' => 1,
'lgz' => 1,
'lha' => 1,
'lhh' => 1,
'lhi' => 1,
'lhl' => 1,
'lhm' => 1,
'lhn' => 1,
'lhp' => 1,
'lhs' => 1,
'lht' => 1,
'lhu' => 1,
'lia' => 1,
'lib' => 1,
'lic' => 1,
'lid' => 1,
'lie' => 1,
'lif' => 1,
'lig' => 1,
'lih' => 1,
'lii' => 1,
'lij' => 1,
'lik' => 1,
'lil' => 1,
'lio' => 1,
'lip' => 1,
'liq' => 1,
'lir' => 1,
'lis' => 1,
'liu' => 1,
'liv' => 1,
'lix' => 1,
'liy' => 1,
'liz' => 1,
'lje' => 1,
'lji' => 1,
'ljl' => 1,
'ljp' => 1,
'lka' => 1,
'lkc' => 1,
'lkd' => 1,
'lke' => 1,
'lkh' => 1,
'lki' => 1,
'lkj' => 1,
'lkl' => 1,
'lkn' => 1,
'lkr' => 1,
'lkt' => 1,
'lky' => 1,
'lla' => 1,
'llb' => 1,
'llc' => 1,
'lld' => 1,
'lle' => 1,
'llf' => 1,
'llg' => 1,
'llh' => 1,
'lli' => 1,
'llk' => 1,
'lll' => 1,
'llm' => 1,
'lln' => 1,
'llo' => 1,
'llp' => 1,
'llq' => 1,
'lls' => 1,
'llu' => 1,
'llx' => 1,
'lma' => 1,
'lmb' => 1,
'lmc' => 1,
'lmd' => 1,
'lme' => 1,
'lmf' => 1,
'lmg' => 1,
'lmh' => 1,
'lmi' => 1,
'lmj' => 1,
'lmk' => 1,
'lml' => 1,
'lmm' => 1,
'lmn' => 1,
'lmo' => 1,
'lmp' => 1,
'lmq' => 1,
'lmr' => 1,
'lmu' => 1,
'lmv' => 1,
'lmw' => 1,
'lmx' => 1,
'lmy' => 1,
'lmz' => 1,
'lna' => 1,
'lnb' => 1,
'lnd' => 1,
'lng' => 1,
'lnh' => 1,
'lni' => 1,
'lnj' => 1,
'lnl' => 1,
'lnm' => 1,
'lnn' => 1,
'lno' => 1,
'lns' => 1,
'lnu' => 1,
'lnz' => 1,
'loa' => 1,
'lob' => 1,
'loc' => 1,
'loe' => 1,
'lof' => 1,
'log' => 1,
'loh' => 1,
'loi' => 1,
'loj' => 1,
'lok' => 1,
'lol' => 1,
'lom' => 1,
'lon' => 1,
'loo' => 1,
'lop' => 1,
'loq' => 1,
'lor' => 1,
'los' => 1,
'lot' => 1,
'lou' => 1,
'lov' => 1,
'low' => 1,
'lox' => 1,
'loy' => 1,
'loz' => 1,
'lpa' => 1,
'lpe' => 1,
'lpn' => 1,
'lpo' => 1,
'lpx' => 1,
'lra' => 1,
'lrc' => 1,
'lre' => 1,
'lrg' => 1,
'lrk' => 1,
'lrl' => 1,
'lrn' => 1,
'lro' => 1,
'lrr' => 1,
'lrt' => 1,
'lrv' => 1,
'lrz' => 1,
'lsa' => 1,
'lsd' => 1,
'lse' => 1,
'lsg' => 1,
'lsh' => 1,
'lsi' => 1,
'lsl' => 1,
'lso' => 1,
'lsp' => 1,
'lsr' => 1,
'lss' => 1,
'lst' => 1,
'ltc' => 1,
'lti' => 1,
'ltn' => 1,
'ltu' => 1,
'lua' => 1,
'luc' => 1,
'lud' => 1,
'lue' => 1,
'luf' => 1,
'lui' => 1,
'luj' => 1,
'luk' => 1,
'lul' => 1,
'lum' => 1,
'lun' => 1,
'luo' => 1,
'lup' => 1,
'luq' => 1,
'lur' => 1,
'lus' => 1,
'lut' => 1,
'luu' => 1,
'luv' => 1,
'luw' => 1,
'luy' => 1,
'luz' => 1,
'lva' => 1,
'lvk' => 1,
'lvu' => 1,
'lwa' => 1,
'lwe' => 1,
'lwh' => 1,
'lwl' => 1,
'lwm' => 1,
'lwo' => 1,
'lwt' => 1,
'lww' => 1,
'lya' => 1,
'lyg' => 1,
'lyn' => 1,
'lzl' => 1,
'lzn' => 1,
'lzz' => 1,
'maa' => 1,
'mab' => 1,
'mad' => 1,
'mae' => 1,
'maf' => 1,
'mag' => 1,
'mai' => 1,
'maj' => 1,
'mak' => 1,
'mam' => 1,
'man' => 1,
'map' => 1,
'maq' => 1,
'mas' => 1,
'mat' => 1,
'mau' => 1,
'mav' => 1,
'maw' => 1,
'maz' => 1,
'mba' => 1,
'mbb' => 1,
'mbc' => 1,
'mbd' => 1,
'mbe' => 1,
'mbf' => 1,
'mbh' => 1,
'mbi' => 1,
'mbj' => 1,
'mbk' => 1,
'mbl' => 1,
'mbm' => 1,
'mbn' => 1,
'mbo' => 1,
'mbp' => 1,
'mbq' => 1,
'mbr' => 1,
'mbs' => 1,
'mbt' => 1,
'mbu' => 1,
'mbv' => 1,
'mbw' => 1,
'mbx' => 1,
'mby' => 1,
'mbz' => 1,
'mca' => 1,
'mcb' => 1,
'mcc' => 1,
'mcd' => 1,
'mce' => 1,
'mcf' => 1,
'mcg' => 1,
'mch' => 1,
'mci' => 1,
'mcj' => 1,
'mck' => 1,
'mcl' => 1,
'mcm' => 1,
'mcn' => 1,
'mco' => 1,
'mcp' => 1,
'mcq' => 1,
'mcr' => 1,
'mcs' => 1,
'mct' => 1,
'mcu' => 1,
'mcv' => 1,
'mcw' => 1,
'mcx' => 1,
'mcy' => 1,
'mcz' => 1,
'mda' => 1,
'mdb' => 1,
'mdc' => 1,
'mdd' => 1,
'mde' => 1,
'mdf' => 1,
'mdg' => 1,
'mdh' => 1,
'mdi' => 1,
'mdj' => 1,
'mdk' => 1,
'mdl' => 1,
'mdm' => 1,
'mdn' => 1,
'mdp' => 1,
'mdq' => 1,
'mdr' => 1,
'mds' => 1,
'mdt' => 1,
'mdu' => 1,
'mdv' => 1,
'mdw' => 1,
'mdx' => 1,
'mdy' => 1,
'mdz' => 1,
'mea' => 1,
'meb' => 1,
'mec' => 1,
'med' => 1,
'mee' => 1,
'mef' => 1,
'meg' => 1,
'meh' => 1,
'mei' => 1,
'mej' => 1,
'mek' => 1,
'mel' => 1,
'mem' => 1,
'men' => 1,
'mep' => 1,
'meq' => 1,
'mer' => 1,
'mes' => 1,
'met' => 1,
'meu' => 1,
'mev' => 1,
'mew' => 1,
'mey' => 1,
'mez' => 1,
'mfc' => 1,
'mfd' => 1,
'mfe' => 1,
'mff' => 1,
'mfg' => 1,
'mfh' => 1,
'mfi' => 1,
'mfj' => 1,
'mfk' => 1,
'mfl' => 1,
'mfm' => 1,
'mfn' => 1,
'mfo' => 1,
'mfp' => 1,
'mfq' => 1,
'mfr' => 1,
'mfs' => 1,
'mft' => 1,
'mfu' => 1,
'mfv' => 1,
'mfw' => 1,
'mfx' => 1,
'mfy' => 1,
'mfz' => 1,
'mga' => 1,
'mgb' => 1,
'mgc' => 1,
'mgd' => 1,
'mge' => 1,
'mgf' => 1,
'mgg' => 1,
'mgh' => 1,
'mgi' => 1,
'mgj' => 1,
'mgk' => 1,
'mgl' => 1,
'mgm' => 1,
'mgn' => 1,
'mgo' => 1,
'mgp' => 1,
'mgq' => 1,
'mgr' => 1,
'mgs' => 1,
'mgt' => 1,
'mgu' => 1,
'mgv' => 1,
'mgw' => 1,
'mgx' => 1,
'mgy' => 1,
'mgz' => 1,
'mha' => 1,
'mhb' => 1,
'mhc' => 1,
'mhd' => 1,
'mhe' => 1,
'mhf' => 1,
'mhg' => 1,
'mhh' => 1,
'mhi' => 1,
'mhj' => 1,
'mhk' => 1,
'mhl' => 1,
'mhm' => 1,
'mhn' => 1,
'mho' => 1,
'mhp' => 1,
'mhq' => 1,
'mhs' => 1,
'mht' => 1,
'mhu' => 1,
'mhw' => 1,
'mhx' => 1,
'mhy' => 1,
'mhz' => 1,
'mia' => 1,
'mib' => 1,
'mic' => 1,
'mid' => 1,
'mie' => 1,
'mif' => 1,
'mig' => 1,
'mih' => 1,
'mii' => 1,
'mij' => 1,
'mik' => 1,
'mil' => 1,
'mim' => 1,
'mio' => 1,
'mip' => 1,
'miq' => 1,
'mir' => 1,
'mit' => 1,
'miu' => 1,
'miw' => 1,
'mix' => 1,
'miy' => 1,
'miz' => 1,
'mja' => 1,
'mjc' => 1,
'mjd' => 1,
'mje' => 1,
'mjg' => 1,
'mjh' => 1,
'mji' => 1,
'mjj' => 1,
'mjk' => 1,
'mjl' => 1,
'mjm' => 1,
'mjn' => 1,
'mjo' => 1,
'mjp' => 1,
'mjq' => 1,
'mjr' => 1,
'mjs' => 1,
'mjt' => 1,
'mju' => 1,
'mjv' => 1,
'mjw' => 1,
'mjx' => 1,
'mjy' => 1,
'mjz' => 1,
'mka' => 1,
'mkb' => 1,
'mkc' => 1,
'mke' => 1,
'mkf' => 1,
'mkg' => 1,
'mkh' => 1,
'mki' => 1,
'mkj' => 1,
'mkk' => 1,
'mkl' => 1,
'mkm' => 1,
'mkn' => 1,
'mko' => 1,
'mkp' => 1,
'mkq' => 1,
'mkr' => 1,
'mks' => 1,
'mkt' => 1,
'mkv' => 1,
'mkw' => 1,
'mkx' => 1,
'mky' => 1,
'mkz' => 1,
'mla' => 1,
'mlb' => 1,
'mlc' => 1,
'mld' => 1,
'mle' => 1,
'mlf' => 1,
'mlh' => 1,
'mli' => 1,
'mlj' => 1,
'mlk' => 1,
'mll' => 1,
'mlm' => 1,
'mln' => 1,
'mlo' => 1,
'mlp' => 1,
'mlr' => 1,
'mls' => 1,
'mlu' => 1,
'mlv' => 1,
'mlw' => 1,
'mlx' => 1,
'mlz' => 1,
'mma' => 1,
'mmb' => 1,
'mmc' => 1,
'mmd' => 1,
'mme' => 1,
'mmf' => 1,
'mmg' => 1,
'mmh' => 1,
'mmi' => 1,
'mmj' => 1,
'mmk' => 1,
'mml' => 1,
'mmm' => 1,
'mmn' => 1,
'mmo' => 1,
'mmp' => 1,
'mmq' => 1,
'mmt' => 1,
'mmu' => 1,
'mmv' => 1,
'mmw' => 1,
'mmx' => 1,
'mmy' => 1,
'mmz' => 1,
'mna' => 1,
'mnb' => 1,
'mnc' => 1,
'mnd' => 1,
'mne' => 1,
'mnf' => 1,
'mng' => 1,
'mnh' => 1,
'mni' => 1,
'mnj' => 1,
'mnl' => 1,
'mnm' => 1,
'mnn' => 1,
'mno' => 1,
'mnq' => 1,
'mnr' => 1,
'mns' => 1,
'mnt' => 1,
'mnu' => 1,
'mnv' => 1,
'mnw' => 1,
'mnx' => 1,
'mny' => 1,
'mnz' => 1,
'moa' => 1,
'moc' => 1,
'mod' => 1,
'moe' => 1,
'mof' => 1,
'mog' => 1,
'moh' => 1,
'moi' => 1,
'moj' => 1,
'mok' => 1,
'mom' => 1,
'moo' => 1,
'mop' => 1,
'moq' => 1,
'mor' => 1,
'mos' => 1,
'mot' => 1,
'mou' => 1,
'mov' => 1,
'mow' => 1,
'mox' => 1,
'moy' => 1,
'moz' => 1,
'mpa' => 1,
'mpb' => 1,
'mpc' => 1,
'mpd' => 1,
'mpe' => 1,
'mpg' => 1,
'mph' => 1,
'mpi' => 1,
'mpj' => 1,
'mpk' => 1,
'mpl' => 1,
'mpm' => 1,
'mpn' => 1,
'mpo' => 1,
'mpp' => 1,
'mpq' => 1,
'mpr' => 1,
'mps' => 1,
'mpt' => 1,
'mpu' => 1,
'mpv' => 1,
'mpw' => 1,
'mpx' => 1,
'mpy' => 1,
'mpz' => 1,
'mqa' => 1,
'mqb' => 1,
'mqc' => 1,
'mqe' => 1,
'mqf' => 1,
'mqh' => 1,
'mqi' => 1,
'mqj' => 1,
'mqk' => 1,
'mql' => 1,
'mqm' => 1,
'mqn' => 1,
'mqo' => 1,
'mqp' => 1,
'mqq' => 1,
'mqr' => 1,
'mqs' => 1,
'mqt' => 1,
'mqu' => 1,
'mqv' => 1,
'mqw' => 1,
'mqx' => 1,
'mqy' => 1,
'mqz' => 1,
'mra' => 1,
'mrb' => 1,
'mrc' => 1,
'mrd' => 1,
'mre' => 1,
'mrf' => 1,
'mrg' => 1,
'mrh' => 1,
'mrk' => 1,
'mrl' => 1,
'mrm' => 1,
'mrn' => 1,
'mro' => 1,
'mrp' => 1,
'mrq' => 1,
'mrr' => 1,
'mrs' => 1,
'mrt' => 1,
'mru' => 1,
'mrv' => 1,
'mrw' => 1,
'mrx' => 1,
'mry' => 1,
'mrz' => 1,
'msb' => 1,
'msd' => 1,
'mse' => 1,
'msf' => 1,
'msg' => 1,
'msj' => 1,
'msk' => 1,
'msl' => 1,
'msm' => 1,
'msn' => 1,
'mso' => 1,
'msp' => 1,
'msq' => 1,
'msr' => 1,
'mss' => 1,
'mst' => 1,
'msu' => 1,
'msv' => 1,
'msw' => 1,
'msx' => 1,
'msy' => 1,
'msz' => 1,
'mta' => 1,
'mtb' => 1,
'mtc' => 1,
'mtd' => 1,
'mte' => 1,
'mtf' => 1,
'mtg' => 1,
'mth' => 1,
'mti' => 1,
'mtj' => 1,
'mtk' => 1,
'mtl' => 1,
'mtm' => 1,
'mtn' => 1,
'mto' => 1,
'mtp' => 1,
'mtq' => 1,
'mts' => 1,
'mtt' => 1,
'mtu' => 1,
'mtv' => 1,
'mtw' => 1,
'mtx' => 1,
'mty' => 1,
'mua' => 1,
'mub' => 1,
'muc' => 1,
'mud' => 1,
'mue' => 1,
'mug' => 1,
'muh' => 1,
'muj' => 1,
'muk' => 1,
'mum' => 1,
'mun' => 1,
'muo' => 1,
'mur' => 1,
'mus' => 1,
'mut' => 1,
'muu' => 1,
'muv' => 1,
'mux' => 1,
'muy' => 1,
'muz' => 1,
'mva' => 1,
'mvb' => 1,
'mvd' => 1,
'mvg' => 1,
'mvh' => 1,
'mvi' => 1,
'mvk' => 1,
'mvl' => 1,
'mvm' => 1,
'mvn' => 1,
'mvo' => 1,
'mvp' => 1,
'mvq' => 1,
'mvr' => 1,
'mvs' => 1,
'mvt' => 1,
'mvu' => 1,
'mvv' => 1,
'mvw' => 1,
'mvx' => 1,
'mvy' => 1,
'mvz' => 1,
'mwa' => 1,
'mwb' => 1,
'mwc' => 1,
'mwd' => 1,
'mwe' => 1,
'mwf' => 1,
'mwg' => 1,
'mwh' => 1,
'mwi' => 1,
'mwj' => 1,
'mwl' => 1,
'mwm' => 1,
'mwn' => 1,
'mwo' => 1,
'mwp' => 1,
'mwq' => 1,
'mwr' => 1,
'mws' => 1,
'mwt' => 1,
'mwu' => 1,
'mwv' => 1,
'mwx' => 1,
'mwy' => 1,
'mwz' => 1,
'mxa' => 1,
'mxb' => 1,
'mxc' => 1,
'mxd' => 1,
'mxe' => 1,
'mxf' => 1,
'mxg' => 1,
'mxh' => 1,
'mxi' => 1,
'mxj' => 1,
'mxk' => 1,
'mxl' => 1,
'mxm' => 1,
'mxn' => 1,
'mxo' => 1,
'mxp' => 1,
'mxq' => 1,
'mxr' => 1,
'mxs' => 1,
'mxt' => 1,
'mxu' => 1,
'mxv' => 1,
'mxw' => 1,
'mxx' => 1,
'mxy' => 1,
'mxz' => 1,
'myb' => 1,
'myc' => 1,
'myd' => 1,
'mye' => 1,
'myf' => 1,
'myg' => 1,
'myh' => 1,
'myi' => 1,
'myj' => 1,
'myk' => 1,
'myl' => 1,
'mym' => 1,
'myn' => 1,
'myo' => 1,
'myp' => 1,
'myr' => 1,
'mys' => 1,
'myt' => 1,
'myu' => 1,
'myv' => 1,
'myw' => 1,
'myx' => 1,
'myy' => 1,
'myz' => 1,
'mza' => 1,
'mzb' => 1,
'mzc' => 1,
'mzd' => 1,
'mze' => 1,
'mzg' => 1,
'mzh' => 1,
'mzi' => 1,
'mzj' => 1,
'mzk' => 1,
'mzl' => 1,
'mzm' => 1,
'mzn' => 1,
'mzo' => 1,
'mzp' => 1,
'mzq' => 1,
'mzr' => 1,
'mzs' => 1,
'mzt' => 1,
'mzu' => 1,
'mzv' => 1,
'mzw' => 1,
'mzx' => 1,
'mzy' => 1,
'mzz' => 1,
'naa' => 1,
'nab' => 1,
'nac' => 1,
'nad' => 1,
'nae' => 1,
'naf' => 1,
'nag' => 1,
'nah' => 1,
'nai' => 1,
'naj' => 1,
'nak' => 1,
'nal' => 1,
'nam' => 1,
'nao' => 1,
'nap' => 1,
'naq' => 1,
'nar' => 1,
'nas' => 1,
'nat' => 1,
'naw' => 1,
'nax' => 1,
'nay' => 1,
'naz' => 1,
'nba' => 1,
'nbb' => 1,
'nbc' => 1,
'nbd' => 1,
'nbe' => 1,
'nbf' => 1,
'nbg' => 1,
'nbh' => 1,
'nbi' => 1,
'nbj' => 1,
'nbk' => 1,
'nbm' => 1,
'nbn' => 1,
'nbo' => 1,
'nbp' => 1,
'nbq' => 1,
'nbr' => 1,
'nbs' => 1,
'nbt' => 1,
'nbu' => 1,
'nbv' => 1,
'nbw' => 1,
'nbx' => 1,
'nby' => 1,
'nca' => 1,
'ncb' => 1,
'ncc' => 1,
'ncd' => 1,
'nce' => 1,
'ncf' => 1,
'ncg' => 1,
'nch' => 1,
'nci' => 1,
'ncj' => 1,
'nck' => 1,
'ncl' => 1,
'ncm' => 1,
'ncn' => 1,
'nco' => 1,
'ncp' => 1,
'ncr' => 1,
'ncs' => 1,
'nct' => 1,
'ncu' => 1,
'ncx' => 1,
'ncz' => 1,
'nda' => 1,
'ndb' => 1,
'ndc' => 1,
'ndd' => 1,
'ndf' => 1,
'ndg' => 1,
'ndh' => 1,
'ndi' => 1,
'ndj' => 1,
'ndk' => 1,
'ndl' => 1,
'ndm' => 1,
'ndn' => 1,
'ndp' => 1,
'ndq' => 1,
'ndr' => 1,
'nds' => 1,
'ndt' => 1,
'ndu' => 1,
'ndv' => 1,
'ndw' => 1,
'ndx' => 1,
'ndy' => 1,
'ndz' => 1,
'nea' => 1,
'neb' => 1,
'nec' => 1,
'ned' => 1,
'nee' => 1,
'nef' => 1,
'neg' => 1,
'neh' => 1,
'nei' => 1,
'nej' => 1,
'nek' => 1,
'nem' => 1,
'nen' => 1,
'neo' => 1,
'neq' => 1,
'ner' => 1,
'nes' => 1,
'net' => 1,
'nev' => 1,
'new' => 1,
'nex' => 1,
'ney' => 1,
'nez' => 1,
'nfa' => 1,
'nfd' => 1,
'nfl' => 1,
'nfr' => 1,
'nfu' => 1,
'nga' => 1,
'ngb' => 1,
'ngc' => 1,
'ngd' => 1,
'nge' => 1,
'ngf' => 1,
'ngg' => 1,
'ngh' => 1,
'ngi' => 1,
'ngj' => 1,
'ngk' => 1,
'ngl' => 1,
'ngm' => 1,
'ngn' => 1,
'ngo' => 1,
'ngp' => 1,
'ngq' => 1,
'ngr' => 1,
'ngs' => 1,
'ngt' => 1,
'ngu' => 1,
'ngv' => 1,
'ngw' => 1,
'ngx' => 1,
'ngy' => 1,
'ngz' => 1,
'nha' => 1,
'nhb' => 1,
'nhc' => 1,
'nhe' => 1,
'nhf' => 1,
'nhg' => 1,
'nhh' => 1,
'nhi' => 1,
'nhk' => 1,
'nhm' => 1,
'nhn' => 1,
'nho' => 1,
'nhp' => 1,
'nhq' => 1,
'nhr' => 1,
'nht' => 1,
'nhu' => 1,
'nhv' => 1,
'nhw' => 1,
'nhx' => 1,
'nhy' => 1,
'nhz' => 1,
'nia' => 1,
'nib' => 1,
'nic' => 1,
'nid' => 1,
'nie' => 1,
'nif' => 1,
'nig' => 1,
'nih' => 1,
'nii' => 1,
'nij' => 1,
'nik' => 1,
'nil' => 1,
'nim' => 1,
'nin' => 1,
'nio' => 1,
'nir' => 1,
'nis' => 1,
'nit' => 1,
'niu' => 1,
'niv' => 1,
'niw' => 1,
'nix' => 1,
'niy' => 1,
'niz' => 1,
'nja' => 1,
'njb' => 1,
'njd' => 1,
'njh' => 1,
'nji' => 1,
'njj' => 1,
'njl' => 1,
'njm' => 1,
'njn' => 1,
'njo' => 1,
'njr' => 1,
'njs' => 1,
'njt' => 1,
'nju' => 1,
'njx' => 1,
'njy' => 1,
'nka' => 1,
'nkb' => 1,
'nkc' => 1,
'nkd' => 1,
'nke' => 1,
'nkf' => 1,
'nkg' => 1,
'nkh' => 1,
'nki' => 1,
'nkj' => 1,
'nkk' => 1,
'nkm' => 1,
'nkn' => 1,
'nko' => 1,
'nkp' => 1,
'nkr' => 1,
'nks' => 1,
'nkt' => 1,
'nku' => 1,
'nkv' => 1,
'nkw' => 1,
'nkx' => 1,
'nkz' => 1,
'nla' => 1,
'nlc' => 1,
'nlg' => 1,
'nli' => 1,
'nlj' => 1,
'nlk' => 1,
'nll' => 1,
'nln' => 1,
'nlo' => 1,
'nlr' => 1,
'nlu' => 1,
'nlv' => 1,
'nlx' => 1,
'nly' => 1,
'nlz' => 1,
'nma' => 1,
'nmb' => 1,
'nmc' => 1,
'nmd' => 1,
'nme' => 1,
'nmf' => 1,
'nmg' => 1,
'nmh' => 1,
'nmi' => 1,
'nmj' => 1,
'nmk' => 1,
'nml' => 1,
'nmm' => 1,
'nmn' => 1,
'nmo' => 1,
'nmp' => 1,
'nmq' => 1,
'nmr' => 1,
'nms' => 1,
'nmt' => 1,
'nmu' => 1,
'nmv' => 1,
'nmw' => 1,
'nmx' => 1,
'nmy' => 1,
'nmz' => 1,
'nna' => 1,
'nnb' => 1,
'nnc' => 1,
'nnd' => 1,
'nne' => 1,
'nnf' => 1,
'nng' => 1,
'nnh' => 1,
'nni' => 1,
'nnj' => 1,
'nnk' => 1,
'nnl' => 1,
'nnm' => 1,
'nnn' => 1,
'nnp' => 1,
'nnq' => 1,
'nnr' => 1,
'nns' => 1,
'nnt' => 1,
'nnu' => 1,
'nnv' => 1,
'nnw' => 1,
'nnx' => 1,
'nny' => 1,
'nnz' => 1,
'noa' => 1,
'noc' => 1,
'nod' => 1,
'noe' => 1,
'nof' => 1,
'nog' => 1,
'noh' => 1,
'noi' => 1,
'nok' => 1,
'nom' => 1,
'non' => 1,
'noo' => 1,
'nop' => 1,
'noq' => 1,
'nos' => 1,
'not' => 1,
'nou' => 1,
'nov' => 1,
'now' => 1,
'noy' => 1,
'noz' => 1,
'npa' => 1,
'npb' => 1,
'nph' => 1,
'npl' => 1,
'npn' => 1,
'npo' => 1,
'nps' => 1,
'npu' => 1,
'npy' => 1,
'nqg' => 1,
'nqk' => 1,
'nqm' => 1,
'nqn' => 1,
'nqo' => 1,
'nra' => 1,
'nrb' => 1,
'nrc' => 1,
'nre' => 1,
'nrg' => 1,
'nri' => 1,
'nrl' => 1,
'nrm' => 1,
'nrn' => 1,
'nrp' => 1,
'nrr' => 1,
'nrt' => 1,
'nrx' => 1,
'nrz' => 1,
'nsa' => 1,
'nsc' => 1,
'nsd' => 1,
'nse' => 1,
'nsg' => 1,
'nsh' => 1,
'nsi' => 1,
'nsk' => 1,
'nsl' => 1,
'nsm' => 1,
'nsn' => 1,
'nso' => 1,
'nsp' => 1,
'nsq' => 1,
'nsr' => 1,
'nss' => 1,
'nst' => 1,
'nsu' => 1,
'nsv' => 1,
'nsw' => 1,
'nsx' => 1,
'nsy' => 1,
'nsz' => 1,
'nte' => 1,
'nti' => 1,
'ntj' => 1,
'ntk' => 1,
'ntm' => 1,
'nto' => 1,
'ntp' => 1,
'ntr' => 1,
'nts' => 1,
'ntu' => 1,
'ntw' => 1,
'nty' => 1,
'ntz' => 1,
'nua' => 1,
'nub' => 1,
'nuc' => 1,
'nud' => 1,
'nue' => 1,
'nuf' => 1,
'nug' => 1,
'nuh' => 1,
'nui' => 1,
'nuj' => 1,
'nul' => 1,
'num' => 1,
'nun' => 1,
'nuo' => 1,
'nup' => 1,
'nuq' => 1,
'nur' => 1,
'nus' => 1,
'nut' => 1,
'nuu' => 1,
'nuv' => 1,
'nuw' => 1,
'nux' => 1,
'nuy' => 1,
'nuz' => 1,
'nvh' => 1,
'nvm' => 1,
'nwa' => 1,
'nwb' => 1,
'nwc' => 1,
'nwe' => 1,
'nwi' => 1,
'nwm' => 1,
'nwr' => 1,
'nwx' => 1,
'nwy' => 1,
'nxa' => 1,
'nxd' => 1,
'nxe' => 1,
'nxg' => 1,
'nxi' => 1,
'nxl' => 1,
'nxm' => 1,
'nxn' => 1,
'nxr' => 1,
'nxu' => 1,
'nxx' => 1,
'nyb' => 1,
'nyc' => 1,
'nye' => 1,
'nyf' => 1,
'nyg' => 1,
'nyh' => 1,
'nyi' => 1,
'nyj' => 1,
'nyk' => 1,
'nyl' => 1,
'nym' => 1,
'nyn' => 1,
'nyo' => 1,
'nyp' => 1,
'nyq' => 1,
'nyr' => 1,
'nys' => 1,
'nyt' => 1,
'nyu' => 1,
'nyv' => 1,
'nyw' => 1,
'nyx' => 1,
'nyy' => 1,
'nza' => 1,
'nzb' => 1,
'nzi' => 1,
'nzk' => 1,
'nzm' => 1,
'nzs' => 1,
'nzu' => 1,
'nzy' => 1,
'oaa' => 1,
'oac' => 1,
'oar' => 1,
'oav' => 1,
'obi' => 1,
'obl' => 1,
'obm' => 1,
'obo' => 1,
'obr' => 1,
'obt' => 1,
'obu' => 1,
'oca' => 1,
'och' => 1,
'oco' => 1,
'ocu' => 1,
'oda' => 1,
'odk' => 1,
'odt' => 1,
'odu' => 1,
'ofo' => 1,
'ofs' => 1,
'ofu' => 1,
'ogb' => 1,
'ogc' => 1,
'oge' => 1,
'ogg' => 1,
'ogo' => 1,
'ogu' => 1,
'oht' => 1,
'ohu' => 1,
'oia' => 1,
'oin' => 1,
'ojp' => 1,
'ojv' => 1,
'oka' => 1,
'okb' => 1,
'okd' => 1,
'oke' => 1,
'okh' => 1,
'okj' => 1,
'okk' => 1,
'okl' => 1,
'okm' => 1,
'okn' => 1,
'oko' => 1,
'okr' => 1,
'oks' => 1,
'oku' => 1,
'okv' => 1,
'okx' => 1,
'ola' => 1,
'old' => 1,
'ole' => 1,
'olm' => 1,
'olo' => 1,
'olr' => 1,
'oma' => 1,
'omb' => 1,
'omc' => 1,
'ome' => 1,
'omg' => 1,
'omi' => 1,
'omk' => 1,
'oml' => 1,
'omn' => 1,
'omo' => 1,
'omp' => 1,
'omq' => 1,
'omr' => 1,
'omt' => 1,
'omu' => 1,
'omv' => 1,
'omw' => 1,
'omx' => 1,
'ona' => 1,
'onb' => 1,
'one' => 1,
'ong' => 1,
'oni' => 1,
'onj' => 1,
'onk' => 1,
'onn' => 1,
'ono' => 1,
'onp' => 1,
'onr' => 1,
'ons' => 1,
'ont' => 1,
'onu' => 1,
'onw' => 1,
'onx' => 1,
'ood' => 1,
'oog' => 1,
'oon' => 1,
'oor' => 1,
'oos' => 1,
'opa' => 1,
'opk' => 1,
'opm' => 1,
'opo' => 1,
'opt' => 1,
'opy' => 1,
'ora' => 1,
'ore' => 1,
'org' => 1,
'orh' => 1,
'oro' => 1,
'orr' => 1,
'ort' => 1,
'oru' => 1,
'orv' => 1,
'orw' => 1,
'orx' => 1,
'orz' => 1,
'osa' => 1,
'osc' => 1,
'osi' => 1,
'oso' => 1,
'osp' => 1,
'ost' => 1,
'osu' => 1,
'osx' => 1,
'ota' => 1,
'otb' => 1,
'otd' => 1,
'ote' => 1,
'oti' => 1,
'otk' => 1,
'otl' => 1,
'otm' => 1,
'otn' => 1,
'oto' => 1,
'otq' => 1,
'otr' => 1,
'ots' => 1,
'ott' => 1,
'otu' => 1,
'otx' => 1,
'oty' => 1,
'otz' => 1,
'oua' => 1,
'oub' => 1,
'oue' => 1,
'oui' => 1,
'oum' => 1,
'oun' => 1,
'owi' => 1,
'owl' => 1,
'oyb' => 1,
'oyd' => 1,
'oym' => 1,
'oyy' => 1,
'ozm' => 1,
'paa' => 1,
'pab' => 1,
'pac' => 1,
'pad' => 1,
'pae' => 1,
'paf' => 1,
'pag' => 1,
'pah' => 1,
'pai' => 1,
'pak' => 1,
'pal' => 1,
'pam' => 1,
'pao' => 1,
'pap' => 1,
'paq' => 1,
'par' => 1,
'pas' => 1,
'pat' => 1,
'pau' => 1,
'pav' => 1,
'paw' => 1,
'pax' => 1,
'pay' => 1,
'paz' => 1,
'pbb' => 1,
'pbc' => 1,
'pbe' => 1,
'pbf' => 1,
'pbg' => 1,
'pbh' => 1,
'pbi' => 1,
'pbl' => 1,
'pbn' => 1,
'pbo' => 1,
'pbp' => 1,
'pbr' => 1,
'pbs' => 1,
'pbv' => 1,
'pby' => 1,
'pbz' => 1,
'pca' => 1,
'pcb' => 1,
'pcc' => 1,
'pcd' => 1,
'pce' => 1,
'pcf' => 1,
'pcg' => 1,
'pch' => 1,
'pci' => 1,
'pcj' => 1,
'pck' => 1,
'pcl' => 1,
'pcm' => 1,
'pcn' => 1,
'pcp' => 1,
'pcr' => 1,
'pcw' => 1,
'pda' => 1,
'pdc' => 1,
'pdi' => 1,
'pdn' => 1,
'pdo' => 1,
'pdt' => 1,
'pdu' => 1,
'pea' => 1,
'peb' => 1,
'ped' => 1,
'pee' => 1,
'pef' => 1,
'peg' => 1,
'peh' => 1,
'pei' => 1,
'pej' => 1,
'pek' => 1,
'pem' => 1,
'peo' => 1,
'pep' => 1,
'peq' => 1,
'pev' => 1,
'pex' => 1,
'pey' => 1,
'pez' => 1,
'pfa' => 1,
'pfe' => 1,
'pfl' => 1,
'pgg' => 1,
'pgi' => 1,
'pgk' => 1,
'pgn' => 1,
'pgs' => 1,
'pgu' => 1,
'pgy' => 1,
'pha' => 1,
'phd' => 1,
'phg' => 1,
'phh' => 1,
'phi' => 1,
'phk' => 1,
'phl' => 1,
'phm' => 1,
'phn' => 1,
'pho' => 1,
'phq' => 1,
'pht' => 1,
'phu' => 1,
'phv' => 1,
'phw' => 1,
'pia' => 1,
'pib' => 1,
'pic' => 1,
'pid' => 1,
'pie' => 1,
'pif' => 1,
'pig' => 1,
'pih' => 1,
'pii' => 1,
'pij' => 1,
'pil' => 1,
'pim' => 1,
'pin' => 1,
'pio' => 1,
'pip' => 1,
'pir' => 1,
'pis' => 1,
'pit' => 1,
'piu' => 1,
'piv' => 1,
'piw' => 1,
'pix' => 1,
'piy' => 1,
'piz' => 1,
'pjt' => 1,
'pka' => 1,
'pkb' => 1,
'pkc' => 1,
'pkg' => 1,
'pkh' => 1,
'pkn' => 1,
'pkp' => 1,
'pkr' => 1,
'pks' => 1,
'pkt' => 1,
'pku' => 1,
'pla' => 1,
'plb' => 1,
'plc' => 1,
'pld' => 1,
'ple' => 1,
'plf' => 1,
'plg' => 1,
'plh' => 1,
'plj' => 1,
'plk' => 1,
'pll' => 1,
'pln' => 1,
'plo' => 1,
'plp' => 1,
'plq' => 1,
'plr' => 1,
'pls' => 1,
'plu' => 1,
'plv' => 1,
'plw' => 1,
'ply' => 1,
'plz' => 1,
'pma' => 1,
'pmb' => 1,
'pmc' => 1,
'pme' => 1,
'pmf' => 1,
'pmh' => 1,
'pmi' => 1,
'pmj' => 1,
'pmk' => 1,
'pml' => 1,
'pmm' => 1,
'pmn' => 1,
'pmo' => 1,
'pmq' => 1,
'pmr' => 1,
'pms' => 1,
'pmt' => 1,
'pmw' => 1,
'pmx' => 1,
'pmy' => 1,
'pmz' => 1,
'pna' => 1,
'pnc' => 1,
'pne' => 1,
'png' => 1,
'pnh' => 1,
'pni' => 1,
'pnm' => 1,
'pnn' => 1,
'pno' => 1,
'pnp' => 1,
'pnq' => 1,
'pnr' => 1,
'pns' => 1,
'pnt' => 1,
'pnu' => 1,
'pnv' => 1,
'pnw' => 1,
'pnx' => 1,
'pny' => 1,
'pnz' => 1,
'poc' => 1,
'pod' => 1,
'poe' => 1,
'pof' => 1,
'pog' => 1,
'poh' => 1,
'poi' => 1,
'pok' => 1,
'pom' => 1,
'pon' => 1,
'poo' => 1,
'pop' => 1,
'poq' => 1,
'pos' => 1,
'pot' => 1,
'pov' => 1,
'pow' => 1,
'pox' => 1,
'poy' => 1,
'poz' => 1,
'ppa' => 1,
'ppe' => 1,
'ppi' => 1,
'ppk' => 1,
'ppl' => 1,
'ppm' => 1,
'ppn' => 1,
'ppo' => 1,
'ppp' => 1,
'ppq' => 1,
'ppr' => 1,
'pps' => 1,
'ppt' => 1,
'ppu' => 1,
'pqa' => 1,
'pqe' => 1,
'pqm' => 1,
'pqw' => 1,
'pra' => 1,
'prb' => 1,
'prc' => 1,
'prd' => 1,
'pre' => 1,
'prg' => 1,
'prh' => 1,
'pri' => 1,
'prk' => 1,
'prl' => 1,
'prm' => 1,
'prn' => 1,
'pro' => 1,
'prp' => 1,
'prq' => 1,
'prr' => 1,
'prt' => 1,
'pru' => 1,
'prw' => 1,
'prx' => 1,
'pry' => 1,
'prz' => 1,
'psa' => 1,
'psc' => 1,
'psd' => 1,
'psg' => 1,
'psh' => 1,
'psi' => 1,
'psl' => 1,
'psm' => 1,
'psn' => 1,
'pso' => 1,
'psp' => 1,
'psq' => 1,
'psr' => 1,
'pss' => 1,
'psu' => 1,
'psw' => 1,
'psy' => 1,
'pta' => 1,
'pth' => 1,
'pti' => 1,
'ptn' => 1,
'pto' => 1,
'ptp' => 1,
'ptr' => 1,
'ptt' => 1,
'ptu' => 1,
'ptv' => 1,
'ptw' => 1,
'pty' => 1,
'pua' => 1,
'pub' => 1,
'puc' => 1,
'pud' => 1,
'pue' => 1,
'puf' => 1,
'pug' => 1,
'pui' => 1,
'puj' => 1,
'puk' => 1,
'pum' => 1,
'puo' => 1,
'pup' => 1,
'puq' => 1,
'pur' => 1,
'put' => 1,
'puu' => 1,
'puw' => 1,
'pux' => 1,
'puy' => 1,
'puz' => 1,
'pwa' => 1,
'pwb' => 1,
'pwg' => 1,
'pwm' => 1,
'pwn' => 1,
'pwo' => 1,
'pwr' => 1,
'pww' => 1,
'pxm' => 1,
'pye' => 1,
'pym' => 1,
'pyn' => 1,
'pyu' => 1,
'pyx' => 1,
'pyy' => 1,
'pzn' => 1,
'qua' => 1,
'quc' => 1,
'qui' => 1,
'qum' => 1,
'qun' => 1,
'quq' => 1,
'quv' => 1,
'qvy' => 1,
'qwe' => 1,
'qwm' => 1,
'qwt' => 1,
'qxq' => 1,
'qxs' => 1,
'qya' => 1,
'qyp' => 1,
'raa' => 1,
'rab' => 1,
'rac' => 1,
'rad' => 1,
'raf' => 1,
'rah' => 1,
'rai' => 1,
'raj' => 1,
'rak' => 1,
'ral' => 1,
'ram' => 1,
'ran' => 1,
'rao' => 1,
'rap' => 1,
'raq' => 1,
'rar' => 1,
'ras' => 1,
'rat' => 1,
'rau' => 1,
'rav' => 1,
'raw' => 1,
'rax' => 1,
'ray' => 1,
'raz' => 1,
'rbb' => 1,
'rcf' => 1,
'rdb' => 1,
'rea' => 1,
'reb' => 1,
'ree' => 1,
'reg' => 1,
'rei' => 1,
'rej' => 1,
'rel' => 1,
'rem' => 1,
'ren' => 1,
'rer' => 1,
'res' => 1,
'ret' => 1,
'rey' => 1,
'rga' => 1,
'rge' => 1,
'rgk' => 1,
'rgn' => 1,
'rgr' => 1,
'rgs' => 1,
'rgu' => 1,
'rhg' => 1,
'rhp' => 1,
'ria' => 1,
'rie' => 1,
'rif' => 1,
'ril' => 1,
'rim' => 1,
'rin' => 1,
'rir' => 1,
'rit' => 1,
'riu' => 1,
'rjg' => 1,
'rji' => 1,
'rjs' => 1,
'rka' => 1,
'rkb' => 1,
'rkh' => 1,
'rki' => 1,
'rkm' => 1,
'rkt' => 1,
'rma' => 1,
'rmb' => 1,
'rmd' => 1,
'rme' => 1,
'rmg' => 1,
'rmh' => 1,
'rmi' => 1,
'rmk' => 1,
'rmm' => 1,
'rmp' => 1,
'rmr' => 1,
'rms' => 1,
'rmt' => 1,
'rmu' => 1,
'rmv' => 1,
'rmx' => 1,
'rmz' => 1,
'rna' => 1,
'rnd' => 1,
'rng' => 1,
'rnl' => 1,
'rnn' => 1,
'rnp' => 1,
'rnw' => 1,
'roa' => 1,
'rob' => 1,
'roc' => 1,
'rod' => 1,
'roe' => 1,
'rof' => 1,
'rog' => 1,
'rol' => 1,
'rom' => 1,
'roo' => 1,
'rop' => 1,
'ror' => 1,
'rou' => 1,
'row' => 1,
'rpn' => 1,
'rpt' => 1,
'rri' => 1,
'rro' => 1,
'rsb' => 1,
'rsi' => 1,
'rsl' => 1,
'rth' => 1,
'rtm' => 1,
'rtw' => 1,
'rub' => 1,
'ruc' => 1,
'rue' => 1,
'ruf' => 1,
'rug' => 1,
'ruh' => 1,
'rui' => 1,
'ruk' => 1,
'ruo' => 1,
'rup' => 1,
'ruq' => 1,
'rut' => 1,
'ruu' => 1,
'ruy' => 1,
'ruz' => 1,
'rwa' => 1,
'rwk' => 1,
'rwm' => 1,
'rwo' => 1,
'ryn' => 1,
'rys' => 1,
'ryu' => 1,
'saa' => 1,
'sab' => 1,
'sac' => 1,
'sad' => 1,
'sae' => 1,
'saf' => 1,
'sah' => 1,
'sai' => 1,
'saj' => 1,
'sak' => 1,
'sal' => 1,
'sam' => 1,
'sao' => 1,
'sap' => 1,
'saq' => 1,
'sar' => 1,
'sas' => 1,
'sat' => 1,
'sau' => 1,
'sav' => 1,
'saw' => 1,
'sax' => 1,
'say' => 1,
'saz' => 1,
'sba' => 1,
'sbb' => 1,
'sbc' => 1,
'sbd' => 1,
'sbe' => 1,
'sbf' => 1,
'sbg' => 1,
'sbh' => 1,
'sbi' => 1,
'sbj' => 1,
'sbk' => 1,
'sbl' => 1,
'sbm' => 1,
'sbn' => 1,
'sbo' => 1,
'sbp' => 1,
'sbq' => 1,
'sbr' => 1,
'sbs' => 1,
'sbt' => 1,
'sbu' => 1,
'sbv' => 1,
'sbw' => 1,
'sbx' => 1,
'sby' => 1,
'sbz' => 1,
'sca' => 1,
'scb' => 1,
'sce' => 1,
'scf' => 1,
'scg' => 1,
'sch' => 1,
'sci' => 1,
'sck' => 1,
'scl' => 1,
'scn' => 1,
'sco' => 1,
'scp' => 1,
'scq' => 1,
'scu' => 1,
'scv' => 1,
'scw' => 1,
'scx' => 1,
'sda' => 1,
'sdb' => 1,
'sde' => 1,
'sdf' => 1,
'sdg' => 1,
'sdj' => 1,
'sdk' => 1,
'sdl' => 1,
'sdm' => 1,
'sdo' => 1,
'sdp' => 1,
'sdr' => 1,
'sds' => 1,
'sdt' => 1,
'sdu' => 1,
'sdv' => 1,
'sdx' => 1,
'sdz' => 1,
'sea' => 1,
'seb' => 1,
'sec' => 1,
'sed' => 1,
'see' => 1,
'sef' => 1,
'seg' => 1,
'seh' => 1,
'sei' => 1,
'sej' => 1,
'sek' => 1,
'sel' => 1,
'sem' => 1,
'sen' => 1,
'seo' => 1,
'sep' => 1,
'seq' => 1,
'ser' => 1,
'ses' => 1,
'set' => 1,
'seu' => 1,
'sev' => 1,
'sew' => 1,
'sey' => 1,
'sez' => 1,
'sfb' => 1,
'sfs' => 1,
'sfw' => 1,
'sga' => 1,
'sgb' => 1,
'sge' => 1,
'sgg' => 1,
'sgh' => 1,
'sgi' => 1,
'sgk' => 1,
'sgl' => 1,
'sgm' => 1,
'sgn' => 1,
'sgo' => 1,
'sgp' => 1,
'sgr' => 1,
'sgt' => 1,
'sgu' => 1,
'sgw' => 1,
'sgx' => 1,
'sgz' => 1,
'sha' => 1,
'shb' => 1,
'shc' => 1,
'she' => 1,
'shg' => 1,
'shh' => 1,
'shi' => 1,
'shj' => 1,
'shk' => 1,
'shl' => 1,
'shm' => 1,
'shn' => 1,
'sho' => 1,
'shp' => 1,
'shq' => 1,
'shr' => 1,
'shs' => 1,
'sht' => 1,
'shv' => 1,
'shw' => 1,
'shx' => 1,
'shy' => 1,
'shz' => 1,
'sia' => 1,
'sib' => 1,
'sid' => 1,
'sie' => 1,
'sif' => 1,
'sig' => 1,
'sih' => 1,
'sii' => 1,
'sij' => 1,
'sik' => 1,
'sil' => 1,
'sim' => 1,
'sio' => 1,
'sip' => 1,
'siq' => 1,
'sir' => 1,
'sis' => 1,
'sit' => 1,
'siu' => 1,
'siv' => 1,
'siw' => 1,
'six' => 1,
'siy' => 1,
'siz' => 1,
'sja' => 1,
'sjb' => 1,
'sjd' => 1,
'sje' => 1,
'sjg' => 1,
'sjk' => 1,
'sjl' => 1,
'sjm' => 1,
'sjn' => 1,
'sjo' => 1,
'sjp' => 1,
'sjr' => 1,
'sjs' => 1,
'sjt' => 1,
'sju' => 1,
'sjw' => 1,
'ska' => 1,
'skb' => 1,
'skc' => 1,
'skd' => 1,
'ske' => 1,
'skf' => 1,
'skh' => 1,
'ski' => 1,
'skj' => 1,
'skk' => 1,
'skm' => 1,
'skn' => 1,
'sko' => 1,
'skp' => 1,
'skq' => 1,
'sks' => 1,
'skt' => 1,
'sku' => 1,
'skv' => 1,
'skw' => 1,
'skx' => 1,
'sky' => 1,
'skz' => 1,
'sla' => 1,
'slc' => 1,
'sld' => 1,
'sle' => 1,
'slf' => 1,
'slg' => 1,
'slh' => 1,
'sli' => 1,
'slj' => 1,
'sll' => 1,
'slm' => 1,
'sln' => 1,
'slp' => 1,
'slq' => 1,
'slr' => 1,
'sls' => 1,
'slt' => 1,
'slu' => 1,
'slw' => 1,
'slx' => 1,
'sly' => 1,
'slz' => 1,
'sma' => 1,
'smb' => 1,
'smc' => 1,
'smd' => 1,
'smf' => 1,
'smg' => 1,
'smh' => 1,
'smi' => 1,
'smj' => 1,
'smk' => 1,
'sml' => 1,
'smm' => 1,
'smn' => 1,
'smp' => 1,
'smq' => 1,
'smr' => 1,
'sms' => 1,
'smt' => 1,
'smu' => 1,
'smv' => 1,
'smw' => 1,
'smx' => 1,
'smy' => 1,
'smz' => 1,
'snb' => 1,
'snc' => 1,
'sne' => 1,
'snf' => 1,
'sng' => 1,
'snh' => 1,
'sni' => 1,
'snj' => 1,
'snk' => 1,
'snl' => 1,
'snm' => 1,
'snn' => 1,
'sno' => 1,
'snp' => 1,
'snq' => 1,
'snr' => 1,
'sns' => 1,
'snu' => 1,
'snv' => 1,
'snw' => 1,
'snx' => 1,
'sny' => 1,
'snz' => 1,
'soa' => 1,
'sob' => 1,
'soc' => 1,
'sod' => 1,
'soe' => 1,
'sog' => 1,
'soh' => 1,
'soi' => 1,
'soj' => 1,
'sok' => 1,
'sol' => 1,
'son' => 1,
'soo' => 1,
'sop' => 1,
'soq' => 1,
'sor' => 1,
'sos' => 1,
'sou' => 1,
'sov' => 1,
'sow' => 1,
'sox' => 1,
'soy' => 1,
'soz' => 1,
'spb' => 1,
'spc' => 1,
'spd' => 1,
'spe' => 1,
'spg' => 1,
'spi' => 1,
'spk' => 1,
'spl' => 1,
'spm' => 1,
'spo' => 1,
'spp' => 1,
'spq' => 1,
'spr' => 1,
'sps' => 1,
'spt' => 1,
'spu' => 1,
'spx' => 1,
'sqa' => 1,
'sqh' => 1,
'sqj' => 1,
'sqm' => 1,
'sqn' => 1,
'sqo' => 1,
'sqq' => 1,
'sqr' => 1,
'sqs' => 1,
'sqt' => 1,
'squ' => 1,
'sra' => 1,
'srb' => 1,
'sre' => 1,
'srf' => 1,
'srg' => 1,
'srh' => 1,
'sri' => 1,
'srk' => 1,
'srl' => 1,
'srm' => 1,
'srn' => 1,
'srq' => 1,
'srr' => 1,
'srs' => 1,
'srt' => 1,
'sru' => 1,
'srv' => 1,
'srw' => 1,
'srx' => 1,
'sry' => 1,
'srz' => 1,
'ssa' => 1,
'ssb' => 1,
'ssc' => 1,
'ssd' => 1,
'sse' => 1,
'ssf' => 1,
'ssg' => 1,
'ssi' => 1,
'ssj' => 1,
'ssk' => 1,
'ssl' => 1,
'ssm' => 1,
'ssn' => 1,
'sso' => 1,
'ssp' => 1,
'ssq' => 1,
'ssr' => 1,
'sss' => 1,
'sst' => 1,
'ssu' => 1,
'ssv' => 1,
'ssx' => 1,
'ssy' => 1,
'ssz' => 1,
'sta' => 1,
'stb' => 1,
'std' => 1,
'ste' => 1,
'stf' => 1,
'stg' => 1,
'sth' => 1,
'sti' => 1,
'stj' => 1,
'stk' => 1,
'stl' => 1,
'stm' => 1,
'stn' => 1,
'sto' => 1,
'stp' => 1,
'stq' => 1,
'str' => 1,
'sts' => 1,
'stt' => 1,
'stu' => 1,
'stv' => 1,
'stw' => 1,
'sua' => 1,
'sub' => 1,
'suc' => 1,
'sue' => 1,
'sug' => 1,
'sui' => 1,
'suj' => 1,
'suk' => 1,
'sul' => 1,
'sum' => 1,
'suq' => 1,
'sur' => 1,
'sus' => 1,
'sut' => 1,
'suv' => 1,
'suw' => 1,
'sux' => 1,
'suy' => 1,
'suz' => 1,
'sva' => 1,
'svb' => 1,
'svc' => 1,
'sve' => 1,
'svk' => 1,
'svr' => 1,
'svs' => 1,
'svx' => 1,
'swb' => 1,
'swf' => 1,
'swg' => 1,
'swi' => 1,
'swj' => 1,
'swk' => 1,
'swl' => 1,
'swm' => 1,
'swn' => 1,
'swo' => 1,
'swp' => 1,
'swq' => 1,
'swr' => 1,
'sws' => 1,
'swt' => 1,
'swu' => 1,
'sww' => 1,
'swx' => 1,
'swy' => 1,
'sxb' => 1,
'sxc' => 1,
'sxe' => 1,
'sxg' => 1,
'sxk' => 1,
'sxl' => 1,
'sxm' => 1,
'sxn' => 1,
'sxo' => 1,
'sxr' => 1,
'sxs' => 1,
'sxu' => 1,
'sxw' => 1,
'sya' => 1,
'syb' => 1,
'syc' => 1,
'syd' => 1,
'syi' => 1,
'syk' => 1,
'syl' => 1,
'sym' => 1,
'syn' => 1,
'syo' => 1,
'syr' => 1,
'sys' => 1,
'syw' => 1,
'syy' => 1,
'sza' => 1,
'szb' => 1,
'szc' => 1,
'szd' => 1,
'sze' => 1,
'szg' => 1,
'szl' => 1,
'szn' => 1,
'szp' => 1,
'szv' => 1,
'szw' => 1,
'taa' => 1,
'tab' => 1,
'tac' => 1,
'tad' => 1,
'tae' => 1,
'taf' => 1,
'tag' => 1,
'tai' => 1,
'taj' => 1,
'tak' => 1,
'tal' => 1,
'tan' => 1,
'tao' => 1,
'tap' => 1,
'tar' => 1,
'tas' => 1,
'tau' => 1,
'tav' => 1,
'taw' => 1,
'tax' => 1,
'tay' => 1,
'taz' => 1,
'tba' => 1,
'tbb' => 1,
'tbc' => 1,
'tbd' => 1,
'tbe' => 1,
'tbf' => 1,
'tbg' => 1,
'tbh' => 1,
'tbi' => 1,
'tbj' => 1,
'tbk' => 1,
'tbl' => 1,
'tbm' => 1,
'tbn' => 1,
'tbo' => 1,
'tbp' => 1,
'tbq' => 1,
'tbr' => 1,
'tbs' => 1,
'tbt' => 1,
'tbu' => 1,
'tbv' => 1,
'tbw' => 1,
'tbx' => 1,
'tby' => 1,
'tbz' => 1,
'tca' => 1,
'tcb' => 1,
'tcc' => 1,
'tcd' => 1,
'tce' => 1,
'tcf' => 1,
'tcg' => 1,
'tch' => 1,
'tci' => 1,
'tck' => 1,
'tcl' => 1,
'tcm' => 1,
'tcn' => 1,
'tco' => 1,
'tcp' => 1,
'tcq' => 1,
'tcs' => 1,
'tct' => 1,
'tcu' => 1,
'tcw' => 1,
'tcx' => 1,
'tcy' => 1,
'tcz' => 1,
'tda' => 1,
'tdb' => 1,
'tdc' => 1,
'tdd' => 1,
'tdf' => 1,
'tdg' => 1,
'tdh' => 1,
'tdi' => 1,
'tdj' => 1,
'tdk' => 1,
'tdl' => 1,
'tdn' => 1,
'tdo' => 1,
'tdq' => 1,
'tdr' => 1,
'tds' => 1,
'tdt' => 1,
'tdu' => 1,
'tdv' => 1,
'tdy' => 1,
'tea' => 1,
'teb' => 1,
'ted' => 1,
'tee' => 1,
'tef' => 1,
'teg' => 1,
'teh' => 1,
'tei' => 1,
'tek' => 1,
'tem' => 1,
'ten' => 1,
'teo' => 1,
'tep' => 1,
'teq' => 1,
'ter' => 1,
'tes' => 1,
'tet' => 1,
'teu' => 1,
'tev' => 1,
'tew' => 1,
'tex' => 1,
'tey' => 1,
'tfi' => 1,
'tfn' => 1,
'tfo' => 1,
'tfr' => 1,
'tft' => 1,
'tga' => 1,
'tgb' => 1,
'tgc' => 1,
'tgd' => 1,
'tge' => 1,
'tgf' => 1,
'tgg' => 1,
'tgh' => 1,
'tgi' => 1,
'tgo' => 1,
'tgp' => 1,
'tgq' => 1,
'tgr' => 1,
'tgs' => 1,
'tgt' => 1,
'tgu' => 1,
'tgv' => 1,
'tgw' => 1,
'tgx' => 1,
'tgy' => 1,
'thc' => 1,
'thd' => 1,
'the' => 1,
'thf' => 1,
'thh' => 1,
'thi' => 1,
'thk' => 1,
'thl' => 1,
'thm' => 1,
'thn' => 1,
'thp' => 1,
'thq' => 1,
'thr' => 1,
'ths' => 1,
'tht' => 1,
'thu' => 1,
'thw' => 1,
'thx' => 1,
'thy' => 1,
'tia' => 1,
'tic' => 1,
'tid' => 1,
'tie' => 1,
'tif' => 1,
'tig' => 1,
'tih' => 1,
'tii' => 1,
'tij' => 1,
'tik' => 1,
'til' => 1,
'tim' => 1,
'tin' => 1,
'tio' => 1,
'tip' => 1,
'tiq' => 1,
'tis' => 1,
'tit' => 1,
'tiu' => 1,
'tiv' => 1,
'tiw' => 1,
'tix' => 1,
'tiy' => 1,
'tiz' => 1,
'tja' => 1,
'tjg' => 1,
'tji' => 1,
'tjm' => 1,
'tjn' => 1,
'tjo' => 1,
'tjs' => 1,
'tju' => 1,
'tka' => 1,
'tkb' => 1,
'tkd' => 1,
'tke' => 1,
'tkf' => 1,
'tkk' => 1,
'tkl' => 1,
'tkm' => 1,
'tkn' => 1,
'tkp' => 1,
'tkq' => 1,
'tkr' => 1,
'tks' => 1,
'tkt' => 1,
'tku' => 1,
'tkw' => 1,
'tkx' => 1,
'tkz' => 1,
'tla' => 1,
'tlb' => 1,
'tlc' => 1,
'tld' => 1,
'tlf' => 1,
'tlg' => 1,
'tlh' => 1,
'tli' => 1,
'tlj' => 1,
'tlk' => 1,
'tll' => 1,
'tlm' => 1,
'tln' => 1,
'tlo' => 1,
'tlp' => 1,
'tlq' => 1,
'tlr' => 1,
'tls' => 1,
'tlt' => 1,
'tlu' => 1,
'tlv' => 1,
'tlw' => 1,
'tlx' => 1,
'tly' => 1,
'tma' => 1,
'tmb' => 1,
'tmc' => 1,
'tmd' => 1,
'tme' => 1,
'tmf' => 1,
'tmg' => 1,
'tmh' => 1,
'tmi' => 1,
'tmj' => 1,
'tmk' => 1,
'tml' => 1,
'tmm' => 1,
'tmn' => 1,
'tmo' => 1,
'tmp' => 1,
'tmq' => 1,
'tmr' => 1,
'tms' => 1,
'tmt' => 1,
'tmu' => 1,
'tmv' => 1,
'tmy' => 1,
'tmz' => 1,
'tna' => 1,
'tnb' => 1,
'tnc' => 1,
'tnd' => 1,
'tne' => 1,
'tnf' => 1,
'tng' => 1,
'tnh' => 1,
'tni' => 1,
'tnk' => 1,
'tnl' => 1,
'tnm' => 1,
'tnn' => 1,
'tno' => 1,
'tnp' => 1,
'tnq' => 1,
'tnr' => 1,
'tns' => 1,
'tnt' => 1,
'tnu' => 1,
'tnv' => 1,
'tnw' => 1,
'tnx' => 1,
'tny' => 1,
'tnz' => 1,
'tob' => 1,
'toc' => 1,
'tod' => 1,
'toe' => 1,
'tof' => 1,
'tog' => 1,
'toh' => 1,
'toi' => 1,
'toj' => 1,
'tol' => 1,
'tom' => 1,
'too' => 1,
'top' => 1,
'toq' => 1,
'tor' => 1,
'tos' => 1,
'tou' => 1,
'tov' => 1,
'tow' => 1,
'tox' => 1,
'toy' => 1,
'toz' => 1,
'tpa' => 1,
'tpc' => 1,
'tpe' => 1,
'tpf' => 1,
'tpg' => 1,
'tpi' => 1,
'tpj' => 1,
'tpk' => 1,
'tpl' => 1,
'tpm' => 1,
'tpn' => 1,
'tpo' => 1,
'tpp' => 1,
'tpq' => 1,
'tpr' => 1,
'tpt' => 1,
'tpu' => 1,
'tpv' => 1,
'tpw' => 1,
'tpx' => 1,
'tpy' => 1,
'tpz' => 1,
'tqb' => 1,
'tql' => 1,
'tqm' => 1,
'tqn' => 1,
'tqo' => 1,
'tqp' => 1,
'tqq' => 1,
'tqr' => 1,
'tqt' => 1,
'tqu' => 1,
'tqw' => 1,
'tra' => 1,
'trb' => 1,
'trc' => 1,
'trd' => 1,
'tre' => 1,
'trf' => 1,
'trg' => 1,
'trh' => 1,
'tri' => 1,
'trj' => 1,
'trk' => 1,
'trl' => 1,
'trm' => 1,
'trn' => 1,
'tro' => 1,
'trp' => 1,
'trq' => 1,
'trr' => 1,
'trs' => 1,
'trt' => 1,
'tru' => 1,
'trv' => 1,
'trw' => 1,
'trx' => 1,
'try' => 1,
'trz' => 1,
'tsa' => 1,
'tsb' => 1,
'tsc' => 1,
'tsd' => 1,
'tse' => 1,
'tsf' => 1,
'tsg' => 1,
'tsh' => 1,
'tsi' => 1,
'tsj' => 1,
'tsk' => 1,
'tsl' => 1,
'tsm' => 1,
'tsp' => 1,
'tsq' => 1,
'tsr' => 1,
'tss' => 1,
'tsu' => 1,
'tsv' => 1,
'tsw' => 1,
'tsx' => 1,
'tsy' => 1,
'tsz' => 1,
'tta' => 1,
'ttb' => 1,
'ttc' => 1,
'ttd' => 1,
'tte' => 1,
'ttf' => 1,
'ttg' => 1,
'tth' => 1,
'tti' => 1,
'ttj' => 1,
'ttk' => 1,
'ttl' => 1,
'ttm' => 1,
'ttn' => 1,
'tto' => 1,
'ttp' => 1,
'ttr' => 1,
'tts' => 1,
'ttt' => 1,
'ttu' => 1,
'ttv' => 1,
'ttw' => 1,
'tty' => 1,
'ttz' => 1,
'tua' => 1,
'tub' => 1,
'tuc' => 1,
'tud' => 1,
'tue' => 1,
'tuf' => 1,
'tug' => 1,
'tuh' => 1,
'tui' => 1,
'tuj' => 1,
'tul' => 1,
'tum' => 1,
'tun' => 1,
'tuo' => 1,
'tup' => 1,
'tuq' => 1,
'tus' => 1,
'tut' => 1,
'tuu' => 1,
'tuv' => 1,
'tuw' => 1,
'tux' => 1,
'tuz' => 1,
'tva' => 1,
'tvd' => 1,
'tve' => 1,
'tvk' => 1,
'tvl' => 1,
'tvm' => 1,
'tvn' => 1,
'tvo' => 1,
'tvs' => 1,
'tvt' => 1,
'tvw' => 1,
'tvy' => 1,
'twa' => 1,
'twb' => 1,
'twc' => 1,
'twd' => 1,
'twe' => 1,
'twf' => 1,
'twg' => 1,
'twh' => 1,
'twl' => 1,
'twm' => 1,
'twn' => 1,
'two' => 1,
'twp' => 1,
'twq' => 1,
'twr' => 1,
'twt' => 1,
'twu' => 1,
'tww' => 1,
'twx' => 1,
'twy' => 1,
'txa' => 1,
'txb' => 1,
'txc' => 1,
'txe' => 1,
'txg' => 1,
'txh' => 1,
'txi' => 1,
'txm' => 1,
'txn' => 1,
'txo' => 1,
'txq' => 1,
'txr' => 1,
'txs' => 1,
'txt' => 1,
'txu' => 1,
'txx' => 1,
'tya' => 1,
'tye' => 1,
'tyh' => 1,
'tyi' => 1,
'tyj' => 1,
'tyl' => 1,
'tyn' => 1,
'typ' => 1,
'tyr' => 1,
'tys' => 1,
'tyt' => 1,
'tyu' => 1,
'tyv' => 1,
'tyx' => 1,
'tyz' => 1,
'tza' => 1,
'tzh' => 1,
'tzj' => 1,
'tzm' => 1,
'tzn' => 1,
'tzo' => 1,
'tzx' => 1,
'uam' => 1,
'uan' => 1,
'uar' => 1,
'uba' => 1,
'ubi' => 1,
'ubr' => 1,
'ubu' => 1,
'uby' => 1,
'uda' => 1,
'ude' => 1,
'udg' => 1,
'udi' => 1,
'udj' => 1,
'udl' => 1,
'udm' => 1,
'udu' => 1,
'ues' => 1,
'ufi' => 1,
'uga' => 1,
'ugb' => 1,
'uge' => 1,
'ugn' => 1,
'ugo' => 1,
'ugy' => 1,
'uha' => 1,
'uhn' => 1,
'uis' => 1,
'uiv' => 1,
'uji' => 1,
'uka' => 1,
'ukg' => 1,
'ukh' => 1,
'ukl' => 1,
'ukp' => 1,
'ukq' => 1,
'uks' => 1,
'uku' => 1,
'ukw' => 1,
'ula' => 1,
'ulb' => 1,
'ulc' => 1,
'ulf' => 1,
'uli' => 1,
'ulk' => 1,
'ull' => 1,
'ulm' => 1,
'uln' => 1,
'ulu' => 1,
'uma' => 1,
'umb' => 1,
'umc' => 1,
'umd' => 1,
'umg' => 1,
'umi' => 1,
'umm' => 1,
'umn' => 1,
'umo' => 1,
'ump' => 1,
'umr' => 1,
'ums' => 1,
'una' => 1,
'une' => 1,
'ung' => 1,
'unk' => 1,
'unp' => 1,
'unr' => 1,
'unx' => 1,
'unz' => 1,
'uok' => 1,
'upi' => 1,
'upv' => 1,
'ura' => 1,
'urb' => 1,
'urc' => 1,
'ure' => 1,
'urf' => 1,
'urg' => 1,
'urh' => 1,
'uri' => 1,
'urj' => 1,
'url' => 1,
'urm' => 1,
'urn' => 1,
'uro' => 1,
'urp' => 1,
'urr' => 1,
'urt' => 1,
'uru' => 1,
'urv' => 1,
'urw' => 1,
'urx' => 1,
'ury' => 1,
'urz' => 1,
'usa' => 1,
'ush' => 1,
'usi' => 1,
'usk' => 1,
'usp' => 1,
'usu' => 1,
'uta' => 1,
'ute' => 1,
'utp' => 1,
'utr' => 1,
'utu' => 1,
'uum' => 1,
'uun' => 1,
'uur' => 1,
'uuu' => 1,
'uve' => 1,
'uvh' => 1,
'uvl' => 1,
'uwa' => 1,
'uya' => 1,
'vaa' => 1,
'vae' => 1,
'vaf' => 1,
'vag' => 1,
'vah' => 1,
'vai' => 1,
'vaj' => 1,
'val' => 1,
'vam' => 1,
'van' => 1,
'vao' => 1,
'vap' => 1,
'var' => 1,
'vas' => 1,
'vau' => 1,
'vav' => 1,
'vay' => 1,
'vbb' => 1,
'vec' => 1,
'ved' => 1,
'vel' => 1,
'vem' => 1,
'veo' => 1,
'vep' => 1,
'ver' => 1,
'vgr' => 1,
'vgt' => 1,
'vic' => 1,
'vid' => 1,
'vif' => 1,
'vig' => 1,
'vil' => 1,
'vin' => 1,
'vis' => 1,
'vit' => 1,
'viv' => 1,
'vka' => 1,
'vki' => 1,
'vkj' => 1,
'vkl' => 1,
'vkm' => 1,
'vko' => 1,
'vkp' => 1,
'vku' => 1,
'vlp' => 1,
'vls' => 1,
'vma' => 1,
'vmb' => 1,
'vmc' => 1,
'vmd' => 1,
'vme' => 1,
'vmf' => 1,
'vmg' => 1,
'vmh' => 1,
'vmi' => 1,
'vmj' => 1,
'vmk' => 1,
'vml' => 1,
'vmm' => 1,
'vmp' => 1,
'vmq' => 1,
'vmr' => 1,
'vms' => 1,
'vmu' => 1,
'vmv' => 1,
'vmw' => 1,
'vmx' => 1,
'vmy' => 1,
'vmz' => 1,
'vnk' => 1,
'vnm' => 1,
'vnp' => 1,
'vor' => 1,
'vot' => 1,
'vra' => 1,
'vrs' => 1,
'vrt' => 1,
'vsi' => 1,
'vsl' => 1,
'vsv' => 1,
'vto' => 1,
'vum' => 1,
'vun' => 1,
'vut' => 1,
'vwa' => 1,
'waa' => 1,
'wab' => 1,
'wac' => 1,
'wad' => 1,
'wae' => 1,
'waf' => 1,
'wag' => 1,
'wah' => 1,
'wai' => 1,
'waj' => 1,
'wak' => 1,
'wal' => 1,
'wam' => 1,
'wan' => 1,
'wao' => 1,
'wap' => 1,
'waq' => 1,
'war' => 1,
'was' => 1,
'wat' => 1,
'wau' => 1,
'wav' => 1,
'waw' => 1,
'wax' => 1,
'way' => 1,
'waz' => 1,
'wba' => 1,
'wbb' => 1,
'wbe' => 1,
'wbf' => 1,
'wbh' => 1,
'wbi' => 1,
'wbj' => 1,
'wbk' => 1,
'wbl' => 1,
'wbm' => 1,
'wbp' => 1,
'wbq' => 1,
'wbt' => 1,
'wbv' => 1,
'wbw' => 1,
'wca' => 1,
'wci' => 1,
'wdd' => 1,
'wdg' => 1,
'wdj' => 1,
'wdu' => 1,
'wea' => 1,
'wec' => 1,
'wed' => 1,
'weh' => 1,
'wei' => 1,
'wem' => 1,
'wen' => 1,
'weo' => 1,
'wep' => 1,
'wer' => 1,
'wes' => 1,
'wet' => 1,
'weu' => 1,
'wew' => 1,
'wfg' => 1,
'wga' => 1,
'wgg' => 1,
'wgi' => 1,
'wgo' => 1,
'wgw' => 1,
'wgy' => 1,
'wha' => 1,
'whg' => 1,
'whk' => 1,
'whu' => 1,
'wib' => 1,
'wic' => 1,
'wie' => 1,
'wif' => 1,
'wig' => 1,
'wih' => 1,
'wii' => 1,
'wij' => 1,
'wik' => 1,
'wil' => 1,
'wim' => 1,
'win' => 1,
'wir' => 1,
'wit' => 1,
'wiu' => 1,
'wiv' => 1,
'wiw' => 1,
'wiy' => 1,
'wja' => 1,
'wji' => 1,
'wka' => 1,
'wkb' => 1,
'wkd' => 1,
'wkl' => 1,
'wku' => 1,
'wkw' => 1,
'wla' => 1,
'wlc' => 1,
'wle' => 1,
'wlg' => 1,
'wli' => 1,
'wlk' => 1,
'wll' => 1,
'wlm' => 1,
'wlo' => 1,
'wlr' => 1,
'wls' => 1,
'wlu' => 1,
'wlv' => 1,
'wlw' => 1,
'wlx' => 1,
'wly' => 1,
'wma' => 1,
'wmb' => 1,
'wmc' => 1,
'wmd' => 1,
'wme' => 1,
'wmh' => 1,
'wmi' => 1,
'wmm' => 1,
'wmn' => 1,
'wmo' => 1,
'wms' => 1,
'wmt' => 1,
'wmw' => 1,
'wmx' => 1,
'wnb' => 1,
'wnc' => 1,
'wnd' => 1,
'wne' => 1,
'wng' => 1,
'wni' => 1,
'wnk' => 1,
'wnm' => 1,
'wno' => 1,
'wnp' => 1,
'wnu' => 1,
'woa' => 1,
'wob' => 1,
'woc' => 1,
'wod' => 1,
'woe' => 1,
'wof' => 1,
'wog' => 1,
'woi' => 1,
'wok' => 1,
'wom' => 1,
'won' => 1,
'woo' => 1,
'wor' => 1,
'wos' => 1,
'wow' => 1,
'woy' => 1,
'wpc' => 1,
'wra' => 1,
'wrb' => 1,
'wrd' => 1,
'wrg' => 1,
'wrh' => 1,
'wri' => 1,
'wrl' => 1,
'wrm' => 1,
'wrn' => 1,
'wrp' => 1,
'wrr' => 1,
'wrs' => 1,
'wru' => 1,
'wrv' => 1,
'wrw' => 1,
'wrx' => 1,
'wrz' => 1,
'wsa' => 1,
'wsi' => 1,
'wsk' => 1,
'wsr' => 1,
'wss' => 1,
'wsu' => 1,
'wsv' => 1,
'wtf' => 1,
'wti' => 1,
'wtk' => 1,
'wtm' => 1,
'wtw' => 1,
'wua' => 1,
'wub' => 1,
'wud' => 1,
'wuh' => 1,
'wul' => 1,
'wum' => 1,
'wun' => 1,
'wur' => 1,
'wut' => 1,
'wuv' => 1,
'wux' => 1,
'wuy' => 1,
'wwa' => 1,
'wwo' => 1,
'wwr' => 1,
'www' => 1,
'wxa' => 1,
'wya' => 1,
'wyb' => 1,
'wym' => 1,
'wyr' => 1,
'wyy' => 1,
'xaa' => 1,
'xab' => 1,
'xac' => 1,
'xad' => 1,
'xae' => 1,
'xag' => 1,
'xai' => 1,
'xal' => 1,
'xam' => 1,
'xan' => 1,
'xao' => 1,
'xap' => 1,
'xaq' => 1,
'xar' => 1,
'xas' => 1,
'xat' => 1,
'xau' => 1,
'xav' => 1,
'xaw' => 1,
'xay' => 1,
'xba' => 1,
'xbc' => 1,
'xbi' => 1,
'xbm' => 1,
'xbo' => 1,
'xbr' => 1,
'xbw' => 1,
'xbx' => 1,
'xcb' => 1,
'xcc' => 1,
'xce' => 1,
'xcg' => 1,
'xch' => 1,
'xcl' => 1,
'xcm' => 1,
'xcn' => 1,
'xco' => 1,
'xcr' => 1,
'xct' => 1,
'xcu' => 1,
'xcv' => 1,
'xcw' => 1,
'xcy' => 1,
'xdc' => 1,
'xdm' => 1,
'xdy' => 1,
'xeb' => 1,
'xed' => 1,
'xeg' => 1,
'xel' => 1,
'xem' => 1,
'xep' => 1,
'xer' => 1,
'xes' => 1,
'xet' => 1,
'xeu' => 1,
'xfa' => 1,
'xga' => 1,
'xgf' => 1,
'xgl' => 1,
'xgn' => 1,
'xgr' => 1,
'xha' => 1,
'xhc' => 1,
'xhd' => 1,
'xhr' => 1,
'xht' => 1,
'xhu' => 1,
'xhv' => 1,
'xia' => 1,
'xib' => 1,
'xii' => 1,
'xil' => 1,
'xin' => 1,
'xip' => 1,
'xir' => 1,
'xiv' => 1,
'xiy' => 1,
'xka' => 1,
'xkb' => 1,
'xkc' => 1,
'xkd' => 1,
'xke' => 1,
'xkf' => 1,
'xkg' => 1,
'xkh' => 1,
'xki' => 1,
'xkj' => 1,
'xkk' => 1,
'xkl' => 1,
'xkn' => 1,
'xko' => 1,
'xkp' => 1,
'xkq' => 1,
'xkr' => 1,
'xks' => 1,
'xkt' => 1,
'xku' => 1,
'xkv' => 1,
'xkw' => 1,
'xkx' => 1,
'xky' => 1,
'xkz' => 1,
'xla' => 1,
'xlb' => 1,
'xlc' => 1,
'xld' => 1,
'xle' => 1,
'xlg' => 1,
'xli' => 1,
'xln' => 1,
'xlo' => 1,
'xlp' => 1,
'xls' => 1,
'xlu' => 1,
'xly' => 1,
'xma' => 1,
'xmb' => 1,
'xmc' => 1,
'xmd' => 1,
'xme' => 1,
'xmf' => 1,
'xmg' => 1,
'xmh' => 1,
'xmj' => 1,
'xmk' => 1,
'xml' => 1,
'xmn' => 1,
'xmo' => 1,
'xmp' => 1,
'xmq' => 1,
'xmr' => 1,
'xms' => 1,
'xmt' => 1,
'xmu' => 1,
'xmx' => 1,
'xmy' => 1,
'xmz' => 1,
'xna' => 1,
'xnb' => 1,
'xnd' => 1,
'xng' => 1,
'xnh' => 1,
'xnn' => 1,
'xno' => 1,
'xns' => 1,
'xoc' => 1,
'xod' => 1,
'xog' => 1,
'xoi' => 1,
'xok' => 1,
'xom' => 1,
'xon' => 1,
'xoo' => 1,
'xop' => 1,
'xor' => 1,
'xow' => 1,
'xpc' => 1,
'xpg' => 1,
'xpi' => 1,
'xpk' => 1,
'xpm' => 1,
'xpn' => 1,
'xpo' => 1,
'xpp' => 1,
'xpr' => 1,
'xps' => 1,
'xpu' => 1,
'xpy' => 1,
'xqa' => 1,
'xqt' => 1,
'xra' => 1,
'xrb' => 1,
'xre' => 1,
'xri' => 1,
'xrm' => 1,
'xrn' => 1,
'xrr' => 1,
'xrt' => 1,
'xru' => 1,
'xrw' => 1,
'xsa' => 1,
'xsb' => 1,
'xsc' => 1,
'xsd' => 1,
'xse' => 1,
'xsh' => 1,
'xsi' => 1,
'xsj' => 1,
'xsm' => 1,
'xsn' => 1,
'xso' => 1,
'xsp' => 1,
'xsq' => 1,
'xsr' => 1,
'xss' => 1,
'xsu' => 1,
'xsv' => 1,
'xsy' => 1,
'xta' => 1,
'xtb' => 1,
'xtc' => 1,
'xtd' => 1,
'xte' => 1,
'xtg' => 1,
'xti' => 1,
'xtj' => 1,
'xtl' => 1,
'xtm' => 1,
'xtn' => 1,
'xto' => 1,
'xtp' => 1,
'xtq' => 1,
'xtr' => 1,
'xts' => 1,
'xtt' => 1,
'xtu' => 1,
'xtw' => 1,
'xty' => 1,
'xtz' => 1,
'xua' => 1,
'xub' => 1,
'xug' => 1,
'xuj' => 1,
'xum' => 1,
'xuo' => 1,
'xup' => 1,
'xur' => 1,
'xut' => 1,
'xuu' => 1,
'xve' => 1,
'xvi' => 1,
'xvn' => 1,
'xvo' => 1,
'xvs' => 1,
'xwa' => 1,
'xwc' => 1,
'xwe' => 1,
'xwg' => 1,
'xwl' => 1,
'xwo' => 1,
'xwr' => 1,
'xxb' => 1,
'xxk' => 1,
'xxr' => 1,
'xxt' => 1,
'xyl' => 1,
'xzh' => 1,
'xzm' => 1,
'xzp' => 1,
'yaa' => 1,
'yab' => 1,
'yac' => 1,
'yad' => 1,
'yae' => 1,
'yaf' => 1,
'yag' => 1,
'yah' => 1,
'yai' => 1,
'yaj' => 1,
'yak' => 1,
'yal' => 1,
'yam' => 1,
'yao' => 1,
'yap' => 1,
'yaq' => 1,
'yar' => 1,
'yas' => 1,
'yat' => 1,
'yau' => 1,
'yav' => 1,
'yaw' => 1,
'yax' => 1,
'yay' => 1,
'yaz' => 1,
'yba' => 1,
'ybb' => 1,
'ybd' => 1,
'ybe' => 1,
'ybh' => 1,
'ybi' => 1,
'ybj' => 1,
'ybk' => 1,
'ybl' => 1,
'ybm' => 1,
'ybn' => 1,
'ybo' => 1,
'ybx' => 1,
'yby' => 1,
'ych' => 1,
'ycl' => 1,
'ycn' => 1,
'ycp' => 1,
'yde' => 1,
'ydg' => 1,
'ydk' => 1,
'yds' => 1,
'yea' => 1,
'yec' => 1,
'yee' => 1,
'yei' => 1,
'yej' => 1,
'yel' => 1,
'yen' => 1,
'yer' => 1,
'yes' => 1,
'yet' => 1,
'yeu' => 1,
'yev' => 1,
'yey' => 1,
'ygl' => 1,
'ygm' => 1,
'ygp' => 1,
'ygr' => 1,
'ygw' => 1,
'yha' => 1,
'yhl' => 1,
'yia' => 1,
'yif' => 1,
'yig' => 1,
'yii' => 1,
'yij' => 1,
'yik' => 1,
'yil' => 1,
'yim' => 1,
'yin' => 1,
'yip' => 1,
'yiq' => 1,
'yir' => 1,
'yis' => 1,
'yit' => 1,
'yiu' => 1,
'yiv' => 1,
'yix' => 1,
'yiy' => 1,
'yiz' => 1,
'yka' => 1,
'ykg' => 1,
'yki' => 1,
'ykk' => 1,
'ykl' => 1,
'ykm' => 1,
'yko' => 1,
'ykr' => 1,
'ykt' => 1,
'yky' => 1,
'yla' => 1,
'yle' => 1,
'ylg' => 1,
'yli' => 1,
'yll' => 1,
'ylm' => 1,
'yln' => 1,
'ylo' => 1,
'ylr' => 1,
'ylu' => 1,
'yly' => 1,
'yma' => 1,
'ymb' => 1,
'ymc' => 1,
'ymd' => 1,
'yme' => 1,
'ymg' => 1,
'ymh' => 1,
'ymi' => 1,
'ymk' => 1,
'yml' => 1,
'ymm' => 1,
'ymn' => 1,
'ymo' => 1,
'ymp' => 1,
'ymq' => 1,
'ymr' => 1,
'yms' => 1,
'ymt' => 1,
'ymx' => 1,
'ymz' => 1,
'yna' => 1,
'ynd' => 1,
'yne' => 1,
'yng' => 1,
'ynh' => 1,
'ynk' => 1,
'ynl' => 1,
'ynn' => 1,
'yno' => 1,
'yns' => 1,
'ynu' => 1,
'yob' => 1,
'yog' => 1,
'yoi' => 1,
'yok' => 1,
'yol' => 1,
'yom' => 1,
'yon' => 1,
'yos' => 1,
'yox' => 1,
'yoy' => 1,
'ypa' => 1,
'ypb' => 1,
'ypg' => 1,
'yph' => 1,
'ypk' => 1,
'ypm' => 1,
'ypn' => 1,
'ypo' => 1,
'ypp' => 1,
'ypz' => 1,
'yra' => 1,
'yrb' => 1,
'yre' => 1,
'yri' => 1,
'yrk' => 1,
'yrl' => 1,
'yrn' => 1,
'yrs' => 1,
'yrw' => 1,
'ysc' => 1,
'ysd' => 1,
'ysl' => 1,
'ysn' => 1,
'yso' => 1,
'ysp' => 1,
'ysr' => 1,
'yss' => 1,
'ysy' => 1,
'yta' => 1,
'ytl' => 1,
'ytp' => 1,
'yua' => 1,
'yub' => 1,
'yuc' => 1,
'yuf' => 1,
'yug' => 1,
'yui' => 1,
'yuj' => 1,
'yuk' => 1,
'yul' => 1,
'yum' => 1,
'yun' => 1,
'yup' => 1,
'yuq' => 1,
'yur' => 1,
'yut' => 1,
'yuu' => 1,
'yuw' => 1,
'yux' => 1,
'yuy' => 1,
'yuz' => 1,
'yva' => 1,
'yvt' => 1,
'ywa' => 1,
'ywl' => 1,
'ywn' => 1,
'ywq' => 1,
'ywr' => 1,
'ywt' => 1,
'ywu' => 1,
'yww' => 1,
'yyu' => 1,
'yyz' => 1,
'yzg' => 1,
'yzk' => 1,
'zag' => 1,
'zah' => 1,
'zaj' => 1,
'zak' => 1,
'zal' => 1,
'zap' => 1,
'zau' => 1,
'zay' => 1,
'zaz' => 1,
'zbc' => 1,
'zbe' => 1,
'zbl' => 1,
'zbt' => 1,
'zbw' => 1,
'zdj' => 1,
'zea' => 1,
'zeg' => 1,
'zen' => 1,
'zga' => 1,
'zgr' => 1,
'zhb' => 1,
'zhi' => 1,
'zhw' => 1,
'zhx' => 1,
'zia' => 1,
'zib' => 1,
'zik' => 1,
'zim' => 1,
'zin' => 1,
'zir' => 1,
'ziw' => 1,
'ziz' => 1,
'zka' => 1,
'zkb' => 1,
'zkg' => 1,
'zkh' => 1,
'zkk' => 1,
'zko' => 1,
'zkp' => 1,
'zkr' => 1,
'zkt' => 1,
'zku' => 1,
'zkv' => 1,
'zkz' => 1,
'zle' => 1,
'zls' => 1,
'zlw' => 1,
'zma' => 1,
'zmb' => 1,
'zmc' => 1,
'zmd' => 1,
'zme' => 1,
'zmf' => 1,
'zmg' => 1,
'zmh' => 1,
'zmj' => 1,
'zmk' => 1,
'zml' => 1,
'zmm' => 1,
'zmn' => 1,
'zmo' => 1,
'zmp' => 1,
'zmq' => 1,
'zmr' => 1,
'zms' => 1,
'zmt' => 1,
'zmu' => 1,
'zmv' => 1,
'zmw' => 1,
'zmx' => 1,
'zmy' => 1,
'zmz' => 1,
'zna' => 1,
'znd' => 1,
'zne' => 1,
'zng' => 1,
'znk' => 1,
'zns' => 1,
'zoc' => 1,
'zoh' => 1,
'zom' => 1,
'zoq' => 1,
'zor' => 1,
'zos' => 1,
'zra' => 1,
'zrg' => 1,
'zrn' => 1,
'zro' => 1,
'zrp' => 1,
'zrs' => 1,
'zsa' => 1,
'zsk' => 1,
'zsl' => 1,
'zsu' => 1,
'zua' => 1,
'zuh' => 1,
'zum' => 1,
'zun' => 1,
'zuy' => 1,
'zwa' => 1,
'zyp' => 1,
'zza' => 1,
);
%region_codes = (
'AC' => 1,
'AD' => 1,
'AE' => 1,
'AF' => 1,
'AG' => 1,
'AI' => 1,
'AL' => 1,
'AM' => 1,
'AN' => 1,
'AO' => 1,
'AQ' => 1,
'AR' => 1,
'AS' => 1,
'AT' => 1,
'AU' => 1,
'AW' => 1,
'AX' => 1,
'AZ' => 1,
'BA' => 1,
'BB' => 1,
'BD' => 1,
'BE' => 1,
'BF' => 1,
'BG' => 1,
'BH' => 1,
'BI' => 1,
'BJ' => 1,
'BL' => 1,
'BM' => 1,
'BN' => 1,
'BO' => 1,
'BR' => 1,
'BS' => 1,
'BT' => 1,
'BU' => 1,
'BV' => 1,
'BW' => 1,
'BY' => 1,
'BZ' => 1,
'CA' => 1,
'CC' => 1,
'CD' => 1,
'CF' => 1,
'CG' => 1,
'CH' => 1,
'CI' => 1,
'CK' => 1,
'CL' => 1,
'CM' => 1,
'CN' => 1,
'CO' => 1,
'CP' => 1,
'CR' => 1,
'CS' => 1,
'CU' => 1,
'CV' => 1,
'CX' => 1,
'CY' => 1,
'CZ' => 1,
'DD' => 1,
'DE' => 1,
'DG' => 1,
'DJ' => 1,
'DK' => 1,
'DM' => 1,
'DO' => 1,
'DZ' => 1,
'EA' => 1,
'EC' => 1,
'EE' => 1,
'EG' => 1,
'EH' => 1,
'ER' => 1,
'ES' => 1,
'ET' => 1,
'EU' => 1,
'FI' => 1,
'FJ' => 1,
'FK' => 1,
'FM' => 1,
'FO' => 1,
'FR' => 1,
'FX' => 1,
'GA' => 1,
'GB' => 1,
'GD' => 1,
'GE' => 1,
'GF' => 1,
'GG' => 1,
'GH' => 1,
'GI' => 1,
'GL' => 1,
'GM' => 1,
'GN' => 1,
'GP' => 1,
'GQ' => 1,
'GR' => 1,
'GS' => 1,
'GT' => 1,
'GU' => 1,
'GW' => 1,
'GY' => 1,
'HK' => 1,
'HM' => 1,
'HN' => 1,
'HR' => 1,
'HT' => 1,
'HU' => 1,
'IC' => 1,
'ID' => 1,
'IE' => 1,
'IL' => 1,
'IM' => 1,
'IN' => 1,
'IO' => 1,
'IQ' => 1,
'IR' => 1,
'IS' => 1,
'IT' => 1,
'JE' => 1,
'JM' => 1,
'JO' => 1,
'JP' => 1,
'KE' => 1,
'KG' => 1,
'KH' => 1,
'KI' => 1,
'KM' => 1,
'KN' => 1,
'KP' => 1,
'KR' => 1,
'KW' => 1,
'KY' => 1,
'KZ' => 1,
'LA' => 1,
'LB' => 1,
'LC' => 1,
'LI' => 1,
'LK' => 1,
'LR' => 1,
'LS' => 1,
'LT' => 1,
'LU' => 1,
'LV' => 1,
'LY' => 1,
'MA' => 1,
'MC' => 1,
'MD' => 1,
'ME' => 1,
'MF' => 1,
'MG' => 1,
'MH' => 1,
'MK' => 1,
'ML' => 1,
'MM' => 1,
'MN' => 1,
'MO' => 1,
'MP' => 1,
'MQ' => 1,
'MR' => 1,
'MS' => 1,
'MT' => 1,
'MU' => 1,
'MV' => 1,
'MW' => 1,
'MX' => 1,
'MY' => 1,
'MZ' => 1,
'NA' => 1,
'NC' => 1,
'NE' => 1,
'NF' => 1,
'NG' => 1,
'NI' => 1,
'NL' => 1,
'NO' => 1,
'NP' => 1,
'NR' => 1,
'NT' => 1,
'NU' => 1,
'NZ' => 1,
'OM' => 1,
'PA' => 1,
'PE' => 1,
'PF' => 1,
'PG' => 1,
'PH' => 1,
'PK' => 1,
'PL' => 1,
'PM' => 1,
'PN' => 1,
'PR' => 1,
'PS' => 1,
'PT' => 1,
'PW' => 1,
'PY' => 1,
'QA' => 1,
'RE' => 1,
'RO' => 1,
'RS' => 1,
'RU' => 1,
'RW' => 1,
'SA' => 1,
'SB' => 1,
'SC' => 1,
'SD' => 1,
'SE' => 1,
'SG' => 1,
'SH' => 1,
'SI' => 1,
'SJ' => 1,
'SK' => 1,
'SL' => 1,
'SM' => 1,
'SN' => 1,
'SO' => 1,
'SR' => 1,
'ST' => 1,
'SU' => 1,
'SV' => 1,
'SY' => 1,
'SZ' => 1,
'TA' => 1,
'TC' => 1,
'TD' => 1,
'TF' => 1,
'TG' => 1,
'TH' => 1,
'TJ' => 1,
'TK' => 1,
'TL' => 1,
'TM' => 1,
'TN' => 1,
'TO' => 1,
'TP' => 1,
'TR' => 1,
'TT' => 1,
'TV' => 1,
'TW' => 1,
'TZ' => 1,
'UA' => 1,
'UG' => 1,
'UM' => 1,
'US' => 1,
'UY' => 1,
'UZ' => 1,
'VA' => 1,
'VC' => 1,
'VE' => 1,
'VG' => 1,
'VI' => 1,
'VN' => 1,
'VU' => 1,
'WF' => 1,
'WS' => 1,
'YD' => 1,
'YE' => 1,
'YT' => 1,
'YU' => 1,
'ZA' => 1,
'ZM' => 1,
'ZR' => 1,
'ZW' => 1,
);
require "$T2H_HOME/documentlanguages.pl"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/documentlanguages.pl" && -r "$T2H_HOME/documentlanguages.pl");
# leave this within comments, and keep the require statement
# This way, you can directly run texi2html.pl, if
# $T2H_HOME/texi2html.init exists.
# @INIT@
# -*-perl-*-
# vim: set filetype=perl:
######################################################################
# File: texi2html.init
#
# Default values for command-line arguments and for various customizable
# procedures are set in this file.
#
# A copy of this file is pasted into the beginning of texi2html by
# running './configure'.
#
# Copy this file, rename it and make changes to it, if you like.
# Afterwards, load the file with command-line
# option --init-file <your_init_file>
#
# $Id: texi2html.init,v 1.272 2010/06/26 09:54:22 pertusus Exp $
######################################################################
# The following variables can also be set by command-line options
#
#
# The default values are set in this file, texi2html.init and the content
# of this file is included at the beginning of the texi2html script file.
# Those values may be overrided by values set in $sysconfdir/texi2html/Config
# and then by values set in $HOME/texi2html/Config.
#
# command line switches may override these values, and values set in files
# specified by --init-file are also taken into account.
# values set in these files overwrite values set by the command-line
# options appearing before --init-file and might still be overwritten by
# command-line arguments following the --init-file option.
##################################################################
# options common with makeinfo
# -I
# add a directory to the list of directories where @include files are
# searched for (besides the directory of the file). additional '-I'
# args are appended to this list.
# (APA: Don't implicitely search ., to conform with the docs!)
# my @INCLUDE_DIRS = (".");
#use strict;
@INCLUDE_DIRS = ();
# -P
# prepend a directory to the list of directories where @include files are
# searched for before the directory of the file. additional '-P'
# args are prepended to this list.
@PREPEND_DIRS = ();
# --split section|chapter|node|none
# if $SPLIT is set to 'section' (resp. 'chapter') one html file per section
# (resp. chapter) is generated. If $SPLIT is set to 'node' one html file per
# node or sectioning element is generated. In all these cases separate pages
# for Top, Table of content (Toc), Overview and About are generated.
# Otherwise a monolithic html file that contains the whole document is
# created.
#$SPLIT = 'section';
$SPLIT = '';
# --separated-footnotes
# if this is set footnotes are on a separated page. Otherwise they are at
# the end of each file (if the document is split).
$FOOTNOTESTYLE = 'end';
# --fill-column
$FILLCOLUMN = 72;
# --number | --no-number
# if this is set the sections are numbered, and section names and numbers
# are used in references and menus (instead of node names).
$NUMBER_SECTIONS = 1;
# --headers
# if this is set then navigation panels are printed at the beginning of each
# section.
# If the document is split at nodes then navigation panels are
# printed at the end if there were more than $WORDS_IN_PAGE words on page.
#
# Navigation panels are always printed at the beginning of output files.
#
# This is most useful if you do not want to have section navigation
# with --split chapter. There will be chapter navigation panel at the
# beginning and at the end of chapters anyway.
# this is mostly not used in the default case, important for html.
$HEADERS = 0;
# -o filename
# If this is set a monolithic document is outputted into $filename.
$OUT = undef;
# --split-size
# if undef, the info output is not split
$SPLIT_SIZE = 300000;
# --internal-links
$INTERNAL_LINKS = undef;
# --no-validate
# suppress node cross-reference validation
$NOVALIDATE = 0;
# --documentlanguage
# use gdt('my string') if you want to have translations of 'my string'
# and provide the translations in $LANGUAGES->{$DOCUMENTLANGUAGE} with
# 'my string' as key.
# To add a new language use ISO 639 language codes (see e.g. perl module
# Locale-Codes-1.02 for definitions). Supply translations in the
# $LANGUAGES hash and put it in a file with $LANG as name in an i18n
# directory.
# This is used for the initial language, it is overriden during
# document processing if there is a @documentlanguage.
# It is ignored if the language is passed on the command line.
$DOCUMENTLANGUAGE = 'en';
# --transliterate-file-names
# transliterate node names for external refs (and internal if NODE_FILES)
$TRANSLITERATE_FILE_NAMES = 1;
# --error-limit
# quit after NUM errors (default 1000).
$ERROR_LIMIT = 1000;
# --css-include
# All the specified css files are used. More precisely the @import sections
# are added to the beginning of the CSS_LINES the remaining is added at
# the end of the CSS_LINES (after the css rules generated by the program).
# cf texinfo manual for more info.
# - means STDIN
@CSS_FILES = ();
# --css-ref
# the specified url are used as stylesheet links
@CSS_REFS = ();
# --paragraph-indent
$PARAGRAPHINDENT = 3;
# --enable-encoding
$ENABLE_ENCODING = 0;
# --force
$FORCE = 0;
# --no-warn
$NO_WARN = 0;
# --number-footnotes
$NUMBER_FOOTNOTES = 1;
# not in makeinfo but in texi2dvi
# --command
@COMMANDS = ();
##################################################################
# option specific of texi2html
# --debug
# The integer value specifies what kind of debugging output is generated.
$DEBUG = 0;
# --doctype
# The value is the 'SystemLiteral' which identifies the canonical DTD
# for the document.
# Definition: The SystemLiteral is called the entity's system
# identifier. It is a URI, which may be used to retrieve the entity.
# See http://www.xml.com/axml/target.html#NT-ExternalID
$DOCTYPE = '';
# --frameset-doctype
# When frames are used, this SystemLiteral identifies the DTD used for
# the file containing the frame description.
$FRAMESET_DOCTYPE = '';
# --test
# If this value is true, some variables which should be dynamically generated
# (the date, the user running texi2html, the version of texi2html) are set to
# fix and given values. This is usefull in case the resulting manual is
# compared with a reference. For example this is used in the tests.
$TEST = 0;
# --dump-texi
# This value is usefull for debugging purposes. The result of the first pass is
# put in <document name>.passtexi, the result of the second pass is put in
# <document name>.passfirst.
$DUMP_TEXI = 0;
# --expand
# the @EXPAND array contains the expanded section names.
@EXPAND = ();
# --invisible
# This seems obsolete and is not used anywhere.
# This was a workaround for a known bug of many WWW browsers, including
# netscape. This was used to create invisible destination in anchors.
$INVISIBLE_MARK = '';
# $INVISIBLE_MARK = ' ';
# --iso
# if this value is true, ISO8859 characters are used for quotes.
# --iso does more than what USE_ISO does.
$USE_ISO = 0;
# --conf-dir
# append to the files searched for init files.
@CONF_DIRS = ();
# --top-file
# This file name is used for the top-level file.
# The extension is set appropriately, if necessary.
# If empty, <basename of document>.html is used.
# Typically, you would set this to "index.html".
$TOP_FILE = '';
# --toc-file
# This file name is used for the table of contents. The
# extension is set appropriately, if necessary.
# If empty, <basename of document>_toc.html is used.
$TOC_FILE = '';
# --frames
# if the value is true, HTML 4.0 "frames" are used.
# A file describing the frame layout is generated, together with a file
# with the short table of contents.
$FRAMES = 0;
# --menu | --no-menu
# if the value is true the Texinfo menus are shown.
# this is defined in all the formats
$SHOW_MENU = 1;
# --use-nodes
# if this is set the nodes are used as sectioning elements.
# Otherwise the nodes are incorporated in sections.
$USE_NODES = 1;
# --node-files
# if this is set one file per node is generated, which can be a target for
# cross manual references.
$NODE_FILES = 0;
# --toc-links
# if this is set, links from headings to toc entries are created.
$TOC_LINKS = 0;
# --subdir
# If this is set, then put result files into the specified directory.
# If not set, then result files are put into the current directory.
#$SUBDIR = 'html';
$SUBDIR = '';
# --short-extn
# If this is set, then all HTML files will have extension ".htm" instead of
# ".html". This is helpful when shipping the document to DOS-based systems.
$SHORTEXTN = 0;
# --prefix
# This set the output file prefix, prepended to all .html, .gif and .pl files.
# By default, this is the basename of the document.
$PREFIX = '';
# --short-ref
# if this is set cross-references are given without section.
$SHORT_REF = 1;
# --idx-sum
# if value is set, then for each @printindex <index name>
# <document name>_<index name>.idx is created which contains lines of the form
# key ref sorted alphabetically (case matters).
$IDX_SUMMARY = 0;
# --def-table
# If this is set a table construction for @def.... instead of definition
# lists.
# (New Option: 27.07.2000 Karl Heinz Marbaise)
$DEF_TABLE = 0;
# --verbose
# if this is set chatter about what we are doing.
$VERBOSE = '';
# --ignore-preamble-text
# If this is set the text before @node and sectioning commands is ignored.
$IGNORE_PREAMBLE_TEXT = 0;
# --html-xref-prefix
# base directory for external manuals.
#$EXTERNAL_DIR = '../';
$EXTERNAL_DIR = undef;
# --l2h
# if this is set, latex2html is used for generation of math content.
$L2H = '';
# --monolithic
# output only one file including ToC. It only makes sense when not split
$MONOLITHIC = 1;
######################
# The following options are only relevant if $L2H is set
#
# --l2h-l2h
# name/location of latex2html program
$L2H_L2H = "latex2html";
# --l2h-skip
# If this is set the actual call to latex2html is skipped. The previously
# generated content is reused, instead.
# If set to 0, the cache is not used.
# If undef the cache is used for as many tex fragments as possible
# and for the remaining the command is run.
$L2H_SKIP = undef;
# --l2h-tmp
# If this is set l2h uses the specified directory for temporary files. The path
# leading to this directory may not contain a dot (i.e., a ".");
# otherwise, l2h will fail.
$L2H_TMP = '';
# --l2h-file
# If set, l2h uses the file as latex2html init file
$L2H_FILE = 'l2h.init';
# --l2h-clean
# if this is set the intermediate files generated by texi2html in relation with
# latex2html are cleaned (they all have the prefix <document name>_l2h_).
$L2H_CLEAN = 1;
##############################################################################
#
# The following can only be set in the init file
#
##############################################################################
@INPUT_FILE_SUFFIXES = ('.txi','.texinfo','.texi','.txinfo','');
$FIRSTPARAGRAPHINDENT = 'none';
@T2H_FORMAT_EXPAND = ('plaintext');
# simple headers formatting, not in a table and using node names.
$HEADER_IN_TABLE = 0;
# output the generation date in the header.
$DATE_IN_HEADER = 0;
# use table for indentation of complex formats
$COMPLEX_FORMAT_IN_TABLE = 0;
# if set, node names are used to construct file names
# if undef, it is set if split at node, or $NODE_FILES is set.
$NODE_FILENAMES = undef;
# If true do table of contents even if there is no @content
$CONTENTS = undef;
# If true do short table of contents even if there is no @shortcontent
$SHORTCONTENTS = undef;
# set by @setcontentsaftertitlepage/@setshortcontentsaftertitlepage
$SETCONTENTSAFTERTITLEPAGE = undef;
$SETSHORTCONTENTSAFTERTITLEPAGE = undef;
# corresponds with @kbdinputstyle
$KBDINPUTSTYLE = 'distinct';
# corresponds with @frenchspacing
$FRENCHSPACING = 'off';
# correspond with @allowcodebreaks
$ALLOWCODEBREAKS = 'true';
# corresponds with @setfilename. Set with caution.
$SETFILENAME = undef;
# if unset, don't show a title
$SHOW_TITLE = 1;
# if set style is added in attribute.
$INLINE_CSS_STYLE = 0;
# if set, no css is used.
$NO_CSS = 0;
# if set, the image files are completed to be relative from the
# document directory, to the source manual directory and then to
# the image
$COMPLETE_IMAGE_PATHS = 0;
# if true, begin outputting at @setfilename, if this command is present.
$IGNORE_BEFORE_SETFILENAME = 1;
# if true the link in Overview link to the corresponding Toc entry.
$OVERVIEW_LINK_TO_TOC = 1;
# if set, use node anchors for sections targets
$USE_NODE_TARGET = 1;
# new style for crossrefs
$NEW_CROSSREF_STYLE = 1;
# top heading is always at the beginning of the element.
$TOP_HEADING_AT_BEGINNING = 0;
# use titlepage for the title instead of a simplest title
$USE_TITLEPAGE_FOR_TITLE = 0;
# if set, center @image by default
# otherwise, do not center by default
# Deprecated and not used anymore
$CENTER_IMAGE = 1;
# used as identation for block enclosing command @example, etc
# If not empty, must be enclosed in <td></td>
$EXAMPLE_INDENT_CELL = '';
# same as above, only for @small
$SMALL_EXAMPLE_INDENT_CELL = '';
# unused
$SMALL_FONT_SIZE = '-1';
# horizontal rules
# not used
$SMALL_RULE = '';
$MIDDLE_RULE = '';
# used in html
$DEFAULT_RULE = '';
$BIG_RULE = '';
# output the program name in the footer
$PROGRAM_NAME_IN_FOOTER = 0;
# if non-empty, and no @..heading appeared in Top node, then
# use this as header for top node/section, otherwise use value of
# @settitle or @shorttitle (in that order)
$TOP_HEADING = '';
# if set, use this chapter for 'Index' button, else
# use first chapter with @printindex
$INDEX_CHAPTER = '';
$SIMPLE_MENU = 1;
$OPEN_QUOTE_SYMBOL = "\`";
$CLOSE_QUOTE_SYMBOL = "'";
$NO_NUMBER_FOOTNOTE_SYMBOL = '*';
# if true put a $MENU_SYMBOL before unnumbered in menus
$UNNUMBERED_SYMBOL_IN_MENU = 0;
# extension for nodes files when NODE_FILES is true
$NODE_FILE_EXTENSION = 'txt';
# extension
$EXTENSION = 'txt';
# file name used for Top node when NODE_FILES is true
#$TOP_NODE_FILE = 'index';
$TOP_NODE_FILE = undef;
# file name used for Top node in references
$TOP_NODE_FILE_TARGET = 'index';
# file used as document basename, when input file is -
$STDIN_DOCU_NAME = 'stdin';
# file used as document output basename, when output file is -
$STDOUT_DOCU_NAME = 'stdout';
# node name used for Top node when automatic node directions are used
$TOP_NODE_UP = '(dir)';
# this controls the pre style for menus
$MENU_PRE_STYLE = 'font-family: serif';
# on bug-texinfo is has been said the the style is not code_style
# for menus (except for the node name).
# this controls the menu preformatted format
# FIXME this is not dynamic, so change in MENU_PRE_STYLE is not taken
# into account.
# This is used if the menu appears within a preformatted format (which
# is certainly an invalid construct), and SIMPLE_MENU is not set.
$MENU_PRE_COMPLEX_FORMAT = {
'class' => 'menu-preformatted',
# 'style' => 'code'
};
# This controls the ul style for toc
$NO_BULLET_LIST_STYLE = '';
$NO_BULLET_LIST_ATTRIBUTE = '';
# These lines are inserted before and after the shortcontents
$BEFORE_OVERVIEW = "";
$AFTER_OVERVIEW = "";
# These lines are inserted before and after the contents
$BEFORE_TOC_LINES = "";
$AFTER_TOC_LINES = "";
# if set (e.g., to index.html) replace hrefs to this file
# (i.e., to index.html) by ./
# Obsolete. Worked around a bug that is fixed now.
$HREF_DIR_INSTEAD_FILE = '';
# text inserted after <body ...>
$AFTER_BODY_OPEN = '';
# text inserted before </body>, this will be automatically inside <p></p>
$PRE_BODY_CLOSE = '';
# this is added inside <head></head> after <title> and some <meta name>
# stuff, it can be used for eg. <style>, <script>, <meta> etc. tags.
$EXTRA_HEAD = '';
# Specifies the minimum page length required before a navigation panel
# is placed at the bottom of a page
# FIXME this is not true:
# THIS_WORDS_IN_PAGE holds number of words of current page
$WORDS_IN_PAGE = 300;
# if this is set a vertical navigation panel is used.
$VERTICAL_HEAD_NAVIGATION = 0;
# html version for latex2html
$L2H_HTML_VERSION = "4.0";
# use icons.
$ICONS = 0;
# use old framework for translations
$I18N_PERL_HASH = 0;
# this resets some defaults, those that are also set in formats and
# not set in every formats.
#
# this is called below after %default_style_map_texi is defined
sub t2h_default_set_variables_default()
{
$CAPTION_STYLE = 'strong';
# if this variable is true, @setfilename is used if found to determine the
# out file name
$USE_SETFILENAME = 1;
# if true, use the filename and extension from setfilename. For Info.
$USE_SETFILENAME_EXTENSION = 0;
# FIXME is this right?
# default used in init_out for the setting of the ENCODING_NAME variable
$DEFAULT_ENCODING = 'utf8';
# if set and menu entry equals menu description, then do not print
# menu description.
# Likewise, if node name equals entry name, do not print entry name.
$AVOID_MENU_REDUNDANCY = 0;
# if true, use the original command if the result is an entity
$ENABLE_ENCODING_USE_ENTITY = 0;
# if set, output the contents where the command is located
# This is ignored if set*contentsaftertitlepage is set
$INLINE_CONTENTS = 1;
# symbol put at the beginning of nodes entry in menu (and optionnaly of
# unnumbered in menus, see UNNUMBERED_SYMBOL_IN_MENU variable)
$MENU_SYMBOL = '*';
# symbol put at the end of nodes entry in menu
$MENU_ENTRY_COLON = ':';
# symbol put at the end of index entries
$INDEX_ENTRY_COLON = ':';
# if set, then use node names in menu entries, instead of section names
$NODE_NAME_IN_MENU = 1;
# if set use the node names in index entry, instead of section names
# if not set, it is set to the same value than NODE_NAME_IN_MENU
$NODE_NAME_IN_INDEX = undef;
# if set always separate description and menu link, even in
# preformatted environment
$SEPARATE_DESCRIPTION = 0;
# try up sections to complete the node directions
$USE_UP_FOR_ADJACENT_NODES = 0;
# use accesskey in hrefs
$USE_ACCESSKEY = 1;
# use rel= and rev= in hrefs. Currently only rel is used
$USE_REL_REV = 1;
# generate <link> elements in head
$USE_LINKS = 1;
# if this variable is true, numeric entities are used when there is no
# corresponding textual entity.
$USE_NUMERIC_ENTITY = 0;
# if set and $SPLIT is set, then split index pages at the next letter
# after they have more than that many entries
$SPLIT_INDEX = 0;
# file name used for Top node when NODE_FILES is true
$TOP_NODE_FILE = undef;
# extensions used for images
@IMAGE_EXTENSIONS = ('png','jpg', 'txt');
$USE_NODES = 1;
$USE_SECTIONS = 1;
# also set by command line options
$FOOTNOTESTYLE = 'end';
$DOCTYPE = '';
$USE_ISO = 0;
$NUMBER_SECTIONS = 1;
$TOP_FILE = '';
$ENABLE_ENCODING = 0;
#
# Formatting functions
#
# They will be reset here between formats switch
# if they are defined in this function.
#
# these are more or less the documented vanilla versions, so they
# are reset
$unknown = \&t2h_default_unknown;
$unknown_style = \&t2h_default_unknown_style;
$external_ref = \&t2h_default_external_ref;
$internal_ref = \&t2h_default_internal_ref;
$tab_item_texi = \&t2h_default_tab_item_texi;
$complex_format = \&t2h_default_complex_format;
$toc_body = \&T2H_DEFAULT_toc_body;
$misc_command_line = \&t2h_default_misc_command_line;
$misc_command_line_texi = \&t2h_default_misc_command_line;
$print_title = \&T2H_DEFAULT_print_title;
# reset in info and xml
$element_heading = \&t2h_default_element_heading;
# reset in html
$inline_contents = \&T2H_DEFAULT_inline_contents;
# reset in docbook and info.
$style = \&T2H_GPL_style;
$format = \&T2H_GPL_format;
# reset in info
$simple_command = \&t2h_default_simple_command;
# reset in info
$thing_command = \&t2h_default_thing_command;
# reset in html and xml
$caption_shortcaption = \&t2h_default_caption_shortcaption;
$caption_shortcaption_command = \&t2h_default_caption_shortcaption_command;
# reset in docbook and xml. Not really vanilla, but documented.
$printindex = \&t2h_GPL_default_printindex;
# reset by xml and html
$misc_element_label = \&t2h_default_misc_element_label;
# set in html
$init_out = \&t2h_default_init_out;
# set in info and xml
$paragraph_style_command = \&t2h_default_paragraph_style_command;
# set in info
$colon_command = \&t2h_default_colon_command;
# set in docbook
$quotation_prepend_text = \&t2h_default_quotation_prepend_text;
# set in info
$copying_comment = \&t2h_default_copying_comment;
# set in html and info
$print_section = \&T2H_DEFAULT_print_section;
# set in docbook and xml
%colon_command_punctuation_characters = (
'.' => '.',
':' => ':',
'?' => '?',
'!' => '!'
);
# in info
$footnote_texi = undef;
$begin_paragraph_texi = undef;
$begin_style_texi = undef;
$begin_special_region = undef;
$end_special_region = undef;
$empty_preformatted = undef;
%line_command_map = (
'title' => '',
'subtitle' => '',
'author' => '',
);
%format_in_paragraph = (
);
# map mapping css specification to style
%css_map =
(
);
@text_substitutions_normal = ();
@text_substitutions_texi = ();
@text_substitutions_simple_format = ();
@text_substitutions_pre = ();
%region_formats_kept = ();
%style_map_texi = ();
t2h_default_copy_style_map (\%default_style_map_texi, \%style_map_texi);
# reset in info
%simple_map_texi = %default_simple_map;
# modified in docbook
%special_accents = (
'ringaccent' => 'aA',
"'" => 'aeiouyAEIOUY',
',' => 'cC',
'^' => 'aeiouAEIOU',
'`' => 'aeiouAEIOU',
'~' => 'nNaoAO',
'"' => 'aeiouyAEIOU',
# according to http://www2.lib.virginia.edu/small/vhp/download/ISO.txt
# however this doesn't seems to work in firefox
# 'ogonek' => 'aeiuAEIU',
);
# modified by info, xml, docbook
# %no_paragraph_commands should not be reset since it has been
# filled with defaults for many other commands.
# FIXME this prevents the user from setting those entries.
$no_paragraph_commands{'cindex'} = 1;
$no_paragraph_commands{'float'} = 1;
delete $no_paragraph_commands{'anchor'};
# modified in docbook and xml
%stop_paragraph_command = (
'titlefont' => 1,
'insertcopying' => 1,
'sp' => 1,
'verbatiminclude' => 1,
'page' => 1,
# FIXME they also stop preformatted, so cannot be here.
# 'printindex' => 1,
# 'listoffloats' => 1
);
}
sub t2h_default_raw_text_load()
{
$SPLIT = '';
# extension for nodes files when NODE_FILES is true
$NODE_FILE_EXTENSION = 'txt';
# extension
$EXTENSION = 'txt';
@T2H_FORMAT_EXPAND = ('plaintext');
$USE_TITLEPAGE_FOR_TITLE = 0;
$HEADERS = 0;
$SIMPLE_MENU = 1;
$INLINE_INSERTCOPYING = 0;
$NODE_FILENAMES = undef;
%simple_map = %default_simple_map;
%simple_map_pre = %simple_map;
%things_map = %default_things_map;
%pre_map = %things_map;
%style_map = ();
%style_map_pre = ();
t2h_default_copy_style_map (\%default_style_map, \%style_map);
t2h_default_copy_style_map (\%default_style_map_pre, \%style_map_pre);
# could also be t2h_default_set_iso_symbols()
t2h_remove_text_substitutions("'", 1, 0, 0, 1);
t2h_remove_text_substitutions('`', 1, 0, 0, 1);
$OPEN_QUOTE_SYMBOL = '`';
$CLOSE_QUOTE_SYMBOL = "'";
$BEFORE_OVERVIEW = "";
$AFTER_OVERVIEW = "";
$BEFORE_TOC_LINES = "";
$AFTER_TOC_LINES = "";
foreach my $complex_format ('example', 'smallexample', 'display',
'smalldisplay', 'lisp', 'smalllisp', 'format', 'smallformat',
'menu', 'detailmenu', 'direntry', 'menu_comment')
{
$complex_format_map{$complex_format}->{'begin'} = '';
$complex_format_map{$complex_format}->{'end'} = '';
}
%format_map = (
# 'quotation' => 'blockquote',
# lists
# 'itemize' => 'ul',
'enumerate' => '',
# 'multitable' => 'table',
'table' => '',
'vtable' => '',
'ftable' => '',
'group' => '',
'raggedright' => '',
# 'detailmenu' => '',
);
#
# Controls the layout
#
$print_page_head = \&T2H_DEFAULT_print_page_head;
$contents = \&T2H_DEFAULT_contents;
$shortcontents = \&T2H_DEFAULT_shortcontents;
$one_section = \&T2H_DEFAULT_one_section;
$print_Top = \&T2H_DEFAULT_print_Top;
$print_Top_footer = \&T2H_DEFAULT_print_Top_footer;
$print_misc_header = \&T2H_DEFAULT_print_misc_header;
$print_misc_footer = \&T2H_DEFAULT_print_misc_footer;
$print_section_footer = \&T2H_DEFAULT_print_section_footer;
$print_chapter_header = \&T2H_DEFAULT_print_chapter_header;
$print_section_header = \&T2H_DEFAULT_print_section_header;
$print_chapter_footer = \&T2H_DEFAULT_print_chapter_footer;
$print_page_foot = \&T2H_DEFAULT_print_page_foot;
$print_head_navigation = \&T2H_DEFAULT_print_head_navigation;
$print_foot_navigation = \&T2H_DEFAULT_print_foot_navigation;
$end_section = \&T2H_DEFAULT_end_section;
# changed in info
$print_Footnotes = \&T2H_DEFAULT_print_Footnotes;
# used if split
$about_body = \&T2H_DEFAULT_about_body;
$print_navigation = \&T2H_DEFAULT_print_navigation;
#
# Controls the formatting
#
$empty_line = \&t2h_default_empty_line;
$anchor = \&t2h_default_anchor;
$anchor_label = \&t2h_default_anchor_label;
$image = \&t2h_default_image;
$heading = \&t2h_default_heading;
$heading_text = \&t2h_default_heading_text;
$heading_text_preformatted = \&t2h_default_heading_text_preformatted;
$element_label = \&t2h_default_element_label;
$index_entry_label = \&t2h_default_index_entry_label;
#$menu_command = \&t2h_default_menu_command;
$menu_link = \&t2h_default_menu_link;
#$menu_description = \&t2h_default_menu_description;
$paragraph = \&t2h_default_paragraph;
$preformatted = \&t2h_default_preformatted;
$protect_text = \&t2h_default_protect_text;
$normal_text = \&t2h_default_normal_text;
$acronym_like = \&t2h_default_acronym_like;
$sp = \&t2h_default_sp;
$quotation = \&t2h_default_quotation;
$table_list = \&t2h_default_table_list;
$list_item = \&t2h_default_list_item;
$table_line = \&t2h_default_table_line;
$table_item = \&t2h_default_table_item;
$cell = \&t2h_default_cell;
$row = \&t2h_default_row;
$def_item = \&t2h_default_def_item;
$def = \&t2h_default_def;
$def_line = \&t2h_default_def_line;
$cartouche = \&t2h_default_cartouche;
$raw = \&t2h_default_raw;
$format_list_item_texi = \&t2h_default_format_list_item_texi;
$print_index = \&t2h_default_print_index;
$index_summary = \&t2h_default_index_summary;
$index_entry = \&t2h_default_index_entry;
$index_letter = \&t2h_default_index_letter;
$foot_line_and_ref = \&t2h_default_foot_line_and_ref;
$foot_section = \&t2h_default_foot_section;
$tab_item_texi = \&t2h_default_tab_item_texi;
$listoffloats = \&t2h_default_listoffloats;
$listoffloats_entry = \&t2h_default_listoffloats_entry;
$float = \&t2h_default_float;
t2h_default_set_variables_default();
}
my %things_map_xml;
my %pre_map_xml;
sub t2h_default_set_variables_xml()
{
t2h_default_set_variables_default();
$ENABLE_ENCODING_USE_ENTITY = 1;
$EXTENSION = 'xml';
t2h_default_set_iso_symbols(1);
$empty_line = \&t2h_default_empty_line;
$comment = \&xml_default_comment;
$line_command = \&xml_default_line_command;
%things_map = %things_map_xml;
%pre_map = %pre_map_xml;
%simple_format_texi_map = %pre_map;
%simple_format_style_map_texi = ();
t2h_default_copy_style_map (\%default_style_map_texi, \%simple_format_style_map_texi);
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents))
{
# $simple_format_style_map_texi{$accent_command}->{'args'} = ['normal'];
$simple_format_style_map_texi{$accent_command}->{'function'} = \&xml_default_accent;
}
}
sub t2h_default_set_variables_texi2html()
{
$USE_SETFILENAME = 0;
$USE_SETFILENAME_EXTENSION = 0;
$FOOTNOTESTYLE = 'separate';
$INLINE_CONTENTS = 0;
$FORCE = 1;
$AVOID_MENU_REDUNDANCY = 1;
$TOP_HEADING_AT_BEGINNING = 1;
$TOP_FILE = '';
$USE_ACCESSKEY = 0;
$NODE_NAME_IN_MENU = 0;
$OVERVIEW_LINK_TO_TOC = 0;
$USE_UP_FOR_ADJACENT_NODES = 1;
$USE_ACCESSKEY = 0;
$USE_REL_REV = 0;
$USE_LINKS = 0;
$USE_NODES = undef;
$USE_SECTIONS = 1;
$NODE_FILENAMES = 0;
$USE_NUMERIC_ENTITY = 1;
$SPLIT = '';
$SPLIT_INDEX = 100;
$PROGRAM_NAME_IN_FOOTER = 1;
$HEADER_IN_TABLE = 1;
$SHORT_REF = 0;
$USE_TITLEPAGE_FOR_TITLE = 1;
$MENU_ENTRY_COLON = '';
$INDEX_ENTRY_COLON = '';
$ENABLE_ENCODING_USE_ENTITY = 1;
}
# specify in this array which "buttons" should appear in which order
# in the navigation panel for sections; use ' ' for empty buttons (space)
@SECTION_BUTTONS =
(
'FastBack', 'Back', 'Up', 'Forward', 'FastForward',
' ', ' ', ' ', ' ',
'Top', 'Contents', 'Index', 'About',
);
# buttons for misc stuff
@MISC_BUTTONS = ('Top', 'Contents', 'Index', 'About');
@TOP_BUTTONS = ( 'Back', 'Forward', ' ','Contents', 'Index', 'About');
#@TOP_BUTTONS = ('Top', 'Contents', 'Index', 'About');
# buttons for chapter file footers
# (and headers but only if HEADERS is false)
@CHAPTER_BUTTONS =
(
'FastBack', 'FastForward', ' ',
' ', ' ', ' ', ' ',
'Top', 'Contents', 'Index', 'About',
);
# buttons for section file footers
@SECTION_FOOTER_BUTTONS =
(
'FastBack', 'Back', 'Up', 'Forward', 'FastForward',
);
@NODE_FOOTER_BUTTONS = @SECTION_BUTTONS;
@LINKS_BUTTONS =
(
'Top', 'Index', 'Contents', 'About', 'Up', 'NextFile', 'PrevFile'
);
# insert here name of icon images for buttons
# Icons are used, if $ICONS and resp. value are set
%ACTIVE_ICONS =
(
'Top', '',
'Contents', '',
'Overview', '',
'Index', '',
'This', '',
'Back', '',
'FastBack', '',
'Prev', '',
'Up', '',
'Next', '',
'NodeUp', '',
'NodeNext', '',
'NodePrev', '',
'Following', '',
'Forward', '',
'FastForward', '',
'About' , '',
'First', '',
'Last', '',
'NextFile', '',
'PrevFile', '',
' ', '',
);
# insert here name of icon images for these, if button is inactive
%PASSIVE_ICONS =
(
'Top', '',
'Contents', '',
'Overview', '',
'Index', '',
'This', '',
'Back', '',
'FastBack', '',
'Prev', '',
'Up', '',
'Next', '',
'NodeUp', '',
'NodeNext', '',
'NodePrev', '',
'Following', '',
'Forward', '',
'FastForward', '',
'About', '',
'First', '',
'Last', '',
'NextFile', '',
'PrevFile', '',
);
%misc_pages_targets = (
'Overview' => 'SEC_Overview',
'Contents' => 'SEC_Contents',
'Footnotes' => 'SEC_Foot',
'About' => 'SEC_About'
);
# determine the null devices
my $default_null_device = File::Spec->devnull();
%null_device_file = (
$default_null_device => 1
);
# special case, djgpp recognizes both null devices
if ($Config{osname} eq 'dos' and $Config{osvers} eq 'djgpp')
{
$null_device_file{'/dev/null'} = 1;
$null_device_file{'NUL'} = 1;
}
$finish_out = \&t2h_default_finish_out;
$translate_names = \&t2h_default_translate_names;
sub t2h_default_translate_names()
{
# Names of text as alternative for icons
# FIXME maybe get those in simple_format?
%NAVIGATION_TEXT =
(
'Top', gdt('Top'),
'Contents', gdt('Contents'),
'Overview', gdt('Overview'),
'Index', gdt('Index'),
' ', ' ',
'This', gdt('Current'),
'Back', ' < ',
'FastBack', ' << ',
'Prev', gdt('Previous'),
'Up', gdt('Up'),
'Next', gdt('Next'),
'NodeUp', gdt('Up'),
'NodeNext', gdt('Next'),
'NodePrev', gdt('Previous'),
'Following', gdt('Following'),
'Forward', ' > ',
'FastForward', ' >> ',
'About', ' ? ',
'First', ' |< ',
'Last', ' >| ',
'NextFile', gdt('Next file'),
'PrevFile', gdt('Previous file'),
);
%BUTTONS_TEXT = %NAVIGATION_TEXT;
%BUTTONS_GOTO =
(
'Top', gdt('Cover (top) of document'),
'Contents', gdt('Table of contents'),
'Overview', gdt('Short table of contents'),
'Index', gdt('Index'),
'This', gdt('Current section'),
'Back', gdt('Previous section in reading order'),
'FastBack', gdt('Beginning of this chapter or previous chapter'),
'Prev', gdt('Previous section on same level'),
'Up', gdt('Up section'),
'Next', gdt('Next section on same level'),
'NodeUp', gdt('Up node'),
'NodeNext', gdt('Next node'),
'NodePrev', gdt('Previous node'),
'Following', gdt('Node following in node reading order'),
'Forward', gdt('Next section in reading order'),
'FastForward', gdt('Next chapter'),
'About' , gdt('About (help)'),
'First', gdt('First section in reading order'),
'Last', gdt('Last section in reading order'),
'NextFile', gdt('Forward section in next file'),
'PrevFile', gdt('Back section in previous file'),
);
%BUTTONS_NAME =
(
'Top', gdt('Top'),
'Contents', gdt('Contents'),
'Overview', gdt('Overview'),
'Index', gdt('Index'),
' ', ' ',
'This', gdt('This'),
'Back', gdt('Back'),
'FastBack', gdt('FastBack'),
'Prev', gdt('Prev'),
'Up', gdt('Up'),
'Next', gdt('Next'),
'NodeUp', gdt('NodeUp'),
'NodeNext', gdt('NodeNext'),
'NodePrev', gdt('NodePrev'),
'Following', gdt('Following'),
'Forward', gdt('Forward'),
'FastForward', gdt('FastForward'),
'About', gdt('About'),
'First', gdt('First'),
'Last', gdt('Last'),
'NextFile', gdt('NextFile'),
'PrevFile', gdt('PrevFile'),
);
}
sub t2h_default_set_iso_symbols($)
{
my $value = shift;
$USE_ISO = $value;
if ($value)
{
foreach my $association ([\%things_map, \%things_map_xml],
[\%pre_map, \%pre_map_xml],
[\%simple_format_simple_map_texi, \%pre_map_xml])
{
foreach my $thing (keys(%{$association->[0]}))
{
if (defined($association->[0]->{$thing}) and $association->[0]->{$thing} !~ /^\&\w+\;$/ and defined($association->[1]->{$thing}) and $association->[1]->{$thing} =~ /^\&\w+\;$/)
{
$association->[0]->{$thing} = $association->[1]->{$thing};
}
}
}
t2h_add_text_substitutions(["'", '’'], 1, 0, 0, 1);
t2h_add_text_substitutions(['`', '‘'], 1, 0, 0, 1);
$OPEN_QUOTE_SYMBOL = '‘';
$CLOSE_QUOTE_SYMBOL = '’';
}
else
{
foreach my $association ([\%things_map, \%default_things_map],
[\%pre_map, \%default_things_map],
[\%simple_format_simple_map_texi, \%default_things_map])
{
foreach my $thing (keys(%{$association->[0]}))
{
if (defined($association->[0]->{$thing}) and $association->[0]->{$thing} =~ /^\&\w+\;$/ and defined($association->[1]->{$thing}) and $association->[1]->{$thing} !~ /^\&\w+\;$/)
{
$association->[0]->{$thing} = &$protect_text($association->[1]->{$thing});
}
}
}
t2h_remove_text_substitutions("'", 1, 0, 0, 1);
t2h_remove_text_substitutions('`', 1, 0, 0, 1);
$OPEN_QUOTE_SYMBOL = '`';
$CLOSE_QUOTE_SYMBOL = "'";
}
}
# is used in main program for dumping texi too.
sub t2h_default_set_out_encoding()
{
# these variables are used for the corresponding
# $Texi2HTML::THISDOC{'*_ENCODING'} to keep code shorter
my ($out_encoding, $encoding_name, $document_encoding);
$document_encoding = get_conf('DOCUMENT_ENCODING');
if (defined($OUT_ENCODING))
{
$out_encoding = $OUT_ENCODING;
}
if (defined($ENCODING_NAME))
{
$encoding_name = $ENCODING_NAME;
}
if (!defined($out_encoding) and (defined($encoding_name)))
{
my $possible_out_encoding = main::encoding_alias ($encoding_name, undef, 'determining encoding from default encoding');
$out_encoding = $possible_out_encoding if (defined($possible_out_encoding));
}
if (!defined($out_encoding) and (defined(get_conf('IN_ENCODING'))))
{
$out_encoding = get_conf('IN_ENCODING');
}
if (!defined($out_encoding) and (defined($document_encoding)))
{
my $possible_out_encoding = main::encoding_alias ($document_encoding, undef, 'determining encoding from documentencoding');
$out_encoding = $possible_out_encoding if (defined($possible_out_encoding));
}
if (!defined($encoding_name))
{
if (defined($out_encoding) and defined($perl_charset_to_html{$out_encoding}))
{
$encoding_name = $perl_charset_to_html{$out_encoding};
}
elsif (defined(get_conf('IN_ENCODING')) and defined($perl_charset_to_html{get_conf('IN_ENCODING')}))
{
$encoding_name = $perl_charset_to_html{get_conf('IN_ENCODING')};
}
elsif (defined($document_encoding) and defined($perl_charset_to_html{$document_encoding}))
{
$encoding_name = $perl_charset_to_html{$document_encoding};
}
elsif (defined($out_encoding))
{
$encoding_name = $out_encoding;
}
elsif (defined(get_conf('IN_ENCODING')))
{
$encoding_name = get_conf('IN_ENCODING');
}
elsif (defined($document_encoding))
{
$encoding_name = $document_encoding;
}
elsif (defined($perl_charset_to_html{$DEFAULT_ENCODING}))
{
$encoding_name = $perl_charset_to_html{$DEFAULT_ENCODING};
}
else
{
$encoding_name = 'us-ascii';
}
}
$Texi2HTML::THISDOC{'OUT_ENCODING'} = $out_encoding;
$Texi2HTML::THISDOC{'ENCODING_NAME'} = $encoding_name;
$out_encoding = 'UNDEF' if (!defined($out_encoding));
my $in_encoding = get_conf('IN_ENCODING');
$in_encoding = 'UNDEF' if (!defined($in_encoding));
$document_encoding = 'UNDEF' if (!defined($document_encoding));
print STDERR "# Encodings: doc $document_encoding, in $in_encoding out $out_encoding, name $encoding_name\n" if ($VERBOSE);
}
sub t2h_default_init_out()
{
&$translate_names;
# set external cross ref splitting like splitting.
if (!defined($EXTERNAL_CROSSREF_SPLIT))
{
if (get_conf('SPLIT'))
{
$Texi2HTML::THISDOC{'EXTERNAL_CROSSREF_SPLIT'} = 1;
}
else
{
$Texi2HTML::THISDOC{'EXTERNAL_CROSSREF_SPLIT'} = 0;
}
}
else
{
$Texi2HTML::THISDOC{'EXTERNAL_CROSSREF_SPLIT'} = $EXTERNAL_CROSSREF_SPLIT;
}
}
my %t2h_default_formats_load_table = (
'html' => \&html_default_load,
'info' => \&info_default_load,
'docbook' => \&docbook_default_load,
'xml' => \&xml_default_load,
'plaintext' => \&plaintext_default_load,
'raw-text' => \&t2h_default_raw_text_load,
);
sub t2h_default_load_format($;$)
{
my $format = shift;
my $from_command_line = shift;
if (defined($t2h_default_formats_load_table{$format}))
{
$OUTPUT_FORMAT = $format;
&{$t2h_default_formats_load_table{$format}}($from_command_line);
$Texi2HTML::THISDOC{'format_from_command_line'} = $format if ($from_command_line);
return 1;
}
else
{
return 0;
}
}
sub t2h_encoding_is_entity($)
{
my $text = shift;
return 0 if (!$ENABLE_ENCODING_USE_ENTITY);
return 1 if ($text =~ /^&/ and $text =~ /;$/);
}
# this is for info.init
use vars qw(%t2h_enable_encoding_default_accent);
my @t2h_enable_encoding_accents_stack;
my %t2h_enable_encoding_default_commands;
sub t2h_enable_encoding_load()
{
t2h_default_push_handler(\&t2h_enable_encoding_init, \@command_handler_names);
t2h_default_push_handler(\&t2h_enable_encoding_finish, \@command_handler_finish);
#push @command_handler_process, \&t2h_enable_encoding_init;
#push @command_handler_finish, \&t2h_enable_encoding_finish;
foreach my $key (keys(%unicode_accents), 'dotless')
{
$t2h_enable_encoding_default_accent{'normal'}->{$key} = $style_map{$key}->{'function'};
$t2h_enable_encoding_default_accent{'texi'}->{$key} = $style_map_texi{$key}->{'function'};
$t2h_enable_encoding_default_accent{'pre'}->{$key} = $style_map_pre{$key}->{'function'};
$style_map{$key}->{'function'} = \&t2h_enable_encoding_normal_accent;
$style_map_texi{$key}->{'function'} = \&t2h_enable_encoding_texi_accent;
$style_map_pre{$key}->{'function'} = \&t2h_enable_encoding_pre_accent;
}
foreach my $key (%things_map)
{
if (exists($unicode_map{$key}) and ($unicode_map{$key} ne ''))
{
$t2h_enable_encoding_default_commands{'normal'}->{$key} = $things_map{$key};
$t2h_enable_encoding_default_commands{'texi'}->{$key} = $texi_map{$key};
$t2h_enable_encoding_default_commands{'sorting'}->{$key} = $sorting_things_map{$key};
$t2h_enable_encoding_default_commands{'pre'}->{$key} = $pre_map{$key};
}
}
}
sub t2h_enable_encoding_finish()
{
foreach my $key (%things_map)
{
if (exists($unicode_map{$key}) and ($unicode_map{$key} ne ''))
{
$things_map{$key} = $t2h_enable_encoding_default_commands{'normal'}->{$key};
$texi_map{$key} = $t2h_enable_encoding_default_commands{'texi'}->{$key};
$sorting_things_map{$key} = $t2h_enable_encoding_default_commands{'sorting'}->{$key};
$pre_map{$key} = $t2h_enable_encoding_default_commands{'pre'}->{$key};
}
}
}
sub t2h_enable_encoding_init()
{
if ($Texi2HTML::THISDOC{'ENCODING_NAME'} eq 'utf-8')
{
foreach my $key (%things_map)
{
if (exists($unicode_map{$key}) and ($unicode_map{$key} ne ''))
{
$things_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($things_map{$key}));
$texi_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($texi_map{$key}));
$sorting_things_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($sorting_things_map{$key}));
$pre_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($pre_map{$key}));
}
}
}
elsif (exists($makeinfo_encoding_to_map{$Texi2HTML::THISDOC{'ENCODING_NAME'}}))
{
my $enc_map = $makeinfo_encoding_to_map{$Texi2HTML::THISDOC{'ENCODING_NAME'}};
foreach my $key (%things_map)
{
if (exists($unicode_map{$key}) and ($unicode_map{$key} ne '') and
exists($makeinfo_unicode_to_eight_bit{$enc_map}->{$unicode_map{$key}}))
{ # we let perl handle the conversion
$things_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($things_map{$key}));
$texi_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($texi_map{$key}));
$sorting_things_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($sorting_things_map{$key}));
$pre_map{$key} = chr(hex($unicode_map{$key})) unless (t2h_encoding_is_entity($pre_map{$key}));
}
}
@t2h_enable_encoding_accents_stack = ();
}
}
sub t2h_default_string_width($)
{
my $string = shift;
if ($USE_UNICODE)
{
my $width = 0;
foreach my $character(split '', $string)
{
if ($character =~ /\p{Unicode::EastAsianWidth::InFullwidth}/)
{
$width += 2;
}
else
{
$width += 1;
}
}
return $width;
}
else
{
return length($string);
}
}
sub t2h_default_finish_out()
{
}
#######################################################################
#
# Values guessed if not set here. The value used is in
# $Texi2HTML::THISDOC{'VARNAME'}
#
#######################################################################
# In file encoding. The @documentencoding allows autodetection of
# that variable.
$DOCUMENT_ENCODING = undef;
# In file encoding, understandable by perl. Set according to DOCUMENT_ENCODING
$IN_ENCODING = undef;
# Formatted document encoding name. If undef, set in init_out based on
# $OUT_ENCODING or $DOCUMENT_ENCODING if they are defined
$ENCODING_NAME = undef;
# Out files encoding, understandable by perl. If undef, set in init_out
# using $ENCODING_NAME or $IN_ENCODING if they are defined
$OUT_ENCODING = undef;
# Used to set $Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'}.
# if undef set to @documentdescription. If there is no @documentdescription,
# set in page_head.
$DOCUMENT_DESCRIPTION = undef;
# if undef $Texi2HTML::THISDOC{'EXTERNAL_CROSSREF_SPLIT'} set 1 if SPLIT,
# to 0 otherwise
$EXTERNAL_CROSSREF_SPLIT = undef;
$DATE = undef;
########################################################################
# Control of Page layout:
# You can make changes of the Page layout at two levels:
# 1.) For small changes, it is often enough to change the value of
# some global string/hash/array variables
# 2.) For larger changes, reimplement one of the T2H_DEFAULT_<fnc>* routines,
# give them another name, and assign them to the respective
# $<fnc> variable.
# As a general interface, the hashes Texi2HTML::HREF, Texi2HTML::NAME, Texi2HTML::NODE, Texi2HTML::NO_TEXI, Texi2HTML::SIMPLE_TEXT hold
# href, html-name, node-name, name after removal of texi commands of
# This -- current section (resp. html page)
# Top -- top element
# Contents -- Table of contents element
# Overview -- Short table of contents element
# Index -- Index page element
# About -- page which explain "navigation buttons" element
# First -- first node element
# Last -- last node element
#
# Whether or not the following hash values are set, depends on the context
# (all values are w.r.t. 'This' section)
# Next -- next element of texinfo
# Prev -- previous element of texinfo
# NodeUp -- up node of texinfo
# Following -- following node in node reading order, taking menu into account
# Forward -- next node in reading order
# Back -- previous node in reading order
# Up -- parent given by sectioning commands
# FastForward -- if leave node, up and next, else next node
# FastBackward-- if leave node, up and prev, else prev node
#
# Furthermore, the following global variabels are set:
# $Texi2HTML::THISDOC{title} -- title as set by @title...
# $Texi2HTML::THISDOC{title_no_texi} -- title without texi (without html elements)
# $Texi2HTML::THISDOC{title_texi} -- title with texinfo @-commands
# $Texi2HTML::THISDOC{fulltitle} -- full title as set by @title...
# $Texi2HTML::THISDOC{subtitle} -- subtitle as set by @subtitle
# $Texi2HTML::THISDOC{author} -- author as set by @author
# $Texi2HTML::THISDOC{copying_comment} -- text of @copying and @end copying in comment
#
# $Texi2HTML::THISDOC{program} -- name and version of texi2html
# $Texi2HTML::THISDOC{program_homepage} -- homepage for texi2html
# $Texi2HTML::THISDOC{program_authors} -- authors of texi2html
# $Texi2HTML::THISDOC{today} -- date formatted with pretty_date
# $Texi2HTML::THISDOC{toc_file} -- table of contents file
# $Texi2HTML::THISDOC{file_base_name} -- base name of the texinfo manual file
# $Texi2HTML::THISDOC{input_file_name} -- name of the texinfo manual file
# $Texi2HTML::THISDOC{destination_directory}
# -- directory for the resulting files
# $Texi2HTML::THISDOC{user} -- user running the script
# $Texi2HTML::THISDOC{css_import_lines} -- ref on @import lines in css files
# $Texi2HTML::THISDOC{css_rule_lines} -- ref on css rules lines
# other $Texi2HTML::THISDOC keys corresponds with texinfo commands, the value
# being the command arg, for the following commands:
# kbdinputstyle, paragraphindent, setchapternewpage, headings, footnotestyle,
# exampleindent, firstparagraphindent, everyheading, everyfooting,
# evenheading, evenfooting, oddheading, oddfooting
#
# and pointer to arrays of lines which need to be printed by main::print_lines
# $Texi2HTML::THIS_SECTION -- lines of 'This' section
# $Texi2HTML::OVERVIEW -- lines of short table of contents
# $Texi2HTML::TOC_LINES -- lines of table of contents
# $Texi2HTML::TITLEPAGE -- lines of title page
#
# $Texi2HTML::THIS_ELEMENT holds the element reference.
# most of the functions are either reset when switching format, in
# t2h_default_set_variables_default, or set in format, the simplest
# one being setup above in t2h_default_raw_text_load
#
# The following generic subs control the layout:
#
# misc element formatting functions. They are rather generic,
# their call is controlled by other variables (separate or not
# footnotes, about_body, handling of table of contents...).
# print_Footnotes is the only to be redefined, in info
$print_Toc = \&T2H_DEFAULT_print_Toc;
$print_Overview = \&T2H_DEFAULT_print_Overview;
$print_About = \&T2H_DEFAULT_print_About;
$print_misc = \&T2H_DEFAULT_print_misc;
# generic enough (call print_page_head if needed)
$print_Top_header = \&T2H_DEFAULT_print_Top_header;
# the following are less generic, but in case a specific format
# doesn't redefine them, the raw text functions are always defined.
$print_page_head = \&T2H_DEFAULT_print_page_head;
$contents = \&T2H_DEFAULT_contents;
$shortcontents = \&T2H_DEFAULT_shortcontents;
$one_section = \&T2H_DEFAULT_one_section;
$print_Top = \&T2H_DEFAULT_print_Top;
$print_Top_footer = \&T2H_DEFAULT_print_Top_footer;
$print_misc_header = \&T2H_DEFAULT_print_misc_header;
$print_misc_footer = \&T2H_DEFAULT_print_misc_footer;
$print_section_footer = \&T2H_DEFAULT_print_section_footer;
$print_chapter_header = \&T2H_DEFAULT_print_chapter_header;
$print_section_header = \&T2H_DEFAULT_print_section_header;
$print_chapter_footer = \&T2H_DEFAULT_print_chapter_footer;
$print_page_foot = \&T2H_DEFAULT_print_page_foot;
$print_head_navigation = \&T2H_DEFAULT_print_head_navigation;
$print_foot_navigation = \&T2H_DEFAULT_print_foot_navigation;
$end_section = \&T2H_DEFAULT_end_section;
# changed in info
$print_Footnotes = \&T2H_DEFAULT_print_Footnotes;
# used if split
$about_body = \&T2H_DEFAULT_about_body;
$print_navigation = \&T2H_DEFAULT_print_navigation;
#
# generic formatting functions
#
$button_icon_img = \&T2H_DEFAULT_button_icon_img;
# not really needed nor relevant except for html
$print_frame = \&T2H_DEFAULT_print_frame;
$print_toc_frame = \&T2H_DEFAULT_print_toc_frame;
# generic
$titlepage = \&T2H_DEFAULT_titlepage;
$css_lines = \&T2H_DEFAULT_css_lines;
$print_redirection_page = \&T2H_DEFAULT_print_redirection_page;
$node_file_name = \&T2H_DEFAULT_node_file_name;
$inline_contents = \&T2H_DEFAULT_inline_contents;
$program_string = \&T2H_DEFAULT_program_string;
$element_file_name = \&t2h_default_element_file_name;
########################################################################
# Layout for every sections
#
sub T2H_DEFAULT_print_section($$$$)
{
my $fh = shift;
my $first_in_page = shift;
my $previous_is_top = shift;
my $element = shift;
my $nw = main::print_lines($fh);
}
sub T2H_DEFAULT_one_section($$)
{
my $fh = shift;
my $element = shift;
main::print_lines($fh);
&$print_page_foot($fh);
}
###################################################################
# Layout of top-page. It is possible to use @ifnothtml, @ifhtml,
# @html within the Top texinfo node to specify content of top-level
# page.
#
sub T2H_DEFAULT_print_Top_header($$)
{
my $fh = shift;
my $do_page_head = shift;
&$print_page_head($fh) if ($do_page_head);
}
sub T2H_DEFAULT_print_Top_footer($$$)
{
my $fh = shift;
my $end_page = shift;
my $element = shift;
if ($end_page)
{
&$print_page_foot($fh);
}
}
sub T2H_DEFAULT_print_Top($$$)
{
my $fh = shift;
my $has_top_heading = shift;
my $element = shift;
if ($Texi2HTML::THISDOC{'setshortcontentsaftertitlepage'})
{
my $shortcontents = &$inline_contents($fh, 'shortcontents');
print $fh "".join('',@$shortcontents) if (defined($shortcontents));
}
if ($Texi2HTML::THISDOC{'setcontentsaftertitlepage'})
{
my $contents = &$inline_contents($fh, 'contents');
print $fh "".join('',@$contents) if (defined($contents));
}
main::print_lines($fh, $Texi2HTML::THIS_SECTION);
}
###################################################################
# Layout of Toc, Overview, and Footnotes pages
# By default, we use "normal" layout
# Texi2HTML::HREF of Next, Prev, Up, Forward, Back, etc are not defined
# redefine \@MISC_BUTTONS to change the navigation
sub T2H_DEFAULT_print_Toc
{
return &$print_misc(@_);
}
sub T2H_DEFAULT_print_Overview
{
return &$print_misc(@_);
}
sub T2H_DEFAULT_print_Footnotes
{
return &$print_misc(@_);
}
sub T2H_DEFAULT_print_About
{
return &$print_misc(@_);
}
sub T2H_DEFAULT_print_misc_header($$$$)
{
my $fh = shift;
my $buttons = shift;
my $new_file = shift;
my $misc_page = shift;
&$print_page_head($fh) if ($new_file);
}
sub T2H_DEFAULT_print_misc_footer($$$)
{
my $fh = shift;
my $buttons = shift;
my $new_file = shift;
if ($new_file)
{
&$print_page_foot($fh);
}
}
use vars qw(
%t2h_default_underline_symbol
);
%t2h_default_underline_symbol = (
0 => '*',
1 => '*',
2 => '=',
3 => '-',
4 => '.'
);
sub t2h_default_heading_text($$$)
{
my $command = shift;
my $text = shift;
my $level = shift;
return '' if ($text !~ /\S/);
my $result = $text ."\n";
# as seen in encodings/nodetest_utf8_no_unicode, the length can be in
# bytes (certainly) when there hasn't been a require Encode
#$result .=($t2h_default_underline_symbol{$level} x length($text))."\n";
$result .=($t2h_default_underline_symbol{$level} x t2h_default_string_width($text))."\n";
return $result;
}
sub t2h_default_heading_text_preformatted($$$)
{
my $command = shift;
my $text = shift;
my $level = shift;
return t2h_default_heading_text($command, $text, $level);
}
sub T2H_DEFAULT_print_misc($$$)
{
my $fh = shift;
my $new_file = shift;
my $misc_page = shift;
my $buttons = \@MISC_BUTTONS;
&$print_misc_header($fh, $buttons, $new_file, $misc_page);
print $fh "".&$heading_text('misc heading', $Texi2HTML::NAME{This}, 1) . "\n";
main::print_lines($fh);
&$print_misc_footer($fh, $buttons, $new_file);
}
##################################################################
# section_footer is only called if SPLIT eq 'section'
# section_footer: after print_section of last section, before print_page_foot
#
sub T2H_DEFAULT_print_section_footer
{
my $fh = shift;
my $element = shift;
}
###################################################################
# chapter_header and chapter_footer are only called if
# SPLIT eq 'chapter'
# chapter_header: after print_page_head, before print_section
# chapter_footer: after print_section of last section, before print_page_foot
sub T2H_DEFAULT_print_chapter_header
{
my $fh = shift;
my $element = shift;
}
sub T2H_DEFAULT_print_chapter_footer
{
my $fh = shift;
my $element = shift;
}
sub T2H_DEFAULT_print_section_header
{
my $fh = shift;
}
###################################################################
# Layout of standard header and footer
#
sub T2H_DEFAULT_print_page_head($)
{
my $fh = shift;
}
sub T2H_DEFAULT_program_string()
{
my $date = $Texi2HTML::THISDOC{'today'};
$date = '' if (!defined($date));
if ($date ne '')
{
return gdt('This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.', {
'date' => $date, 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program' => $Texi2HTML::THISDOC{'program'} },{'duplicate'=>1});
}
return gdt('This document was generated using @uref{{program_homepage}, @emph{{program}}}.', {
'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program'
=> $Texi2HTML::THISDOC{'program'} },{'duplicate'=>1});
}
sub T2H_DEFAULT_end_section($$$)
{
my $fh = shift;
my $misc_or_top_and_section_separation = shift;
my $element = shift;
}
sub T2H_DEFAULT_print_page_foot($)
{
my $fh = shift;
}
###################################################################
# Layout of navigation panel
sub T2H_DEFAULT_print_head_navigation($$$$$)
{
my $fh = shift;
my $buttons = shift;
my $first_in_page = shift;
my $previous_is_top = shift;
my $element = shift;
return '';
}
sub T2H_DEFAULT_print_foot_navigation
{
my $fh = shift;
my $buttons = shift;
my $rule = shift;
my $print_navigation_panel = shift;
my $element = shift;
$rule = '' if (!defined($rule));
print $fh "$rule\n" if ($rule ne '');
}
######################################################################
# navigation panel
#
# how to create IMG tag
# this is only used in html, and only if ICONS is set and the button
# is active.
sub T2H_DEFAULT_button_icon_img
{
my $button = shift;
my $icon = shift;
my $name = shift;
return '' if (!defined($icon));
$button = "" if (!defined ($button));
$name = '' if (!defined($name));
my $alt = '';
if ($name ne '')
{
if ($button ne '')
{
$alt = "$button: $name";
}
else
{
$alt = $name;
}
}
else
{
$alt = $button;
}
return "$icon $alt";
}
sub T2H_DEFAULT_print_navigation
{
my $buttons = shift;
my $vertical = shift;
return '';
}
######################################################################
# Frames: this is from "Richard Y. Kim" <ryk@coho.net>
# Should be improved to be more conforming to other _print* functions
# toc_file and main_file passed as args are relative to the texinfo manual
# location, and therefore are not used.
# no-ops in the default case, doesn't really make sense if output is
# not html
sub T2H_DEFAULT_print_frame
{
my $fh = shift;
my $toc_file = shift;
my $main_file = shift;
$main_file = $Texi2HTML::THISDOC{'filename'}->{'top'};
$toc_file = $Texi2HTML::THISDOC{'filename'}->{'toc_frame'};
}
sub T2H_DEFAULT_print_toc_frame
{
my $fh = shift;
my $stoc_lines = shift;
}
# This subroutine is intended to fill @Texi2HTML::TOC_LINES and
# @Texi2HTML::OVERVIEW with the table of contents and short table of
# contents.
#
# arguments:
# ref on an array containing all the elements
# each element is a reference on a hash. The following keys might be of
# use:
# 'top': true if this is the top element
# 'toc_level': level of the element in the table of content. Highest level
# is 1 for the @top element and for chapters, appendix and so on,
# 2 for section, unnumberedsec and so on...
# 'tocid': label used for reference linking to the element in table of
# contents
# 'file': the file containing the element, usefull to do href to that file
# in case the document is split.
# 'text': text of the element, with section number
# 'text_nonumber': text of the element, without section number
# Relevant configuration variables are:
# $NO_BULLET_LIST_ATTRIBUTE: usefull in case a list is used
# $FRAMES: @Texi2HTML::OVERVIEW is used in one of the frames.
# $BEFORE_OVERVIEW
# $AFTER_OVERVIEW
# $BEFORE_TOC_LINES
# $AFTER_TOC_LINES
# get_conf('contents')
# get_conf('shortcontents')
sub T2H_DEFAULT_contents($$)
{
my $elements = shift;
my $toc_file = shift;
my @result;
return unless (get_conf('contents'));
foreach my $element (@$elements)
{
my $level = $element->{'toc_level'};
$level = 1 if ($level < 1);
my $text = $element->{'text'};
my $result = (' ' x ($level - 1)) . $text ."\n";
push @result, $result;
}
if (@result)
{
unshift @result, $BEFORE_TOC_LINES;
push @result, $AFTER_TOC_LINES;
}
return \@result;
}
sub T2H_DEFAULT_shortcontents($$)
{
my $elements = shift;
my $stoc_file = shift;
my @result;
return unless (get_conf('shortcontents'));
foreach my $element (@$elements)
{
my $level = $element->{'toc_level'};
next if ($level > 1);
$level = 1 if ($level < 1);
my $text = $element->{'text'};
push @result, $text ."\n";
}
if (@result)
{
unshift @result, $BEFORE_OVERVIEW;
push @result, $AFTER_OVERVIEW;
}
return \@result;
}
sub T2H_DEFAULT_print_title()
{
my $element = shift;
return undef unless ($SHOW_TITLE);
if ($USE_TITLEPAGE_FOR_TITLE)
{
my ($titlepage_text, $titlepage_no_texi, $titlepage_simple_format) = main::do_special_region_lines('titlepage',$Texi2HTML::THISDOC{'state'});
&$titlepage([],$titlepage_text, $titlepage_no_texi, $titlepage_simple_format);
return $Texi2HTML::TITLEPAGE;
}
else
{
my $title = '';
$title = $Texi2HTML::THISDOC{'simpletitle'} if (defined($Texi2HTML::THISDOC{'simpletitle'}) and $Texi2HTML::THISDOC{'simpletitle'} !~ /^\s*$/);
if ($title ne '')
{
return &$heading_text('@settitle', $title, 0) . "\n";
}
}
}
sub T2H_DEFAULT_toc_body($)
{
my $elements_list = shift;
my $toc_lines = &$contents($elements_list, $Texi2HTML::THISDOC{'toc_file'});
@{$Texi2HTML::TOC_LINES} = @$toc_lines if ($toc_lines);
my $stoc_lines = &$shortcontents($elements_list, $Texi2HTML::THISDOC{'stoc_file'});
@{$Texi2HTML::OVERVIEW} = @$stoc_lines if ($stoc_lines);
}
# element and elements_list may not be undef when called from the
# main program, but may be if called from other customization function,
# for example, here, print_Top.
sub T2H_DEFAULT_inline_contents($$$$)
{
my $fh = shift;
my $command = shift;
my $element = shift;
my $elements_list = shift;
my $name;
my $lines;
my $toc_file;
$toc_file = $element->{'file'} if (defined($element));
my $result = undef;
if ($command eq 'contents')
{
$name = $Texi2HTML::NAME{'Contents'};
$toc_file = $Texi2HTML::THISDOC{'toc_file'} if (!defined($toc_file));
if (defined($elements_list))
{
$lines = &$contents($elements_list, $toc_file);
}
else
{
$lines = $Texi2HTML::TOC_LINES;
}
}
else
{
$name = $Texi2HTML::NAME{'Overview'};
$toc_file = $Texi2HTML::THISDOC{'stoc_file'} if (!defined($toc_file));
if (defined($elements_list))
{
$lines = &$shortcontents($elements_list, $toc_file);
}
else
{
$lines = $Texi2HTML::OVERVIEW;
}
}
if ($lines and @{$lines})
{
$result = [ &$heading_text("\@$command", $name, 1), "\n" ];
my $contents_anchor = &$anchor($element->{'id'});
if (defined($contents_anchor) and $contents_anchor =~ /\S/)
{
unshift @$result, $contents_anchor."\n";
}
push @$result, (@$lines, "\n");
}
return $result;
}
sub T2H_DEFAULT_css_lines ($$)
{
my $import_lines = shift;
my $rule_lines = shift;
# return if (defined($CSS_LINES) or (!@$rule_lines and !@$import_lines and (! keys(%css_map))));
if (defined($CSS_LINES))
{ # if predefined, use CSS_LINES.
$Texi2HTML::THISDOC{'CSS_LINES'} = $CSS_LINES;
return;
}
return if ((!@$rule_lines and !@$import_lines and !keys(%css_map) and !@CSS_REFS) or $NO_CSS);
my $css_text = "<style type=\"text/css\">\n<!--\n";
$css_text .= join('',@$import_lines) . "\n" if (@$import_lines);
foreach my $css_rule (sort(keys(%css_map)))
{
next unless ($css_map{$css_rule});
$css_text .= "$css_rule {$css_map{$css_rule}}\n";
}
$css_text .= join('',@$rule_lines) . "\n" if (@$rule_lines);
$css_text .= "-->\n</style>\n";
foreach my $ref (@CSS_REFS)
{
$css_text .= "<link rel=\"stylesheet\" type=\"text/css\" href=\"$ref\">\n";
}
$Texi2HTML::THISDOC{'CSS_LINES'} = $css_text;
}
######################################################################
# About page
#
# PRE_ABOUT can be a function reference or a scalar.
# Note that if it is a scalar, T2H_InitGlobals has not been called,
# and all global variables like $ADDRESS are not available.
$PRE_ABOUT = sub
{
return ' ' . &$program_string() . "\n";
};
# If customizing $AFTER_ABOUT, be sure to put the content inside <p></p>.
$AFTER_ABOUT = '';
%BUTTONS_EXAMPLE =
(
'Top', ' ',
'Contents', ' ',
'Overview', ' ',
'Index', ' ',
'This', '1.2.3',
'Back', '1.2.2',
'FastBack', '1',
'Prev', '1.2.2',
'Up', '1.2',
'Next', '1.2.4',
'NodeUp', '1.2',
'NodeNext', '1.2.4',
'NodePrev', '1.2.2',
'Following', '1.2.4',
'Forward', '1.2.4',
'FastForward', '2',
'About', ' ',
'First', '1.',
'Last', '1.2.4',
'NextFile', ' ',
'PrevFile', ' ',
);
sub T2H_DEFAULT_about_body
{
my $about = "";
if (ref($PRE_ABOUT) eq 'CODE')
{
$about .= &$PRE_ABOUT();
}
else
{
$about .= $PRE_ABOUT;
}
return $about;
}
# return value is currently ignored
sub T2H_DEFAULT_titlepage($$$$)
{
my $titlepage_lines = shift;
my $titlepage_text = shift;
my $titlepage_no_texi = shift;
my $titlepage_simple_format = shift;
$Texi2HTML::TITLEPAGE = $titlepage_text;
if ($titlepage_text eq '')
{
my $title = '';
$title = $Texi2HTML::THISDOC{'simpletitle'} if (defined($Texi2HTML::THISDOC{'simpletitle'}) and $Texi2HTML::THISDOC{'simpletitle'} !~ /^\s*$/);
if ($title ne '')
{
$Texi2HTML::TITLEPAGE = &$heading_text('@settitle', $title, 0);
$Texi2HTML::TITLEPAGE .= "$DEFAULT_RULE\n";
}
}
else
{
$Texi2HTML::TITLEPAGE .= "$DEFAULT_RULE\n";
}
if ($Texi2HTML::THISDOC{'setcontentsaftertitlepage'} and (defined($Texi2HTML::THISDOC{'inline_contents'}->{'contents'})) and @{$Texi2HTML::THISDOC{'inline_contents'}->{'contents'}})
{
foreach my $line(@{$Texi2HTML::THISDOC{'inline_contents'}->{'contents'}})
{
$Texi2HTML::TITLEPAGE .= $line;
}
$Texi2HTML::TITLEPAGE .= "$DEFAULT_RULE\n";
}
if ($Texi2HTML::THISDOC{'setshortcontentsaftertitlepage'} and (defined($Texi2HTML::THISDOC{'inline_contents'}->{'shortcontents'})) and @{$Texi2HTML::THISDOC{'inline_contents'}->{'shortcontents'}})
{
foreach my $line(@{$Texi2HTML::THISDOC{'inline_contents'}->{'shortcontents'}})
{
$Texi2HTML::TITLEPAGE .= $line;
}
$Texi2HTML::TITLEPAGE .= "$DEFAULT_RULE\n";
}
return $Texi2HTML::TITLEPAGE;
}
sub T2H_DEFAULT_print_redirection_page()
{
#return "Redirection files are not of use for the current format.\n";
return undef;
}
sub T2H_DEFAULT_node_file_name($$)
{
my $node = shift;
my $type = shift;
return undef if ($node->{'external_node'}
or ($type eq 'top' and !$NEW_CROSSREF_STYLE));
my $node_file_base;
if ($type eq 'top' and defined($TOP_NODE_FILE))
{
$node_file_base = $TOP_NODE_FILE;
}
elsif ($NEW_CROSSREF_STYLE)
{
if ($TRANSLITERATE_FILE_NAMES)
{
$node_file_base = $node->{'cross_manual_file'};
}
else
{
$node_file_base = $node->{'cross_manual_target'};
}
}
else
{
$node_file_base = main::remove_texi($node->{'texi'});
$node_file_base =~ s/[^\w\.\-]/-/g;
}
if (defined($NODE_FILE_EXTENSION) and $NODE_FILE_EXTENSION ne '')
{
return ($node_file_base . ".$NODE_FILE_EXTENSION");
}
return $node_file_base;
}
########################################################################
# Control of formatting:
# 1.) For some changes, it is often enough to change the value of
# some global map. It might necessitate building a little
# function along with the change in hash, if the change is the use
# of another function (in style_map).
# 2.) For other changes, reimplement one of the t2h_default_<fnc>* routines,
# give them another name, and assign them to the respective
# $<fnc> variable (below).
%deprecated_commands = (
'ctrl' => '',
'allow-recursion' => N__('recursion is always allowed'),
'quote-arg' => N__('arguments are quoted by default'),
);
#
# This hash should have keys corresponding with the nonletter command accent
# whose following character is considered to be the argument
# This hash associates an accent macro to the ISO name for the accent if any.
# The customary use of this map is to find the ISO name appearing in html
# entity (like é) associated with a texinfo accent macro.
#
# The keys of the hash are
# ": umlaut
# ~: tilda accent
# ^: circumflex accent
# `: grave accent
# ': acute accent
# =: macron accent
%accent_map = (
'"', 'uml',
'~', 'tilde',
'^', 'circ',
'`', 'grave',
"'", 'acute',
",", 'cedil',
'=', '',
'ringaccent', 'ring',
'H', '',
'dotaccent', '',
'u', '',
'ubaraccent', '',
'udotaccent', '',
'v', '',
'ogonek', 'ogon',
);
#
# ascii representation of texinfo "simple things" @-commands
%default_simple_map = (
'*', "\n",
' ', ' ',
"\t", ' ',
"\n", ' ',
'-', '', # hyphenation hint
'|', '', # used in formatting commands @evenfooting and friends
'/', '',
':', '',
'!', '!',
'?', '?',
'.', '.',
'@', '@',
'}', '}',
'{', '{',
);
# texinfo "simple things" @-commands
%simple_map = %default_simple_map;
# this map is used in preformatted text
%simple_map_pre = %simple_map;
# This map is used when texi elements are removed and replaced
# by simple text
%simple_map_texi = %default_simple_map;
# maps for the math specific commands
%simple_map_math = (
'\\', '\\'
);
#%simple_map_pre_math = %simple_map_math;
#%simple_map_texi_math = %simple_map_math;
$punctuation_characters = '.?!';
$after_punctuation_characters = '"\')]';
%default_things_map = (
'TeX' => 'TeX',
'LaTeX' => 'LaTeX',
'bullet' => '*',
'copyright' => '(C)',
'registeredsymbol' => '(R)',
'dots' => '...',
'enddots' => '...',
'equiv' => '==',
# FIXME i18n
'error' => 'error-->',
'expansion' => '==>',
'arrow' => '->',
'minus' => '-',
'point' => '-!-',
'print' => '-|',
'result' => '=>',
'today' => '',
'aa' => 'aa',
'AA' => 'AA',
'ae' => 'ae',
'oe' => 'oe',
'AE' => 'AE',
'OE' => 'OE',
'o' => '/o',
'O' => '/O',
'ss' => 'ss',
'l' => '/l',
'L' => '/L',
'DH' => 'D',
'dh' => 'd',
'TH' => 'TH', # http://www.evertype.com/standards/wynnyogh/thorn.html
'th' => 'th',
'exclamdown' => '!',
'questiondown' => '?',
'pounds' => '#',
'ordf' => 'a',
'ordm' => 'o',
'comma' => ',',
'euro' => 'Euro',
'geq' => '>=',
'leq' => '<=',
'tie' => ' ',
'textdegree' => 'o',
'quotedblleft' => '``',
'quotedblright' => "''",
'quoteleft' => '`',
'quoteright' => "'",
'quotedblbase' => ',,',
'quotesinglbase' => ',',
'guillemetleft' => '<<',
'guillemetright' => '>>',
'guillemotleft' => '<<',
'guillemotright' => '>>',
'guilsinglleft' => '<',
'guilsinglright' => '>',
);
%things_map = %default_things_map;
# This map is used in preformatted environments
%pre_map = %things_map;
# used in math. If not found, pre_map is used.
%math_map = ();
# text replacing macros when texi commands are removed and plain text is
# produced.
%texi_map = %default_things_map;
# used for index sorting.
%sorting_things_map = %default_things_map;
foreach my $accent_letter ('o','O','l','L')
{
$sorting_things_map{$accent_letter} = $accent_letter;
}
$sorting_things_map{'copyright'} = 'C';
$sorting_things_map{'registeredsymbol'} = 'R';
$sorting_things_map{'today'} = 't';
%default_texi_map = %texi_map;
#
# texinfo "things" (@foo{}) to XML ones
#
%things_map_xml = (
'TeX' => 'TeX',
'LaTeX' => 'LaTeX',
# pertusus: unknown by makeinfo, not in texinfo manual (@* is the right thing)
# 'br', '<br>', # paragraph break
'bullet' => '•',
# #'copyright' => '(C)',
'copyright' => '©',
'registeredsymbol' => '®',
'dots' => '…',
'enddots' => '...',
'equiv' => '≡',
# FIXME i18n
'error' => 'error-->',
'expansion' => '→',
'arrow' => '→',
'minus' => '-',
'point' => '∗',
'print' => '-|',
'result' => '⇒',
# set in code using the language
# 'today', &pretty_date,
'today' => '',
'aa' => 'å',
'AA' => 'Å',
'ae' => 'æ',
'oe' => 'œ', #pertusus: also œ. œ not in html 3.2
'AE' => 'Æ',
'OE' => 'Œ', #pertusus: also Œ. Œ not in html 3.2
'o' => 'ø',
'O' => 'Ø',
'ss' => 'ß',
'DH' => 'Ð',
'dh' => 'ð',
'TH' => 'Þ',
'th' => 'þ',
'l' => 'ł',
'L' => 'Ł',
'exclamdown' => '¡',
'questiondown' => '¿',
'pounds' => '£',
'ordf' => 'ª',
'ordm' => 'º',
'comma' => ',',
'euro' => '€',
'geq' => '≥',
'leq' => '≤',
'tie' => ' ',
'textdegree' => '°',
'quotedblleft' => '“',
'quotedblright' => '”',
'quoteleft' => '‘',
'quoteright' => '’',
'quotedblbase' => '„',
'quotesinglbase' => '‚',
'guillemetleft' => '«',
'guillemetright' => '»',
'guillemotleft' => '«',
'guillemotright' => '»',
'guilsinglleft' => '‹',
'guilsinglright' => '›',
);
# This map is used in preformatted environments
%pre_map_xml = %things_map_xml;
# taken from
#Latin extended additionnal
#http://www.alanwood.net/unicode/latin_extended_additional.html
#C1 Controls and Latin-1 Supplement
#http://www.alanwood.net/unicode/latin_1_supplement.html
#Latin Extended-A
#http://www.alanwood.net/unicode/latin_extended_a.html
#Latin Extended-B
#http://www.alanwood.net/unicode/latin_extended_b.html
#dotless i: 0131
#http://www.alanwood.net/unicode/arrows.html 21**
#http://www.alanwood.net/unicode/general_punctuation.html 20**
#http://www.alanwood.net/unicode/mathematical_operators.html 22**
%unicode_map = (
'bullet' => '2022',
'copyright' => '00A9',
'registeredsymbol' => '00AE',
'dots' => '2026',
'enddots' => '',
'equiv' => '2261',
'error' => '',
'expansion' => '2192',
'arrow' => '2192',
'minus' => '2212', # in mathematical operators
# 'minus' => '002D', # in latin1
'point' => '2605',
'print' => '22A3',
'result' => '21D2',
'today' => '',
'aa' => '00E5',
'AA' => '00C5',
'ae' => '00E6',
'oe' => '0153',
'AE' => '00C6',
'OE' => '0152',
'o' => '00F8',
'O' => '00D8',
'ss' => '00DF',
'DH' => '00D0',
'dh' => '00F0',
'TH' => '00DE',
'th' => '00FE',
'l' => '0142',
'L' => '0141',
'exclamdown' => '00A1',
'questiondown' => '00BF',
'pounds' => '00A3',
'ordf' => '00AA',
'ordm' => '00BA',
'comma' => '002C',
'euro' => '20AC',
'geq' => '2265',
'leq' => '2264',
'tie' => '',
# 'tie' => '0020',
'textdegree' => '00B0',
'quotedblleft' => '201C',
'quotedblright' => '201D',
'quoteleft' => '2018',
'quoteright' => '2019',
'quotedblbase' => '201E',
'quotesinglbase' => '201A',
'guillemetleft' => '00AB',
'guillemetright' => '00BB',
'guillemotleft' => '00AB',
'guillemotright' => '00BB',
'guilsinglleft' => '2039',
'guilsinglright' => '203A',
);
%makeinfo_encoding_to_map = (
"iso-8859-1", 'iso8859_1',
"iso-8859-2", 'iso8859_2',
"iso-8859-15", 'iso8859_15',
"koi8-r", 'koi8',
"koi8-u", 'koi8',
);
foreach my $encoding (keys(%makeinfo_encoding_to_map))
{
$t2h_encoding_aliases{$encoding} = $encoding;
$t2h_encoding_aliases{$makeinfo_encoding_to_map{$encoding}} = $encoding;
}
# cut and pasted from eigth_bit_makeinfo_maps.pl, in turn generated with
# ./parse_8bit_makeinfo_maps.pl
%makeinfo_unicode_to_eight_bit = (
'iso8859_1' => {
'00A0' => 'A0',
'00A1' => 'A1',
'00A2' => 'A2',
'00A3' => 'A3',
'00A4' => 'A4',
'00A5' => 'A5',
'00A6' => 'A6',
'00A7' => 'A7',
'00A8' => 'A8',
'00A9' => 'A9',
'00AA' => 'AA',
'00AB' => 'AB',
'00AC' => 'AC',
'00AD' => 'AD',
'00AE' => 'AE',
'00AF' => 'AF',
'00B0' => 'B0',
'00B1' => 'B1',
'00B2' => 'B2',
'00B3' => 'B3',
'00B4' => 'B4',
'00B5' => 'B5',
'00B6' => 'B6',
'00B7' => 'B7',
'00B8' => 'B8',
'00B9' => 'B9',
'00BA' => 'BA',
'00BB' => 'BB',
'00BC' => 'BC',
'00BD' => 'BD',
'00BE' => 'BE',
'00BF' => 'BF',
'00C0' => 'C0',
'00C1' => 'C1',
'00C2' => 'C2',
'00C3' => 'C3',
'00C4' => 'C4',
'00C5' => 'C5',
'00C6' => 'C6',
'00C7' => 'C7',
'00C7' => 'C7',
'00C8' => 'C8',
'00C9' => 'C9',
'00CA' => 'CA',
'00CB' => 'CB',
'00CC' => 'CC',
'00CD' => 'CD',
'00CE' => 'CE',
'00CF' => 'CF',
'00D0' => 'D0',
'00D1' => 'D1',
'00D2' => 'D2',
'00D3' => 'D3',
'00D4' => 'D4',
'00D5' => 'D5',
'00D6' => 'D6',
'00D7' => 'D7',
'00D8' => 'D8',
'00D9' => 'D9',
'00DA' => 'DA',
'00DB' => 'DB',
'00DC' => 'DC',
'00DD' => 'DD',
'00DE' => 'DE',
'00DF' => 'DF',
'00E0' => 'E0',
'00E1' => 'E1',
'00E2' => 'E2',
'00E3' => 'E3',
'00E4' => 'E4',
'00E5' => 'E5',
'00E6' => 'E6',
'00E7' => 'E7',
'00E8' => 'E8',
'00E9' => 'E9',
'00EA' => 'EA',
'00EB' => 'EB',
'00EC' => 'EC',
'00ED' => 'ED',
'00EE' => 'EE',
'00EF' => 'EF',
'00F0' => 'F0',
'00F1' => 'F1',
'00F2' => 'F2',
'00F3' => 'F3',
'00F4' => 'F4',
'00F5' => 'F5',
'00F6' => 'F6',
'00F7' => 'F7',
'00F8' => 'F8',
'00F9' => 'F9',
'00FA' => 'FA',
'00FB' => 'FB',
'00FC' => 'FC',
'00FD' => 'FD',
'00FE' => 'FE',
'00FF' => 'FF',
},
'iso8859_15' => {
'00A0' => 'A0',
'00A1' => 'A1',
'00A2' => 'A2',
'00A3' => 'A3',
'20AC' => 'A4',
'00A5' => 'A5',
'0160' => 'A6',
'00A7' => 'A7',
'0161' => 'A8',
'00A9' => 'A9',
'00AA' => 'AA',
'00AB' => 'AB',
'00AC' => 'AC',
'00AD' => 'AD',
'00AE' => 'AE',
'00AF' => 'AF',
'00B0' => 'B0',
'00B1' => 'B1',
'00B2' => 'B2',
'00B3' => 'B3',
'017D' => 'B4',
'00B5' => 'B5',
'00B6' => 'B6',
'00B7' => 'B7',
'017E' => 'B8',
'00B9' => 'B9',
'00BA' => 'BA',
'00BB' => 'BB',
'0152' => 'BC',
'0153' => 'BD',
'0178' => 'BE',
'00BF' => 'BF',
'00C0' => 'C0',
'00C1' => 'C1',
'00C2' => 'C2',
'00C3' => 'C3',
'00C4' => 'C4',
'00C5' => 'C5',
'00C6' => 'C6',
'00C7' => 'C7',
'00C8' => 'C8',
'00C9' => 'C9',
'00CA' => 'CA',
'00CB' => 'CB',
'00CC' => 'CC',
'00CD' => 'CD',
'00CE' => 'CE',
'00CF' => 'CF',
'00D0' => 'D0',
'00D1' => 'D1',
'00D2' => 'D2',
'00D3' => 'D3',
'00D4' => 'D4',
'00D5' => 'D5',
'00D6' => 'D6',
'00D7' => 'D7',
'00D8' => 'D8',
'00D9' => 'D9',
'00DA' => 'DA',
'00DB' => 'DB',
'00DC' => 'DC',
'00DD' => 'DD',
'00DE' => 'DE',
'00DF' => 'DF',
'00E0' => 'E0',
'00E1' => 'E1',
'00E2' => 'E2',
'00E3' => 'E3',
'00E4' => 'E4',
'00E5' => 'E5',
'00E6' => 'E6',
'00E7' => 'E7',
'00E8' => 'E8',
'00E9' => 'E9',
'00EA' => 'EA',
'00EB' => 'EB',
'00EC' => 'EC',
'00ED' => 'ED',
'00EE' => 'EE',
'00EF' => 'EF',
'00F0' => 'F0',
'00F1' => 'F1',
'00F2' => 'F2',
'00F3' => 'F3',
'00F4' => 'F4',
'00F5' => 'F5',
'00F6' => 'F6',
'00F7' => 'F7',
'00F8' => 'F8',
'00F9' => 'F9',
'00FA' => 'FA',
'00FB' => 'FB',
'00FC' => 'FC',
'00FD' => 'FD',
'00FE' => 'FE',
'00FF' => 'FF',
},
'iso8859_2' => {
'00A0' => 'A0',
'0104' => 'A1',
'02D8' => 'A2',
'0141' => 'A3',
'00A4' => 'A4',
'013D' => 'A5',
'015A' => 'A6',
'00A7' => 'A7',
'00A8' => 'A8',
'015E' => 'AA',
'0164' => 'AB',
'0179' => 'AC',
'00AD' => 'AD',
'017D' => 'AE',
'017B' => 'AF',
'00B0' => 'B0',
'0105' => 'B1',
'02DB' => 'B2',
'0142' => 'B3',
'00B4' => 'B4',
'013E' => 'B5',
'015B' => 'B6',
'02C7' => 'B7',
'00B8' => 'B8',
'0161' => 'B9',
'015F' => 'BA',
'0165' => 'BB',
'017A' => 'BC',
'02DD' => 'BD',
'017E' => 'BE',
'017C' => 'BF',
'0154' => 'C0',
'00C1' => 'C1',
'00C2' => 'C2',
'0102' => 'C3',
'00C4' => 'C4',
'0139' => 'C5',
'0106' => 'C6',
'00C7' => 'C7',
'010C' => 'C8',
'00C9' => 'C9',
'0118' => 'CA',
'00CB' => 'CB',
'011A' => 'CC',
'00CD' => 'CD',
'00CE' => 'CE',
'010E' => 'CF',
'0110' => 'D0',
'0143' => 'D1',
'0147' => 'D2',
'00D3' => 'D3',
'00D4' => 'D4',
'0150' => 'D5',
'00D6' => 'D6',
'00D7' => 'D7',
'0158' => 'D8',
'016E' => 'D9',
'00DA' => 'DA',
'0170' => 'DB',
'00DC' => 'DC',
'00DD' => 'DD',
'0162' => 'DE',
'00DF' => 'DF',
'0155' => 'E0',
'00E1' => 'E1',
'00E2' => 'E2',
'0103' => 'E3',
'00E4' => 'E4',
'013A' => 'E5',
'0107' => 'E6',
'00E7' => 'E7',
'010D' => 'E8',
'00E9' => 'E9',
'0119' => 'EA',
'00EB' => 'EB',
'011B' => 'EC',
'00ED' => 'ED',
'00EE' => 'EE',
'010F' => 'EF',
'0111' => 'F0',
'0144' => 'F1',
'0148' => 'F2',
'00F3' => 'F3',
'00F4' => 'F4',
'0151' => 'F5',
'00F6' => 'F6',
'00F7' => 'F7',
'0159' => 'F8',
'016F' => 'F9',
'00FA' => 'FA',
'0171' => 'FB',
'00FC' => 'FC',
'00FD' => 'FD',
'0163' => 'FE',
'02D9' => 'FF',
},
'koi8' => {
'0415' => 'A3',
'0454' => 'A4',
'0456' => 'A6',
'0457' => 'A7',
'04D7' => 'B3',
'0404' => 'B4',
'0406' => 'B6',
'0407' => 'B7',
'042E' => 'C0',
'0430' => 'C1',
'0431' => 'C2',
'0446' => 'C3',
'0434' => 'C4',
'0435' => 'C5',
'0444' => 'C6',
'0433' => 'C7',
'0445' => 'C8',
'0438' => 'C9',
'0439' => 'CA',
'043A' => 'CB',
'043B' => 'CC',
'043C' => 'CD',
'043D' => 'CE',
'043E' => 'CF',
'043F' => 'D0',
'044F' => 'D1',
'0440' => 'D2',
'0441' => 'D3',
'0442' => 'D4',
'0443' => 'D5',
'0436' => 'D6',
'0432' => 'D7',
'044C' => 'D8',
'044B' => 'D9',
'0437' => 'DA',
'0448' => 'DB',
'044D' => 'DC',
'0449' => 'DD',
'0447' => 'DE',
'044A' => 'DF',
'042D' => 'E0',
'0410' => 'E1',
'0411' => 'E2',
'0426' => 'E3',
'0414' => 'E4',
'0415' => 'E5',
'0424' => 'E6',
'0413' => 'E7',
'0425' => 'E8',
'0418' => 'E9',
'0419' => 'EA',
'041A' => 'EB',
'041B' => 'EC',
'041C' => 'ED',
'041D' => 'EE',
'041E' => 'EF',
'041F' => 'F0',
'042F' => 'F1',
'0420' => 'F2',
'0421' => 'F3',
'0422' => 'F4',
'0423' => 'F5',
'0416' => 'F6',
'0412' => 'F7',
'042C' => 'F8',
'042B' => 'F9',
'0417' => 'FA',
'0428' => 'FB',
'042D' => 'FC',
'0429' => 'FD',
'0427' => 'FE',
'042A' => 'FF',
},
);
%eight_bit_to_unicode = ();
foreach my $encoding (keys(%makeinfo_encoding_to_map))
{
my $unicode_to_eight = $makeinfo_unicode_to_eight_bit{$makeinfo_encoding_to_map{$encoding}};
#print STDERR "$encoding, $makeinfo_encoding_to_map{$encoding}, $unicode_to_eight\n";
foreach my $utf8_key (keys(%{$unicode_to_eight}))
{
$eight_bit_to_unicode{$encoding}->{$unicode_to_eight->{$utf8_key}} =
$utf8_key;
}
}
# currently unused
my %makeinfo_transliterate_map = (
'0416' => 'ZH',
'0447' => 'ch',
'00EB' => 'e',
'0414' => 'D',
'0159' => 'r',
'00E6' => 'ae',
'042B' => 'Y',
'00FA' => 'u',
'043B' => 'l',
'00DE' => 'TH',
'00D9' => 'U',
'00C4' => 'A',
'0148' => 'n',
'00F6' => 'o',
'0434' => 'd',
'041E' => 'O',
'041B' => 'L',
'044B' => 'y',
'0107' => 'c',
'0415' => 'E',
'00C1' => 'A',
'00D3' => 'O',
'00DB' => 'U',
'016E' => 'U',
'013A' => 'l',
'017B' => 'Z',
'00F1' => 'n',
'0428' => 'SH',
'0153' => 'oe',
'00F4' => 'o',
'0144' => 'n',
'0404' => 'IE',
'0427' => 'CH',
'0162' => 'T',
'017A' => 'z',
'0448' => 'sh',
'0436' => 'zh',
'00F9' => 'u',
'0406' => 'I',
'0103' => 'a',
'0422' => 'T',
'0160' => 'S',
'0165' => 't',
'017E' => 'z',
'00F0' => 'd',
'043E' => 'o',
'043D' => 'n',
'013E' => 'l',
'0412' => 'V',
'0111' => 'd',
'0155' => 's',
'017C' => 'z',
'00CE' => 'I',
'042D' => 'E',
'00C8' => 'E',
'00F8' => 'oe',
'00F2' => 'o',
'00FF' => 'y',
'0420' => 'R',
'0119' => 'e',
'00D2' => 'O',
'043C' => 'm',
'00D0' => 'DH',
'0179' => 'Z',
'0110' => 'D',
'043F' => 'p',
'0170' => 'U',
'011A' => 'E',
'010C' => 'C',
'015A' => 'S',
'0433' => 'g',
'00E1' => 'a',
'010D' => 'c',
'00CC' => 'I',
'016F' => 'u',
'0457' => 'yi',
'00C2' => 'A',
'0438' => 'i',
'00E3' => 'a',
'0435' => 'e',
'0440' => 'r',
'042A' => 'W',
'0431' => 'b',
'00EE' => 'i',
'0150' => 'O',
'00E8' => 'e',
'0418' => 'I',
'00CF' => 'I',
'015F' => 's',
'0142' => 'l',
'0147' => 'N',
'00DF' => 'ss',
'00E5' => 'aa',
'00C3' => 'A',
'0106' => 'C',
'0141' => 'L',
'0164' => 'T',
'017D' => 'Z',
'00EC' => 'i',
'041C' => 'M',
'00C9' => 'E',
'00E0' => 'a',
'043A' => 'k',
'00F5' => 'o',
'042C' => 'X',
'0449' => 'shch',
'0444' => 'f',
'0139' => 'L',
'0158' => 'R',
'00F3' => 'o',
'00FB' => 'u',
'0424' => 'F',
'0446' => 'c',
'0423' => 'U',
'0442' => 't',
'00FD' => 'y',
'0102' => 'A',
'0104' => 'A',
'00CB' => 'E',
'0426' => 'C',
'00CD' => 'I',
'0437' => 'z',
'0178' => 'y',
'00D4' => 'O',
'044D' => 'e',
'0432' => 'v',
'013D' => 'L',
'0163' => 't',
'0456' => 'i',
'011B' => 'e',
'044F' => 'ya',
'0429' => 'SHCH',
'0411' => 'B',
'044A' => 'w',
'00C6' => 'AE',
'041D' => 'N',
'00DA' => 'U',
'00C0' => 'A',
'0152' => 'OE',
'00DD' => 'Y',
'0154' => 'R',
'00E9' => 'e',
'00D5' => 'O',
'041F' => 'P',
'0161' => 's',
'0430' => 'a',
'0445' => 'h',
'00E2' => 'a',
'00D6' => 'O',
'0407' => 'YI',
'00CA' => 'E',
'0439' => 'i',
'0171' => 'u',
'00DC' => 'U',
'042F' => 'YA',
'0425' => 'H',
'00FE' => 'th',
'00D1' => 'N',
'044C' => 'x',
'010F' => 'd',
'0410' => 'A',
'0443' => 'u',
'00EF' => 'i',
'0105' => 'a',
'00EA' => 'e',
'00E4' => 'a',
'015E' => 'S',
'0417' => 'Z',
'00ED' => 'i',
'00FC' => 'u',
'04D7' => 'IO',
'00D8' => 'OE',
'0419' => 'I',
'0421' => 'S',
'0143' => 'N',
'010E' => 'D',
'0413' => 'G',
'015B' => 's',
'0151' => 'o',
'00E7' => 'c',
'00C5' => 'AA',
'0441' => 's',
'0118' => 'E',
'00C7' => 'C',
'041A' => 'K',
'0454' => 'ie',
'042E' => 'yu',
);
%transliterate_map = (
'00C5' => 'AA',
'00E5' => 'aa',
'00D8' => 'O',
'00F8' => 'o',
'00E6' => 'ae',
'0153' => 'oe',
'00C6' => 'AE',
'0152' => 'OE',
'00DF' => 'ss',
'0141' => 'L',
'0142' => 'l',
'00D0' => 'D',
'00F0' => 'd',
'00DE' => 'TH',
'00FE' => 'th',
'0415' => 'E',
'0435' => 'e',
'0426' => 'C',
'042A' => 'W',
'044A' => 'w',
'042C' => 'X',
'044C' => 'x',
'042E' => 'yu',
'042F' => 'YA',
'044F' => 'ya',
'0433' => 'g',
'0446' => 'c',
'04D7' => 'IO',
'00DD' => 'Y', # unidecode gets this wrong ?
# following appears in tests, this is required to have
# the same output with and without unidecode
'4E2D' => 'Zhong',
'6587' => 'Wen',
'793A' => 'Shi',
'4F8B' => 'Li',
'7B2C' => 'Di',
'7AE0' => 'Zhang',
'53E6' => 'Ling',
'4E2A' => 'Ge',
# in http://www.cantonese.sheik.co.uk/dictionary/characters/7/
# unidecode certainly gets it wrong
'4E00' => 'Yi',
'FF08' => '(',
'FF09' => ')',
'FF0C' => ',',
'5B66' => 'Xue',
'7FD2' => 'Xi',
'30DE' => 'ma',
'30CB' => 'ni',
'30E5' => 'yu',
'30A2' => 'a',
'30EB' => 'ru',
);
foreach my $symbol(keys(%unicode_map))
{
if ($unicode_map{$symbol} ne '' and !exists($transliterate_map{$symbol}))
{
$no_transliterate_map{$unicode_map{$symbol}} = 1;
}
}
%ascii_character_map = (
' ' => '0020',
'!' => '0021',
'"' => '0022',
'#' => '0023',
'$' => '0024',
'%' => '0025',
'&' => '0026',
"'" => '0027',
'(' => '0028',
')' => '0029',
'*' => '002A',
'+' => '002B',
',' => '002C',
'-' => '002D',
'.' => '002E',
'/' => '002F',
':' => '003A',
';' => '003B',
'<' => '003C',
'=' => '003D',
'>' => '003E',
'?' => '003F',
'@' => '0040',
'[' => '005B',
'\\' => '005C',
']' => '005D',
'^' => '005E',
'_' => '005F',
'`' => '0060',
'{' => '007B',
'|' => '007C',
'}' => '007D',
'~' => '007E',
);
%perl_charset_to_html = (
'utf8' => 'utf-8',
'utf-8-strict' => 'utf-8',
'ascii' => 'us-ascii',
'shiftjis' => 'shift_jis',
);
%t2h_encoding_aliases = (
'latin1' => 'iso-8859-1',
);
foreach my $perl_charset (keys(%perl_charset_to_html))
{
$t2h_encoding_aliases{$perl_charset} = $perl_charset_to_html{$perl_charset};
$t2h_encoding_aliases{$perl_charset_to_html{$perl_charset}} = $perl_charset_to_html{$perl_charset};
}
# These are the encodings from the texinfo manual
foreach my $canonical_encoding('us-ascii', 'utf-8', 'iso-8859-1',
'iso-8859-15','iso-8859-2','koi8-r', 'koi8-u')
{
$canonical_texinfo_encodings{$canonical_encoding} = 1;
}
# not used currently for html, but used in chm.init
%numeric_entity_map = ();
foreach my $symbol (keys(%unicode_map))
{
if ($symbol ne '')
{
$numeric_entity_map{$symbol} = '&#' . hex($unicode_map{$symbol}) . ';';
}
}
# When the value begins with & the function with that name is used to do the
# html. The first argument is the text enclosed within {}, the second is the
# style name (which is also the key of the hash)
#
# Otherwithe the value is the html element used to enclose the text, and if
# there is a " the resulting text is also enclosed within `'
my %old_style_map = (
'acronym', '',
'asis', '',
'b', 'b',
'cite', 'cite',
'clicksequence', '',
'code', 'code',
'command', 'code',
'ctrl', '&default_ctrl',
'dfn', 'em',
'dmn', '',
'email', '&default_email',
'emph', 'em',
'env', 'code',
'file', '"tt',
'i', 'i',
'kbd', 'kbd',
'key', 'kbd',
'math', 'em',
'option', '"samp',
'r', '',
'samp', '"samp',
'sc', '&default_sc',
'strong', 'strong',
't', 'tt',
'uref', '&default_uref',
'url', '&default_url',
'var', 'var',
'verb', 'tt',
'titlefont', '&default_titlefont',
'w', '',
);
sub t2h_default_copy_style_map ($$;$)
{
my $from = shift;
my $to = shift;
my $merge = shift;
foreach my $command (keys(%$from))
{
$to->{$command} = {} if (!exists($to->{$command}));
foreach my $key (keys(%{$from->{$command}}))
{
next if (exists($to->{$command}->{$key}) and $merge);
if ($key eq 'args')
{
$to->{$command}->{$key} = [ @{$from->{$command}->{$key}} ];
}
else
{
$to->{$command}->{$key} = $from->{$command}->{$key};
}
}
}
}
# default is {'args' => ['normal'], 'attribute' => ''},
%style_map = (
'asis', {},
'b', {},
'cite', {},
'clicksequence', {},
'click', {'function' => \&t2h_default_click_normal, 'type' => 'simple_style'},
'code', {'args' => ['code']},
'command', {'args' => ['code']},
'ctrl', {'function' => \&t2h_default_ctrl,'type' => 'simple_style'},
'dfn', {},
'dmn', {'type' => 'simple_style'},
'email', {'args' => ['code', 'normal'],
'function' => \&t2h_default_email,
'type' => 'simple_style'},
#'email', {'args' => ['normal', 'normal'],
# 'function' => \&t2h_default_email},
'emph', {},
'env', {'args' => ['code']},
'file', {'args' => ['code'], 'quote' => '"'},
'headitemfont', {},
'i', {},
'slanted', {},
'sansserif', {},
'kbd', {'args' => ['code'], },
'key', {'args' => ['code'], 'begin' => '<', 'end' => '>'},
'math', {'function' => \&t2h_default_math, 'args' => ['math'] },
'option', {'args' => ['code'], 'quote' => '"'},
'r', {},
'samp', {'args' => ['code'], 'quote' => '"'},
# 'sc', {'function' => \&t2h_default_sc},
'sc', {},
'strong', {},
't', {},
'uref', {'function' => \&t2h_default_uref,
'args' => ['code', 'normal', 'normal'],
'type' => 'simple_style' },
#'uref', {'function' => \&t2h_default_uref,
# 'args' => ['normal', 'normal', 'normal']},
'url', {'function' => \&t2h_default_uref,
'args' => ['code', 'normal', 'normal'],
'type' => 'simple_style'},
'indicateurl', {'args' => ['code'], 'begin' => '<', 'end' => '>','type' => 'simple_style'},
'var', {},
'verb', {'args' => ['code'], },
'titlefont', {'function' => \&t2h_default_titlefont,
'type' => 'simple_style'},
'w', {},
'hyphenation', {'function' => \&t2h_default_hyphenation, 'args' => ['keep']},
);
%command_type = ();
foreach my $style (keys(%style_map))
{
if (exists($style_map{$style}->{'type'}))
{
$command_type{$style} = $style_map{$style}->{'type'};
}
else
{
$command_type{$style} = 'style';
}
}
sub t2h_default_select_substitution($$$)
{
my $in_raw_text = shift;
my $in_preformatted = shift;
my $in_simple = shift;
my $substitutions = \@text_substitutions_normal;
if ($in_raw_text)
{
$substitutions = \@text_substitutions_texi;
}
elsif ($in_simple)
{
$substitutions = \@text_substitutions_simple_format;
}
elsif ($in_preformatted)
{
$substitutions = \@text_substitutions_pre;
}
return $substitutions;
}
sub t2h_text_substitutions($$$$)
{
my $text = shift;
my $in_raw_text = shift;
my $in_preformatted = shift;
my $in_simple = shift;
my $substitutions = t2h_default_select_substitution($in_raw_text, $in_preformatted, $in_simple);
foreach my $substitution_entry (@$substitutions)
{
my $from = quotemeta($substitution_entry->[0]);
my $to = $substitution_entry->[1];
$text =~ s/$from/$to/g;
}
return $text;
}
sub t2h_add_text_substitutions($$$$$)
{
my $entry = shift;
my $in_normal = shift;
my $in_raw_text = shift;
my $in_preformatted = shift;
my $in_simple = shift;
my @formats_to_be_done = ($in_normal, $in_raw_text, $in_preformatted, $in_simple);
for (my $index = 0; $index < scalar(@formats_to_be_done); $index++)
{
next unless ($formats_to_be_done[$index]);
my @args = (0, 0, 0);
my $found = 0;
$args[$index -1] = 1 if ($index > 0);
my $substitutions = &t2h_default_select_substitution(@args);
foreach my $substitution_entry (@$substitutions)
{
if ($substitution_entry->[0] eq $entry->[0])
{
$found = 1;
$substitution_entry->[1] = $entry->[1];
}
}
push @$substitutions, $entry unless ($found);
}
}
sub t2h_remove_text_substitutions($$$$$)
{
my $entry = shift;
my $in_normal = shift;
my $in_raw_text = shift;
my $in_preformatted = shift;
my $in_simple = shift;
my @formats_to_be_done = ($in_normal, $in_raw_text, $in_preformatted, $in_simple);
for (my $index = 0; $index < scalar(@formats_to_be_done); $index++)
{
next unless ($formats_to_be_done[$index]);
my @args = (0, 0, 0);
$args[$index -1] = 1 if ($index > 0);
my $substitutions = &t2h_default_select_substitution(@args);
@$substitutions = grep {$_->[0] ne $entry} @$substitutions;
}
}
%unicode_diacritical = (
'H' => '030B',
'ringaccent' => '030A',
"'" => '0301',
'v' => '030C',
',' => '0327',
'^' => '0302',
'dotaccent' => '0307',
'`' => '0300',
'=' => '0304',
'~' => '0303',
'"' => '0308',
'udotaccent' => '0323',
'ubaraccent' => '0332',
'u' => '0306',
'tieaccent' => '0361',
'ogonek' => '0328'
);
%unicode_accents = (
'dotaccent' => { # dot above
'A' => '0226', #C moz-1.2
'a' => '0227', #c moz-1.2
'B' => '1E02',
'b' => '1E03',
'C' => '010A',
'c' => '010B',
'D' => '1E0A',
'd' => '1E0B',
'E' => '0116',
'e' => '0117',
'F' => '1E1E',
'f' => '1E1F',
'G' => '0120',
'g' => '0121',
'H' => '1E22',
'h' => '1E23',
'i' => '0069',
'I' => '0130',
'N' => '1E44',
'n' => '1E45',
'O' => '022E', #Y moz-1.2
'o' => '022F', #v moz-1.2
'P' => '1E56',
'p' => '1E57',
'R' => '1E58',
'r' => '1E59',
'S' => '1E60',
's' => '1E61',
'T' => '1E6A',
't' => '1E6B',
'W' => '1E86',
'w' => '1E87',
'X' => '1E8A',
'x' => '1E8B',
'Y' => '1E8E',
'y' => '1E8F',
'Z' => '017B',
'z' => '017C',
},
'udotaccent' => { # dot below
'A' => '1EA0',
'a' => '1EA1',
'B' => '1E04',
'b' => '1E05',
'D' => '1E0C',
'd' => '1E0D',
'E' => '1EB8',
'e' => '1EB9',
'H' => '1E24',
'h' => '1E25',
'I' => '1ECA',
'i' => '1ECB',
'K' => '1E32',
'k' => '1E33',
'L' => '1E36',
'l' => '1E37',
'M' => '1E42',
'm' => '1E43',
'N' => '1E46',
'n' => '1E47',
'O' => '1ECC',
'o' => '1ECD',
'R' => '1E5A',
'r' => '1E5B',
'S' => '1E62',
's' => '1E63',
'T' => '1E6C',
't' => '1E6D',
'U' => '1EE4',
'u' => '1EE5',
'V' => '1E7E',
'v' => '1E7F',
'W' => '1E88',
'w' => '1E89',
'Y' => '1EF4',
'y' => '1EF5',
'Z' => '1E92',
'z' => '1E93',
},
'ubaraccent' => { # line below
'B' => '1E06',
'b' => '1E07',
'D' => '1E0E',
'd' => '1E0F',
'h' => '1E96',
'K' => '1E34',
'k' => '1E35',
'L' => '1E3A',
'l' => '1E3B',
'N' => '1E48',
'n' => '1E49',
'R' => '1E5E',
'r' => '1E5F',
'T' => '1E6E',
't' => '1E6F',
'Z' => '1E94',
'z' => '1E95',
},
',' => { # cedilla
'C' => '00C7',
'c' => '00E7',
'D' => '1E10',
'd' => '1E11',
'E' => '0228', #C moz-1.2
'e' => '0229', #c moz-1.2
'G' => '0122',
'g' => '0123',
'H' => '1E28',
'h' => '1E29',
'K' => '0136',
'k' => '0137',
'L' => '013B',
'l' => '013C',
'N' => '0145',
'n' => '0146',
'R' => '0156',
'r' => '0157',
'S' => '015E',
's' => '015F',
'T' => '0162',
't' => '0163',
},
'=' => { # macron
'A' => '0100',
'a' => '0101',
'E' => '0112',
'e' => '0113',
'I' => '012A',
'i' => '012B',
'G' => '1E20',
'g' => '1E21',
'O' => '014C',
'o' => '014D',
'U' => '016A',
'u' => '016B',
'Y' => '0232', #? moz-1.2
'y' => '0233', #? moz-1.2
},
'"' => { # diaeresis
'A' => '00C4',
'a' => '00E4',
'E' => '00CB',
'e' => '00EB',
'H' => '1E26',
'h' => '1E27',
'I' => '00CF',
'i' => '00EF',
'O' => '00D6',
'o' => '00F6',
't' => '1E97',
'U' => '00DC',
'u' => '00FC',
'W' => '1E84',
'w' => '1E85',
'X' => '1E8C',
'x' => '1E8D',
'y' => '00FF',
'Y' => '0178',
},
'u' => { # breve
'A' => '0102',
'a' => '0103',
'E' => '0114',
'e' => '0115',
'G' => '011E',
'g' => '011F',
'I' => '012C',
'i' => '012D',
'O' => '014E',
'o' => '014F',
'U' => '016C',
'u' => '016D',
},
"'" => { # acute
'A' => '00C1',
'a' => '00E1',
'C' => '0106',
'c' => '0107',
'E' => '00C9',
'e' => '00E9',
'G' => '01F4',
'g' => '01F5',
'I' => '00CD',
'i' => '00ED',
'K' => '1E30',
'k' => '1E31',
'L' => '0139',
'l' => '013A',
'M' => '1E3E',
'm' => '1E3F',
'N' => '0143',
'n' => '0144',
'O' => '00D3',
'o' => '00F3',
'P' => '1E54',
'p' => '1E55',
'R' => '0154',
'r' => '0155',
'S' => '015A',
's' => '015B',
'U' => '00DA',
'u' => '00FA',
'W' => '1E82',
'w' => '1E83',
'Y' => '00DD',
'y' => '00FD',
'Z' => '0179',
'z' => '018A',
},
'~' => { # tilde
'A' => '00C3',
'a' => '00E3',
'E' => '1EBC',
'e' => '1EBD',
'I' => '0128',
'i' => '0129',
'N' => '00D1',
'n' => '00F1',
'O' => '00D5',
'o' => '00F5',
'U' => '0168',
'u' => '0169',
'V' => '1E7C',
'v' => '1E7D',
'Y' => '1EF8',
'y' => '1EF9',
},
'`' => { # grave
'A' => '00C0',
'a' => '00E0',
'E' => '00C8',
'e' => '00E8',
'I' => '00CC',
'i' => '00EC',
'N' => '01F8',
'n' => '01F9',
'O' => '00D2',
'o' => '00F2',
'U' => '00D9',
'u' => '00F9',
'W' => '1E80',
'w' => '1E81',
'Y' => '1EF2',
'y' => '1EF3',
},
'^' => { # circumflex
'A' => '00C2',
'a' => '00E2',
'C' => '0108',
'c' => '0109',
'E' => '00CA',
'e' => '00EA',
'G' => '011C',
'g' => '011D',
'H' => '0124',
'h' => '0125',
'I' => '00CE',
'i' => '00EE',
'J' => '0134',
'j' => '0135',
'O' => '00D4',
'o' => '00F4',
'S' => '015C',
's' => '015D',
'U' => '00DB',
'u' => '00FB',
'W' => '0174',
'w' => '0175',
'Y' => '0176',
'y' => '0177',
'Z' => '1E90',
'z' => '1E91',
},
'ringaccent' => { # ring
'A' => '00C5',
'a' => '00E5',
'U' => '016E',
'u' => '016F',
'w' => '1E98',
'y' => '1E99',
},
'v' => { # caron
'A' => '01CD',
'a' => '01CE',
'C' => '010C',
'c' => '010D',
'D' => '010E',
'd' => '010F',
'E' => '011A',
'e' => '011B',
'G' => '01E6',
'g' => '01E7',
'H' => '021E', #K with moz-1.2
'h' => '021F', #k with moz-1.2
'I' => '01CF',
'i' => '01D0',
'K' => '01E8',
'k' => '01E9',
'L' => '013D', #L' with moz-1.2
'l' => '013E', #l' with moz-1.2
'N' => '0147',
'n' => '0148',
'O' => '01D1',
'o' => '01D2',
'R' => '0158',
'r' => '0159',
'S' => '0160',
's' => '0161',
'T' => '0164',
't' => '0165',
'U' => '01D3',
'u' => '01D4',
'Z' => '017D',
'z' => '017E',
},
'H' => { # double acute
'O' => '0150',
'o' => '0151',
'U' => '0170',
'u' => '0171',
},
'ogonek' => {
'A' => '0104',
'a' => '0105',
'E' => '0118',
'e' => '0119',
'I' => '012E',
'i' => '012F',
'U' => '0172',
'u' => '0173',
'O' => '01EA',
'o' => '01EB',
},
);
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents))
{
$style_map{$accent_command} = { 'function' => \&t2h_default_accent };
$old_style_map{$accent_command} = '&default_accent';
$style_map_texi{$accent_command} = { 'function' => \&t2h_default_accent };
}
%transliterate_accent_map = ();
foreach my $command (keys(%unicode_accents))
{
foreach my $letter(keys (%{$unicode_accents{$command}}))
{
$transliterate_accent_map{$unicode_accents{$command}->{$letter}}
= $letter
unless (exists($transliterate_map{$unicode_accents{$command}->{$letter}}));
}
}
sub default_accent($$)
{
my $text = shift;
my $accent = shift;
return "&${text}$accent_map{$accent};" if (defined($accent_map{$accent}) and defined($special_accents{$accent}) and ($text =~ /^[$special_accents{$accent}]$/));
return '&' . $text . 'ring;' if (($accent eq 'ringaccent') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/));
return $text . '<' if ($accent eq 'v');
return ascii_accents($text, $accent);
}
sub t2h_default_accent($$)
{
my $accent = shift;
my $args = shift;
my $text = $args->[0];
return ascii_accents($text, $accent);
}
####################################################################
# special accent/encoding commands
#
# Some functions used to override normal formatting functions in specific
# cases. The user shouldn't want to change them, but can use them.
#
sub ascii_accents($$)
{
my $text = shift;
my $accent = shift;
return $text if ($accent eq 'dotless');
return $text . "''" if ($accent eq 'H');
return $text . '.' if ($accent eq 'dotaccent');
return $text . '*' if ($accent eq 'ringaccent');
return $text . '[' if ($accent eq 'tieaccent');
return $text . '(' if ($accent eq 'u');
return $text . '_' if ($accent eq 'ubaraccent');
return '.' . $text if ($accent eq 'udotaccent');
return $text . '<' if ($accent eq 'v');
return $text . ';' if ($accent eq 'ogonek');
return $text . $accent if (defined($accent_map{$accent}));
}
sub xml_default_accent($$)
{
my $accent = shift;
my $args = shift;
my $text = $args->[0];
return "&${text}$accent_map{$accent};" if (defined($accent_map{$accent}) and defined($special_accents{$accent}) and ($text =~ /^[$special_accents{$accent}]$/));
return '&' . $text . 'ring;' if (($accent eq 'ringaccent') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/));
return $text . '<' if ($accent eq 'v');
# FIXME here there could be a conversion to the character in the right
# encoding, like
# if ($USE_UNICODE and defined($OUT_ENCODING) and $OUT_ENCODING ne ''
# and exists($unicode_accents{$accent}) and exists($unicode_accents{$accent}->{$text}))
# {
# my $encoded_char = Encode::encode($OUT_ENCODING, chr(hex($unicode_map{$thing})), Encode::FB_QUIET);
# return $encoded_char if ($encoded_char ne '');
# }
if ($USE_NUMERIC_ENTITY)
{
if (exists($unicode_accents{$accent}) and exists($unicode_accents{$accent}->{$text}))
{
return ('&#' . hex($unicode_accents{$accent}->{$text}) . ';');
}
}
return ascii_accents($text, $accent);
}
# used to utf8 encode the result
sub t2h_utf8_accent($$$)
{
my $accent = shift;
my $args = shift;
my $style_stack = shift;
my $text = $args->[0];
#print STDERR "$accent\[".scalar(@$style_stack) ."\] (@$style_stack)\n";
# special handling of @dotless{i}
if ($accent eq 'dotless')
{
if (($text eq 'i') and (!defined($style_stack->[-1]) or (!defined($unicode_accents{$style_stack->[-1]})) or ($style_stack->[-1] eq 'tieaccent')))
{
return "\x{0131}";
}
#return "\x{}" if ($text eq 'j'); # not found !
return $text;
}
# FIXME \x{0131}\x{0308} for @dotless{i} @" doesn't lead to NFC 00ef.
return Unicode::Normalize::NFC($text . chr(hex($unicode_diacritical{$accent})))
if (defined($unicode_diacritical{$accent}));
return ascii_accents($text, $accent);
}
sub t2h_utf8_normal_text($$$$$$$;$)
{
my $text = shift;
my $in_raw_text = shift;
my $in_preformatted = shift;
my $in_code = shift;
my $in_math = shift;
my $in_simple = shift;
my $style_stack = shift;
my $state = shift;
$text = &$protect_text($text) unless($in_raw_text);
$text = uc($text) if (in_small_caps($style_stack));
if (!$in_code and !$in_preformatted)
{
$text =~ s/---/\x{2014}/g;
$text =~ s/--/\x{2013}/g;
$text =~ s/``/\x{201C}/g;
$text =~ s/''/\x{201D}/g;
}
$text = t2h_text_substitutions($text, $in_raw_text, ($in_preformatted or $in_code), $in_simple);
return Unicode::Normalize::NFC($text);
}
sub t2h_enable_encoding_normal_accent($$$)
{
return t2h_enable_encoding_accent ('normal', @_);
}
sub t2h_enable_encoding_texi_accent($$$)
{
return t2h_enable_encoding_accent ('texi', @_);
}
sub t2h_enable_encoding_pre_accent($$$)
{
return t2h_enable_encoding_accent ('pre', @_);
}
sub t2h_enable_encoding_accent($$$$)
{
my $context = shift;
my @other_args = @_;
my $accent = shift;
my $args = shift;
my $style_stack = shift;
my $text = $args->[0];
#print STDERR "enable_encoding_accent called($context) $accent (@$style_stack)\n";
# in case ENCODING_NAME is not known, the accent functions saved previously
# are used.
# This should happen rarely, like during @setfilename parsing.
return &{$t2h_enable_encoding_default_accent{$context}->{$accent}}(@other_args) if (!defined($Texi2HTML::THISDOC{'ENCODING_NAME'}));
return t2h_utf8_accent($accent,[$text],$style_stack) if ($Texi2HTML::THISDOC{'ENCODING_NAME'} eq 'utf-8');
# use the saved default handling if this is not a known 8 bit encoding
return &{$t2h_enable_encoding_default_accent{$context}->{$accent}}(@other_args) if (!exists($makeinfo_encoding_to_map{$Texi2HTML::THISDOC{'ENCODING_NAME'}}));
# the following is for the handling of known 8 bit encodings.
if (scalar(@t2h_enable_encoding_accents_stack))
{
# in that case, we already have a result ready that corresponds with the
# formatting of a part of the stack mapped to
# t2h_enable_encoding_accents_stack, so it is emptied and the innermost
# $text is returned as is, such that the unmodified already formatted
# innermost formatted accented text is returned.
#print STDERR " doing nothing, still in stack (@t2h_enable_encoding_accents_stack), accent: $accent";
my $stack_accent = shift @t2h_enable_encoding_accents_stack;
#print STDERR " stack_accent $stack_accent\n";
return $text;
}
# in that case there is no t2h_enable_encoding_accents_stack, so we are
# at the closing of the innermost accented command. We will try to format
# all the stack in reverse(@$style_stack) that coresponds with
# accent commands
my @accents_stack = ();
my @styles = reverse(@$style_stack);
# accents are formatted and the intermediate results are kept, such
# that we can return the maximum of multiaccented letters that can be
# rendered with a given eight bit formatting.
# first put the letter in the stack
my @utf8_partial_results = { 'result' => $text,
'accents_stack' => [ @accents_stack ]};
# then the accent that is associated with the function call
my $current_accent = t2h_utf8_accent($accent,[$text],$style_stack);
@accents_stack = ($accent);
push @utf8_partial_results, { 'result' => $current_accent,
'accents_stack' => [ @accents_stack ]};
# and then all the other accents on the stack
while (scalar(@styles) and (defined($unicode_accents{$styles[0]}) or $styles[0] eq 'dotless'))
{
my $next_style = shift @styles;
my @new_stack = reverse(@styles);
$current_accent = t2h_utf8_accent($next_style,[$current_accent],\@new_stack);
push @accents_stack, $next_style;
push @utf8_partial_results, { 'result' => $current_accent,
'accents_stack' => [ @accents_stack ]}
;
}
my $enc_map = $makeinfo_encoding_to_map{$Texi2HTML::THISDOC{'ENCODING_NAME'}};
my $eight_bit;
my $result;
# At this point we have the utf8 encoded results for the accent
# commands stack, with all the intermediate results.
# For each one we'll check if it is possible to encode it in the
# current eight bit output encoding table
foreach my $partial_result (@utf8_partial_results)
{
my $char = $partial_result->{'result'};
my $new_eight_bit = '';
my $new_codepoint;
if (ord($char) <= 128)
{
$new_eight_bit = uc(sprintf("%02x",ord($char)));
$new_codepoint = uc(sprintf("%04x",ord($char)));
}
elsif (ord($char) <= hex(0xFFFF))
{
$new_codepoint = uc(sprintf("%04x",ord($char)));
if (exists($makeinfo_unicode_to_eight_bit{$enc_map}->{$new_codepoint}))
{
$new_eight_bit = $makeinfo_unicode_to_eight_bit{$enc_map}->{$new_codepoint};
}
}
#my $eight_bit_txt = 'undef';
#$eight_bit_txt = $eight_bit if (defined($eight_bit));
#print STDERR "" . Encode::encode('utf8', "$char") . " (@{$partial_result->{'accents_stack'}}), new_codepoint: $new_codepoint 8bit: $new_eight_bit old:$eight_bit_txt\n";
# no corresponding eight bit character found
last if ($new_eight_bit eq '');
# in that case, the new eight bit character is the same than the one
# found with one less character (and it isnt a @dotless{i}). It may
# mean 2 things
# -> there are 2 characters in accent. This could happen, for example
# if an accent that cannot be rendered is found and it leads to
# appending or prepending a character. For example this happens for
# @={@,{@~{n}}}, where @,{@~{n}} is expanded to a 2 character:
# n with a tilde, followed by a ,
# In nthat case, the additional utf8 accent is prepended, which
# means that it is composed with the , and leaves n with a tilde
# untouched.
# -> ord(char) leads to the same for the more inner character.
# this, for example, happens for @ubaraccent{a}, where ord(a) is
# the same than ord(a with underbar).
last if (defined($eight_bit) and (($new_eight_bit eq $eight_bit)
and !($partial_result->{'accents_stack'}[0] eq 'dotless' and $char eq 'i')));
$result = $partial_result;
$eight_bit = $new_eight_bit;
}
if (defined($result) and scalar(@{$result->{'accents_stack'}}))
{
# we got a result, return it and put in t2h_enable_encoding_accents_stack
# the stack of accent commands that were processed. They wont be used
# further, but only unshifted.
#print STDERR "Result: ".Encode::encode('utf8', $result->{'result'}) ." '$eight_bit' (@{$result->{'accents_stack'}})\n" if defined($result);
@t2h_enable_encoding_accents_stack = @{$result->{'accents_stack'}};
# remove the first, it is the accent being processed
shift @t2h_enable_encoding_accents_stack;
# it should be noted that we return the 'utf8' accent (which is really
# a codepoint, and not the eight bit representation, we leave the
# conversion to perl, which should handle it fine
return $result->{'result'};
}
return &{$t2h_enable_encoding_default_accent{$context}->{$accent}}(@other_args);
}
# end special accent/encoding commands
####################################################################
####################################################################
# TeX/LaTeX, that can especially be used in @math
# To load the appropriate hash, use
# default_load_tex_math
my %tex_default_simple_map_math = (
'{' => '\{',
'}' => '\}',
'\\' => '\\'
);
my %tex_default_math_things_map = %default_things_map;
$tex_default_math_things_map{'bullet'} = '\bullet';
$tex_default_math_things_map{'copyright'} = '\copyright';
$tex_default_math_things_map{'registeredsymbol'} = '\circledR';
$tex_default_math_things_map{'dots'} = '\dots';
$tex_default_math_things_map{'endots'} = '\dots';
$tex_default_math_things_map{'equiv'} = '\equiv';
$tex_default_math_things_map{'expansion'} = '\mapsto';
$tex_default_math_things_map{'arrow'} = '\rightarrow';
$tex_default_math_things_map{'point'} = '\star';
$tex_default_math_things_map{'print'} = '\dashv';
$tex_default_math_things_map{'result'} = '\Rightarrow';
$tex_default_math_things_map{'pounds'} = '\pounds';
$tex_default_math_things_map{'geq'} = '\geq';
$tex_default_math_things_map{'leq'} = '\leq';
$tex_default_math_things_map{'textdegree'} = '^\circ';
my %latex_default_math_things_map = %tex_default_math_things_map;
$latex_default_math_things_map{'aa'} = '\mathring{a}';
$latex_default_math_things_map{'AA'} = '\mathring{A}';
# FIXME Maybe this should not be there since it is not for math but
# more for a completly separate format.
my %latex_default_things_map;
foreach my $thing (keys(%default_things_map))
{
$latex_default_things_map{$thing} = '\\'.$thing;
}
$latex_default_things_map{'error'} = '\fbox{error}';
$latex_default_things_map{'enddots'} = '\dots\@';
$latex_default_things_map{'exclamdown'} = '\textexclamdown';
$latex_default_things_map{'questiondown'} = '\textquestiondown';
$latex_default_things_map{'tie'} = '~';
$latex_default_things_map{'registeredsymbol'} = '\textregistered';
$latex_default_things_map{'ordf'} = '\textordfeminine';
$latex_default_things_map{'ordm'} = '\textordmasculine';
$latex_default_things_map{'guillemetleft'} = '\guillemotleft';
$latex_default_things_map{'guillemetright'} = '\guillemotright';
foreach my $text_prefixed_symbols ('bullet', 'exclamdown', 'questiondown',
'quotedblleft', 'quotedblright', 'quoteleft', 'quoteright')
{
$latex_default_things_map{$text_prefixed_symbols} = '\text'.$text_prefixed_symbols;
}
foreach my $math_only ('equiv', 'expansion', 'arrow', 'minus', 'point',
'print', 'result', 'geq', 'leq')
{
$latex_default_things_map{$math_only} = '$'.$latex_default_math_things_map{$math_only}.'$';
}
# End TeX/LaTeX
#############################################################
sub default_sc($$)
{
return uc($_[0]);
}
sub default_ctrl($$)
{
return "^$_[0]";
}
# obsolete, no warning, but noop
sub t2h_default_ctrl($$$)
{
shift;
my $args = shift;
#return "^$args->[0]";
return "$args->[0]";
}
sub default_sc_pre($$)
{
return uc($_[0]);
}
sub default_titlefont($$)
{
return "<h1 class=\"titlefont\">$_[0]</h1>" if ($_[0] =~ /\S/);
return '';
}
# Return nothing if the text is empty
sub t2h_default_titlefont($$$)
{
shift;
my $args = shift;
my $heading = $args->[0];
return '' unless ($heading =~ /\S/);
return &$heading_text('@titlefont', $heading, 0);
}
# At some point in time (before 4.7?) according to the texinfo
# manual, url shouldn't lead to a link but rather be formatted
# like text. It is now what indicateurl do, url is the same that
# uref with one arg. If we did like makeinfo did it would have been
#sub url($$)
#{
# return '<<code>' . $_[0] . '</code>>';
#}
#
# This is unused, t2h_default_uref is used instead
sub t2h_default_url ($$)
{
shift;
my $args = shift;
my $url = shift @$args;
$url = main::normalise_space($url);
return '' unless ($url =~ /\S/);
return t2h_default_url_and_text($url);
}
sub default_url ($$)
{
my $url = shift;
my $command = shift;
$url =~ s/\s*$//;
$url =~ s/^\s*//;
return t2h_default_url_and_text($url);
}
sub default_uref($$)
{
my $arg = shift;
my $command = shift;
my ($url, $text, $replacement);
($url, $text, $replacement) = split /,\s*/, $arg;
$url =~ s/\s*$//;
$url =~ s/^\s*//;
$text = $replacement if (defined($replacement));
return t2h_default_url_and_text($url, $text);
}
sub t2h_default_uref($$)
{
shift;
my $args = shift;
my $url = shift @$args;
my $text = shift @$args;
my $replacement = shift @$args;
$url = main::normalise_space($url);
$replacement = '' if (!defined($replacement));
$replacement = main::normalise_space($replacement);
$text = '' if (!defined($text));
$text = main::normalise_space($text);
$text = $replacement if ($replacement ne '');
return t2h_default_url_and_text($url, $text);
}
sub t2h_default_math($$)
{
shift;
my $args = shift;
my $text = shift @$args;
return "$text";
}
sub default_email($$)
{
my $arg = shift;
my $command = shift;
my ($mail, $text);
($mail, $text) = split /,\s*/, $arg;
$mail =~ s/\s*$//;
$mail =~ s/^\s*//;
return t2h_default_url_and_text("mailto:$mail", $text);
}
sub t2h_default_email($$)
{
my $command = shift;
my $args = shift;
my $mail = shift @$args;
my $text = shift @$args;
$mail = main::normalise_space($mail);
if (defined($text))
{
#$text =~ s/^\s*//;
#$text =~ s/^\s*$//;
$text = main::normalise_space($text);
}
my $mailto = '';
$mailto = "mailto:$mail" if ($mail ne '');
return t2h_default_url_and_text($mailto, $text);
}
sub t2h_default_click_normal($$$)
{
return t2h_default_click('normal', @_);
}
sub t2h_default_click_pre($$$)
{
return t2h_default_click('pre', @_);
}
sub t2h_default_click_texi($$$)
{
return t2h_default_click('texi', @_);
}
sub t2h_default_click($$$$$)
{
my $context = shift;
my $command = shift;
my $args = shift;
my $arg = shift @$args;
my $cmd = $Texi2HTML::THISDOC{'clickstyle'};
$cmd = 'arrow' if (!defined($cmd) or ($cmd eq ''));
my $hash = \%things_map;
if ($context eq 'pre')
{
$hash = \%pre_map;
}
elsif ($context eq 'texi')
{
$hash = \%texi_map;
}
return $hash->{$cmd} . $arg if (exists($hash->{$cmd}));
return $arg;
}
sub t2h_default_hyphenation($$)
{
my $command = shift;
my $args = shift;
my $text = shift @$args;
$text =~ s/^\s*//;
$text =~ s/\s*$//;
my @list = split /\s+/, $text;
foreach my $entry (@list)
{
my $word = $entry;
$word =~ s/-//g;
$Texi2HTML::THISDOC{'hyphenation'}->{$word} = $entry;
}
}
sub t2h_default_no_texi_email
{
my $command = shift;
my $args = shift;
my $mail = shift @$args;
my $text = shift @$args;
$mail = main::normalise_space($mail);
return $text if (defined($text) and ($text ne ''));
return $mail;
}
sub t2h_default_no_texi_image($$$$)
{
my $command = shift;
my $args = shift;
my $file = $args->[0];
$file = main::trim_around_spaces($file);
return main::substitute_line($file, "\@$command", {'remove_texi' => 1, 'code_style' => 1});
}
sub t2h_default_no_texi_acronym_like($$)
{
my $command = shift;
my $args = shift;
my $acronym_texi = $args->[0];
return (main::remove_texi($acronym_texi));
}
sub t2h_remove_command($$$$)
{
return '';
}
# This is used for style in preformatted sections
my %old_style_map_pre = %old_style_map;
$old_style_map_pre{'sc'} = '&default_sc_pre';
$old_style_map_pre{'titlefont'} = '';
foreach my $command (keys(%style_map))
{
$style_map_texi{$command} = {} if (!exists($style_map_texi{$command}));
$style_map_texi{$command}->{'args'} = [ @{$style_map{$command}->{'args'}} ]
if (exists($style_map{$command}->{'args'}));
#print STDERR "COMMAND $command";
}
%style_map_pre = ();
t2h_default_copy_style_map(\%style_map, \%style_map_pre);
$style_map_pre{'sc'} = {};
$style_map_pre{'titlefont'} = {};
$style_map_pre{'click'}->{'function'} = \&t2h_default_click_pre;
$style_map_texi{'sc'} = {};
$style_map_texi{'email'}->{'function'} = \&t2h_default_no_texi_email;
$style_map_texi{'click'}->{'function'} = \&t2h_default_click_texi;
####### special styles. You shouldn't need to change them
%special_style = (
#'xref' => ['keep','normal','normal','keep','normal'],
'xref' => { 'args' => ['keep','keep','keep','keep','keep'],
'function' => \&main::do_xref },
'ref' => { 'args' => ['keep','keep','keep','keep','keep'],
'function' => \&main::do_xref },
'pxref' => { 'args' => ['keep','keep','keep','keep','keep'],
'function' => \&main::do_xref },
'inforef' => { 'args' => ['keep','keep','keep'],
'function' => \&main::do_xref },
'image' => { 'args' => ['keep','keep','keep','keep','keep'], 'function' => \&main::do_image },
'anchor' => { 'args' => ['keep'], 'function' => \&main::do_anchor_label },
'footnote' => { 'args' => ['keep'], 'function' => \&main::do_footnote },
'shortcaption' => { 'args' => ['keep'], 'function' => \&main::do_caption_shortcaption },
'caption' => { 'args' => ['keep'], 'function' => \&main::do_caption_shortcaption },
'acronym', {'args' => ['keep','keep'], 'function' => \&main::do_acronym_like},
'abbr', {'args' => ['keep','keep'], 'function' => \&main::do_acronym_like},
);
# @image is replaced by the first arg in strings
$style_map_texi{'image'} = { 'args' => ['keep','keep','keep','keep','keep'],
'function' => \&t2h_default_no_texi_image };
$style_map_texi{'acronym'} = { 'args' => ['keep','keep'],
'function' => \&t2h_default_no_texi_acronym_like };
$style_map_texi{'abbr'} = { 'args' => ['keep','keep'],
'function' => \&t2h_default_no_texi_acronym_like };
foreach my $special (keys(%special_style))
{
$style_map{$special} = $special_style{$special}
unless (defined($style_map{$special}));
$style_map_pre{$special} = $special_style{$special}
unless (defined($style_map_pre{$special}));
$style_map_texi{$special} = { 'args' => ['keep'],
'function' => \&t2h_remove_command }
unless (defined($style_map_texi{$special}));
}
####### end special styles.
#foreach my $command (keys(%style_map))
#{
# print STDERR "STYLE_MAP_TEXI $command($style_map_texi{$command}) ";
# print STDERR "ARGS $style_map_texi{$command}->{'args'} " if (defined($style_map_texi{$command}->{'args'}));
# print STDERR "FUN $style_map_texi{$command}->{'function'} " if (defined($style_map_texi{$command}->{'function'}));
# print STDERR "\n";
#}
# uncomment to use the old interface
#%style_map = %old_style_map;
#%style_map_pre = %old_style_map_pre;
%simple_format_simple_map_texi = %simple_map_pre;
%simple_format_texi_map = %pre_map;
%simple_format_style_map_texi = ();
t2h_default_copy_style_map(\%style_map_texi, \%simple_format_style_map_texi);
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents))
{
# $simple_format_style_map_texi{$accent_command}->{'args'} = ['normal'];
$simple_format_style_map_texi{$accent_command}->{'function'} = \&t2h_default_accent;
}
foreach my $hash (\%style_map, \%style_map_pre, \%style_map_texi, \%simple_format_style_map_texi)
{
foreach my $style (keys(%{$hash}))
{
$hash->{$style}->{'args'} = ['normal'] if (!exists($hash->{$style}->{'args'}));
}
}
%default_style_map = ();
%default_style_map_pre = ();
%default_style_map_texi = ();
%default_simple_format_style_map_texi = ();
t2h_default_copy_style_map(\%style_map, \%default_style_map);
t2h_default_copy_style_map(\%style_map_pre, \%default_style_map_pre);
t2h_default_copy_style_map(\%style_map_texi, \%default_style_map_texi);
t2h_default_copy_style_map(\%simple_format_style_map_texi, \%default_simple_format_style_map_texi);
# called here because %default_style_map_texi is used.
t2h_default_set_variables_default();
#################################################################
# TeX/LaTeX styles, that can be used in math
my %default_style_tex_map;
my %default_style_latex_map;
t2h_default_copy_style_map(\%default_style_map, \%default_style_tex_map);
t2h_default_copy_style_map(\%default_style_map, \%default_style_latex_map);
# common in TeX and LaTeX and both for math and normal text
$default_style_latex_map{'w'}->{'inline_begin'} = '\mbox{';
$default_style_tex_map{'w'}->{'inline_begin'} = '\mbox{';
$default_style_latex_map{'dmn'}->{'inline_begin'} = '{\thinspace ';
$default_style_tex_map{'dmn'}->{'inline_begin'} = '{\thinspace ';
my %default_style_latex_math_map;
t2h_default_copy_style_map(\%default_style_latex_map, \%default_style_latex_math_map);
my %default_tex_latex_map = (
'bf' => [ 'b', 'strong' ],
'tt' => [ 'code', 'command', 'env', 'file', 'option', 'samp', 't' ],
'it' => [ 'i', 'var', 'emph' ],
'sf' => [ 'sanserif' ],
'rm' => [ 'r' ],
'sl' => [ 'dfn', 'slanted' ],
);
foreach my $style (keys (%default_tex_latex_map))
{
foreach my $command (@{$default_tex_latex_map{$style}})
{
$default_style_tex_map{$command}->{'inline_begin'} = '{\\' . $style .' ';
$default_style_latex_map{$command}->{'inline_begin'} = '\text' . $style .'{';
$style = 'normal' if ($style eq 'sl');
$default_style_latex_math_map{$command}->{'inline_begin'} = '\math' . $style .'{';
}
}
# only in text
$default_style_latex_map{'emph'}->{'inline_begin'} = '\emph{';
$default_style_latex_map{'var'}->{'inline_begin'} = '\emph{';
$default_style_latex_map{'sc'}->{'inline_begin'} = '\textsc{';
foreach my $hash (\%default_style_tex_map, \%default_style_latex_map, \%default_style_latex_math_map)
{
foreach my $command (keys(%$hash))
{
$hash->{$command}->{'inline_end'} = '}' if ($hash->{$command}->{'inline_begin'});
}
}
# no kbd key sc in math
# 'kbd' - ?
# 'key' - ?
my %default_style_tex_math_map;
t2h_default_copy_style_map(\%default_style_tex_map, \%default_style_tex_math_map);
# We don't want to override special commands in math mode for now, as long
# as they are not handled especially. Also we don't want to modify the math
# function, it is called to close the @math command and we don't want
# it to be the turned to the default one when calling
# FIXME maybe it would be even better not to duplicate default styles in
# math, like 'email', 'uref'....
foreach my $command (keys(%special_style), 'math')
{
delete $default_style_tex_math_map{$command};
delete $default_style_latex_math_map{$command};
}
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents))
{
$default_style_latex_map{$accent_command} = { 'function' => \&default_tex_accent };
$default_style_tex_map{$accent_command} = { 'function' => \&default_tex_accent };
$default_style_tex_math_map{$accent_command} = { 'function' => \&default_tex_math_accent };
$default_style_latex_math_map{$accent_command} = { 'function' => \&default_latex_math_accent };
}
my %tex_text_accent_map = (
',' => 'c',
'ringaccent' => 'r',
'dotaccent' => '.',
'ubaraccent' => 'b',
'udotaccent' => 'd',
'ogonek' => 'k',
'tieaccent' => 'tie',
);
sub default_tex_accent($$)
{
my $text = shift;
my $accent = shift;
return "\\$tex_text_accent_map{$accent}\{$text\}" if ($tex_text_accent_map{$accent});
if ($accent eq 'dotless')
{
return "\\$text" if ($text eq 'i' or $text eq 'j');
return $text;
}
return "\\$accent\{$text\}";
}
my %tex_math_accent_map = (
"'" => 'acute',
'^' => 'hat',
'`' => 'grave',
'~' => 'tilde',
'"' => 'ddot',
'=' => 'bar',
'dotaccent' => 'dot',
'u' => 'breve',
'ubaraccent' => 'underline',
);
sub default_latex_math_accent($$)
{
my $text = shift;
my $accent = shift;
return '\mathring{'.$text.'}' if ($accent eq 'ringaccent');
return default_tex_math_accent($text, $accent);
}
sub default_tex_math_accent($$)
{
my $text = shift;
my $accent = shift;
return "\\$tex_text_accent_map{$accent}\{$text\}" if ($tex_text_accent_map{$accent});
if ($accent eq 'dotless')
{
return "\\${text}math" if ($text eq 'i' or $text eq 'j');
return $text;
}
return ascii_accent($text, $accent);
}
my $kept_normal_text;
# We assume that in @math the TeX characters have already been
# rightly protected and so don't protect once more.
sub default_tex_normal_math_text($$$$$$$;$)
{
my @initial_args = @_;
my $text = shift;
my $in_raw_text = shift; # remove_texi
my $in_preformatted = shift;
my $in_code = shift;
my $in_math = shift;
my $in_simple = shift;
my $style_stack = shift;
my $state = shift;
# Don't protect text in math
if ($in_math)
{
$text = uc($text) if (in_cmd($style_stack, 'sc'));
return $text;
}
return &kept_normal_text(@initial_args);
}
# This is the entry point to be used by users.
sub default_load_tex_math(;$)
{
my $style = shift;
$style = 'latex' if (!defined($style));
%simple_map_math = %tex_default_simple_map_math;
if ($style eq 'tex')
{
%math_map = %tex_default_math_things_map;
t2h_default_copy_style_map(\%default_style_tex_math_map, \%style_map_math);
}
else
{
%math_map = %latex_default_math_things_map;
t2h_default_copy_style_map(\%default_style_latex_math_map, \%style_map_math);
}
$kept_normal_text = $normal_text;
$normal_text = \&default_tex_normal_math_text;
}
# End TeX/LaTeX styles
#################################################################
# regions expanded or not depending on the value of this hash.
# @EXPAND sets entries in this hash, and you should better use
# @EXPAND unless you know what you are doing.
%texi_formats_map = (
'iftex' => 0,
'ignore' => 0,
'menu' => 0,
'ifplaintext' => 0,
'ifinfo' => 0,
'ifxml' => 0,
'ifhtml' => 0,
'ifdocbook' => 0,
# 'html' => 0,
# 'tex' => 0,
# 'xml' => 0,
# 'docbook' => 0,
'titlepage' => 1,
'documentdescription' => 1,
'copying' => 1,
'ifnothtml' => 1,
'ifnottex' => 1,
'ifnotplaintext' => 1,
'ifnotinfo' => 1,
'ifnotxml' => 1,
'ifnotdocbook' => 1,
'direntry' => 'normal',
'verbatim' => 'raw',
'macro' => 'raw',
'ifclear' => 'value',
'ifset' => 'value' ,
);
%format_map = (
# 'quotation' => 'blockquote',
# lists
# 'itemize' => 'ul',
'enumerate' => '',
# 'multitable' => 'table',
'table' => '',
'vtable' => '',
'ftable' => '',
'group' => '',
'raggedright' => '',
# 'detailmenu' => '',
);
%special_list_commands = (
'table' => {},
'vtable' => {},
'ftable' => {},
# 'itemize' => { 'bullet' => '' }
'itemize' => {},
);
%inter_item_commands = (
'c' => 1,
'comment' => 1,
'cindex' => 1
);
#
# texinfo format to align attribute of paragraphs
#
%paragraph_style = (
'center' => 'center',
'flushleft' => 'left',
'flushright' => 'right',
);
# complex formats (preformatted)
%complex_format_map = ();
foreach my $complex_format ('example', 'smallexample', 'display',
'smalldisplay', 'lisp', 'smalllisp', 'format', 'smallformat',
'menu', 'detailmenu', 'direntry', 'menu_comment')
{
$complex_format_map{$complex_format} = { 'begin' => '', 'end' => '' };
}
foreach my $code_complex_format ('example', 'smallexample', 'lisp', 'smalllisp')
{
$complex_format_map{$code_complex_format}->{'style'} = 'code';
}
# not in code_style, according to post on bug-texinfo
foreach my $format ('menu', 'detailmenu', 'direntry')
{
$complex_format_map{$format}->{'class'} = 'menu-preformatted';
}
# not in code_style, according to post on bug-texinfo
$complex_format_map{'menu_comment'}->{'class'} = 'menu-comment';
%def_map = (
# basic commands
'deffn', [ 'f', 'category', 'name', 'arg' ],
'defvr', [ 'v', 'category', 'name' ],
'deftypefn', [ 'f', 'category', 'type', 'name', 'argtype' ],
'deftypeop', [ 'f', 'category', 'class' , 'type', 'name', 'argtype' ],
'deftypevr', [ 'v', 'category', 'type', 'name' ],
'defcv', [ 'v', 'category', 'class' , 'name' ],
'deftypecv', [ 'v', 'category', 'class' , 'type', 'name' ],
'defop', [ 'f', 'category', 'class' , 'name', 'arg' ],
'deftp', [ 't', 'category', 'name', 'argtype' ],
# shortcuts
# FIXME i18n
'defun', 'deffn Function',
'defmac', 'deffn Macro',
'defspec', 'deffn {Special Form}',
'defvar', 'defvr Variable',
'defopt', 'defvr {User Option}',
'deftypefun', 'deftypefn {Function}',
'deftypevar', 'deftypevr Variable',
'defivar', 'defcv {Instance Variable}',
'deftypeivar', 'deftypecv {Instance Variable}',
'defmethod', 'defop Method',
'deftypemethod', 'deftypeop Method',
);
$def_always_delimiters = "()[]";
$def_in_type_delimiters = ",;";
$def_argument_separator_delimiters = "()[],";
# basic x commands
foreach my $key (keys(%def_map))
{
$def_map{$key . 'x'} = $def_map{$key};
}
#
# miscalleneous commands
#
# Depending on the value, the command arg or spaces following the command
# are handled differently:
#
# the value is a reference on a hash.
# the hash keys are
# 'arg' if the value is 'line' then the remaining of the line is the arg
# if it is a number it is the number of args (separated by spaces)
# 'skip' if the value is 'line' then the remaining of the line is skipped
# if the value is 'space' space but no newline is skipped
# if the value is 'whitespace' space is skipped
# if the value is 'linewhitespace' space is skipped if there are
# only spaces remaining on the line
# if the value is 'linespace' space but no newline is skipped if
# there are only spaces remaining on the line
# 'keep' if true the args and the macro are kept, otherwise the macro
# args and skipped stuffs are removed
%misc_command = (
'bye' => {'skip' => 'line'}, # no arg
# set, clear
'set' => {'skip' => 'line'}, # special arg
'clear' => {'skip' => 'line'}, # special arg
'alias' => {'args' => 3, 'skip' => 'line'}, # special arg
# comments
'comment' => {'arg' => 'line'},
'c' => {'arg' => 'line'},
# not needed for formatting
'raisesections' => {'skip' => 'line'}, # no arg
'lowersections' => {'skip' => 'line'}, # no arg
'contents' => {}, # no arg
'shortcontents' => {}, # no arg
'summarycontents'=> {}, # no arg
'setcontentsaftertitlepage' => {}, # no arg
'setshortcontentsaftertitlepage' => {}, # no arg
# 'detailmenu' => {'skip' => 'whitespace'}, # no arg
# 'end detailmenu' => {'skip' => 'whitespace'}, # no arg
'clickstyle' => {'skip' => 'line'}, # arg should be an @-command
# in preamble
'novalidate' => {}, # no arg
'dircategory'=> {'arg' => 'line'}, # line. Position with regard
# with direntry is significant
'pagesizes' => {'skip' => 'line', 'arg' => 'line'}, # can have 2 args
# or one? 200mm,150mm 11.5in
'finalout' => {'skip' => 'line'}, # no arg
'paragraphindent' => {'skip' => 'line', 'arg' => 1}, # arg none asis
# or a number and forbids anything else on the line
'firstparagraphindent' => {'skip' => 'line', 'arg' => 1}, # none insert
'frenchspacing' => {'arg' => 1, 'skip' => 'line'}, # on off
# not so sure about 'skip' => 'line'
'fonttextsize' => {'arg' => 1}, # 10 11
'allowcodebreaks' => {'arg' => 1, 'skip' => 'line'}, # false or true
'exampleindent' => {'skip' => 'line', 'arg' => 1}, # asis or a number
'footnotestyle'=> {'skip' => 'line', 'arg' => 1}, # end and separate
# and nothing else on the line
'afourpaper' => {'skip' => 'line'}, # no arg
'afivepaper' => {'skip' => 'line'}, # no arg
'afourlatex' => {'skip' => 'line'}, # no arg
'afourwide' => {'skip' => 'line'}, # no arg
'headings'=> {'skip' => 'line', 'arg' => 1},
#off on single double singleafter doubleafter
# interacts with setchapternewpage
'setchapternewpage' => {'skip' => 'line', 'arg' => 1}, # off on odd
'everyheading' => {'arg' => 'line'},
'everyfooting' => {'arg' => 'line'},
'evenheading' => {'arg' => 'line'},
'evenfooting' => {'arg' => 'line'},
'oddheading' => {'arg' => 'line'},
'oddfooting' => {'arg' => 'line'},
'smallbook' => {'skip' => 'line'}, # no arg
'setfilename' => {'arg' => 'line'},
'definfoenclose' => {'arg' => 'line'},
#'shorttitle' => {'arg' => 'line', 'texi' => 1},
#'shorttitlepage' => {'arg' => 'line', 'texi' => 1},
#'settitle' => {'arg' => 'line', 'texi' => 1},
#'author' => {'arg' => 'line', 'texi' => 1},
#'subtitle' => {'arg' => 'line', 'texi' => 1},
#'title' => {'arg' => 'line', 'texi' => 1},
'shorttitle' => {'arg' => 'line'},
'shorttitlepage' => {'arg' => 'line'},
'settitle' => {'arg' => 'line'},
'author' => {'arg' => 'line'},
'subtitle' => {'arg' => 'line'},
'title' => {'arg' => 'line'},
'syncodeindex' => {'skip' => 'line', 'arg' => 2},
# args are index identifiers
'synindex' => {'skip' => 'line', 'arg' => 2},
'defindex' => {'skip' => 'line', 'arg' => 1}, # one identifier arg
'defcodeindex' => {'skip' => 'line', 'arg' => 1}, # one identifier arg
#'documentlanguage' => {'skip' => 'whitespace', 'arg' => 1},
'documentlanguage' => {'skip' => 'line', 'arg' => 1},
# language code arg
'kbdinputstyle' => {'skip' => 'whitespace', 'arg' => 1}, # code
#example distinct
'everyheadingmarks' => {'skip' => 'line', 'arg' => 1}, # top bottom
'everyfootingmarks' => {'skip' => 'whitespace', 'arg' => 1},
'evenheadingmarks' => {'skip' => 'whitespace', 'arg' => 1},
'oddheadingmarks' => {'skip' => 'whitespace', 'arg' => 1},
'evenfootingmarks' => {'skip' => 'whitespace', 'arg' => 1},
'oddfootingmarks' => {'skip' => 'whitespace', 'arg' => 1},
'sp' => {'skip' => 'line', 'arg' => 1}, # no arg
# at the end of line or a numerical arg
# formatting
'page' => {}, # no arg (pagebreak)
'refill' => {}, # no arg (obsolete, to be ignored)
'noindent' => {'skip' => 'whitespace'}, # no arg
'indent' => {'skip' => 'whitespace'},
'need' => {'skip' => 'line', 'arg' => 1}, # one numerical/real arg
'exdent' => {'skip' => 'space'},
# not valid for info (should be in @iftex)
'vskip' => {'arg' => 'line'}, # arg line in TeX
'cropmarks' => {}, # no arg
# miscalleneous
'verbatiminclude'=> {'skip' => 'line'},
'documentencoding' => {'arg' => 1, 'skip' => 'line'},
# ???
'filbreak' => {},
# obsolete @-commands. Remove spaces and end of lines after the
# commands? If no, they can lead to empty lines
'quote-arg' => {'skip' => 'line'},
'allow-recursion' => {'skip' => 'line'},
);
my %misc_command_old = (
# not needed for formatting
'raisesections', 'line', # no arg
'lowersections', 'line', # no arg
'contents', 1, # no arg
'shortcontents', 1, # no arg
'summarycontents', 1, # no arg
'detailmenu', 'whitespace', # no arg
'end detailmenu', 'whitespace', # no arg
#'end detailmenu', 1, # no arg
'novalidate', 1, # no arg
'bye', 'line', # no arg
# comments
'comment', 'line',
'c', 'line',
# in preamble
'dircategory', 'line', # line. Position with regard with direntry is
# significant
'pagesizes', 'line arg2', # can have 2 args
'finalout', 1, # no arg
'paragraphindent', 'line arg1', # in fact accepts only none asis
# or a number and forbids anything else on the line
'firstparagraphindent', 'line arg1', # in fact accepts only none insert
'exampleindent', 'line arg1', # in fact accepts only asis or a number
'footnotestyle', 'line arg1', # in fact accepts only end and separate
# and nothing else on the line
'afourpaper', 'line', # no arg
'afourlatex', 'line', # no arg
'afourwide', 'line', # no arg
'headings', 'line', # one arg, possibilities are
#off on single double singleafter doubleafter
# interacts with setchapternewpage
'setchapternewpage', 'line', # no arg
'everyheading', 'line',
'everyfooting', 'line',
'evenheading', 'line',
'evenfooting', 'line',
'oddheading', 'line',
'oddfooting', 'line',
'smallbook', 'line', # no arg
'setfilename', 'line',
'shorttitle', 'linetexi',
'shorttitlepage', 'linetexi',
'settitle', 'linetexi',
'author', 'linetexi',
'subtitle', 'linetexi',
'title','linetexi',
'syncodeindex','linespace arg2', # args are
'synindex','linespace arg2',
'defindex', 'line arg1', # one identifier arg
'defcodeindex', 'line arg1', # one identifier arg
'documentlanguage', 'whitespace arg1', # one language code arg
'kbdinputstyle', 'whitespace arg1', # one arg within
#code example distnct
'sp', 'whitespace arg1', # no arg at the en of line or a numerical arg
# formatting
'page', 1, # no arg (pagebreak)
'refill', 1, # no arg (obsolete, to be ignored))
'noindent', 'space', # no arg
'need', 'line arg1', # one numerical/real arg
'exdent', 'space',
# not valid for info (should be in @iftex)
'vskip', 'line', # arg line in TeX
'cropmarks', 1, # no arg
# miscalleneous
'verbatiminclude', 'line',
'documentencoding', 'arg1',
# ???
'filbreak', 1,
);
# The command_handler arrays are for commands formatted externally.
# The function references in @command_handler_init are called
# before the second pass, before the @-commands text collection.
# Those in @command_handler_process are called between the second pass
# and the third pass, after collection of @-commands text and before their
# expansion.
# Those in @command_handler_process are called after the third pass,
# after the document generation.
@command_handler_setup = ();
@command_handler_init = ();
@command_handler_names = ();
@command_handler_process = ();
@command_handler_output = ();
@command_handler_finish = ();
sub t2h_default_push_handler($$)
{
my $function = shift;
my $handlers = shift;
push @$handlers, $function unless (grep {$_ eq $function} @$handlers);
}
# the keys of %command_handler are @-command names and the value
# is a hash reference with the following keys:
# 'init' function reference used to collect the @-command text
# 'expand' function reference used when expanding the @-command text
%command_handler = ();
# formatting functions
$anchor = \&t2h_default_anchor;
$def_item = \&t2h_default_def_item;
$def = \&t2h_default_def;
$menu_command = \&t2h_default_menu_command;
$menu_link = \&t2h_default_menu_link;
#$menu_comment = \&t2h_default_menu_comment;
$menu_description = \&t2h_default_menu_description;
#$simple_menu_link = \&t2h_default_simple_menu_link;
$table_item = \&t2h_default_table_item;
$table_line = \&t2h_default_table_line;
$table_list = \&t2h_default_table_list;
$row = \&t2h_default_row;
$cell = \&t2h_default_cell;
$list_item = \&t2h_default_list_item;
$comment = \&t2h_default_comment;
$def_line = \&t2h_default_def_line;
$def_line_no_texi = \&t2h_default_def_line_no_texi;
$raw = \&t2h_default_raw;
$raw_no_texi = \&t2h_default_raw_no_texi;
$heading = \&t2h_default_heading;
$heading_text = \&t2h_default_heading_text;
$heading_text_preformatted = \&t2h_default_heading_text_preformatted;
$element_heading = \&t2h_default_element_heading;
$heading_no_texi = \&t2h_default_heading_no_texi;
$external_href = \&t2h_default_external_href;
$paragraph = \&t2h_default_paragraph;
$preformatted = \&t2h_default_preformatted;
$foot_line_and_ref = \&t2h_default_foot_line_and_ref;
$foot_section = \&t2h_default_foot_section;
$image_files = \&t2h_default_image_files;
$image = \&t2h_default_image;
$index_entry_label = \&t2h_default_index_entry_label;
$index_summary = \&t2h_default_index_summary;
$summary_letter = \&t2h_default_summary_letter;
$index_entry = \&t2h_default_index_entry;
$index_entry_command = \&t2h_default_index_entry_command;
$index_letter = \&t2h_default_index_letter;
#$printindex = \&t2h_default_printindex;
$print_index = \&t2h_default_print_index;
$protect_text = \&t2h_default_protect_text;
$normal_text = \&t2h_default_normal_text;
$cartouche = \&t2h_default_cartouche;
$sp = \&t2h_default_sp;
$definition_category = \&t2h_default_definition_category;
$definition_index_entry = \&t2h_default_definition_index_entry;
$copying_comment = \&t2h_default_copying_comment;
$documentdescription = \&t2h_default_documentdescription;
$index_summary_file_entry = \&t2h_default_index_summary_file_entry;
$index_summary_file_end = \&t2h_default_index_summary_file_end;
$index_summary_file_begin = \&t2h_default_index_summary_file_begin;
$empty_line = \&t2h_default_empty_line;
$float = \&t2h_default_float;
$listoffloats = \&t2h_default_listoffloats;
$listoffloats_entry = \&t2h_default_listoffloats_entry;
$listoffloats_caption = \&t2h_default_listoffloats_caption;
$listoffloats_float_style = \&t2h_default_listoffloats_float_style;
$listoffloats_style = \&t2h_default_listoffloats_style;
$acronym_like = \&t2h_default_acronym_like;
$quotation = \&t2h_default_quotation;
$paragraph_style_command = \&t2h_default_paragraph_style_command;
$heading_texi = \&t2h_default_heading_texi;
$index_element_heading_texi = \&t2h_default_index_element_heading_texi;
$element_label = \&t2h_default_element_label;
$anchor_label = \&t2h_default_anchor_label;
$preserve_misc_command = \&t2h_default_preserve_misc_command;
$format_list_item_texi = \&t2h_default_format_list_item_texi;
$begin_format_texi = \&t2h_default_begin_format_texi;
$insertcopying = \&t2h_default_insertcopying;
$simple_command = \&t2h_default_simple_command;
$thing_command = \&t2h_default_thing_command;
$line_command = \&t2h_default_line_command;
$internal_links = \&t2h_default_internal_links;
# address is not used anymore
$address = \&t2h_default_address;
# return the line after preserving things according to misc_command map.
# You should not change it. It is here, nevertheless, to be used
# in other function references if needed.
sub t2h_default_preserve_misc_command($$)
{
my $line = shift;
my $macro = shift;
my $text = '';
my $args = [];
my $skip_spec = '';
my $arg_spec = '';
#print STDERR "HHHHHHHHH $line $macro\n";
$skip_spec = $misc_command{$macro}->{'skip'}
if (defined($misc_command{$macro}->{'skip'}));
$arg_spec = $misc_command{$macro}->{'arg'}
if (defined($misc_command{$macro}->{'arg'}));
if ($arg_spec eq 'line')
{
$text .= $line;
$args = [ $line ];
$line = '';
}
elsif ($arg_spec)
{
my $arg_nr = $misc_command{$macro}->{'arg'};
while ($arg_nr)
{
$line =~ s/(\s+\S*)//o;
my $argument = $1;
if (defined($argument))
{
$text .= $argument;
push @$args, $argument;
}
$arg_nr--;
}
}
if ($macro eq 'bye')
{
$line = '';
$text = "\n";
}
elsif ($skip_spec eq 'linespace')
{
if ($line =~ /^\s*$/o)
{
$line =~ s/([ \t]*)//o;
$text .= $1;
}
}
elsif ($skip_spec eq 'linewhitespace')
{
if ($line =~ /^\s*$/o)
{
$text .= $line;
$line = '';
}
}
elsif ($skip_spec eq 'line')
{
$text .= $line;
$line = '';
}
elsif ($skip_spec eq 'whitespace')
{
$line =~ s/(\s*)//o;
$text .= $1;
}
elsif ($skip_spec eq 'space')
{
$line =~ s/([ \t]*)//o;
$text .= $1;
}
$line = '' if (!defined($line));
return ($line, $text, $args);
}
sub t2h_default_simple_command($$$$$)
{
my $command = shift;
my $in_preformatted = shift;
my $in_math = shift;
my $line_nr = shift;
my $state = shift;
if ($in_math)
{
my $result = $simple_map_pre{$command};
$result = $simple_map_math{$command} if (defined($simple_map_math{$command}));
return $result;
}
elsif ($in_preformatted)
{
return $simple_map_pre{$command};
}
else
{
return $simple_map{$command};
}
}
sub t2h_default_thing_command($$$$$$)
{
my $command = shift;
my $text = shift;
my $in_preformatted = shift;
my $in_math = shift;
my $line_nr = shift;
my $state = shift;
my $result;
if ($in_math)
{
$result = $pre_map{$command};
$result = $math_map{$command} if (defined($math_map{$command}));
}
elsif ($in_preformatted)
{
$result = $pre_map{$command};
}
else
{
$result = $things_map{$command};
}
return $result . $text;
}
# this is called each time a format begins. Here it is used to keep a
# record of the multitables to have a faithful count of the cell nr.
sub t2h_default_begin_format_texi($$$)
{
my $command = shift;
my $line = shift;
my $state = shift;
# remove space in front of center, unless it removes the end of line!
$line =~ s/^\s*// if ($command eq 'center' and $line =~ /\S/);
return $line;
}
# This function is called whenever a complex format is processed
#
# arguments:
# name of the format
# text appearing inside the format
#
# an eval of $complex_format->{format name}->{'begin'} should lead to the
# beginning of the complex format, an eval of
# $complex_format->{format name}->{'end'} should lead to the end of the
# complex format.
sub t2h_default_complex_format($$)
{
my $name = shift;
my $text = shift;
return '' if ($text eq '');
return '' if ($name eq 'direntry');
my $beginning;
my $end;
# FIXME obsoleted in nov 2009
if (exists($complex_format_map->{$name}))
{
$beginning = eval "$complex_format_map->{$name}->{'begin'}";
if ($@ ne '')
{
main::msg_debug("Evaluation of $complex_format_map->{$name}->{'begin'}: $@");
$beginning = '';
}
$end = eval "$complex_format_map->{$name}->{'end'}";
if ($@ ne '')
{
main::msg_debug("Evaluation of $complex_format_map->{$name}->{'end'}: $@");
$end = '';
}
}
else
{
$beginning = $complex_format_map{$name}->{'begin'};
$beginning = '' if (!defined($beginning));
$end = $complex_format_map{$name}->{'end'};
$end = '' if (!defined($end));
}
return $beginning . $text . $end;
}
sub t2h_default_empty_line($$)
{
my $text = shift;
my $state = shift;
#ignore the line if it just follows a deff
return '' if ($state->{'deff_line'});
return $text;
}
sub t2h_default_unknown($$$$$)
{
my $macro = shift;
my $line = shift;
my $pass = shift;
my $stack = shift;
my $state = shift;
my ($result_line, $result, $result_text, $message);
return ($line, 0, undef, undef);
}
sub t2h_default_unknown_style($$$$$)
{
my $command = shift;
my $text = shift;
my $state = shift;
my $no_close = shift;
my $no_open = shift;
my ($result, $result_text, $message);
return (0, undef, undef);
}
sub t2h_default_caption_shortcaption($)
{
my $float = shift;
my $caption_lines;
my $shortcaption_lines;
my $style = $float->{'style_texi'};
if (defined($float->{'nr'}))
{
my $nr = $float->{'nr'};
if ($style ne '')
{
$style = gdt('{style} {number}', { 'style' => $style, 'number' => $nr});
}
else
{
$style = $nr;
}
}
my $empty_caption = 1;
if (defined($float->{'caption_texi'}) and @{$float->{'caption_texi'}})
{
@$caption_lines = @{$float->{'caption_texi'}};
$caption_lines->[0] =~ s/^\s*//;
if ($caption_lines->[0] =~ /\S/ or @$caption_lines > 2)
{
$empty_caption = 0;
}
}
if (!$empty_caption)
{
if (defined($style))
{
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . gdt('{style}: {caption_first_line}', { 'style' => $style, 'caption_first_line' => $caption_lines->[0] });
}
else
{
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $caption_lines->[0];
}
push @$caption_lines, "}\n";
}
elsif (defined($style))
{
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $style . '}' . "\n";
}
my $empty_shortcaption = 1;
if (defined($float->{'shortcaption_texi'}) and @{$float->{'shortcaption_texi'}})
{
@$shortcaption_lines = @{$float->{'shortcaption_texi'}};
$shortcaption_lines->[0] =~ s/^\s*//;
if ($shortcaption_lines->[0] =~ /\S/ or @$shortcaption_lines > 1)
{
$empty_shortcaption = 0;
}
}
if (!$empty_shortcaption)
{
if (defined($style))
{
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . gdt('{style}: {shortcaption_first_line}', { 'style' => $style, 'shortcaption_first_line' => $shortcaption_lines->[0] });
}
else
{
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $shortcaption_lines->[0];
}
push @$shortcaption_lines, "}\n";
}
elsif (defined($style))
{
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $style . '}' . "\n";
}
return ($caption_lines, $shortcaption_lines);
}
# everything is done in &$float
sub t2h_default_caption_shortcaption_command($$$$)
{
my $command = shift;
my $text = shift;
my $texi_lines = shift;
my $float_element = shift;
return '';
}
sub t2h_default_float($$$$$)
{
my $text = shift;
my $float = shift;
my $caption = shift;
my $shortcaption = shift;
my $label = '';
if (exists($float->{'id'}))
{
$label = &$anchor($float->{'id'});
}
my $caption_text = '';
if (defined($float->{'caption_texi'}))
{
$caption_text = $caption;
}
elsif (defined($float->{'shortcaption_texi'}))
{
$caption_text = $shortcaption;
}
elsif (defined($caption))
{
$caption_text = $caption;
}
return $text . "\n" . $caption_text;
}
sub t2h_default_listoffloats_style($)
{
my $style_texi = shift;
return ($style_texi);
}
sub t2h_default_listoffloats_float_style($$)
{
my $style_texi = shift;
my $float = shift;
my $style = $float->{'style_texi'};
#print STDERR "listoffloat/float style mismatch $style_texi $style\n" if ($style_texi ne $style);
if (defined($float->{'nr'}))
{
my $nr = $float->{'nr'};
if ($style ne '')
{
$style = gdt('{style} {number}', { 'style' => $style, 'number' => $nr});
}
else
{
$style = $nr;
}
}
return $style;
}
sub t2h_default_listoffloats_caption($)
{
my $float = shift;
if (defined($float->{'shortcaption_texi'}))
{
return ([ @{$float->{'shortcaption_texi'}} ], 'shortcaption');
}
elsif (defined($float->{'caption_texi'}))
{
return ([ @{$float->{'caption_texi'}} ], 'caption');
}
return ([ ], undef);
}
sub t2h_default_listoffloats_entry($$$$)
{
my $style_texi = shift;
my $float = shift;
my $float_style = shift;
my $caption = shift;
my $href = shift;
my @lines = split /^/, $caption;
$caption = $lines[0];
$caption = '' if (!defined($caption));
chomp ($caption);
$caption = $float->{'text'} if ($caption eq '' and defined($float->{'text'}) and $float->{'text'} =~ /\S/);
return "* $float_style: ${caption}\n";
}
sub t2h_default_listoffloats($$$)
{
my $style_texi = shift;
my $style = shift;
my $float_entries = shift;
my $result = "* List of $style:\n";
foreach my $float_entry (@$float_entries)
{
$result .= $float_entry;
}
return $result . "\n";
}
sub t2h_default_insertcopying($$$)
{
my $text = shift;
my $comment = shift;
my $simple_text = shift;
return $text;
}
sub t2h_default_protect_text($)
{
my $text = shift;
return $text;
}
# This function is used to protect characters which are special in xml
# in inline text: &, ", <, and >.
#
# argument:
# text to be protected
sub xml_default_protect_text($)
{
my $text = shift;
$text =~ s/&/&/g;
$text =~ s/</</g;
$text =~ s/>/>/g;
$text =~ s/\"/"/g;
return $text;
}
sub in_cmd($$)
{
my $style_stack = shift;
my $command = shift;
my $result = 0;
if ($style_stack and scalar(@{$style_stack}))
{
my $level = $#$style_stack;
#print STDERR ":::$level ::@{$style_stack}\n";
while ($level >= 0)
{
if ($style_stack->[$level] eq $command)
{
$result = 1;
last;
}
$level--;
}
}
return $result;
}
#
#
sub in_small_caps($)
{
my $style_stack = shift;
my $in_sc = 0;
if ($style_stack and scalar(@{$style_stack}))
{
my $level = $#$style_stack;
#print STDERR ":::$level ::@{$style_stack}\n";
while ($level >= 0)
{
if ($style_stack->[$level] eq 'sc')
{
$in_sc = 1;
last;
}
$level--;
}
}
return $in_sc;
}
#
#
sub t2h_default_normal_text($$$$$$$;$)
{
my @initial_args = @_;
my $text = shift;
my $in_raw_text = shift; # remove_texi
my $in_preformatted = shift;
my $in_code = shift;
my $in_math = shift;
my $in_simple = shift;
my $style_stack = shift;
my $state = shift;
# like utf8.init
if ($ENABLE_ENCODING and !$ENABLE_ENCODING_USE_ENTITY and defined($Texi2HTML::THISDOC{'ENCODING_NAME'}) and $Texi2HTML::THISDOC{'ENCODING_NAME'} eq 'utf-8' and $USE_UNICODE)
{
return &t2h_utf8_normal_text(@initial_args);
}
$text = uc($text) if (in_cmd($style_stack, 'sc'));
if (! $in_code and !$in_preformatted)
{
$text =~ s/---/\x{1F}/g;
$text =~ s/--/-/g;
$text =~ s/\x{1F}/--/g;
$text =~ s/``/"/g;
$text =~ s/\'\'/"/g;
}
else
{
# to be like tex. This would be wrong, however.
# my $special_code = 0;
# $special_code = 1 if (in_cmd($style_stack, 'code') or
# in_cmd($style_stack, 'example') or in_cmd($style_stack, 'verbatim'));
# $text =~ s/'/\&rsquo\;/g unless ($special_code and exists($main::value{'txicodequoteundirected'}));
# $text =~ s/`/\&lsquo\;/g unless ($special_code and exists($main::value{'txicodequotebacktick'}));
}
$text = t2h_text_substitutions($text, $in_raw_text, ($in_preformatted or $in_code), $in_simple);
return $text;
}
sub t2h_default_url_and_text($;$)
{
my $url = shift;
my $text = shift;
if (!defined($text) or $text eq '')
{
return "<$url>" if (defined($url) and $url ne '');
return '';
}
else
{
return $text if (!defined($url) or $url eq '');
return "$text <$url>";
}
}
# This function produces an anchor. This need is quite html specific.
#
# arguments:
# $name : anchor name
# $href : anchor href
# text : text displayed
# extra_attribs : added to anchor attributes list
sub t2h_default_anchor($;$$$)
{
my $name = shift;
my $href = shift;
my $text = shift;
my $attributes = shift;
return $text if (defined($text));
return '';
}
# This function is used to format the text associated with a @deff/@end deff
#
# argument:
# text
#
# $DEF_TABLE should be used to distinguish between @def formatted as table
# and as definition lists.
sub t2h_default_def_item($$$)
{
my $text = shift;
my $only_inter_item_commands = shift;
my $command = shift;
if ($text =~ /\S/)
{
return $text;
}
return '';
}
sub t2h_default_definition_category($$$$)
{
my $name = shift;
my $class = shift;
my $style = shift;
my $command = shift;
return ($name) if (!defined($class) or $class =~ /^\s*$/);
if ($style eq 'f')
{
return gdt('{name} on {class}', { 'name' => $name, 'class' => $class });
}
elsif ($style eq 'v')
{
return gdt('{name} of {class}', { 'name' => $name, 'class' => $class });
}
else
{
return $name;
}
}
sub t2h_default_definition_index_entry($$$$)
{
my $name = shift;
my $class = shift;
my $style = shift;
my $command = shift;
return ($name) if (!defined($class) or $class =~ /^\s*$/);
if ($style eq 'f')
{
return gdt('{name} on {class}', { 'name' => $name, 'class' => $class });
}
elsif ($style eq 'v' and $command ne 'defcv')
{
return gdt('{name} of {class}', { 'name' => $name, 'class' => $class });
}
else
{
return $name;
}
}
sub t2h_default_summary_letter($$$$$$$)
{
my $letter = shift;
my $file = shift;
my $default_identifier = shift;
my $index_element_id = shift;
my $number = shift;
my $index_element = shift;
my $index_name = shift;
return '';
}
# format the container for the @deffn line and text
#
# argument
# text of the whole @def, line and associated text.
#
# $DEF_TABLE should be used.
sub t2h_default_def($$)
{
my $text = shift;
my $command = shift;
if ($text =~ /\S/)
{
return $text;
}
return '';
}
# a whole menu
#
# argument:
# the whole menu text (entries and menu comments)
#
# argument:
# whole menu text.
# not used since menu is a normal preformatted command with SIMPLE_MENU
sub t2h_default_menu_command($$$)
{
my $format = shift;
my $text = shift;
my $in_preformatted = shift;
return "* Menu:\n".$text."\n";
}
# formats a menu entry link pointing to a node or section
#
# arguments:
# the entry text
# the state, a hash reference holding informations about the context, with a
# usefull entry, 'preformatted', true if we are in a preformatted format
# (a format keeping space between words). In that case a function
# of the main program, main::do_preformatted($text, $state) might
# be used to format the text with the current format style.
# href is optionnal. It is the reference to the section or the node anchor
# which should be used to make the link (typically it is the argument
# of a href= attribute in a <a> element).
sub t2h_default_menu_link($$$$$$$$)
{
my $entry = shift;
my $state = shift;
my $href = shift;
my $node = shift;
my $title = shift;
my $ending = shift;
my $has_title = shift;
my $command_stack = shift;
my $preformatted = shift;
$title = '' unless ($has_title);
$title .= ':' if ($title ne '');
return "$MENU_SYMBOL$title$node$ending" if ($NODE_NAME_IN_MENU);
return "$MENU_SYMBOL$title$entry$ending";
}
# formats a menu entry description, ie the text appearing after the node
# specification in a menu entry an spanning until there is another
# menu entry, an empty line or some text at the very beginning of the line
# (we consider that text at the beginning of the line begins a menu comment)
#
# arguments:
# the description text
# the state. See menu_entry.
# the heading of the element associated with the node.
# not usd since in SIMPLE_MENU
sub t2h_default_menu_description($$$$)
{
my $text = shift;
my $state = shift;
my $element_text = shift;
my $command_stack = shift;
my $preformatted = shift;
return $text;
}
%htmlxref_entries = (
'node' => [ 'node', 'section', 'chapter', 'mono' ],
'section' => [ 'section', 'chapter','node', 'mono' ],
'chapter' => [ 'chapter', 'section', 'node', 'mono' ],
'mono' => [ 'mono', 'chapter', 'section', 'node' ],
);
# Construct a href to an external source of information.
# node is the node with texinfo @-commands
# node_id is the node transliterated and transformed as explained in the
# texinfo manual
# node_xhtml_id is the node transformed such that it is unique and can
# be used to make an html cross ref as explained in the texinfo manual
# file is the file in '(file)node'
# This is used to construct href, so is likely to be ignored oustside of
# html.
sub t2h_default_external_href($$$)
{
my $node = shift;
my $node_id = shift;
my $node_xhtml_id = shift;
my $file = shift;
$file = '' if (!defined($file));
my $default_target_split = $Texi2HTML::THISDOC{'EXTERNAL_CROSSREF_SPLIT'};
my $target_split;
#my $target_mono;
#my $href_split;
#my $href_mono;
if ($file ne '')
{
if ($NEW_CROSSREF_STYLE)
{
$file =~ s/\.[^\.]*$//;
$file =~ s/^.*\///;
my $href;
my $document_split = get_conf('SPLIT');
$document_split = 'mono' if (!$document_split);
my $split_found;
if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file}))
{
foreach my $split_ordered (@{$htmlxref_entries{$document_split}})
{
if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file}->{$split_ordered}))
{
$split_found = $split_ordered;
$href = $Texi2HTML::THISDOC{'htmlxref'}->{$file}->{$split_ordered}->{'href'};
last;
}
}
}
if (defined($split_found))
{
$target_split = 1 unless ($split_found eq 'mono');
}
else
{ # nothing specified for that manual, use default
$target_split = $default_target_split;
}
if ($target_split)
{
if (defined($href))
{
$file = $href;
}
elsif (defined($EXTERNAL_DIR))
{
$file = "$EXTERNAL_DIR/$file";
}
elsif (get_conf('SPLIT'))
{
$file = "../$file";
}
$file .= "/";
}
else
{# target not split
if (defined($href))
{
$file = $href;
}
else
{
if (defined($EXTERNAL_DIR))
{
$file = "$EXTERNAL_DIR/$file";
}
elsif (get_conf('SPLIT'))
{
$file = "../$file";
}
$file .= "." . $NODE_FILE_EXTENSION;
}
}
}
else
{
$file .= "/";
if (defined($EXTERNAL_DIR))
{
$file = $EXTERNAL_DIR . $file;
}
else
{
$file = '../' . $file;
}
}
}
else
{
$target_split = $default_target_split;
}
if ($node eq '')
{
if ($NEW_CROSSREF_STYLE)
{
if ($target_split)
{
if (defined($TOP_NODE_FILE_TARGET))
{
return $file . $TOP_NODE_FILE_TARGET . '.' . $NODE_FILE_EXTENSION . '#Top';
}
else
{
return $file . '#Top';
}
}
else
{
return $file . '#Top';
}
}
else
{
return $file;
}
}
my $target;
if ($NEW_CROSSREF_STYLE)
{
$node = $node_id;
$target = $node_xhtml_id;
}
else
{
$node = main::remove_texi($node);
$node =~ s/[^\w\.\-]/-/g;
}
my $file_basename = $node;
$file_basename = $TOP_NODE_FILE_TARGET if ($node =~ /^top$/i and defined($TOP_NODE_FILE_TARGET));
if ($NEW_CROSSREF_STYLE)
{
if ($target_split)
{
return $file . $file_basename . ".$NODE_FILE_EXTENSION" . '#' . $target;
}
else
{
return $file . '#' . $target;
}
}
else
{
return $file . $file_basename . ".$NODE_FILE_EXTENSION";
}
}
# format a reference external to the generated manual. This produces a full
# reference with introductive words and the reference itself.
#
# arguments:
# type of the reference: xref (reference at the beginning of a sentence),
# pxref (reference in a parenthesis),
# section in the book. This might be undef.
# book name.
# manual file name
# href linking to the html page containing the referenced node. A typical
# use for this href is a href attribute in an <a> element
# cross reference name
# array of texi arguments of the reference
# array of the formatted arguments of the reference
# node name
sub t2h_default_external_ref($$$$$$$$$)
{
my $type = shift;
my $section = shift;
my $book = shift;
my $file = shift;
#my $file_node = shift;
my $href = shift;
my $cross_ref = shift;
my $args_texi = shift;
my $formatted_args = shift;
my $node = shift;
my $name = $section;
$name = $cross_ref if ($name eq '');
$name = $node if ($name eq '');
my $reference = $name;
if ($book eq '' and $file ne '')
{
$name = "($file)$name";
}
$reference = &$anchor('', $href, $name) if ($href ne '');
# Yes, this is ugly, yet this helps internationalization
if ($type eq 'pxref')
{
if (($book ne '') and ($href ne ''))
{
return gdt('see {reference} in @cite{{book}}', { 'reference' => $reference, 'book' => $book },{'duplicate'=>1});
}
elsif (($book ne '') and ($reference ne ''))
{
return gdt('see `{section}\' in @cite{{book}}', { 'section' => $reference, 'book' => $book },{'duplicate'=>1});
}
elsif ($book ne '')
{ # should seldom or even never happen
return gdt('see @cite{{book}}', { 'book' => $book },{'duplicate'=>1});
}
elsif ($href ne '')
{
return gdt('see {reference}', { 'reference' => $reference },{'duplicate'=>1});
}
elsif ($reference ne '')
{
return gdt('see `{section}\'', { 'section' => $reference },{'duplicate'=>1});
}
}
if ($type eq 'xref' or $type eq 'inforef')
{
if (($book ne '') and ($href ne ''))
{
return gdt('See {reference} in @cite{{book}}', { 'reference' => $reference, 'book' => $book },{'duplicate'=>1});
}
elsif (($book ne '') and ($reference ne ''))
{
return gdt('See `{section}\' in @cite{{book}}', { 'section' => $reference, 'book' => $book },{'duplicate'=>1});
}
elsif ($book ne '')
{ # should seldom or even never happen
return gdt('See @cite{{book}}', { 'book' => $book },{'duplicate'=>1});
}
elsif ($href ne '')
{
return gdt('See {reference}', { 'reference' => $reference },{'duplicate'=>1});
}
elsif ($reference ne '')
{
return gdt('See `{section}\'', { 'section' => $reference },{'duplicate'=>1});
}
}
if ($type eq 'ref')
{
if (($book ne '') and ($href ne ''))
{
return gdt('{reference} in @cite{{book}}', { 'reference' => $reference, 'book' => $book },{'duplicate'=>1});
}
elsif (($book ne '') and ($reference ne ''))
{
return gdt('`{section}\' in @cite{{book}}', { 'section' => $reference, 'book' => $book },{'duplicate'=>1});
}
elsif ($book ne '')
{ # should seldom or even never happen
return gdt('@cite{{book}}', { 'book' => $book },{'duplicate'=>1});
}
elsif ($href ne '')
{
return gdt('{reference}', { 'reference' => $reference },{'duplicate'=>1});
}
elsif ($reference ne '')
{
return gdt('`{section}\'', { 'section' => $reference },{'duplicate'=>1});
}
}
return '';
}
# format a reference to a node or a section in the generated manual. This
# produces a full reference with introductive words and the reference itself.
#
# arguments:
# type of the reference: xref (reference at the beginning of a sentence),
# pxref (reference in a parenthesis),
# href linking to the html page containing the node or the section. A typical
# use for this href is a href attribute in an <a> element
# short name for this reference
# name for this reference
# boolean true if the reference is a reference to a section
#
# $SHORT_REF should be used.
sub t2h_default_internal_ref($$$$$$$$)
{
my $type = shift;
my $href = shift;
my $short_name = shift;
my $name = shift;
my $is_section = shift;
my $args_texi = shift;
my $formatted_args = shift;
my $element = shift;
if (! $SHORT_REF)
{
$name = &$anchor('', $href, $name);
if ($type eq 'pxref')
{
return gdt('see section {reference_name}', { 'reference_name' => $name },{'duplicate'=>1}) if ($is_section);
return gdt('see {reference_name}', { 'reference_name' => $name },{'duplicate'=>1});
}
elsif ($type eq 'xref' or $type eq 'inforef')
{
return gdt('See section {reference_name}', { 'reference_name' => $name },{'duplicate'=>1}) if ($is_section);
return gdt('See {reference_name}', { 'reference_name' => $name },{'duplicate'=>1});
}
elsif ($type eq 'ref')
{
return gdt('{reference_name}', { 'reference_name' => $name },{'duplicate'=>1});
}
}
else
{
$name = &$anchor('', $href, $short_name);
if ($type eq 'pxref')
{
return gdt('see {reference_name}', { 'reference_name' => $name },{'duplicate'=>1});
}
elsif ($type eq 'xref' or $type eq 'inforef')
{
return gdt('See {reference_name}', { 'reference_name' => $name },{'duplicate'=>1});
}
elsif ($type eq 'ref')
{
return gdt('{reference_name}', { 'reference_name' => $name },{'duplicate'=>1});
}
}
return '';
}
# text after @item in table, vtable and ftable
sub t2h_default_table_item($$$$$$$)
{
my $text = shift;
my $index_label = shift;
my $format = shift;
my $command = shift;
my $style_stack = shift;
my $item_cmd = shift;
my $formatted_index_entry = shift;
return $text . "\n";
}
# format text on the line following the @item line (in table, vtable and ftable)
sub t2h_default_table_line($$$)
{
my $text = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
$only_inter_item_commands = '' if (!defined($only_inter_item_commands));
if ($text =~ /\S/)
{
return $text;
}
return '';
}
#my $cell_nr = -1;
# row in multitable
sub t2h_default_row($$$$$$$$)
{
my $text = shift;
my $macro = shift;
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
$only_inter_item_commands = '' if (!defined($only_inter_item_commands));
if ($text =~ /\S/)
{
return $text ."\n";
}
return '';
}
# cell in multitable
sub t2h_default_cell($$$$$$$$)
{
my $text = shift;
my $row_macro = shift;
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
$only_inter_item_commands = '' if (!defined($only_inter_item_commands));
$text =~ s/^\s*//;
$text =~ s/\s*$//;
return " $text";
}
# format an itemize, enumerate or @*table @item line, returning
# a texinfo line.
sub t2h_default_format_list_item_texi($$$$$)
{
my $format = shift;
my $line = shift;
my $prepended = shift;
my $command = shift;
my $number = shift;
my $result_line;
my $open_command = 0;
$command = 'bullet' if ((!defined($command) or $command eq '') and (!defined($prepended) or $prepended eq '') and $format eq 'itemize');
$prepended = "\@$command\{\}" if (defined($command) and $command ne '');
$prepended = "$number." if (defined($number) and $number ne '');
if (defined($command) and $command ne '' and $format ne 'itemize')
{
#@*table
$open_command = 1;
$line =~ s/^\s*//;
$line =~ s/\s*$//;
if (exists ($style_map{$command}))
{
$result_line = "\@$command\{$line\}\n";
}
elsif (exists ($things_map{$command}))
{
$result_line = "\@$command\{\} $line\n";
}
else
{
$result_line = "\@$command $line\n";
}
}
elsif (defined($prepended) and $prepended ne '')
{
$prepended =~ s/^\s*//;
$prepended =~ s/\s*$//;
$line =~ s/^\s*//;
$result_line = $prepended . ' ' . $line;
}
return ($result_line, $open_command);
}
# format an item in a list
#
# argument:
# text of the item
# format of the list (itemize or enumerate)
# command passed as argument to the format
# formatted_command leading command formatted, if it is a thing command
sub t2h_default_list_item($$$$$$$$$$$$)
{
my $text = shift;
my $format = shift;
my $command = shift;
my $formatted_command = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $prepended = shift;
my $prepended_formatted = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
my $item_command = shift;
$only_inter_item_commands = '' if (!defined($only_inter_item_commands));
if ($text =~ /\S/)
{
return $text;
}
return '';
}
sub t2h_default_table_list($$$$$$$$$)
{
my $format_command = shift;
my $text = shift;
my $command = shift;
my $formatted_command = shift;
# enumerate
my $item_nr = shift;
my $enumerate_style = shift;
# itemize
my $prepended = shift;
my $prepended_formatted = shift;
# multitable
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
# my $number = shift;
return $text;
}
# an comment
sub t2h_default_comment($)
{
my $text = shift;
return '';
}
# an xml comment
sub xml_default_comment($)
{
my $text = shift;
$text =~ s/--+/-/go;
return '<!-- ' . $text . ' -->' . "\n";
}
sub t2h_collect_styles($)
{
my $cmd_stack = shift;
my @result = ();
foreach my $style (reverse(@$cmd_stack))
{
# last unless (defined($command_type{$style}) and $command_type{$style} eq 'style');
push @result, $style if (defined($command_type{$style}) and $command_type{$style} eq 'style');
}
return @result;
}
sub html_default_parse_attribute($)
{
my $element = shift;
return ('', '', '') if (!defined($element));
my ($class, $attributes) = ('', '');
if ($element =~ /^(\w+)(\s+.*)/)
{
$element = $1;
$attributes = $2;
if ($attributes =~ s/^\s+class=\"([^\"]+)\"//)
{
$class = $1;
}
}
return ($element, $class, $attributes);
}
sub t2h_get_attribute($;$)
{
my $command = shift;
my $map_ref = shift;
$map_ref = \%style_map if (!defined($map_ref));
return unless (defined($map_ref->{$command}));
my ($element, $class, $attributes) = ('', '', '');
if (defined($map_ref->{$command}))
{
if (ref($map_ref->{$command}) eq 'HASH')
{
($element, $class, $attributes) = t2h_html_parse_attribute ($map_ref->{$command}->{'attribute'});
}
elsif ($map_ref->{$command} !~ /^&/)
{
$element = $map_ref->{$command};
$element =~ s/^\"//;
}
}
return ($element, $class, $attributes);
}
# a paragraph
# arguments:
# $text of the paragraph
# $align for the alignement
# $indent for the indent style (indent or noindent)
# The following is usefull if the paragraph is in an itemize.
# $paragraph_command is the leading formatting command (like @minus)
# $paragraph_command_formatted is the leading formatting command formatted
# $paragraph_number is a reference on the number of paragraphs appearing
# in the format. The value should be increased if a paragraph is done
# $format is the format name (@itemize)
sub t2h_default_paragraph($$$$$$$$$$$$)
{
my $text = shift;
my $align = shift;
my $indent = shift;
my $paragraph_command = shift;
my $paragraph_command_formatted = shift;
my $paragraph_number = shift;
my $format = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $command_stack_at_end = shift;
my $command_stack_at_begin = shift;
#print STDERR "format: $format\n" if (defined($format));
#print STDERR "paragraph @$command_stack_at_end; @$command_stack_at_begin\n";
# $paragraph_command_formatted = '' if (!defined($paragraph_command_formatted) or
# exists($special_list_commands{$format}->{$paragraph_command}));
return '' if ($text =~ /^\s*$/);
return $text;
}
# a preformatted region
# arguments:
# $text of the preformatted region
# $pre_style css style
# $class identifier for the preformatted region (example, menu-comment)
# The following is usefull if the preformatted is in an itemize.
# $leading_command is the leading formatting command (like @minus)
# $leading_command_formatted is the leading formatting command formatted
# $preformatted_number is a reference on the number of preformatteds appearing
# in the format. The value should be increased if a preformatted is done
sub t2h_default_preformatted($$$$$$$$$$$$)
{
my $text = shift;
my $pre_style = shift;
my $class = shift;
my $leading_command = shift;
my $leading_command_formatted = shift;
my $preformatted_number = shift;
my $format = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $command_stack_at_end = shift;
my $command_stack_at_begin = shift;
#print STDERR "preformatted @$command_stack_at_end; @$command_stack_at_begin\n";
return '' if ($text eq '');
my $top_stack = '';
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin));
if ($top_stack eq 'multitable')
{
$text =~ s/^\s*//;
$text =~ s/\s*$//;
}
# add a new line at the end in case there is none
chomp($text);
return $text . "\n";
}
# $new_element is set if the element is associated with a different
# reference element than the preceding element. This is where we
# do the navigation. For example it could be a @node before a @section.
#
# The heading function is always called, though -- in the default case
# nodes don't lead to an outputted title.
sub t2h_default_element_heading($$$$$$$$$$$$)
{
my $element = shift;
my $command = shift;
my $texi_line = shift;
my $line = shift;
my $in_preformatted = shift;
my $one_section = shift;
my $element_heading = shift;
my $first_in_page = shift;
my $is_top = shift;
my $previous_is_top = shift;
my $command_line = shift;
my $element_id = shift;
my $new_element = shift;
#print STDERR ":::::::: $element $command i_p $in_preformatted o_s $one_section e_h $element_heading f_p $first_in_page i_t $is_top p_i_t $previous_is_top id $element_id new $new_element\n";
# my $result = '';
my $result = &$element_label($element_id, $element, $command, $command_line);
# in default case, print_head_navigation and print_navigation are no-ops.
# and $print_element_header is undef, so the following nothing.
if ($new_element and !$one_section)
{
main::msg_debug ("For $element->{'texi'}, element_ref not defined", $element->{'line_nr'}) if (!defined($element->{'element_ref'}));
if (!defined($element->{'element_ref'}->{'top'}))
{
if (defined($print_element_header))
{ # FIXME backward compatibility, print_element_header is obsoleted in nov 2009
$result .= &$print_element_header($first_in_page, $previous_is_top);
}
else
{
if (($first_in_page or $previous_is_top) and get_conf('headers'))
{
$result .= &$print_head_navigation(undef, \@SECTION_BUTTONS, $first_in_page, $previous_is_top, $element);
}
else
{ # got to do this here, as it isn't done otherwise sinc
# print_head_navigation is not called
$result .= &$print_navigation(\@SECTION_BUTTONS) if (get_conf('headers') or get_conf('SPLIT') eq 'node');
}
}
}
else
{ # this is here because we want to always print the head navigation for top
# and use TOP_BUTTONS
$result .= &$print_head_navigation(undef, \@TOP_BUTTONS, $first_in_page, $previous_is_top, $element)
if (get_conf('SPLIT') or get_conf('headers'));
}
}
return $result. &$heading($element, $command, $texi_line, $line, $in_preformatted, $one_section, $element_heading);
}
# This function formats a heading for an element
#
# argument:
# an element. It is a hash reference for a node or a sectioning command.
# it may be the wrong one in case of headings.
# The interesting keys are:
# 'text': the heading text
# 'text_nonumber': the heading text without section number
# 'node': true if it is a node
# 'level': level of the element. 0 for @top, 1 for chapter, heading,
# appendix..., 2 for section and so on...
# 'tag_level': the sectioning element name, raisesections and lowersections
# taken into account
sub t2h_default_heading($$$$$;$$)
{
my $element = shift;
my $command = shift;
my $texi_line = shift;
my $line = shift;
my $in_preformatted = shift;
my $one_section = shift;
my $element_heading = shift;
my $level = $element->{'level'};
if ($element->{'node'})
{
if ($element->{'text'} =~ /^top$/i)
{
$level = 0;
}
else
{
$level = 3;
}
return '' if (!$element->{'this'} or $element->{'with_section'})
}
else
{
$command = $element->{'tag_level'};
}
my $text = $element->{'text'};
if ($TOC_LINKS and $command !~ /heading/ and defined($element->{'tocid'}))
{
$text = &$anchor ('', "$Texi2HTML::THISDOC{'toc_file'}#$element->{'tocid'}", $text);
}
my $result;
if ($in_preformatted)
{
$result = &$heading_text_preformatted("\@$command", $text, $level);
}
else
{
$result = &$heading_text("\@$command", $text, $level);
}
#$result .= "\n";
return $result;
}
sub t2h_default_heading_no_texi($$$)
{
my $element = shift;
my $command = shift;
my $line = shift;
return main::remove_texi($line) . "\n";
}
# formatting of raw regions
# if L2H is true another mechanism is used for tex
sub t2h_default_raw($$;$)
{
my $style = shift;
my $text = shift;
my $line_nr = shift;
my $expanded = 1 if (grep {$style eq $_} @EXPAND);
if ($style eq 'verbatim' or $style eq 'verbatiminclude' or ($style eq 'tex' and $expanded))
{
return $text;
}
elsif ($expanded)
{
main::line_warn (sprintf(__("Raw format %s is not converted"), $style), $line_nr);
return $text;
}
else
{
return '';
}
}
# raw environment when removing texi (in comments)
sub t2h_default_raw_no_texi($$)
{
my $style = shift;
my $text = shift;
if ($style eq 'verbatim' or $style eq 'verbatiminclude' or grep {$style eq $_} @EXPAND)
{
return $text;
}
return '';
}
# This function formats a footnote reference and the footnote text associated
# with a given footnote.
# The footnote reference is the text appearing in the main document pointing
# to the footnote text.
#
# arguments:
# absolute number of the footnote (in the document)
# relative number of the footnote (in the page)
# identifier for the footnote
# identifier for the footnote reference in the main document
# main document file
# footnote text file
# array with the footnote text lines
# the state. See menu entry.
#
# returns:
# reference on an array containing the footnote text lines which should
# have been updated
# the text for the reference pointing on the footnote text
sub t2h_default_foot_line_and_ref($$$$$$$$$)
{
my $number_in_doc = shift;
my $number_in_page = shift;
my $footnote_id = shift;
my $place_id = shift;
my $document_file = shift;
my $footnote_file = shift;
my $lines = shift;
my $document_state = shift;
$number_in_doc = $NO_NUMBER_FOOTNOTE_SYMBOL if (!$NUMBER_FOOTNOTES);
if ($document_file eq $footnote_file)
{
$document_file = $footnote_file = '';
}
unshift (@$lines, "($number_in_doc)\n");
push @$lines, "\n";
return ($lines, "($number_in_doc)");
}
# formats a group of footnotes.
#
# argument:
# array reference on the footnotes texts lines
#
# returns an array reference on the group of footnotes lines
sub t2h_default_foot_section($)
{
my $lines = shift;
my $header = &$heading_text('footnotes', gdt('Footnotes'), 3);
unshift (@$lines, "$header\n");
return $lines;
}
sub t2h_default_image_files($$$$)
{
my $base = shift;
my $extension = shift;
my $texi_base = shift;
my $texi_extension = shift;
my @files = ();
return @files if (!defined($base) or ($base eq ''));
if (defined($extension) and ($extension ne ''))
{
push @files,["$base.$extension", "$texi_base.$texi_extension"];
}
foreach my $ext (@IMAGE_EXTENSIONS)
{
push @files,["$base.$ext", "$texi_base.$ext"];
}
return @files;
}
# format an image
#
# arguments:
# image file name with path
# image basename
# a boolean true if we are in a preformatted format
# image file name without path
# alt text
# width
# height
# raw alt
# extension
# path to working dir
# path to file relative from working dir
sub t2h_default_image($$$$$$$$$$$$$$$$$)
{
my $file = shift;
my $base = shift;
my $preformatted = shift;
my $file_name = shift;
my $alt = shift;
my $width = shift;
my $height = shift;
my $raw_alt = shift;
my $extension = shift;
my $working_dir = shift;
my $file_path = shift;
my $in_paragraph = shift;
my $file_locations = shift;
my $base_simple_format = shift;
my $extension_simple_format = shift;
my $file_name_simple_format = shift;
my $line_nr = shift;
if (!defined($file_path) or $file_path eq '')
{
if (defined($extension) and $extension ne '')
{
$file = "$base.$extension";
}
else
{
$file = "$base.txt";
}
}
elsif (! $COMPLETE_IMAGE_PATHS)
{
$file = $file_name;
}
my $alt_txt = '';
$alt_txt = ": $alt" if (defined($alt) and $alt =~ /\S/);
return "[ $file$alt_txt ]";
# it is possible that $file_name is more correct as it allows the user
# to chose the relative path.
}
# address put in footer describing when was generated and who did the manual
# not used anymore
sub t2h_default_address($)
{
my $date = shift;
$date = '' if (!defined($date));
if ($date ne '')
{
return gdt('on @emph{{date}}', { 'date' => $date });
}
return '';
}
# format a target in the main document for an index entry.
#
# arguments:
# target identifier
# boolean true if in preformatted format
sub t2h_default_index_entry_label($$$$$$$$$)
{
my $identifier = shift;
my $preformatted = shift;
my $entry = shift;
my $index_name = shift;
my $index_command = shift;
my $texi_entry = shift;
my $formatted_entry = shift;
my $in_region_not_in_output = shift;
my $index_entry_ref = shift;
return '' if (!defined($identifier) or ($identifier !~ /\S/));
my $label = &$anchor($identifier);
return $label;
}
sub t2h_default_index_entry_command($$$$$$)
{
my $command = shift;
my $index_name = shift;
my $label = shift;
my $entry_texi = shift;
my $entry_formatted = shift;
my $index_entry_ref = shift;
return $label;
}
# process definition commands line @deffn for example
sub t2h_default_def_line($$$$$$$$$$$$$$$$)
{
my $category_prepared = shift;
my $name = shift;
my $type = shift;
my $arguments = shift;
my $index_label = shift;
my $arguments_array = shift;
my $arguments_type_array = shift;
my $unformatted_arguments_array = shift;
my $command = shift;
my $class_name = shift;
my $category = shift;
my $class = shift;
my $style = shift;
my $original_command = shift;
$name = '' if (!defined($name) or ($name =~ /^\s*$/));
$type = '' if (!defined($type) or $type =~ /^\s*$/);
$arguments = '' if (!defined($arguments) or $arguments =~ /^\s*$/);
my $type_name = '';
$type_name .= "$type " if ($type ne '');
$type_name .= $name if ($name ne '');
my $result = " -- $category_prepared: ${type_name}$arguments";
$result =~ s/\s*$//;
$result .= "\n";
}
# process definition commands line @deffn for example while removing texi
# commands
sub t2h_default_def_line_no_texi($$$$$)
{
my $category = shift;
my $name = shift;
my $type = shift;
my $arguments = shift;
$name = '' if (!defined($name) or ($name =~ /^\s*$/));
$type = '' if (!defined($type) or $type =~ /^\s*$/);
if (!defined($arguments) or $arguments =~ /^\s*$/)
{
$arguments = '';
}
my $type_name = '';
$type_name = " $type" if ($type ne '');
$type_name .= ' ' . $name if ($name ne '');
$type_name .= $arguments;
if (! $DEF_TABLE)
{
return $category . ':' . $type_name . "\n";
}
else
{
return $type_name . " " . $category . "\n";
}
}
# a cartouche
sub t2h_default_cartouche($$)
{
my $text = shift;
if ($text =~ /\S/)
{
return $text;
}
return '';
}
my $IDXFILE;
# key:
# origin_href:
# entry:
# texi entry:
# element_href:
# element_text:
sub t2h_default_index_summary_file_entry ($$$$$$$$$)
{
my $index_name = shift;
my $key = shift;
my $origin_href = shift;
my $entry = shift;
my $texi_entry = shift;
my $element_href = shift;
my $element_text = shift;
my $is_printed = shift;
my $manual_name = shift;
$element_text = 'UNDEF' if (!defined($element_text));
print $IDXFILE "key: $key\n origin_href: $origin_href\n entry: $entry\n"
. " texi_entry: $texi_entry\n"
. " element_href: $element_href\n element_text: $element_text\n";
}
sub t2h_default_index_summary_file_begin($$$)
{
my $name = shift;
my $is_printed = shift;
my $manual_name = shift;
$IDXFILE = main::open_out("$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'file_base_name'}" . "_$name.idx");
#open(IDXFILE, ">$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'file_base_name'}" . "_$name.idx")
# || die "Can't open >$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'file_base_name'}" . "_$name.idx for writing: $!\n";
}
sub t2h_default_index_summary_file_end($$$)
{
my $name = shift;
my $is_printed = shift;
my $manual_name = shift;
close ($IDXFILE);
}
sub t2h_default_sp($$)
{
my $number = shift;
my $preformatted = shift;
return "\n" x $number;
}
sub t2h_default_acronym_like($$$$$$)
{
my $command = shift;
my $acronym_texi = shift;
my $acronym_text = shift;
my $with_explanation = shift;
my $explanation_lines = shift;
my $explanation_text = shift;
my $explanation_simply_formatted = shift;
if ($with_explanation)
{
#return "$acronym_text ($explanation_text)";
return gdt('{acronym_like} ({explanation})', {'acronym_like' => $acronym_text, 'explanation' => $explanation_text},{'duplicate'=>1});
}
else
{
return "$acronym_text";
}
}
sub t2h_default_quotation_prepend_text($$)
{
my $command = shift;
my $text = shift;
return undef if (!defined($text) or $text =~ /^$/);
# If there is a @ protecting the end of line the result is,
# after the chomp:
# @b{some text @:}
# It is likely not to be what was intended, but it is certainly right.
# this is tested in formatting/quotation.texi
chomp($text);
return gdt('@b{{quotation_arg}:} ', {'quotation_arg' => $text}, {'keep_texi' => 1});
}
sub t2h_default_quotation($$$$$)
{
my $command = shift;
my $text = shift;
my $argument_text = shift;
my $argument_text_texi = shift;
my $authors = shift;
my $class_text = '';
# this allows to add an end of line if there was none, which can happen
# if there is an argument to @quotation, but an empty quotation, like
# @quotation something
# @end quotation
chomp($text);
$text .= "\n";
return $text;
}
# format the text within a paragraph style format,
#
# argument:
# format name
# text within the format
sub t2h_default_paragraph_style_command($$)
{
my $format = shift;
my $text = shift;
return $text;
}
# format a whole index
#
# argument:
# index text
# index name
sub t2h_default_print_index($$)
{
my $text = shift;
my $name = shift;
return '' if (!defined($text));
return "* Index:\n" . $text;
}
# format a letter entry in an index page. The letter entry contains
# the index entries for the words beginning with that letter. It is
# a target for links pointing from the summary of the index.
#
# arguments:
# the letter
# identifier for the letter entry. This should be used to make the target
# identifier
# text of the index entries
sub t2h_default_index_letter($$$)
{
my $letter = shift;
my $id = shift;
my $text = shift;
return $text;
}
# format an index entry (in a letter entry).
#
# arguments:
# href to the main text, linking to the place where the index entry appears
# entry text
# href to the main text, linking to the section or node where the index
# entry appears
# section or node heading
sub t2h_default_index_entry($$$$$$$$$$)
{
my $text_href = shift;
my $entry = shift;
my $element_href = shift;
my $element_text = shift;
my $entry_file = shift;
my $current_element_file = shift;
my $entry_target = shift;
my $entry_element_target = shift;
my $in_region_not_in_output = shift;
my $index_entry_ref = shift;
return '' if ($in_region_not_in_output);
#!$index_entry_ref->{'seen_in_output'} and defined($index_entry_ref->{'region'}));
$entry = main::substitute_line($index_entry_ref->{'texi'}, "index entry in \@printindex");
return '' if ($entry =~ /^\s*$/);
my $real_element_text;
my $element = $index_entry_ref->{'real_element'};
# in case $element->{'text'} is not defined, it certainly means that we
# are n a special elemet, most likely the virtual element appearing
# before anything else
if (defined($element->{'text'}))
{
my $element_set = 0;
if ($NODE_NAME_IN_INDEX)
{
if ($element->{'node'})
{
$element_set = 1;
}
elsif ($element->{'with_node'})
{
$element = $element->{'with_node'};
$element_set = 1;
}
}
elsif (defined($NODE_NAME_IN_INDEX))
{
if (!$element->{'node'})
{
$element_set = 1;
}
elsif ($element->{'with_section'})
{
$element = $element->{'with_section'};
$element_set = 1;
}
}
$element = $element->{'element_ref'} if ($element->{'element_ref'} and !$element_set);
$real_element_text = $element->{'text'};
}
else
{
$real_element_text = gdt('(outside of any element)');
}
return "* $entry: ".$real_element_text . '.'."\n";
}
sub t2h_default_copying_comment($$$$)
{
my $copying_lines = shift;
my $copying_text = shift;
my $copying_no_texi = shift;
my $copying_simple_text = shift;
return '' if ($copying_no_texi eq '');
my $text = &$comment($copying_no_texi);
return $text;
}
# return value is currently ignored
sub t2h_default_documentdescription($$$$)
{
my $decription_lines = shift;
my $description_text = shift;
my $description_no_texi = shift;
my $description_simple_text = shift;
if (defined($DOCUMENT_DESCRIPTION))
{
$Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'} = $DOCUMENT_DESCRIPTION;
return $DOCUMENT_DESCRIPTION;
}
#return '' if ($description_no_texi eq '');
#my @documentdescription = split (/\n/, $description_no_texi);
if ($description_simple_text eq '')
{
$Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'} = undef;
return undef;
}
my @documentdescription = split (/\n/, $description_simple_text);
my $document_description = shift @documentdescription;
chomp $document_description;
foreach my $line (@documentdescription)
{
chomp $line;
$document_description .= ' ' . $line;
}
$Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'} = $document_description;
return $document_description;
}
# format an index summary. This is a list of letters linking to the letter
# entries.
#
# arguments:
# array reference containing the formatted alphabetical letters
# array reference containing the formatted non lphabetical letters
sub t2h_default_index_summary($$)
{
my $alpha = shift;
my $nonalpha = shift;
my $join = '';
my $nonalpha_text = '';
my $alpha_text = '';
return '';
}
# return the heading with number texinfo text
# also called for nodes.
sub t2h_default_heading_texi($$$)
{
my $tag = shift;
my $texi = shift;
my $number = shift;
#$texi = main::trim_around_spaces($texi);
return "$number $texi" if ($NUMBER_SECTIONS and defined($number) and ($number !~ /^\s*$/)) ;
return $texi;
}
# return the heading texinfo text for split index sections
sub t2h_default_index_element_heading_texi($$$)
{ # FIXME i18n
my $heading_texi = shift;
my $tag = shift;
my $texi = shift;
my $number = shift;
my $first_letter = shift;
my $last_letter = shift;
return "$heading_texi: $first_letter -- $last_letter" if ($last_letter ne $first_letter);
return "$heading_texi: $first_letter";
}
sub t2h_default_element_label($$$$)
{
my $id = shift;
my $element = shift;
my $command = shift;
my $line = shift;
return &$anchor($id);
}
sub t2h_default_misc_element_label($$)
{
my $id = shift;
my $misc_page_name = shift;
return &$anchor($id);
}
sub t2h_default_anchor_label($$$$)
{
my $id = shift;
my $anchor_text = shift;
my $anchor_reference = shift;
my $in_special_region = shift;
return &$anchor($id);
}
sub t2h_default_colon_command($)
{
my $punctuation_character = shift;
return $colon_command_punctuation_characters{$punctuation_character} if defined($colon_command_punctuation_characters{$punctuation_character});
return $punctuation_character;
}
# called each time a @tab or an @itemx is encountered.
# To be noticed that there is another function better suited for
# formatting of an @item line: $format_list_item_texi
sub t2h_default_tab_item_texi($$$$$$)
{
my $command = shift;
my $commands_stack = shift;
my $stack = shift;
my $state = shift;
my $line = shift;
my $line_nr = shift;
return undef;
}
sub xml_default_line_command($$$$)
{
my $command = shift;
my $arg_text = shift;
my $arg_texi = shift;
my $state = shift;
my $style = $line_command_map{$command};
return '' if ($arg_text eq '' and !defined($style) or $style eq '');
if ($style)
{
my $attribute_text = '';
if ($style =~ /^(\w+)(\s+.*)/)
{
$style = $1;
$attribute_text = $2;
}
$arg_text = "<${style}$attribute_text>$arg_text</$style>";
}
$arg_text .= "\n";
return $arg_text;
}
sub t2h_default_line_command($$$$)
{
my $command = shift;
my $arg_text = shift;
my $arg_texi = shift;
my $state = shift;
return $arg_text;
}
# info is special, since it doesn't use the basename but directly the
# setfilename output, contrary to all the other formats
sub t2h_default_element_file_name($$$)
{
my $element = shift;
my $type = shift;
my $prefix = shift;
my $outname;
return unless ($USE_SETFILENAME_EXTENSION and $PREFIX eq '');
$outname = $OUT if (defined($OUT) and $OUT ne '' and $OUT !~ /\/$/ and $Texi2HTML::THISDOC{'input_file_number'} == 0);
if ($type eq 'doc' or !get_conf('SPLIT'))
{
if (defined($Texi2HTML::THISDOC{'setfilename'}) and !defined($outname))
{
$Texi2HTML::THISDOC{'extension'} = '';
return $Texi2HTML::THISDOC{'setfilename'};
}
}
return undef;
}
sub t2h_default_misc_command_line($$$$$)
{
my $macro = shift;
my $line = shift;
my $args = shift;
my $stack = shift;
my $state = shift;
my $result;
return ($macro, $line, $result);
}
sub t2h_default_internal_links($$$)
{
my $fh = shift;
my $elements_list = shift;
my $indices = shift;
foreach my $element (@$elements_list)
{
my $text = $element->{'no_texi'};
#$text =~ s/^([\w.]+)\. /$1 /;
#$text = "Annexe ".$text if ($element->{'tag'} =~ /appendix/);
print $fh "$element->{'file'}#$element->{'id'}\ttoc\t$text\n";
}
foreach my $index_name (sort(keys(%$indices)))
{
my $entries = $indices->{$index_name};
foreach my $letter_entries (@$entries)
{
foreach my $entry (@{$letter_entries->{'entries'}})
{
#print STDERR "($index_name) key $key, t $entry->{'texi'}: $entry->{'file'}#$entry->{'target'}\n";
print $fh "$entry->{'file'}#$entry->{'target'}\t$index_name\t$entry->{'key'}\n" if ($entry->{'key'} =~ /\S/);
}
}
}
}
1;
require "$T2H_HOME/texi2html.init"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/texi2html.init" && -r "$T2H_HOME/texi2html.init");
# @INIT_HTML@
# -*-perl-*-
# vim: set filetype=perl:
######################################################################
# File: html.init
# html output formatting
#
# A copy of this file is pasted into the beginning of texi2html by
# running './configure'.
#
# $Id: html.init,v 1.53 2010/06/26 09:54:23 pertusus Exp $
use strict;
use vars qw(@html_default_multitable_stack);
# used in mediawiki.init
#my @html_default_multitable_stack;
# tracks menu entry index
my $html_menu_entry_index;
# the simple_formatted document title
my $html_default_title;
# initialise the html output
sub html_default_load(;$)
{
my $from_command_line = shift;
t2h_default_set_variables_xml();
###############################################################
# defaults
$HEADERS = 1;
@T2H_FORMAT_EXPAND = ('html');
# The value is the 'SystemLiteral' which identifies the canonical DTD
# for the document.
# Definition: The SystemLiteral is called the entity's system
# identifier. It is a URI, which may be used to retrieve the entity.
# See http://www.xml.com/axml/target.html#NT-ExternalID
$DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">';
# When frames are used, this SystemLiteral identifies the DTD used for
# the file containing the frame description.
$FRAMESET_DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">';
# if this value is true, ISO8859 characters are used for special symbols
# (like copyright, etc).
$USE_ISO = 1;
# if the value is true the Texinfo menus are shown.
$SHOW_MENU = 1;
$SHOW_TITLE = 1;
# default is to use nodes only as elements.
$USE_SECTIONS = undef;
$TOP_FILE = 'index.html';
# file name used for Top node when NODE_FILES is true
$TOP_NODE_FILE = 'index';
##############################################################################
#
# The following can only be set in the init file
#
##############################################################################
$INLINE_INSERTCOPYING = 0;
# if this variable is true, numeric entities are used when there is no
# corresponding textual entity.
$USE_NUMERIC_ENTITY = 1;
# if true, use the original command if the result is an entity
$ENABLE_ENCODING_USE_ENTITY = 1;
# used as identation for block enclosing command @example, etc
# If not empty, must be enclosed in <td></td>
$EXAMPLE_INDENT_CELL = '<td> </td>';
# same as above, only for @small
$SMALL_EXAMPLE_INDENT_CELL = '<td> </td>';
# font size for @small
$SMALL_FONT_SIZE = '-1';
# horizontal rules
# Not used
$SMALL_RULE = '<hr size="1">';
$MIDDLE_RULE = '<hr size="2">';
# used almost everywhere
$DEFAULT_RULE = '<hr>';
# used for top element and before misc elements
$BIG_RULE = '<hr size="6">';
# symbol put at the beginning of nodes entry in menu (and optionnaly of
# unnumbered in menus, see next variable)
$MENU_SYMBOL = '•';
#$MENU_SYMBOL = '*';
$SIMPLE_MENU = 0;
# extension for nodes files when NODE_FILES is true
$NODE_FILE_EXTENSION = 'html';
# extension
$EXTENSION = 'html';
# default is to split the html output
$SPLIT = 'node';
# this resets all the variables to the texi2html specific values if
# called as texi2html
t2h_default_set_variables_texi2html() if ($COMMAND_NAME eq 'texi2html');
# this controls the pre style for menus
$MENU_PRE_STYLE = 'font-family: serif';
# on bug-texinfo is has been said the the style is not code_style
# for menus (except for the node name).
# this controls the menu preformatted format
# FIXME this is not dynamic, so change in MENU_PRE_STYLE is not taken
# into account.
# This is used if the menu appears within a preformatted format (which
# is certainly an invalid construct), and SIMPLE_MENU is not set.
$MENU_PRE_COMPLEX_FORMAT = {
'pre_style' => $MENU_PRE_STYLE,
'class' => 'menu-preformatted',
# 'style' => 'code'
};
# This controls the ul style for toc
$NO_BULLET_LIST_STYLE = 'list-style: none';
$NO_BULLET_LIST_CLASS = 'no-bullet';
$NO_BULLET_LIST_ATTRIBUTE = ' class="'.$NO_BULLET_LIST_CLASS.'"';
# These lines are inserted before and after the shortcontents
$BEFORE_OVERVIEW = "<div class=\"shortcontents\">\n";
$AFTER_OVERVIEW = "</div>\n";
# These lines are inserted before and after the contents
$BEFORE_TOC_LINES = "<div class=\"contents\">\n";
$AFTER_TOC_LINES = "</div>\n";
# text inserted after <body ...>
$AFTER_BODY_OPEN = '';
# text inserted before </body>, this will be automatically inside <p></p>
$PRE_BODY_CLOSE = '';
# this is added inside <head></head> after <title> and some <meta name>
# stuff, it can be used for eg. <style>, <script>, <meta> etc. tags.
$EXTRA_HEAD = '';
# Specifies the minimum page length required before a navigation panel
# is placed at the bottom of a page
$WORDS_IN_PAGE = 300;
# html version for latex2html
$L2H_HTML_VERSION = "4.0";
# this is not set dynamically
if (!$HEADER_IN_TABLE)
{
@SECTION_BUTTONS = ([ 'NodeNext', \&html_default_node_direction ],
[ 'NodePrev', \&html_default_node_direction ],
[ 'NodeUp', \&html_default_node_direction ], ' ',
'Contents', 'Index');
@CHAPTER_BUTTONS = @SECTION_FOOTER_BUTTONS = @NODE_FOOTER_BUTTONS =
@MISC_BUTTONS = @TOP_BUTTONS = @SECTION_BUTTONS;
$BIG_RULE = $DEFAULT_RULE;
}
$ICONS = 0;
%BUTTONS_ACCESSKEY =
(
'Top', '',
'Contents', '',
'Overview', '',
'Index', '',
'This', '',
'Back', 'p',
'FastBack', '',
'Prev', 'p',
'Up', 'u',
'Next', 'n',
'NodeUp', 'u',
'NodeNext', 'n',
'NodePrev', 'p',
'Following', '',
'Forward', 'n',
'FastForward', '',
'About' , '',
'First', '',
'Last', '',
'NextFile', '',
'PrevFile', '',
);
# see http://www.w3.org/TR/REC-html40/types.html#type-links
%BUTTONS_REL =
(
'Top', 'start',
'Contents', 'contents',
'Overview', '',
'Index', 'index',
'This', '',
'Back', 'previous',
'FastBack', '',
'Prev', 'previous',
'Up', 'up',
'Next', 'next',
'NodeUp', 'up',
'NodeNext', 'next',
'NodePrev', 'previous',
'Following', '',
'Forward', 'next',
'FastForward', '',
'About' , 'help',
'First', '',
'Last', '',
'NextFile', 'next',
'PrevFile', 'previous',
);
# PRE_ABOUT can be a function reference or a scalar.
# Note that if it is a scalar, T2H_InitGlobals has not been called,
# and all global variables like $ADDRESS are not available.
$PRE_ABOUT = sub
{
return ' ' . &$program_string() . "\n";
};
# If customizing $AFTER_ABOUT, be sure to put the content inside <p></p>.
$AFTER_ABOUT = '';
%BUTTONS_EXAMPLE =
(
'Top', ' ',
'Contents', ' ',
'Overview', ' ',
'Index', ' ',
'This', '1.2.3',
'Back', '1.2.2',
'FastBack', '1',
'Prev', '1.2.2',
'Up', '1.2',
'Next', '1.2.4',
'NodeUp', '1.2',
'NodeNext', '1.2.4',
'NodePrev', '1.2.2',
'Following', '1.2.4',
'Forward', '1.2.4',
'FastForward', '2',
'About', ' ',
'First', '1.',
'Last', '1.2.4',
'NextFile', ' ',
'PrevFile', ' ',
);
@IMAGE_EXTENSIONS = ('png','jpg','jpeg','gif');
#, 'txt');
#######################################################################
#
# Values guessed if not set here. The value used is in
# $Texi2HTML::THISDOC{'VARNAME'}
#
#######################################################################
$BODYTEXT = undef;
#$init_out = \&html_default_init_out;
$translate_names = \&html_default_translate_names;
t2h_default_push_handler(\&html_default_initialize, \@command_handler_init);
# This must be done after language has been set
t2h_default_push_handler(\&html_default_bodytext, \@command_handler_process);
# This must be done after the fulltitle has been set
t2h_default_push_handler(\&html_default_do_title, \@command_handler_output);
########################################################################
# Control of Page layout:
# You can make changes of the Page layout at two levels:
# 1.) For small changes, it is often enough to change the value of
# some global string/hash/array variables
# 2.) For larger changes, reimplement one of the HTML_DEFAULT_<fnc>* routines,
# give them another name, and assign them to the respective
# $<fnc> variable.
# As a general interface, the hashes Texi2HTML::HREF, Texi2HTML::NAME, Texi2HTML::NODE, Texi2HTML::NO_TEXI, Texi2HTML::SIMPLE_TEXT hold
# href, html-name, node-name, name after removal of texi commands of
# This -- current section (resp. html page)
# Top -- top element
# Contents -- Table of contents element
# Overview -- Short table of contents element
# Index -- Index page element
# About -- page which explain "navigation buttons" element
# First -- first node element
# Last -- last node element
#
# Whether or not the following hash values are set, depends on the context
# (all values are w.r.t. 'This' section)
# Next -- next element of texinfo
# Prev -- previous element of texinfo
# NodeUp -- up node of texinfo
# Following -- following node in node reading order, taking menu into account
# Forward -- next node in reading order
# Back -- previous node in reading order
# Up -- parent given by sectioning commands
# FastForward -- if leave node, up and next, else next node
# FastBackward-- if leave node, up and prev, else prev node
#
# Furthermore, the following global variabels are set:
# $Texi2HTML::THISDOC{title} -- title as set by @title...
# $Texi2HTML::THISDOC{title_no_texi} -- title without texi (without html elements)
# $Texi2HTML::THISDOC{title_texi} -- title with texinfo @-commands
# $Texi2HTML::THISDOC{fulltitle} -- full title as set by @title...
# $Texi2HTML::THISDOC{subtitle} -- subtitle as set by @subtitle
# $Texi2HTML::THISDOC{author} -- author as set by @author
# $Texi2HTML::THISDOC{copying_comment} -- text of @copying and @end copying in comment
#
# $Texi2HTML::THISDOC{program} -- name and version of texi2html
# $Texi2HTML::THISDOC{program_homepage} -- homepage for texi2html
# $Texi2HTML::THISDOC{program_authors} -- authors of texi2html
# $Texi2HTML::THISDOC{today} -- date formatted with pretty_date
# $Texi2HTML::THISDOC{toc_file} -- table of contents file
# $Texi2HTML::THISDOC{file_base_name} -- base name of the texinfo manual file
# $Texi2HTML::THISDOC{input_file_name} -- name of the texinfo manual file
# $Texi2HTML::THISDOC{destination_directory}
# -- directory for the resulting files
# $Texi2HTML::THISDOC{user} -- user running the script
# $Texi2HTML::THISDOC{css_import_lines} -- ref on @import lines in css files
# $Texi2HTML::THISDOC{css_rule_lines} -- ref on css rules lines
# other $Texi2HTML::THISDOC keys corresponds with texinfo commands, the value
# being the command arg, for the following commands:
# kbdinputstyle, paragraphindent, setchapternewpage, headings, footnotestyle,
# exampleindent, firstparagraphindent, everyheading, everyfooting,
# evenheading, evenfooting, oddheading, oddfooting
#
# and pointer to arrays of lines which need to be printed by main::print_lines
# $Texi2HTML::THIS_SECTION -- lines of 'This' section
# $Texi2HTML::OVERVIEW -- lines of short table of contents
# $Texi2HTML::TOC_LINES -- lines of table of contents
# $Texi2HTML::TITLEPAGE -- lines of title page
#
# $Texi2HTML::THIS_ELEMENT holds the element reference.
#
# There are the following subs which control the layout:
#
$print_section = \&HTML_DEFAULT_print_section;
$end_section = \&HTML_DEFAULT_end_section;
$one_section = \&HTML_DEFAULT_one_section;
$print_Top_footer = \&HTML_DEFAULT_print_Top_footer;
$print_Top = \&HTML_DEFAULT_print_Top;
# changed in info format, but irrelevant for non-split formats
$print_Footnotes = \&T2H_DEFAULT_print_Footnotes;
$print_misc_header = \&HTML_DEFAULT_print_misc_header;
$print_misc_footer = \&HTML_DEFAULT_print_misc_footer;
$print_section_footer = \&HTML_DEFAULT_print_section_footer;
$print_chapter_header = \&HTML_DEFAULT_print_chapter_header;
$print_section_header = \&HTML_DEFAULT_print_section_header;
$print_chapter_footer = \&HTML_DEFAULT_print_chapter_footer;
$print_page_head = \&HTML_DEFAULT_print_page_head;
$print_page_foot = \&HTML_DEFAULT_print_page_foot;
$print_head_navigation = \&HTML_DEFAULT_print_head_navigation;
$print_foot_navigation = \&HTML_DEFAULT_print_foot_navigation;
$button_icon_img = \&HTML_DEFAULT_button_icon_img;
$button_formatting = \&HTML_DEFAULT_button_formatting;
$print_navigation = \&HTML_DEFAULT_print_navigation;
$about_body = \&HTML_DEFAULT_about_body;
$print_frame = \&HTML_DEFAULT_print_frame;
$print_toc_frame = \&HTML_DEFAULT_print_toc_frame;
$contents = \&HTML_DEFAULT_contents;
$shortcontents = \&HTML_DEFAULT_shortcontents;
$print_redirection_page = \&HTML_DEFAULT_print_redirection_page;
########################################################################
# Control of formatting:
# 1.) For some changes, it is often enough to change the value of
# some global map. It might necessitate building a little
# function along with the change in hash, if the change is the use
# of another function (in style_map).
# 2.) For other changes, reimplement one of the t2h_default_<fnc>* routines,
# give them another name, and assign them to the respective
# $<fnc> variable (below).
#
# texinfo "simple things" (@foo) to HTML ones
#
%simple_map = %default_simple_map;
$simple_map{'*'} = '<br>'; # HTML+
$simple_map{' '} = ' ';
$simple_map{"\t"} = ' ';
$simple_map{"\n"} = ' ';
# "­" or "­" could also be possible for @-, but it seems
# that some browser will consider this as an always visible hyphen mark
# which is not what we want (see http://www.cs.tut.fi/~jkorpela/shy.html)
#$simple_map{'-'} = ''; # hyphenation hint
# this map is used in preformatted text
%simple_map_pre = %simple_map;
$simple_map_pre{'*'} = "\n";
# use entities in the default case
#$things_map{'dots'} = '<small class="dots">...</small>';
$things_map{'enddots'} = '<small class="enddots">...</small>';
%style_map = ();
%style_map_pre = ();
t2h_default_copy_style_map (\%default_style_map, \%style_map);
t2h_default_copy_style_map (\%default_style_map_pre, \%style_map_pre);
# default is {'args' => ['normal'], 'attribute' => ''},
my %style_map_html = (
'b', {'inline_attribute' => 'b'},
'cite', {'inline_attribute' => 'cite'},
'code', {'inline_attribute' => 'code'},
'command', {'inline_attribute' => 'code'},
'dfn', {'inline_attribute' => 'em'},
'email', {'function' => \&html_default_email},
'emph', {'inline_attribute' => 'em'},
'env', {'inline_attribute' => 'code'},
'file', {'inline_attribute' => 'tt', 'quote' => '"'},
'headitemfont', {'inline_attribute' => 'b'}, # not really that, in fact it is
# in <th> rather than <td>
'i', {'inline_attribute' => 'i'},
'slanted', {'inline_attribute' => 'i'},
'sansserif', {'inline_attribute' => 'span class="sansserif"'},
'kbd', {'inline_attribute' => 'kbd'},
'key', {'begin' => '<', 'end' => '>'},
'math', {'function' => \&html_default_math},
'option', {'inline_attribute' => 'samp', 'quote' => '"'},
'r', {'inline_attribute' => 'span class="roman"'},
'samp', {'inline_attribute' => 'samp', 'quote' => '"'},
'sc', {'inline_attribute' => 'small'},
'strong', {'inline_attribute' => 'strong'},
't', {'inline_attribute' => 'tt'},
'uref', {'function' => \&html_default_uref},
'url', {'function' => \&html_default_uref},
'indicateurl', {'begin' => '<<code>', 'end' => '</code>>'},
'var', {'inline_attribute' => 'var'},
'verb', {'inline_attribute' => 'tt'},
);
foreach my $style_command (keys(%style_map_html))
{
foreach my $key (keys(%{$style_map_html{$style_command}}))
{
$style_map_pre{$style_command}->{$key} = $style_map_html{$style_command}->{$key};
$style_map{$style_command}->{$key} = $style_map_html{$style_command}->{$key};
}
}
%line_command_map = (
'title' => 'h1',
'subtitle' => 'h3 align="right"',
'author' => 'strong',
);
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents))
{
$style_map{$accent_command} = { 'function' => \&xml_default_accent };
$style_map_pre{$accent_command} = { 'function' => \&xml_default_accent };
}
$style_map_pre{'sc'} = {};
$style_map_pre{'titlefont'} = {};
$style_map_pre{'click'}->{'function'} = \&t2h_default_click_pre;
# uncomment to use the old interface
#%style_map = %old_style_map;
#%style_map_pre = %old_style_map_pre;
%simple_format_simple_map_texi = %simple_map_pre;
%format_map = (
# 'quotation' => 'blockquote',
# lists
# 'itemize' => 'ul',
'enumerate' => 'ol',
# 'multitable' => 'table',
'table' => 'dl compact="compact"',
'vtable' => 'dl compact="compact"',
'ftable' => 'dl compact="compact"',
'group' => '',
'raggedright' => '',
# 'detailmenu' => '',
);
#%special_list_commands = (
# 'table' => {},
# 'vtable' => {},
# 'ftable' => {},
# 'itemize' => { 'bullet' => '' }
# );
$special_list_commands{'itemize'}->{ 'bullet'} = '';
#
# texinfo format to align attribute of paragraphs
#
%paragraph_style = (
'center' => 'center',
'flushleft' => 'left',
'flushright' => 'right',
);
# preformatted formats formatting
if ($COMPLEX_FORMAT_IN_TABLE)
{
foreach my $indented_format ('example', 'display', 'lisp')
{
$complex_format_map{"small$indented_format"}->{'begin'} = "<table><tr>$SMALL_EXAMPLE_INDENT_CELL<td>";
$complex_format_map{$indented_format}->{'begin'} = "<table><tr>$EXAMPLE_INDENT_CELL<td>";
$complex_format_map{$indented_format}->{'end'} = "</td></tr></table>\n";
$complex_format_map{"small$indented_format"}->{'end'} = "</td></tr></table>\n";
}
foreach my $non_indented_formats ('format', 'smallformat')
{
$complex_format_map{$non_indented_formats}->{'begin'} = '';
$complex_format_map{$non_indented_formats}->{'end'} = "\n";
}
}
else
{
foreach my $format ('example', 'display', 'lisp', 'format')
{
$complex_format_map{$format}->{'begin'} = html_default_attribute_class('div', $format).">\n";
$complex_format_map{"small$format"}->{'begin'} = html_default_attribute_class('div', "small$format").">\n";
$complex_format_map{$format}->{'end'} = '</div>'."\n";
$complex_format_map{"small$format"}->{'end'} = '</div>'."\n";
}
}
foreach my $format ('menu', 'detailmenu', 'direntry')
{
$complex_format_map{$format} = { 'begin' => '' , 'end' => '',
'class' => 'menu-preformatted',
};
}
$complex_format_map{'menu_comment'} = {
'begin' => "<tr><th colspan=\"3\" align=\"left\" valign=\"top\">",
'end' => "</th></tr>", 'class' => 'menu-comment',
};
%format_in_paragraph = (
'html' => 1,
);
# map mapping css specification to style
%css_map =
(
"ul.$NO_BULLET_LIST_CLASS" => "$NO_BULLET_LIST_STYLE",
'pre.menu-comment' => "$MENU_PRE_STYLE",
'pre.menu-preformatted' => "$MENU_PRE_STYLE",
'a.summary-letter' => 'text-decoration: none',
'blockquote.smallquotation' => 'font-size: smaller',
# 'pre.display' => 'font-family: inherit',
# 'pre.smalldisplay' => 'font-family: inherit; font-size: smaller',
'pre.display' => 'font-family: serif',
'pre.smalldisplay' => 'font-family: serif; font-size: smaller',
'pre.smallexample' => 'font-size: smaller',
'span.sansserif' => 'font-family:sans-serif; font-weight:normal',
'span.roman' => 'font-family:serif; font-weight:normal',
'span.nocodebreak' => 'white-space:pre',
'span.nolinebreak' => 'white-space:pre'
);
$css_map{'pre.format'} = $css_map{'pre.display'};
$css_map{'pre.smallformat'} = $css_map{'pre.smalldisplay'};
$css_map{'pre.smalllisp'} = $css_map{'pre.smallexample'};
foreach my $indented_format ('example', 'display', 'lisp')
{
$css_map{"div.$indented_format"} = 'margin-left: 3.2em';
$css_map{"div.small$indented_format"} = 'margin-left: 3.2em';
}
# formatting functions
$acronym_like = \&html_default_acronym_like;
$anchor = \&html_default_anchor;
$anchor_label = \&html_default_anchor_label;
$begin_format_texi = \&html_default_begin_format_texi;
$caption_shortcaption = \&html_default_caption_shortcaption;
$caption_shortcaption_command = \&html_default_caption_shortcaption_command;
$cartouche = \&html_default_cartouche;
$cell = \&html_default_cell;
$def = \&html_default_def;
$def_item = \&html_default_def_item;
$def_line = \&html_default_def_line;
$element_label = \&html_default_element_label;
$float = \&html_default_float;
$foot_line_and_ref = \&html_default_foot_line_and_ref;
$foot_section = \&html_default_foot_section;
$format_list_item_texi = \&html_default_format_list_item_texi;
$heading = \&t2h_default_heading;
$heading_text = \&html_default_heading_text;
$heading_text_preformatted = \&html_default_heading_text_preformatted;
$image = \&html_default_image;
$image_files = \&html_default_image_files;
$index_entry = \&html_default_index_entry;
$index_entry_command = \&html_default_index_entry_command;
$index_entry_label = \&html_default_index_entry_label;
$index_letter = \&html_default_index_letter;
$index_summary = \&html_default_index_summary;
$insertcopying = \&html_default_insertcopying;
$line_command = \&html_default_line_command;
$list_item = \&html_default_list_item;
$listoffloats = \&html_default_listoffloats;
$listoffloats_entry = \&html_default_listoffloats_entry;
$listoffloats_caption = \&html_default_listoffloats_caption;
$listoffloats_float_style = \&html_default_listoffloats_float_style;
$menu_command = \&html_default_menu_command;
$menu_link = \&html_default_menu_link;
$menu_description = \&html_default_menu_description;
$misc_element_label = \&html_default_misc_element_label;
$normal_text = \&html_default_normal_text;
$paragraph = \&html_default_paragraph;
$preformatted = \&html_default_preformatted;
$print_index = \&html_default_print_index;
$protect_text = \&xml_default_protect_text;
$quotation = \&html_default_quotation;
$sp = \&html_default_sp;
$summary_letter = \&html_default_summary_letter;
$tab_item_texi = \&html_default_tab_item_texi;
$table_item = \&html_default_table_item;
$table_line = \&html_default_table_line;
$table_list = \&html_default_table_list;
$raw = \&html_default_raw;
$row = \&html_default_row;
}
# The functions
sub html_default_initialize()
{
@html_default_multitable_stack = ();
$html_default_title = undef;
}
# We have to do this dynamically because of internationalization and because
# in body $DOCUMENTLANGUAGE could be used.
sub html_default_bodytext()
{
# Set the default body text, inserted between <body ... >
if (defined($BODYTEXT))
{
$Texi2HTML::THISDOC{'BODYTEXT'} = $BODYTEXT;
}
else
{
$Texi2HTML::THISDOC{'BODYTEXT'} = 'lang="' . get_conf('documentlanguage') . '" bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000"';
}
}
sub html_default_translate_names()
{
t2h_default_translate_names();
%NAVIGATION_TEXT =
(
'Top', gdt('Top'),
'Contents', gdt('Contents'),
'Overview', gdt('Overview'),
'Index', gdt('Index'),
' ', ' ',
'This', gdt('current'),
'Back', ' < ',
'FastBack', ' << ',
'Prev', gdt('Prev'),
'Up', gdt(' Up '),
'Next', gdt('Next'),
'NodeUp', gdt('Node up'),
'NodeNext', gdt('Next node'),
'NodePrev', gdt('Previous node'),
'Following', gdt('Following node'),
'Forward', ' > ',
'FastForward', ' >> ',
'About', ' ? ',
'First', ' |< ',
'Last', ' >| ',
'NextFile', gdt('Next file'),
'PrevFile', gdt('Previous file'),
);
}
sub html_default_do_title()
{
$html_default_title = "$Texi2HTML::THISDOC{'fulltitle_simple_format'}";
if ($html_default_title !~ /\S/)
{
$html_default_title = gdt('Untitled Document',{},{'simple_format' => 1});
main::document_warn("Must specify a title with a title command or \@top");
}
}
########################################################################
# Page formatting functions
#
########################################################################
# Layout for html for every sections
#
sub HTML_DEFAULT_print_section
{
my $fh = shift;
my $first_in_page = shift;
my $previous_is_top = shift;
my $element = shift;
my $buttons = \@SECTION_BUTTONS;
my $nw = main::print_lines($fh);
if ((get_conf('SPLIT') eq 'node') && get_conf('headers'))
{
my $buttons = \@NODE_FOOTER_BUTTONS;
&$print_foot_navigation($fh, $buttons, $DEFAULT_RULE,
(!defined($WORDS_IN_PAGE) or (defined ($nw) and $nw >= $WORDS_IN_PAGE)),
$element);
}
}
sub HTML_DEFAULT_one_section($$)
{
my $fh = shift;
my $element = shift;
main::print_lines($fh);
print $fh "$DEFAULT_RULE\n";
&$print_page_foot($fh);
}
###################################################################
# Layout of top-page I recommend that you use @ifnothtml, @ifhtml,
# @html within the Top texinfo node to specify content of top-level
# page.
#
sub HTML_DEFAULT_print_Top_footer($$$)
{
my $fh = shift;
my $end_page = shift;
my $element = shift;
my $buttons = \@TOP_BUTTONS;
my $rule = $DEFAULT_RULE;
$rule = $BIG_RULE if (!$end_page);
#print STDERR "end_page: $end_page\n";
&$print_foot_navigation($fh, $buttons, $rule,
($end_page and (get_conf('headers') or (get_conf('SPLIT') and get_conf('SPLIT') ne 'node'))), $element);
if ($end_page)
{
&$print_page_foot($fh);
}
}
sub HTML_DEFAULT_print_Top($$$)
{
my $fh = shift;
my $has_top_heading = shift;
my $element = shift;
main::print_lines($fh, $Texi2HTML::THIS_SECTION);
}
###################################################################
# Layout of Toc, Overview, and Footnotes pages
# By default, we use "normal" layout
# Texi2HTML::HREF of Next, Prev, Up, Forward, Back, etc are not defined
# use: my $buttons = [...] to redefine navigation buttons
sub HTML_DEFAULT_print_Footnotes
{
return &$print_misc(@_);
}
sub HTML_DEFAULT_print_misc_header
{
my $fh = shift;
my $buttons = shift;
my $new_file = shift;
my $misc_page = shift;
&$print_page_head($fh) if ($new_file);
print $fh "".&$misc_element_label($misc_pages_targets{$misc_page}, $misc_page);
&$print_head_navigation($fh, $buttons) if ($new_file or get_conf('headers'));
}
sub HTML_DEFAULT_print_misc_footer
{
my $fh = shift;
my $buttons = shift;
my $new_file = shift;
&$print_foot_navigation($fh, $buttons, $DEFAULT_RULE,
($new_file and (get_conf('headers') or (get_conf('SPLIT') and get_conf('SPLIT') ne 'node'))), undef);
if ($new_file)
{
&$print_page_foot($fh);
}
}
##################################################################
# section_footer is only called if SPLIT eq 'section'
# section_footer: after print_section of last section, before print_page_foot
#
sub HTML_DEFAULT_print_section_footer
{
my $fh = shift;
my $element = shift;
my $buttons = \@SECTION_FOOTER_BUTTONS;
&$print_foot_navigation($fh, $buttons, $DEFAULT_RULE, 1, $element);
}
###################################################################
# chapter_header and chapter_footer are only called if
# SPLIT eq 'chapter'
# chapter_header: after print_page_head, before print_section
# chapter_footer: after print_section of last section, before print_page_foot
#
# If you want to get rid of navigation stuff after each section,
# redefine print_section such that it does not call print_navigation,
# and put print_navigation into print_chapter_header
sub HTML_DEFAULT_print_chapter_header
{
my $fh = shift;
my $element = shift;
# nothing to do there, by default, the navigation panel
# is the element navigation panel
if (! get_conf('headers'))
{ # in this case print_navigation is called here.
my $buttons = \@CHAPTER_BUTTONS;
&$print_head_navigation($fh, $buttons);
print $fh "\n$DEFAULT_RULE\n" unless ($VERTICAL_HEAD_NAVIGATION);
}
}
sub HTML_DEFAULT_print_chapter_footer
{
my $fh = shift;
my $element = shift;
my $buttons = \@CHAPTER_BUTTONS;
&$print_foot_navigation($fh, $buttons, $DEFAULT_RULE, 1, $element);
}
sub HTML_DEFAULT_print_section_header
{
# nothing to do there, by default
if (! get_conf('headers'))
{ # in this case print_navigation is called here.
my $fh = shift;
my $buttons = \@SECTION_BUTTONS;
&$print_head_navigation($fh, $buttons);
}
}
###################################################################
# Layout of standard header and footer
#
sub HTML_DEFAULT_print_page_head($)
{
my $fh = shift;
my $longtitle = $html_default_title;
$longtitle .= ": $Texi2HTML::SIMPLE_TEXT{'This'}" if (defined ($Texi2HTML::SIMPLE_TEXT{'This'}) and ($Texi2HTML::SIMPLE_TEXT{'This'} !~ /^\s*$/) and get_conf('SPLIT') and ($html_default_title ne $Texi2HTML::SIMPLE_TEXT{'This'}));
my $description = $Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'};
$description = $longtitle if (!defined($description));
$description = "<meta name=\"description\" content=\"$description\">" if
($description ne '');
my $encoding = '';
$encoding = "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$Texi2HTML::THISDOC{'ENCODING_NAME'}\">" if (defined($Texi2HTML::THISDOC{'ENCODING_NAME'}) and ($Texi2HTML::THISDOC{'ENCODING_NAME'} ne ''));
my $date = '';
my $today = $Texi2HTML::THISDOC{'today'};
$today = '' if (!defined($today));
$date = "\n<meta name=\"date\" content=\"$today\">" if ($DATE_IN_HEADER and $today ne '');
my $links = '';
if ($USE_LINKS)
{
foreach my $link (@LINKS_BUTTONS)
{
#print STDERR "$link!!$Texi2HTML::HREF{$link}\n";
if (defined($Texi2HTML::HREF{$link}) and $Texi2HTML::HREF{$link} ne '')
{
my $title = '';
$title = " title=\"$Texi2HTML::SIMPLE_TEXT{$link}\"" if (defined($Texi2HTML::SIMPLE_TEXT{$link}));
my $rel = '';
$rel = " rel=\"$BUTTONS_REL{$link}\"" if (defined($BUTTONS_REL{$link}));
$links .= "<link href=\"$Texi2HTML::HREF{$link}\"${rel}${title}>\n";
}
}
}
my $css_text = '';
$css_text = $Texi2HTML::THISDOC{'CSS_LINES'} if (defined($Texi2HTML::THISDOC{'CSS_LINES'}));
my $doctype = get_conf('doctype');
print $fh <<EOT;
$doctype
<html>
$Texi2HTML::THISDOC{'copying_comment'}<!-- Created on $Texi2HTML::THISDOC{today} by $Texi2HTML::THISDOC{program}
$Texi2HTML::THISDOC{program_authors}-->
<head>
<title>$longtitle</title>
$description
<meta name="keywords" content="$longtitle">
<meta name="resource-type" content="document">
<meta name="distribution" content="global">
<meta name="Generator" content="$Texi2HTML::THISDOC{program}">$date
$encoding
${links}$css_text
$EXTRA_HEAD
</head>
<body $Texi2HTML::THISDOC{'BODYTEXT'}>
$AFTER_BODY_OPEN
EOT
}
sub HTML_DEFAULT_end_section($$$)
{
my $fh = shift;
my $misc_or_top_and_section_separation = shift;
my $element = shift;
if ($misc_or_top_and_section_separation)
{
my $rule = $BIG_RULE;
# in that case we are almost surely at the end of the document
$rule = $DEFAULT_RULE if (! $MONOLITHIC);
&$print_foot_navigation($fh, undef, $rule, 0, $element, 1);
}
else
{
print $fh "$DEFAULT_RULE\n";
}
}
sub HTML_DEFAULT_print_page_foot($)
{
my $fh = shift;
my $program_text = '';
if ($PROGRAM_NAME_IN_FOOTER)
{
my $program_string = &$program_string();
$program_text = " <font size=\"-1\">
$program_string
</font>
<br>";
}
print $fh <<EOT;
<p>
$program_text
$PRE_BODY_CLOSE
</p>
</body>
</html>
EOT
}
###################################################################
# Layout of navigation panel
sub HTML_DEFAULT_print_head_navigation($$$$$)
{
my $fh = shift;
my $buttons = shift;
my $first_in_page = shift;
my $previous_is_top = shift;
my $element = shift;
my $result = '';
if ($VERTICAL_HEAD_NAVIGATION)
{
$result .= <<EOT;
<table border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<td align="left">
EOT
}
$result .= &$print_navigation($buttons, $VERTICAL_HEAD_NAVIGATION);
if ($VERTICAL_HEAD_NAVIGATION)
{
$result .= <<EOT;
</td>
<td align="left">
EOT
}
elsif (get_conf('SPLIT') eq 'node')
{
$result .= "$DEFAULT_RULE\n";
}
print $fh $result if (defined($fh));
return $result;
}
sub HTML_DEFAULT_print_foot_navigation
{
my $fh = shift;
my $buttons = shift;
my $rule = shift;
my $print_navigation_panel = shift;
my $element = shift;
# set if called between sections and top or between sections and misc.
# could also be the last element
my $maybe_in_page = shift;
$rule = '' if (!defined($rule));
$print_navigation_panel = 1 if (!defined($print_navigation_panel)
and defined($buttons));
# avoid the rule if at the end of a page and there is nothing below
$rule = '' if (!$PROGRAM_NAME_IN_FOOTER and !$print_navigation_panel and !$maybe_in_page);
if ($VERTICAL_HEAD_NAVIGATION)
{
print $fh <<EOT;
</td>
</tr>
</table>
EOT
}
print $fh "$rule\n" if ($rule ne '');
print $fh "".&$print_navigation($buttons) if ($print_navigation_panel);
}
######################################################################
# navigation panel
#
# how to create IMG tag
sub HTML_DEFAULT_button_icon_img
{
my $button = shift;
my $icon = shift;
my $name = shift;
return '' if (!defined($icon));
$button = "" if (!defined ($button));
$name = '' if (!defined($name));
my $alt = '';
if ($name ne '')
{
if ($button ne '')
{
$alt = "$button: $name";
}
else
{
$alt = $name;
}
}
else
{
$alt = $button;
}
return qq{<img src="$icon" border="0" alt="$alt" align="middle">};
}
sub HTML_DEFAULT_button_formatting($$)
{
my $button = shift;
my $vertical = shift;
my ($active, $passive);
if (ref($button) eq 'CODE')
{
$active = &$button($vertical);
}
elsif (ref($button) eq 'SCALAR')
{
$active = "$$button" if defined($$button);
}
elsif (ref($button) eq 'ARRAY')
{
my $text = $button->[1];
my $button_href = $button->[0];
# verify that $button_href is simple text and text is a reference
if (defined($button_href) and !ref($button_href)
and defined($text) and (ref($text) eq 'SCALAR') and defined($$text))
{ # use given text
if ($Texi2HTML::HREF{$button_href})
{
my $anchor_attributes = '';
if ($USE_ACCESSKEY and (defined($BUTTONS_ACCESSKEY{$button_href})) and ($BUTTONS_ACCESSKEY{$button_href} ne ''))
{
$anchor_attributes = "accesskey=\"$BUTTONS_ACCESSKEY{$button_href}\"";
}
if ($USE_REL_REV and (defined($BUTTONS_REL{$button_href})) and ($BUTTONS_REL{$button_href} ne ''))
{
$anchor_attributes .= " rel=\"$BUTTONS_REL{$button_href}\"";
}
$active = "" .
&$anchor('',
$Texi2HTML::HREF{$button_href},
$$text,
$anchor_attributes
);
}
else
{
$passive = $$text;
}
}
elsif (defined($button_href) and !ref($button_href)
and defined($text) and (ref($text) eq 'CODE'))
{
$active = &$text($button_href);
}
}
elsif ($button eq ' ')
{ # handle space button
$active =
($ICONS && $ACTIVE_ICONS{' '}) ?
&$button_icon_img($BUTTONS_NAME{$button}, $ACTIVE_ICONS{' '}) :
$NAVIGATION_TEXT{' '};
#next;
}
elsif ($Texi2HTML::HREF{$button})
{ # button is active
my $btitle = $BUTTONS_GOTO{$button} ?
'title="' . $BUTTONS_GOTO{$button} . '"' : '';
if ($USE_ACCESSKEY and (defined($BUTTONS_ACCESSKEY{$button})) and ($BUTTONS_ACCESSKEY{$button} ne ''))
{
$btitle .= " accesskey=\"$BUTTONS_ACCESSKEY{$button}\"";
}
if ($USE_REL_REV and (defined($BUTTONS_REL{$button})) and ($BUTTONS_REL{$button} ne ''))
{
$btitle .= " rel=\"$BUTTONS_REL{$button}\"";
}
if ($ICONS && $ACTIVE_ICONS{$button})
{ # use icon
$active = '' .
&$anchor('',
$Texi2HTML::HREF{$button},
&$button_icon_img($BUTTONS_NAME{$button},
$ACTIVE_ICONS{$button},
$Texi2HTML::SIMPLE_TEXT{$button}),
$btitle
);
}
else
{ # use text
$active =
'[' .
&$anchor('',
$Texi2HTML::HREF{$button},
$NAVIGATION_TEXT{$button},
$btitle
) .
']';
}
}
else
{ # button is passive
$passive =
$ICONS && $PASSIVE_ICONS{$button} ?
&$button_icon_img($BUTTONS_NAME{$button},
$PASSIVE_ICONS{$button},
$Texi2HTML::SIMPLE_TEXT{$button}) :
"[" . $NAVIGATION_TEXT{$button} . "]";
}
return ($active, $passive);
}
my %html_default_node_directions;
foreach my $node_directions ('NodeNext', 'NodePrev', 'NodeUp')
{
$html_default_node_directions{$node_directions} = 1;
}
sub HTML_DEFAULT_print_navigation($;$)
{
my $buttons = shift;
my $vertical = shift;
my $first_button = 1;
my $result = '';
if ($HEADER_IN_TABLE)
{
$result .= html_default_attribute_class('table', 'header').' cellpadding="1" cellspacing="1" border="0">'."\n";
$result .= "<tr>" unless $vertical;
}
else
{
$result .= html_default_attribute_class('div', 'header').">\n<p>\n";
}
for my $button (@$buttons)
{
if ($HEADER_IN_TABLE)
{
$result .= qq{<tr valign="top" align="left">\n} if $vertical;
$result .= qq{<td valign="middle" align="left">};
}
my $direction;
if (ref($button) eq 'ARRAY' and defined($button->[0]) and !ref($button->[0]))
{
$direction = $button->[0];
}
elsif (defined($button) and !ref($button))
{
$direction = $button;
}
my ($active, $passive) = &$button_formatting($button, $vertical);
if ($HEADER_IN_TABLE)
{
if (defined($active))
{
$first_button = 0 if ($first_button);
$result .= $active;
}
elsif (defined($passive))
{
$first_button = 0 if ($first_button);
$result .= $passive;
}
$result .= "</td>\n";
$result .= "</tr>\n" if $vertical;
}
elsif (defined($active))
{ # only active buttons are print out when not in table
if (defined($direction) and $html_default_node_directions{$direction} and !$first_button)
{
$active = ', ' .$active;
}
$result .= $active;
$first_button = 0 if ($first_button);
}
}
if ($HEADER_IN_TABLE)
{
$result .= "</tr>" unless $vertical;
$result .= "</table>\n";
}
else
{
$result .= "</p>\n</div>\n";
}
return $result;
}
sub html_default_node_direction($)
{
my $direction = shift;
my $result = undef;
if ($Texi2HTML::HREF{$direction} and $Texi2HTML::NODE{$direction})
{
my $anchor_attributes = '';
if ($USE_ACCESSKEY and (defined($BUTTONS_ACCESSKEY{$direction})) and ($BUTTONS_ACCESSKEY{$direction} ne ''))
{
$anchor_attributes = "accesskey=\"$BUTTONS_ACCESSKEY{$direction}\"";
}
if ($USE_REL_REV and (defined($BUTTONS_REL{$direction})) and ($BUTTONS_REL{$direction} ne ''))
{
$anchor_attributes .= " rel=\"$BUTTONS_REL{$direction}\"";
}
my $anchor = &$anchor('',
$Texi2HTML::HREF{$direction},
$Texi2HTML::NODE{$direction},
$anchor_attributes
)
;
# i18n
$result = "$BUTTONS_TEXT{$direction}: $anchor";
}
return $result;
}
######################################################################
# Frames: this is from "Richard Y. Kim" <ryk@coho.net>
# Should be improved to be more conforming to other _print* functions
# toc_file and main_file passed as args are relative to the texinfo manual
# location, and therefore are not used.
sub HTML_DEFAULT_print_frame
{
my $fh = shift;
my $toc_file = shift;
my $main_file = shift;
$main_file = $Texi2HTML::THISDOC{'filename'}->{'top'};
$toc_file = $Texi2HTML::THISDOC{'filename'}->{'toc_frame'};
print $fh <<EOT;
$FRAMESET_DOCTYPE
<html>
<head><title>$Texi2HTML::THISDOC{'fulltitle'}</title></head>
<frameset cols="140,*">
<frame name="toc" src="$toc_file">
<frame name="main" src="$main_file">
</frameset>
</html>
EOT
}
sub HTML_DEFAULT_print_toc_frame
{
my $fh = shift;
my $stoc_lines = shift;
&$print_page_head($fh);
print $fh <<EOT;
<h2>Content</h2>
EOT
print $fh map {s/\bhref=/target="main" href=/; $_;} @$stoc_lines;
print $fh "</body></html>\n";
}
######################################################################
# About page
#
sub HTML_DEFAULT_about_body
{
return undef if (!$HEADER_IN_TABLE);
my $about = "<p>\n";
if (ref($PRE_ABOUT) eq 'CODE')
{
$about .= &$PRE_ABOUT();
}
else
{
$about .= $PRE_ABOUT;
}
$about .= <<EOT;
</p>
<p>
EOT
$about .= gdt(' The buttons in the navigation panels have the following meaning:') . "\n";
$about .= <<EOT;
</p>
<table border="1">
<tr>
EOT
$about .= ' <th> ' . gdt('Button') . " </th>\n" .
' <th> ' . gdt('Name') . " </th>\n" .
' <th> ' . gdt('Go to') . " </th>\n" .
' <th> ' . gdt('From 1.2.3 go to') . "</th>\n" . " </tr>\n";
for my $button (@SECTION_BUTTONS)
{
next if $button eq ' ' || ref($button) eq 'CODE' || ref($button) eq 'SCALAR' || ref($button) eq 'ARRAY';
$about .= " <tr>\n <td align=\"center\">";
$about .=
($ICONS && $ACTIVE_ICONS{$button} ?
&$button_icon_img($BUTTONS_NAME{$button}, $ACTIVE_ICONS{$button}) :
' [' . $NAVIGATION_TEXT{$button} . '] ');
$about .= "</td>\n";
$about .= <<EOT;
<td align="center">$BUTTONS_NAME{$button}</td>
<td>$BUTTONS_GOTO{$button}</td>
<td>$BUTTONS_EXAMPLE{$button}</td>
</tr>
EOT
}
$about .= <<EOT;
</table>
<p>
EOT
$about .= gdt(' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:') . "\n";
# where the <strong> Example </strong> assumes that the current position
# is at <strong> Subsubsection One-Two-Three </strong> of a document of
# the following structure:
$about .= <<EOT;
</p>
<ul>
EOT
$about .= ' <li> 1. ' . gdt('Section One') . "\n" .
" <ul>\n" .
' <li>1.1 ' . gdt('Subsection One-One') . "\n";
$about .= <<EOT;
<ul>
<li>...</li>
</ul>
</li>
EOT
$about .= ' <li>1.2 ' . gdt('Subsection One-Two') . "\n" .
" <ul>\n" .
' <li>1.2.1 ' . gdt('Subsubsection One-Two-One') . "</li>\n" .
' <li>1.2.2 ' . gdt('Subsubsection One-Two-Two') . "</li>\n" .
' <li>1.2.3 ' . gdt('Subsubsection One-Two-Three') . " \n"
.
' <strong><== ' . gdt('Current Position') . " </strong></li>\n" .
' <li>1.2.4 ' . gdt('Subsubsection One-Two-Four') . "</li>\n" .
" </ul>\n" .
" </li>\n" .
' <li>1.3 ' . gdt('Subsection One-Three') . "\n";
$about .= <<EOT;
<ul>
<li>...</li>
</ul>
</li>
EOT
$about .= ' <li>1.4 ' . gdt('Subsection One-Four') . "</li>\n";
$about .= <<EOT;
</ul>
</li>
</ul>
$AFTER_ABOUT
EOT
return $about;
}
sub HTML_DEFAULT_print_redirection_page()
{
#my $fh = shift;
my $longtitle = $html_default_title;
$longtitle .= ": $Texi2HTML::SIMPLE_TEXT{'This'}" if (defined ($Texi2HTML::SIMPLE_TEXT{'This'}) and ($Texi2HTML::SIMPLE_TEXT{'This'} !~ /^\s*$/) and ($html_default_title ne $Texi2HTML::SIMPLE_TEXT{'This'}));
my $description = $Texi2HTML::THISDOC{'DOCUMENT_DESCRIPTION'};
$description = $longtitle if (!defined($description));
my $encoding = '';
$encoding = "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$Texi2HTML::THISDOC{'ENCODING_NAME'}\">" if (defined($Texi2HTML::THISDOC{'ENCODING_NAME'}) and ($Texi2HTML::THISDOC{'ENCODING_NAME'} ne ''));
my $href = &$anchor('', $Texi2HTML::HREF{'This'}, $Texi2HTML::NAME{'This'});
my $string = gdt('The node you are looking for is at {href}.',
{ 'href' => $href });
my $doctype = get_conf('doctype');
my $css_text = '';
$css_text = $Texi2HTML::THISDOC{'CSS_LINES'} if (defined($Texi2HTML::THISDOC{'CSS_LINES'}));
#print $fh <<EOT;
my $result = <<EOT;
$doctype
<html>
<!-- Created on $Texi2HTML::THISDOC{'today'} by $Texi2HTML::THISDOC{'program'} -->
<!--
$Texi2HTML::THISDOC{'program_authors'}
-->
<head>
<title>$longtitle</title>
<meta name="description" content="$description">
<meta name="keywords" content="$longtitle">
<meta name="resource-type" content="document">
<meta name="distribution" content="global">
<meta name="Generator" content="$Texi2HTML::THISDOC{program}">
$encoding
$css_text
<meta http-equiv="Refresh" content="2; url=$Texi2HTML::HREF{'This'}">
$EXTRA_HEAD
</head>
<body $Texi2HTML::THISDOC{'BODYTEXT'}>
$AFTER_BODY_OPEN
<p>$string</p>
</body>
EOT
return $result;
}
sub html_default_uref($$)
{
shift;
my $args = shift;
my $url = shift @$args;
my $text = shift @$args;
my $replacement = shift @$args;
$url = main::normalise_space($url);
$replacement = '' if (!defined($replacement));
$replacement = main::normalise_space($replacement);
$text = '' if (!defined($text));
$text = main::normalise_space($text);
$text = $replacement if ($replacement ne '');
$text = $url unless ($text ne '');
return $text if ($url eq '');
return &$anchor('', $url, $text);
}
sub html_default_math($$)
{
shift;
my $args = shift;
my $text = shift @$args;
return "<em>$text</em>";
}
sub html_default_email($$)
{
my $command = shift;
my $args = shift;
my $mail = shift @$args;
my $text = shift @$args;
$mail = main::normalise_space($mail);
$text = $mail unless (defined($text) and ($text ne ''));
$text = main::normalise_space($text);
return $text if ($mail eq '');
return &$anchor('', "mailto:$mail", $text);
}
sub html_default_attribute_class($$)
{
my $element = shift;
my $class = shift;
return "<$element" if (!defined($class) or $class eq '' or $NO_CSS);
my $style = '';
if ($INLINE_CSS_STYLE and defined($css_map{"$element.$class"}))
{
$style = ' style="'.$css_map{"$element.$class"}.'"';
}
return "<$element class=\"$class\"$style";
}
# this is called each time a format begins. Here it is used to keep a
# record of the multitables to have a faithful count of the cell nr.
sub html_default_begin_format_texi($$$)
{
my $command = shift;
my $line = shift;
my $state = shift;
# first array element is the number of cell in a row
# second is the number of paragraphs in a cell
push (@html_default_multitable_stack, [-1,-1]) if ($command eq 'multitable');
return $line;
}
sub html_default_caption_shortcaption($)
{
my $float = shift;
my $caption_lines;
my $shortcaption_lines;
my $style = $float->{'style_texi'};
if (defined($float->{'nr'}))
{
my $nr = $float->{'nr'};
if ($style ne '')
{
$style = gdt('{style} {number}', { 'style' => $style, 'number' => $nr});
}
else
{
$style = $nr;
}
}
if (defined($float->{'caption_texi'}))
{
@$caption_lines = @{$float->{'caption_texi'}};
$caption_lines->[0] =~ s/^\s*//;
if (defined($style))
{
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . gdt('{style}: {caption_first_line}', { 'style' => $style, 'caption_first_line' => $caption_lines->[0] });
}
else
{
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $caption_lines->[0];
}
push @$caption_lines, "}\n";
}
elsif (defined($style))
{
$caption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $style . '}' . "\n";
}
if (defined($float->{'shortcaption_texi'}))
{
@$shortcaption_lines = @{$float->{'shortcaption_texi'}};
if (defined($style))
{
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . gdt('{style}: {shortcaption_first_line}', { 'style' => $style, 'shortcaption_first_line' => $shortcaption_lines->[0] });
}
else
{
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $shortcaption_lines->[0];
}
push @$shortcaption_lines, "}\n";
}
elsif (defined($style))
{
$shortcaption_lines->[0] = '@'.$CAPTION_STYLE.'{' . $style . '}' . "\n";
}
return ($caption_lines, $shortcaption_lines);
}
# everything is done in &$float
sub html_default_caption_shortcaption_command($$$$)
{
my $command = shift;
my $text = shift;
my $texi_lines = shift;
my $float_element = shift;
return '';
}
sub html_default_float($$$$$)
{
my $text = shift;
my $float = shift;
my $caption = shift;
my $shortcaption = shift;
my $label = '';
if (exists($float->{'id'}))
{
$label = &$anchor($float->{'id'});
}
my $caption_text = '';
if (defined($float->{'caption_texi'}))
{
$caption_text = $caption;
}
elsif (defined($float->{'shortcaption_texi'}))
{
$caption_text = $shortcaption;
}
elsif (defined($caption))
{
$caption_text = $caption;
}
return html_default_attribute_class('div','float'). '>' . "$label\n" . $text . '</div>' . $caption_text;
}
sub html_default_listoffloats_float_style($$)
{
my $style_texi = shift;
my $float = shift;
my $style = $float->{'style_texi'};
#print STDERR "listoffloat/float style mismatch $style_texi $style\n" if ($style_texi ne $style);
if (defined($float->{'nr'}))
{
my $nr = $float->{'nr'};
if ($style ne '')
{
$style = gdt('{style} {number}', { 'style' => $style, 'number' => $nr});
}
else
{
$style = $nr;
}
}
return $style;
}
sub html_default_listoffloats_caption($)
{
my $float = shift;
if (defined($float->{'shortcaption_texi'}))
{
return ([ @{$float->{'shortcaption_texi'}} ], 'shortcaption');
}
elsif (defined($float->{'caption_texi'}))
{
return ([ @{$float->{'caption_texi'}} ], 'caption');
}
return ([ ], undef);
}
sub html_default_listoffloats_entry($$$$)
{
my $style_texi = shift;
my $float = shift;
my $float_style = shift;
my $caption = shift;
my $href = shift;
return '<dt>' . &$anchor('', $href, $float_style) . '</dt><dd>' . $caption
. '</dd>' . "\n";
}
sub html_default_listoffloats($$$)
{
my $style_texi = shift;
my $style = shift;
my $float_entries = shift;
my $result = html_default_attribute_class('dl', 'listoffloats').">\n" ;
foreach my $float_entry (@$float_entries)
{
$result .= $float_entry;
}
return $result . "</dl>\n";
}
sub html_default_insertcopying($$$)
{
my $text = shift;
my $comment = shift;
my $simple_text = shift;
return $text;
}
sub html_default_protect_space_codebreak($$$$$)
{
my $text = shift;
my $in_raw_text = shift; # remove_texi
my $in_preformatted = shift;
my $in_code = shift;
my $style_stack = shift;
return $text if ($in_preformatted or $in_raw_text);
my $in_w = 1 if (in_cmd($style_stack, 'w'));
if ($in_w or ($in_code and get_conf('allowcodebreaks') eq 'false'))
{
my $class = 'nolinebreak';
$class = 'nocodebreak' if ($in_code and get_conf('allowcodebreaks') eq 'false');
my $open = html_default_attribute_class('span', $class).'>';
# protect spaces in the html leading attribute in case we are in 'w'
$open =~ s/ /\x{1F}/g if ($in_w);
$text =~ s/(\S*[_-]\S*)/${open}$1<\/span>/g;
}
if ($in_w)
{
$text .= ' ' if (chomp($text));
# protect spaces within text
$text =~ s/ / /g;
# revert protected spaces in leading html attribute
$text =~ s/\x{1F}/ /g;
}
return $text;
}
sub html_default_normal_text($$$$$$$;$)
{
my @initial_args = @_;
my $text = shift;
my $in_raw_text = shift; # remove_texi
my $in_preformatted = shift;
my $in_code = shift;
my $in_math = shift;
my $in_simple = shift;
my $style_stack = shift;
my $state = shift;
# like utf8.init
if ($ENABLE_ENCODING and !$ENABLE_ENCODING_USE_ENTITY and defined($Texi2HTML::THISDOC{'ENCODING_NAME'}) and $Texi2HTML::THISDOC{'ENCODING_NAME'} eq 'utf-8')
{
my $result = &t2h_utf8_normal_text(@initial_args);
$result = html_default_protect_space_codebreak($result, $in_raw_text, $in_preformatted, $in_code, $style_stack);
return $result;
}
$text = uc($text) if (in_cmd($style_stack, 'sc'));
$text = &$protect_text($text) unless($in_raw_text);
#$text =~ s/ / /g
# if (!$in_raw_text and !$in_preformatted and in_cmd($style_stack, 'w'));
if (! $in_code and !$in_preformatted)
{
if ($USE_ISO and !$in_raw_text)
{
$text =~ s/---/\&mdash\;/g;
$text =~ s/--/\&ndash\;/g;
$text =~ s/``/\&ldquo\;/g;
$text =~ s/''/\&rdquo\;/g;
}
else
{
if ($in_raw_text) #FIXME really do that ? It is done by makeinfo
{
$text =~ s/``/"/g;
$text =~ s/''/"/g;
}
else
{
$text =~ s/``/"/g;
$text =~ s/''/"/g;
# to be like texinfo
#$text =~ s/'/\&rsquo\;/g;
#$text =~ s/`/\&lsquo\;/g;
}
# FIXME really do that in raw text?
$text =~ s/---/\x{1F}/g;
$text =~ s/--/-/g;
$text =~ s/\x{1F}/--/g;
}
}
$text = html_default_protect_space_codebreak($text, $in_raw_text, $in_preformatted, $in_code, $style_stack);
$text = t2h_text_substitutions($text, $in_raw_text, ($in_preformatted or $in_code), $in_simple);
return $text;
}
# This function produces an anchor
#
# arguments:
# $name : anchor name
# $href : anchor href
# text : text displayed
# extra_attribs : added to anchor attributes list
sub html_default_anchor($;$$$)
{
my $name = shift;
my $href = shift;
my $text = shift;
my $attributes = shift;
my $class = '';
#print STDERR "!$name!$href!$text!$attributes!\n";
if (!defined($attributes) or ($attributes !~ /\S/))
{
$attributes = '';
}
else
{
if ($attributes =~ s/^class=\"([^\"]+)\"//)
{
$class = $1;
}
$attributes = ' ' . $attributes if ($attributes ne '');
}
$name = '' if (!defined($name) or ($name !~ /\S/));
$href = '' if (!defined($href) or ($href !~ /\S/));
$text = '' if (!defined($text));
return $text if (($name eq '') and ($href eq ''));
$name = "name=\"$name\"" if ($name ne '');
$href = "href=\"$href\"" if ($href ne '');
$href = ' ' . $href if (($name ne '') and ($href ne ''));
#print STDERR "!!!$name!$href!$text!$attributes!\n";
return html_default_attribute_class('a', $class). " ${name}${href}${attributes}>$text</a>";
}
# This function is used to format the text associated with a @deff/@end deff
#
# argument:
# text
#
# $DEF_TABLE should be used to distinguish between @def formatted as table
# and as definition lists.
sub html_default_def_item($$$)
{
my $text = shift;
my $only_inter_item_commands = shift;
my $command = shift;
if ($text =~ /\S/)
{
if (! $DEF_TABLE)
{
return '<dd>' . $text . '</dd>';# unless $only_inter_item_commands;
#return $text; # invalid without dd in ul
}
else
{
return '<tr><td colspan="2">' . $text . '</td></tr>';
}
}
return '';
}
# format the container for the @deffn line and text
#
# argument
# text of the whole @def, line and associated text.
#
# $DEF_TABLE should be used.
sub html_default_def($$)
{
my $text = shift;
my $command = shift;
if ($text =~ /\S/)
{
if (! $DEF_TABLE)
{
return "<dl>\n" . $text . "</dl>\n";
}
else
{
return "<table width=\"100%\">\n" . $text . "</table>\n";
}
}
return '';
}
# a whole menu
#
# argument:
# the whole menu text (entries and menu comments)
#
# argument:
# whole menu text.
sub html_default_menu_command($$$)
{
my $format = shift;
my $text = shift;
my $in_preformatted = shift;
$html_menu_entry_index=0;
my $begin_row = '';
my $end_row = '';
if ($in_preformatted)
{
$begin_row = '<tr><td>';
$end_row = '</td></tr>';
}
if ($text =~ /\S/)
{
return '' if ($format eq 'direntry');
return $text if ($format eq 'detailmenu');
return html_default_attribute_class('table', 'menu')." border=\"0\" cellspacing=\"0\">${begin_row}\n"
. $text . "${end_row}</table>\n";
}
}
# formats a menu entry link pointing to a node or section
#
# arguments:
# the entry text
# the state, a hash reference holding informations about the context, with a
# usefull entry, 'preformatted', true if we are in a preformatted format
# (a format keeping space between words). In that case a function
# of the main program, main::do_preformatted($text, $state) might
# be used to format the text with the current format style.
# href is optionnal. It is the reference to the section or the node anchor
# which should be used to make the link (typically it is the argument
# of a href= attribute in a <a> element).
sub html_default_menu_link($$$$$$$$)
{
my $element_name = shift;
my $state = shift;
my $href = shift;
my $node = shift;
my $title = shift;
my $ending = shift;
my $has_title = shift;
my $command_stack = shift;
my $preformatted = shift;
my $in_commands = 0;
$in_commands = 1 if ($command_stack->[-1] and $command_stack->[-1] ne 'menu' and $command_stack->[-1] ne 'detailmenu' and $command_stack->[-1] ne 'direntry');
$title = '' unless ($has_title);
#print STDERR "MENU_LINK($in_commands)($state->{'preformatted'})\n";
my $entry;
my $symbol = '';
if ($preformatted)
{
$title .= ':' if ($title ne '');
$entry = "$MENU_SYMBOL$title$node";
}
elsif ($element_name eq '' or $NODE_NAME_IN_MENU)
{
if ($has_title)
{
$entry = "$title";
}
else
{
$entry = "$node";
}
$entry =~ s/^\s*//;
$symbol = "$MENU_SYMBOL ";
}
else
{
$entry = $element_name;
}
$html_menu_entry_index++;
my $accesskey;
$accesskey = "accesskey=\"$html_menu_entry_index\"" if ($USE_ACCESSKEY and ($html_menu_entry_index < 10));
$entry = &$anchor ('', $href, $entry, $accesskey) if (defined($href));
return $entry.$ending if ($preformatted);
# FIXME conditionalise to not having a description
return "$symbol$entry$MENU_ENTRY_COLON" .' ' if ($in_commands);
return "<tr><td align=\"left\" valign=\"top\">$symbol$entry$MENU_ENTRY_COLON</td><td> </td>";
}
sub html_simplify_text($)
{
my $text = shift;
$text =~ s/[^\w]//og;
return $text;
}
# formats a menu entry description, ie the text appearing after the node
# specification in a menu entry an spanning until there is another
# menu entry, or empty line
#
# arguments:
# the description text
# the state. See menu_entry.
# the heading of the element associated with the node.
sub html_default_menu_description($$$$)
{
my $text = shift;
my $state = shift;
my $element_text = shift;
my $command_stack = shift;
my $preformatted = shift;
my $in_commands = 0;
$in_commands = 1 if ($command_stack->[-1] and $command_stack->[-1] ne 'menu' and $command_stack->[-1] ne 'detailmenu' and $command_stack->[-1] ne 'direntry');
return $text if ($preformatted);
return $text."<br>" if ($in_commands);
if ($AVOID_MENU_REDUNDANCY)
{
$text = '' if (html_simplify_text($element_text) eq html_simplify_text($text));
}
return "<td align=\"left\" valign=\"top\">$text</td></tr>\n";
}
sub html_teletyped_in_stack($)
{
my $stack = shift;
foreach my $element(reverse(@$stack))
{
return 1 if ($complex_format_map{$element} and
$complex_format_map{$element}->{'style'} and
$complex_format_map{$element}->{'style'} eq 'code');
}
return 0;
}
# text after @item in table, vtable and ftable
sub html_default_table_item($$$$$$$)
{
my $text = shift;
my $index_label = shift;
my $format = shift;
my $command = shift;
# my $formatted_command = shift;
my $style_stack = shift;
# my $text_formatted = shift;
# my $text_formatted_leading_spaces = shift;
# my $text_formatted_trailing_spaces = shift;
my $item_cmd = shift;
my $formatted_index_entry = shift;
# if (defined($text_formatted) and !exists $special_list_commands{$format}->{$command})
# {
# $text = $text_formatted_leading_spaces . $text_formatted .$text_formatted_trailing_spaces;
# }
# $formatted_command = '' if (!defined($formatted_command) or
# exists($special_list_commands{$format}->{$command}));
if (html_teletyped_in_stack($style_stack))
{
# $text .= '</tt>';
# $formatted_command = '<tt>' . $formatted_command;
$text = '<tt>' . $text . '</tt>';
}
$text .= "\n" . $index_label if (defined($index_label));
# return '<dt>' . $formatted_command . $text . '</dt>' . "\n";
return '<dt>' . $text . '</dt>' . "\n";
}
# format text on the line following the @item line (in table, vtable and ftable)
sub html_default_table_line($$$)
{
my $text = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
$only_inter_item_commands = '' if (!defined($only_inter_item_commands));
if ($text =~ /\S/)
{
return '<dd>' . $text . '</dd>' . "\n";# unless ($only_inter_item_commands);
#return $text; # invalid without dd in ul
}
return '';
}
#my $cell_nr = -1;
# row in multitable
sub html_default_row($$$$$$$$)
{
my $text = shift;
my $macro = shift;
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
$only_inter_item_commands = '' if (!defined($only_inter_item_commands));
# this is used to keep the cell number
$html_default_multitable_stack[-1]->[0] = -1;
if ($text =~ /\S/)
{
if ($macro eq 'headitem')
{
return '<thead><tr>' . $text . '</tr></thead>' . "\n";
}
return '<tr>' . $text . '</tr>' . "\n";
}
return '';
}
# cell in multitable
sub html_default_cell($$$$$$$$)
{
my $text = shift;
my $row_macro = shift;
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
$only_inter_item_commands = '' if (!defined($only_inter_item_commands));
$html_default_multitable_stack[-1]->[0]++;
my $cell_nr = $html_default_multitable_stack[-1]->[0];
my $fractions = '';
if (defined($columnfractions) and (ref($columnfractions) eq 'ARRAY')
and exists($columnfractions->[$cell_nr]))
{
my $fraction = sprintf('%d', 100*$columnfractions->[$cell_nr]);
$fractions = " width=\"$fraction%\"";
}
# in constructs like
# @strong{
# @multitable ....
# }
# the space won't be removed since the <strong> is put before the space.
$text =~ s/^\s*//;
$text =~ s/\s*$//;
if ($row_macro eq 'headitem')
{
return "<th${fractions}>" . $text . '</th>';
}
return "<td${fractions}>" . $text . '</td>';
}
sub html_default_format_list_item_texi($$$$$)
{
my $format = shift;
my $line = shift;
my $prepended = shift;
my $command = shift;
my $number = shift;
my $result_line;
my $open_command = 0;
if (defined($command) and $command ne '' and !exists $special_list_commands{$format}->{$command} and $format ne 'itemize')
{
#@*table
$open_command = 1;
$line =~ s/^\s*//;
$line =~ s/\s*$//;
if (exists ($style_map{$command}))
{
$result_line = "\@$command\{$line\}\n";
}
elsif (exists ($things_map{$command}))
{
$result_line = "\@$command\{\} $line\n";
}
else
{
$result_line = "\@$command $line\n";
}
}
elsif (defined($prepended) and $prepended ne '')
{
$prepended =~ s/^\s*//;
$prepended =~ s/\s*$//;
$line =~ s/^\s*//;
$result_line = $prepended . ' ' . $line;
}
return ($result_line, $open_command);
}
# format an item in a list
#
# argument:
# text of the item
# format of the list (itemize or enumerate)
# command passed as argument to the format
# formatted_command leading command formatted, if it is a thing command
sub html_default_list_item($$$$$$$$$$$)
{
my $text = shift;
my $format = shift;
my $command = shift;
my $formatted_command = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $prepended = shift;
my $prepended_formatted = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
$only_inter_item_commands = '' if (!defined($only_inter_item_commands));
$formatted_command = '' if (!defined($formatted_command) or
exists($special_list_commands{$format}->{$command}));
my $prepend = '';
# if (defined($prepended) and $prepended ne '')
# {
# $prepend = $prepended;
# }
# elsif ($formatted_command ne '')
if ($formatted_command ne '')
{
$prepend = $formatted_command;
}
if ($text =~ /\S/)
{
return '<li>' . $prepend . $text . '</li>';
}
return '';
}
sub html_default_table_list($$$$$$$$$)
{
my $format_command = shift;
my $text = shift;
my $command = shift;
my $formatted_command = shift;
# enumerate
my $item_nr = shift;
my $enumerate_style = shift;
# itemize
my $prepended = shift;
my $prepended_formatted = shift;
# multitable
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
# my $number = shift;
$formatted_command = '' if (!defined($formatted_command) or
exists($special_list_commands{$format}->{$command}));
if ($format_command eq 'itemize')
{
return "<ul>\n" . $text . "</ul>\n" if (($command eq 'bullet') or (($command eq '') and ($prepended eq '')));
return html_default_attribute_class('ul',$NO_BULLET_LIST_CLASS).">\n" . $text . "</ul>\n";
}
elsif ($format_command eq 'multitable')
{
pop @html_default_multitable_stack;
return &$format('multitable', 'table', $text);
}
}
# a paragraph
# arguments:
# $text of the paragraph
# $align for the alignement
# $indent for the indent style (indent or noindent)
# The following is usefull if the paragraph is in an itemize.
# $paragraph_command is the leading formatting command (like @minus)
# $paragraph_command_formatted is the leading formatting command formatted
# $paragraph_number is a reference on the number of paragraphs appearing
# in the format. The value should be increased if a paragraph is done
# $format is the format name (@itemize)
sub html_default_paragraph($$$$$$$$$$$$)
{
my $text = shift;
my $align = shift;
my $indent = shift;
my $paragraph_command = shift;
my $paragraph_command_formatted = shift;
my $paragraph_number = shift;
my $format = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $command_stack_at_end = shift;
my $command_stack_at_begin = shift;
#print STDERR "format: $format\n" if (defined($format));
#print STDERR "paragraph @$command_stack_at_end; @$command_stack_at_begin\n";
# $paragraph_command_formatted = '' if (!defined($paragraph_command_formatted) or
# exists($special_list_commands{$format}->{$paragraph_command}));
return '' if ($text =~ /^\s*$/);
if (defined($paragraph_number) and defined($$paragraph_number))
{
$$paragraph_number++;
return $text if (($format eq 'itemize' or $format eq 'enumerate') and
($$paragraph_number == 1));
}
my $top_stack = '';
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin));
if ($top_stack eq 'multitable')
{
$html_default_multitable_stack[-1]->[1]++;
if ($html_default_multitable_stack[-1]->[1] == 0)
{
return $text;
}
}
my $open = '<p>';
if ($align)
{
$open = "<p align=\"$paragraph_style{$align}\">";
}
return $open.$text.'</p>';
}
# a preformatted region
# arguments:
# $text of the preformatted region
# $pre_style css style
# $class identifier for the preformatted region (example, menu-comment)
# The following is usefull if the preformatted is in an itemize.
# $leading_command is the leading formatting command (like @minus)
# $leading_command_formatted is the leading formatting command formatted
# $preformatted_number is a reference on the number of preformatteds appearing
# in the format. The value should be increased if a preformatted is done
sub html_default_preformatted($$$$$$$$$$$$)
{
my $text = shift;
my $pre_style = shift;
my $class = shift;
my $leading_command = shift;
my $leading_command_formatted = shift;
my $preformatted_number = shift;
my $format = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $command_stack_at_end = shift;
my $command_stack_at_begin = shift;
#print STDERR "preformatted @$command_stack_at_end; @$command_stack_at_begin\n";
return '' if ($text eq '');
$leading_command_formatted = '' if (!defined($leading_command_formatted) or
exists($special_list_commands{$format}->{$leading_command}));
if (defined($preformatted_number) and defined($$preformatted_number))
{
$$preformatted_number++;
}
my $top_stack = '';
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin));
if ($top_stack eq 'multitable')
{
$text =~ s/^\s*//;
$text =~ s/\s*$//;
}
return html_default_attribute_class('pre', $class).">".$text."</pre>";
}
sub html_default_heading_text($$$)
{
my $command = shift;
my $text = shift;
my $level = shift;
return '' if ($text !~ /\S/);
# FIXME use a class=*contents?
my $class = '';
if ($command =~ /^@/ and $command !~ /^@.*contents$/)
{
$class = $command;
$class =~ s/^@//;
$class = 'node-heading' if ($command eq '@node');
}
my $align = '';
$align = ' align="center"' if ($command eq '@centerchap' or $command eq '@settitle');
$level = 1 if ($level == 0);
my $result = html_default_attribute_class ("h$level", $class) ."$align>$text</h$level>";
# FIXME titlefont appears inline in text, so no end of line is
# added. The end of line should be added by the user if needed.
$result .= "\n" unless ($command eq '@titlefont');
$result .= $DEFAULT_RULE . "\n" if ($command eq '@part' and defined($DEFAULT_RULE) and $DEFAULT_RULE ne '');
return $result;
}
sub html_default_heading_text_preformatted($$$)
{
my $command = shift;
my $text = shift;
my $level = shift;
return '' if ($text !~ /\S/);
return '<strong>'.$text.'</strong>'."\n";
}
# formatting of raw regions
# if L2H is true another mechanism is used for tex
sub html_default_raw($$;$)
{
my $style = shift;
my $text = shift;
my $line_nr = shift;
my $expanded = 1 if (grep {$style eq $_} @EXPAND);
if ($style eq 'verbatim' or $style eq 'verbatiminclude' or ($style eq 'tex' and $expanded))
{
$style = 'verbatim' if ($style eq 'verbatiminclude');
return html_default_attribute_class('pre', $style).">" . &$protect_text($text) . '</pre>';
}
elsif ($style eq 'html' and $expanded)
{
chomp ($text);
return $text;
}
elsif ($expanded)
{
main::line_warn (sprintf(__("Raw format %s is not converted"), $style), $line_nr);
return &$protect_text($text);
}
else
{
return '';
}
}
# This function formats a footnote reference and the footnote text associated
# with a given footnote.
# The footnote reference is the text appearing in the main document pointing
# to the footnote text.
#
# arguments:
# absolute number of the footnote (in the document)
# relative number of the footnote (in the page)
# identifier for the footnote
# identifier for the footnote reference in the main document
# main document file
# footnote text file
# array with the footnote text lines
# the state. See menu entry.
#
# returns:
# reference on an array containing the footnote text lines which should
# have been updated
# the text for the reference pointing on the footnote text
sub html_default_foot_line_and_ref($$$$$$$$$)
{
my $number_in_doc = shift;
my $number_in_page = shift;
my $footnote_id = shift;
my $place_id = shift;
my $document_file = shift;
my $footnote_file = shift;
my $lines = shift;
my $document_state = shift;
if ($document_file eq $footnote_file)
{
$document_file = $footnote_file = '';
}
$number_in_doc = $NO_NUMBER_FOOTNOTE_SYMBOL if (!$NUMBER_FOOTNOTES);
unshift (@$lines, '<h3>' .
&$anchor($footnote_id, $document_file . "#$place_id",
"($number_in_doc)")
. "</h3>\n");
# this is a bit obscure, this allows to add an anchor only if formatted
# as part of the document.
#$place_id = '' if ($document_state->{'outside_document'} or $document_state->{'multiple_pass'} or $document_state->{'expansion'});
$place_id = '' if ($document_state->{'outside_document'} or (defined($document_state->{'multiple_pass'}) and $document_state->{'multiple_pass'} > 0));
return ($lines, &$anchor($place_id, $footnote_file . "#$footnote_id",
"($number_in_doc)"));
}
# formats a group of footnotes.
#
# argument:
# array reference on the footnotes texts lines
#
# returns an array reference on the group of footnotes lines
sub html_default_foot_section($)
{
my $lines = shift;
unshift (@$lines, html_default_attribute_class('div', 'footnote').">\n" ,"$DEFAULT_RULE\n",
&$heading_text('footnotes', gdt('Footnotes'), 3)
);
push (@$lines, "</div>\n");
return $lines;
}
sub html_default_image_files($$$$)
{
my $base = shift;
my $extension = shift;
my $texi_base = shift;
my $texi_extension = shift;
my @files = ();
return @files if (!defined($base) or ($base eq ''));
if (defined($extension) and ($extension ne ''))
{
push @files,["$base.$extension", "$texi_base.$texi_extension"];
}
foreach my $ext (@IMAGE_EXTENSIONS)
{
push @files,["$base.$ext", "$texi_base.$ext"];
}
return @files;
}
# format an image
#
# arguments:
# image file name with path
# image basename
# a boolean true if we are in a preformatted format
# image file name without path
# alt text
# width
# height
# raw alt
# extension
# path to working dir
# path to file relative from working dir
sub html_default_image($$$$$$$$$$$$$$$$$)
{
my $file = shift;
my $base = shift;
my $preformatted = shift;
my $file_name = shift;
my $alt = shift;
my $width = shift;
my $height = shift;
my $raw_alt = shift;
my $extension = shift;
my $working_dir = shift;
my $file_path = shift;
my $in_paragraph = shift;
my $file_locations = shift;
my $base_simple_format = shift;
my $extension_simple_format = shift;
my $file_name_simple_format = shift;
my $line_nr = shift;
if (!defined($file_path) or $file_path eq '')
{
if (defined($extension) and $extension ne '')
{
$file = "$base.$extension";
}
else
{
$file = "$base.jpg";
}
main::line_warn (sprintf(__("\@image file `%s' (for HTML) not found, using `%s'"), $base, $file), $line_nr);
}
elsif (! $COMPLETE_IMAGE_PATHS)
{
$file = $file_name;
}
$alt = &$protect_text($base) if (!defined($alt) or ($alt eq ''));
return "[ $alt ]" if ($preformatted);
# it is possible that $file_name is more correct as it allows the user
# to chose the relative path.
$file = &$protect_text($file);
return "<img src=\"$file\" alt=\"$alt\">";
}
# format a target in the main document for an index entry.
#
# arguments:
# target identifier
# boolean true if in preformatted format
# FIXME document the remaining
sub html_default_index_entry_label($$$$$$$$$)
{
my $identifier = shift;
my $preformatted = shift;
my $entry = shift;
my $index_name = shift;
my $index_command = shift;
my $texi_entry = shift;
my $formatted_entry = shift;
my $in_region_not_in_output = shift;
my $index_entry_ref = shift;
return '' if (!defined($identifier) or ($identifier !~ /\S/));
my $label = &$anchor($identifier);
return $label . "\n" if (!$preformatted);
return $label;
}
sub html_default_index_entry_command($$$$$$)
{
my $command = shift;
my $index_name = shift;
my $label = shift;
my $entry_texi = shift;
my $entry_formatted = shift;
my $index_entry_ref = shift;
return $label;
}
# process definition commands line @deffn for example
sub html_default_def_line($$$$$$$$$$$$$$$$)
{
my $category_prepared = shift;
my $name = shift;
my $type = shift;
my $arguments = shift;
my $index_label = shift;
my $arguments_array = shift;
my $arguments_type_array = shift;
my $unformatted_arguments_array = shift;
my $command = shift;
my $class_name = shift;
my $category = shift;
my $class = shift;
my $style = shift;
my $original_command = shift;
$index_label = '' if (!defined($index_label));
chomp($index_label);
$category_prepared = '' if (!defined($category_prepared) or ($category_prepared =~ /^\s*$/));
$name = '' if (!defined($name) or ($name =~ /^\s*$/));
$type = '' if (!defined($type) or $type =~ /^\s*$/);
if (!defined($arguments) or $arguments =~ /^\s*$/)
{
$arguments = '';
}
else
{
chomp ($arguments);
$arguments = '<em>' . $arguments . '</em>';
}
my $type_name = '';
$type_name = " <em>$type</em>" if ($type ne '');
$type_name .= ' <strong>' . $name . '</strong>' if ($name ne '');
$type_name .= $arguments;
if (! $DEF_TABLE)
{
return '<dt>'. $index_label. $category_prepared . ':' . $type_name . "</dt>\n";
}
else
{
return "<tr><td align=\"left\">" . $type_name .
"</td><td align=\"right\">" . $category_prepared . $index_label . "</td></tr>\n";
}
}
# a cartouche
sub html_default_cartouche($$)
{
my $text = shift;
if ($text =~ /\S/)
{
return html_default_attribute_class('table', 'cartouche')." border=\"1\"><tr><td>\n" . $text . "</td></tr></table>\n";
}
return '';
}
sub html_default_sp($$)
{
my $number = shift;
my $preformatted = shift;
return "<br>\n" x $number if (!$preformatted);
return "\n" x $number;
}
sub html_default_acronym_like($$$$$$)
{
my $command = shift;
my $acronym_texi = shift;
my $acronym_text = shift;
my $with_explanation = shift;
my $explanation_lines = shift;
my $explanation_text = shift;
my $explanation_simply_formatted = shift;
my $attribute = $command;
my $opening = "<$attribute>";
if (defined($explanation_simply_formatted))
{
$opening = "<$attribute title=\"$explanation_simply_formatted\">";
}
if ($with_explanation)
{
return gdt('{acronym_like} ({explanation})', {'acronym_like' => $opening . $acronym_text . "</$attribute>", 'explanation' => $explanation_text},{'duplicate'=>1})
}
else
{
return $opening . $acronym_text . "</$attribute>";
}
}
sub html_default_quotation($$$$$)
{
my $command = shift;
my $text = shift;
my $argument_text = shift;
my $argument_text_texi = shift;
my $authors = shift;
my $class = '';
$class = $command if ($command ne 'quotation');
my $attribution = '';
if ($authors)
{
foreach my $author (@$authors)
{
my $author_texi = $author->{'author_texi'};
chomp($author_texi);
$attribution .= gdt("\@center --- \@emph{{author}}\n", {'author' => $author_texi}, {'duplicate' => 1, 'allow_paragraph' => 1});
}
}
return html_default_attribute_class('blockquote', $class).">\n" . $text ."</blockquote>\n" . $attribution;
}
# format a whole index
#
# argument:
# index text
# index name
sub html_default_print_index($$)
{
my $text = shift;
my $name = shift;
return '' if (!defined($text));
return html_default_attribute_class('table', "index-$name")." border=\"0\">\n" .
"<tr><td></td><th align=\"left\">" . gdt('Index Entry') . "</th><td> </td><th align=\"left\"> " . gdt('Section') . "</th></tr>\n"
. "<tr><td colspan=\"4\"> $DEFAULT_RULE</td></tr>\n" . $text .
"</table>\n";
}
# format a letter entry in an index page. The letter entry contains
# the index entries for the words beginning with that letter. It is
# a target for links pointing from the summary of the index.
#
# arguments:
# the letter
# identifier for the letter entry. This should be used to make the target
# identifier
# text of the index entries
sub html_default_index_letter($$$)
{
my $letter = shift;
my $id = shift;
my $text = shift;
return $text if ($letter =~ /^\s*$/);
return '<tr><th>' . &$anchor($id,'',&$normal_text($letter, 0, 0, 0, 0, 0, [])) .
"</th><td></td><td></td></tr>\n" . $text .
"<tr><td colspan=\"4\"> $DEFAULT_RULE</td></tr>\n";
}
# format an index entry (in a letter entry).
#
# arguments:
# href to the main text, linking to the place where the index entry appears
# entry text
# href to the main text, linking to the section or node where the index
# entry appears
# section or node heading
sub html_default_index_entry($$$$$$$$$$)
{
my $text_href = shift;
my $entry = shift;
my $element_href = shift;
my $element_text = shift;
my $entry_file = shift;
my $current_element_file = shift;
my $entry_target = shift;
my $entry_element_target = shift;
my $in_region_not_in_output = shift;
my $index_entry_ref = shift;
return '' if ($entry !~ /\S/);
my $element = $index_entry_ref->{'real_element'};
if (defined($element))
{
my $element_set = 0;
if ($NODE_NAME_IN_INDEX)
{
if ($element->{'node'})
{
$element_set = 1;
}
elsif ($element->{'with_node'})
{
$element = $element->{'with_node'};
$element_set = 1;
}
}
elsif (defined($NODE_NAME_IN_INDEX))
{
if (!$element->{'node'})
{
$element_set = 1;
}
elsif ($element->{'with_section'})
{
$element = $element->{'with_section'};
$element_set = 1;
}
}
if ($element_set)
{
$element_href = main::href($element, $Texi2HTML::THIS_ELEMENT->{'file'},
$Texi2HTML::THISDOC{'line_nr'});
$element_text = $element->{'text'};
}
}
return '<tr><td></td><td valign="top">' . &$anchor('', $text_href, $entry)
. $INDEX_ENTRY_COLON . '</td><td> </td><td valign="top">' . &$anchor('', $element_href, $element_text)
. "</td></tr>\n";
}
# format an index summary. This is a list of letters linking to the letter
# entries.
#
# arguments:
# array reference containing the formatted alphabetical letters
# array reference containing the formatted non lphabetical letters
sub html_default_index_summary($$)
{
my $alpha = shift;
my $nonalpha = shift;
my $join = '';
my $nonalpha_text = '';
my $alpha_text = '';
$join = " \n<br>\n" if (@$nonalpha and @$alpha);
if (@$nonalpha)
{
$nonalpha_text = join("\n \n", @$nonalpha) . "\n";
}
if (@$alpha)
{
$alpha_text = join("\n \n", @$alpha) . "\n \n";
}
return "<table><tr><th valign=\"top\">" . gdt('Jump to') .": </th><td>" .
$nonalpha_text . $join . $alpha_text . "</td></tr></table>\n";
}
sub html_default_element_label($$$$)
{
my $id = shift;
my $element = shift;
my $command = shift;
my $line = shift;
return &$anchor($id) . "\n";
}
sub html_default_misc_element_label($$)
{
my $id = shift;
my $misc_page_name = shift;
return &$anchor($id) . "\n";
}
sub html_default_anchor_label($$$$)
{
my $id = shift;
my $anchor_text = shift;
my $anchor_reference = shift;
my $in_special_region = shift;
return &$anchor($id);
}
sub html_default_tab_item_texi($$$$$$)
{
my $command = shift;
my $commands_stack = shift;
my $stack = shift;
my $state = shift;
my $line = shift;
my $line_nr = shift;
if (defined($commands_stack) and @$commands_stack and $commands_stack->[-1] eq 'multitable' and @html_default_multitable_stack)
{
$html_default_multitable_stack[-1]->[1] = -1;
}
return undef;
}
sub html_default_line_command($$$$)
{
my $command = shift;
my $arg_text = shift;
my $arg_texi = shift;
my $state = shift;
return '' if ($arg_text eq '' or ($command eq 'author' and (!$state->{'region'} or $state->{'region'} ne 'titlepage')));
my $style = $line_command_map{$command};
if ($style)
{
my $attribute_text = '';
if ($style =~ /^(\w+)(\s+.*)/)
{
$style = $1;
$attribute_text = $2;
}
$arg_text = "<${style}$attribute_text>$arg_text</$style>";
}
$arg_text .= "<br>" if ($command eq 'author');
$arg_text .= "\n";
return $arg_text;
}
1;
require "$T2H_HOME/formats/html.init"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/formats/html.init" && -r "$T2H_HOME/formats/html.init");
# @INIT_INFO@
# vim: set filetype=perl:
#
#+##############################################################################
#
# info.init: convert to info
#
# Copyright (C) 2008, 2009 Patrice Dumas <pertusus@free.fr>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301 USA
#
# Some error messages come from texinfo (makeinfo), so copyright holder
# is the FSF or the individual who wrote them. All come from before the
# switch of texinfo to GPLv3+.
#
#-##############################################################################
use Data::Dumper;
use strict;
$Data::Dumper::Maxdepth = 25;
my %info_default_indented_commands;
my %info_default_format;
my %info_default_enable_encoding_accents;
my @simple_quoted_commands;
my @asis_commands;
my @chevron_commands;
my %info_default_accent_commands = ();
my %info_default_leaf_command = ();
my $info_default_end_sentence_character;
my $info_default_after_punctuation_characters;
my $info_default_indent_length;
my %info_default_indent_format_length;
my $info_default_index_length_to_node;
my $info_default_listoffloat_caption_entry_length;
my $info_default_listoffloat_append;
my %info_default_index_entries_counts;
sub info_default_load(;$)
{
my $from_command_line = shift;
t2h_default_set_variables_default();
$USE_SECTIONS = 0;
$USE_NODES = 1;
#set_conf('SPLIT', 0, 1);
$SPLIT = '';
@T2H_FORMAT_EXPAND = ('info', 'direntry');
$EXTENSION = 'info';
$SHOW_MENU = 1;
$SHOW_TITLE = 0;
$USE_SETFILENAME_EXTENSION = 1;
$INLINE_INSERTCOPYING = 1;
$SIMPLE_MENU = 1;
$MENU_SYMBOL = '*';
$USE_ISO = 0;
$ENABLE_ENCODING_USE_ENTITY = 0;
$ENABLE_ENCODING = 1;
@IMAGE_EXTENSIONS = ('png', 'jpg', 'txt');
$CAPTION_STYLE = 'asis';
$DEFAULT_ENCODING = 'ascii';
$HEADERS = 1;
$INLINE_CONTENTS = 0;
$no_paragraph_commands{'anchor'} = 1;
%simple_map = %default_simple_map;
%simple_map_pre = %simple_map;
%simple_map_texi = %simple_map;
%things_map = %default_things_map;
%pre_map = %things_map;
%line_command_map = (
'dircategory' => ''
);
# sc and var upcase.
@simple_quoted_commands = ('cite', 'code', 'command', 'env', 'file', 'kbd',
'option', 'samp');
@asis_commands = ('asis', 'w', 'b', 'ctrl', 'i', 'math', 'sc', 't', 'r',
'slanted', 'sansserif', 'var', 'titlefont', 'verb', 'clickstyle',
'headitemfont');
@chevron_commands = ('key', 'indicateurl');
%info_default_accent_commands = ();
%info_default_leaf_command = ();
%style_map = ();
t2h_default_copy_style_map (\%default_style_map, \%style_map);
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents), keys(%accent_map))
{
$info_default_accent_commands{$accent_command} = 1;
$style_map{$accent_command} = { 'function' => \&info_default_accent };
}
foreach my $command (keys(%style_map))
{
delete $style_map{$command}->{'quote'} if (exists($style_map{$command}->{'quote'}));
if (grep {$_ eq $command} @simple_quoted_commands)
{
delete $style_map{$command}->{'function'} if (exists($style_map{$command}->{'function'}));
$style_map{$command}->{'begin'} = '`';
$style_map{$command}->{'end'} = "'";
next;
}
elsif (grep {$_ eq $command} @asis_commands)
{
delete $style_map{$command}->{'function'} if (exists($style_map{$command}->{'function'}));
delete $style_map{$command}->{'begin'} if (exists($style_map{$command}->{'begin'}));
delete $style_map{$command}->{'end'} if (exists($style_map{$command}->{'end'}));
}
if (grep {$_ eq $command} @chevron_commands)
{
delete $style_map{$command}->{'function'} if (exists($style_map{$command}->{'function'}));
$style_map{$command}->{'begin'} = '<';
$style_map{$command}->{'end'} = '>';
next;
}
$info_default_leaf_command{$command} = 1 if ($style_map{$command}->{'type'} and $style_map{$command}->{'type'} eq 'simple_style');
}
$style_map{'strong'}->{'begin'} = '*';
$style_map{'strong'}->{'end'} = '*';
$style_map{'dfn'}->{'begin'} = '"';
$style_map{'dfn'}->{'end'} = '"';
$style_map{'emph'}->{'begin'} = '_';
$style_map{'emph'}->{'end'} = '_';
foreach my $command (keys(%info_default_leaf_command))
{
if (defined ($style_map{$command}->{'args'}))
{
$style_map{$command}->{'orig_args'} = [ @{$style_map{$command}->{'args'}} ];
}
else
{
$style_map{$command}->{'orig_args'} = [ 'normal' ];
}
$style_map{$command}->{'args'} = [];
foreach my $arg (@{$style_map{$command}->{'orig_args'}})
{
push @{$style_map{$command}->{'args'}}, 'keep';
}
}
$style_map{'uref'}->{'function'} = \&info_default_uref;
$style_map{'url'}->{'function'} = \&info_default_uref;
$style_map{'email'}->{'function'} = \&info_default_email;
%style_map_pre = ();
%style_map_texi = ();
t2h_default_copy_style_map (\%style_map, \%style_map_pre);
t2h_default_copy_style_map (\%style_map, \%style_map_texi);
$special_list_commands{'itemize'} = {};
%info_default_indent_format_length = ('enumerate' => 2,
'itemize' => 3,
'table' => 0,
'vtable' => 0,
'ftable' => 0,
);
%format_map = ();
foreach my $format ('group', 'raggedright', 'cartouche')
{
$format_map{$format} = '';
}
foreach my $menu_command('menu', 'detailmenu', 'direntry', 'menu_comment')
{
$complex_format_map{$menu_command} = {'begin' => '' , 'end' => ''};
}
foreach my $command (keys (%complex_format_map), keys(%info_default_indent_format_length), 'quotation', 'smallquotation', 'deff_item', 'deff_itemx')
{
$info_default_indented_commands{$command} = 1;
}
foreach my $command (keys(%info_default_indented_commands), 'multitable', 'float', 'flushright', 'flushleft', 'center')
{
$info_default_format{$command} = 1;
}
# it doesn't change anything for multitable
foreach my $non_indented_command('format', 'smallformat', 'menu',
'detailmenu', 'direntry', 'multitable')
{
$info_default_indented_commands{$non_indented_command} = 0;
}
$info_default_end_sentence_character = quotemeta($punctuation_characters);
$info_default_after_punctuation_characters = quotemeta($after_punctuation_characters);
$info_default_indent_length = 5;
$info_default_index_length_to_node = 41;
$info_default_listoffloat_caption_entry_length = 41;
#$info_default_listoffloat_append = '...: ';
$info_default_listoffloat_append = '...';
t2h_default_push_handler(\&info_default_init_accent_enable_encoding, \@command_handler_init);
t2h_default_push_handler(\&info_default_init_variables, \@command_handler_init);
$style = \&info_default_style;
$print_page_head = \&info_default_print_page_head;
$contents = \&info_default_noop;
$shortcontents = \&info_default_noop;
$about_body = \&info_default_noop;
$print_Footnotes = \&info_default_noop;
$copying_comment = \&info_default_copying_comment;
$element_heading = \&info_default_element_heading;
$heading = \&info_default_heading;
$normal_text = \&info_default_normal_text;
$paragraph = \&info_default_paragraph;
$preformatted = \&info_default_preformatted;
$empty_preformatted = \&info_default_preformatted;
$empty_line = \&info_default_empty_line;
# maybe should not be called from the main program?
$print_page_foot = \&info_default_print_page_foot;
$print_Top_footer = \&info_default_print_Top_footer;
$print_Top = \&info_default_print_section;
$print_section = \&info_default_print_section;
$end_section = \&info_default_end_section;
$one_section = \&info_default_one_section;
$begin_format_texi = \&info_default_begin_format_texi;
$begin_style_texi = \&info_default_begin_style_texi;
$begin_paragraph_texi = \&info_default_begin_paragraph_texi;
$simple_command = \&info_default_simple_command;
$thing_command = \&info_default_thing_command;
$begin_special_region = \&info_default_begin_special_region;
$end_special_region = \&info_default_end_special_region;
$anchor_label = \&info_default_anchor_label;
$element_label = \&info_default_noop;
$menu_link = \&info_default_menu_link;
#$menu_command = \&info_default_menu_command;
$complex_format = \&info_default_complex_format;
$quotation = \&info_default_quotation;
$misc_command_line = \&info_default_misc_commands;
$external_ref = \&info_default_external_ref;
$internal_ref = \&info_default_internal_ref;
$image = \&info_default_image;
$image_files = \&info_default_image_files;
$index_summary = \&info_default_index_summary;
$summary_letter = \&info_default_summary_letter;
$index_entry = \&info_default_index_entry;
$index_entry_command = \&t2h_default_index_entry_command;
$index_letter = \&info_default_index_letter;
$printindex = \&info_default_printindex;
$print_index = \&info_default_print_index;
$index_entry_label = \&info_default_index_entry_label;
$foot_section = \&info_default_foot_lines;
$foot_line_and_ref = \&info_default_foot_line_and_ref;
$footnote_texi = \&info_default_footnote_texi;
$list_item = \&info_default_list_item;
$format_list_item_texi = \&info_default_format_list_item_texi;
$format = \&info_default_format;
$tab_item_texi = \&info_default_tab_item_texi;
$acronym_like = \&info_default_acronym_like;
$sp = \&info_default_sp;
$paragraph_style_command = \&info_default_paragraph_style_command;
$cell = \&info_default_cell;
$row = \&info_default_row;
$table_list = \&info_default_table_list;
$def_item = \&info_default_def_item;
$def = \&info_default_def;
$def_line = \&info_default_def_line;
$float = \&info_default_float;
$listoffloats_entry = \&info_default_listoffloats_entry;
$listoffloats = \&info_default_listoffloats;
$colon_command = \&info_default_colon_command;
$raw = \&info_default_raw;
$line_command = \&info_default_line_command;
$comment = \&t2h_default_comment;
$unknown_style = \&info_default_unknown_style;
$heading_text = \&t2h_default_heading_text;
}
my %info_default_state_map = ();
my $info_default_out_file_nr = 1;
my $info_default_dir_specification = '';
my @info_default_pending_indirect = ();
my @info_default_pending_footnotes = ();
my $info_default_state_nr = 0;
# maximal length of index entries line number information. Each entry is
# an index name.
my %info_default_index_line_string_length = ();
my %info_default_index_entries = ();
my $info_default_footnote_index = 0;
my $info_default_current_node = undef;
my %info_default_command_handler_expand;
sub info_default_intercept_handler
{
my $command = $_[0];
my $result = &{$info_default_command_handler_expand{$command}}(@_);
return info_default_store_text (undef, $result, $command);
}
sub info_default_init_variables()
{
%info_default_state_map = ();
$info_default_out_file_nr = 1;
$info_default_dir_specification = '';
@info_default_pending_indirect = ();
@info_default_pending_footnotes = ();
$info_default_state_nr = 0;
%info_default_index_line_string_length = ();
%info_default_index_entries = ();
$info_default_footnote_index = 0;
$info_default_current_node = undef;
$Texi2HTML::THISDOC{'SPLIT'} = 0 if ($OUTPUT_FORMAT eq 'info');
$FRAMES = 0 if ($OUTPUT_FORMAT eq 'info');
foreach my $command (keys (%command_handler))
{
if ($command_handler{$command}->{'expand'})
{
$info_default_command_handler_expand{$command} = $command_handler{$command}->{'expand'};
$command_handler{$command}->{'expand'} = \&info_default_intercept_handler;
}
}
}
# this is put in command_handler_init such that it sets things right
# in case $ENABLE_ENCODING is set and has lead to modification of the
# accent functions
sub info_default_init_accent_enable_encoding()
{
return unless ($ENABLE_ENCODING and $USE_UNICODE);
foreach my $key (keys(%unicode_accents), 'dotless')
{
$info_default_enable_encoding_accents{$key} = 1;
$t2h_enable_encoding_default_accent{'normal'}->{$key} = \&t2h_default_accent;
$t2h_enable_encoding_default_accent{'texi'}->{$key} = \&t2h_default_accent;
$t2h_enable_encoding_default_accent{'pre'}->{$key} = \&t2h_default_accent;
$style_map{$key}->{'function'} = \&info_default_accent;
$style_map_texi{$key}->{'function'} = \&info_default_accent;
$style_map_pre{$key}->{'function'} = \&info_default_accent;
}
}
sub info_default_uref($$)
{
shift;
my $args = shift;
my $url = shift @$args;
my $text = shift @$args;
my $replacement = shift @$args;
$url = main::normalise_space($url);
$replacement = '' if (!defined($replacement));
$replacement = main::normalise_space($replacement);
return $replacement if ($replacement ne '');
$text = '' if (!defined($text));
$text = main::normalise_space($text);
return "`$url'" if ($text eq '');
return "$text ($url)";
}
sub info_default_email($$)
{
my $command = shift;
my $args = shift;
my $mail = shift @$args;
my $text = shift @$args;
$mail = main::normalise_space($mail);
$text = '' if (!defined($text));
$text = main::normalise_space($text);
$mail = "<$mail>";
return $mail unless ($text ne '');
return "$text $mail";
}
sub info_default_accent($$$)
{
my @args = @_;
my $command = shift;
my $args = shift;
my $text = $args->[0];
my $style_stack = shift;
my $state = shift;
my $result;
if ($ENABLE_ENCODING and $info_default_enable_encoding_accents{$command})
{
$result = &t2h_enable_encoding_normal_accent(@args);
}
else
{
$result = &t2h_default_accent(@args);
}
if (scalar(@$style_stack) and $info_default_accent_commands{$style_stack->[-1]})
{ # still more accents on the stack
return $result;
}
return info_default_store_text($state,$result,'accents_commands');
}
sub info_default_noop
{
return '';
}
sub info_default_copying_comment($$$$)
{
my $copying_lines = shift;
my $copying_text = shift;
my $copying_no_texi = shift;
my $copying_simple_text = shift;
return '' if ($copying_text eq '');
return $copying_text;
}
sub info_default_byte_count($)
{
my $string = shift;
my $out_encoding = Texi2HTML::Config::get_conf('OUT_ENCODING');
if ($out_encoding and lc($out_encoding) ne 'us-ascii' and $USE_UNICODE)
{
return length (Encode::encode($out_encoding, $string));
}
# There is no default encoding. We assume it is us-ascii. Not sure
# about what perl thinks it is...
#print STDERR "Unknown encoding for: $string\n" if (!$out_encoding);
return length($string);
}
sub info_default_count_lines($;$$)
{
my $text = shift;
my $indent_length = shift;
my $indentation_done = shift;
my $blank_line;
my $no_indentation = 0;
if (!defined($indentation_done) or $indentation_done)
{
$no_indentation = 1;
$indent_length = 0;
}
my @lines = split /^/, $text;
# don't accept empty text.
@lines = ('') if (!@lines);
my $line_passed = scalar(@lines);
$line_passed-- if ($line_passed);
my $end_of_line = 0;
if (($#lines > 1) and !$end_of_line and ($lines[-1] !~ /\S/) and ($lines[-2] !~ /\S/))
{
$blank_line = 1;
}
my $last_line = $lines[-1];
my $indented_text = shift (@lines);
#print STDERR "COUNT info_default_count_lines(i_done $no_indentation, i_l $indent_length) i_t `$indented_text'\n";
foreach my $line (@lines)
{
if ($indent_length and $line =~ /\S/)
{
$indented_text .= ' ' x $indent_length . $line;
}
else
{
$indented_text .= $line;
}
}
if (chomp($text))
{
$line_passed++;
$end_of_line = 1;
}
return ($line_passed, $end_of_line, $last_line, $indented_text, $blank_line);
}
sub info_default_get_state($)
{
my $state = shift;
if (!exists $info_default_state_map{$state})
{
#print STDERR "NEW state $info_default_state_nr\n";
my ($current_command, $top_stack);
$info_default_state_map{$state} = {};
info_default_reset_state($info_default_state_map{$state});
# since the page head always leave a blank line, and the state may be
# used for text right after the page head, we set it to 1 here.
# it may be wrong in other contexts, to be seen.
$info_default_state_map{$state}->{'blank_line'} = 1;
$info_default_state_map{$state}->{'only_spaces'} = 1;
# this is the first line, so set to 1. This is reset later in
# most cases, when a node is seen, but may still be useful in
# @footnote, for example
$info_default_state_map{$state}->{'line_count'} = 1;
$info_default_state_map{$state}->{'offset_in_file'} = 0;
$info_default_state_map{$state}->{'nr'} = $info_default_state_nr;
$info_default_state_map{$state}->{'state'} = $state;
$info_default_state_map{$state}->{'multitable_stack'} = [];
@{$info_default_state_map{$state}->{'align_stack'}} = ({'command'=>'normal'});
$info_default_state_nr++;
}
#print STDERR "RETURN state $state $info_default_state_map{$state} $info_default_state_map{$state}->{'nr'}\n";
return $info_default_state_map{$state};
}
sub info_default_reset_state($)
{
my $info_state = shift;
$info_state->{'top'} = {};
$info_state->{'current'} = $info_state->{'top'};
}
sub info_default_iterator_next($$$)
{
my $current_command = shift;
my $command_index = shift;
my $command_close = shift;
#print STDERR "NNNNNNNNNNNNNN iterator_next current $current_command idx $command_index close $command_close\n";
my $sub_command = $current_command->{'content'}->[$command_index];
if ($sub_command->{'content'} and !$command_close)
{
return ($sub_command, 0, 0);
}
if ($current_command->{'content'}->[$command_index+1])
{
return ($current_command, $command_index+1, 0);
}
elsif (defined($current_command->{'parent'}))
{
return ($current_command->{'parent'}, $current_command->{'index_in_parent'}, 1);
}
else
{
return (undef, undef, undef);
}
}
# return ($current_next, $index_next, $close_next, $text, $command);
#
# returns the next in tree, identified by the triplet
# ($current_next, $index_next, $close_next) and also the command
# and/or text if defined, in $text and $command.
sub info_default_next($$$)
{
my $current = shift;
my $index = shift;
my $close = shift;
my $text;
my $command;
my ($current_next, $index_next, $close_next) = info_default_iterator_next($current, $index, $close);
return ($current_next, $index_next, $close_next, $text, $command) if (!defined($current_next));
my $content = $current_next->{'content'}->[$index_next];
$command = $content->{'command'} if (defined($content->{'command'}));
if ($close_next)
{
return ($current_next, $index_next, $close_next, $content->{'end'}, $command);
}
if (defined($content->{'text'}))
{
return ($current_next, $index_next, $close_next, $content->{'text'}, $command);
}
if (defined($content->{'begin'}))
{
$text = $content->{'begin'};
}
if (defined($content->{'end'}) and !defined($content->{'content'}))
{
if (!defined($text))
{
$text = $content->{'end'};
}
else
{
$text .= $content->{'end'};
}
}
return ($current_next, $index_next, $close_next, $text, $command);
}
sub info_default_process_line_text($$$)
{
my $text = shift;
my $line_width_counter = shift;
my $indent_length = shift;
$indent_length = 0 if (!defined($indent_length));
my $line_passed = 0;
my $chomped_text = $text;
my $end_of_line = chomp($chomped_text);
if ($indent_length > $line_width_counter and $chomped_text ne '')
{
$text = ' ' x ($indent_length - $line_width_counter) . $text;
}
$line_width_counter += t2h_default_string_width($text);
# it seems like it never happens in the tests.
if ($end_of_line)
{
$line_passed = 1;
$line_width_counter = 0;
}
return ($line_width_counter, $line_passed, $text);
}
# Beware that there is a pending word if the text doesn't end with
# a space
sub info_default_process_para_text($$$$$;$$)
{
my $text = shift;
my $line_char_counter = shift;
my $pending_spaces_word = shift;
my $indent_length = shift;
my $max_column = shift;
my $keep_end_of_lines = shift;
$keep_end_of_lines = 0 if (!$keep_end_of_lines);
# indentation for the lines except for the first one
my $indent_length_next = shift;
$indent_length = 0 if (!defined($indent_length));
$indent_length_next = $indent_length if (!defined($indent_length_next));
my $line_passed = 0;
my $result = '';
#print STDERR "process_text(indent($indent_length,$indent_length_next),keep_eol $keep_end_of_lines) spaces `$pending_spaces_word->{'spaces'}') line_char_counter $line_char_counter |$text|\n";
while ($text ne '')
{
#print STDERR "l_c_c $line_char_counter pending_word ".var_to_str($pending_spaces_word->{'word'}).", pending_spaces `$pending_spaces_word->{'spaces'}', result `$result'\n";
if (!$keep_end_of_lines and $text =~ s/^(\s+)//)
{
my $new_spaces = $1;
# in general there are no end of lines in the lines cut, since they
# are replaced by spaces in the main loop. However, it may happen
# with @* in @def* lines
my @lines = split /^/, $new_spaces;
my $eol_spaces;
# last line is in $new_spaces, other lines are in $eol_spaces
if (@lines > 1)
{
$new_spaces = pop @lines;
$eol_spaces = join ("", @lines);
#print STDERR "EOL_SPACES[$line_char_counter](+$pending_spaces_word->{'spaces'}) `$eol_spaces'\n";
}
if (defined($pending_spaces_word->{'word'}))
{
# add spaces in front if needed for the indentation
if ($indent_length > $line_char_counter + t2h_default_string_width($pending_spaces_word->{'spaces'}))
{
$pending_spaces_word->{'spaces'} = ' ' x ($indent_length - $line_char_counter) . $pending_spaces_word->{'spaces'};
}
$result .= $pending_spaces_word->{'spaces'} . $pending_spaces_word->{'word'};
$line_char_counter += t2h_default_string_width($pending_spaces_word->{'spaces'})+t2h_default_string_width($pending_spaces_word->{'word'});
$pending_spaces_word->{'spaces'} = $new_spaces;
$pending_spaces_word->{'word'} = undef;
}
elsif (!$eol_spaces)
{
$pending_spaces_word->{'spaces'} .= $new_spaces;
}
if ($eol_spaces)
{
$result .= $eol_spaces;
$line_passed += scalar(@lines);
$indent_length = $indent_length_next;
$line_char_counter = 0;
$pending_spaces_word->{'spaces'} = '';
}
if ((t2h_default_string_width($pending_spaces_word->{'spaces'}) + $line_char_counter > $max_column))
{
$pending_spaces_word->{'spaces'} = '';
$result .= "\n";
$line_passed++;
$indent_length = $indent_length_next;
$line_char_counter = 0;
}
}
else
{
my $word;
if ($keep_end_of_lines)
{
$word = $text;
$text = '';
}
elsif ($text =~ s/^([^\s]+)//)
{
$word = $1;
}
#else
#{
# die "BUG: Impossible situation.\n";
#}
$pending_spaces_word->{'word'} = '' if (!defined($pending_spaces_word->{'word'}));
$pending_spaces_word->{'word'} .= $word;
# The $line_char_counter != 0 is here to cope with the case of a
# word longer than $line_char_counter followed by more text:
# a line would be passed each time some piece text is appended.
if ((t2h_default_string_width($pending_spaces_word->{'spaces'})+t2h_default_string_width($pending_spaces_word->{'word'}) + $line_char_counter > $max_column) and $line_char_counter != 0)
{
$pending_spaces_word->{'spaces'} = '';
$result .= "\n";
$line_passed++;
$indent_length = $indent_length_next;
$line_char_counter = 0;
}
}
}
return ($line_char_counter, $pending_spaces_word, $line_passed, $result)
}
sub info_default_skip_spaces($$$)
{
my $current = shift;
my $index = shift;
my $close = shift;
#print STDERR "SKIP_SPACES\n";
while(1)
{
my ($current_next, $index_next, $close_next) = info_default_iterator_next($current, $index, $close);
return if ($close_next or (!defined($current_next)));
my $content = $current_next->{'content'}->[$index_next];
if (defined($content->{'begin'}))
{
$content->{'begin'} =~ s/^\s*//;
#print STDERR "SKIP_SPACES begin\n";
return if ($content->{'begin'} ne '');
}
if (defined($content->{'content'}) or defined($content->{'format_name'})
or $content->{'definition_line'})
{ # non empty commands stop space skipping, even if they contain
# only spaces, like @asis{ }
# also for item(x) that have format_name defined
#print STDERR "SKIP_SPACES command?\n";
return;
}
if (defined($content->{'text'}))
{
my $command = '';
$command = $content->{'command'} if (defined($content->{'command'}));
#print STDERR "SKIP_SPACES($command) text\n";
$content->{'text'} =~ s/^\s*//;
return if ($content->{'text'} ne '');
}
if (defined($content->{'end'}))
{
#print STDERR "SKIP_SPACES end\n";
$content->{'end'} =~ s/^\s*//;
return if ($content->{'end'} ne '');
}
($current, $index, $close) = ($current_next, $index_next, $close_next);
}
}
sub info_default_store_pending($$;$)
{
my $line_char_counter = shift;
my $pending_spaces_word = shift;
my $indent_length = shift;
$indent_length = 0 if (!defined($indent_length));
my $indent_text = '';
$indent_text = ' ' x $indent_length;
#print STDERR "store_pending(spaces `$pending_spaces_word->{'spaces'}', indent($indent_length) `$indent_text' word `".var_to_str($pending_spaces_word->{'word'})."'\n";
my $result = $pending_spaces_word->{'spaces'};
$pending_spaces_word->{'spaces'} = '';
if (defined($pending_spaces_word->{'word'}))
{
$result .= $pending_spaces_word->{'word'};
$pending_spaces_word->{'word'} = undef;
}
my $chomped_result = $result;
chomp ($chomped_result);
if ($line_char_counter == 0 and $chomped_result ne '')
{
$result = $indent_text . $result;
}
$line_char_counter += t2h_default_string_width($result);
return ($line_char_counter, $pending_spaces_word, $result);
}
sub info_default_output($)
{
my $info_state = shift;
my $result = '';
#print STDERR "Storing the stack\n";
print STDERR "" . Data::Dumper->Dump([$info_state->{'top'}]) if ($DEBUG);
my ($bytes_count, $lines_count);
($bytes_count, $result, $lines_count) = info_default_process_content($info_state->{'top'}, $info_state);
$info_state->{'offset_in_file'} += $bytes_count;
$info_state->{'line_count'} += $lines_count;
#print STDERR "HHHHHH($lines_count) $info_state->{'line_count'}: $result\n";
info_default_reset_state($info_state)
if (!defined($info_state->{'current'}->{'command'}));
return $result;
}
sub info_default_process_content($$)
{
my $current_command = shift;
my $info_state = shift;
my $length = 0;
my $result = '';
my $line_char_counter = 0;
my $all_line_passed = 0;
my $pending_spaces_word;
$pending_spaces_word->{'spaces'} = '';
my $preformatted = 0;
my $indent_level = 0;
my $item_pending;
my $in_exdent = 0;
my $in_para = 0;
my $in_w = 0;
my $table_item_line = 0;
my $in_table_item = 0;
my $max_column = get_conf('fillcolumn');
my $direntry = 0;
my $preformatted_format = 0;
my $indent_length = 0;
# for formats that needs to process a full line (center and flushright)
# to know the line length before outputing
my $current_line = undef;
my ($current, $index, $close) = ($current_command, 0, 0);
#print STDERR "info_default_process_content: $current_command\n";
while(1)
{
last if (!defined($current));
my $content = $current->{'content'}->[$index];
my $text_added = '';
my $line_added_before_item = 0;
my $indentation_done = 0;
my $prepend_newline;
if ($DEBUG)
{
my $text_item_pending = '';
$text_item_pending = $item_pending if (defined($item_pending));
my $text_length = '';
$text_length = "$content->{'text'}" if defined($content->{'text'});
my $text_command = '';
$text_command = $content->{'command'} if defined($content->{'command'});
my $in_node_count = 0;
$in_node_count = $info_state->{'line_count'} if defined($info_state->{'line_count'});
print STDERR "($text_command|$text_length|$close|${all_line_passed}+$in_node_count|l_c_cnt $line_char_counter) prfrmted $preformatted para $in_para indent_lvl $indent_level($indent_length) in_exdent $in_exdent in_w $in_w only_spaces $info_state->{'only_spaces'} blank_line $info_state->{'blank_line'} table_item_line $table_item_line in_table_item $in_table_item item_pending $text_item_pending spaces: `$pending_spaces_word->{'spaces'}' word: ".main::var_to_str($pending_spaces_word->{'word'})."\n";
}
if ($close)
{
if (defined($content->{'end'}))
{
$text_added .= $content->{'end'};
}
if ($complex_format_map{$content->{'command'}} and $content->{'content'})
{
$preformatted_format--;
}
# the format is always empty in the main program so the warning
# has to be done here
if (defined($content->{'total_item_nr'}) and !$content->{'total_item_nr'} and $content->{'content'})
{
main::line_warn (sprintf(__("\@%s has text but no \@item"), $content->{'command'}), $content->{'line_nr'});
}
# check whether there is a blank line following, to avoid adding
# one when closing a format.
# This is not a required check if not in preformatted since doubled
# blank lines are discarded.
my $followed_by_blank_line = 0;
if ($preformatted_format)
{
my ($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current, $index, $close);
if (defined($command_next) and $command_next eq 'preformatted')
{
($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current_next, $index_next, $close_next);
$followed_by_blank_line = 1 if (defined($text_next) and $text_next =~ /^\s*$/);
}
}
if ($info_default_indented_commands{$content->{'command'}})
{
$indent_level--;
$indent_length = $indent_level * $info_default_indent_length;
# $preformatteed cannot be used here since preformatted
# is closed before the end of a format
#if ($indent_level > 0 and !$info_state->{'blank_line'} and $content->{'command'} !~ /^deff_item/ and !$preformatted_format)
if ($indent_level > 0 and !$info_state->{'blank_line'} and $content->{'command'} !~ /^deff_item/ and !$followed_by_blank_line)
{
$text_added .= "\n";
}
# this nullify a potential noindent in a random format
$info_state->{'indent_para'} = undef;
}
elsif (($complex_format_map{$content->{'command'}} and $content->{'command'} ne 'menu') or $content->{'command'} eq 'cartouche')
{
if (!$info_state->{'blank_line'} and $info_state->{'only_spaces'} and ($indent_level > 0) and !$followed_by_blank_line)
{
$text_added .= "\n";
}
}
if ($content->{'command'} eq 'paragraph' and $info_state->{'align_stack'}->[-1]->{'command'} eq 'normal')
{
# if there is no space at the end of a paragraph, there may be
# pending text, for example, if there is an ending line like
# Some text@c a comment
my $pending;
($line_char_counter, $pending_spaces_word, $pending) = info_default_store_pending($line_char_counter, $pending_spaces_word, $indent_length);
$text_added .= $pending if (defined($pending));
$text_added =~ s/\s*$//;
$pending_spaces_word->{'spaces'} = '';
$in_para = 0;
$info_state->{'indent_para'} = undef;
$text_added .= "\n" unless (($line_char_counter + t2h_default_string_width($text_added)) == 0);
}
elsif ($content->{'command'} eq 'preformatted')
{
# if preformatted doesn't end with a newline, it is added here
$text_added .= "\n" unless ($line_char_counter == 0);
$preformatted--;
}
elsif ($content->{'command'} eq 'menu')
{
$text_added .= "\n" unless ($info_state->{'blank_line'});
}
elsif ($content->{'command'} eq 'float')
{
#$text_added = "\n" . $text_added unless ($info_state->{'blank_line'});
$prepend_newline = 1 unless ($info_state->{'blank_line'});
}
elsif ($content->{'command'} eq 'w')
{
$in_w--;
}
elsif ($paragraph_style{$content->{'command'}})
{
my $popped = pop @{$info_state->{'align_stack'}};
print STDERR "BUG".main::format_line_number().": align_stack, popped $popped->{'command'} ne command $content->{'command'}\n" if ($popped->{'command'} ne $content->{'command'});
}
elsif ($content->{'command'} eq 'multitable')
{
my $multitable = pop @{$info_state->{'multitable_stack'}};
if (!defined($multitable->{'cells'}) and ($result ne ''))
{
$multitable->{'result'} .= $result;
$multitable->{'length'} += $length;
$multitable->{'line_count'} += $all_line_passed;
}
$max_column = $multitable->{'max_column_kept'};
$result = $multitable->{'result_kept'};
$line_char_counter = $multitable->{'line_char_counter_kept'};
$all_line_passed = $multitable->{'all_line_passed_kept'};
$indent_level = $multitable->{'indent_level_kept'};
$indent_length = $multitable->{'indent_length_kept'};
#$indent_length_next_line = undef;
$length = $multitable->{'length_kept'};
$info_state->{'offset_in_file'} = $multitable->{'offset_in_file_kept'};
$info_state->{'line_count'} = $multitable->{'line_count_kept'};
#print STDERR "MULTITABLE close, lines: $multitable->{'line_count_kept'} + $all_line_passed\n";
foreach my $anchor_and_index (@{$multitable->{'anchors'}}, @{$multitable->{'index_entries'}})
{
$anchor_and_index->{'line_nr'} += $multitable->{'line_count_kept'} + $all_line_passed;
}
if (! scalar(@{$info_state->{'multitable_stack'}}))
{
#print STDERR "MULTITABLE close, lengths: $multitable->{'offset_in_file_kept'} + $length\n";
foreach my $anchor (@{$multitable->{'anchors'}})
{
$anchor->{'info_offset'} += $multitable->{'offset_in_file_kept'} + $length;
}
}
else
{
push @{$info_state->{'multitable_stack'}->[-1]->{'anchors'}}, @{$multitable->{'anchors'}};
push @{$info_state->{'multitable_stack'}->[-1]->{'index_entries'}}, @{$multitable->{'index_entries'}};
}
$text_added .= $multitable->{'result'};
$indentation_done = 1;
goto new_text;
}
elsif ($content->{'command'} eq 'multitable_cell')
{
my $cell = $info_state->{'multitable_stack'}->[-1]->{'cells'}->[-1];
$cell->{'result'} = $result;
$cell->{'length'} = $length;
$cell->{'line_passed'} = $all_line_passed;
}
elsif ($content->{'command'} eq 'direntry')
{
$direntry--;
# this has to be done here, otherwise, at the end, $direntry
# would be 0
$info_default_dir_specification .= $text_added;
$text_added = '';
}
elsif ($content->{'command'} eq 'multitable_row')
{
my $multitable = $info_state->{'multitable_stack'}->[-1];
my $indent_len = $multitable->{'indent_length_kept'};
#print STDERR "INDENT: $indent_len\n";
my $row_length = 0;
my $row = '';
my $max_lines = 0;
my $cell_beginning = 0;
my @anchor_lines_array;
my $cell_idx = 0;
my @anchors;
my @indices;
foreach my $cell (@{$multitable->{'cells'}})
{
$cell->{'beginning'} = $cell_beginning;
$cell_beginning += $cell->{'cell_width'}+1;
@{$cell->{'lines'}} = split /^/, $cell->{'result'};
$max_lines = scalar(@{$cell->{'lines'}}) if (scalar(@{$cell->{'lines'}}) > $max_lines);
foreach my $anchor (@{$cell->{'anchors'}})
{
push @{$anchor_lines_array[$anchor->{'line_nr'}]}, $anchor;
$anchor->{'cell_idx'} = $cell_idx;
push @anchors, $anchor;
}
push @indices, @{$cell->{'index_entries'}};
$cell_idx++;
}
my $previous_last_cell = scalar(@{$multitable->{'cells'}});
#print STDERR "ROW cell_beginning $cell_beginning, max_lines $max_lines, previous_last_cell $previous_last_cell\n";
for (my $line_idx = 0; $line_idx < $max_lines; $line_idx++)
{
my $line_width = $indent_len;
my $line_bytes = info_default_byte_count(' ' x$indent_len);
my $line = '';
# determine the last cell in the line, to fill spaces in
# cells preceding that cell on the line
my $last_cell = 0;
for (my $cell_idx = 0; $cell_idx < $previous_last_cell; $cell_idx++)
{
$last_cell = $cell_idx+1 if (defined($multitable->{'cells'}->[$cell_idx]->{'lines'}->[$line_idx]));
}
#print STDERR " L(last_cell $last_cell): $line_idx\n";
for (my $cell_idx = 0; $cell_idx < $last_cell; $cell_idx++)
{
my $cell_text = $multitable->{'cells'}->[$cell_idx]->{'lines'}->[$line_idx];
#print STDERR " C($cell_idx) ";
if (defined($cell_text))
{
chomp($cell_text);
#print STDERR "$cell_text";
if ($line eq '' and $cell_text ne '')
{
$line = ' ' x $indent_len;
}
$line .= $cell_text;
$line_width += t2h_default_string_width($cell_text);
$line_bytes += info_default_byte_count($cell_text);
}
if ($cell_idx+1 < $last_cell)
{
if ($line_width < $indent_len + $multitable->{'cells'}->[$cell_idx+1]->{'beginning'})
{
if ($line eq '')
{
$line = ' ' x $indent_len;
}
my $spaces = ' ' x ($indent_len + $multitable->{'cells'}->[$cell_idx+1]->{'beginning'} - $line_width);
$line_width += t2h_default_string_width($spaces);
$line_bytes += info_default_byte_count($spaces);
$line .= $spaces;
#print STDERR " Csp($line_width) `$spaces'";
}
}
}
if (defined($anchor_lines_array[$line_idx]))
{
foreach my $anchor (@{$anchor_lines_array[$line_idx]})
{
my $anchor_position = $indent_len + $anchor->{'line_char_counter'} + $multitable->{'cells'}->[$anchor->{'cell_idx'}]->{'beginning'};
if ($anchor_position > $line_width)
{
my $spaces = ' ' x ($anchor_position - $line_width);
$line .= $spaces;
$line_width += t2h_default_string_width($spaces);
$line_bytes += info_default_byte_count($spaces);
}
$anchor->{'info_offset'} = $line_bytes + $row_length + $multitable->{'length'};
#print STDERR "ROW anchor close: anchor[$anchor->{'cell_idx'}]($multitable->{'cells'}->[$anchor->{'cell_idx'}]->{'beginning'}+$anchor->{'line_char_counter'}) $anchor_position $anchor->{'info_offset'}\n";
$anchor->{'line_char_counter'} = $anchor_position;
}
}
$line .= "\n";
$row_length += info_default_byte_count($line);
#print STDERR " ($line_width,".length($line).") $line";
$row .= $line;
$previous_last_cell = $last_cell;
}
foreach my $anchor_and_index (@anchors, @indices)
{
$anchor_and_index->{'line_nr'} += $multitable->{'line_count'};
#print STDERR "ROW close: new line count: $anchor_and_index->{'line_nr'} + \n";
}
if ($content->{'item_command'} eq 'headitem')
{
# at this point cell_beginning is at the beginning of
# the cell following the end of the table -> full width
my $line = ' ' x $indent_len . '-' x $cell_beginning . "\n";
$row .= $line;
$row_length += info_default_byte_count($line);
}
#print STDERR "ROW_LENGTH $row_length\n";
$multitable->{'result'} .= $row;
$multitable->{'length'} += $row_length;
$multitable->{'line_count'} += $max_lines;
$multitable->{'cells'} = [];
push @{$multitable->{'anchors'}}, @anchors;
push @{$multitable->{'index_entries'}}, @indices;
}
}
else
{
if ($content->{'command'})
{
# if processing a paragraph, there may be some pending text
# and spaces, as the idea is to write them down only when
# there is a space in case of pending text, or when there is some
# text in case of pending space. So all the commands
# that should write something within paragraph must flush the
# pending text/spaces _before_ they output something, or the
# text order will be reversed, with the pending things output
# after the other commands text.
my $pending_added_length = 0;
my $pending_added_bytes = 0;
if ($content->{'command'} eq 'anchor' or $content->{'command'} eq 'image' or $content->{'command'} eq 'index_command' or $content->{'command'} eq 'sp' or $content->{'raw_command'})
{
my $pending;
($line_char_counter, $pending_spaces_word, $pending) = info_default_store_pending($line_char_counter, $pending_spaces_word, $indent_length);
# here spaces out of any environment are ignored.
if ($in_para or $preformatted or $pending =~ /\S/)
{ # this has to be done before the anchor related code
# to have the right count.
# FIXME this is wrong if an end of line was passed.
# in that case line_char_counter has been increased and
# $pending ends with an end of line
$pending_added_length += t2h_default_string_width($pending);
$pending_added_bytes += info_default_byte_count($pending);
$text_added .= $pending;
}
}
if ($content->{'command'} eq 'strong')
{
my ($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current, $index, $close);
if (defined($text_next) and $text_next =~ /^Note\b/i)
{
main::line_warn(__("\@strong{Note...} produces a spurious cross-reference in Info; reword to avoid that"), $content->{'line_nr'});
}
}
elsif ($content->{'command'} eq 'w')
{
$in_w++ if ($content->{'content'});
}
elsif ($content->{'command'} eq 'anchor' or ($content->{'command'} eq 'float' and $content->{'anchor_reference'}))
{
#print STDERR "anchor: offset_in_file $info_state->{'offset_in_file'}, line_count $info_state->{'line_count'}, line_char_counter $line_char_counter pending_added_length $pending_added_length\n";
$content->{'anchor_reference'}->{'info_offset'} = $length + $info_state->{'offset_in_file'} + $pending_added_bytes;
$content->{'anchor_reference'}->{'line_nr'} = $all_line_passed + $info_state->{'line_count'};
$content->{'anchor_reference'}->{'line_char_counter'} = $line_char_counter + $pending_added_length;
if (@{$info_state->{'multitable_stack'}})
{
if ($info_state->{'multitable_stack'}->[-1]->{'cells'})
{
push @{$info_state->{'multitable_stack'}->[-1]->{'cells'}->[-1]->{'anchors'}}, $content->{'anchor_reference'};
}
else
{
push @{$info_state->{'multitable_stack'}->[-1]->{'anchors'}}, $content->{'anchor_reference'};
}
}
push @{$info_state->{'pending_tags'}}, $content->{'anchor_reference'};
push @{$info_state->{'align_stack'}->[-1]->{'anchors'}}, $content->{'anchor_reference'} if ($info_state->{'align_stack'}->[-1]->{'command'} eq 'center' or $info_state->{'align_stack'}->[-1]->{'command'} eq 'flushright');
}
elsif ($content->{'command'} eq 'index_label')
{
#print STDERR "FFFFFFFFF($content->{'index_command'}) $all_line_passed + $info_state->{'line_count'} `$content->{'texi_entry'}'\n";
my $index_line_nr = $all_line_passed + $info_state->{'line_count'};
if ($info_state->{'blank_line'} and $content->{'index_command'} =~ /index$/)
{
my ($current_next, $index_next, $close_nex) = info_default_iterator_next($current, $index, $close);
$index_line_nr-- if (!defined($current_next));
}
elsif ($content->{'index_command'} =~ /^[vf]table$/)
{
# if in a table, index label is systematically entered after
# the line is processed, as the line is processed with the
# item command, while the index entry is entered with the
# index_label callback that is done much later.
$index_line_nr--;
}
#print STDERR "index in a blank_line $content->{'index_command'} `$content->{'texi_entry'}'\n" if ($info_state->{'blank_line'});
my $index_name = $content->{'index_entry_reference'}->{'index_name'};
$info_default_index_line_string_length{$index_name} = t2h_default_string_width($index_line_nr)
if (!defined($info_default_index_line_string_length{$index_name}) or $info_default_index_line_string_length{$index_name} < t2h_default_string_width($index_line_nr));
#print STDERR "RRRRRRRRRRRRR($content->{'index_entry_reference'}) $content->{'index_entry_reference'}->{'texi'} name: $index_name line: $index_line_nr max: $info_default_index_line_string_length{$index_name}\n";
my $index_ref = { 'index_entry_reference' => $content->{'index_entry_reference'}, 'line_nr' => $index_line_nr };
#print STDERR "INDEX($index_name) line $index_line_nr\n";
$info_default_index_entries{$content->{'index_entry_reference'}} = $index_ref;
# there may be no cell in case of an empty multitable
if (@{$info_state->{'multitable_stack'}})
{
if ($info_state->{'multitable_stack'}->[-1]->{'cells'})
{
push @{$info_state->{'multitable_stack'}->[-1]->{'cells'}->[-1]->{'index_entries'}}, $index_ref;
}
else
{
push @{$info_state->{'multitable_stack'}->[-1]->{'index_entries'}}, $index_ref;
}
}
push @{$info_state->{'pending_index_entries'}}, $index_ref;
}
elsif ($content->{'command'} eq '*' and !$preformatted)
{
if (defined($pending_spaces_word->{'word'}))
{
$text_added .= $pending_spaces_word->{'spaces'} . $pending_spaces_word->{'word'};
$pending_spaces_word->{'word'} = undef;
}
# spaces preceding @* are skipped
$pending_spaces_word->{'spaces'} = '';
$text_added .= $content->{'text'};
# just like following spaces
info_default_skip_spaces($current, $index, $close);
# this isn't done otherwise, though, here it is not important
# since this end the line
$line_char_counter += t2h_default_string_width($content->{'text'});
goto new_text;
}
elsif ($content->{'command'} eq 'paragraph' and $info_state->{'align_stack'}->[-1]->{'command'} eq 'normal')
{
# empty paragraph
goto new_text if (!$content->{'content'});
my $paragraphindent = get_conf('paragraphindent');
$paragraphindent = 0 if ($paragraphindent eq 'none');
if ($paragraphindent ne 'asis')
{
info_default_skip_spaces($current, $index, $close);
}
# if within a format $content->{'paragraph_in_element_nr'}
# should not be defined so no indentation will take place
if ($paragraphindent ne 'asis' and $paragraphindent and $line_char_counter == 0 and (defined($content->{'paragraph_in_element_nr'})) and ($info_state->{'indent_para'} or (!defined($info_state->{'indent_para'}) and ($content->{'paragraph_in_element_nr'} or (get_conf('firstparagraphindent') eq 'insert')))))
{
$text_added .= ' ' x $paragraphindent;
}
$in_para = 1;
}
elsif ($content->{'command'} eq 'preformatted')
{
$preformatted++ if ($content->{'content'});
}
elsif ($content->{'command'} eq 'exdent')
{
# if an end of line is added, in_exdent is set to 2 and
# set to one when processing the end of line that was just
# added, and set to 0 at the end of the line.
# if there is no end of line added, it is only set to 1.
if ($line_char_counter != 0)
{
$text_added .= "\n";
$in_exdent = 2;
}
else
{
$in_exdent = 1;
}
$indent_length = ($indent_level -1) * $info_default_indent_length if ($indent_level > 0);
#goto new_text;
}
elsif ($content->{'command'} eq 'indent')
{
$info_state->{'indent_para'} = 1;
}
elsif ($content->{'command'} eq 'noindent')
{
$info_state->{'indent_para'} = 0;
}
elsif ($content->{'command'} eq 'sp')
{
$text_added .= $content->{'text'};
goto new_text;
}
elsif ($content->{'command'} eq 'image')
{
# @image result count isn't counted in line_char_counter
# since it is not displayed in info
my $indent_added = 0;
$indent_added = ($indent_length - $line_char_counter) if ($indent_length - $line_char_counter > 0);
$text_added .= ' ' x $indent_added . $content->{'text'};
$line_char_counter += $indent_added;
goto new_text;
}
elsif ($content->{'command'} eq 'ref')
{ # adds a . if needed.
if ($content->{'text'} !~ /[\.,]$/ and $content->{'text'} !~ /::$/)
{
my ($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current, $index, $close);
if (!defined($text_next) or $text_next !~ /^[\.,]/)
{
$content->{'text'} .= '.';
}
}
}
elsif ($content->{'command'} eq 'xref')
{ # warn if there is no punctuation following
my ($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current, $index, $close);
if (!defined($text_next) or $text_next !~ /^./)
{ # in makeinfo it is
# "End of file reached while looking for `.' or `,'"
# but maybe it may not be true.
main::line_warn(__("`.' or `,' must follow \@xref."), $Texi2HTML::THISDOC{'line_nr'});
}
elsif ($text_next !~ /^[\.,]/)
{
my $char = substr($text_next, 0, 1);
main::line_warn(sprintf(__("`.' or `,' must follow \@xref, not %s"), $char), $Texi2HTML::THISDOC{'line_nr'});
}
}
elsif ($content->{'definition_line'})
{
my $dummy_line_passed;
print STDERR "BUG: defined pending_word before DEFINITION_LINE\n" if defined($pending_spaces_word->{'word'});
#print STDERR "DEFINITION_LINE($line_char_counter,$pending_spaces_word->{'spaces'},$indent_length,$in_para,$max_column): $content->{'text'}";
($line_char_counter, $pending_spaces_word, $dummy_line_passed, $text_added) = info_default_process_para_text($content->{'text'}, $line_char_counter, $pending_spaces_word, $indent_length, $max_column, 0, $indent_length+2*$info_default_indent_length);
$text_added .= $pending_spaces_word->{'spaces'};
$pending_spaces_word->{'spaces'} = '';
#print STDERR "DEFINITION_LINE($line_char_counter,$pending_spaces_word->{'spaces'}) -> $text_added";
print STDERR "BUG: defined pending_word after DEFINITION_LINE\n" if defined($pending_spaces_word->{'word'});
$indentation_done = 1;
goto new_text;
}
elsif (($content->{'command'} eq 'item' or $content->{'command'} eq 'itemx') and exists $info_default_indent_format_length{$content->{'format_name'}})
{
$item_pending = $content->{'format_name'};
#if (!$info_state->{'blank_line'} and $content->{'command'} eq 'item')
my $first_item = 0;
if ($content->{'command'} eq 'item')
{
if (!defined($content->{'parent'}->{'item_nr'}))
{
$content->{'parent'}->{'item_nr'} = 1;
$first_item = 1;
}
else
{
$content->{'parent'}->{'item_nr'}++;
}
}
if ($item_pending =~ /table$/)
{
$table_item_line = 1;
$indent_length = ($indent_level -1) * $info_default_indent_length if ($indent_level > 0);
$in_table_item = 0;
}
else
{
$indent_length = ($info_default_indent_format_length{$item_pending}
+($indent_level -1)* $info_default_indent_length);
}
if (!$info_state->{'blank_line'} and ($content->{'command'} ne 'itemx') and (!$first_item or $indent_level > 1))
{
my $dummy_line_passed;
($line_char_counter, $dummy_line_passed, $text_added) = info_default_process_line_text($text_added, $line_char_counter, $indent_length);
$indentation_done = 1;
$line_added_before_item = 1;
$prepend_newline = 1;
#$text_added = "\n" . $text_added;
}
if ($item_pending =~ /table$/)
{
# one less indentation level and no line break
# adding line_added_before_item allows the table_item_line to
# still be active after the additional blank line
$table_item_line = 1+$line_added_before_item;
}
else
{
info_default_skip_spaces($current, $index, $close);
}
}
elsif ($content->{'command'} eq 'menu' or $content->{'command'} eq 'listoffloats' or $content->{'heading_command'})
{
$text_added .= "\n" unless ($info_state->{'blank_line'});
}
elsif ($content->{'command'} eq 'direntry')
{
if ($content->{'content'})
{
$direntry++;
}
}
elsif ($paragraph_style{$content->{'command'}})
{
goto new_text if (!$content->{'content'});
push @{$info_state->{'align_stack'}}, {'command' => $content->{'command'}};
}
elsif ($content->{'command'} eq 'verbatim' or $content->{'command'} eq 'verbatiminclude')
{
# $preformatted cannot be used here since preformatted
# is closed before a verbatim, $preformatted_format is used
if (!$preformatted_format and $indent_level != 0)
{
if (!$info_state->{'blank_line'} and $info_state->{'only_spaces'})
{
$text_added .= "\n";
}
my $verb_text = $content->{'text'};
my ($line_passed, $end_of_line, $last_line, $text_indented, $blank_line) = info_default_count_lines($verb_text);
$content->{'text'} .= "\n" unless ($blank_line or ($last_line =~ /^\s*$/));
}
}
# other raw commands
elsif ($content->{'raw_command'})
{
# not considered as in a paragraph even if in a paragraph
$text_added .= $content->{'text'};
goto new_text;
}
elsif ($content->{'command'} eq 'multitable' and $content->{'content'})
{
my $indent_length_kept = $indent_level * $info_default_indent_length;
my $multitable = {
'offset_in_file_kept' => $info_state->{'offset_in_file'},
'line_count_kept' => $info_state->{'line_count'},
'columns_size' => [ @{$content->{'columns_size'}} ],
'result' => '',
'length' => 0,
'line_count' => 0,
'result_kept' => $result,
'length_kept' => $length,
'all_line_passed_kept' => $all_line_passed,
'line_char_counter_kept' => $line_char_counter,
'max_column_kept' => $max_column,
'indent_level_kept' => $indent_level,
'indent_length_kept' => $indent_length_kept,
};
push @{$info_state->{'multitable_stack'}}, $multitable;
$info_state->{'offset_in_file'} = 0;
$info_state->{'line_count'} = 0;
$result = '';
$length = 0;
$all_line_passed = 0;
$line_char_counter = 0;
$indent_level = 0;
$indent_length = 0;
}
elsif ($content->{'command'} eq 'multitable_row')
{
my $multitable = $info_state->{'multitable_stack'}->[-1];
if (!defined($multitable->{'cells'}) and ($result ne ''))
{
$multitable->{'result'} .= $result;
$multitable->{'length'} += $length;
$multitable->{'line_count'} += $all_line_passed;
$multitable->{'cells'} = [];
}
$multitable->{'cell_index'} = -1;
}
elsif ($content->{'command'} eq 'multitable_cell')
{
my $multitable = $info_state->{'multitable_stack'}->[-1];
$multitable->{'cell_index'}++;
my $cell_width = $content->{'parent'}->{'parent'}->{'columns_size'}->[$multitable->{'cell_index'}];
#$max_column = $cell_width-1;
$max_column = $cell_width -2;
my $cell = {'cell_width' => $cell_width, 'index_entries' => [], 'anchors' => []};
push @{$multitable->{'cells'}}, $cell;
$result = '';
$length = 0;
$all_line_passed = 0;
$line_char_counter = 0;
$indent_level = 0;
$indent_length = 0;
if (!$content->{'content'})
{# empty cell
$cell->{'result'} = $result;
$cell->{'length'} = $length;
$cell->{'line_passed'} = $all_line_passed;
}
#info_default_skip_spaces($current, $index, $close);
}
if ($info_default_indented_commands{$content->{'command'}})
{
if ($content->{'command'} =~ /^deff_item/)
{
info_default_skip_spaces($current, $index, $close);
}
#elsif (!$info_state->{'blank_line'} and $info_state->{'only_spaces'} and ($indent_level != 0) and !$preformatted)
elsif (!$info_state->{'blank_line'} and $info_state->{'only_spaces'} and ($indent_level != 0))
{
$text_added .= "\n";
}
# there is no close if !$content->{'content'}
$indent_level++ if ($content->{'content'});
$indent_length = $indent_level * $info_default_indent_length;
}
elsif (($complex_format_map{$content->{'command'}} and $content->{'command'} ne 'menu') or $content->{'command'} eq 'cartouche')
{
#if (!$info_state->{'blank_line'} and $info_state->{'only_spaces'} and ($indent_level != 0) and !$preformatted_format)
if (!$info_state->{'blank_line'} and $info_state->{'only_spaces'} and ($indent_level != 0))
{
$text_added .= "\n";
}
}
if ($complex_format_map{$content->{'command'}} and $content->{'content'})
{
$preformatted_format++;
}
}
if (defined($content->{'text'}))
{
if ($in_para and !$in_exdent)
{
#print STDERR "IN_PARA text\n";
my $new_text = $content->{'text'};
# first find if in a context of no puncutation related
# modification: code style command or @var, @cite, @math
# acceptable for punctuation related modifications:
# asis b dfn emph i slanted sansserif r sc strong t w
my $current_tested = $content;
my $no_punctation_munging_command;
while ($current_tested)
{
if (defined($current_tested->{'command'}) and (($style_map{$current_tested->{'command'}} and $style_map{$current_tested->{'command'}}->{'args'} and $style_map{$current_tested->{'command'}}->{'args'}->[0] and $style_map{$current_tested->{'command'}}->{'args'}->[0] eq 'code') or $current_tested->{'command'} eq 'var' or $current_tested->{'command'} eq 'cite' or $current_tested->{'command'} eq 'math'))
{
$no_punctation_munging_command = 1;
last;
}
$current_tested = $current_tested->{'parent'};
}
# a punctuation at the end of line in a command is treated
# like a punctuation in plain text, except for @:,
# accent commands, @dots, 'simple_style' command, and if in
# a command as found out just above.
if (!$no_punctation_munging_command and (!defined($content->{'command'}) or ($content->{'command'} ne ':' and $content->{'command'} ne 'accents_commands' and $content->{'command'} ne 'dots') and !$info_default_leaf_command{$content->{'command'}}) and get_conf('frenchspacing') ne 'on' and $new_text =~ /([$info_default_end_sentence_character])([$info_default_after_punctuation_characters]*)(\s*)$/)
{
my $spaces = $3;
if (chomp($new_text))
{
$new_text =~ s/(\s*)$/ /;
}
else
{
# these variables hold the place where the end
# of line characters are normalized.
my ($current_start_from, $index_start_from, $close_start_from) = ($current, $index, $close);
my $only_after_punctuation_characters = 1;
my $spaces_to_normalize = 0;
# first find whether there are only
# after_punctuation_characters followed by spaces
# and find the place where the
# after_punctuation_characters end
my ($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current, $index, $close);
# go through the text as long as there are after_punctuation_characters
if (!$spaces)
{
while (1)
{
# !defined($text_next) catches many special
# commands, like anchor, index. Not sure if
# it is right or wrong.
# Also a style_map command never stops
# the search, so that @emph{ or @strong{
# begin and end are not taken into account
if (!defined($current_next) or (!defined($text_next)) or (defined($command_next) and $command_next eq '*') or ($text_next !~ /^[$info_default_after_punctuation_characters]*(\s*)$/ and (!defined($command_next) or !$style_map{$command_next})))
{
$only_after_punctuation_characters = 0;
last;
}
my $text_next_kept = $text_next;
# begin normalizing spaces at the last place
# where there are after_punctuation_characters
$current_start_from = $current_next;
$index_start_from = $index_next;
$index_start_from = $index_next;
($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current_next, $index_next, $close_next);
if ($text_next_kept =~ /^[$info_default_after_punctuation_characters]*\s+$/)
{
if (chomp($text_next_kept))
{
$spaces_to_normalize = 1;
}
last;
}
}
}
# check if there are only spaces until end of line
if ($only_after_punctuation_characters and !$spaces_to_normalize)
{
while (1)
{
# !defined($text_next) catches many special
# commands, like anchor, index. Not sure if
# it is right or wrong.
last if (!defined($current_next) or (!defined($text_next)) or (defined($command_next) and $command_next eq '*'));
if ($text_next =~ /\S/ and (!defined($command_next) or !$style_map{$command_next}))
{
last;
}
else
{
if (chomp($text_next))
{
$spaces_to_normalize = 1;
last;
}
}
($current_next, $index_next, $close_next, $text_next, $command_next) = info_default_next ($current_next, $index_next, $close_next);
}
}
if ($spaces_to_normalize)
{
# now do the spaces normalization
info_default_skip_spaces($current_start_from, $index_start_from, $close_start_from);
my $content = $current_start_from->{'content'}->[$index_start_from];
$content->{'text'} =~ s/(\s*)$/ /;
}
}
}
elsif (chomp($new_text))
{
$new_text =~ s/(\s*)$/ /;
}
$text_added .= $new_text;
} # ignore spaces outside of paragraphs and preformatted
elsif ($preformatted or $info_state->{'align_stack'}->[-1]->{'command'} ne 'normal')
{
#print STDERR "IN_PREFORMATTED or ALIGN text\n";
$text_added .= $content->{'text'};
}
else
{
my $chomped_text = $content->{'text'};
if ($chomped_text !~ /\S/ and chomp($chomped_text) and !$item_pending)
{
if ($in_table_item and $info_state->{'only_spaces'})
{
# in a blank_line
#print STDERR "IN_ITEM ignored: `$content->{'text'}'\n";
}
elsif (!$info_state->{'blank_line'} or !$info_state->{'only_spaces'})
{
#print STDERR "IN_ADDING_BLANK_LINE because no line before or text before\n";
$text_added .= "\n";
}
else
{
#print STDERR "IN_NOT_ADDING_BLANK_LINE\n";
}
}
else
{ # exdent, item not in paragraph nor in preformatted
#print STDERR "NOWHERE and not end of line (or item_pending) `$content->{'text'}'\n";
$text_added .= $content->{'text'};
}
}
}
else
{
if (defined($content->{'begin'}))
{
$text_added .= $content->{'begin'};
}
# command that won't be closed, so the end has to be added
# here. It should mostly happen for empty style @-commands.
if (defined($content->{'end'}) and !defined($content->{'content'}))
{
$text_added .= $content->{'end'};
}
}
}
if (!$preformatted and !$in_exdent and $info_state->{'align_stack'}->[-1]->{'command'} eq 'normal' and $in_para)
{
# the line_passed returned here are not used, since they are computed
# below.
$indentation_done = 1;
my $dummy_line_passed;
($line_char_counter, $pending_spaces_word, $dummy_line_passed, $text_added) = info_default_process_para_text($text_added, $line_char_counter, $pending_spaces_word, $indent_length, $max_column, $in_w, $indent_level * $info_default_indent_length) if ($text_added ne '');
}
elsif ($info_state->{'align_stack'}->[-1]->{'command'} ne 'center' and $info_state->{'align_stack'}->[-1]->{'command'} ne 'flushright')
{
my $dummy_line_passed;
($line_char_counter, $dummy_line_passed, $text_added) = info_default_process_line_text($text_added, $line_char_counter, $indent_length);
#$indentation_done = 1;
}
else
{
$line_char_counter += t2h_default_string_width($text_added);
}
new_text:
if ($text_added ne '')
{
if ($item_pending and !$line_added_before_item)
{
#info_default_skip_spaces($current, $index, $close);
$item_pending = undef;
}
}
if ($text_added =~ /\S/)
{
$in_table_item = 0 if ($in_table_item);
$info_state->{'blank_line'} = 0;
}
$text_added = "\n" . $text_added if ($prepend_newline);
print STDERR "TEXT_ADDED($indent_length) `$text_added'\n" if ($text_added ne '' and $DEBUG);
#print STDERR "TEXT_ADDED($indent_length) `$text_added'\n";
# from here, the next cmmand is available
($current, $index, $close) = info_default_iterator_next($current, $index, $close);
my ($line_passed, $end_of_line, $last_line, $text_indented, $blank_line) = info_default_count_lines($text_added, $indent_length, ($indentation_done
or $info_state->{'align_stack'}->[-1]->{'command'} eq 'center'
or $info_state->{'align_stack'}->[-1]->{'command'} eq 'flushright'));
$info_state->{'blank_line'} = 1 if ($blank_line);
print STDERR "ADDING `$text_indented'\n" if ($text_indented ne '' and $DEBUG);
# only_space is set in all the conditionals
if ($end_of_line)
{
$line_char_counter = 0;
if ($in_exdent)
{
$in_exdent--;
}
if ($table_item_line)
{
$table_item_line--;
$in_table_item = 1;
}
if (!$table_item_line and !$in_exdent and !$item_pending)
{
$indent_length = $indent_level * $info_default_indent_length;
}
$info_state->{'blank_line'} = 1 if ($info_state->{'only_spaces'} and ($last_line !~ /\S/));
$info_state->{'only_spaces'} = 1;
}
else
{
if ($line_passed)
{# in that case we added more than one line, the $line_char_counter
# is reset to the last line length.
$line_char_counter = t2h_default_string_width($last_line);
$in_exdent = 0;
$indent_length = $indent_level * $info_default_indent_length;
if ($last_line !~ /\S/)
{
$info_state->{'only_spaces'} = 1;
}
else
{
$info_state->{'only_spaces'} = 0;
}
}
else
{
$info_state->{'only_spaces'} = 0 if ($last_line =~ /\S/);
}
}
if ($info_state->{'align_stack'}->[-1]->{'command'} eq 'center'
or $info_state->{'align_stack'}->[-1]->{'command'} eq 'flushright')
{
if (defined($current_line))
{
$text_added = $current_line . $text_added;
}
$text_indented = '';
$current_line = undef;
my $spaces_prepended = undef;
foreach my $line (split /^/, $text_added)
{
my $chomped_line = $line;
if (chomp($chomped_line))
{
$line =~ s/^\s*//;
$line =~ s/\s*$//;
if (t2h_default_string_width($line) eq 0)
{
$spaces_prepended = 0;
$text_indented .= "\n";
}
else
{
my $line_width = t2h_default_string_width($line);
if ($line_width > $max_column)
{
$spaces_prepended = 0;
}
elsif ($info_state->{'align_stack'}->[-1]->{'command'} eq 'center')
{
$spaces_prepended = (($max_column -1 - $line_width) /2);
}
else
{
$spaces_prepended = ($max_column -1 - $line_width);
}
$text_indented .= ' ' x$spaces_prepended . $line ."\n";
}
}
else
{
$current_line = $line;
}
}
if (defined ($spaces_prepended) and defined($info_state->{'align_stack'}->[-1]->{'anchors'}))
{
while (@{$info_state->{'align_stack'}->[-1]->{'anchors'}})
{
my $anchor = shift @{$info_state->{'align_stack'}->[-1]->{'anchors'}};
$anchor->{'info_offset'} += info_default_byte_count(' ' x$spaces_prepended);
}
}
}
if ($direntry)
{
$info_default_dir_specification .= $text_indented;
}
else
{
$result .= $text_indented;
$length += info_default_byte_count($text_indented);
$all_line_passed += $line_passed;
}
}
return ($length, $result, $all_line_passed);
}
sub info_default_open_command($$;$)
{
my $state = shift;
my $command = shift;
my $additional_entries = shift;
my $index = 0;
my $info_state = info_default_get_state($state);
# index in the parent content list
$index = scalar(@{$info_state->{'current'}->{'content'}})
if (defined($info_state->{'current'}->{'content'}));
my $new_command = {'command' => $command, 'parent' => $info_state->{'current'}, 'index_in_parent' => $index };
if (defined($additional_entries))
{
foreach my $key (keys(%$additional_entries))
{
$new_command->{$key} = $additional_entries->{$key};
}
}
push @{$info_state->{'current'}->{'content'}}, $new_command;
$info_state->{'current'} = $new_command;
print STDERR "TREE($info_state->{'nr'}): Opened $command\n" if ($DEBUG);
}
sub info_default_close_command($$;$$$)
{
my $state = shift;
my $command = shift;
my $begin = shift;
my $end = shift;
my $command_entries = shift;
$state = $Texi2HTML::THISDOC{'state'} if (!defined($state));
my $info_state = info_default_get_state($state);
print STDERR "TREE($info_state->{'nr'}): Closing $command\n" if ($DEBUG);
if (!defined($info_state->{'current'}))
{
print STDERR "info_state->{'current'} not defined (closing $command)\n";
}
elsif (!defined($info_state->{'current'}->{'command'}))
{
print STDERR "info_state->{'current'}->{'command'} not defined (closing $command)\n";
}
elsif ($command ne $info_state->{'current'}->{'command'})
{
print STDERR "Was waiting for $info_state->{'current'}->{'command'} (closing $command)\n";
}
#return if $no_close;
$command_entries->{'begin'} = $begin;
$command_entries->{'end'} = $end;
$command_entries->{'line_nr'} = $Texi2HTML::THISDOC{'line_nr'};
foreach my $key (keys(%$command_entries))
{
$info_state->{'current'}->{$key} = $command_entries->{$key}
if (defined($command_entries->{$key}));
}
$info_state->{'current'} = $info_state->{'current'}->{'parent'};
return info_default_output($info_state)
if (!defined($info_state->{'current'}->{'command'}));
return '';
}
sub info_default_store_text($$;$$)
{
my $state = shift;
my $text = shift;
my $command = shift;
my $text_entries = shift;
$state = $Texi2HTML::THISDOC{'state'} if (!defined($state));
my $info_state = info_default_get_state($state);
return '' if ((!defined($text) or $text eq '') and !defined($command));
################################## debug
my $command_text = '';
$command_text = "\[$command\]" if (defined($command));
$command_text .= $text if (defined($text));
print STDERR "TREE($info_state->{'nr'}) Storing: ${command_text}\n" if ($DEBUG);
################################## end debug
$text_entries->{'text'} = $text if (defined($text));
$text_entries->{'command'} = $command if (defined($command));
$text_entries->{'parent'} = $info_state->{'current'};
$text_entries->{'line_nr'} = $Texi2HTML::THISDOC{'line_nr'};
push @{$info_state->{'current'}->{'content'}}, $text_entries;
return info_default_output($info_state)
if (!defined($info_state->{'current'}->{'command'}));
return '';
}
sub info_default_increment_paragraph ($$$;$)
{
my $in_format = shift;
my $parent_format = shift;
my $info_state = shift;
my $command = shift;
if ($in_format)
{
$parent_format->{'paragraph_in_format_nr'} = 0 if (!defined($parent_format->{'paragraph_in_format_nr'}));
$parent_format->{'paragraph_in_format_nr'}++;
}
else
{
$info_state->{'paragraph_in_element_nr'}++;
}
####################### debug
$command = 'PARA' if (!defined($command));
if (0)
#if (1)
{
my $format_info = '';
if ($in_format)
{
$format_info = "format: [$parent_format->{'command'}],$parent_format->{'paragraph_in_format_nr'}"
}
print STDERR "INCREMENT_PARA($command) $info_state->{'paragraph_in_element_nr'} $format_info\n";
}
####################### end debug
}
sub info_default_begin_format_texi($$$)
{
my $command = shift;
my $line = shift;
my $state = shift;
my $info_state = info_default_get_state ($state);
my ($parent_format, $in_format);
($parent_format, $in_format) = info_default_parent_format($info_state->{'current'});
info_default_increment_paragraph ($in_format, $parent_format, $info_state, $command);
# remove space in front of center, unless it removes the end of line!
$line =~ s/^\s*// if ($command eq 'center' and $line =~ /\S/);
# don't open a format if it is a @def*x command and we are already in the
# corresponding @def* command
info_default_open_command($state,$command) unless ($def_map{$command} and $command =~ /x$/ and defined($info_state->{'current'}->{'command'}) and "$info_state->{'current'}->{'command'}x" eq $command);
return $line;
}
sub info_default_begin_style_texi($$$$$)
{
my $command = shift;
my $state = shift;
my $stack = shift;
my $real_style_command = shift;
my $remove_texi = shift;
info_default_open_command($state,$command)
unless ($info_default_accent_commands{$command} or exists $things_map{$command}
or $command =~ /^special_(\w+)_(\d+)$/);
# if ($real_style_command);
}
sub info_default_begin_paragraph_texi($$$)
{
my $command = shift;
my $paragraph_macros = shift;
my $paragraph_command = shift;
#print STDERR "begin_paragraph $command\n";
my $state = shift;
my $stack = shift;
info_default_open_command($state,$command);
foreach my $style_command (@$paragraph_macros)
{
#print STDERR "para stack: $style_command->{'style'}\n";
info_default_open_command($state,$style_command->{'style'});
}
}
sub info_default_simple_command($$$$$)
{
my $command = shift;
my $in_preformatted = shift;
my $in_math = shift;
my $line_nr = shift;
my $state = shift;
my $result = $simple_map{$command};
$result = $simple_map_math{$command} if ($in_math and defined($simple_map_math{$command}));
# discards '-' '|' '/' and ':'. If ':' is associated with a punctuation
# character it is added to the tree in info_default_colon_command
return info_default_store_text($state,$result,$command) if ($result ne '');
return '';
}
sub info_default_colon_command($)
{
my $punctuation_character = shift;
if (defined($colon_command_punctuation_characters{$punctuation_character})
and $punctuation_character =~ /^[$punctuation_characters]$/)
{
return info_default_store_text(undef,$colon_command_punctuation_characters{$punctuation_character}, ':');
}
else
{
return info_default_store_text(undef,$punctuation_character);
}
}
sub info_default_thing_command($$$$$$)
{
my $command = shift;
my $text = shift;
my $in_preformatted = shift;
my $in_math = shift;
my $line_nr = shift;
my $state = shift;
my $result = $things_map{$command};
#return info_default_close_command($state, $command, $result, $text, '');
return info_default_store_text($state, $result, $command);
# return $result . $text;
}
sub info_default_style($$$$$$$$$$)
{
my $style = shift;
my $command = shift;
my $text = shift;
my $args = shift;
my $no_close = shift;
my $no_open = shift;
my $line_nr = shift;
my $state = shift;
my $command_stack = shift;
my $kept_line_nrs = shift;
my $begin = '';
my $end = '';
# note that the $text is always discarded for closed commands
# the formatting is done right here, and the result is entered as text below.
if ($info_default_leaf_command{$command})
{
my $style_index = 0;
my @formatted_args = ();
foreach my $arg (@$args)
{
# we don't use style, since we only set 'orig_args' in style_map
# and not in style_map_pre.
my $arg_style = $style_map{$command}->{'orig_args'}->[$style_index];
my $new_state = main::duplicate_formatting_state($state);
if ($arg_style eq 'normal')
{
push @formatted_args, main::substitute_line($arg, "\@$command", $new_state);
}
elsif ($arg_style eq 'code')
{
$new_state->{'code_style'} = 1;
push @formatted_args, main::substitute_line($arg, "\@$command", $new_state);
}
else
{
print STDERR "Unknown arg style($style_index) $arg_style for $command, $state->{'remove_texi'}\n";
}
$style_index++;
}
$args = \@formatted_args;
}
if (defined($style->{'function'}))
{ # in case of an accent, some text is returned here if there are still
# more accents on the command_stack, otherwise it is put in the tree.
# Other commands text results are put in the tree below.
$text = &{$style->{'function'}}($command, $args, $command_stack, $state, $line_nr, $kept_line_nrs);
}
elsif ($info_default_leaf_command{$command})
{ # no formatting function but a leaf command, it is just replaced
# by the formatted argument, and put in the tree below.
$text = $args->[0];
}
if (defined($style->{'begin'}) and !$no_open)
{
$begin = $style->{'begin'};
}
if (defined($style->{'end'}) and !$no_close)
{
$end = $style->{'end'};
}
# normal style commands
unless($special_style{$command} or $info_default_accent_commands{$command} or ($command eq 'hyphenation') or $info_default_leaf_command{$command})
{
return info_default_close_command($state, $command, $begin, $end);
}
# this is for *ref, images and footnotes text registering and putting
# in the tree.
# anchor is already in the tree, from anchor_label.
if (($special_style{$command} or $info_default_leaf_command{$command}) and $command ne 'anchor')
{
return info_default_store_text ($state, $begin.$text.$end, $command);
}
# for accents, hyphenation and anchor
# (though the result for anchor is always an empty string).
return $begin.$text.$end;
}
sub info_default_header ()
{
return $Texi2HTML::THISDOC{'info_header'} if (defined($Texi2HTML::THISDOC{'info_header'}));
# $Texi2HTML::THISDOC{'program'}
my $input_basename = $Texi2HTML::THISDOC{'input_file_name'};
$input_basename =~ s/^.*\///; # if ($TEST);
$input_basename = $STDIN_DOCU_NAME if ($input_basename eq '-');
my $output_basename = $Texi2HTML::THISDOC{'filename'}->{'top'};
$output_basename =~ s/^.*\///;
my $result = "This is $output_basename, produced by makeinfo version 4.13 from $input_basename. ";
my $dummy;
($dummy, $dummy, $dummy, $result) = info_default_process_para_text($result, 0, {'spaces' => ''}, undef, get_conf('fillcolumn'));
$result .= "\n\n";
$result .= "$Texi2HTML::THISDOC{'copying_comment'}";
if ($info_default_dir_specification)
{
$result .= "$info_default_dir_specification\n";
}
$Texi2HTML::THISDOC{'info_header'} = $result;
return $result;
}
sub info_default_print_page_head($)
{
my $fh = shift;
my $header = info_default_header();
print $fh "".$header;
my $state = $Texi2HTML::THISDOC{'state'};
my $info_state = info_default_get_state ($state);
$info_state->{'offset_in_file'} += info_default_byte_count($header);
$info_state->{'blank_line'} = 1 if ($Texi2HTML::THISDOC{'copying_comment'} eq '');
}
sub info_default_parent_format($)
{
my $parent_format = shift;
my $in_format = 0;
while (1)
{
if (defined($parent_format->{'command'}) and $info_default_format{$parent_format->{'command'}})
{
$in_format = 1;
last;
}
last if (!defined($parent_format->{'parent'}));
$parent_format = $parent_format->{'parent'};
}
return ($parent_format, $in_format);
}
sub info_default_paragraph($$$$$$$$$$$$)
{
my $text = shift;
my $align = shift;
my $indent = shift;
my $paragraph_command = shift;
my $paragraph_command_formatted = shift;
my $paragraph_number = shift;
my $format = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $command_stack_at_end = shift;
my $command_stack_at_begin = shift;
my $top_stack = '';
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin));
my $state = $Texi2HTML::THISDOC{'state'};
my $info_state = info_default_get_state ($state);
my ($parent_format, $in_format);
($parent_format, $in_format) = info_default_parent_format($info_state->{'current'}->{'parent'});
info_default_increment_paragraph ($in_format, $parent_format, $info_state);
my $additional_args = {'top_stack' => $top_stack, 'parent_format' => $parent_format};
$additional_args->{'paragraph_in_element_nr'} = ($info_state->{'paragraph_in_element_nr'} - 1) if (!$in_format);
return info_default_close_command(undef, 'paragraph', undef, undef, $additional_args);
}
# currently not used, but could be used if info_default_preformatted
# return something that is not 'false', for example spaces, though we
# want the preformatted to be ignored. Though it is not sure that if there
# are spaces we want to ignore the preformatted.
sub info_default_empty_preformatted($)
{
my $text = shift;
my $result = info_default_preformatted($text, undef, undef, undef, undef,
undef, undef, undef, undef, undef, undef, undef);
return 0;
}
sub info_default_preformatted($$$$$$$$$$$$)
{
my $text = shift;
my $pre_style = shift;
my $class = shift;
my $leading_command = shift;
my $leading_command_formatted = shift;
my $preformatted_number = shift;
my $format = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $command_stack_at_end = shift;
my $command_stack_at_begin = shift;
return info_default_close_command(undef, 'preformatted');
}
sub info_default_node_line($$)
{
my $element = shift;
my $info_state = shift;
my $outfile = $Texi2HTML::THISDOC{'filename'}->{'top'};
$outfile = $STDOUT_DOCU_NAME if ($outfile eq '-');
my $result = "\x{1F}\nFile: $outfile, Node: $element->{'text'}";
if (defined($element->{'NodeNext'}))
{ # This is not translatable
$result .= ", Next: $element->{'NodeNext'}->{'text'}";
}
if (defined($element->{'NodePrev'}))
{
$result .= ", Prev: $element->{'NodePrev'}->{'text'}";
}
if (defined($element->{'NodeUp'}))
{
$result .= ", Up: $element->{'NodeUp'}->{'text'}";
}
$result .= "\n\n";
# the line_count is ahead from the number of lines by one.
$info_state->{'line_count'} = 3;
$info_state->{'offset_in_file'} += info_default_byte_count($result);
$info_state->{'blank_line'} = 1;
return $result;
}
sub info_default_element_heading($$$$$$$$$$$$)
{
my $element = shift;
my $command = shift;
my $texi_line = shift;
my $line = shift;
my $in_preformatted = shift;
my $one_section = shift;
my $element_heading = shift;
my $first_in_page = shift;
my $is_top = shift;
my $previous_is_top = shift;
my $command_line = shift;
my $element_id = shift;
my $new_element = shift;
my $state = $Texi2HTML::THISDOC{'state'};
my $info_state = info_default_get_state ($state);
# FIXME use $element or $Texi2HTML::THIS_ELEMENT? Main program should
# ensure they are the same.
if ($new_element and ($element ne $new_element and $element->{'node'}))
{
die "There is a new element, but element `$element->{'texi'}' is not the new element\n";
}
# FIXME
# non node element may appear if the element appears before the first
# node/section element. For example `element not associated with a node'
# won't be associated with a node.
# @unnumbered element not associated with a node
# @node Top
# @top Top element
if (!$element->{'node'})
{
return &$heading($element, $command, $texi_line, $line, $in_preformatted, $one_section, $element_heading);
}
my $before = '';
$element->{'info_offset'} = $info_state->{'offset_in_file'};
push @{$info_state->{'pending_tags'}}, $element;
my $result = info_default_node_line($element, $info_state);
$info_default_footnote_index = 0;
$info_default_current_node = $element;
return $before.$result;
}
sub info_default_heading($$$$$;$$)
{
my $element = shift;
my $command = shift;
my $texi_line = shift;
my $line = shift;
my $in_preformatted = shift;
my $one_section = shift;
my $element_heading = shift;
die "Heading called for a node\n" if ($element->{'node'});
my $state = $Texi2HTML::THISDOC{'state'};
my $info_state = info_default_get_state ($state);
$info_state->{'paragraph_in_element_nr'} = 0;
if (!defined($element->{'texi'}))
{
main::msg_debug("for $element, element->{'texi'} not defined, texi_line: $texi_line");
}
elsif (!defined($element->{'text'}))
{
main::msg_debug("for $element, $element->{'texi'}, element->{'text'} not defined");
}
return '' if ($element->{'tag'} eq 'part');
my $text = "$element->{'text'}";
# when @top is empty, use settitle
$text = $Texi2HTML::THISDOC{'settitle'} if (!length($text) and $element->{'tag'} eq 'top' and defined ($Texi2HTML::THISDOC{'settitle'}) and length($Texi2HTML::THISDOC{'settitle'}));
my $result = &$heading_text ("\@$command", $text, $element->{'level'});
$result .= "\n";
return info_default_store_text($state, $result, $command, {'heading_command' => 1});
}
sub info_default_normal_text($$$$$$$;$)
{
my @initial_args = @_;
my $text = shift;
my $in_raw_text = shift; # remove_texi
my $in_preformatted = shift;
my $in_code = shift;
my $in_math = shift;
my $in_simple = shift;
my $style_stack = shift;
my $state = shift;
# $Texi2HTML::THISDOC{'ENCODING_NAME'}) should be defined, but maybe
# not when parsing commands in first or second pass, and removeing texi
# like what is done for @setfilename.
if ($ENABLE_ENCODING and defined($Texi2HTML::THISDOC{'ENCODING_NAME'}) and ($Texi2HTML::THISDOC{'ENCODING_NAME'} eq 'utf-8') and $USE_UNICODE)
{
$text = &t2h_utf8_normal_text(@initial_args);
}
else
{
#print STDERR "info_default_normal_text $text $in_preformatted $in_code \n";
$text = uc($text) if (in_cmd($style_stack, 'sc'));
$text = uc($text) if (in_cmd($style_stack, 'var'));
if (! $in_code and !$in_preformatted)
{
$text =~ s/---/\x{1F}/g;
$text =~ s/--/-/g;
$text =~ s/\x{1F}/--/g;
$text =~ s/``/"/g;
$text =~ s/\'\'/"/g;
}
}
# accented characters are not handled as normal text, but when the last
# accent command on the stack is closed.
if ($style_stack and @$style_stack and $info_default_accent_commands{$style_stack->[-1]})
{
return $text;
}
#print STDERR "NORMAL\n";
return info_default_store_text($state,$text);
}
# this is not called in preformatted
sub info_default_empty_line($$)
{
my $text = shift;
my $state = shift;
#ignore the line if it just follows a deff
#return '' if ($state->{'deff_line'});
return info_default_store_text($state,$text);
# return '';
}
# change interface?
sub info_default_anchor_label($$$$)
{
my $id = shift;
my $anchor_text = shift;
my $anchor_reference = shift;
my $in_special_region = shift;
return '' if ($in_special_region);
#print STDERR "Storing anchor $anchor_reference->{'text'}\n";
main::line_warn(__("anchor outside of any node, it won't be registered"), $Texi2HTML::THISDOC{'line_nr'}) if (!defined($info_default_current_node));
return info_default_store_text(undef,undef,'anchor',{'anchor_reference' => $anchor_reference});
}
sub info_default_acronym_like($$$$$$)
{
my $command = shift;
my $acronym_texi = shift;
my $acronym_text = shift;
my $with_explanation = shift;
my $explanation_lines = shift;
my $explanation_text = shift;
my $explanation_simply_formatted = shift;
if ($with_explanation)
{
return "$acronym_text ($explanation_text)";
}
else
{
return "$acronym_text";
}
}
sub info_default_print_page_foot($)
{
my $fh = shift;
my $state = $Texi2HTML::THISDOC{'state'};
my $info_state = info_default_get_state ($state);
my $indirect = 0;
if (!defined ($info_state->{'pending_tags'}))
{ # i18n
main::document_warn ("Document without nodes.");
}
else
{
$indirect = 1 if ($info_default_out_file_nr > 1);
if ($indirect)
{
close ($Texi2HTML::THISDOC{'FH'});
unless (rename ("$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'filename'}->{'top'}", "$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'filename'}->{'top'}-1"))
{
main::document_warn ("Rename $Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'filename'}->{'top'} failed: $!");
}
my $INDIRECT = main::open_out("$Texi2HTML::THISDOC{'destination_directory'}$Texi2HTML::THISDOC{'filename'}->{'top'}");
print $INDIRECT "".info_default_header();
print $INDIRECT "\x{1F}\nIndirect:";
foreach my $indirect (@info_default_pending_indirect)
{
print $INDIRECT "\n$indirect->{'file'}: $indirect->{'offset'}";
}
$fh = $INDIRECT;
}
# makeinfo seems to add systematically an additional \n, done just below
print $fh "\n\x{1F}\nTag Table:\n";
if ($indirect)
{
print $fh "(Indirect)\n";
}
my $Top_seen;
foreach my $element (@{$info_state->{'pending_tags'}})
{
my $prefix;
$prefix = 'Node' if ($element->{'node'});
$prefix = 'Ref' if ($element->{'anchor'} or $element->{'float'});
print $fh "$prefix: $element->{'text'}\x{7F}$element->{'info_offset'}\n";
$Top_seen = 1 if ($element->{'text'} =~ /^top$/i);
}
if (!$Top_seen)
{# i18n
main::document_warn ("Document without Top node.");
}
print $fh "\x{1F}\nEnd Tag Table\n";
}
# IN_ENCODING is the documentencoding transformed to the encoding names
# usually seen in html. This is what the info readers should understand.
my $coding = get_conf('IN_ENCODING');
$coding = get_conf('DOCUMENT_ENCODING') if (!defined($coding));
if (defined($coding))
{
print $fh "\n\x{1F}\nLocal Variables:\ncoding: $coding\nEnd:\n";
}
}
sub info_default_print_Top_footer($$$)
{
my $fh = shift;
my $end_page = shift;
my $element = shift;
if ($end_page)
{
&$print_page_foot($fh);
}
info_default_end_section($fh, $end_page, $element);
}
sub info_default_footnote_texi($$$)
{
my $text = shift;
my $state = shift;
my $style_stack = shift;
unless ($state->{'outside_document'} or (defined($state->{'multiple_pass'}) and $state->{'multiple_pass'} > 0))
{
$info_default_footnote_index++;
}
my $footnote_number = $info_default_footnote_index;
$footnote_number = $NO_NUMBER_FOOTNOTE_SYMBOL if (!$NUMBER_FOOTNOTES);
return "($footnote_number) $text";
#return undef;
}
sub info_default_print_section
{
my $fh = shift;
my $first_in_page = shift;
my $previous_is_top = shift;
my $element = shift;
my $nw = main::print_lines($fh);
my $state = $Texi2HTML::THISDOC{'state'};
my $info_state = info_default_get_state ($state);
if (!$info_state->{'blank_line'})
{
my $end = "\n";
$info_state->{'offset_in_file'} += info_default_byte_count($end);
$info_state->{'line_count'}++;
print $fh "$end";
}
if (@info_default_pending_footnotes)
{
my $footnote_text;
my $footnote_element;
if (get_conf('footnotestyle') eq 'separate')
{
my $node_ref = $info_default_current_node;
# thee is a warning when processing the footnote, like
# "Footnote defined without parent node"
$node_ref = {'text' => 'no node', 'file' => ''} if (!defined($node_ref));
$footnote_element = { 'NodeUp' => $node_ref,
'text' => $node_ref->{'text'} . "-Footnotes",
'file' => $node_ref->{'file'},
'info_offset' => $info_state->{'offset_in_file'},
'node' => 1,
};
$footnote_element->{'element_ref'} = $footnote_element;
push @{$info_state->{'pending_tags'}}, $footnote_element;
$footnote_text = info_default_node_line($footnote_element, $info_state);
}
else
{ # FIXME i18n?
$footnote_text = " ---------- Footnotes ----------\n\n";
$info_state->{'offset_in_file'} += info_default_byte_count($footnote_text);
$info_state->{'line_count'} += 2;
#print STDERR "MMMMMMMMMMMMMMMMMM $info_state->{'line_count'}\n";
}
while (@info_default_pending_footnotes)
{
#push @info_default_pending_footnotes, [$lines, $footnote_text, ${info_default_footnote_index}, $node_name, $footnote_info_state];
my $footnote = shift @info_default_pending_footnotes;
my $foot_nr = $footnote->{'footnote_index'};
my $node_name = $footnote->{'node_name'};
my $lines = $footnote->{'lines'};
push @{$info_state->{'pending_tags'}}, {'anchor' => 1, 'text' => "${node_name}-Footnote-${foot_nr}", 'info_offset' => $info_state->{'offset_in_file'} };
my $footnote_info_state = $footnote->{'footnote_info_state'};
my $footnote_result = shift @{$lines};
# this is used to keep track of the size when there were
# leading spaces that will be removed below. This is only used
# to get the difference, the value itself is not of use.
my $initial_length = info_default_byte_count($footnote_result);
$footnote_result =~ s/^\s*//;
#$footnote_result = " ($foot_nr) " . $footnote_result;
$footnote_result = ' ' x get_conf('paragraphindent') . $footnote_result;
foreach my $footnote_pending_tags(@{$footnote_info_state->{'pending_tags'}})
{
$footnote_pending_tags->{'info_offset'} += $info_state->{'offset_in_file'} + info_default_byte_count($footnote_result) - $initial_length;
push @{$info_state->{'pending_tags'}}, $footnote_pending_tags;
}
foreach my $footnote_pending_index_entry(@{$footnote_info_state->{'pending_index_entries'}})
{
#print STDERR "TTTTTTTTTTT($footnote_pending_index_entry->{'index_entry_reference'}->{'entry'}) $footnote_pending_index_entry->{'line_nr'} $info_state->{'line_count'}\n";
$footnote_pending_index_entry->{'line_nr'} += $info_state->{'line_count'};
$footnote_pending_index_entry->{'index_entry_reference'}->{'real_element'} = $footnote_element if (get_conf('footnotestyle') eq 'separate');
}
my $line;
while (@$lines)
{
$line = shift @$lines;
$footnote_result .= $line;
}
my ($line_passed, $end_of_line, $last_line, $text_indented, $blank_line) = info_default_count_lines($footnote_result);
if ($line_passed == 0)
{# certainly out of paragraph commands
$footnote_result =~ s/\s*$//;
$footnote_result .= "\n";
$line_passed = 1;
}
unless (($last_line !~ /\S/ and $end_of_line) or ($blank_line))
{
$footnote_result .= "\n";
$line_passed += 1;
}
$info_state->{'offset_in_file'} += info_default_byte_count($footnote_result);
$info_state->{'line_count'} += $line_passed;
$footnote_text .= $footnote_result;
}
print $fh "$footnote_text";
}
}
sub info_default_end_section($$$)
{
my $fh = shift;
my $end_foot_navigation = shift;
my $element = shift;
my $state = $Texi2HTML::THISDOC{'state'};
my $info_state = info_default_get_state ($state);
if (defined($Texi2HTML::THISDOC{'SPLIT_SIZE'}) and
$info_state->{'offset_in_file'} > ($info_default_out_file_nr) * $Texi2HTML::THISDOC{'SPLIT_SIZE'})
{
if ($info_default_out_file_nr == 1)
{ # push also the first node, which is always the first pending_tags
push @info_default_pending_indirect, {'file'=>"$Texi2HTML::THISDOC{'filename'}->{'top'}-$info_default_out_file_nr", 'offset' => $info_state->{'pending_tags'}->[0]->{'info_offset'} };
}
$info_default_out_file_nr++;
# these file descriptors leak, but this allows the user to write a
# foot navigation himself, otherwise he would write on a closed file
# descriptor
#close($Texi2HTML::THISDOC{'FH'});
if (!$end_foot_navigation)
{
main::open_out_file("$Texi2HTML::THISDOC{'filename'}->{'top'}-$info_default_out_file_nr");
#print STDERR "X-$info_default_out_file_nr: $info_state->{'offset_in_file'}\n";
&$print_page_head($Texi2HTML::THISDOC{'FH'});
push @info_default_pending_indirect, {'file'=>"$Texi2HTML::THISDOC{'filename'}->{'top'}-$info_default_out_file_nr", 'offset' => $info_state->{'offset_in_file'}};
}
}
}
sub info_default_one_section($$)
{
my $fh = shift;
my $element = shift;
&$print_section($fh, 1, 0, $element);
&$print_page_foot($fh);
}
sub info_default_begin_special_region($$$)
{
my $region = shift;
my $state = shift;
my $lines = shift;
my $info_state = info_default_get_state ($state);
# reset paragraph_in_element_nr if out ofdocument formatting
if ($state->{'outside_document'})
{
$info_state->{'paragraph_in_element_nr'} = 0;
}
}
sub info_default_end_special_region($$$)
{
my $region = shift;
my $state = shift;
my $text = shift;
my $info_state = info_default_get_state ($state);
my $end = '';
if (!$info_state->{'blank_line'})
{
$end = "\n";
$info_state->{'offset_in_file'} += info_default_byte_count($end);
}
return $text.$end;
}
sub info_default_menu_link($$$$$$$$)
{
my $entry = shift;
my $state = shift;
my $href = shift;
my $node = shift;
my $title = shift;
my $ending = shift;
my $has_title = shift;
my $command_stack = shift;
my $preformatted = shift;
$title = '' unless ($has_title);
$title .= ':' if ($title ne '');
my $result = "$MENU_SYMBOL$title$node$ending";
return info_default_store_text($state,$result,'menu_entry');
}
# not used, menu is a normal preformatted command
#sub info_default_menu_command($$$)
#{
# my $format = shift;
# my $text = shift;
# my $in_preformatted = shift;
# return info_default_close_command(undef, $format, "* Menu:\n", undef, "\n");
#}
sub info_default_complex_format($$)
{
my $name = shift;
my $text = shift;
my ($begin, $end);
if ($name eq 'menu')
{
main::line_warn(__("\@menu before first node"), $Texi2HTML::THISDOC{'line_nr'}) if (!defined($info_default_current_node));
$begin = "* Menu:\n\n";
}
elsif ($name eq 'direntry')
{
main::line_warn(__("\@direntry after first node"), $Texi2HTML::THISDOC{'line_nr'}) if (defined($info_default_current_node));
$begin = "START-INFO-DIR-ENTRY\n";
$end = "END-INFO-DIR-ENTRY\n";
}
return info_default_close_command(undef, $name, $begin, $end);
}
sub info_default_quotation($$$$$)
{
my $command = shift;
my $text = shift;
my $argument_text = shift;
my $argument_text_texi = shift;
my $authors = shift;
my $attribution;
if ($authors)
{
$attribution = '';
foreach my $author (@$authors)
{
my $author_texi = $author->{'author_texi'};
chomp($author_texi);
$attribution .= gdt("\@center --- \@emph{{author}}\n", {'author' => $author_texi}, {'duplicate' => 1, 'allow_paragraph' => 1});
}
}
return info_default_close_command(undef, $command, undef, $attribution);
}
sub info_default_misc_commands($$$$$)
{
my $command = shift;
my $line = shift;
my $args = shift;
my $stack = shift;
my $state = shift;
info_default_store_text($state,undef,$command) if ($command eq 'exdent' or $command eq 'noindent' or $command eq 'indent');
return ($command, $line, undef);
}
sub info_default_external_ref($$$$$$$$$)
{
my $type = shift;
my $section = shift;
my $book = shift;
my $file = shift;
my $href = shift;
my $cross_ref = shift;
my $args_texi = shift;
my $formatted_args = shift;
my $node = shift;
return info_default_inforef($formatted_args) if ($type eq 'inforef');
return info_default_normal_reference($type, $formatted_args);
}
sub info_default_internal_ref($$$$$$$$)
{
my $type = shift;
my $href = shift;
my $short_name = shift;
my $name = shift;
my $is_section = shift;
my $args_texi = shift;
my $formatted_args = shift;
my $element = shift;
$formatted_args->[1] = $name if ($element->{'float'} and (!defined($formatted_args->[1]) or $formatted_args->[1] eq ''));
return info_default_inforef($formatted_args) if ($type eq 'inforef');
return info_default_normal_reference($type, $formatted_args);
}
sub info_default_normal_reference($$)
{
my $command = shift;
my $formatted_args = shift;
for (my $i = 0; $i < scalar(@$formatted_args); $i++)
{
$formatted_args->[$i] = undef if (defined($formatted_args->[$i]) and
$formatted_args->[$i] =~ /^\s*$/);
}
my $node = $formatted_args->[0];
# an error, should trigger the message: Undefined node `' in @ref.
# avoid undef value and use an empty string instead.
$node = '' if (!defined($node));
my $name = $formatted_args->[1];
$name = $formatted_args->[2] if (!defined($name));
my $file = $formatted_args->[3];
$file = '' if (!defined($file) and defined($formatted_args->[4]));
$name = $node if (!defined($name) and defined($file));
my $result = '*note ';
$result = '*Note ' if ($command eq 'xref');
if (defined($name))
{
$result .= "${name}: ";
$result .= "($file)" if (defined($file));
$result .= "$node";
$result .= '.' if ($command eq 'pxref');
}
else
{
$result .= "${node}::";
}
return $result;
}
sub info_default_inforef($)
{
my $formatted_args = shift;
return info_default_normal_reference('ref', [$formatted_args->[0], $formatted_args->[1], undef, $formatted_args->[2], 'dumb manual name']);
}
sub info_default_image_files($$$$)
{
my $base = shift;
my $extension = shift;
my $texi_base = shift;
my $texi_extension = shift;
my @files = ();
return @files if (!defined($base) or ($base eq ''));
if (defined($extension) and ($extension ne ''))
{
push @files, ["${base}$extension", "${texi_base}$extension"];
push @files, ["$base.$extension", "$texi_base.$extension"];
}
foreach my $ext (@IMAGE_EXTENSIONS)
{
push @files, ["$base.$ext", "$texi_base.$ext"];
}
return @files;
}
sub info_default_image($$$$$$$$$$$$$$$$$)
{
my $file = shift;
my $base = shift;
my $preformatted = shift;
my $file_name = shift;
my $alt = shift;
my $width = shift;
my $height = shift;
my $raw_alt = shift;
my $extension = shift;
my $working_dir = shift;
my $file_path = shift;
my $in_paragraph = shift;
my $file_locations = shift;
my $base_simple_format = shift;
my $extension_simple_format = shift;
my $file_name_simple_format = shift;
my $line_nr = shift;
my $txt_path;
my $found_file;
my @extensions = @IMAGE_EXTENSIONS;
if (defined($extension) and ($extension ne ''))
{
unshift @extensions, ".$extension";
unshift @extensions, "$extension";
}
else
{
$extension = undef;
}
my $file_found_index = undef;
my $file_index = 0;
foreach my $file_location (@$file_locations)
{
my ($file_located, $path, $file_simple_format) = @$file_location;
my $extension = shift @extensions;
if (defined($path))
{
if ($extension eq 'txt' and !defined($txt_path))
{
$txt_path = $path;
}
elsif (!defined($found_file))
{
$found_file = [$file_located, $extension, $file_simple_format];
$file_found_index = $file_index;
}
}
$file_index++;
}
my $text;
if (defined($txt_path))
{
if (open(TXT, "<$txt_path"))
{
if (defined($Texi2HTML::THISDOC{'IN_ENCODING'}) and $USE_UNICODE)
{
binmode(TXT, ":encoding($Texi2HTML::THISDOC{'IN_ENCODING'})");
}
$text='[' if ($in_paragraph or $preformatted);
while (my $img_txt = <TXT>)
{
$text .= $img_txt;
}
# remove last end of line
chomp ($text);
$text .= ']' if ($in_paragraph or $preformatted);
close(TXT);
}
else
{
main::line_warn (sprintf(__("\@image file `%s' unreadable: %s"), $txt_path, $!), $line_nr);
}
}
elsif (!defined($found_file))
{
main::line_warn (sprintf(__("Cannot find \@image file `%s.txt'"), $base), $line_nr);
}
if (defined($found_file) and (!defined($extension) or $file_found_index <= 1))
{
my $filename = $found_file->[2];
$filename =~ s/\\/\\\\/g;
$filename =~ s/\"/\\\"/g;
my $result = "\x{00}\x{08}[image src=\"$filename\"";
if (defined($alt))
{
$alt =~ s/\\/\\\\/g;
$alt =~ s/\"/\\\"/g;
$result .= " alt=\"$alt\"";
}
if (defined($text))
{
$text =~ s/\\/\\\\/g;
$text =~ s/\"/\\\"/g;
$result .= " text=\"$text\"";
}
$result .= "\x{00}\x{08}]";
return $result;
}
return $text if (defined($text));
return '';
}
sub info_default_printindex($$)
{
my $index_name = shift;
my $printindex = shift;
%info_default_index_entries_counts = ();
return info_default_store_text(undef,t2h_GPL_default_printindex($index_name,$printindex),'printindex');
}
sub info_default_print_index($$)
{
my $text = shift;
my $name = shift;
my $state = $Texi2HTML::THISDOC{'state'};
my $info_state = info_default_get_state ($state);
my $before = '';
if (!$info_state->{'blank_line'})
{
$before = "\n";
}
return $before if (!defined($text));
my $result = "\x{00}\x{08}[index\x{00}\x{08}]\n* Menu:\n\n" .$text."\n";
return $before.$result;
}
sub info_default_index_letter($$$)
{
my $letter = shift;
my $id = shift;
my $text = shift;
return $text;
}
sub info_default_index_entry_label($$$$$$$$$)
{
my $identifier = shift;
my $preformatted = shift;
my $entry = shift;
my $index_name = shift;
my $index_command = shift;
my $texi_entry = shift;
my $formatted_entry = shift;
my $in_region_not_in_output = shift;
my $index_entry_ref = shift;
#return '' if ($index_entry_ref->{'hidden'});
#return '' if (!$index_entry_ref->{'seen_in_output'} and defined($index_entry_ref->{'region'}));
return '' if ($in_region_not_in_output or !defined($index_entry_ref->{'index_name'}));
main::line_warn(sprintf(__("Entry for index `%s' outside of any node"), $index_entry_ref->{'index_name'}), $Texi2HTML::THISDOC{'line_nr'}) if (!defined($info_default_current_node) and !$Texi2HTML::THISDOC{'state'}->{'outside_document'});
my $index_entry_stored = {'index_entry_reference' => $index_entry_ref, 'index_command' => $index_command, 'texi_entry' => $texi_entry};
return info_default_store_text(undef, undef, 'index_label', $index_entry_stored);
}
sub info_default_index_entry($$$$$$$$$$)
{
my $text_href = shift;
my $entry = shift;
my $element_href = shift;
my $element_text = shift;
my $entry_file = shift;
my $current_element_file = shift;
my $entry_target = shift;
my $entry_element_target = shift;
my $in_region_not_in_output = shift;
my $index_entry_ref = shift;
#return '' if ($index_entry_ref->{'hidden'});
#return '' if (!$index_entry_ref->{'seen_in_output'} and defined($index_entry_ref->{'region'}));
return '' if ($in_region_not_in_output);
$entry = main::substitute_line($index_entry_ref->{'texi'}, "index entry in \@printindex");
return '' if ($entry =~ /^\s*$/);
my $entry_nr = '';
if (!defined($info_default_index_entries_counts{$entry}))
{
$info_default_index_entries_counts{$entry} = 0;
}
else
{
$info_default_index_entries_counts{$entry} ++;
$entry_nr = ' <'.$info_default_index_entries_counts{$entry}.'>';
}
my $result = "* $entry${entry_nr}: ";
if (t2h_default_string_width($result) < $info_default_index_length_to_node)
{
$result .= ' ' x($info_default_index_length_to_node - t2h_default_string_width($result));
}
#print STDERR "DDDDDDDDDDD $index_entry_ref `$index_entry_ref->{'texi'}'\n";
my $info_index_entry_ref = $info_default_index_entries{$index_entry_ref};
my $line_nr = $info_index_entry_ref->{'line_nr'};
my $real_element_text;
my $element = $index_entry_ref->{'real_element'};
# in case $element->{'text'} is not defined, it certainly means that we
# are n a special elemet, most likely the virtual element appearing
# before anything else
if (!defined($element->{'text'}))
{
$real_element_text = gdt('(outside of any node)');
$line_nr = 0;
}
else
{
$element = $element->{'element_ref'} if ($element->{'element_ref'});
$real_element_text = $element->{'text'};
# this happens for index entries appearing after @printindex. In that case
# it is considered that they are at the beginning of the node.
$line_nr = 3 if (defined($line_nr) and $line_nr < 3);
$line_nr = 4 if (!defined($line_nr));
}
$result .= $real_element_text . '.';
my $max_len = $info_default_index_line_string_length{$index_entry_ref->{'index_name'}};
$max_len = t2h_default_string_width($line_nr) if (!defined($max_len));
my $line_nr_spaces = sprintf("%${max_len}d", $line_nr);
my $line_part = "(line ${line_nr_spaces})";
#print STDERR "GGGGGGGGGG name: $index_entry_ref->{'index_name'} max: ${max_len} line_nr: `$line_nr' line_nr_spaces `$line_nr_spaces' $line_part \n";
if (t2h_default_string_width($result)+t2h_default_string_width($line_part) +1 > get_conf('fillcolumn'))
{
$result .= "\n" . ' ' x (get_conf('fillcolumn') - t2h_default_string_width($line_part)) ;
}
else
{
$result .= ' ' x (get_conf('fillcolumn') - t2h_default_string_width($line_part) - t2h_default_string_width($result));
}
$result .= "$line_part\n";
return $result;
}
sub info_default_index_summary($$)
{
my $alpha = shift;
my $nonalpha = shift;
return '';
}
sub info_default_summary_letter
{
return '';
}
sub info_default_foot_line_and_ref($$$$$$$$)
{
my $foot_num = shift;
my $relative_num = shift;
my $footid = shift;
my $docid = shift;
my $from_file = shift;
my $footnote_file = shift;
my $lines = shift;
my $state = shift;
my $footnote_state = $Texi2HTML::THISDOC{'state'};
my $footnote_info_state = info_default_get_state ($footnote_state);
my $footnote_text = "($info_default_footnote_index)";
$footnote_text = "($NO_NUMBER_FOOTNOTE_SYMBOL)" if (!$NUMBER_FOOTNOTES);
my $node_name;
$node_name = '';
if (defined($info_default_current_node))
{
$node_name = $info_default_current_node->{'text'};
}
else
{ # i18n
# no warning when outside of document, for footnotes in
# titlepage and copying
main::line_error(__("Footnote defined without parent node"), $Texi2HTML::THISDOC{'line_nr'}) unless ($footnote_state->{'outside_document'});
#print STDERR "".main::context_string()."\n";
}
if (get_conf('footnotestyle') eq 'separate')
{
$footnote_text .= ' (' . info_default_normal_reference('pxref', ["${node_name}-Footnote-${info_default_footnote_index}"]) . ')';
}
push @info_default_pending_footnotes, {'lines' => $lines,
'footnote_text' => $footnote_text,
'footnote_index' => ${info_default_footnote_index},
'node_name' => $node_name,
'footnote_info_state' => $footnote_info_state}
unless ($state->{'outside_document'} or (defined($state->{'multiple_pass'}) and $state->{'multiple_pass'} > 0));
return ([], $footnote_text);
}
sub info_default_foot_lines($)
{
my $lines = shift;
#my $state = $Texi2HTML::THISDOC{'state'};
#my $info_state = info_default_get_state ($state);
@$lines = ();
}
# remark: table_item is the html one, but it gets added to the table text
# on the stack, and is ignored there (in info_default_format).
sub info_default_format_list_item_texi($$$$)
{
my $format = shift;
my $line = shift;
my $prepended = shift;
my $command = shift;
my $number = shift;
my $open_command = 0;
my $result_line;
$command = 'bullet' if ((!defined($command) or $command eq '') and (!defined($prepended) or $prepended eq '') and $format eq 'itemize');
$prepended = "\@$command\{\}" if (defined($command) and $command ne '');
$prepended = "$number." if (defined($number) and $number ne '');
$line =~ s/^\s*//;
if (defined($command) and $command ne '' and $format ne 'itemize')
{
#@*table
$line =~ s/\s*$//;
if (exists ($style_map{$command}))
{
$result_line = "\@$command\{$line\}\n";
}
elsif (exists ($things_map{$command}))
{
$result_line = "\@$command\{\} $line\n";
}
else
{
$result_line = "\@$command $line\n";
}
}
# elsif (defined($prepended) and $prepended ne '')
# { # @enumerate and @itemize
# $prepended =~ s/^\s*//;
# $prepended =~ s/\s*$//;
# $result_line = $prepended . ' ' . $line;
# }
return ($result_line, $open_command);
}
sub info_default_list_item($$$$$$$$$$$$)
{
my $text = shift;
my $format = shift;
my $command = shift;
my $formatted_command = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $prepended = shift;
my $prepended_formatted = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
my $item_command = shift;
# my $prepend = '';
# if (defined($formatted_command) and $formatted_command ne '')
# {
# $prepend = $formatted_command;
# }
# return $prepend . $text;
# $command = 'bullet' if ((!defined($command) or $command eq '') and (!defined($prepended) or $prepended eq '') and $format eq 'itemize');
$formatted_command = $things_map{'bullet'} if ((!defined($command) or $command eq '') and (!defined($prepended) or $prepended eq '') and $format eq 'itemize');
if ($format !~ /table$/)
{
my $result = '';
if ($format eq 'enumerate')
{
$result = $number.'.';
}
elsif ($format eq 'itemize')
{
if (defined($formatted_command) and $formatted_command ne '')
{
$result = $formatted_command;
}
elsif (defined ($prepended_formatted) and $prepended_formatted ne '')
{
$prepended_formatted =~ s/^\s*//;
$prepended_formatted =~ s/\s*$//;
$result = $prepended_formatted;
}
}
else
{
$result = '';
}
$result .= ' ' if ($result ne '');
return info_default_close_command (undef, $item_command, $result);
}
return $text;
}
sub info_default_format($$$)
{
my $tag = shift;
my $element = shift;
my $text = shift;
# currently no command has something else than '' as $element.
# notice that any text is discarded
$element = undef if ($element eq '');
my $element_end = $element;
if (defined($element) and $element =~ /^(\w+)(\s+)(.+)/)
{
$element = $1;
$element_end = $2;
}
return info_default_close_command(undef, $tag, $element, $element_end);
}
sub info_default_tab_item_texi($$$$$$)
{
my $command = shift;
my $commands_stack = shift;
my $stack = shift;
my $state = shift;
my $line = shift;
my $line_nr = shift;
$line =~ s/^\s*//;
my $format;
my $info_state = info_default_get_state ($state);
#$format = $commands_stack->[-1] if (defined($commands_stack) and @$commands_stack and $commands_stack->[-1]);
my ($parent_format, $in_format) = info_default_parent_format($info_state->{'current'});
print STDERR "Not in_format in info_default_tab_item_texi\n" if (!$in_format);
$format = $parent_format->{'command'};
# in case of an @item or @tab outside of any format $format will be
# undefined, or not multitable for a @tab.
# however the main program still do as if something was opened, plus
# it is checked there that the nesting is correct
#return $line if (!defined($format) or $command eq 'tab' and $format ne 'multitable');
#print STDERR "tab_item_texi $format $command $commands_stack, $stack, $state, $line, ".main::format_line_number($line_nr)."\n";
if ($format eq 'multitable')
{ # even if it is a tab, if it is not already in a multitable_row, one
# should be started
if ($command ne 'tab' or $info_state->{'current'}->{'command'} ne 'multitable_row')
{
info_default_open_command($state, 'multitable_row');
}
info_default_open_command($state, 'multitable_cell');
}
elsif ($format =~ /table$/)
{
info_default_store_text ($state, undef, $command, {'format_name' => $format});
}
else
{
info_default_open_command ($state, $command, {'format_name' => $format});
}
# this should have already been done for @item when the line
# is modified by the @-command and so on.
return $line;
}
sub info_default_sp($$)
{
my $number = shift;
my $preformatted = shift;
my $result = "\n" x $number;
return info_default_store_text(undef,$result,'sp');
}
sub info_default_paragraph_style_command($$)
{
my $format = shift;
my $text = shift;
return info_default_close_command(undef, $format);
}
sub info_default_row($$$$$$$$)
{
my $text = shift;
my $macro = shift;
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
#print STDERR "info_default_row: $text\n";
return info_default_close_command(undef, 'multitable_row', undef, undef, {'item_command' => $macro});
}
sub info_default_cell($$$$$$$$)
{
my $text = shift;
my $row_macro = shift;
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
# in general, when before_items, there will be no call to the function
# since there should never be a text sent back, so that this
# function will not be called for the first row (the multitable title).
# However, if there is a @tab before the first @item, the main program
# is less careful and closes the cell in any case, so before_items
# has to be checked for that case.
return info_default_close_command(undef, 'multitable_cell') unless ($before_items);
}
sub info_default_table_list($$$$$$$$$)
{
my $format_command = shift;
my $text = shift;
my $command = shift;
my $formatted_command = shift;
# enumerate
my $item_nr = shift;
my $enumerate_style = shift;
# itemize
my $prepended = shift;
my $prepended_formatted = shift;
# multitable
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
die "BUG: $format_command item_nr undef\n" if (!defined($item_nr));
return info_default_close_command(undef, $format_command, undef, undef, {'total_item_nr' => $item_nr}) if ($format_command ne 'multitable');
my $columnsize = [];
if (defined($prototype_lengths) and @$prototype_lengths)
{
$columnsize = [ @$prototype_lengths ];
}
elsif (defined($columnfractions) and @$columnfractions)
{
foreach my $fraction (@$columnfractions)
{
push @$columnsize, int($fraction * get_conf('fillcolumn') +0.5);
}
}
else
{ # empty multitable
#print STDERR "Empty multitable?\n";
}
return info_default_close_command(undef, $format_command, undef, undef, {'columns_size' => $columnsize, 'total_item_nr' => $item_nr});
}
sub info_default_def_item($$$)
{
my $text = shift;
my $only_inter_item_commands = shift;
my $command = shift;
my $format = 'deff_item';
$format = 'deff_itemx' if ($command =~ /x$/);
return info_default_close_command(undef, $format);
}
sub info_default_def_line($$$$$$$$$$$$$$$$)
{
my $category_prepared = shift;
my $name = shift;
my $type = shift;
my $arguments = shift;
my $index_label = shift;
my $arguments_array = shift;
my $arguments_type_array = shift;
my $unformatted_arguments_array = shift;
my $command = shift;
my $class_name = shift;
my $category = shift;
my $class = shift;
my $style = shift;
my $original_command = shift;
$name = '' if (!defined($name) or ($name =~ /^\s*$/));
$type = '' if (!defined($type) or $type =~ /^\s*$/);
$arguments = '' if (!defined($arguments) or $arguments =~ /^\s*$/);
my $type_name = '';
$type_name .= "$type " if ($type ne '');
$type_name .= $name if ($name ne '');
my $result = " -- $category_prepared: ${type_name}$arguments";
$result =~ s/\s*$//;
$result .= "\n";
my $state = $Texi2HTML::THISDOC{'state'};
info_default_store_text(undef,$result,"${command}_line",{'definition_line' => 1});
my $format = 'deff_item';
$format = 'deff_itemx' if ($original_command =~ /x$/);
return info_default_open_command($state, $format);
}
sub info_default_def($$)
{
my $text = shift;
my $command = shift;
return info_default_close_command(undef, $command);
}
sub info_default_float($$$$$)
{
my $text = shift;
my $float = shift;
my $caption = shift;
my $shortcaption = shift;
my $additional_arguments;
if (exists($float->{'id'}))
{
$additional_arguments->{'anchor_reference'} = $float;
main::line_warn(__("float reference outside of any node, it won't be registered"), $Texi2HTML::THISDOC{'line_nr'}) if (!defined($info_default_current_node) and !$Texi2HTML::THISDOC{'state'}->{'outside_document'});
}
my $caption_text = '';
if (defined($float->{'caption_texi'}))
{
$caption_text = $caption;
}
elsif (defined($float->{'shortcaption_texi'}))
{
$caption_text = $shortcaption;
}
elsif (defined($caption))
{
$caption_text = $caption;
}
#return $caption_text;
return info_default_close_command(undef, 'float', undef, $caption_text, $additional_arguments);
}
sub info_default_listoffloats_entry($$$$)
{
my $style_texi = shift;
my $float = shift;
my $float_style = shift;
my $caption = shift;
my $href = shift;
my @lines = split /^/, $caption;
$caption = $lines[0];
$caption = '' if (!defined($caption));
chomp ($caption);
my $result = '';
#$caption .= ':' if ($caption ne '');
my $caption_entry = "* $float_style: $float->{'text'}.";
if (t2h_default_string_width($caption_entry) > $info_default_listoffloat_caption_entry_length)
{
$caption_entry .= "\n" . ' ' x $info_default_listoffloat_caption_entry_length;
}
else
{
$caption_entry .= ' ' x ($info_default_listoffloat_caption_entry_length - length($caption_entry));
}
my $width = $info_default_listoffloat_caption_entry_length;
while ($caption =~ s/^(\S+\s*)//)
{
my $new_word = $1;
if ((t2h_default_string_width($new_word) + $width) > get_conf('fillcolumn') - 3)
{
$caption_entry .= $info_default_listoffloat_append;
last;
}
else
{
$caption_entry .= $new_word;
$width += t2h_default_string_width($new_word);
}
}
return $caption_entry. "\n";
}
sub info_default_listoffloats($$$)
{
my $style_texi = shift;
my $style = shift;
my $float_entries = shift;
my $state = $Texi2HTML::THISDOC{'state'};
my $info_state = info_default_get_state ($state);
my $result = "* Menu:\n\n";
foreach my $float_entry (@$float_entries)
{
$result .= $float_entry;
}
my ($parent_format, $in_format);
($parent_format, $in_format) = info_default_parent_format($info_state->{'current'});
#print STDERR "\@listoffloats not at top level\n" if ($in_format);
info_default_increment_paragraph ($in_format, $parent_format, $info_state, 'listoffloats');
return info_default_store_text($state,$result,'listoffloats');
}
sub info_default_raw($$)
{
my $style = shift;
my $text = shift;
my $expanded = 1 if (grep {$style eq $_} @EXPAND);
# no warning for unknown raw formats
if ($style eq 'verbatim' or $style eq 'verbatiminclude' or $expanded)
{
return info_default_store_text(undef, $text, $style, {'raw_command' => 1});
}
return '';
}
sub info_default_line_command($$$$)
{
my $command = shift;
my $arg_text = shift;
my $arg_texi = shift;
my $state = shift;
main::line_warn(__("\@dircategory after first node"), $Texi2HTML::THISDOC{'line_nr'}) if (defined($info_default_current_node));
return '' if ($arg_text eq '');
$info_default_dir_specification .= "INFO-DIR-SECTION $arg_text\n";
return '';
}
sub info_default_unknown_style($$$$$)
{
my $command = shift;
my $text = shift;
my $state = shift;
my $no_close = shift;
my $no_open = shift;
my ($result, $result_text, $message);
$result_text = info_default_close_command(undef, $command, undef, undef, undef);
$message = "Unknown command with braces `\@$command'" if (!$no_open);
return (1, $result_text, $message);
}
1;
require "$T2H_HOME/formats/info.init"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/formats/info.init" && -r "$T2H_HOME/formats/info.init");
# @INIT_DOCBOOK@
#+##############################################################################
#
# docbook.init: convert to docbook
#
# Copyright (C) 2008, 2009 Patrice Dumas <pertusus@free.fr>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301 USA
#
#-##############################################################################
# regarding sections and nodes, in docbook we don't care at all about the
# splitting done in the main program. When there is a node, it is recorded as
# being pending. When there is a section it is opened, and closed when
# there is the next section or end of file.
use strict;
my %docbook_complex_format;
my $kept_footnote_function;
my $docbook_in_footnote;
my %docbook_sections;
my %def_format_docbook;
my %def_argument_types_docbook;
my $docbook_pending_node_id;
my $docbook_current_section;
my @docbook_multitable_stack = ();
my @docbook_table_stack = ();
my @docbook_special_quotation;
sub docbook_default_load(;$)
{
my $from_command_line = shift;
t2h_default_set_variables_xml();
$DOCTYPE = '<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.2//EN" "http://www.oasis-open.org/docbook/xml/4.2/docbookx.dtd" [
<!ENTITY tex "TeX">
<!ENTITY latex "LaTeX">
]>';
@T2H_FORMAT_EXPAND = ('docbook');
@IMAGE_EXTENSIONS = ('eps', 'gif', 'jpg', 'jpeg', 'pdf', 'png', 'svg', 'txt');
$INLINE_INSERTCOPYING = 1;
# this should lead to end_section being only called at the end of sectioning
$USE_NODES = 0;
$USE_SECTIONS = 1;
$SHOW_MENU = 0;
$SHOW_TITLE = 0;
$HEADERS = 0;
# certainly irrelevant
$SIMPLE_MENU = 0;
t2h_default_push_handler(\&docbook_initialize_variables, \@command_handler_init);
%style_map = ();
t2h_default_copy_style_map (\%default_style_map, \%style_map);
foreach my $accent_command ('tieaccent', 'dotless', keys(%unicode_accents))
{
$style_map{$accent_command} = { 'function' => \&xml_default_accent };
}
delete $style_map{'sc'}->{'inline_attribute'};
# FIXME there is a code element in v4.3
$style_map{'code'}->{'inline_attribute'} = 'literal';
$style_map{'strong'}->{'inline_attribute'} = 'emphasis role="bold"';
$style_map{'kbd'}->{'inline_attribute'} = 'userinput';
$style_map{'w'}->{'end'} = '<!-- /@w -->';
$style_map{'='}->{'function'} = \&docbook_macron;
$style_map{'b'}->{'inline_attribute'} = 'emphasis role="bold"';
$style_map{'cite'}->{'inline_attribute'} = 'citetitle';
$style_map{'command'}->{'inline_attribute'} = 'command';
$style_map{'dfn'}->{'inline_attribute'} = 'firstterm';
$style_map{'emph'}->{'inline_attribute'} = 'emphasis';
$style_map{'env'}->{'inline_attribute'} = 'envar';
$style_map{'file'}->{'inline_attribute'} = 'filename';
$style_map{'i'}->{'inline_attribute'} = 'wordasword';
$style_map{'key'}->{'inline_attribute'} = 'keycap';
delete $style_map{'key'}->{'begin'};
delete $style_map{'key'}->{'end'};
$style_map{'option'}->{'inline_attribute'} = 'option';
$style_map{'t'}->{'inline_attribute'} = 'literal';
delete $style_map{'sansserif'}->{'inline_attribute'};
delete $style_map{'r'}->{'inline_attribute'};
$style_map{'indicateurl'}->{'inline_attribute'} = 'wordasword';
delete $style_map{'indicateurl'}->{'begin'};
delete $style_map{'indicateurl'}->{'end'};
$style_map{'var'}->{'inline_attribute'} = 'replaceable';
delete $style_map{'verb'}->{'inline_attribute'};
$style_map{'email'}->{'function'} = \&docbook_email;
$style_map{'math'}->{'function'} = \&docbook_math;
$style_map{'uref'}->{'function'} = \&docbook_uref;
$style_map{'url'}->{'function'} = \&docbook_uref;
$style_map{'titlefont'}->{'function'} = \&docbook_titlefont;
#$style_map{'samp'}->{'function'} = \&docbook_samp;
#delete $style_map{'samp'}->{'inline_attribute'};
$style_map{'samp'}->{'inline_attribute'} = 'literal';
$style_map{'samp'}->{'begin'} = '‘';
$style_map{'samp'}->{'end'} = '’';
$kept_footnote_function = $style_map{'footnote'}->{'function'};
$style_map{'footnote'}->{'function'} = \&docbook_footnote;
foreach my $style (keys(%style_map))
{
delete ($style_map{$style}->{'quote'});
}
#use Data::Dumper;
%style_map_pre = ();
t2h_default_copy_style_map (\%style_map, \%style_map_pre);
$style_map_pre{'r'}->{'inline_attribute'} = 'lineannotation';
$colon_command_punctuation_characters{'.'} = '.';
$colon_command_punctuation_characters{':'} = ':';
$colon_command_punctuation_characters{'?'} = '?';
$colon_command_punctuation_characters{'!'} = '!';
$stop_paragraph_command{'titlefont'} = 0;
# FIXME
#$no_paragraph_commands{'anchor'} = 0;
# FIXME
delete $special_accents{'ringaccent'};
$special_accents{'ogonek'} = 'aeiuAEIU';
%simple_map = %default_simple_map;
%simple_map_pre = %simple_map;
# FIXME right? ł Ł
$things_map{'l'} = '/l';
$things_map{'L'} = '/L';
$things_map{'TeX'} = '&tex;';
$things_map{'LaTeX'} = '&latex;';
$things_map{'enddots'} = '….';
$things_map{'minus'} = '−';
# FIXME ∗
$things_map{'point'} = '-!-';
# FIXME ≡
$things_map{'equiv'} = '==';
# FIXME no ‹ nor ›
$things_map{'guilsinglright'} = '>';
$things_map{'guilsinglleft'} = '<';
# The following is unneeded because normal_text is redefined.
# FIXME it should certainly be better to leave those substitutions,
# or even hardcodes them in normal_text.
# t2h_remove_text_substitutions("'", 1, 0, 0, 1);
# t2h_remove_text_substitutions('`', 1, 0, 0, 1);
$things_map{'quotedblbase'} = '„';
$things_map{'quotesinglbase'} = '‚';
%pre_map = %things_map;
#delete $inter_item_commands{'cindex'};
#$no_paragraph_commands{'cindex'} = 0;
$no_paragraph_commands{'float'} = 0;
%docbook_complex_format = (
'example' => 'screen',
'smallexample' => 'screen',
'display' => 'literallayout',
'smalldisplay' => 'literallayout',
'lisp' => 'programlisting',
'smalllisp' => 'programlisting',
'format' => 'abstract',
'smallformat' => 'screen'
);
%docbook_sections = (
'top' => 'chapter',
'part' => 'part',
'chapter' => 'chapter',
'unnumbered' => 'chapter',
'centerchap' => 'chapter',
'appendix' => 'appendix',
'majorheading' => 'other',
'chapheading' => 'other',
'heading' => 'sect1',
'subheading' => 'sect2',
'subsubheading' => 'sect3',
2 => 'sect1',
3 => 'sect2',
4 => 'sect3'
);
%def_format_docbook = (
'deffn' => [ ['function', 'name'] ],
'defvr' => [ ['varname', 'name'] ],
'deftypefn' => [ [ 'returnvalue', 'type' ], ['function', 'name'] ],
'deftypeop' => [ ['returnvalue', 'type'], ['methodname', 'name'] ],
'deftypevr' => [ ['returnvalue', 'type'], ['varname', 'name'] ],
'defcv' => [ ['classname', 'class'], ['property', 'name'] ],
'deftypecv' => [ ['returnvalue', 'type'], ['property', 'name'] ],
'defop' => [ ['classname', 'class'], ['methodname', 'name'] ],
'deftp' => [ ['structname', 'name'] ]
);
%def_argument_types_docbook = (
'param' => 'replaceable',
'paramtype' => 'type',
'delimiter' => ''
);
@docbook_special_quotation = ('note', 'caution', 'important', 'tip', 'warning');
$region_formats_kept{'copying'} = 1;
%format_map = (
'group' => '',
'raggedright' => '',
'copying' => 'copying',
);
$print_Top = \&docbook_print_Top;
$print_Top_footer = \&docbook_print_Top_footer;
$print_page_head = \&docbook_print_page_head;
$print_foot_navigation = \&docbook_noop;
$contents = \&docbook_noop;
$shortcontents = \&docbook_noop;
$about_body = \&docbook_noop;
$print_page_foot = \&docbook_print_page_foot;
$end_section = \&docbook_end_section;
$one_section = \&docbook_one_section;
$acronym_like = \&docbook_acronym_like;
$anchor_label = \&docbook_anchor_label;
$begin_format_texi = \&docbook_begin_format_texi;
$cartouche = \&docbook_cartouche;
$cell = \&docbook_cell;
$complex_format = \&docbook_complex_format;
$def = \&docbook_def;
$def_line = \&docbook_def_line;
$def_item = \&docbook_def_item;
$element_label = \&docbook_element_label;
$external_ref = \&docbook_external_ref;
$float = \&docbook_float;
$foot_line_and_ref = \&docbook_foot_line_and_ref;
$format = \&docbook_format;
$format_list_item_texi = \&docbook_format_list_item_texi;
$heading = \&docbook_heading;
$image = \&docbook_image;
$image_files = \&docbook_image_files;
$index_entry_command = \&docbook_index_entry_command;
$index_entry_label = \&docbook_index_entry_label;
$index_summary = \&docbook_index_summary;
$internal_ref = \&docbook_internal_ref;
$insertcopying = \&docbook_insertcopying;
$list_item = \&docbook_list_item;
$misc_element_label = \&docbook_noop;
$normal_text = \&docbook_normal_text;
$paragraph = \&docbook_paragraph;
$preformatted = \&docbook_preformatted;
$printindex = \&docbook_printindex;
$protect_text = \&xml_default_protect_text;
$quotation = \&docbook_quotation;
$quotation_prepend_text = \&docbook_quotation_prepend_text;
$listoffloats = \&docbook_noop;
$raw = \&docbook_raw;
$row = \&docbook_row;
$sp = \&docbook_sp;
$style = \&docbook_style;
$table_item = \&docbook_table_item;
$table_line = \&docbook_table_line;
$table_list = \&docbook_table_list;
$misc_command_line = \&docbook_misc_commands;
}
sub docbook_footnote
{
$docbook_in_footnote = 1;
my $result = &$kept_footnote_function(@_);
$docbook_in_footnote = 0;
return $result;
}
sub docbook_macron($$)
{
my $accent = shift;
my $args = shift;
return $args->[0] . "¯";
}
sub docbook_samp($$)
{
shift;
my $args = shift;
return "‘<literal>$args->[0]</literal>’";
}
sub docbook_email($$)
{
my $command = shift;
my $args = shift;
my $mail = shift @$args;
my $text = shift @$args;
$mail = main::normalise_space($mail);
if (defined($text) and $text =~ /\S/)
{
# FIXME normalise_space would be more legible.
#return docbook_add_id('ulink').' url="mailto:'.$mail.'">'.main::normalise_space($text).'</ulink>';
return docbook_add_id('ulink').' url="mailto:'.$mail.'">'.$text.'</ulink>';
}
return docbook_add_id('email').">$mail</email>";
}
sub docbook_uref($$)
{
shift;
my $args = shift;
my $url = shift @$args;
my $text = shift @$args;
my $replacement = shift @$args;
$url = main::normalise_space($url);
$text = '' if (!defined($text));
$replacement = '' if (!defined($replacement));
$replacement = $text if ($replacement eq '');
$replacement = $url if ($replacement eq '');
$replacement = main::normalise_space($replacement);
return docbook_add_id('ulink')." url=\"$url\">$replacement</ulink>";
}
# FIXME
sub docbook_titlefont($$)
{
shift;
my $args = shift;
return "$args->[0]";
}
# FIXME there ought to be something better... Like use tex4ht mathml
# output or something like that
sub docbook_math($$)
{
shift;
my $args = shift;
my $text = shift @$args;
return $text;
}
sub docbook_print_page_head($)
{
my $fh = shift;
my $language = get_conf('documentlanguage');
my $doctype = get_conf('doctype');
print $fh <<EOT;
<?xml version="1.0"?>
$doctype
<book id="$Texi2HTML::THISDOC{file_base_name}.$EXTENSION" lang="$language">
EOT
}
sub docbook_print_page_foot($)
{
my $fh = shift;
print $fh "". docbook_close_section();
print $fh <<EOT;
</book>
EOT
}
sub docbook_print_Top($$$)
{
my $fh = shift;
my $has_top_heading = shift;
my $element = shift;
main::print_lines($fh, $Texi2HTML::THIS_SECTION);
}
sub docbook_element_tag($)
{
my $element = shift;
#print STDERR "$element->{'texi'}, $element->{'tag_level'}, $element->{'level'}\n";
return $docbook_sections{$element->{'tag_level'}} if (exists($docbook_sections{$element->{'tag_level'}}));
return $docbook_sections{$element->{'level'}} if (exists($docbook_sections{$element->{'level'}}));
}
sub docbook_node_id($)
{
my $node_texi = shift;
my $node = main::substitute_line($node_texi, 'docbook node id', {'code_style' => 1, 'remove_texi' => 1});
$node =~ s/[\s\"]/-/g;
return &$protect_text($node);
}
sub docbook_initialize_variables()
{
$docbook_pending_node_id = undef;
$docbook_current_section = undef;
@docbook_multitable_stack = ();
@docbook_table_stack = ();
$Texi2HTML::THISDOC{'SPLIT'} = 0 if ($OUTPUT_FORMAT eq 'docbook');
}
sub docbook_add_id($)
{
my $element = shift;
my $result = "<$element";
if (defined($docbook_pending_node_id) and (!$docbook_in_footnote or $element eq 'footnote'))
{
$result .= " id=\"$docbook_pending_node_id\"";
$docbook_pending_node_id = undef;
}
return $result;
}
sub docbook_heading($$$$$)
{
my $element = shift;
my $command = shift;
my $texi_line = shift;
my $line = shift;
my $in_preformatted = shift;
if (defined($command) and $command =~ /heading/)
{
my $text = '';
if (defined($line))
{
$text = $line;
# this isn't done in main program in that case...
chomp ($text);
$text =~ s/^\s*//;
}
return docbook_add_id('bridgehead')." renderas=\"$docbook_sections{$command}\">$text</bridgehead>\n";
}
my $result = '';
# FIXME verify xreflabel
if ($command ne 'node')
{
# close previous section
$result .= docbook_close_section();
my $title = $element->{'text_nonumber'};
my $label = '';
my $xreflabel = '';
if ($element->{'number'})
{
my $label_nr = $element->{'number'};
#$label_nr =~ s/\.$//;
$label = $label_nr;
}
else
{
my $xreftitle = $title;
$xreflabel = " xreflabel=\"$xreftitle\"";
}
$result .= docbook_add_id(docbook_element_tag($element) . " label=\"${label}\"${xreflabel}");
$result .= ">\n<title>$title</title>\n";
$docbook_current_section = $element;
}
return $result;
}
sub docbook_element_label($$$$)
{
my $id = shift;
my $element = shift;
my $command = shift;
my $line = shift;
if ($command eq 'node')
{
$docbook_pending_node_id = docbook_node_id($element->{'texi'});
}
return '';
}
sub docbook_paragraph($$$$$$$$$$$$)
{
my $text = shift;
my $align = shift;
my $indent = shift;
my $paragraph_command = shift;
my $paragraph_command_formatted = shift;
my $paragraph_number = shift;
my $format = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $command_stack_at_end = shift;
my $command_stack_at_begin = shift;
if (defined($paragraph_number) and defined($$paragraph_number))
{
$$paragraph_number++;
}
# no para in multitables, caption and shortcaptions.
my $top_stack = '';
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin));
return $text if ($top_stack eq 'multitable' or $top_stack eq 'shortcaption' or $top_stack eq 'caption' or $top_stack eq 'documentdescription');
if ($text =~ /\S/)
{
#return docbook_add_id('para').">$text</para>";
return "<para>$text</para>";
}
return $text;
}
sub docbook_def_line($$$$$$$$$$$$$$$)
{
my $category_prepared = shift;
my $name = shift;
my $type = shift;
my $arguments = shift;
my $index_label = shift;
my $arguments_array = shift;
my $arguments_type_array = shift;
my $unformatted_arguments_array = shift;
my $command = shift;
my $class_name = shift;
my $category = shift;
my $class = shift;
my $style = shift;
my $original_command = shift;
my %unformatted_arguments = ();
my @unformatted_args = @$unformatted_arguments_array;
foreach my $type (@$arguments_type_array)
{
my $unformatted_arg = shift @unformatted_args;
$unformatted_arguments{$type} = $unformatted_arg;
}
# FIXME unformatted!
my $result = "<synopsis role=\"$unformatted_arguments{'category'}\"><indexterm role=\""
.$main::index_prefix_to_name{$style}."\"><primary>$class_name</primary></indexterm>";
my %arguments = ( 'prepared_category' => $category_prepared,
'category' => $category,
'name' => $name,
'type' => $type,
'class' => $class
);
foreach my $type (keys(%arguments))
{
$arguments{$type} = '' if (!defined($arguments{$type}));
}
foreach my $mandatory_arg (@{$def_format_docbook{$command}})
{
my $elem = $mandatory_arg->[0];
#if ($elem eq 'returnvalue' and $unformatted_arguments{$mandatory_arg->[1]} =~ /^\s*\@code\{/)
if ($elem eq 'returnvalue' and $unformatted_arguments{$mandatory_arg->[1]} =~ /\@code\{/)
{
# FIXME unformatted
my $arg_without_at_command = $unformatted_arguments{$mandatory_arg->[1]};
#$arg_without_at_command =~ s/\s*\@code\{//;
#$arg_without_at_command =~ s/\}\s*$//;
while ($arg_without_at_command =~ /\@code\{([^\{\}]*)\}/)
{
$arg_without_at_command =~ s/\@code\{([^\{\}]*)\}/$1/;
}
$result .= "<$elem>$arg_without_at_command</$elem>";
}
else
{
$result .= "<$elem>$arguments{$mandatory_arg->[1]}</$elem>";
}
}
my @types = @$arguments_type_array;
@unformatted_args = @$unformatted_arguments_array;
foreach my $arg (@$arguments_array)
{
my $type = shift @types;
my $unformatted = shift @unformatted_args;
if (exists ($def_argument_types_docbook{$type}))
{
if ($def_argument_types_docbook{$type} and
($type eq 'paramtype' or ($unformatted !~ /^\s*\@var\{/)))
{
$result .= "<$def_argument_types_docbook{$type}>$arg</$def_argument_types_docbook{$type}>";
}
else
{
$result .= $arg;
}
}
}
$result .= "</synopsis>\n";
return $result;
}
# FIXME
# @deffn
# @c comment
# @end deffn
# leads to the creation of a <definitionitem> with a comment within,
# while there should be no definitionitem
sub docbook_def_item($)
{
my $text = shift;
my $only_inter_item_commands = shift;
if ($text =~ /\S/)
{
return '<blockquote>' . $text . '</blockquote>' unless $only_inter_item_commands;
return $text;
}
return '';
}
sub docbook_def($)
{
my $text = shift;
return docbook_add_id('informalfigure').'>'.$text.'</informalfigure>';
}
sub docbook_preformatted($$$$$$$$$$$$)
{
my $text = shift;
my $pre_style = shift;
my $class = shift;
my $leading_command = shift;
my $leading_command_formatted = shift;
my $preformatted_number = shift;
my $format = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $command_stack_at_end = shift;
my $command_stack_at_begin = shift;
return $text;
}
sub docbook_misc_commands($$$$$)
{
my $macro = shift;
my $line = shift;
my $args = shift;
my $stack = shift;
my $state = shift;
#print STDERR "$macro $line";
#print STDERR "ARGS @$args\n" if defined ($args);
my $result_text = undef;
if ($macro eq 'c' or $macro eq 'comment' and scalar(@$args))
{
my $comment_line = $args->[0];
chomp ($comment_line);
# makeinfo remove all the leading spaces
$comment_line =~ s/^\s//;
$result_text = &$comment ($comment_line);
}
elsif ($macro eq 'settitle')
{
# FIXME to be formatted? Also maybe in line_command. And in html, it
# is handled by heading _text
my $arg = $args->[0];
$arg =~ s/^\s*//;
chomp($arg);
$result_text = "<title>$arg</title>\n";
}
return ($macro, $line, $result_text);
}
sub docbook_foot_line_and_ref($$$$$$$)
{
my $number_in_doc = shift;
my $number_in_page = shift;
my $footnote_id = shift;
my $place_id = shift;
my $document_file = shift;
my $footnote_file = shift;
my $lines = shift;
my $state = shift;
my $result = docbook_add_id('footnote').'>';
foreach my $line (@$lines)
{
$result .= $line;
}
return ([], $result . '</footnote>');
}
sub docbook_any_ref($$$)
{
my $type = shift;
my $args = shift;
my $unformatted_args = shift;
# FIXME?
if ($type eq 'inforef')
{
my $node_file = "($args->[2])$args->[0]";
if ($args->[1] ne '')
{
return "*note $args->[1]: $node_file";
}
else
{
return "*note ${node_file}::";
}
}
else
{
if (($args->[3] ne '') or ($args->[4] ne ''))
{
return '' if ($args->[4] eq '');
my $section_name = $args->[2];
$section_name = $args->[0] if ($section_name eq '');
if ($type eq 'ref')
{
return gdt('section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}', { 'section_name' => $section_name, 'book' => $args->[4] },{'duplicate'=>1});
}
elsif ($type eq 'xref')
{
return gdt('See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}', { 'section_name' => $section_name, 'book' => $args->[4] },{'duplicate'=>1});
}
elsif ($type eq 'pxref')
{
return gdt('see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}', { 'section_name' => $section_name, 'book' => $args->[4] },{'duplicate'=>1});
}
}
my $link = docbook_node_id($unformatted_args->[0]);
my $title = $args->[2];
$title = $args->[1] if ($title eq '');
if ($title eq '')
{
if ($type eq 'ref')
{
return gdt('{ref}', {'ref' => docbook_add_id('xref')." linkend=\"$link\"></xref>"});
}
elsif ($type eq 'pxref')
{
return gdt('see {ref}', {'ref' => docbook_add_id('xref')." linkend=\"$link\"></xref>"});
}
elsif ($type eq 'xref')
{
return gdt('See {ref}', {'ref' => docbook_add_id('xref')." linkend=\"$link\"></xref>"});
}
}
else
{
if ($type eq 'ref')
{
return gdt('{title_ref}', {'title_ref' => docbook_add_id('link')." linkend=\"$link\">$title</link>"});
}
elsif ($type eq 'pxref')
{
return gdt('see {title_ref}', {'title_ref' => docbook_add_id('link')." linkend=\"$link\">$title</link>"},{'duplicate'=>1});
}
elsif ($type eq 'xref')
{
return gdt('See {title_ref}', {'title_ref' => docbook_add_id('link')." linkend=\"$link\">$title</link>"},{'duplicate'=>1});
}
}
}
}
sub docbook_external_ref($$$$$$$$$)
{
my $type = shift;
my $section = shift;
my $book = shift;
my $file = shift;
my $href = shift;
my $cross_ref = shift;
my $args_texi = shift;
my $formatted_args = shift;
my $node = shift;
return docbook_any_ref ($type, $formatted_args, $args_texi);
}
sub docbook_internal_ref($$$$$)
{
my $type = shift;
my $href = shift;
my $short_name = shift;
my $name = shift;
my $is_section = shift;
my $args_texi = shift;
my $formatted_args = shift;
return docbook_any_ref ($type, $formatted_args, $args_texi );
}
sub docbook_index_entry_command($$$$$)
{
my $command = shift;
my $index_name = shift;
my $label = shift;
my $entry_texi = shift;
my $entry_formatted = shift;
return $label if (defined($label) and $label ne '');
return docbook_index_entry_label('','','',$main::index_prefix_to_name{$index_name}, '', '', $entry_formatted, {});
}
sub docbook_index_entry_label($$$$$$$$$)
{
my $identifier = shift;
my $preformatted = shift;
my $entry = shift;
my $index_name = shift;
my $index_command = shift;
my $texi_entry = shift;
my $formatted_entry = shift;
my $in_region_not_in_output = shift;
my $index_entry = shift;
return "<indexterm role=\"${index_name}\"><primary>${formatted_entry}</primary></indexterm>";
}
sub docbook_close_section()
{
my $element = $docbook_current_section;
if (!defined($element))
{
return '';
}
my $result = '';
# there is a special case for a @chapter that is a child of @top
# but should not be considered as is, since it is also toplevel.
# @part, however may have other toplevel elements as children.
return '' if ($element->{'child'} and (!$element->{'child'}->{'toplevel'} or $element->{'tag'} ne 'top'));
$result .= '</'.docbook_element_tag($element).">\n";
my $current = $element;
# the second condition is such that top is closed only if it has
# sub-elements below chapter.
# the third condition is such that elements with a next element are
# only closed for the last element, except when the next element is
# toplevel and below top, such that @top is closed before the first
# @chapter if there are @section or the like below @top
while ($current->{'sectionup'} and !($current->{'sectionup'}->{'tag'} eq 'top' and $current->{'toplevel'}) and (!$current->{'childnext'} or ($current->{'childnext'}->{'toplevel'} and $current->{'sectionup'}->{'tag'} eq 'top')))
{
$current = $current->{'sectionup'};
$result .= '</'.docbook_element_tag($current).">\n";
}
return $result;
}
sub docbook_end_section($$$)
{
my $fh = shift;
my $end_foot_navigation = shift;
my $element = shift;
}
sub docbook_print_Top_footer($$)
{
my $fh = shift;
my $end_page = shift;
my $element = shift;
}
sub docbook_one_section($$)
{
my $fh = shift;
my $element = shift;
main::print_lines($fh);
&$print_page_foot($fh);
}
sub docbook_insertcopying($)
{
my $text = shift;
my $comment = shift;
my $simple_text = shift;
return $text;
}
sub docbook_acronym_like($$$$$$)
{
my $command = shift;
my $acronym_texi = shift;
my $acronym_text = shift;
my $with_explanation = shift;
my $explanation_lines = shift;
my $explanation_text = shift;
my $explanation_simply_formatted = shift;
$command = 'abbrev' if ($command eq 'abbr');
my $result = docbook_add_id($command).">$acronym_text</${command}>";
if ($with_explanation)
{
$result .= " ($explanation_text)";
}
return $result;
}
sub docbook_image_files($$$$)
{
my $base = shift;
my $extension = shift;
my $texi_base = shift;
my $texi_extension = shift;
my @files = ();
return @files if (!defined($base) or ($base eq ''));
# FIXME should look at extension argument? makeinfo doesn't
# push @files,"$base.$extension" if (defined($extension) and ($extension ne ''));
foreach my $ext (@IMAGE_EXTENSIONS)
{
push @files, ["$base.$ext", "$texi_base.$ext"];
}
return @files;
}
sub docbook_image($$$$$$$$$$$$$$$$;$)
{
my $file = shift;
my $base = shift;
my $preformatted = shift;
my $file_name = shift;
my $alt = shift;
my $width = shift;
my $height = shift;
my $raw_alt = shift;
my $extension = shift;
my $working_dir = shift;
my $file_path = shift;
my $in_paragraph = shift;
my $file_locations = shift;
my $base_simple_format = shift;
my $extension_simple_format = shift;
my $file_name_simple_format = shift;
my $line_nr = shift;
# if (!defined($file_path) or $file_path eq '' or $file_path =~ /\.txt$/)
# {
# if (defined($extension) and $extension ne '')
# {
# $file = "$base.$extension";
# }
# else
# {
# $file = "$base.jpg";
# $extension = 'jpg';
# }
# main::line_warn ("no image file for $base, (using $file)");
# }
my $txt_path;
my @files = ();
my @extensions = @IMAGE_EXTENSIONS;
foreach my $file_location (@$file_locations)
{
my ($file_located, $path, $file_simple_format) = @$file_location;
my $extension = shift @extensions;
if (defined($path))
{
if ($extension eq 'txt' and !defined($txt_path))
{
$txt_path = $path;
}
else
{
push @files, [$file_located, uc($extension), $file_simple_format];
}
}
}
push @files, ["$base.jpg", 'JPG', "$base_simple_format.jpg" ] unless (@files);
my $begin = docbook_add_id('inlinemediaobject').'>';
my $end = '</inlinemediaobject>';
if ($preformatted or !$in_paragraph)
{
$begin = docbook_add_id('informalfigure').'><mediaobject>';
$end = '</mediaobject></informalfigure>';
}
my $result = $begin;
foreach my $file_spec (@files)
{
$result .= "<imageobject><imagedata fileref=\"$file_spec->[2]\" format=\"$file_spec->[1]\"></imagedata></imageobject>";
}
if (defined($txt_path))
{
if (open(TXT, "<$txt_path"))
{
if (defined($Texi2HTML::THISDOC{'IN_ENCODING'}) and $USE_UNICODE)
{
binmode(TXT, ":encoding($Texi2HTML::THISDOC{'IN_ENCODING'})");
}
$result.="<textobject><literallayout>";
while (my $img_txt = <TXT>)
{
$result .= $img_txt;
}
$result .= '</literallayout></textobject>';
close(TXT);
}
else
{
main::line_warn (sprintf(__("\@image file `%s' unreadable: %s"), $txt_path, $!), $line_nr);
}
}
else
{
main::line_warn (sprintf(__("Cannot find \@image file `%s.txt'"), $base), $line_nr);
}
return "$result$end";
}
sub docbook_format_list_item_texi($$$$)
{
my $format = shift;
my $line = shift;
my $prepended = shift;
my $command = shift;
my $result_line = undef;
if (defined($command) and $command ne '' and !exists $special_list_commands{$format}->{$command} and $format ne 'itemize')
{
#@*table
$line =~ s/^\s*//;
$line =~ s/\s*$//;
if (exists ($style_map{$command}))
{
$result_line = "\@$command\{$line\}\n";
}
elsif (exists ($things_map{$command}))
{
$result_line = "\@$command\{\} $line\n";
}
else
{
$result_line = "\@$command $line\n";
}
}
return ($result_line, 0);
}
# row in multitable
sub docbook_row($$;$$)
{
my $text = shift;
my $macro = shift;
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
my $result = '';
if ($macro eq 'headitem')
{
if ($docbook_multitable_stack[-1] != 0)
{
$result .= "<thead>";
$result = "</tbody>" . $result if ($docbook_multitable_stack[-1] == 1);
$docbook_multitable_stack[-1] = 0;
}
}
elsif ($docbook_multitable_stack[-1] != 1)
{
$result .= "<tbody>";
$result = "</thead>" . $result if ($docbook_multitable_stack[-1] == 0);
$docbook_multitable_stack[-1] = 1;
}
$result .= "<row>$text</row>";
return $result;
}
# cell in multitable
sub docbook_cell($$;$$)
{
my $text = shift;
my $row_macro = shift;
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
return "<entry>" . $text . '</entry>';
}
# if varlistentry_state is > 0 it means that a varlistentry is opened.
# if varlistentry_state is == 2 it means that we are in a succession
# of term
# if varlistentry_state is == 1 it means that we are in the line
# Having a listitem in a varlistentry is a must, so an empty
# listitem is added if a varlistentry is closed and varlistentry_state == 2
#
# varlistentry acceps only term and listitem, so inter_item_commands
# are put in the next term, or, if at the end of the table in a last
# listitem
sub docbook_table_item($$$$$$)
{
my $text = shift;
my $index_label = shift;
my $format = shift;
my $command = shift;
# my $formatted_command = shift;
my $style_stack = shift;
# my $text_formatted = shift;
# my $text_formatted_leading_spaces = shift;
# my $text_formatted_trailing_spaces = shift;
my $item_cmd = shift;
# $formatted_command = '' if (!defined($formatted_command));
# if (defined($text_formatted))
# {
# $text_item = $text_formatted_leading_spaces . $text_formatted .$text_formatted_trailing_spaces;
# }
# else
# {
# $text_item = $text;
# }
my $result = '';
my $prepended = '';
if (defined($docbook_table_stack[-1]->{'inter_item'}))
{
#$formatted_command = $docbook_table_stack[-1]->{'inter_item'} . $formatted_command;
$prepended = $docbook_table_stack[-1]->{'inter_item'};
delete $docbook_table_stack[-1]->{'inter_item'};
}
if ($item_cmd eq 'item')
{
if ($docbook_table_stack[-1]->{'varlistentry_state'} == 2)
{
$result .= "<listitem><para><!-- empty table line --></para></listitem>";
}
if ($docbook_table_stack[-1]->{'varlistentry_state'} >= 1)
{
$result .= '</varlistentry>';
}
$docbook_table_stack[-1]->{'varlistentry_state'} = 2;
$result .= '<varlistentry>';
}
$result .= '<term>';
$result .= $prepended . $text ."</term>\n";
return $result;
}
sub docbook_table_line($$$)
{
my $text = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
$only_inter_item_commands = '' if (!defined($only_inter_item_commands));
#print STDERR
if ($text =~ /\S/)
{
if ($before_items)
{
return $text;
}
if ($only_inter_item_commands)
{
$docbook_table_stack[-1]->{'inter_item'} = $text;
return '';
}
else
{
$docbook_table_stack[-1]->{'varlistentry_state'} = 1;
return "<listitem>$text</listitem>";
}
#return $text;
}
else
{
return '';
}
}
sub docbook_list_item($$$$$$$$$)
{
my $text = shift;
my $format = shift;
my $command = shift;
my $formatted_command = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $prepended = shift;
my $prepended_formatted = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
$only_inter_item_commands = '' if (!defined($only_inter_item_commands));
#my $prep_t = 'UNDEF'; $prep_t = $prepended if (defined($prepended));
#$item_nr = 0 if (!defined($item_nr));
#print STDERR " $item_nr --> $prep_t|${text}!!!!!\n";
#return $text if ($only_inter_item_commands and $before_items);
return $text if ($before_items);
return '<listitem>' . $text . "</listitem>\n";
}
sub docbook_table_list($$$$$$$$$)
{
my $format_command = shift;
my $text = shift;
my $command = shift;
my $formatted_command = shift;
# enumerate
my $item_nr = shift;
my $enumerate_style = shift;
# itemize
my $prepended = shift;
my $prepended_formatted = shift;
# multitable
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $number = shift;
my $result = "<$format_command>";
if ($format_command eq 'itemize')
{
my $itemfunction;
#$prepended_formatted =~ s/^\s*// if (defined($prepended_formatted));
$prepended =~ s/^\s*// if (defined($prepended));
#if (defined($formatted_command) and $formatted_command ne '')
if (defined($command) and $command ne '')
{
#$itemfunction = $formatted_command;
$itemfunction = $command;
#$itemfunction .= " $prepended_formatted" if (defined($prepended_formatted) and $prepended_formatted ne '');
$itemfunction .= " $prepended" if (defined($prepended) and $prepended ne '');
}
#elsif (defined($prepended_formatted))
elsif (defined($prepended))
{
#$itemfunction = $prepended_formatted;
$itemfunction = $prepended;
}
my $mark = '';
$mark = " mark=\"$itemfunction\"" if (defined($itemfunction) and $itemfunction ne '');
return docbook_add_id('itemizedlist')."${mark}>$text</itemizedlist>";
}
elsif ($format_command eq 'enumerate')
{
my $numeration='arabic';
if (defined($enumerate_style) and $enumerate_style ne '')
{
if ($enumerate_style =~ /^[A-Z]/)
{
$numeration = 'upperalpha';
}
elsif ($enumerate_style =~ /^[a-z]/)
{
$numeration = 'loweralpha';
}
}
return docbook_add_id('orderedlist') ." numeration=\"$numeration\">$text</orderedlist>";
}
elsif ($format_command eq 'multitable')
{
my $result = docbook_add_id('informaltable').'><tgroup cols="'.$number.'">';
my $fractions;
my $multiply = 1;
if (defined($columnfractions) and (ref($columnfractions) eq 'ARRAY')
and scalar(@$columnfractions))
{
$fractions = [ @$columnfractions ];
$multiply = 100;
}
elsif (defined($prototype_lengths) and (ref($prototype_lengths) eq 'ARRAY')
and scalar(@$prototype_lengths))
{
$fractions = [ @$prototype_lengths ];
}
if (defined ($fractions))
{
foreach my $fraction (@$fractions)
{
$result .= '<colspec colwidth="'.($fraction*$multiply).'*"></colspec>';
}
}
$text .= "</tbody>" if ($docbook_multitable_stack[-1] == 1);
$text .= "</thead>" if ($docbook_multitable_stack[-1] == 0);
pop @docbook_multitable_stack;
return $result . "$text</tgroup></informaltable>";
}
elsif ($format_command =~ /^(v|f)?table$/)
{
$result = docbook_add_id('variablelist').'>';
if (defined($docbook_table_stack[-1]->{'inter_item'}))
{ # there is a para in case there is only a comment, to avoid
# an empty listitem
$text .= "<listitem><para>$docbook_table_stack[-1]->{'inter_item'}</para></listitem>";
}
elsif ($docbook_table_stack[-1]->{'varlistentry_state'} == 2)
{
$text .= "<listitem><para><!-- empty table line --></para></listitem>";
}
$text .= '</varlistentry>' if ($docbook_table_stack[-1]->{'varlistentry_state'} >= 1);
pop @docbook_table_stack;
return $result . "$text</variablelist>\n";
}
}
sub docbook_begin_format_texi($$$)
{
my $command = shift;
my $line = shift;
my $state = shift;
push (@docbook_multitable_stack, -1) if ($command eq 'multitable');
push (@docbook_table_stack, {'varlistentry_state' => 0}) if ($command =~ /^(v|f)?table/);
return $line;
}
# FIXME
sub docbook_sp($$)
{
my $number = shift;
my $preformatted = shift;
return "";
}
sub docbook_index_summary($$)
{
my $alpha = shift;
my $nonalpha = shift;
return '';
}
sub docbook_printindex($$)
{
my $name = shift;
my $printindex = shift;
return docbook_add_id('index')."></index>\n";
}
sub docbook_complex_format($$)
{
my $name = shift;
my $text = shift;
return '' if ($text eq '');
my $result = docbook_add_id($docbook_complex_format{$name}).'>' .$text."</$docbook_complex_format{$name}>";
return $result;
}
sub docbook_format($$)
{
my $name = shift;
my $element = shift;
my $text = shift;
return '' if ($text eq '');
return $text if ($format_map{$name} eq '');
if ($name eq 'copying')
{
# FIXME is info in docbook 5.0
return "<bookinfo>\n<legalnotice>\n$text</legalnotice>\n</bookinfo>\n";
}
return docbook_add_id($format_map{$name}).'>' .$text."</$format_map{$name}>";
}
sub docbook_quotation_prepend_text($$)
{
my $command = shift;
my $argument_text = shift;
return undef if (!defined($argument_text) or $argument_text =~ /^$/);
chomp($argument_text);
return undef if (grep {lc($argument_text) eq $_} @docbook_special_quotation);
return gdt('@b{{quotation_arg}:} ', {'quotation_arg' => $argument_text}, {'keep_texi' => 1});
}
sub docbook_quotation($$$$$)
{
my $command = shift;
my $text = shift;
my $argument_text = shift;
my $argument_text_texi = shift;
my $authors = shift;
$argument_text_texi = '' if (!defined($argument_text_texi));
chomp($argument_text_texi);
my $docbook_command = 'blockquote';
if (grep {lc($argument_text_texi) eq $_} @docbook_special_quotation)
{
$docbook_command = lc($argument_text_texi);
}
my $attribution = '';
if ($authors)
{
foreach my $author (@$authors)
{
$attribution .= $author->{'author_text'};
}
$attribution = '<attribution>' .$attribution. '</attribution>' . "\n";
}
return docbook_add_id($docbook_command).'>' .$attribution . $text . "</$docbook_command>\n";
}
sub docbook_style($$$$$$$$$)
{
my $style = shift;
my $command = shift;
my $text = shift;
my $args = shift;
my $no_close =shift;
my $no_open = shift;
my $line_nr = shift;
my $state = shift;
my $command_stack = shift;
my $kept_line_nrs = shift;
my $result = $text;
if (exists($style->{'function'}))
{
my $function = $style->{'function'};
$result = &$function($command, $args, $command_stack, $state, $line_nr, $kept_line_nrs);
}
elsif (exists($style->{'inline_attribute'}))
{
my $element = $style->{'inline_attribute'};
my $attribute_text = '';
if ($element =~ /^(\w+)(\s+.*)/)
{
$element = $1;
$attribute_text = $2;
}
if ($no_open)
{
$result = "<$element";
}
else
{
$result = docbook_add_id($element);
}
$result .= "$attribute_text>$text</$element>";
}
if (exists($style->{'begin'}) and !$no_open)
{
$result = $style->{'begin'} . $result;
}
if (exists($style->{'end'}) and !$no_close)
{
$result .= $style->{'end'};
}
return $result;
}
sub docbook_raw($$$)
{
my $style = shift;
my $text = shift;
my $line_nr = shift;
if ($style eq 'verbatim' or $style eq 'verbatiminclude')
{
return docbook_add_id('screen').'>' . &$protect_text($text) . '</screen>';
}
return '' unless (grep {$style eq $_} @EXPAND);
if ($style eq 'docbook')
{
chomp ($text);
return $text;
}
else
{
main::line_warn (sprintf(__("Raw format %s is not converted"), $style), $line_nr);
return &$protect_text($text);
}
}
sub docbook_cartouche($$)
{
my $text = shift;
return $text;
}
sub docbook_anchor_label($$)
{
my $id = shift;
my $anchor_text = shift;
# FIXME use docbook_node_id
return '<anchor id="'. &$protect_text($anchor_text) . '"></anchor>';
}
sub docbook_float($$$$$)
{
my $text = shift;
my $float = shift;
my $caption = shift;
my $shortcaption = shift;
my $label_texi = $float->{'texi'};
return $text if (!defined($label_texi) or $label_texi eq '');
return docbook_anchor_label('',$label_texi) . $text;
}
sub docbook_normal_text($$$$$$$;$)
{
my $text = shift;
my $in_raw_text = shift; # remove_texi
my $in_preformatted = shift;
my $in_code = shift;
my $in_math = shift;
my $in_simple = shift;
#print STDERR "Bug: in_raw_text in_simple $text\n" if ($in_raw_text and $in_simple);
my $style_stack = shift;
my $state = shift;
#$text = uc($text) if (in_cmd($style_stack, 'sc'));
$text = &$protect_text($text) unless($in_raw_text);
if (! $in_code and !$in_preformatted)
{
if (!$in_raw_text)
{
$text =~ s/---/\&mdash\;/g;
$text =~ s/--/\&ndash\;/g;
$text =~ s/``/\&ldquo\;/g;
$text =~ s/''/\&rdquo\;/g;
}
else
{
#FIXME really do that ? It is done by makeinfo in html
$text =~ s/``/"/g;
$text =~ s/''/"/g;
# FIXME really do that in raw text?
$text =~ s/---/\x{1F}/g;
$text =~ s/--/-/g;
$text =~ s/\x{1F}/--/g;
}
}
return $text;
}
sub docbook_noop
{
return '';
}
1;
require "$T2H_HOME/formats/docbook.init"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/formats/docbook.init" && -r "$T2H_HOME/formats/docbook.init");
# @INIT_XML@
# vim: set filetype=perl:
use strict;
my @xml_multitable_stack = ();
my @xml_table_stack = ();
my @xml_ignored_misc_commands;
my %xml_misc_command_output;
my %xml_misc_elements_with_arg_map;
my @xml_misc_elements_with_arg;
my %def_format_xml;
my $xml_current_section;
sub xml_default_load(;$)
{
my $from_command_line = shift;
t2h_default_set_variables_xml();
$DOCTYPE = '<!DOCTYPE texinfo PUBLIC "-//GNU//DTD TexinfoML V4.12//EN" "http://www.gnu.org/software/texinfo/dtd/4.12/texinfo.dtd">';
$SIMPLE_MENU = 0;
$SEPARATE_DESCRIPTION = 1;
@T2H_FORMAT_EXPAND = ('xml', 'direntry');
$USE_ISO = 0;
$HEADERS = 0;
$INLINE_INSERTCOPYING = 0;
$SHOW_MENU = 1;
$SHOW_TITLE = 0;
$NUMBER_SECTIONS = 0;
$USE_NODES = 1;
$USE_SECTIONS = 1;
t2h_default_push_handler(\&xml_init_variables, \@command_handler_init);
$colon_command_punctuation_characters{'.'} = '.';
$colon_command_punctuation_characters{':'} = ':';
$colon_command_punctuation_characters{'?'} = '?';
$colon_command_punctuation_characters{'!'} = '!';
$simple_map{'*'} = '&linebreak;';
$simple_map{' '} = '&space;';
$simple_map{"\t"} = '&space;';
$simple_map{"\n"} = '&space;';
$simple_map{'.'} = '&eosperiod;';
$simple_map{'!'} = '&eosexcl;';
$simple_map{'?'} = '&eosquest;';
%simple_map_pre = %simple_map;
# FIXME right?
$things_map{'l'} = '/l';
$things_map{'L'} = '/L';
$things_map{'enddots'} = '&enddots;';
$things_map{'dots'} = '&dots;';
# FIXME equiv, point, expansion could be ameliorated
$things_map{'equiv'} = '==';
$things_map{'point'} = '-!-';
$things_map{'expansion'} = '==>'; # →?
$things_map{'minus'} = '−';
$things_map{'result'} = '⇒';
$things_map{'bullet'} = '•';
$things_map{'copyright'} = '©right;';
$things_map{'registeredsymbol'} = '®istered;';
$things_map{'arrow'} = '→';
$things_map{'TeX'} = '&tex;';
$things_map{'LaTeX'} = '&latex;';
%pre_map = %things_map;
$stop_paragraph_command{'caption'} = 1;
$stop_paragraph_command{'shortcaption'} = 1;
%line_command_map = ();
foreach my $command ('contents', 'shortcontents', 'summarycontents')
{
$line_command_map{$command} = $command;
}
%format_map = ();
$format_map{'copying'} = '';
$format_map{'titlepage'} = 'titlepage';
$format_map{'documentdescription'} = 'documentdescription';
$format_map{'group'} = 'group';
$format_map{'raggedright'} = 'raggedright';
foreach my $region ('titlepage', 'documentdescription', 'copying')
{
$region_formats_kept{$region} = 1;
}
%style_map = ();
t2h_default_copy_style_map (\%default_style_map, \%style_map);
foreach my $style (keys(%style_map))
{
next if grep {$style eq $_} ('asis', 'ctrl', 'w');
if (grep {$style eq $_} ('tieaccent', 'dotless', keys(%unicode_accents)))
{
$style_map{$style} = { 'function' => \&xml_default_accent };
}
elsif (!exists($style_map{$style}->{'args'}) or (scalar(@{$style_map{$style}->{'args'}}) eq 1 and ($style_map{$style}->{'args'}->[0] eq 'code' or $style_map{$style}->{'args'}->[0] eq 'normal')))
{
$style_map{$style}->{'inline_attribute'} = $style;
delete ($style_map{$style}->{'quote'});
delete ($style_map{$style}->{'begin'});
delete ($style_map{$style}->{'end'});
delete ($style_map{$style}->{'function'});
}
}
foreach my $complex_format (keys(%complex_format_map))
{
my $style = $complex_format_map{$complex_format}->{'style'};
delete $complex_format_map{$complex_format};
$complex_format_map{$complex_format}->{'begin'} = "<$complex_format xml:space=\"preserve\">";
$complex_format_map{$complex_format}->{'end'} = "</$complex_format>";
$complex_format_map{$complex_format}->{'style'} = $style if (defined($style));
}
foreach my $menu_command('menu', 'detailmenu', 'direntry', 'menu_comment')
{
$complex_format_map{$menu_command} = undef;
delete $complex_format_map{$menu_command};
}
# this is not needed because normal_text isn't the same than in html
#t2h_remove_text_substitutions("'", 1, 0, 0, 1);
#t2h_remove_text_substitutions('`', 1, 0, 0, 1);
$style_map{'w'}->{'end'} = '<!-- /@w -->';
$style_map{'='}->{'function'} = \&xml_macron;
$style_map{'email'}->{'function'} = \&xml_email;
$style_map{'titlefont'}->{'function'} = \&xml_titlefont;
$style_map{'math'}->{'function'} = \&xml_math;
$style_map{'uref'}->{'function'} = \&xml_uref;
$style_map{'url'}->{'function'} = \&xml_uref;
$style_map{'t'}->{'inline_attribute'} = 'tt';
# FIXME
delete $special_accents{'ringaccent'};
$special_accents{'ogonek'} = 'aeiuAEIU';
%style_map_pre = %style_map;
$no_paragraph_commands{'cindex'} = 0;
#my @xml_ignored_misc_commands = ('bye', 'sp', 'verbatiminclude');
@xml_ignored_misc_commands = ('bye', 'sp', 'verbatiminclude', 'clickstyle',
'defcodeindex',
'syncodeindex', 'paragraphindent', 'shorttitlepage', 'refill', 'noindent');
# we want to proceed all the misc commands
# makeinfo ignores clickstyle, changes setfilename. Not sure it is right.
foreach my $misc_command (keys(%misc_command))
{
next if (grep {$misc_command eq $_} @xml_ignored_misc_commands);
$xml_misc_command_output{$misc_command} = 1;
}
$format_map{'menu'} = 'menu';
# checked on bug-texinfo, only node is in code_style, as with makeinfo --xml
#$format_code_style{'menu'} = 1;
#$format_code_style{'menu_name'} = 1;
#$format_code_style{'menu_description'} = 1;
$format_map{'detailmenu'} = 'detailmenu';
$format_map{'direntry'} = 'direntry';
$format_map{'menu_comment'} = '';
$menu_description = \&xml_menu_description;
$menu_link = \&xml_menu_link;
$element_heading = \&xml_heading;
$heading = \&xml_heading;
$paragraph = \&xml_paragraph;
$preformatted = \&xml_preformatted;
$misc_element_label = \&xml_noop;
$element_label = \&xml_noop;
$anchor_label = \&xml_anchor_label;
$index_entry_label = \&xml_index_entry_label;
$index_entry_command = \&xml_index_entry_command;
$listoffloats = \&xml_listoffloats;
$acronym_like = \&xml_acronym_like;
$foot_line_and_ref = \&xml_foot_line_and_ref;
$image = \&xml_image;
$sp = \&xml_sp;
$quotation = \&xml_quotation;
$table_list = \&xml_table_list;
$row = \&xml_row;
$cell = \&xml_cell;
$list_item = \&xml_list_item;
$format_list_item_texi = \&xml_format_list_item_texi;
$misc_command_line = \&xml_misc_commands;
$begin_format_texi = \&xml_begin_format_texi;
$def_line = \&xml_def_line;
$def = \&xml_def;
$def_item = \&xml_def_item;
$printindex = \&xml_printindex;
$index_summary = \&xml_index_summary;
$external_ref = \&xml_external_ref;
$internal_ref = \&xml_internal_ref;
$table_item = \&xml_table_item;
$table_line = \&xml_table_line;
$float = \&xml_float;
$caption_shortcaption = \&xml_caption_shortcaption;
$caption_shortcaption_command = \&xml_caption_shortcaption_command;
$normal_text = \&xml_normal_text;
$protect_text = \&xml_default_protect_text;
$paragraph_style_command = \&xml_paragraph_style_command;
$raw = \&xml_raw;
$cartouche = \&xml_cartouche;
$print_Top = \&xml_print_Top;
$print_Top_footer = \&xml_print_Top_footer;
$print_page_head = \&xml_print_page_head;
$print_foot_navigation = \&xml_noop;
$toc_body = \&xml_noop;
$about_body = \&xml_noop;
$print_page_foot = \&xml_print_page_foot;
$end_section = \&xml_end_section;
$one_section = \&xml_one_section;
%xml_misc_elements_with_arg_map = (
'title' => 'booktitle',
'subtitle' => 'booksubtitle'
);
@xml_misc_elements_with_arg = ('author',
'dircategory', 'settitle');
#my @xml_misc_elements_with_arg = ('author', 'shorttitlepage',
# 'vskip', 'dircategory', 'settitle');
%def_format_xml = (
'deffn' => [ ['category', 'category'], ['function', 'name'] ],
'defvr' => [ ['category', 'category'], ['variable', 'name'] ],
'deftypefn' => [ ['category', 'category'], ['type', 'type'], ['function', 'name'] ],
'deftypeop' => [ ['category', 'category'], ['type', 'type'], ['operation', 'name'] ],
'deftypevr' => [ ['category', 'category'], ['type', 'type'], ['variable', 'name'] ],
'defcv' => [ ['category' , 'category'], ['class', 'class'], ['classvar', 'name'] ],
'deftypecv' => [ ['category', 'category'], ['type', 'type'], ['classvar', 'name'] ],
'defop' => [ ['category', 'category'], ['class', 'class'], ['operation', 'name'] ],
'deftp' => [ ['category', 'category'], ['datatype', 'name'] ]
);
}
sub xml_macron($$)
{
my $accent = shift;
my $args = shift;
return $args->[0] . "¯";
}
sub xml_email($$)
{
my $command = shift;
my $args = shift;
my $mail = shift @$args;
my $text = shift @$args;
$mail = main::normalise_space($mail);
my $result = "<email><emailaddress>$mail</emailaddress>";
if (defined($text) and $text =~ /\S/)
{
$result .= "<emailname>".main::normalise_space($text)."</emailname>";
}
return $result . '</email>';
}
sub xml_uref($$)
{
shift;
my $args = shift;
my $url = shift @$args;
my $text = shift @$args;
my $replacement = shift @$args;
$url = main::normalise_space($url);
$replacement = '' if (!defined($replacement));
$replacement = main::normalise_space($replacement);
$text = '' if (!defined($text));
$text = main::normalise_space($text);
my $result = "<uref><urefurl>$url</urefurl>";
$result .= "<urefdesc>$text</urefdesc>" if ($text ne '');
$result .= "<urefreplacement>$replacement</urefreplacement>" if ($replacement ne '');
return $result.'</uref>';
}
sub xml_titlefont($$)
{
shift;
my $args = shift;
return "<titlefont>$args->[0]</titlefont>";
}
sub xml_math($$)
{
shift;
my $args = shift;
my $text = shift @$args;
return "<math>$text</math>";
}
sub xml_menu_description($$$)
{
my $text = shift;
my $state = shift;
my $element_text = shift;
return "<menucomment>$text</menucomment>\n</menuentry>";
}
sub xml_menu_link($$$$$$$$$$)
{
my $entry = shift;
my $state = shift;
my $href = shift;
my $menunode = shift;
my $menutitle = shift;
my $ending = shift;
my $has_title = shift;
my $command_stack = shift;
my $in_preformatted = shift;
my $menunode_normalized = shift;
return "<menuentry>\n<menunode>$menunode_normalized</menunode>\n<menutitle>$menutitle</menutitle>\n";
}
sub xml_print_page_head($)
{
my $fh = shift;
my $setfilename = '';
$setfilename = "<setfilename>$Texi2HTML::THISDOC{file_base_name}.$EXTENSION</setfilename>"
unless (defined($Texi2HTML::THISDOC{'setfilename'}) and $Texi2HTML::THISDOC{'setfilename'} ne '');
my $language = get_conf('documentlanguage');
my $doctype = get_conf('doctype');
print $fh <<EOT;
<?xml version="1.0"?>
$doctype
<texinfo xml:lang="$language">
$setfilename
EOT
}
sub xml_print_page_foot($)
{
my $fh = shift;
print $fh "". xml_close_section();
print $fh <<EOT;
</texinfo>
EOT
}
sub xml_one_section($$)
{
my $fh = shift;
my $element = shift;
main::print_lines($fh);
#print $fh "". xml_footing($element);
&$print_foot_navigation($fh);
&$print_page_foot($fh);
}
sub xml_heading($$$$$)
{
my $element = shift;
my $command = shift;
my $texi_line = shift;
my $line = shift;
my $in_preformatted = shift;
#print STDERR "'$command' $line";
if (defined($command) and $command =~ /heading/)
{
my $text = '';
if (defined($line))
{
$text = $line;
# this isn't done in main program in that case...
chomp ($text);
$text =~ s/^\s*//;
}
return "<${command}>$text</${command}>\n";
}
elsif (defined($command) and $command eq 'node')
{
#print STDERR "node $command $node_element->{'texi'}\n";
my $result = '';
$result .= xml_close_section();
$result .= "<node>\n";
$result .= "<nodename>$element->{'text'}</nodename>\n";
foreach my $direction('nodenext', 'nodeprev', 'nodeup')
{
if ($element->{$direction})
{
$result .= "<${direction}>$element->{$direction}->{'text'}</${direction}>\n";
}
}
$result .= "</node>\n";
return $result;
}
else
{
my $result = '';
$result .= xml_close_section();
$result .= "<".xml_element_tag($element).">\n<title>$element->{'text'}</title>\n";
$xml_current_section = $element;
return $result;
}
}
sub xml_element_tag($)
{
my $element = shift;
my $class = $element->{'tag_level'};
return $class;
}
sub xml_close_section()
{
my $element = $xml_current_section;
if (!defined($element))
{
return '';
}
my $result = '';
$xml_current_section = undef;
# there is a special case for a @chapter that is a child of @top
# but should not be considered as is, since it is also toplevel.
# @part, however may have other toplevel elements as children.
return '' if ($element->{'child'} and (!$element->{'child'}->{'toplevel'} or $element->{'tag'} ne 'top'));
$result .= '</'.xml_element_tag($element).">\n";
my $current = $element;
# the second condition is such that top is closed only if it has
# sub-elements below chapter.
# the third condition is such that elements with a next element are
# only closed for the last element, except when the next element is
# toplevel and below top, such that @top is closed before the first
# @chapter if there are @section or the like below @top
while ($current->{'sectionup'} and !($current->{'sectionup'}->{'tag'} eq 'top' and $current->{'toplevel'}) and (!$current->{'childnext'} or ($current->{'childnext'}->{'toplevel'} and $current->{'sectionup'}->{'tag'} eq 'top')))
{
$current = $current->{'sectionup'};
$result .= '</'.xml_element_tag($current).">\n";
}
return $result;
## there is a special case for a @chapter that is a child of @top
## but should not be considered as is, since it is also toplevel.
#return '' if ($element->{'child'} and !$element->{'child'}->{'toplevel'});
#$result .= '</'.xml_element_tag($element).">\n";
#return $result if ($element->{'sectionnext'} or $element->{'level'} <= 1);
#my $current = $element;
#while ($current->{'level'} != 1 and $current->{'sectionup'} and !$current->{'sectionnext'})
#{
# $current = $current->{'sectionup'};
# $result .= '</'.xml_element_tag($current).">\n";
#}
#return $result;
}
sub xml_end_section($$$)
{
my $fh = shift;
my $end_foot_navigation = shift;
my $element = shift;
}
sub xml_print_Top($$$)
{
my $fh = shift;
my $has_top_heading = shift;
my $element = shift;
main::print_lines($fh, $Texi2HTML::THIS_SECTION);
}
sub xml_print_Top_footer($$)
{
my $fh = shift;
my $end_page = shift;
my $element = shift;
}
# FIXME warning:
#
# @samp{first para
#
# second para}.
#
# maybe should lead to:
# <para><samp>first para second para</samp>.</para>
#
# But it leads to
# <para><samp>first para
# </samp></para>
# <para><samp>second para</samp>.
# </para>
sub xml_paragraph($$$$$$$$$$$$)
{
my $text = shift;
my $align = shift;
my $indent = shift;
my $paragraph_command = shift;
my $paragraph_command_formatted = shift;
my $paragraph_number = shift;
my $format = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $command_stack_at_end = shift;
my $command_stack_at_begin = shift;
# no para in multitables, caption and shortcaptions.
my $top_stack = '';
$top_stack = $command_stack_at_begin->[-1] if (scalar (@$command_stack_at_begin));
return $text if ($top_stack eq 'multitable' or $top_stack eq 'shortcaption' or $top_stack eq 'caption' or $top_stack eq 'documentdescription');
if ($text =~ /\S/)
{
return "<para>$text</para>";
}
return $text;
}
sub xml_preformatted($$$$$$$$$$$$)
{
my $text = shift;
my $pre_style = shift;
my $class = shift;
my $leading_command = shift;
my $leading_command_formatted = shift;
my $preformatted_number = shift;
my $format = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $command_stack_at_end = shift;
my $command_stack_at_begin = shift;
return $text;
}
sub xml_misc_commands($$$$$)
{
my $macro = shift;
my $line = shift;
my $args = shift;
my $stack = shift;
my $state = shift;
#print STDERR "$macro $line";
#print STDERR "ARGS @$args\n" if defined ($args);
return ($macro, $line, undef) unless($xml_misc_command_output{$macro});
my $value_name = '';
my $value = '';
if ($macro eq 'set' or $macro eq 'clear')
{
my $value_line = $line;
if ($value_line =~ s/^\s+([\w\-]+)//)
{
$value_name = $1;
if ($macro eq 'set')
{
$value = $value_line;
chomp ($value);
$value =~ s/^\s*//;
}
}
}
my $result_text = "<${macro}></${macro}>";
if ($macro eq 'set' or $macro eq 'clear')
{
$result_text = "<${macro}value name=\"$value_name\">$value</${macro}value>\n";
}
if ($macro eq 'c' or $macro eq 'comment' and scalar(@$args))
{
my $comment_line = $args->[0];
chomp ($comment_line);
# makeinfo remove all the leading spaces
$comment_line =~ s/^\s//;
$result_text = &$comment ($comment_line);
}
if ($macro eq 'frenchspacing')
{
my $value = $args->[0];
$value =~ s/\s*//g;
$result_text = "<${macro} var=\"$value\"></${macro}>";
}
if (grep {$macro eq $_} @xml_misc_elements_with_arg)
{
my $arg = $args->[0];
$arg =~ s/^\s*//;
chomp($arg);
$result_text = "<${macro}>".main::substitute_line($arg, "\@$macro")."</${macro}>\n";
}
if (exists($xml_misc_elements_with_arg_map{$macro}))
{
my $arg = $args->[0];
$arg =~ s/^\s*//;
chomp($arg);
$result_text = "<$xml_misc_elements_with_arg_map{$macro}>".main::substitute_line($arg, "\@$macro")."</$xml_misc_elements_with_arg_map{$macro}>\n";
}
if ($macro eq 'setfilename')
{
my $arg = $args->[0];
#$arg =~ s/^\s*//;
#$arg =~ s/\s*$//;
#$arg = main::substitute_line($arg, "\@$macro");
if ($arg =~ /\S/)
{
$arg = get_conf('setfilename');
$arg =~ s/\.[^\.]*$//;
$result_text = "<${macro}>${arg}.xml</${macro}>\n";
}
}
return ($macro, $line, $result_text);
}
sub xml_anchor_label($$)
{
my $id = shift;
my $anchor_text = shift;
return '<anchor name="'. &$protect_text($anchor_text) . '"></anchor>';
}
sub xml_index_entry_command($$$$$)
{
my $command = shift;
my $index_name = shift;
my $label = shift;
my $entry_texi = shift;
my $entry_formatted = shift;
return $label if (defined($label) and $label ne '');
return xml_index_entry_label('','','',$main::index_prefix_to_name{$index_name}, '', '', $entry_formatted, {});
}
sub xml_index_entry_label($$$$$$$$$)
{
my $identifier = shift;
my $preformatted = shift;
my $formatted_entry = shift;
my $index_name = shift;
my $index_command = shift;
my $texi_entry = shift;
my $formatted_entry_reference = shift;
my $in_region_not_in_output = shift;
my $index_entry_ref = shift;
return "<indexterm index=\"${index_name}\">${formatted_entry_reference}</indexterm>";
}
sub xml_listoffloats($$$)
{
my $style_texi = shift;
my $style = shift;
my $float_entries = shift;
# FIXME style, style_texi? Protected?
return "<listoffloats type=\"$style\"></listoffloats>";
}
sub xml_acronym_like($$$$$$)
{
my $command = shift;
my $acronym_texi = shift;
my $acronym_text = shift;
my $with_explanation = shift;
my $explanation_lines = shift;
my $explanation_text = shift;
my $explanation_simply_formatted = shift;
$command = 'abbrev' if ($command eq 'abbr');
my $opening = "<${command}><${command}word>$acronym_text</${command}word>";
if ($with_explanation)
{
$opening .= "<${command}desc>$explanation_text</${command}desc>";
}
return $opening . "</${command}>";
}
sub xml_foot_line_and_ref($$$$$$$)
{
my $number_in_doc = shift;
my $number_in_page = shift;
my $footnote_id = shift;
my $place_id = shift;
my $document_file = shift;
my $footnote_file = shift;
my $lines = shift;
my $state = shift;
my $result = '<footnote>';
foreach my $line (@$lines)
{
$result .= $line;
}
return ([], $result . '</footnote>');
}
sub xml_image($$$$$$$$$$$$$)
{
my $file = shift;
my $base = shift;
my $preformatted = shift;
my $file_name = shift;
my $alt = shift;
my $width = shift;
my $height = shift;
my $raw_alt = shift;
my $extension = shift;
my $working_dir = shift;
my $file_path = shift;
my $in_paragraph = shift;
my $file_locations = shift;
$alt = '' if (!defined($alt));
# dirty hack to avoid " that can be here because of a @verb
$alt =~ s/"/"/g;
$width = '' if (!defined($width));
$height = '' if (!defined($height));
my $tag = 'inlineimage';
$tag = 'image' if ($preformatted or !$in_paragraph);
return "<$tag width=\"$width\" height=\"$height\" name=\"". &$protect_text($base)."\" extension=\"$extension\"><alttext>$alt</alttext></$tag>";
}
sub xml_sp($$)
{
my $number = shift;
my $preformatted = shift;
return "<sp lines=\"$number\"></sp>\n";
}
sub xml_quotation($$$$$)
{
my $command = shift;
my $text = shift;
my $argument_text = shift;
my $argument_text_texi = shift;
my $authors = shift;
return "<$command>\n" . $text . "</$command>\n";
}
sub xml_format_list_item_texi($$$$)
{
my $format = shift;
my $line = shift;
my $prepended = shift;
my $command = shift;
my $result_line = undef;
if (defined($command) and $command ne '' and !exists $special_list_commands{$format}->{$command} and $format ne 'itemize')
{
#@*table
$line =~ s/^\s*//;
$line =~ s/\s*$//;
if (exists ($style_map{$command}))
{
$result_line = "\@$command\{$line\}\n";
}
elsif (exists ($things_map{$command}))
{
$result_line = "\@$command\{\} $line\n";
}
else
{
$result_line = "\@$command $line\n";
}
}
return ($result_line, 0);
}
sub xml_list_item($$$$$$$$$)
{
my $text = shift;
my $format = shift;
my $command = shift;
my $formatted_command = shift;
my $item_nr = shift;
my $enumerate_style = shift;
my $number = shift;
my $prepended = shift;
my $prepended_formatted = shift;
return '<item>' . $text . "</item>\n";
}
sub xml_init_variables()
{
@xml_multitable_stack = ();
@xml_table_stack = ();
$xml_current_section = undef;
$Texi2HTML::THISDOC{'SPLIT'} = 0 if ($OUTPUT_FORMAT eq 'xml');
}
# row in multitable
sub xml_row($$;$$)
{
my $text = shift;
my $macro = shift;
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
my $result = '';
if ($macro eq 'headitem')
{
if ($xml_multitable_stack[-1] != 0)
{
$result .= "<thead>";
$result = "</tbody>" . $result if ($xml_multitable_stack[-1] == 1);
$xml_multitable_stack[-1] = 0;
}
}
elsif ($xml_multitable_stack[-1] != 1)
{
$result .= "<tbody>";
$result = "</thead>" . $result if ($xml_multitable_stack[-1] == 0);
$xml_multitable_stack[-1] = 1;
}
$result .= "<row>$text</row>";
return $result;
}
# cell in multitable
sub xml_cell($$;$$)
{
my $text = shift;
my $row_macro = shift;
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $column_number = shift;
return "<entry>" . $text . '</entry>';
}
sub xml_table_list($$$$$$$$$)
{
my $format_command = shift;
my $text = shift;
my $command = shift;
my $formatted_command = shift;
# enumerate
my $item_nr = shift;
my $enumerate_style = shift;
# itemize
my $prepended = shift;
my $prepended_formatted = shift;
# multitable
my $columnfractions = shift;
my $prototype_row = shift;
my $prototype_lengths = shift;
my $number = shift;
my $result = "<$format_command>";
if ($format_command eq 'itemize')
{
my $itemfunction;
$prepended_formatted =~ s/^\s*// if (defined($prepended_formatted));
if (defined($formatted_command) and $formatted_command ne '')
{
$itemfunction = $formatted_command;
$itemfunction .= " $prepended_formatted" if (defined($prepended_formatted) and $prepended_formatted ne '');
}
elsif (defined($prepended_formatted))
{
$itemfunction = $prepended_formatted;
}
$itemfunction = "•" if (!defined($itemfunction) or
$itemfunction eq '');
$result .= "<itemfunction>$itemfunction</itemfunction>";
}
elsif ($format_command eq 'enumerate')
{
$result = "<$format_command first=\"$enumerate_style\">";
}
elsif ($format_command eq 'multitable')
{
my $fractions;
my $multiply = 1;
if (defined($columnfractions) and (ref($columnfractions) eq 'ARRAY')
and scalar(@$columnfractions))
{
$fractions = [ @$columnfractions ];
$multiply = 100;
}
elsif (defined($prototype_lengths) and (ref($prototype_lengths) eq 'ARRAY')
and scalar(@$prototype_lengths))
{
$fractions = [ @$prototype_lengths ];
}
if (defined ($fractions))
{
foreach my $fraction (@$fractions)
{
$result .= "<columnfraction>".($fraction*$multiply)."</columnfraction>\n";
}
}
$text .= "</tbody>" if ($xml_multitable_stack[-1] == 1);
$text .= "</thead>" if ($xml_multitable_stack[-1] == 0);
pop @xml_multitable_stack;
}
elsif ($format_command =~ /^(v|f)?table$/)
{
$result = '<table>';
$text .= '</tableitem>' if ($xml_table_stack[-1] == 1);
pop @xml_table_stack;
return $result . "$text</table>\n";
}
return $result . "$text</$format_command>\n";
}
sub xml_begin_format_texi($$$)
{
my $command = shift;
my $line = shift;
my $state = shift;
push (@xml_multitable_stack, -1) if ($command eq 'multitable');
push (@xml_table_stack, 0) if ($command =~ /^(v|f)?table/);
return $line;
}
sub xml_def_line($$$$$$$$$$$$$$$)
{
my $category_prepared = shift;
my $name = shift;
my $type = shift;
my $arguments = shift;
my $index_label = shift;
my $arguments_array = shift;
my $arguments_type_array = shift;
my $unformatted_arguments_array = shift;
my $command = shift;
my $class_name = shift;
my $category = shift;
my $class = shift;
my $style = shift;
my $original_command = shift;
my $result = "<definitionterm><indexterm index=\""
.$main::index_prefix_to_name{$style}."\">$class_name</indexterm>";
my %arguments = ( 'prepared_category' => $category_prepared,
'category' => $category,
'name' => $name,
'type' => $type,
'class' => $class
);
foreach my $type (keys(%arguments))
{
$arguments{$type} = '' if (!defined($arguments{$type}));
}
foreach my $mandatory_arg (@{$def_format_xml{$command}})
{
my $elem = $mandatory_arg->[0];
$result .= "<def$elem>$arguments{$mandatory_arg->[1]}</def$elem>";
}
my $params = '';
my @types = @$arguments_type_array;
foreach my $arg (@$arguments_array)
{
my $type = shift @types;
if (grep {$_ eq $type} ('param', 'paramtype', 'delimiter'))
{
$result .= "<def$type>$arg</def$type>";
}
}
$result .= "</definitionterm>\n";
return $result;
}
# FIXME
# @deffn
# @c comment
# @end deffn
# leads to the creation of a <definitionitem> with a comment within,
# while there should be no definitionitem
sub xml_def_item($$)
{
my $text = shift;
my $only_inter_item_commands = shift;
if ($text =~ /\S/)
{
return '<definitionitem>' . $text . '</definitionitem>' unless $only_inter_item_commands;
return $text;
}
return '';
}
sub xml_def($)
{
my $text = shift;
return '<definition>'.$text.'</definition>';
}
sub xml_index_summary($$)
{
my $alpha = shift;
my $nonalpha = shift;
return '';
}
sub xml_printindex($$)
{
my $name = shift;
my $printindex = shift;
return "<printindex>$name</printindex>\n";
}
sub xml_any_ref($$)
{
my $type = shift;
my $args = shift;
my $result = '';
if ($type eq 'pxref')
{
$result = gdt('see ',{'duplicate'=>1});
}
elsif ($type eq 'xref' or $type eq 'inforef')
{
$result = gdt('See ',{'duplicate'=>1});
}
if ($type eq 'inforef')
{
$result .= "<inforef><inforefnodename>$args->[0]</inforefnodename>";
$result .= "<inforefrefname>$args->[1]</inforefrefname>" if ($args->[1] ne '');
$result .= "<inforefinfoname>$args->[2]</inforefinfoname></inforef>"
}
else
{
$result .= "<xref><xrefnodename>$args->[0]</xrefnodename>";
$result .= "<xrefinfoname>$args->[1]</xrefinfoname>" if ($args->[1] ne '');
$result .= "<xrefprinteddesc>$args->[2]</xrefprinteddesc>" if ($args->[2] ne '');
$result .= "<xrefinfofile>$args->[3]</xrefinfofile>" if ($args->[3] ne '');
$result .= "<xrefprintedname>$args->[4]</xrefprintedname>" if ($args->[4] ne '');
$result .= '</xref>';
}
return $result;
}
sub xml_external_ref($$$$$$$$$)
{
my $type = shift;
my $section = shift;
my $book = shift;
my $file = shift;
my $href = shift;
my $cross_ref = shift;
my $args_texi = shift;
my $formatted_args = shift;
my $node = shift;
return xml_any_ref ($type, $formatted_args);
}
sub xml_internal_ref($$$$$)
{
my $type = shift;
my $href = shift;
my $short_name = shift;
my $name = shift;
my $is_section = shift;
my $args_texi = shift;
my $formatted_args = shift;
return xml_any_ref ($type, $formatted_args);
}
sub xml_table_item($$$$$$$)
{
my $text = shift;
my $index_label = shift;
my $format = shift;
my $command = shift;
# my $formatted_command = shift;
my $style_stack = shift;
# my $text_formatted = shift;
# my $text_formatted_leading_spaces = shift;
# my $text_formatted_trailing_spaces = shift;
my $item_cmd = shift;
my $formatted_index_entry = shift;
# $formatted_command = '' if (!defined($formatted_command));
#
# if (defined($text_formatted))
# {
# $text_item = $text_formatted_leading_spaces . $text_formatted .$text_formatted_trailing_spaces;
# }
# else
# {
# $text_item = $text;
# }
my $result = '';
if ($item_cmd eq 'item')
{
$result .= '</tableitem>' if ($xml_table_stack[-1] == 1);
$xml_table_stack[-1] = 1;
$result .= '<tableitem>';
}
$result .= '<tableterm>';
#print STDERR "$text | $format | $command | $formatted_command | $text_formatted | $item_cmd \n";
my $indexterm = '';
#print STDERR "FFFFFFFFFFFFFFFFf `$index_label' `$text'\n";
if ($format =~ /^(v|f)/)
{
# my $index_prefix = $1;
# $indexterm = $text;
# $indexterm =~ s/^\s*//;
# $result .= "<indexterm index=\"$main::index_prefix_to_name{$index_prefix}\">$formatted_index_entry</indexterm>";
$result .= "$index_label";
}
$result .= $text ."</tableterm>\n";
return $result;
}
sub xml_table_line($)
{
my $text = shift;
my $only_inter_item_commands = shift;
my $before_items = shift;
if ($text =~ /\S/)
{
return "<item>$text</item>" unless $only_inter_item_commands;
return $text;
}
else
{
return '';
}
}
sub xml_caption_shortcaption($)
{
my $float = shift;
my $caption_lines;
my $shortcaption_lines;
if (defined($float->{'caption_texi'}))
{
@$caption_lines = @{$float->{'caption_texi'}};
}
if (defined($float->{'shortcaption_texi'}))
{
@$shortcaption_lines = @{$float->{'shortcaption_texi'}};
}
return ($caption_lines, $shortcaption_lines);
}
sub xml_caption_shortcaption_command($$$)
{
my $command = shift;
my $text = shift;
my $texi_lines = shift;
my $float_element = shift;
if ($text =~ /\S/)
{
return "<$command>$text</$command>";
}
return '';
}
sub xml_float($$$$$)
{
my $text = shift;
my $float = shift;
my $caption = shift;
my $shortcaption = shift;
# FIXME don't use the texi, but a normalized node name
my $label_texi = $float->{'texi'};
$label_texi = '' if (!defined($label_texi));
my $result = "<float name=\"$label_texi\">\n";
my $style = $float->{'style'};
$style = '' if (!defined($style));
$result .= "<floattype>$style</floattype>\n";
$result .= "<floatpos></floatpos>\n";
$result .= $text;
return $result."</float>\n";
}
sub xml_normal_text($$$$$$$;$)
{
my $text = shift;
my $in_raw_text = shift;
my $in_preformatted = shift;
my $in_code = shift;
my $in_math = shift;
my $in_simple = shift;
#print STDERR "Bug: in_raw_text in_simple $text\n" if ($in_raw_text and $in_simple);
my $style_stack = shift;
my $state = shift;
$text = &$protect_text($text) unless($in_raw_text);
if (! $in_code and !$in_preformatted and !$in_raw_text)
{
$text =~ s/---/\&mdash\;/g;
$text =~ s/--/\&ndash\;/g;
$text =~ s/``/\&ldquo\;/g;
$text =~ s/''/\&rdquo\;/g;
}
return $text;
}
sub xml_paragraph_style_command($$)
{
my $format = shift;
my $text = shift;
return "<$format>$text</$format>" if ($format eq 'center');
return $text;
}
sub xml_raw($$)
{
my $style = shift;
my $text = shift;
if ($style eq 'verbatim' or $style eq 'verbatiminclude')
{
return '<verbatim xml:space="preserve">' . &$protect_text($text) . '</verbatim>';
}
return '' unless (grep {$style eq $_} @EXPAND);
if ($style eq 'xml')
{
chomp ($text);
return $text;
}
else
{
main::msg_warn ("Raw style $style not handled", $Texi2HTML::THISDOC{'line_nr'});
return &$protect_text($text);
}
}
sub xml_cartouche($$)
{
my $text = shift;
return "<cartouche>$text</cartouche>";
}
sub xml_noop
{
return '';
}
1;
require "$T2H_HOME/formats/xml.init"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/formats/xml.init" && -r "$T2H_HOME/formats/xml.init");
# @INIT_PLAINTEXT@
#+##############################################################################
#
# plaintext.init: convert to plaintext
#
# Copyright (C) 2009 Patrice Dumas <pertusus@free.fr>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301 USA
#
#-##############################################################################
use strict;
sub plaintext_default_load(;$)
{
my $from_command_line = shift;
info_default_load();
$SHOW_MENU = 0;
$OUT = '-' unless(defined($OUT) and $OUT !~ m:/$:);
$HEADERS = 0;
@T2H_FORMAT_EXPAND = ('plaintext');
$print_page_head = \&plaintext_default_print_page_head;
$print_page_foot = \&plaintest_default_print_page_foot;
$element_heading = \&plaintext_default_element_heading;
$image = \&plaintext_default_image;
$print_index = \&plaintext_default_print_index;
}
sub plaintext_default_print_page_head($)
{
my $fh = shift;
}
sub plaintest_default_print_page_foot($)
{
my $fh = shift;
}
sub plaintext_default_element_heading($$$$$$$$$$$$)
{
my $info_result = &Texi2HTML::Config::info_default_element_heading(@_);
my $element = shift;
my $command = shift;
my $texi_line = shift;
my $line = shift;
my $in_preformatted = shift;
my $one_section = shift;
my $element_heading = shift;
my $first_in_page = shift;
my $is_top = shift;
my $previous_is_top = shift;
my $command_line = shift;
my $element_id = shift;
my $new_element = shift;
return $info_result if (!$element->{'node'});
return '';
}
sub plaintext_default_image($$$$$$$$$$$$$$$$$)
{
my $file = shift;
my $base = shift;
my $preformatted = shift;
my $file_name = shift;
my $alt = shift;
my $width = shift;
my $height = shift;
my $raw_alt = shift;
my $extension = shift;
my $working_dir = shift;
my $file_path = shift;
my $in_paragraph = shift;
my $file_locations = shift;
my $base_simple_format = shift;
my $extension_simple_format = shift;
my $file_name_simple_format = shift;
my $line_nr = shift;
my $txt_path;
my $found_file;
my @extensions = @IMAGE_EXTENSIONS;
if (defined($extension) and ($extension ne ''))
{
unshift @extensions, ".$extension";
unshift @extensions, "$extension";
}
else
{
$extension = undef;
}
my $file_found_index = undef;
my $file_index = 0;
foreach my $file_location (@$file_locations)
{
my ($file_located, $path, $file_simple_format) = @$file_location;
my $extension = shift @extensions;
if (defined($path))
{
if ($extension eq 'txt' and !defined($txt_path))
{
$txt_path = $path;
}
elsif (!defined($found_file))
{
$found_file = [$file_located, $extension, $file_simple_format];
$file_found_index = $file_index;
}
}
$file_index++;
}
my $text = '';
if (defined($txt_path))
{
if (open(TXT, "<$txt_path"))
{
if (defined($Texi2HTML::THISDOC{'IN_ENCODING'}) and $USE_UNICODE)
{
binmode(TXT, ":encoding($Texi2HTML::THISDOC{'IN_ENCODING'})");
}
$text='[' if ($in_paragraph or $preformatted);
while (my $img_txt = <TXT>)
{
$text .= $img_txt;
}
$text .= ']' if ($in_paragraph or $preformatted);
close(TXT);
}
else
{
main::line_warn (sprintf(__("\@image file `%s' unreadable: %s"), $txt_path, $!), $line_nr);
}
}
elsif (!defined($found_file))
{
main::line_warn (sprintf(__("Cannot find \@image file `%s.txt'"), $base), $line_nr);
}
return $text;
}
sub plaintext_default_print_index($$)
{
my $text = shift;
my $name = shift;
return '';
}
1;
require "$T2H_HOME/formats/plaintext.init"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/formats/plaintext.init" && -r "$T2H_HOME/formats/plaintext.init");
my $translation_file = 'translations.pl'; # file containing all the translations
my $T2H_OBSOLETE_STRINGS;
# leave this within comments, and keep the require statement
# This way, you can directly run texi2html.pl,
# if $T2H_HOME/translations.pl exists.
#
# @T2H_TRANSLATIONS_FILE@
# Automatically generated file. Edit the .po file instead.
$LANGUAGES->{'nl'} = {
' 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:' => '',
' Up ' => '',
'(outside of any element)' => '',
'(outside of any node)' => '',
'@b{{quotation_arg}:} ' => '',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '',
'@{No value for `{value}\'@}' => '',
'About' => '',
'About (help)' => '',
'About This Document' => 'No translation available!',
'April' => 'April',
'August' => 'Augustus',
'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' => 'December',
'FastBack' => '',
'FastForward' => '',
'February' => 'Februari',
'First' => '',
'First section in reading order' => '',
'Following' => '',
'Following node' => '',
'Footnotes' => 'No translation available!',
'Forward' => '',
'Forward section in next file' => '',
'From 1.2.3 go to' => '',
'Go to' => '',
'Index' => 'Index',
'Index Entry' => '',
'January' => 'Januari',
'July' => 'Juli',
'Jump to' => '',
'June' => 'Juni',
'Last' => '',
'Last section in reading order' => '',
'March' => 'Maart',
'May' => 'Mei',
'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' => 'November',
'October' => 'Oktober',
'Overview' => '',
'Prev' => '',
'PrevFile' => '',
'Previous' => '',
'Previous file' => '',
'Previous node' => '',
'Previous section in reading order' => '',
'Previous section on same level' => '',
'Section' => '',
'Section One' => '',
'See ' => '',
'See @cite{{book}}' => '',
'See `{section}\'' => '',
'See `{section}\' in @cite{{book}}' => '',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'See section {reference_name}' => '',
'See {reference_name}' => '',
'See {reference}' => '',
'See {reference} in @cite{{book}}' => '',
'See {ref}' => '',
'See {title_ref}' => '',
'September' => 'September',
'Short Table of Contents' => 'Korte inhoudsopgave',
'Short table of contents' => '',
'Subsection One-Four' => '',
'Subsection One-One' => '',
'Subsection One-Three' => '',
'Subsection One-Two' => '',
'Subsubsection One-Two-Four' => '',
'Subsubsection One-Two-One' => '',
'Subsubsection One-Two-Three' => '',
'Subsubsection One-Two-Two' => '',
'Table of Contents' => 'Inhoudsopgave',
'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}}}.' => '',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => '',
'Top' => '',
'Untitled Document' => '',
'Up' => '',
'Up node' => '',
'Up section' => '',
'`{section}\'' => '',
'`{section}\' in @cite{{book}}' => '',
'current' => '',
'on @emph{{date}}' => '',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see ' => '',
'see @cite{{book}}' => '',
'see `{section}\'' => '',
'see `{section}\' in @cite{{book}}' => '',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see section {reference_name}' => '',
'see {reference_name}' => '',
'see {reference}' => '',
'see {reference} in @cite{{book}}' => '',
'see {ref}' => '',
'see {title_ref}' => '',
'{acronym_like} ({explanation})' => '',
'{month} {day}, {year}' => '',
'{name} of {class}' => '',
'{name} on {class}' => '',
'{reference_name}' => '',
'{reference}' => '',
'{reference} in @cite{{book}}' => '',
'{ref}' => '',
'{style} {number}' => '',
'{style}: {caption_first_line}' => '',
'{style}: {shortcaption_first_line}' => '',
'{title_ref}' => ''
};
# Automatically generated file. Edit the .po file instead.
$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 node)' => '',
'@b{{quotation_arg}:} ' => '',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '',
'@{No value for `{value}\'@}' => '',
'About' => '',
'About (help)' => '',
'About This Document' => 'この文書について',
'April' => '4月',
'August' => '8月',
'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}\'' => '項',
'See `{section}\' in @cite{{book}}' => '@cite{{book}}の `{section}\' ',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'See section {reference_name}' => '',
'See {reference_name}' => '',
'See {reference}' => '',
'See {reference} in @cite{{book}}' => '{node_file_href} @cite{{book}}参照',
'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項',
'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}}}.' => 'この文書は@emph{{date}}に@uref{{program_homepage}, @emph{{program}}}を用いて生成されました。',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'この文書は@uref{{program_homepage}, @emph{{program}}}を用いて生成されました。',
'Top' => '冒頭',
'Untitled Document' => '無題の文書',
'Up' => '',
'Up node' => '',
'Up section' => '',
'`{section}\'' => '項',
'`{section}\' in @cite{{book}}' => '@cite{{book}}の `{section}\' ',
'current' => '現在位置',
'on @emph{{date}}' => '@emph{{date}}',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see ' => '',
'see @cite{{book}}' => '',
'see `{section}\'' => '',
'see `{section}\' in @cite{{book}}' => '@cite{{book}}の `{section}\' ',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see section {reference_name}' => '',
'see {reference_name}' => '',
'see {reference}' => '{node_file_href}参照',
'see {reference} in @cite{{book}}' => '{node_file_href} @cite{{book}}参照',
'see {ref}' => '',
'see {title_ref}' => '',
'{acronym_like} ({explanation})' => '',
'{month} {day}, {year}' => '',
'{name} of {class}' => '',
'{name} on {class}' => '',
'{reference_name}' => '',
'{reference}' => '',
'{reference} in @cite{{book}}' => '{node_file_href} @cite{{book}}参照',
'{ref}' => '',
'{style} {number}' => '',
'{style}: {caption_first_line}' => '',
'{style}: {shortcaption_first_line}' => '',
'{title_ref}' => ''
};
# Automatically generated file. Edit the .po file instead.
$LANGUAGES->{'fr'} = {
' The buttons in the navigation panels have the following meaning:' => ' Les boutons de navigation ont la signification suivante :',
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' Dans cet exemple on est @`a @strong{ Sous sous section un-deux-trois } dans un document dont la structure est :',
' Up ' => 'Plus haut',
'(outside of any element)' => '',
'(outside of any node)' => '',
'@b{{quotation_arg}:} ' => '',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '',
'@{No value for `{value}\'@}' => '',
'About' => 'A propos',
'About (help)' => 'A propos (page d\'aide)',
'About This Document' => 'A propos de ce document',
'April' => 'avril',
'August' => 'ao@^ut',
'Back' => 'Retour',
'Back section in previous file' => '',
'Beginning of this chapter or previous chapter' => 'D@\'ebut de ce chapitre ou chapitre pr@\'ec@\'edent',
'Button' => 'Bouton',
'Contents' => 'Table des mati@`eres',
'Cover (top) of document' => 'Couverture (top) du document',
'Current' => '',
'Current Position' => 'Position',
'Current section' => 'Section actuelle',
'December' => 'd@\'ecembre',
'FastBack' => 'RetourRapide',
'FastForward' => 'AvanceRapide',
'February' => 'f@\'evrier',
'First' => 'Premier',
'First section in reading order' => 'Premi@`e section dans l\'ordre de lecture',
'Following' => 'Suivant',
'Following node' => 'N@oe{}ud suivant',
'Footnotes' => 'Notes de bas de page',
'Forward' => 'Avant',
'Forward section in next file' => '',
'From 1.2.3 go to' => 'Depuis 1.2.3 aller @`a',
'Go to' => 'Aller @`a',
'Index' => 'Index',
'Index Entry' => 'Entr@\'ee d\'index',
'January' => 'janvier',
'July' => 'juillet',
'Jump to' => 'Aller @`a',
'June' => 'juin',
'Last' => 'Dernier',
'Last section in reading order' => 'Derni@`ere section dans l\'ordre de lecture',
'March' => 'mars',
'May' => 'mai',
'Menu:' => 'Menu@ :',
'Name' => 'Nom',
'Next' => 'Suivant',
'Next chapter' => 'Chapitre suivant',
'Next file' => 'Fichier suivant',
'Next node' => 'N@oe{}ud suivant',
'Next section in reading order' => 'Section suivante dans l\'ordre de lecture',
'Next section on same level' => 'Section suivante au m@^eme niveau',
'NextFile' => 'FichierSuivant',
'Node following in node reading order' => 'N@oe{}ud suivant dans l\'ordre de lecture',
'Node up' => 'N@oe{}ud au dessus',
'NodeNext' => 'N@oe{}udSuivant',
'NodePrev' => 'N@oe{}udPr@\'ec@\'edent',
'NodeUp' => 'N@oe{}udMonter',
'November' => 'novembre',
'October' => 'octobre',
'Overview' => 'Vue d\'ensemble',
'Prev' => 'Pr@\'ec@\'edent',
'PrevFile' => '',
'Previous' => '',
'Previous file' => 'Fichier pr@\'ec@\'edent',
'Previous node' => 'N@oe{}ud pr@\'ec@\'edent',
'Previous section in reading order' => 'Section pr@\'ec@\'edente dans l\'ordre de lecture',
'Previous section on same level' => 'Section pr@\'ec@\'edente au m@^eme niveau',
'Section' => '',
'Section One' => 'Section un',
'See ' => '',
'See @cite{{book}}' => 'Voir @cite{{book}}',
'See `{section}\'' => 'Section sup@\'erieure',
'See `{section}\' in @cite{{book}}' => 'Voir la section `{section}\' dans @cite{{book}}',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'See section {reference_name}' => 'Voir la section {reference_name}',
'See {node_file_href}' => 'Voir {node_file_href}',
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Voir {node_file_href} section `{section}\' dans @cite{{book}}',
'See {reference_name}' => 'Voir {reference_name}',
'See {reference}' => 'Voir {reference_name}',
'See {reference} in @cite{{book}}' => 'Voir {node_file_href} @cite{{book}}',
'See {ref}' => '',
'See {title_ref}' => '',
'September' => 'septembre',
'Short Table of Contents' => 'R@\'esum@\'e du contenu',
'Short table of contents' => 'R@\'esum@\'e du contenu',
'Subsection One-Four' => 'Sous section un-quatre',
'Subsection One-One' => 'Sous section un-un',
'Subsection One-Three' => 'Sous section un-trois',
'Subsection One-Two' => 'Sous section un-deux',
'Subsubsection One-Two-Four' => 'Sous sous section un-deux-quatre',
'Subsubsection One-Two-One' => 'Sous sous section un-deux-un',
'Subsubsection One-Two-Three' => 'Sous sous section un-deux-trois',
'Subsubsection One-Two-Two' => 'Sous sous section un-deux-deux',
'Table of Contents' => 'Table des mati@`eres',
'Table of contents' => 'Table des mati@`eres',
'The node you are looking for is at {href}.' => 'Le n@oe{}ud que vous recherchez est ici@ : {href}.',
'This' => 'Ici',
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e le @emph{{date}} en utilisant @uref{{program_homepage}, @emph{{program}}}',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e en utilisant @uref{{program_homepage}, @emph{{program}}}.',
'Top' => 'Racine',
'Untitled Document' => 'Document sans titre',
'Up' => 'Monter',
'Up node' => 'N@oe{}ud au dessus',
'Up section' => 'Section sup@\'erieure',
'`{section}\'' => 'Section sup@\'erieure',
'`{section}\' in @cite{{book}}' => 'section `{section}\' dans @cite{{book}}',
'current' => 'courante',
'on @emph{{date}}' => 'le @emph{{date}}',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see ' => '',
'see @cite{{book}}' => 'voir @cite{{book}}',
'see `{section}\'' => 'Section sup@\'erieure',
'see `{section}\' in @cite{{book}}' => 'section `{section}\' dans @cite{{book}}',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see section `{section}\' in @cite{{book}}' => 'voir la section `{section}\' dans @cite{{book}}',
'see section {reference_name}' => 'voir la section {reference_name}',
'see {node_file_href}' => 'voir {node_file_href}',
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'voir {node_file_href} section `{section}\' dans @cite{{book}}',
'see {reference_name}' => 'voir {reference_name}',
'see {reference}' => 'voir {reference_name}',
'see {reference} in @cite{{book}}' => 'voir {node_file_href} @cite{{book}}',
'see {ref}' => '',
'see {title_ref}' => '',
'{acronym_like} ({explanation})' => '',
'{month} {day}, {year}' => 'le {day} {month} {year}',
'{name} of {class}' => '{name} de {class}',
'{name} on {class}' => '{name} de {class}',
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} section `{section}\' dans @cite{{book}}',
'{reference_name}' => '',
'{reference}' => 'voir {reference_name}',
'{reference} in @cite{{book}}' => 'voir @cite{{book}}',
'{ref}' => '',
'{style} {number}' => '',
'{style}: {caption_first_line}' => '',
'{style}: {shortcaption_first_line}' => '',
'{title_ref}' => ''
};
# Automatically generated file. Edit the .po file instead.
$LANGUAGES->{'de'} = {
' The buttons in the navigation panels have the following meaning:' => ' Die Links in der Navigationsleiste haben die folgende Bedeutung: ',
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' wobei das @strong{ Beispiel } annimmt, dass die aktuelle Position bei @strong{ Unterabschnitt 1-2-3 } in einem Dokument mit folgender Struktur liegt:',
' Up ' => ' Nach oben ',
'(outside of any element)' => '',
'(outside of any node)' => '',
'@b{{quotation_arg}:} ' => '@b{{quotation_arg}:} ',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '@cite{{book}}',
'@{No value for `{value}\'@}' => '',
'About' => '@"Uber',
'About (help)' => '@"Uber (Hilfe)',
'About This Document' => '@"Uber dieses Dokument',
'April' => 'April',
'August' => 'August',
'Back' => 'Zur@"uck',
'Back section in previous file' => '',
'Beginning of this chapter or previous chapter' => 'Anfang dieses oder des letzten Kapitels',
'Button' => '',
'Contents' => 'Inhalt',
'Cover (top) of document' => 'Titelseite des Dokuments',
'Current' => '',
'Current Position' => 'Aktuelle Position',
'Current section' => 'Aktueller Abschnitt',
'December' => 'Dezember',
'FastBack' => '',
'FastForward' => '',
'February' => 'Februar',
'First' => '',
'First section in reading order' => 'Erster Abschnitt in Lesereihenfolge',
'Following' => '',
'Following node' => 'N@"achster Knoten',
'Footnotes' => 'Fu@ss{}noten',
'Forward' => 'Nach vorne',
'Forward section in next file' => '',
'From 1.2.3 go to' => 'Von 1.2.3 gehe zu',
'Go to' => 'Gehe zu',
'Index' => 'Index',
'Index Entry' => 'Indexeintrag',
'January' => 'Januar',
'July' => 'Juli',
'Jump to' => 'Springe zu',
'June' => 'Juni',
'Last' => '',
'Last section in reading order' => 'Letzter Abschnitt in Lesereihenfolge',
'March' => 'M@"arz',
'May' => 'Mai',
'Menu:' => 'Auswahl:',
'Name' => 'Name',
'Next' => '',
'Next chapter' => 'N@"achstes Kapitel',
'Next file' => '',
'Next node' => 'N@"achster Knoten',
'Next section in reading order' => 'N@"achster Abschnitt in Lesereihenfolge',
'Next section on same level' => 'N@"achster Abschitt derselben Ebene',
'NextFile' => '',
'Node following in node reading order' => 'N@"achster Abschnitt in Lesereihenfolge',
'Node up' => 'Knoten nach oben',
'NodeNext' => '',
'NodePrev' => '',
'NodeUp' => '',
'November' => 'November',
'October' => 'Oktober',
'Overview' => '@"Ubersicht',
'Prev' => '',
'PrevFile' => '',
'Previous' => '',
'Previous file' => '',
'Previous node' => 'Voriger Knoten',
'Previous section in reading order' => 'Voriger Abschnitt in Lesereihenfolge',
'Previous section on same level' => 'Voriger Abschnitt derselben Ebene',
'Section' => 'Abschnitt',
'Section One' => 'Abschnitt 1',
'See ' => '',
'See @cite{{book}}' => '',
'See `{section}\'' => 'Abschnitt nach oben',
'See `{section}\' in @cite{{book}}' => 'Siehe Abschnitt `{section}\' in @cite{{book}}',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'See section {reference_name}' => '',
'See {node_file_href}' => 'Siehe {node_file_href}',
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Siehe {node_file_href} in Abschnitt `{section}\' in @cite{{book}}',
'See {reference_name}' => '',
'See {reference}' => 'siehe {reference_name}',
'See {reference} in @cite{{book}}' => 'Siehe {node_file_href} @cite{{book}}',
'See {ref}' => '',
'See {title_ref}' => '',
'September' => 'September',
'Short Table of Contents' => 'Kurzes Inhaltsverzeichnis',
'Short table of contents' => 'Kurzes Inhaltsverzeichnis',
'Subsection One-Four' => 'Unterabschnitt 1-4',
'Subsection One-One' => 'Unterabschnitt 1-1',
'Subsection One-Three' => 'Unterabschnitt 1-3',
'Subsection One-Two' => 'Unterabschnitt 1-2',
'Subsubsection One-Two-Four' => 'Unterabschnitt 1-2-4',
'Subsubsection One-Two-One' => 'Unterabschnitt 1-2-1',
'Subsubsection One-Two-Three' => 'Unterabschnitt 1-2-3',
'Subsubsection One-Two-Two' => 'Unterabschnitt 1-2-2',
'Table of Contents' => 'Inhaltsverzeichnis',
'Table of contents' => 'Inhaltsverzeichnis',
'The node you are looking for is at {href}.' => 'Der Knoten, den Sie sehen, befindet sich bei {href}',
'This' => '',
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Dieses Dokument wurde erzeugt am @i{{date}} durch @uref{{program_homepage}, @i{{program}}}.',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Dieses Dokument wurde erzeugt durch @uref{{program_homepage}, @emph{{program}}}.',
'Top' => 'Anfang',
'Untitled Document' => 'Unbenanntes Dokumen',
'Up' => 'Nach oben',
'Up node' => 'Knoten nach oben',
'Up section' => 'Abschnitt nach oben',
'`{section}\'' => 'Abschnitt nach oben',
'`{section}\' in @cite{{book}}' => 'Abschnitt `{section}\' in @cite{{book}}',
'current' => '',
'on @emph{{date}}' => 'am @emph{{date}}',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see ' => '',
'see @cite{{book}}' => 'siehe @cite{{book}}',
'see `{section}\'' => 'Abschnitt nach oben',
'see `{section}\' in @cite{{book}}' => 'Abschnitt `{section}\' in @cite{{book}}',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see section `{section}\' in @cite{{book}}' => 'siehe Abschnitt `{section}\' in @cite{{book}}',
'see section {reference_name}' => 'siehe Abschnitt {reference_name}',
'see {node_file_href}' => 'siehe {node_file_href}',
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'siehe {node_file_href} im Abschnitt `{section}\' in @cite{{book}}',
'see {reference_name}' => 'siehe {reference_name}',
'see {reference}' => 'siehe {reference_name}',
'see {reference} in @cite{{book}}' => 'siehe {node_file_href} @cite{{book}}',
'see {ref}' => '',
'see {title_ref}' => '',
'{acronym_like} ({explanation})' => '{acronym_like} ({explanation})',
'{month} {day}, {year}' => '{day}. {month} {year}',
'{name} of {class}' => '',
'{name} on {class}' => '',
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} in Abschnitt `{section}\' in @cite{{book}}',
'{reference_name}' => '{reference_name}',
'{reference}' => '{reference_name}',
'{reference} in @cite{{book}}' => 'siehe @cite{{book}}',
'{ref}' => '',
'{style} {number}' => '{style} {number}',
'{style}: {caption_first_line}' => '{style}: {caption_first_line}',
'{style}: {shortcaption_first_line}' => '{style}: {shortcaption_first_line}',
'{title_ref}' => ''
};
# Automatically generated file. Edit the .po file instead.
$LANGUAGES->{'pt'} = {
' The buttons in the navigation panels have the following meaning:' => ' Os bot@~oes nos pain@\'eis de navega@,{c}@~ao possuem os seguintes significados:',
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' onde o @strong{ Exemplo } assume que a posi@,{c}@~ao atual localiza-se em @strong{ Subsub@,{c}@~ao Um-Dois-Tr@^es } de um documento com a seguinte estrutura:',
' Up ' => ' Acima ',
'(outside of any element)' => '',
'(outside of any node)' => '',
'@b{{quotation_arg}:} ' => '',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '',
'@{No value for `{value}\'@}' => '',
'About' => 'Sobre',
'About (help)' => 'Sobre (ajuda)',
'About This Document' => 'Sobre Esse Documento',
'April' => 'Abril',
'August' => 'Agosto',
'Back' => 'Volta',
'Back section in previous file' => '',
'Beginning of this chapter or previous chapter' => 'Come@,{c}o desse cap@\'itulo ou cap@\'itulo anterior',
'Button' => 'Bot@~ao',
'Contents' => 'Conte@\'udo',
'Cover (top) of document' => 'In@\'icio (topo) do documento',
'Current' => '',
'Current Position' => 'Posi@,{c}@~ao Atual',
'Current section' => 'Se@,{c}@~ao atual',
'December' => 'Dezembro',
'FastBack' => 'Voltar R@\'apido',
'FastForward' => 'Avan@,{c}ar R@\'apido',
'February' => 'Fevereiro',
'First' => 'Primeiro',
'First section in reading order' => 'Primeira se@,{c}@~ao na ordem de leitura',
'Following' => 'Seguinte',
'Following node' => 'Nodo seguinte',
'Footnotes' => 'Notas de Rodap@\'e',
'Forward' => 'Avan@,{c}ar',
'Forward section in next file' => '',
'From 1.2.3 go to' => 'De 1.2.3 v@\'a para',
'Go to' => 'V@\'a para',
'Index' => '@\'Indice',
'Index Entry' => 'Entrada de @\'Indice',
'January' => 'Janeiro',
'July' => 'Julho',
'Jump to' => 'Pular para',
'June' => 'Junho',
'Last' => '@\'Ultimo',
'Last section in reading order' => '@\'Ultima se@,{c}@~ao na ordem de leitura',
'March' => 'Mar@,{c}o',
'May' => 'Maio',
'Menu:' => '',
'Name' => 'Nome',
'Next' => 'Pr@\'oximo',
'Next chapter' => 'Pr@\'oximo cap@\'itulo',
'Next file' => '',
'Next node' => 'Pr@\'oximo nodo',
'Next section in reading order' => 'Pr@\'oxima se@,{c}@~ao na ordem de leitura',
'Next section on same level' => 'Pr@\'oxima se@,{c}@~ao no mesmo n@\'ivel',
'NextFile' => '',
'Node following in node reading order' => 'Nodo seguinte na ordem de leitura de nodos',
'Node up' => 'Nodo acima',
'NodeNext' => 'Pr@\'oximo Nodo',
'NodePrev' => 'Nodo Anterior',
'NodeUp' => 'Nodo Acima',
'November' => 'Novembro',
'October' => 'Outubro',
'Overview' => 'Vis@~ao geral',
'Prev' => 'Pr@\'evio',
'PrevFile' => '',
'Previous' => '',
'Previous file' => '',
'Previous node' => 'Nodo anterior',
'Previous section in reading order' => 'Se@,{c}@~ao anterior na ordem de leitura',
'Previous section on same level' => 'Se@,{c}@~ao anterior no mesmo n@\'ivel',
'Section' => 'Se@,{c}@~ao',
'Section One' => 'Se@,{c}@~ao Um',
'See ' => '',
'See @cite{{book}}' => 'Veja @cite{{book}}',
'See `{section}\'' => 'Se@,{c}@~ao acima',
'See `{section}\' in @cite{{book}}' => 'Veja se@,{c}@~ao `{section}\' em @cite{{book}}',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'See section {reference_name}' => 'Veja se@,{c}@~ao {reference_name}',
'See {node_file_href}' => 'Veja {node_file_href}',
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Veja {node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}',
'See {reference_name}' => 'Veja {reference_name}',
'See {reference}' => 'Veja {reference_name}',
'See {reference} in @cite{{book}}' => 'Veja {node_file_href} @cite{{book}}',
'See {ref}' => '',
'See {title_ref}' => '',
'September' => 'Setembro',
'Short Table of Contents' => 'Breve Sum@\'ario',
'Short table of contents' => 'Breve sum@\'ario',
'Subsection One-Four' => 'Subse@,{c}@~ao Um-Quatro',
'Subsection One-One' => 'Subse@,{c}@~ao Um-Um',
'Subsection One-Three' => 'Subse@,{c}@~ao Um-Tr@^es',
'Subsection One-Two' => 'Subse@,{c}@~ao Um-Dois',
'Subsubsection One-Two-Four' => 'Subse@,{c}@~ao Um-Dois-Quatro',
'Subsubsection One-Two-One' => 'Subse@,{c}@~ao Um-Dois-Um',
'Subsubsection One-Two-Three' => 'Subse@,{c}@~ao Um-Dois-Tr@^es',
'Subsubsection One-Two-Two' => 'Subse@,{c}@~ao Um-Dois-Dois',
'Table of Contents' => 'Sum@\'ario',
'Table of contents' => 'Sum@\'ario',
'The node you are looking for is at {href}.' => 'O nodo que vo@^e est@\'a olhando est@\'a em {href}.',
'This' => 'Esse',
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Esse documento foi gerado em @i{{date}} usando @uref{{program_homepage}, @i{{program}}}.',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Esse documento foi gerado usando @uref{{program_homepage}, @emph{{program}}}.',
'Top' => 'Topo',
'Untitled Document' => 'Documento Sem Nome',
'Up' => 'Acima',
'Up node' => 'Nodo acima',
'Up section' => 'Se@,{c}@~ao acima',
'`{section}\'' => 'Se@,{c}@~ao acima',
'`{section}\' in @cite{{book}}' => 'se@,{c}@~ao `{section}\' em @cite{{book}}',
'current' => 'atual',
'on @emph{{date}}' => 'em @emph{{date}}',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see ' => '',
'see @cite{{book}}' => 'veja @cite{{book}}',
'see `{section}\'' => 'Se@,{c}@~ao acima',
'see `{section}\' in @cite{{book}}' => 'se@,{c}@~ao `{section}\' em @cite{{book}}',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see section `{section}\' in @cite{{book}}' => 'veja se@,{c}@~ao `{section}\' em @cite{{book}}',
'see section {reference_name}' => 'veja se@,{c}@~ao {reference_name}',
'see {node_file_href}' => 'veja {node_file_href}',
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'veja {node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}',
'see {reference_name}' => 'veja {reference_name}',
'see {reference}' => 'veja {reference_name}',
'see {reference} in @cite{{book}}' => 'veja {node_file_href} @cite{{book}}',
'see {ref}' => '',
'see {title_ref}' => '',
'{acronym_like} ({explanation})' => '',
'{month} {day}, {year}' => '{day} de {month} de {year}',
'{name} of {class}' => '{name} da {class}',
'{name} on {class}' => '{name} na {class}',
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}',
'{reference_name}' => '',
'{reference}' => 'veja {reference_name}',
'{reference} in @cite{{book}}' => 'veja @cite{{book}}',
'{ref}' => '',
'{style} {number}' => '',
'{style}: {caption_first_line}' => '',
'{style}: {shortcaption_first_line}' => '',
'{title_ref}' => ''
};
# Automatically generated file. Edit the .po file instead.
$LANGUAGES->{'hu'} = {
' The buttons in the navigation panels have the following meaning:' => ' A navigációs panelen levő gombok jelentése a következő:',
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' @strong{ Példánkban } az aktuális pozíció az @strong{ 1.2.3 alalszakasz } egy olyan dokumentumban, melynek szerkezete a következő:',
' Up ' => 'Fel',
'(outside of any element)' => '(bármelyik elemen kívül)',
'(outside of any node)' => '(bármelyik csomóponton kívül)',
'@b{{quotation_arg}:} ' => '@b{{quotation_arg}:} ',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '@cite{{book}}',
'@{No value for `{value}\'@}' => '@{Nincs értéke ennek: `{value}\'@}',
'About' => 'Súgó',
'About (help)' => 'Segítség a navigációhoz',
'About This Document' => 'A navigációs panel használata',
'April' => 'április',
'August' => 'augusztus',
'Back' => 'Vissza',
'Back section in previous file' => 'Előző fájl hátsó szakasza',
'Beginning of this chapter or previous chapter' => 'Fejezet eleje vagy előző fejezet',
'Button' => 'Gomb',
'Contents' => 'Tartalom',
'Cover (top) of document' => 'Dokumentum címoldala',
'Current' => 'Aktuális',
'Current Position' => 'Aktuális pozíció',
'Current section' => 'Aktuális szakasz',
'December' => 'december',
'FastBack' => 'Visszaugrás',
'FastForward' => 'Előreugrás',
'February' => 'február',
'First' => 'Első',
'First section in reading order' => 'Első szakasz az olvasási sorrendben',
'Following' => 'Következő',
'Following node' => 'Következő csomópont',
'Footnotes' => 'Lábjegyzet',
'Forward' => 'Előre',
'Forward section in next file' => 'Következő fájl elülső szakasza',
'From 1.2.3 go to' => '1.2.3-ból ide jutunk',
'Go to' => 'Cél',
'Index' => 'Tárgymutató',
'Index Entry' => 'Tárgymutató-bejegyzés',
'January' => 'január',
'July' => 'július',
'Jump to' => 'Ugorj ide',
'June' => 'június',
'Last' => 'Utolsó',
'Last section in reading order' => 'Utolsó szakasz az olvasási sorrendben',
'March' => 'március',
'May' => 'május',
'Menu:' => 'Menü:',
'Name' => 'Név',
'Next' => 'Következő',
'Next chapter' => 'Következő fejezet',
'Next file' => 'Következő fájl',
'Next node' => 'Következő csomópont',
'Next section in reading order' => 'Következő szakasz az olvasási sorrendben',
'Next section on same level' => 'Következő szakasz ugyanazon a szinten',
'NextFile' => 'KövetkezőFájl',
'Node following in node reading order' => 'Következő csomópont az olvasási sorrendben',
'Node up' => 'Szülő csomópont',
'NodeNext' => 'KövetkezőCsomópont',
'NodePrev' => 'ElőzőCsomópont',
'NodeUp' => 'SzülőCsomópont',
'November' => 'november',
'October' => 'október',
'Overview' => 'Áttekintés',
'Prev' => 'Előző',
'PrevFile' => 'ElőzőFájl',
'Previous' => 'Előző',
'Previous file' => 'Előző fájl',
'Previous node' => 'Előző csomópont',
'Previous section in reading order' => 'Előző szakasz az olvasási sorrendben',
'Previous section on same level' => 'Előző szakasz ugyanazon a szinten',
'Section' => 'Szakasz',
'Section One' => 'szakasz',
'See ' => 'Ld. ',
'See @cite{{book}}' => 'Ld. @cite{{book}}',
'See `{section}\'' => 'Szülő szakasz',
'See `{section}\' in @cite{{book}}' => 'Ld. ezt a szakaszt: `{section}\' itt: @cite{{book}}',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'Ld. ezt a szakaszt: `@asis{}`{section_name}\'@asis{}\' itt: @cite{{book}}',
'See section {reference_name}' => 'Ld. ezt a szakaszt: {reference_name}',
'See {node_file_href}' => 'Ld. {node_file_href}',
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Ld. {node_file_href} ezt a szakaszt: `{section}\' itt: @cite{{book}}',
'See {reference_name}' => 'Ld. {reference_name}',
'See {reference}' => 'Ld. {reference_name}',
'See {reference} in @cite{{book}}' => 'See {node_file_href} @cite{{book}}',
'See {ref}' => 'Ld. {ref}',
'See {title_ref}' => 'Ld. {title_ref}',
'September' => 'szeptember',
'Short Table of Contents' => 'Rövid tartalomjegyzék',
'Short table of contents' => 'Rövid tartalomjegyzék',
'Subsection One-Four' => 'alszakasz',
'Subsection One-One' => 'alszakasz',
'Subsection One-Three' => 'alszakasz',
'Subsection One-Two' => 'alszakasz',
'Subsubsection One-Two-Four' => 'alalszakasz',
'Subsubsection One-Two-One' => 'alalszakasz',
'Subsubsection One-Two-Three' => 'alalszakasz',
'Subsubsection One-Two-Two' => 'alalszakasz',
'Table of Contents' => 'Tartalomjegyzék',
'Table of contents' => 'Tartalomjegyzék',
'The node you are looking for is at {href}.' => 'A keresett csomópont itt található: {href}.',
'This' => 'Ez a(z)',
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Ezt a dokumentumot @i{{date}} napon generálta a(z) @uref{{program_homepage}, @i{{program}}}.',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Ezt a dokumentumot a(z) @uref{{program_homepage}, @emph{{program}}} generálta.',
'Top' => 'Címoldal',
'Untitled Document' => 'Névtelen dokumentum',
'Up' => 'Fel',
'Up node' => 'Szülő csomópont',
'Up section' => 'Szülő szakasz',
'`{section}\'' => 'Szülő szakasz',
'`{section}\' in @cite{{book}}' => 'szakasz: `{section}\' itt: @cite{{book}}',
'current' => 'aktuális',
'on @emph{{date}}' => 'ekkor: @emph{{date}}',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'szakasz: `@asis{}`{section_name}\'@asis{}\' itt: @cite{{book}}',
'see ' => 'ld. ',
'see @cite{{book}}' => 'ld. @cite{{book}}',
'see `{section}\'' => 'Szülő szakasz',
'see `{section}\' in @cite{{book}}' => 'szakasz: `{section}\' itt: @cite{{book}}',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'ld. ezt a szakaszt: `@asis{}`{section_name}\'@asis{}\' itt: @cite{{book}}',
'see section `{section}\' in @cite{{book}}' => 'ld. ezt a szakaszt: `{section}\' itt: @cite{{book}}',
'see section {reference_name}' => 'ld. ezt a szakaszt: {reference_name}',
'see {node_file_href}' => 'ld. {node_file_href}',
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'ld. {node_file_href} ezt a szakaszt: `{section}\' itt: @cite{{book}}',
'see {reference_name}' => 'ld. {reference_name}',
'see {reference}' => 'ld. {reference_name}',
'see {reference} in @cite{{book}}' => 'ld. {node_file_href} @cite{{book}}',
'see {ref}' => 'ld. {ref}',
'see {title_ref}' => 'ld. {title_ref}',
'{acronym_like} ({explanation})' => '{acronym_like} ({explanation})',
'{month} {day}, {year}' => '',
'{name} of {class}' => '{name} típusa: {class}',
'{name} on {class}' => '{name} ezen: {class}',
'{node_file_href}' => '{node_file_href}',
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} szakasz: `{section}\' itt: @cite{{book}}',
'{reference_name}' => '{reference_name}',
'{reference}' => '{reference_name}',
'{reference} in @cite{{book}}' => '{node_file_href} @cite{{book}}',
'{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}'
};
# Automatically generated file. Edit the .po file instead.
$LANGUAGES->{'pt_BR'} = {
' The buttons in the navigation panels have the following meaning:' => ' Os bot@~oes nos pain@\'eis de navega@,{c}@~ao possuem os seguintes significados:',
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' onde o @strong{ Exemplo } assume que a posi@,{c}@~ao atual localiza-se em @strong{ Subsub@,{c}@~ao Um-Dois-Tr@^es } de um documento com a seguinte estrutura:',
' Up ' => ' Acima ',
'(outside of any element)' => '',
'(outside of any node)' => '',
'@b{{quotation_arg}:} ' => '',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '',
'@{No value for `{value}\'@}' => '',
'About' => 'Sobre',
'About (help)' => 'Sobre (ajuda)',
'About This Document' => 'Sobre Esse Documento',
'April' => 'Abril',
'August' => 'Agosto',
'Back' => 'Volta',
'Back section in previous file' => '',
'Beginning of this chapter or previous chapter' => 'Come@,{c}o desse cap@\'itulo ou cap@\'itulo anterior',
'Button' => 'Bot@~ao',
'Contents' => 'Conte@\'udo',
'Cover (top) of document' => 'In@\'icio (topo) do documento',
'Current' => '',
'Current Position' => 'Posi@,{c}@~ao Atual',
'Current section' => 'Se@,{c}@~ao atual',
'December' => 'Dezembro',
'FastBack' => 'Voltar R@\'apido',
'FastForward' => 'Avan@,{c}ar R@\'apido',
'February' => 'Fevereiro',
'First' => 'Primeiro',
'First section in reading order' => 'Primeira se@,{c}@~ao na ordem de leitura',
'Following' => 'Seguinte',
'Following node' => 'Nodo seguinte',
'Footnotes' => 'Notas de Rodap@\'e',
'Forward' => 'Avan@,{c}ar',
'Forward section in next file' => '',
'From 1.2.3 go to' => 'De 1.2.3 v@\'a para',
'Go to' => 'V@\'a para',
'Index' => '@\'Indice',
'Index Entry' => 'Entrada de @\'Indice',
'January' => 'Janeiro',
'July' => 'Julho',
'Jump to' => 'Pular para',
'June' => 'Junho',
'Last' => '@\'Ultimo',
'Last section in reading order' => '@\'Ultima se@,{c}@~ao na ordem de leitura',
'March' => 'Mar@,{c}o',
'May' => 'Maio',
'Menu:' => '',
'Name' => 'Nome',
'Next' => 'Pr@\'oximo',
'Next chapter' => 'Pr@\'oximo cap@\'itulo',
'Next file' => '',
'Next node' => 'Pr@\'oximo nodo',
'Next section in reading order' => 'Pr@\'oxima se@,{c}@~ao na ordem de leitura',
'Next section on same level' => 'Pr@\'oxima se@,{c}@~ao no mesmo n@\'ivel',
'NextFile' => '',
'Node following in node reading order' => 'Nodo seguinte na ordem de leitura de nodos',
'Node up' => 'Nodo acima',
'NodeNext' => 'Pr@\'oximo Nodo',
'NodePrev' => 'Nodo Anterior',
'NodeUp' => 'Nodo Acima',
'November' => 'Novembro',
'October' => 'Outubro',
'Overview' => 'Vis@~ao geral',
'Prev' => 'Pr@\'evio',
'PrevFile' => '',
'Previous' => '',
'Previous file' => '',
'Previous node' => 'Nodo anterior',
'Previous section in reading order' => 'Se@,{c}@~ao anterior na ordem de leitura',
'Previous section on same level' => 'Se@,{c}@~ao anterior no mesmo n@\'ivel',
'Section' => 'Se@,{c}@~ao',
'Section One' => 'Se@,{c}@~ao Um',
'See ' => '',
'See @cite{{book}}' => 'Veja @cite{{book}}',
'See `{section}\'' => 'Se@,{c}@~ao acima',
'See `{section}\' in @cite{{book}}' => 'Veja se@,{c}@~ao `{section}\' em @cite{{book}}',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'See section {reference_name}' => 'Veja se@,{c}@~ao {reference_name}',
'See {node_file_href}' => 'Veja {node_file_href}',
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Veja {node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}',
'See {reference_name}' => 'Veja {reference_name}',
'See {reference}' => 'Veja {reference_name}',
'See {reference} in @cite{{book}}' => 'Veja {node_file_href} @cite{{book}}',
'See {ref}' => '',
'See {title_ref}' => '',
'September' => 'Setembro',
'Short Table of Contents' => 'Breve Sum@\'ario',
'Short table of contents' => 'Breve sum@\'ario',
'Subsection One-Four' => 'Subse@,{c}@~ao Um-Quatro',
'Subsection One-One' => 'Subse@,{c}@~ao Um-Um',
'Subsection One-Three' => 'Subse@,{c}@~ao Um-Tr@^es',
'Subsection One-Two' => 'Subse@,{c}@~ao Um-Dois',
'Subsubsection One-Two-Four' => 'Subse@,{c}@~ao Um-Dois-Quatro',
'Subsubsection One-Two-One' => 'Subse@,{c}@~ao Um-Dois-Um',
'Subsubsection One-Two-Three' => 'Subse@,{c}@~ao Um-Dois-Tr@^es',
'Subsubsection One-Two-Two' => 'Subse@,{c}@~ao Um-Dois-Dois',
'Table of Contents' => 'Sum@\'ario',
'Table of contents' => 'Sum@\'ario',
'The node you are looking for is at {href}.' => 'O nodo que vo@^e est@\'a olhando est@\'a em {href}.',
'This' => 'Esse',
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Esse documento foi gerado em @i{{date}} usando @uref{{program_homepage}, @i{{program}}}.',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Esse documento foi gerado usando @uref{{program_homepage}, @emph{{program}}}.',
'Top' => 'Topo',
'Untitled Document' => 'Documento Sem Nome',
'Up' => 'Acima',
'Up node' => 'Nodo acima',
'Up section' => 'Se@,{c}@~ao acima',
'`{section}\'' => 'Se@,{c}@~ao acima',
'`{section}\' in @cite{{book}}' => 'se@,{c}@~ao `{section}\' em @cite{{book}}',
'current' => 'atual',
'on @emph{{date}}' => 'em @emph{{date}}',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see ' => '',
'see @cite{{book}}' => 'veja @cite{{book}}',
'see `{section}\'' => 'Se@,{c}@~ao acima',
'see `{section}\' in @cite{{book}}' => 'se@,{c}@~ao `{section}\' em @cite{{book}}',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see section `{section}\' in @cite{{book}}' => 'veja se@,{c}@~ao `{section}\' em @cite{{book}}',
'see section {reference_name}' => 'veja se@,{c}@~ao {reference_name}',
'see {node_file_href}' => 'veja {node_file_href}',
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'veja {node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}',
'see {reference_name}' => 'veja {reference_name}',
'see {reference}' => 'veja {reference_name}',
'see {reference} in @cite{{book}}' => 'veja {node_file_href} @cite{{book}}',
'see {ref}' => '',
'see {title_ref}' => '',
'{acronym_like} ({explanation})' => '',
'{month} {day}, {year}' => '{day} de {month} de {year}',
'{name} of {class}' => '{name} da {class}',
'{name} on {class}' => '{name} na {class}',
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} se@,{c}@~ao `{section}\' em @cite{{book}}',
'{reference_name}' => '',
'{reference}' => 'veja {reference_name}',
'{reference} in @cite{{book}}' => 'veja @cite{{book}}',
'{ref}' => '',
'{style} {number}' => '',
'{style}: {caption_first_line}' => '',
'{style}: {shortcaption_first_line}' => '',
'{title_ref}' => ''
};
# Automatically generated file. Edit the .po file instead.
$LANGUAGES->{'es'} = {
' The buttons in the navigation panels have the following meaning:' => ' Los botones de los paneles de navegaci@\'on tienen el significado siguiente:',
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' donde el @strong{ Ejemplo } supone que la posici@\'on actual est@\'a en la @strong{ Sub-subsecci@\'on uno-dos-tres } de un documento de la estructura siguiente:',
' Up ' => ' Subir ',
'(outside of any element)' => '',
'(outside of any node)' => '',
'@b{{quotation_arg}:} ' => '',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '',
'@{No value for `{value}\'@}' => '',
'About' => 'Acerca de',
'About (help)' => 'Acerca de (p@\'agina de ayuda)',
'About This Document' => 'Acerca de este documento',
'April' => 'abril',
'August' => 'agosto',
'Back' => 'Atr@\'as',
'Back section in previous file' => 'Retroceder secci@\'on en el archivo anterior',
'Beginning of this chapter or previous chapter' => 'Inicio de este cap@\'itulo o cap@\'itulo anterior',
'Button' => 'Bot@\'on',
'Contents' => '@\'Indice general',
'Cover (top) of document' => 'Portada del documento',
'Current' => '',
'Current Position' => 'Posici@\'on actual',
'Current section' => 'Secci@\'on actual',
'December' => 'diciembre',
'FastBack' => 'Retroceso r@\'apido',
'FastForward' => 'Avance r@\'apido',
'February' => 'febrero',
'First' => 'Primero',
'First section in reading order' => 'Primera secci@\'on en orden de lectura',
'Following' => 'Siguiente',
'Following node' => 'Nodo siguiente',
'Footnotes' => 'Notas al pie',
'Forward' => 'Adelante',
'Forward section in next file' => 'Avanzar secci@\'on en el pr@\'oximo archivo',
'From 1.2.3 go to' => 'Desde 1.2.3 ir a',
'Go to' => 'Ir a',
'Index' => '@\'Indice',
'Index Entry' => 'Entrada de @\'indice',
'January' => 'enero',
'July' => 'julio',
'Jump to' => 'Saltar a',
'June' => 'junio',
'Last' => '@\'Ultimo',
'Last section in reading order' => '@\'Ultima secci@\'on en orden de lectura',
'March' => 'marzo',
'May' => 'mayo',
'Menu:' => 'Men@\'u:',
'Name' => 'Nombre',
'Next' => 'Siguiente',
'Next chapter' => 'Cap@\'itulo siguiente',
'Next file' => 'Archivo siguiente',
'Next node' => 'Nodo siguiente',
'Next section in reading order' => 'Secci@\'on siguiente en orden de lectura',
'Next section on same level' => 'Secci@\'on siguiente en el mismo nivel',
'NextFile' => 'ArchivoSiguiente',
'Node following in node reading order' => 'Nodo siguiente en orden de lectura de nodos',
'Node up' => 'Subir nodo',
'NodeNext' => 'NodoSiguiente',
'NodePrev' => 'NodoAnterior',
'NodeUp' => 'SubirNodo',
'November' => 'noviembre',
'October' => 'octubre',
'Overview' => 'Panor@\'amica',
'Prev' => 'Ant',
'PrevFile' => 'ArchivoAnt',
'Previous' => '',
'Previous file' => 'Archivo anterior',
'Previous node' => 'Nodo anterior',
'Previous section in reading order' => 'Secci@\'on anterior en orden de lectura',
'Previous section on same level' => 'Secci@\'on anterior en el mismo nivel',
'Section' => 'Secci@\'on',
'Section One' => 'Secci@\'on Uno',
'See ' => '',
'See @cite{{book}}' => 'V@\'ease @cite{{book}}',
'See `{section}\'' => 'Subir secci@\'on',
'See `{section}\' in @cite{{book}}' => 'V@\'ease la secci@\'on `{section}\' en @cite{{book}}',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'See section {reference_name}' => 'V@\'ease la secci@\'on {reference_name}',
'See {node_file_href}' => 'V@\'ease {node_file_href}',
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'V@\'ease {node_file_href} secci@\'on `{section}\' en @cite{{book}}',
'See {reference_name}' => 'V@\'ease {reference_name}',
'See {reference}' => 'V@\'ease {reference_name}',
'See {reference} in @cite{{book}}' => 'V@\'ease {node_file_href} @cite{{book}}',
'See {ref}' => '',
'See {title_ref}' => '',
'September' => 'septiembre',
'Short Table of Contents' => 'Resumen del Contenido',
'Short table of contents' => 'Resumen del contenido',
'Subsection One-Four' => 'Subsecci@\'on uno-cuatro',
'Subsection One-One' => 'Subsecci@\'on uno-uno',
'Subsection One-Three' => 'Subsecci@\'on uno-tres',
'Subsection One-Two' => 'Subsecci@\'on uno-dos',
'Subsubsection One-Two-Four' => 'Sub-subsecci@\'on uno-dos-cuatro',
'Subsubsection One-Two-One' => 'Sub-subsecci@\'on uno-dos-uno',
'Subsubsection One-Two-Three' => 'Sub-subsecci@\'on uno-dos-tres',
'Subsubsection One-Two-Two' => 'Sub-subsecci@\'on uno-dos-dos',
'Table of Contents' => '@\'{@dotless{I}}ndice General',
'Table of contents' => '@\'{@dotless{I}}ndice general',
'The node you are looking for is at {href}.' => 'El nodo que busca se encuentra en {href}.',
'This' => 'Este',
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Este documento se gener@\'o el @i{{date}} utilizando @uref{{program_homepage}, @i{{program}}}.',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Este documento se gener@\'o utilizando @uref{{program_homepage}, @emph{{program}}}.',
'Top' => 'Arriba',
'Untitled Document' => 'Documento sin t@\'itulo',
'Up' => 'Subir',
'Up node' => 'Subir nodo',
'Up section' => 'Subir secci@\'on',
'`{section}\'' => 'Subir secci@\'on',
'`{section}\' in @cite{{book}}' => 'secci@\'on `{section}\' en @cite{{book}}',
'current' => 'actual',
'on @emph{{date}}' => 'el @emph{{date}}',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see ' => '',
'see @cite{{book}}' => 'v@\'ease @cite{{book}}',
'see `{section}\'' => 'Subir secci@\'on',
'see `{section}\' in @cite{{book}}' => 'secci@\'on `{section}\' en @cite{{book}}',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see section `{section}\' in @cite{{book}}' => 'v@\'ease la secci@\'on `{section}\' en @cite{{book}}',
'see section {reference_name}' => 'v@\'ease la secci@\'on {reference_name}',
'see {node_file_href}' => 'v@\'ease {node_file_href}',
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'v@\'ease {node_file_href} secci@\'on `{section}\' en @cite{{book}}',
'see {reference_name}' => 'v@\'ease {reference_name}',
'see {reference}' => 'v@\'ease {reference_name}',
'see {reference} in @cite{{book}}' => 'v@\'ease {node_file_href} @cite{{book}}',
'see {ref}' => '',
'see {title_ref}' => '',
'{acronym_like} ({explanation})' => '',
'{month} {day}, {year}' => 'el {day} {month} {year}',
'{name} of {class}' => '{name} de {class}',
'{name} on {class}' => '{name} en {class}',
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} secci@\'on `{section}\' en @cite{{book}}',
'{reference_name}' => '',
'{reference}' => 'v@\'ease {reference_name}',
'{reference} in @cite{{book}}' => 'v@\'ease @cite{{book}}',
'{ref}' => '',
'{style} {number}' => '',
'{style}: {caption_first_line}' => '',
'{style}: {shortcaption_first_line}' => '',
'{title_ref}' => ''
};
# Automatically generated file. Edit the .po file instead.
$LANGUAGES->{'it'} = {
' The buttons in the navigation panels have the following meaning:' => ' I bottoni nei pannelli di navigazione hanno il seguente significato:',
' where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' dove @strong{ Esempio } assume che l\'attuale posizione è alla @strong{ Sottosottosezione Uno-Due-Tre } di un documento che ha la seguente struttura:',
' Up ' => ' Su ',
'(outside of any element)' => '(fuori da qualsiasi elemento)',
'(outside of any node)' => '(fuori da qualsiasi nodo)',
'@b{{quotation_arg}:} ' => '@b{{quotation_arg}:} ',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '@cite{{book}}',
'@{No value for `{value}\'@}' => '@{Nessun valore per `{value}\'@}',
'About' => 'Informazioni',
'About (help)' => 'Informazioni (aiuto)',
'About This Document' => 'Informazioni su questo documento',
'April' => 'Aprile',
'August' => 'Agosto',
'Back' => 'Indietro',
'Back section in previous file' => '',
'Beginning of this chapter or previous chapter' => 'Inizio di questo capitolo o capitolo precedente',
'Button' => 'Bottone',
'Contents' => 'Contenuti',
'Cover (top) of document' => 'Copertina (inizio) del documento',
'Current' => 'Attuale',
'Current Position' => 'Posizione Attuale',
'Current section' => 'Sezione attuale',
'December' => 'Dicembre',
'FastBack' => 'Indietro veloce',
'FastForward' => 'Avanti veloce',
'February' => 'Febbraio',
'First' => 'Primo',
'First section in reading order' => 'Prima sezione in ordine di lettura',
'Following' => 'Seguente',
'Following node' => 'Nodo seguente',
'Footnotes' => 'Note a piè di pagina',
'Forward' => 'Avanti',
'Forward section in next file' => 'Sezione successiva nel prossimo file',
'From 1.2.3 go to' => 'Da 1.2.3 vai a',
'Go to' => 'Vai a',
'Index' => 'Indice',
'Index Entry' => 'Voce dell\'indice',
'January' => 'Gennaio',
'July' => 'Luglio',
'Jump to' => 'Salta a',
'June' => 'Giugno',
'Last' => 'Ultimo',
'Last section in reading order' => 'Ultima sezione in ordine di lettura',
'March' => 'Marzo',
'May' => 'Maggio',
'Menu:' => 'Menu',
'Name' => 'Nome',
'Next' => 'Successivo',
'Next chapter' => 'Capitolo successivo',
'Next file' => 'File successivo',
'Next node' => 'Nodo successivo',
'Next section in reading order' => 'Sezione successiva in ordine di lettura',
'Next section on same level' => 'Sezione successiva sullo stesso livello',
'NextFile' => 'File successivo',
'Node following in node reading order' => 'Nodo seguente in ordine di lettura',
'Node up' => 'Nodo superiore',
'NodeNext' => 'Nodo successivo',
'NodePrev' => 'Nodo precedente',
'NodeUp' => 'Nodo superiore',
'November' => 'Novembre',
'October' => 'Ottobre',
'Overview' => 'Panoramica',
'Prev' => 'Prec.',
'PrevFile' => 'File precedente',
'Previous' => 'Precedente',
'Previous file' => 'File precedente',
'Previous node' => 'Nodo precedente',
'Previous section in reading order' => 'Sezione precedente in ordine di lettura',
'Previous section on same level' => 'Sezione precedente sullo stesso livello',
'Section' => 'Sezione',
'Section One' => 'Sezione uno',
'See ' => 'Vedi',
'See @cite{{book}}' => 'Vedi @cite{{book}}',
'See `{section}\'' => 'Sezione superiore',
'See `{section}\' in @cite{{book}}' => 'Vedi la sezione `{section}\' in @cite{{book}}',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'Vedi la sezione `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}',
'See section {reference_name}' => 'Vedi la sezione {reference_name}',
'See {node_file_href}' => 'Vedi {node_file_href}',
'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Vedi {node_file_href} nella sezione `{section}\' in @cite{{book}}',
'See {reference_name}' => 'Vedi {reference_name}',
'See {reference}' => 'Vedi {reference_name}',
'See {reference} in @cite{{book}}' => 'Vedi {node_file_href} @cite{{book}}',
'See {ref}' => 'Vedi {ref}',
'See {title_ref}' => 'Vedi {title_ref}',
'September' => 'Settembre',
'Short Table of Contents' => 'Indice breve',
'Short table of contents' => 'Indice breve',
'Subsection One-Four' => 'Sottosezione Uno-Quattro',
'Subsection One-One' => 'Sottosezione Uno-Uno',
'Subsection One-Three' => 'Sottosezione Uno-Tre',
'Subsection One-Two' => 'Sottosezione Uno-Due',
'Subsubsection One-Two-Four' => 'Sottosottosezione Uno-Due-Quattro',
'Subsubsection One-Two-One' => 'Sottosottosezione Uno-Due-Uno',
'Subsubsection One-Two-Three' => 'Sottosottosezione Uno-Due-Tre',
'Subsubsection One-Two-Two' => 'Sottosottosezione Uno-Due-Due',
'Table of Contents' => 'Indice',
'Table of contents' => 'Indice',
'The node you are looking for is at {href}.' => 'Il nodo che stai cercando è {href}',
'This' => 'Questo',
'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Questo documento è stato generato il @i{{date}} con @uref{{program_homepage}, @i{{program}}}.',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Questo documento è stato generato con @uref{{program_homepage}, @emph{{program}}}.',
'Top' => 'Inizio',
'Untitled Document' => 'Documento senza titolo',
'Up' => 'Su',
'Up node' => 'Nodo superiore',
'Up section' => 'Sezione superiore',
'`{section}\'' => 'Sezione superiore',
'`{section}\' in @cite{{book}}' => 'sezione `{section}\' in @cite{{book}}',
'current' => 'attuale',
'on @emph{{date}}' => 'il @emph{{date}}',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'sezione `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}',
'see ' => 'vedi ',
'see @cite{{book}}' => 'vedi @cite{{book}}',
'see `{section}\'' => 'Sezione superiore',
'see `{section}\' in @cite{{book}}' => 'sezione `{section}\' in @cite{{book}}',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'vedi la sezione `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}',
'see section `{section}\' in @cite{{book}}' => 'vedi la sezione `{section}\' in @cite{{book}}',
'see section {reference_name}' => 'vedi la sezione {reference_name}',
'see {node_file_href}' => 'vedi {node_file_href}',
'see {node_file_href} section `{section}\' in @cite{{book}}' => 'vedi {node_file_href} nella sezione `{section}\' in @cite{{book}}',
'see {reference_name}' => 'vedi {reference_name}',
'see {reference}' => 'vedi {reference_name}',
'see {reference} in @cite{{book}}' => 'vedi {node_file_href} @cite{{book}}',
'see {ref}' => 'vedi {ref}',
'see {title_ref}' => 'vedi {title_ref}',
'{acronym_like} ({explanation})' => '{acronym_like} ({explanation})',
'{month} {day}, {year}' => '',
'{name} of {class}' => '{name} di {class}',
'{name} on {class}' => '{name} in {class}',
'{node_file_href}' => '{node_file_href}',
'{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} nella sezione `{section}\' in @cite{{book}}',
'{reference_name}' => '{reference_name}',
'{reference}' => '{reference_name}',
'{reference} in @cite{{book}}' => '{node_file_href} @cite{{book}}',
'{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}'
};
# Automatically generated file. Edit the .po file instead.
$LANGUAGES->{'no'} = {
' 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:' => '',
' Up ' => '',
'(outside of any element)' => '',
'(outside of any node)' => '',
'@b{{quotation_arg}:} ' => '',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '',
'@{No value for `{value}\'@}' => '',
'About' => '',
'About (help)' => '',
'About This Document' => 'No translation available!',
'April' => 'april',
'August' => 'august',
'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' => 'desember',
'FastBack' => '',
'FastForward' => '',
'February' => 'februar',
'First' => '',
'First section in reading order' => '',
'Following' => '',
'Following node' => '',
'Footnotes' => 'No translation available!',
'Forward' => '',
'Forward section in next file' => '',
'From 1.2.3 go to' => '',
'Go to' => '',
'Index' => 'Indeks',
'Index Entry' => '',
'January' => 'januar',
'July' => 'juli',
'Jump to' => '',
'June' => 'juni',
'Last' => '',
'Last section in reading order' => '',
'March' => 'mars',
'May' => 'mai',
'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' => 'november',
'October' => 'oktober',
'Overview' => '',
'Prev' => '',
'PrevFile' => '',
'Previous' => '',
'Previous file' => '',
'Previous node' => '',
'Previous section in reading order' => '',
'Previous section on same level' => '',
'Section' => '',
'Section One' => '',
'See ' => '',
'See @cite{{book}}' => '',
'See `{section}\'' => '',
'See `{section}\' in @cite{{book}}' => '',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'See section {reference_name}' => '',
'See {reference_name}' => '',
'See {reference}' => '',
'See {reference} in @cite{{book}}' => '',
'See {ref}' => '',
'See {title_ref}' => '',
'September' => 'september',
'Short Table of Contents' => 'Kort innholdsfortegnelse',
'Short table of contents' => '',
'Subsection One-Four' => '',
'Subsection One-One' => '',
'Subsection One-Three' => '',
'Subsection One-Two' => '',
'Subsubsection One-Two-Four' => '',
'Subsubsection One-Two-One' => '',
'Subsubsection One-Two-Three' => '',
'Subsubsection One-Two-Two' => '',
'Table of Contents' => 'Innholdsfortegnelse',
'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}}}.' => '',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => '',
'Top' => '',
'Untitled Document' => '',
'Up' => '',
'Up node' => '',
'Up section' => '',
'`{section}\'' => '',
'`{section}\' in @cite{{book}}' => '',
'current' => '',
'on @emph{{date}}' => '',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see ' => '',
'see @cite{{book}}' => '',
'see `{section}\'' => '',
'see `{section}\' in @cite{{book}}' => '',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see section {reference_name}' => '',
'see {reference_name}' => '',
'see {reference}' => '',
'see {reference} in @cite{{book}}' => '',
'see {ref}' => '',
'see {title_ref}' => '',
'{acronym_like} ({explanation})' => '',
'{month} {day}, {year}' => '',
'{name} of {class}' => '',
'{name} on {class}' => '',
'{reference_name}' => '',
'{reference}' => '',
'{reference} in @cite{{book}}' => '',
'{ref}' => '',
'{style} {number}' => '',
'{style}: {caption_first_line}' => '',
'{style}: {shortcaption_first_line}' => '',
'{title_ref}' => ''
};
# Automatically generated file. Edit the .po file instead.
$LANGUAGES->{'en'} = {
' 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:' => '',
' Up ' => '',
'(outside of any element)' => '',
'(outside of any node)' => '',
'@b{{quotation_arg}:} ' => '',
'@center --- @emph{{author}}
' => '',
'@cite{{book}}' => '',
'@{No value for `{value}\'@}' => '',
'About' => '',
'About (help)' => '',
'About This Document' => '',
'April' => '',
'August' => '',
'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' => '',
'FastBack' => '',
'FastForward' => '',
'February' => '',
'First' => '',
'First section in reading order' => '',
'Following' => '',
'Following node' => '',
'Footnotes' => '',
'Forward' => '',
'Forward section in next file' => '',
'From 1.2.3 go to' => '',
'Go to' => '',
'Index' => '',
'Index Entry' => '',
'January' => '',
'July' => '',
'Jump to' => '',
'June' => '',
'Last' => '',
'Last section in reading order' => '',
'March' => '',
'May' => '',
'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' => '',
'October' => '',
'Overview' => '',
'Prev' => '',
'PrevFile' => '',
'Previous' => '',
'Previous file' => '',
'Previous node' => '',
'Previous section in reading order' => '',
'Previous section on same level' => '',
'Section' => '',
'Section One' => '',
'See ' => '',
'See @cite{{book}}' => '',
'See `{section}\'' => '',
'See `{section}\' in @cite{{book}}' => '',
'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'See section {reference_name}' => '',
'See {reference_name}' => '',
'See {reference}' => '',
'See {reference} in @cite{{book}}' => '',
'See {ref}' => '',
'See {title_ref}' => '',
'September' => '',
'Short Table of Contents' => '',
'Short table of contents' => '',
'Subsection One-Four' => '',
'Subsection One-One' => '',
'Subsection One-Three' => '',
'Subsection One-Two' => '',
'Subsubsection One-Two-Four' => '',
'Subsubsection One-Two-One' => '',
'Subsubsection One-Two-Three' => '',
'Subsubsection One-Two-Two' => '',
'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}}}.' => '',
'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => '',
'Top' => '',
'Untitled Document' => '',
'Up' => '',
'Up node' => '',
'Up section' => '',
'`{section}\'' => '',
'`{section}\' in @cite{{book}}' => '',
'current' => '',
'on @emph{{date}}' => '',
'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see ' => '',
'see @cite{{book}}' => '',
'see `{section}\'' => '',
'see `{section}\' in @cite{{book}}' => '',
'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => '',
'see section {reference_name}' => '',
'see {reference_name}' => '',
'see {reference}' => '',
'see {reference} in @cite{{book}}' => '',
'see {ref}' => '',
'see {title_ref}' => '',
'{acronym_like} ({explanation})' => '',
'{month} {day}, {year}' => '',
'{name} of {class}' => '',
'{name} on {class}' => '',
'{reference_name}' => '',
'{reference}' => '',
'{reference} in @cite{{book}}' => '',
'{ref}' => '',
'{style} {number}' => '',
'{style}: {caption_first_line}' => '',
'{style}: {shortcaption_first_line}' => '',
'{title_ref}' => ''
};
require "$T2H_HOME/$translation_file"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/$translation_file" && -r "$T2H_HOME/$translation_file");
# these are unlikely to be used by users, as they are essentially
# used to follow the html external refs specification in texinfo
sub t2h_cross_manual_normal_text($$$$$$$;$)
{
my $text = shift;
my $in_raw_text = shift;
my $in_preformatted = shift;
my $in_code =shift;
my $in_math = shift;
my $in_simple =shift;
my $style_stack = shift;
my $state = shift;
$text = uc($text) if (in_small_caps($style_stack));
return $text if ($USE_UNICODE);
return t2h_no_unicode_cross_manual_normal_text($text, 0);
}
sub t2h_cross_manual_normal_text_transliterate($$$$$$$;$)
{
my $text = shift;
my $in_raw_text = shift;
my $in_preformatted = shift;
my $in_code =shift;
my $in_math = shift;
my $in_simple =shift;
my $style_stack = shift;
my $state = shift;
$text = uc($text) if (in_small_caps($style_stack));
return $text if ($USE_UNICODE);
return t2h_no_unicode_cross_manual_normal_text($text, 1);
}
sub t2h_no_unicode_cross_manual_normal_text($$)
{
# if there is no unicode support, we do all the transformations here
my $text = shift;
my $transliterate = shift;
my $result = '';
my $encoding = get_conf('DOCUMENT_ENCODING');
if (defined($encoding) and exists($t2h_encoding_aliases{$encoding}))
{
$encoding = $t2h_encoding_aliases{$encoding};
}
while ($text ne '')
{
if ($text =~ s/^([A-Za-z0-9]+)//o)
{
$result .= $1;
}
elsif ($text =~ s/^ //o)
{
$result .= '-';
}
elsif ($text =~ s/^(.)//o)
{
if (exists($ascii_character_map{$1}))
{
$result .= '_' . lc($ascii_character_map{$1});
}
else
{
my $character = $1;
my $charcode = uc(sprintf("%02x",ord($1)));
my $done = 0;
if (defined($encoding) and exists($eight_bit_to_unicode{$encoding})
and exists($eight_bit_to_unicode{$encoding}->{$charcode}))
{
$done = 1;
my $unicode_point = $eight_bit_to_unicode{$encoding}->{$charcode};
if (!$transliterate)
{
$result .= '_' . lc($unicode_point);
}
elsif (exists($transliterate_map{$unicode_point}))
{
$result .= $transliterate_map{$unicode_point};
}
elsif (exists($unicode_diacritical{$unicode_point}))
{
$result .= '';
}
else
{
$done = 0;
}
}
if (!$done)
{ # wild guess that work for latin1, and thus, should fail
$result .= '_' . '00' . lc($charcode);
}
}
}
else
{
msg_debug("Bug: unknown character in cross ref (likely in infinite loop)");
msg_debug("Text: !!$text!!");
sleep 1;
}
}
return $result;
}
sub t2h_nounicode_cross_manual_accent($$$)
{
my $accent = shift;
my $args = shift;
my $style_stack = shift;
my $text = $args->[0];
if ($accent eq 'dotless')
{
if (($text eq 'i') and (!defined($style_stack->[-1]) or (!defined($unicode_accents{$style_stack->[-1]})) or ($style_stack->[-1] eq 'tieaccent')))
{
return "_0131";
}
#return "\x{}" if ($text eq 'j'); # not found !
return $text;
}
return '_' . lc($unicode_accents{$accent}->{$text})
if (defined($unicode_accents{$accent}->{$text}));
return ($text . '_' . lc($unicode_diacritical{$accent}))
if (defined($unicode_diacritical{$accent}));
return ascii_accents($text, $accent);
}
sub t2h_transliterate_cross_manual_accent($$)
{
my $accent = shift;
my $args = shift;
my $text = $args->[0];
if (exists($unicode_accents{$accent}->{$text}) and
exists ($transliterate_map{$unicode_accents{$accent}->{$text}}))
{
return $transliterate_map{$unicode_accents{$accent}->{$text}};
}
return $text;
}
} # end package Texi2HTML::Config
# set the defaults based on real command name
set_config_init_dirs_output($real_command_name);
use vars qw(
%value
%alias
);
# variables which might be redefined by the user but aren't likely to be
# they seem to be in the main namespace
use vars qw(
%index_names
%index_prefix_to_name
%predefined_index
%valid_index
%reference_sec2level
%code_style_map
%forbidden_index_name
);
# Some global variables are set in the script, and used in the subroutines
# they are in the Texi2HTML namespace, thus prefixed with Texi2HTML::.
# see texi2html.init for details.
#+++############################################################################
# #
# Pasted content of File $(srcdir)/MySimple.pm: Command-line processing #
# #
#---############################################################################
# leave this within comments, and keep the require statement
# This way, you can directly run texi2html.pl, if $T2H_HOME/MySimple.pm
# exists.
# @MYSIMPLE@
package Getopt::MySimple;
# Name:
# Getopt::MySimple.
#
# Documentation:
# POD-style (incomplete) documentation is in file MySimple.pod
#
# Tabs:
# 4 spaces || die.
#
# Author:
# Ron Savage rpsavage@ozemail.com.au.
# 1.00 19-Aug-97 Initial version.
# 1.10 13-Oct-97 Add arrays of switches (eg '=s@').
# 1.20 3-Dec-97 Add 'Help' on a per-switch basis.
# 1.30 11-Dec-97 Change 'Help' to 'verbose'. Make all hash keys lowercase.
# 1.40 10-Nov-98 Change width of help report. Restructure tests.
# 1-Jul-00 Modifications for Texi2html
# --------------------------------------------------------------------------
# Locally modified by obachman (Display type instead of env, order by cmp)
# $Id: MySimple.pm,v 1.8 2009/08/23 21:50:15 pertusus Exp $
# use strict;
# no strict 'refs';
use vars qw(@EXPORT @EXPORT_OK @ISA);
use vars qw($fieldWidth $opt $VERSION);
use Exporter();
use Getopt::Long;
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw($opt); # An alias for $self -> {'opt'}.
# --------------------------------------------------------------------------
$fieldWidth = 20;
$VERSION = '1.41';
# --------------------------------------------------------------------------
sub byOrder
{
my($self) = @_;
return uc($a) cmp (uc($b));
}
# --------------------------------------------------------------------------
sub dumpOptions
{
my($self) = @_;
print 'Option', ' ' x ($fieldWidth - length('Option') ), "Value\n";
for (sort byOrder keys(%{$self -> {'opt'} }) )
{
print "-$_", ' ' x ($fieldWidth - (1 + length) ), "${$self->{'opt'} }{$_}\n";
}
print "\n";
} # End of dumpOptions.
# --------------------------------------------------------------------------
# Return:
# 0 -> Error.
# 1 -> Ok.
sub getOptions
{
push(@_, 0) if ($#_ == 2); # Default for $ignoreCase is 0.
push(@_, 1) if ($#_ == 3); # Default for $helpThenExit is 1.
my($self, $default, $helpText, $versionText,
$helpThenExit, $versionThenExit, $ignoreCase) = @_;
$helpThenExit = 1 unless (defined($helpThenExit));
$versionThenExit = 1 unless (defined($versionThenExit));
$ignoreCase = 0 unless (defined($ignoreCase));
$self -> {'default'} = $default;
$self -> {'helpText'} = $helpText;
$self -> {'versionText'} = $versionText;
$Getopt::Long::ignorecase = $ignoreCase;
unless (defined($self -> {'default'}{'help'}))
{
$self -> {'default'}{'help'} =
{
type => ':i',
default => '',
linkage => sub {$self->helpOptions($_[1]); sleep 5;exit (0) if $helpThenExit;},
verbose => "print help and exit"
};
}
unless (defined($self -> {'default'}{'version'}))
{
$self -> {'default'}{'version'} =
{
type => '',
default => '',
linkage => sub {print $self->{'versionText'}; exit (0) if $versionThenExit;},
verbose => "print version and exit"
};
}
for (keys(%{$self -> {'default'} }) )
{
next unless (ref(${$self -> {'default'} }{$_}) eq 'HASH');
my $type = ${$self -> {'default'} }{$_}{'type'};
push(@{$self -> {'type'} }, "$_$type");
my $key = $_;
# get rid of aliases, if any
$key =~ s/\|.*//;
$self->{'opt'}->{$key} = ${$self -> {'default'} }{$_}{'linkage'}
if ${$self -> {'default'} }{$_}{'linkage'};
}
my($result) = &GetOptions($self -> {'opt'}, @{$self -> {'type'} });
return $result unless $result;
for (keys(%{$self -> {'default'} }) )
{
if (! defined(${$self -> {'opt'} }{$_})) #{
{
${$self -> {'opt'} }{$_} = ${$self -> {'default'} }{$_}{'default'};
}
}
$result;
} # End of getOptions.
# --------------------------------------------------------------------------
sub helpOptions
{
my($self) = shift;
my($noHelp) = shift;
$noHelp = 0 unless $noHelp;
my($optwidth, $typewidth, $defaultwidth, $maxlinewidth, $valind, $valwidth)
= (10, 5, 9, 78, 4, 11);
print "$self->{'helpText'}" if ($self -> {'helpText'});
print ' Option', ' ' x ($optwidth - length('Option') -1 ),
'Type', ' ' x ($typewidth - length('Type') + 1),
'Default', ' ' x ($defaultwidth - length('Default') ),
"Description\n";
for (sort byOrder keys(%{$self -> {'default'} }) )
{
my($line, $help, $option, $val);
$option = $_;
next if (ref(${$self -> {'default'} }{$_}) ne 'HASH' or (${$self->{'default'} }{$_}{'noHelp'} && ${$self->{'default'} }{$_}{'noHelp'} > $noHelp));
#$line = " -$_" . ' ' x ($optwidth - (2 + length) ) .
# "${$self->{'default'} }{$_}{'type'} ".
# ' ' x ($typewidth - (1+length(${$self -> {'default'} }{$_}{'type'}) ));
$line = " --$_" . "${$self->{'default'} }{$_}{'type'}".
' ' x ($typewidth - (1+length(${$self -> {'default'} }{$_}{'type'}) ));
$val = ${$self->{'default'} }{$_}{'linkage'};
if ($val)
{
if ((ref($val) eq 'SCALAR') and (defined($$val)))
{
$val = $$val;
}
else
{
$val = '';
}
}
elsif (defined(${$self->{'default'} }{$_}{'default'}))
{
$val = ${$self->{'default'} }{$_}{'default'};
}
else
{
$val = '';
}
$line .= "$val ";
$line .= ' ' x ($optwidth + $typewidth + $defaultwidth + 1 - length($line));
if (defined(${$self -> {'default'} }{$_}{'verbose'}) &&
${$self -> {'default'} }{$_}{'verbose'} ne '')
{
$help = "${$self->{'default'} }{$_}{'verbose'}";
}
else
{
$help = ' ';
}
if ((length("$line") + length($help)) < $maxlinewidth)
{
print $line , $help, "\n";
}
else
{
print $line, "\n", ' ' x $valind, $help, "\n";
}
for $val (sort byOrder keys(%{${$self->{'default'}}{$option}{'values'}}))
{
print ' ' x ($valind + 2);
print $val, ' ', ' ' x ($valwidth - length($val) - 2);
print ${$self->{'default'}}{$option}{'values'}{$val}, "\n";
}
}
print <<EOT;
Note: 'Options' may be abbreviated. -- prefix may be replaced by a single -.
'Type' specifications mean:
<none>| ! no argument: variable is set to 1 on -foo (or, to 0 on -nofoo)
=s | :s mandatory (or, optional) string argument
=i | :i mandatory (or, optional) integer argument
EOT
} # End of helpOptions.
#-------------------------------------------------------------------
sub new
{
my($class) = @_;
my($self) = {};
$self -> {'default'} = {};
$self -> {'helpText'} = '';
$self -> {'opt'} = {};
$opt = $self -> {'opt'}; # An alias for $self -> {'opt'}.
$self -> {'type'} = ();
return bless $self, $class;
} # End of new.
# --------------------------------------------------------------------------
1;
# End MySimple.pm
require "$T2H_HOME/MySimple.pm"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/MySimple.pm" && -r "$T2H_HOME/MySimple.pm");
#+++########################################################################
# #
# Pasted content of File $(srcdir)/T2h_i18n.pm: Internationalisation #
# #
#---########################################################################
# leave this within comments, and keep the require statement
# This way, you can directly run texi2html.pl, if $T2H_HOME/T2h_i18n.pm
# exists.
{
# @T2H_I18N@
#+##############################################################################
#
# T2h_i18n.pm: Internationalization for texi2html
#
# Copyright (C) 1999-2005 Patrice Dumas <pertusus@free.fr>,
# Derek Price <derek@ximbiot.com>,
# Adrian Aichner <adrian@xemacs.org>,
# & others.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
#
#-##############################################################################
# This requires perl version 5 or higher
require 5.0;
package Texi2HTML::I18n;
use strict;
use vars qw(
@ISA
@EXPORT
);
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(pretty_date);
my $language;
my $i18n_dir = 'i18n'; # name of the directory containing the per language files
#my $translation_file = 'translations.pl'; # file containing all the translations
#my @known_languages = ('de', 'nl', 'es', 'no', 'pt', 'fr'); # The supported
# languages
########################################################################
# Language dependencies:
# To add a new language extend the WORDS hash and create $T2H_<...>_WORDS hash
# To redefine one word, simply do:
# $T2h_i18n::T2H_LANGUAGES->{<language>}->{<word>} = 'whatever' in your personal init file.
#
# Those hashes are obsolete but retained here for reference
my $T2H_WORDS_EN =
{
# titles of pages
#'Table of Contents' => 'Table of Contents',
#'Short Table of Contents' => 'Short Table of Contents',
#'Index' => 'Index',
#'About This Document' => 'About This Document',
#'Footnotes' => 'Footnotes',
#'See' => 'See',
#'see' => 'see',
#'section' => 'section',
'About This Document' => '',
'Table of Contents' => '',
'Short Table of Contents', => '',
'Index' => '',
'Footnotes' => '',
'See' => '',
'see' => '',
'section' => '',
'Top' => '',
'Untitled Document' => '',
# If necessary, we could extend this as follows:
# # text for buttons
# 'Top_Button' => 'Top',
# 'ToC_Button' => 'Contents',
# 'Overview_Button' => 'Overview',
# 'Index_button' => 'Index',
# 'Back_Button' => 'Back',
# 'FastBack_Button' => 'FastBack',
# 'Prev_Button' => 'Prev',
# 'Up_Button' => 'Up',
# 'Next_Button' => 'Next',
# 'Forward_Button' =>'Forward',
# 'FastWorward_Button' => 'FastForward',
# 'First_Button' => 'First',
# 'Last_Button' => 'Last',
# 'About_Button' => 'About'
'January' => '',
'February' => '',
'March' => '',
'April' => '',
'May' => '',
'June' => '',
'July' => '',
'August' => '',
'September' => '',
'October' => '',
'November' => '',
'December' => '',
'T2H_today' => '%s, %d %d',
};
my $T2H_WORDS_DE =
{
'Table of Contents' => 'Inhaltsverzeichniss',
'Short Table of Contents' => 'Kurzes Inhaltsverzeichniss',
'Index' => 'Index',
'About This Document' => 'Über dieses Dokument',
'Footnotes' => 'Fußnoten',
'See' => 'Siehe',
'see' => 'siehe',
'section' => 'Abschnitt',
'January' => 'Januar',
'February' => 'Februar',
'March' => 'März',
'April' => 'April',
'May' => 'Mai',
'June' => 'Juni',
'July' => 'Juli',
'August' => 'August',
'September' => 'September',
'October' => 'Oktober',
'November' => 'November',
'December' => 'Dezember',
};
my $T2H_WORDS_NL =
{
'Table of Contents' => 'Inhoudsopgave',
'Short Table of Contents' => 'Korte inhoudsopgave',
'Index' => 'Index', #Not sure ;-)
'About This Document' => 'No translation available!', #No translation available!
'Footnotes' => 'No translation available!', #No translation available!
'See' => 'Zie',
'see' => 'zie',
'section' => 'sectie',
'January' => 'Januari',
'February' => 'Februari',
'March' => 'Maart',
'April' => 'April',
'May' => 'Mei',
'June' => 'Juni',
'July' => 'Juli',
'August' => 'Augustus',
'September' => 'September',
'October' => 'Oktober',
'November' => 'November',
'December' => 'December',
};
my $T2H_WORDS_ES =
{
'Table of Contents' => 'índice General',
'Short Table of Contents' => 'Resumen del Contenido',
'Index' => 'Index', #Not sure ;-)
'About This Document' => 'No translation available!', #No translation available!
'Footnotes' => 'Fußnoten',
'See' => 'Véase',
'see' => 'véase',
'section' => 'sección',
'January' => 'enero',
'February' => 'febrero',
'March' => 'marzo',
'April' => 'abril',
'May' => 'mayo',
'June' => 'junio',
'July' => 'julio',
'August' => 'agosto',
'September' => 'septiembre',
'October' => 'octubre',
'November' => 'noviembre',
'December' => 'diciembre',
};
my $T2H_WORDS_NO =
{
'Table of Contents' => 'Innholdsfortegnelse',
'Short Table of Contents' => 'Kort innholdsfortegnelse',
'Index' => 'Indeks', #Not sure ;-)
'About This Document' => 'No translation available!', #No translation available!
'Footnotes' => 'No translation available!',
'See' => 'Se',
'see' => 'se',
'section' => 'avsnitt',
'January' => 'januar',
'February' => 'februar',
'March' => 'mars',
'April' => 'april',
'May' => 'mai',
'June' => 'juni',
'July' => 'juli',
'August' => 'august',
'September' => 'september',
'October' => 'oktober',
'November' => 'november',
'December' => 'desember',
};
my $T2H_WORDS_PT =
{
'Table of Contents' => 'Sumário',
'Short Table of Contents' => 'Breve Sumário',
'Index' => 'Índice', #Not sure ;-)
'About This Document' => 'No translation available!', #No translation available!
'Footnotes' => 'No translation available!',
'See' => 'Veja',
'see' => 'veja',
'section' => 'Seção',
'January' => 'Janeiro',
'February' => 'Fevereiro',
'March' => 'Março',
'April' => 'Abril',
'May' => 'Maio',
'June' => 'Junho',
'July' => 'Julho',
'August' => 'Agosto',
'September' => 'Setembro',
'October' => 'Outubro',
'November' => 'Novembro',
'December' => 'Dezembro',
};
my $T2H_WORDS_FR =
{
'Table of Contents' => 'Table des matières',
'Short Table of Contents' => 'Résumée du contenu',
'Index' => 'Index',
'About This Document' => 'A propos de ce document',
'Footnotes' => 'Notes de bas de page',
'See' => 'Voir',
'see' => 'voir',
'section' => 'section',
'January' => 'Janvier',
'February' => 'Février',
'March' => 'Mars',
'April' => 'Avril',
'May' => 'Mai',
'June' => 'Juin',
'July' => 'Juillet',
'August' => 'Août',
'September' => 'Septembre',
'October' => 'Octobre',
'November' => 'Novembre',
'December' => 'Décembre',
'T2H_today' => 'le %2$d %1$s %3$d'
};
#$T2H_LANGUAGES =
#{
# 'en' => $T2H_WORDS_EN,
# 'de' => $T2H_WORDS_DE,
# 'nl' => $T2H_WORDS_NL,
# 'es' => $T2H_WORDS_ES,
# 'no' => $T2H_WORDS_NO,
# 'pt' => $T2H_WORDS_PT,
# 'fr' => $T2H_WORDS_FR,
#};
sub set_language($)
{
my $lang = shift;
if (defined($lang) && exists($Texi2HTML::Config::LANGUAGES->{$lang}) && defined($Texi2HTML::Config::LANGUAGES->{$lang}))
{
$language = $lang;
return 1;
}
else
{
return 0;
}
}
sub get_language()
{
return $language;
}
my @MONTH_NAMES =
(
'January', 'February', 'March', 'April', 'May',
'June', 'July', 'August', 'September', 'October',
'November', 'December'
);
# This is not used as code, but used to mark months as strings to be
# translated
if (0)
{
my @mark_month_for_translation = (
gdt('January'),
gdt('February'),
gdt('March'),
gdt('April'),
gdt('May'),
gdt('June'),
gdt('July'),
gdt('August'),
gdt('September'),
gdt('October'),
gdt('November'),
gdt('December')
);
}
my $I = \&get_string;
sub pretty_date($)
{
my $lang = shift;
my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$year += ($year < 70) ? 2000 : 1900;
return main::gdt('{month} {day}, {year}', { 'month' => main::gdt($MONTH_NAMES[$mon]),
'day' => $mday, 'year' => $year });
}
my $error_no_en = 0;
my %missing_strings;
# arguments should already be converted
sub get_string($;$$)
{
my $string = shift;
my $arguments = shift;
$arguments = undef if (!ref($arguments));
my $state = shift;
# if duplicate is passed, it means that we are in the text and so should
# use the main state
if (defined($state) and $state->{'duplicate'} and defined($Texi2HTML::THISDOC{'state'}))
{
$state = main::duplicate_formatting_state($Texi2HTML::THISDOC{'state'});
}
my $translated_string;
my $T2H_LANGUAGES = $Texi2HTML::Config::LANGUAGES;
if (! exists($T2H_LANGUAGES->{'en'}))
{
unless($error_no_en)
{
print STDERR "i18n: no LANGUAGES->{'en'} hash\n";
$error_no_en = 1;
}
}
else
{
unless (exists ($T2H_LANGUAGES->{'en'}->{$string}))
{
unless (exists($missing_strings{$string}))
{
#print STDERR "i18n: missing string $string\n";
$missing_strings{$string} = 1;
}
}
if (defined ($T2H_LANGUAGES->{$language}->{$string}) and
($T2H_LANGUAGES->{$language}->{$string} ne ''))
{
$translated_string = $T2H_LANGUAGES->{$language}->{$string};
}
elsif (defined ($T2H_LANGUAGES->{'en'}->{$string}) and
($T2H_LANGUAGES->{'en'}->{$string} ne ''))
{
$translated_string = $T2H_LANGUAGES->{'en'}->{$string};
}
else
{
$translated_string = $string;
}
}
return main::substitute_line($translated_string, "translation", $state) unless (defined($arguments) or !keys(%$arguments));
# taken from libintl perl, copyright Guido. sub __expand
my %args = %$arguments;
my $re = join '|', map { quotemeta $_ } keys %args;
if ($state->{'keep_texi'})
{
$translated_string =~ s/\{($re)\}/defined $args{$1} ? $args{$1} : "{$1}"/ge;
return $translated_string;
}
# if there are arguments, we must protect the {arg} constructs before
# doing substitute_line. So there is a first pass here to change {arg}
# to %@internal_translation_open_brace{}arg@internal_translation_close_brace{}
$translated_string =~ s/\{($re)\}/\@internal_translation_open_brace\{\}$1\@internal_translation_close_brace\{\}/g;
foreach my $map (\%Texi2HTML::Config::things_map, \%Texi2HTML::Config::pre_map, \%Texi2HTML::Config::texi_map, \%Texi2HTML::Config::simple_format_texi_map)
{
$map->{'internal_translation_open_brace'} = '{';
$map->{'internal_translation_close_brace'} = '}';
}
$translated_string = main::substitute_line($translated_string, "translation", $state);
$translated_string =~ s/\{($re)\}/defined $args{$1} ? $args{$1} : "{$1}"/ge;
foreach my $map (\%Texi2HTML::Config::things_map, \%Texi2HTML::Config::pre_map, \%Texi2HTML::Config::texi_map, \%Texi2HTML::Config::simple_format_texi_map)
{
delete $map->{'internal_translation_open_brace'};
delete $map->{'internal_translation_close_brace'};
}
return $translated_string;
}
1;
require "$T2H_HOME/T2h_i18n.pm"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/T2h_i18n.pm" && -r "$T2H_HOME/T2h_i18n.pm");
}
#########################################################################
#
# latex2html code
#
#---######################################################################
{
# leave this within comments, and keep the require statement
# This way, you can directly run texi2html.pl, if $ENV{T2H_HOME}/T2h_l2h.pm
# exists.
# @T2H_L2H@
#+##############################################################################
#
# T2h_l2h.pm: interface to LaTeX2HTML
#
# Copyright (C) 1999-2005 Patrice Dumas <pertusus@free.fr>,
# Derek Price <derek@ximbiot.com>,
# Adrian Aichner <adrian@xemacs.org>,
# & others.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301 USA
#
#-##############################################################################
require 5.0;
use strict;
package Texi2HTML::LaTeX2HTML;
use Cwd;
# latex2html conversions consist of three stages:
# 1) to latex: Put "latex" code into a latex file
# (init, to_latex, finish_to_latex)
# 2) to html: Use latex2html to generate corresponding html code and images
# (to_html)
# 3) from html: Extract generated code and images from latex2html run
# (init_from_html, do_tex)
# init l2h defaults for files and names
# global variable used for caching
# FIXME there is no reason for this variable to be global
use vars qw(
%l2h_cache
);
my ($l2h_name, $l2h_latex_file, $l2h_cache_file, $l2h_html_file, $l2h_prefix);
# holds the status of latex2html operations. If 0 it means that there was
# an error
my $status = 0;
my $debug;
my $verbose;
my $docu_rdir;
my $docu_name;
# init_from_html
my $extract_error_count;
my $invalid_counter_count;
# change_image_file_names
my %l2h_img; # associate src file to destination file
# such that files are not copied twice
my $image_count;
# do_tex
my $html_output_count = 0; # html text outputed in html result file
##########################
#
# First stage: Generation of Latex file
# Initialize with: init
# Add content with: to_latex ($text) --> HTML placeholder comment
# Finish with: finish_to_latex
#
my $l2h_latex_preamble = <<EOT;
% This document was automatically generated by the l2h extenstion of texi2html
% DO NOT EDIT !!!
\\documentclass{article}
\\usepackage{html}
\\begin{document}
EOT
my $l2h_latex_closing = <<EOT;
\\end{document}
EOT
my %l2h_to_latex = (); # associate a latex text with the index in the
# html result array.
my @l2h_to_latex = (); # array used to associate the index with
# the original latex text.
my $latex_count = 0; # number of latex texts really stored
my $latex_converted_count = 0; # number of latex texts passed through latex2html
my $to_latex_count = 0; # total number of latex texts processed
my $cached_count = 0; # number of cached latex texts
%l2h_cache = (); # the cache hash. Associate latex text with
# html from the previous run
my @l2h_from_html; # array of resulting html
my %global_count = (); # associate a command name and the
# corresponding counter to the index in the
# html result array
# set $status to 1, if l2h could be initalized properly, to 0 otherwise
sub init()
{
%l2h_to_latex = (); # associate a latex text with the index in the
# html result array.
@l2h_to_latex = (); # array used to associate the index with
# the original latex text.
$latex_count = 0; # number of latex texts really stored
$latex_converted_count = 0; # number of latex texts passed through latex2html
$to_latex_count = 0; # total number of latex texts processed
$cached_count = 0; # number of cached latex texts
%l2h_cache = (); # the cache hash. Associate latex text with
# html from the previous run
@l2h_from_html = (); # array of resulting html
%global_count = (); # associate a command name and the
# corresponding counter to the index in the
# html result array
$extract_error_count = 0;
$invalid_counter_count = 0;
%l2h_img = (); # associate src file to destination file
# such that files are not copied twice
$image_count = 1;
$html_output_count = 0; # html text outputed in html result file
$status = 0;
return if ($Texi2HTML::Config::null_device_file{$Texi2HTML::THISDOC{'filename'}->{'top'}});
$docu_name = $Texi2HTML::THISDOC{'file_base_name'};
$docu_rdir = $Texi2HTML::THISDOC{'destination_directory'};
$docu_rdir = '' if (!defined($docu_rdir));
$l2h_name = "${docu_name}_l2h";
$l2h_latex_file = "$docu_rdir${l2h_name}.tex";
$l2h_cache_file = "${docu_rdir}${docu_name}-l2h_cache.pm";
# destination dir -- generated images are put there, should be the same
# as dir of enclosing html document --
$l2h_html_file = "$docu_rdir${l2h_name}.html";
$l2h_prefix = "${l2h_name}_";
$debug = $Texi2HTML::THISDOC{'debug_l2h'};
$verbose = $Texi2HTML::Config::VERBOSE;
unless ($Texi2HTML::Config::L2H_SKIP)
{
unless (open(L2H_LATEX, ">$l2h_latex_file"))
{
main::document_error ("l2h: Can't open latex file '$l2h_latex_file' for writing: $!");
$status = 0;
return;
}
warn "# l2h: use ${l2h_latex_file} as latex file\n" if ($verbose);
print L2H_LATEX $l2h_latex_preamble;
}
# open the database that holds cached text
init_cache() if (!defined($Texi2HTML::Config::L2H_SKIP) or $Texi2HTML::Config::L2H_SKIP);
$status = 1;
}
# print text (2nd arg) into latex file (if not already there nor in cache)
# which can be later on replaced by the latex2html generated text.
#
sub to_latex($$$)
{
my $command = shift;
my $text = shift;
my $counter = shift;
return unless ($status);
if ($command eq 'tex')
{
$text .= ' ';
}
elsif ($command eq 'math')
{
$text = "\$".$text."\$";
}
$to_latex_count++;
$text =~ s/(\s*)$//;
# try whether we have text already on things to do
my $count = $l2h_to_latex{$text};
unless ($count)
{
$latex_count++;
$count = $latex_count;
# try whether we can get it from cache
my $cached_text = from_cache($text);
if (defined($cached_text))
{
$cached_count++;
# put the cached result in the html result array
$l2h_from_html[$count] = $cached_text;
}
else
{
$latex_converted_count++;
unless ($Texi2HTML::Config::L2H_SKIP)
{
print L2H_LATEX "\\begin{rawhtml}\n\n";
print L2H_LATEX "<!-- l2h_begin $l2h_name $count -->\n";
print L2H_LATEX "\\end{rawhtml}\n";
print L2H_LATEX "$text\n";
print L2H_LATEX "\\begin{rawhtml}\n";
print L2H_LATEX "<!-- l2h_end $l2h_name $count -->\n\n";
print L2H_LATEX "\\end{rawhtml}\n";
}
}
$l2h_to_latex[$count] = $text;
$l2h_to_latex{$text} = $count;
}
$global_count{"${command}_$counter"} = $count;
return 1;
}
# print closing into latex file and close it
sub finish_to_latex()
{
my $reused = $to_latex_count - $latex_converted_count - $cached_count;
unless ($Texi2HTML::Config::L2H_SKIP)
{
print L2H_LATEX $l2h_latex_closing;
close (L2H_LATEX);
}
warn "# l2h: finished to latex ($cached_count cached, $reused reused, $latex_converted_count to process)\n" if ($verbose);
unless ($latex_count)
{
# no @tex nor @math
finish();
return 0;
}
return 1;
}
###################################
# Second stage: Use latex2html to generate corresponding html code and images
#
# to_html([$l2h_latex_file, [$l2h_html_dir]]):
# Call latex2html on $l2h_latex_file
# Put images (prefixed with $l2h_name."_") and html file(s) in $l2h_html_dir
# Return 1, on success
# 0, otherwise
#
sub to_html()
{
my ($call, $dotbug);
# when there are no tex constructs to convert (happens in case everything
# comes from the cache), there is no latex2html run
if ($Texi2HTML::Config::L2H_SKIP or ($latex_converted_count == 0))
{
warn "# l2h: skipping latex2html run\n" if ($verbose);
return 1;
}
# Check for dot in directory where dvips will work
if ($Texi2HTML::Config::L2H_TMP)
{
if ($Texi2HTML::Config::L2H_TMP =~ /\./)
{
main::document_warn ("l2h: l2h_tmp dir contains a dot.");
$dotbug = 1;
}
}
else
{
if (cwd() =~ /\./)
{
main::document_warn ("l2h: current dir contains a dot.");
$dotbug = 1;
}
}
# fix it, if necessary and hope that it works
#$Texi2HTML::Config::L2H_TMP = "/tmp" if ($dotbug);
return 0 if ($dotbug);
$call = $Texi2HTML::Config::L2H_L2H;
# use init file, if specified
my $init_file = main::locate_init_file($Texi2HTML::Config::L2H_FILE);
$call = $call . " -init_file " . $init_file if ($init_file);
# set output dir
$call .= (($docu_rdir ne '') ? " -dir $docu_rdir" : " -no_subdir");
# use l2h_tmp, if specified
$call .= " -tmp $Texi2HTML::Config::L2H_TMP"
if (defined($Texi2HTML::Config::L2H_TMP) and $Texi2HTML::Config::L2H_TMP ne '');
# use a given html version if specified
$call .= " -html_version $Texi2HTML::Config::L2H_HTML_VERSION"
if (defined($Texi2HTML::Config::L2H_HTML_VERSION) and $Texi2HTML::Config::L2H_HTML_VERSION ne '');
# options we want to be sure of
$call .= " -address 0 -info 0 -split 0 -no_navigation -no_auto_link";
$call .= " -prefix $l2h_prefix $l2h_latex_file";
warn "# l2h: executing '$call'\n" if ($verbose);
if (system($call))
{
main::document_error ("l2h: '${call}' did not succeed");
return 0;
}
else
{
warn "# l2h: latex2html finished successfully\n" if ($verbose);
return 1;
}
}
##########################
# Third stage: Extract generated contents from latex2html run
# Initialize with: init_from_html
# open $l2h_html_file for reading
# reads in contents into array indexed by numbers
# return 1, on success -- 0, otherwise
# Finish with: finish
# closes $l2h_html_dir/$l2h_name.".$docu_ext"
# the images generated by latex2html have names like ${docu_name}_l2h_img?.png
# they are copied to ${docu_name}_?.png, and html is changed accordingly.
# FIXME is it really necessary to bother doing that? Looks like an unneeded
# complication to me (pertusus, 2009), and it could go bad if there is some
# SRC="(.*?)" in the text (though the regexp could be made more specific).
# %l2h_img; # associate src file to destination file
# such that files are not copied twice
sub change_image_file_names($)
{
my $content = shift;
my @images = ($content =~ /SRC="(.*?)"/g);
my ($src, $dest);
for $src (@images)
{
$dest = $l2h_img{$src};
unless ($dest)
{
my $ext = '';
if ($src =~ /.*\.(.*)$/ and (!defined($Texi2HTML::THISDOC{'extension'}) or $1 ne $Texi2HTML::THISDOC{'extension'}))
{
$ext = ".$1";
}
else
{ # A warning when the image extension is the same than the
# document extension. copying the file could result in
# overwriting an output file (almost surely if the default
# texi2html file names are used).
main::document_warn ("L2h image $src has invalid extension");
next;
}
while (-e "$docu_rdir${docu_name}_${image_count}$ext")
{
$image_count++;
}
$dest = "${docu_name}_${image_count}$ext";
if ($debug)
{
# not portable, but only used with debug.
system("cp -f $docu_rdir$src $docu_rdir$dest");
}
else
{
# FIXME error condition not checked.
rename ("$docu_rdir$src", "$docu_rdir$dest");
}
$l2h_img{$src} = $dest;
#unlink "$docu_rdir$src" unless ($debug);
}
$content =~ s/SRC="$src"/SRC="$dest"/g;
}
return $content;
}
sub init_from_html()
{
# when there are no tex constructs to convert (happens in case everything
# comes from the cache), the html file that was generated by previous
# latex2html runs isn't reused.
if ($latex_converted_count == 0)
{
return 1;
}
if (! open(L2H_HTML, "<$l2h_html_file"))
{
main::document_warn ("l2h: Can't open $l2h_html_file for reading");
return 0;
}
warn "# l2h: use $l2h_html_file as html file\n" if ($verbose);
my $html_converted_count = 0; # number of html resulting texts
# retrieved in the file
my ($count, $h_line);
while ($h_line = <L2H_HTML>)
{
if ($h_line =~ /!-- l2h_begin $l2h_name ([0-9]+) --/)
{
$count = $1;
my $h_content = '';
my $h_end_found = 0;
while ($h_line = <L2H_HTML>)
{
if ($h_line =~ /!-- l2h_end $l2h_name $count --/)
{
$h_end_found = 1;
chomp $h_content;
chomp $h_content;
$html_converted_count++;
# transform image file names and copy image files
$h_content = change_image_file_names($h_content);
# store result in the html result array
$l2h_from_html[$count] = $h_content;
# also add the result in cache hash
$l2h_cache{$l2h_to_latex[$count]} = $h_content;
last;
}
$h_content = $h_content.$h_line;
}
unless ($h_end_found)
{ # couldn't found the closing comment. Certainly a bug.
main::msg_debug ("l2h: l2h_end $l2h_name $count not found");
close(L2H_HTML);
return 0;
}
}
}
# Not the same number of converted elements and retrieved elements
if ($latex_converted_count != $html_converted_count)
{
main::msg_debug ("l2h: waiting for $latex_converted_count elements found $html_converted_count");
}
warn "# l2h: Got $html_converted_count of $latex_count html contents\n"
if ($verbose);
close(L2H_HTML);
return 1;
}
# $html_output_count = 0; # html text outputed in html result file
# called each time a construct handled by latex2html is encountered, should
# output the corresponding html
sub do_tex($$$$)
{
my $style = shift;
my $counter = shift;
my $state = shift;
return unless ($status);
my $count = $global_count{"${style}_$counter"};
################################## begin debug section (incorrect counts)
if (!defined($count))
{
# counter is undefined
$invalid_counter_count++;
main::msg_debug ("l2h: undefined count for ${style}_$counter");
return ("<!-- l2h: ". __LINE__ . " undef count for ${style}_$counter -->")
if ($debug);
return '';
}
elsif(($count <= 0) or ($count > $latex_count))
{
# counter out of range
$invalid_counter_count++;
main::msg_debug ("l2h: Request of $count content which is out of valide range [0,$latex_count)");
return ("<!-- l2h: ". __LINE__ . " out of range count $count -->")
if ($debug);
return '';
}
################################## end debug section (incorrect counts)
# this seems to be a valid counter
my $result = '';
$result = "<!-- l2h_begin $l2h_name $count -->" if ($debug);
if (defined($l2h_from_html[$count]))
{
$html_output_count++;
# maybe we could also have something if simple_format
# with Texi2HTML::Config::protect_text in case there
# was some @math on a line passed through simple_format.
# This would certainly be illegal texinfo, however.
if ($state->{'remove_texi'})
{# don't protect anything
$result .= $l2h_to_latex[$count];
}
else
{
$result .= $l2h_from_html[$count];
}
}
else
{
# if the result is not in @l2h_from_html, there is an error somewhere.
$extract_error_count++;
main::msg_debug ("l2h: can't extract content $count from html");
# try simple (ordinary) substitution (without l2h)
$result .= "<!-- l2h: ". __LINE__ . " use texi2html -->" if ($debug);
$result .= main::substitute_text({}, undef, 'error in l2h', $l2h_to_latex[$count]);
}
$result .= "<!-- l2h_end $l2h_name $count -->" if ($debug);
return $result;
}
# store results in the cache and remove temporary files.
sub finish()
{
return unless($status);
if ($verbose)
{
if ($extract_error_count + $invalid_counter_count)
{
warn "# l2h: finished from html ($extract_error_count extract and $invalid_counter_count invalid counter errors)\n";
}
else
{
warn "# l2h: finished from html (no error)\n";
}
if ($html_output_count != $latex_converted_count)
{ # this may happen if @-commands are collected at some places
# but @-command at those places are not expanded later. For
# example @math on @multitable lines.
warn "# l2h: $html_output_count html outputed for $latex_converted_count converted\n";
}
}
store_cache();
if ($Texi2HTML::Config::L2H_CLEAN)
{
local ($_);
warn "# l2h: removing temporary files generated by l2h extension\n"
if $verbose;
while (<"$docu_rdir$l2h_name"*>)
{
# FIXME error condition not checked
unlink $_;
}
}
warn "# l2h: Finished\n" if $verbose;
return 1;
}
# the driver of end of first pass and second pass
#
sub latex2html()
{
return unless($status);
return unless ($status = finish_to_latex());
return unless ($status = to_html());
}
##############################
# stuff for l2h caching
#
# FIXME it is clear that l2h stuff takes very long compared with texi2html
# which is already quite long. However this also adds some complexity
# I tried doing this with a dbm data base, but it did not store all
# keys/values. Hence, I did as latex2html does it
sub init_cache
{
if (-r "$l2h_cache_file")
{
my $rdo = do "$l2h_cache_file";
main::document_error ("l2h: could not load $docu_rdir$l2h_cache_file: $@")
unless ($rdo);
}
}
# store all the text obtained through latex2html
sub store_cache
{
return unless $latex_count;
my ($key, $value);
unless (open(FH, ">$l2h_cache_file"))
{
main::document_error ("l2h: could not open $docu_rdir$l2h_cache_file for writing: $!");
return;
}
while (($key, $value) = each %l2h_cache)
{
# escape stuff
$key =~ s|/|\\/|g;
$key =~ s|\\\\/|\\/|g;
# weird, a \ at the end of the key results in an error
# maybe this also broke the dbm database stuff
$key =~ s|\\$|\\\\|;
$value =~ s/\|/\\\|/go;
$value =~ s/\\\\\|/\\\|/go;
$value =~ s|\\\\|\\\\\\\\|g;
print FH "\n\$l2h_cache_key = q/$key/;\n";
print FH "\$l2h_cache{\$l2h_cache_key} = q|$value|;\n";
}
print FH "1;";
close (FH);
}
# return cached html, if it exists for text, and if all pictures
# are there, as well
sub from_cache($)
{
my $text = shift;
my $cached = $l2h_cache{$text};
if (defined($cached))
{
while ($cached =~ m/SRC="(.*?)"/g)
{
unless (-e "$docu_rdir$1")
{
return undef;
}
}
return $cached;
}
return undef;
}
1;
require "$T2H_HOME/T2h_l2h.pm"
if ($0 =~ /\.pl$/ &&
-e "$T2H_HOME/T2h_l2h.pm" && -r "$T2H_HOME/T2h_l2h.pm");
}
{
package Texi2HTML::LaTeX2HTML::Config;
# latex2html variables
# These variables are not used. They are here for information only, and
# an example of config file for latex2html file is included.
my $ADDRESS;
my $ANTI_ALIAS;
my $ANTI_ALIAS_TEXT;
my $ASCII_MODE;
my $AUTO_LINK;
my $AUTO_PREFIX;
my $CHILDLINE;
my $DEBUG;
my $DESTDIR;
my $DVIPS = 'dvips';
my $ERROR;
my $EXTERNAL_FILE;
my $EXTERNAL_IMAGES;
my $EXTERNAL_UP_LINK;
my $EXTERNAL_UP_TITLE;
my $FIGURE_SCALE_FACTOR;
my $HTML_VERSION;
my $IMAGES_ONLY;
my $INFO;
my $LINE_WIDTH;
my $LOCAL_ICONS;
my $LONG_TITLES;
my $MATH_SCALE_FACTOR;
my $MAX_LINK_DEPTH;
my $MAX_SPLIT_DEPTH;
my $NETSCAPE_HTML;
my $NOLATEX;
my $NO_FOOTNODE;
my $NO_IMAGES;
my $NO_NAVIGATION;
my $NO_SIMPLE_MATH;
my $NO_SUBDIR;
my $PAPERSIZE;
my $PREFIX;
my $PS_IMAGES;
my $REUSE;
my $SCALABLE_FONTS;
my $SHORTEXTN;
my $SHORT_INDEX;
my $SHOW_SECTION_NUMBERS;
my $SPLIT;
my $TEXDEFS;
my $TITLE;
my $TITLES_LANGUAGE;
my $TMP;
my $VERBOSE;
my $WORDS_IN_NAVIGATION_PANEL_TITLES;
my $WORDS_IN_PAGE;
# @T2H_L2H_INIT@
######################################################################
# from here on, its l2h init stuff
#
## initialization for latex2html as for Singular manual generation
## obachman 3/99
#
# Options controlling Titles, File-Names, Tracing and Sectioning
#
$TITLE = '';
$SHORTEXTN = 0;
$LONG_TITLES = 0;
#$DESTDIR = '';
$NO_SUBDIR = 1;
#$PREFIX = '';
$AUTO_PREFIX = 0;
$AUTO_LINK = 0;
$SPLIT = 0;
$MAX_LINK_DEPTH = 0;
#$TMP = '';
$DEBUG = 0;
$VERBOSE = 1;
#
# Options controlling Extensions and Special Features
#
#$HTML_VERSION = "3.2"; # set by command line
$TEXDEFS = 1; # we absolutely need that
$EXTERNAL_FILE = '';
$SCALABLE_FONTS = 1;
$NO_SIMPLE_MATH = 1;
$LOCAL_ICONS = 1;
$SHORT_INDEX = 0;
$NO_FOOTNODE = 1;
$ADDRESS = '';
$INFO = '';
#
# Switches controlling Image Generation
#
$ASCII_MODE = 0;
$NOLATEX = 0;
$EXTERNAL_IMAGES = 0;
$PS_IMAGES = 0;
$NO_IMAGES = 0;
$IMAGES_ONLY = 0;
$REUSE = 2;
$ANTI_ALIAS = 1;
$ANTI_ALIAS_TEXT = 1;
#
#Switches controlling Navigation Panels
#
$NO_NAVIGATION = 1;
$ADDRESS = '';
$INFO = 0; # 0 = do not make a "About this document..." section
#
#Switches for Linking to other documents
#
# currently -- we don't care
$MAX_SPLIT_DEPTH = 0; # Stop making separate files at this depth
$MAX_LINK_DEPTH = 0; # Stop showing child nodes at this depth
$NOLATEX = 0; # 1 = do not pass unknown environments to Latex
$EXTERNAL_IMAGES = 0; # 1 = leave the images outside the document
$ASCII_MODE = 0; # 1 = do not use any icons or internal images
# 1 = use links to external postscript images rather than inlined bitmap
# images.
$PS_IMAGES = 0;
$SHOW_SECTION_NUMBERS = 0;
### Other global variables ###############################################
# put dvips stderr on stdout since latex2html is alread very verbose
$DVIPS = "$DVIPS ".' 2>&1';
$CHILDLINE = "";
# This is the line width measured in pixels and it is used to right justify
# equations and equation arrays;
$LINE_WIDTH = 500;
# Used in conjunction with AUTO_NAVIGATION
$WORDS_IN_PAGE = 300;
# The value of this variable determines how many words to use in each
# title that is added to the navigation panel (see below)
#
$WORDS_IN_NAVIGATION_PANEL_TITLES = 0;
# This number will determine the size of the equations, special characters,
# and anything which will be converted into an inlined image
# *except* "image generating environments" such as "figure", "table"
# or "minipage".
# Effective values are those greater than 0.
# Sensible values are between 0.1 - 4.
$MATH_SCALE_FACTOR = 1.5;
# This number will determine the size of
# image generating environments such as "figure", "table" or "minipage".
# Effective values are those greater than 0.
# Sensible values are between 0.1 - 4.
$FIGURE_SCALE_FACTOR = 1.6;
# If both of the following two variables are set then the "Up" button
# of the navigation panel in the first node/page of a converted document
# will point to $EXTERNAL_UP_LINK. $EXTERNAL_UP_TITLE should be set
# to some text which describes this external link.
$EXTERNAL_UP_LINK = "";
$EXTERNAL_UP_TITLE = "";
# If this is set then the resulting HTML will look marginally better if viewed
# with Netscape.
$NETSCAPE_HTML = 1;
# Valid paper sizes are "letter", "legal", "a4","a3","a2" and "a0"
# Paper sizes has no effect other than in the time it takes to create inlined
# images and in whether large images can be created at all ie
# - larger paper sizes *MAY* help with large image problems
# - smaller paper sizes are quicker to handle
$PAPERSIZE = "a4";
# Replace "english" with another language in order to tell LaTeX2HTML that you
# want some generated section titles (eg "Table of Contents" or "References")
# to appear in a different language. Currently only "english" and "french"
# is supported but it is very easy to add your own. See the example in the
# file "latex2html.config"
$TITLES_LANGUAGE = "english";
1; # This must be the last non-comment line
# End File l2h.init
######################################################################
}
package main;
if (!defined(Texi2HTML::Config::get_conf('use_nls')))
{
my $use_nls = ('yes' eq 'yes' or $0 =~ /\.pl$/);
Texi2HTML::Config::set_conf('use_nls', $use_nls);
}
# prepare the gettext-like framework. To be noted that Locales::TextDomain
# canot be used, since it cannot be used dynamically through a reuires.
# Fortunately, Locales::TextDomain is a thin layer above Locales::Messages.
my $strings_textdomain = 'texi2html' . '_document';
$strings_textdomain = 'texi2html_document' if ($strings_textdomain eq '@'.'PACKAGE@' . '_document');
my $messages_textdomain = 'texi2html';
$messages_textdomain = 'texi2html' if ($messages_textdomain eq '@'.'PACKAGE@');
#my $messages_textdomain = 'texinfo';
if (Texi2HTML::Config::get_conf('use_nls'))
{
if ($0 =~ /\.pl$/)
{ # use in-source libintl when testing
unshift @INC, "$T2H_HOME/lib/libintl-perl/lib";
}
elsif ($ENV{T2H_SOURCE_LIBINTL})
{
unshift @INC, $ENV{T2H_SOURCE_LIBINTL};
}
elsif ('no' ne 'yes')
{
unshift @INC, "$pkgdatadir/lib/libintl-perl/lib";
}
else
{
eval {
require Locale::Messages;
};
if ($@)
{
unshift @INC, "$pkgdatadir/lib/libintl-perl/lib";
}
}
# gettext-like translations
#require Locale::TextDomain;
require Locale::Messages;
# we want a reliable way to switch locale, so we don't use the system
# gettext.
Locale::Messages->select_package ('gettext_pp');
if ($0 =~ /\.pl$/)
{
# in case of out of source build, the locales directory should
# be two levels below. $T2H_HOME is in srcdir.
foreach my $locales_dir ("$T2H_HOME/locales", "../../locales")
{
if (-d $locales_dir)
{
Locale::Messages::bindtextdomain ($strings_textdomain, $locales_dir);
last;
}
}
}
else
{ # match where gettext installs
Locale::Messages::bindtextdomain ($strings_textdomain, "$datadir/locale");
}
# simply bind error messages to the installation directory.
# Messages should be untranslated for tests.
Locale::Messages::bindtextdomain ($messages_textdomain, "$datadir/locale");
}
else
{
unshift @INC, "$pkgdatadir/lib/libintl-perl/lib";
require Locale::Messages;
}
sub __($)
{
my $msgid = shift;
return Locale::Messages::dgettext($messages_textdomain, $msgid);
}
sub __p($$)
{
my $context = shift;
my $msgid = shift;
return Locale::Messages::dpgettext($messages_textdomain, $context, $msgid);
}
sub N__($)
{
return $_[0];
}
#
# flush stdout and stderr after every write
#
select(STDERR);
$| = 1;
select(STDOUT);
$| = 1;
my $I = \&Texi2HTML::I18n::get_string;
########################################################################
#
# Global variable initialization
#
########################################################################
#
# pre-defined indices
#
%index_prefix_to_name = ();
%index_names =
(
'cp' => { 'prefixes' => {'cp' => 0,'c' => 0}},
'fn' => { 'prefixes' => {'fn' => 1, 'f' => 1}},
'vr' => { 'prefixes' => {'vr' => 1, 'v' => 1}},
'ky' => { 'prefixes' => {'ky' => 1, 'k' => 1}},
'pg' => { 'prefixes' => {'pg' => 1, 'p' => 1}},
'tp' => { 'prefixes' => {'tp' => 1, 't' => 1}}
);
foreach my $name(keys(%index_names))
{
foreach my $prefix (keys %{$index_names{$name}->{'prefixes'}})
{
$forbidden_index_name{$prefix} = 1;
$index_prefix_to_name{$prefix} = $name;
}
}
foreach my $other_forbidden_index_name ('info','ps','pdf','htm',
'log','aux','dvi','texi','txi','texinfo','tex','bib')
{
$forbidden_index_name{$other_forbidden_index_name} = 1;
}
# commands with ---, -- '' and `` preserved
# usefull with the old interface
%code_style_map = (
'code' => 1,
'command' => 1,
'env' => 1,
'file' => 1,
'kbd' => 1,
'option' => 1,
'samp' => 1,
'verb' => 1,
);
my @element_directions = ('Up', 'Forward', 'Back', 'Next', 'Prev',
'SectionNext', 'SectionPrev', 'SectionUp', 'FastForward', 'FastBack',
'This', 'NodeUp', 'NodePrev', 'NodeNext', 'Following', 'NextFile', 'PrevFile',
'ToplevelNext', 'ToplevelPrev');
$::simple_map_ref = \%Texi2HTML::Config::simple_map;
$::simple_map_math_ref = \%Texi2HTML::Config::simple_map_math;
#$::simple_map_pre_ref = \%Texi2HTML::Config::simple_map_pre;
$::simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi;
$::style_map_ref = \%Texi2HTML::Config::style_map;
$::style_map_pre_ref = \%Texi2HTML::Config::style_map_pre;
$::style_map_math_ref = \%Texi2HTML::Config::style_map_math;
$::style_map_texi_ref = \%Texi2HTML::Config::style_map_texi;
$::things_map_ref = \%Texi2HTML::Config::things_map;
$::pre_map_ref = \%Texi2HTML::Config::pre_map;
$::texi_map_ref = \%Texi2HTML::Config::texi_map;
#print STDERR "MAPS: $::simple_map_ref $::simple_map_pre_ref $::simple_map_texi_ref $::style_map_ref $::style_map_pre_ref $::style_map_texi_ref $::things_map_ref $::pre_map_ref $::texi_map_ref\n";
# delete from hash if we are using the new interface
foreach my $code (keys(%code_style_map))
{
delete ($code_style_map{$code})
if (ref($::style_map_ref->{$code}) eq 'HASH');
}
# no paragraph in these commands
my %no_paragraph_macro = (
'xref' => 1,
'ref' => 1,
'pxref' => 1,
'inforef' => 1,
'anchor' => 1,
);
#
# texinfo section names to level
#
my %reference_sec2level = (
'top', 0,
'chapter', 1,
'unnumbered', 1,
'chapheading', 1,
'appendix', 1,
'section', 2,
'unnumberedsec', 2,
'heading', 2,
'appendixsec', 2,
'subsection', 3,
'unnumberedsubsec', 3,
'subheading', 3,
'appendixsubsec', 3,
'subsubsection', 4,
'unnumberedsubsubsec', 4,
'subsubheading', 4,
'appendixsubsubsec', 4,
);
# the reverse mapping. There is an entry for each sectioning command.
# The value is a ref on an array containing at each index the corresponding
# sectioning command name.
my %level2sec;
{
my $sections = [ ];
my $appendices = [ ];
my $unnumbered = [ ];
my $headings = [ ];
foreach my $command (keys (%reference_sec2level))
{
if ($command =~ /^appendix/)
{
$level2sec{$command} = $appendices;
}
elsif ($command =~ /^unnumbered/ or $command eq 'top')
{
$level2sec{$command} = $unnumbered;
}
elsif ($command =~ /section$/ or $command eq 'chapter')
{
$level2sec{$command} = $sections;
}
else
{
$level2sec{$command} = $headings;
}
$level2sec{$command}->[$reference_sec2level{$command}] = $command;
}
}
# out of the main hierarchy
$reference_sec2level{'part'} = 0;
# this are synonyms
$reference_sec2level{'appendixsection'} = 2;
# sec2level{'majorheading'} is also 1 and not 0
$reference_sec2level{'majorheading'} = 1;
$reference_sec2level{'chapheading'} = 1;
$reference_sec2level{'centerchap'} = 1;
sub stop_paragraph_command($)
{
my $command = shift;
return 1 if ($Texi2HTML::Config::stop_paragraph_command{$command} or defined($reference_sec2level{$command}));
}
sub set_no_line_macro($$)
{
my $macro = shift;
my $value = shift;
$Texi2HTML::Config::no_paragraph_commands{$macro} = $value
unless defined($Texi2HTML::Config::no_paragraph_commands{$macro});
}
# those macros aren't considered as beginning a paragraph
foreach my $no_line_macro ('alias', 'macro', 'unmacro', 'rmacro',
'titlefont', 'include', 'copying', 'end copying', 'tab', 'item',
'itemx', '*', 'float', 'end float', 'caption', 'shortcaption', 'cindex',
'image')
{
set_no_line_macro($no_line_macro, 1);
}
foreach my $key (keys(%Texi2HTML::Config::misc_command), keys(%reference_sec2level))
{
set_no_line_macro($key, 1);
}
# a hash associating a format @thing / @end thing with the type of the format
# 'complex_format' 'simple_format' 'deff' 'list' 'menu' 'paragraph_format'
my %format_type = ();
foreach my $simple_format (keys(%Texi2HTML::Config::format_map))
{
$format_type{$simple_format} = 'simple_format';
}
foreach my $paragraph_style (keys(%Texi2HTML::Config::paragraph_style))
{
$format_type{$paragraph_style} = 'paragraph_format';
}
# FIXME $complex_format_map obsoleted in nov 2009
foreach my $complex_format (keys(%$Texi2HTML::Config::complex_format_map),
keys(%Texi2HTML::Config::complex_format_map))
{
$format_type{$complex_format} = 'complex_format';
}
foreach my $table (('table', 'ftable', 'vtable'))
{
$format_type{$table} = 'table';
}
$format_type{'multitable'} = 'multitable';
foreach my $def_format (keys(%Texi2HTML::Config::def_map))
{
$format_type{$def_format} = 'deff';
}
$format_type{'itemize'} = 'list';
$format_type{'enumerate'} = 'list';
$format_type{'menu'} = 'menu';
$format_type{'detailmenu'} = 'menu';
$format_type{'direntry'} = 'menu';
$format_type{'cartouche'} = 'cartouche';
$format_type{'float'} = 'float';
$format_type{'quotation'} = 'quotation';
$format_type{'smallquotation'} = 'quotation';
$format_type{'group'} = 'group';
my @special_regions = ('titlepage', 'copying', 'documentdescription');
foreach my $region (@special_regions)
{
$format_type{$region} = 'region';
}
foreach my $key (keys(%format_type))
{
set_no_line_macro($key, 1);
set_no_line_macro("end $key", 1);
}
foreach my $macro (keys(%Texi2HTML::Config::format_in_paragraph))
{
set_no_line_macro($macro, 1);
set_no_line_macro("end $macro", 1);
}
# fake format at the bottom of the stack
$format_type{'noformat'} = '';
# fake formats are formats used internally within other formats
# we associate them with a real format, for the error messages
my %fake_format = (
'line' => 'table',
'term' => 'table',
'item' => 'list or table',
'row' => 'multitable row',
'cell' => 'multitable cell',
'deff_item' => 'definition command',
'menu_comment' => 'menu',
'menu_description' => 'menu',
);
foreach my $key (keys(%fake_format))
{
$format_type{$key} = 'fake';
}
# raw formats which are expanded especially
my @raw_regions = ('html', 'tex', 'xml', 'docbook');
foreach my $format (keys(%Texi2HTML::Config::texi_formats_map))
{
push @raw_regions, $format if ($Texi2HTML::Config::texi_formats_map{$format} eq 'raw');
}
# The css formats are associated with complex format commands, and associated
# with the 'pre_style' key
# FIXME $complex_format_map obsoleted in nov 2009
foreach my $complex_format (keys(%$Texi2HTML::Config::complex_format_map))
{
next if (defined($Texi2HTML::Config::complex_format_map->{$complex_format}->{'pre_style'}));
$Texi2HTML::Config::complex_format_map->{$complex_format}->{'pre_style'} = '';
$Texi2HTML::Config::complex_format_map->{$complex_format}->{'pre_style'} = $Texi2HTML::Config::css_map{"pre.$complex_format"} if (exists($Texi2HTML::Config::css_map{"pre.$complex_format"}));
}
# The css formats are associated with complex format commands, and associated
# with the 'pre_style' key
foreach my $complex_format (keys(%Texi2HTML::Config::complex_format_map))
{
next if (defined($Texi2HTML::Config::complex_format_map{$complex_format}->{'pre_style'}));
$Texi2HTML::Config::complex_format_map{$complex_format}->{'pre_style'} = '';
$Texi2HTML::Config::complex_format_map{$complex_format}->{'pre_style'} = $Texi2HTML::Config::css_map{"pre.$complex_format"} if (exists($Texi2HTML::Config::css_map{"pre.$complex_format"}));
}
#+++############################################################################
# #
# Argument parsing, initialisation #
# #
#---############################################################################
# shorthand for Texi2HTML::Config::VERBOSE
my $T2H_VERBOSE;
my $T2H_DEBUG;
sub line_warn($$);
sub document_warn($);
sub file_line_warn($$;$);
sub cmdline_warn ($);
my $T2H_FAILURE_TEXT = sprintf(__("Try `%s --help' for more information.\n"), $real_command_name);
#print STDERR "" . gdt('test i18n: \' , \a \\ %% %{unknown}a %known % %{known} \\', { 'known' => 'a known string', 'no' => 'nope'}); exit 0;
# file: file name to locate. It can be a file path.
# all_files: if true collect all the files with that name, otherwise stop
# at first match.
# directories: a reference on a array containing a list of directories to
# search the file in. default is
# @Texi2HTML::Config::CONF_DIRS, @program_config_dirs.
sub locate_init_file($;$$)
{
my $file = shift;
my $all_files = shift;
my $directories = shift;
if (!defined($directories))
{
if ($all_files)
{
$directories = [ @program_config_dirs ];
}
else
{
$directories = [ @Texi2HTML::Config::CONF_DIRS, @program_init_dirs ];
}
}
if ($file =~ /^\//)
{
return $file if (-e $file and -r $file);
}
else
{
my @files;
foreach my $dir (@$directories)
{
next unless (-d "$dir");
if ($all_files)
{
push (@files, "$dir/$file") if (-e "$dir/$file" and -r "$dir/$file");
}
else
{
return "$dir/$file" if (-e "$dir/$file" and -r "$dir/$file");
}
}
return @files if ($all_files);
}
return undef;
}
# called on -init-file
sub load_init_file
{
# First argument is option
shift;
# second argument is value of options
my $init_file = shift;
my $file;
if ($file = locate_init_file($init_file))
{
print STDERR "# reading initialization file from $file\n"
if ($T2H_VERBOSE);
# require the file in the Texi2HTML::Config namespace
return (Texi2HTML::Config::load($file));
}
else
{
document_error ("Can't read init file $init_file");
return 0;
}
}
sub set_date($)
{
my $language = shift;
if (!$Texi2HTML::Config::TEST)
{
print STDERR "# Setting date in $language\n" if ($T2H_DEBUG);
$Texi2HTML::THISDOC{'today'} = Texi2HTML::I18n::pretty_date($language); # like "20 September 1993";
}
else
{
$Texi2HTML::THISDOC{'today'} = 'a sunny day';
}
$Texi2HTML::THISDOC{'today'} = $Texi2HTML::Config::DATE
if (defined($Texi2HTML::Config::DATE));
$::things_map_ref->{'today'} = $Texi2HTML::THISDOC{'today'};
$::pre_map_ref->{'today'} = $Texi2HTML::THISDOC{'today'};
$::texi_map_ref->{'today'} = $Texi2HTML::THISDOC{'today'};
}
sub warn_unknown_language($;$)
{
my $lang = shift;
my $line_nr = shift;
my $lang_code = $lang;
my $region_code;
if ($lang =~ /^([a-z]+)_([A-Z]+)/)
{
$lang_code = $1;
$region_code = $2;
}
if (! $Texi2HTML::Config::language_codes{$lang_code})
{
msg_warn(sprintf(__("%s is not a valid language code"), $lang_code), $line_nr);
}
if (defined($region_code) and ! $Texi2HTML::Config::region_codes{$region_code})
{
msg_warn(sprintf(__("%s is not a valid region code"), $region_code), $line_nr);
}
}
# Called on --document-language, at the beginning of each pass and
# when a @documentlanguage appears
sub set_document_language ($$;$)
{
my $lang = shift;
my $silent = shift;
my $line_nr = shift;
my @langs = ($lang);
# my $lang_code = $lang;
# my $region_code;
my $main_lang;
if ($lang =~ /^([a-z]+)_([A-Z]+)/)
{
$main_lang = $1;
# $region_code = $2;
# $lang_code = $main_lang;
push @langs, $main_lang;
}
# if (!$silent)
# {
# if (! $Texi2HTML::Config::language_codes{$lang_code})
# { # i18n
# msg_warn("$lang_code is not a valid language code.", $line_nr);
# }
# if (defined($region_code) and ! $Texi2HTML::Config::region_codes{$region_code})
# { # i18n
# msg_warn("$region_code is not a valid region code.", $line_nr);
# }
# }
# Always succeed if using a gettext-like environment
if (!$Texi2HTML::Config::I18N_PERL_HASH)
{
set_date($lang);
return 1;
}
my @files = locate_init_file("$i18n_dir/$lang.thl", 1);
if (! scalar(@files) and defined($main_lang))
{
@files = locate_init_file("$i18n_dir/$main_lang.thl", 1);
}
foreach my $file (@files)
{
Texi2HTML::Config::load($file);
}
foreach my $language (@langs)
{
if (Texi2HTML::I18n::set_language($language))
{
print STDERR "# using '$language' as document language\n" if ($T2H_VERBOSE);
# since it may be different from get_conf('documentlanguage'),
# we record it.
# Currently this is not used anywhere, not sure what the value
# really corresponds with.
$Texi2HTML::THISDOC{'current_language'} = $language;
set_date($language);
return 1;
}
}
return 0;
}
# manage footnote style
sub set_footnote_style($$;$)
{
my $value = shift;
my $from_command_line = shift;
my $line_nr = shift;
my $command = 'footnotestyle';
if ($value eq 'end' or $value eq 'separate')
{
Texi2HTML::Config::set_conf($command, $value, !$from_command_line);
}
elsif ($from_command_line)
{
die sprintf(__("%s: --footnote-style arg must be `separate' or `end', not `%s'.\n"), $real_command_name, $value);
# the T2H_FAILURE_TEXT is output by getOption, seems to catch die
}
else
{
line_error (sprintf(__("\@%s arg must be `separate' or `end', not `%s'"), $command, $value), $line_nr);
}
}
# find the encoding alias.
# with encoding support (USE_UNICODE), may return undef if no alias was found
sub encoding_alias($;$$)
{
my $encoding = shift;
my $line_nr = shift;
my $context_string = shift;
return undef if (!defined($encoding) or $encoding eq '');
if ($Texi2HTML::Config::USE_UNICODE)
{
my $result_encoding = Encode::resolve_alias($encoding);
if (! $result_encoding)
{
msg_warn(sprintf(__("unrecognized encoding name `%s'"), $encoding), $line_nr, $context_string);
return undef;
}
if (defined($Texi2HTML::Config::t2h_encoding_aliases{$result_encoding}))
{
$result_encoding = $Texi2HTML::Config::t2h_encoding_aliases{$result_encoding};
}
print STDERR "# Using encoding $result_encoding\n" if ($T2H_VERBOSE);
return $result_encoding;
}
else
{
if (exists($Texi2HTML::Config::t2h_encoding_aliases{$encoding}))
{
$encoding = $Texi2HTML::Config::t2h_encoding_aliases{$encoding};
document_warn (__("Document encoding is utf8, but there is no unicode support")) if ($encoding eq 'utf-8');
return $encoding;
}
msg_warn(sprintf(__("Encoding %s certainly poorly supported"), $encoding), $line_nr);
return $encoding;
}
}
# libintl converts between encodings but doesn't decode them into the
# perl internal format.
sub encode_i18n_string($$)
{
my $string = shift;
my $encoding = shift;
if ($encoding ne 'us-ascii' and $Texi2HTML::Config::USE_UNICODE
and Encode::resolve_alias($encoding))
{
return Encode::decode($encoding, $string);
}
return $string;
}
sub gdt($;$$)
{
my $message = shift;
my $context = shift;
my $state = shift;
# FIXME this should be done only once, for @documentencoding
my $encoding = lc(Texi2HTML::Config::get_conf('DOCUMENT_ENCODING'));
if (defined($encoding) and $encoding ne '' and exists($Texi2HTML::Config::t2h_encoding_aliases{$encoding}))
{
$encoding = $Texi2HTML::Config::t2h_encoding_aliases{$encoding};
}
$encoding = 'us-ascii' if (!defined($encoding) or $encoding eq '');
return &$I($message, $context, $state) if ($Texi2HTML::Config::I18N_PERL_HASH);
# if set, use substitute_text instead of substitute_line
my $allow_paragraph = $state->{'allow_paragraph'};
# if duplicate is passed, it means that we are in the text and so should
# use the main state
if (defined($state) and $state->{'duplicate'} and defined($Texi2HTML::THISDOC{'state'}))
{
$state = main::duplicate_formatting_state($Texi2HTML::THISDOC{'state'});
}
my $result;
# taken from libintl perl, copyright Guido. sub __expand. Overall not
# enough code taken form Guido right now to be copyrightable.
my $re = join '|', map { quotemeta $_ } keys %$context if (defined($context) and ref($context));
if (Texi2HTML::Config::get_conf('use_nls'))
{
my $saved_LANGUAGE = $ENV{'LANGUAGE'};
Locale::Messages::textdomain($strings_textdomain);
Locale::Messages::bind_textdomain_codeset($strings_textdomain, $encoding) if ($encoding ne 'us-ascii');
Locale::Messages::bind_textdomain_filter($strings_textdomain, \&encode_i18n_string, $encoding);
my $lang = Texi2HTML::Config::get_conf('documentlanguage');
my @langs = ($lang);
if ($lang =~ /^([a-z]+)_([A-Z]+)/)
{
my $main_lang = $1;
my $region_code = $2;
push @langs, $main_lang;
}
my $locales = '';
foreach my $language (@langs)
{
$locales .= "$language.$encoding:";
#$locales .= "$language:";
# always try us-ascii, the charset should always be a subset of
# all charset, and should resort to @-commands if needed for non
# ascii characters
if ($encoding ne 'us-ascii')
{
$locales .= "$language.us-ascii:";
}
}
$locales =~ s/:$//;
#print STDERR "$locales\n";
Locale::Messages::nl_putenv("LANGUAGE=$locales");
if (!defined($context) or ref($context))
{
$result = Locale::Messages::gettext($message);
}
else
{
$result = Locale::Messages::pgettext($context, $message);
}
Locale::Messages::textdomain($messages_textdomain);
# old perl complains 'Use of uninitialized value in scalar assignment'
if (!defined($saved_LANGUAGE))
{
delete ($ENV{'LANGUAGE'});
}
else
{
$ENV{'LANGUAGE'} = $saved_LANGUAGE;
}
}
# now perform the argument substitutions
if ($state->{'keep_texi'})
{
# next line taken from libintl perl, copyright Guido. sub __expand
$result =~ s/\{($re)\}/defined $context->{$1} ? $context->{$1} : "{$1}"/ge if (defined($re));
return $result;
}
if (defined($re))
{
# next line taken from libintl perl, copyright Guido. sub __expand
$result =~ s/\{($re)\}/\@internal_translation_open_brace\{\}$1\@internal_translation_close_brace\{\}/g;
foreach my $map (\%Texi2HTML::Config::things_map, \%Texi2HTML::Config::pre_map, \%Texi2HTML::Config::texi_map, \%Texi2HTML::Config::simple_format_texi_map)
{
$map->{'internal_translation_open_brace'} = '{';
$map->{'internal_translation_close_brace'} = '}';
}
}
if ($allow_paragraph)
{
delete $state->{'allow_paragraph'};
$result = substitute_text ($state, undef, __("translation"), ($result));
}
else
{
$result = substitute_line ($result, __("translation"), $state);
}
if (defined($re))
{
$result =~ s/\{($re)\}/defined $context->{$1} ? $context->{$1} : "{$1}"/ge;
foreach my $map (\%Texi2HTML::Config::things_map, \%Texi2HTML::Config::pre_map, \%Texi2HTML::Config::texi_map, \%Texi2HTML::Config::simple_format_texi_map)
{
delete $map->{'internal_translation_open_brace'};
delete $map->{'internal_translation_close_brace'};
}
}
return $result;
}
my %nodes; # nodes hash. The key is the texi node name
my %cross_reference_nodes; # normalized node names arrays
#
# %value hold texinfo variables, see also -D, -U, @set and @clear.
# we predefine html (the output format) and texi2html (the translator)
# it is initialized with %value_initial at the beginning of the
# document parsing and filled and emptied as @set and @clear are
# encountered
my %value_initial =
(
'html' => 1,
'texi2html' => $THISVERSION,
);
#
# _foo: internal variables to track @foo
#
foreach my $key ('_author', '_title', '_subtitle', '_shorttitlepage',
'_settitle', '_titlefont')
{
$value_initial{$key} = ''; # prevent -w warnings
}
sub unicode_to_protected($)
{
my $text = shift;
my $result = '';
while ($text ne '')
{
if ($text =~ s/^([A-Za-z0-9]+)//o)
{
$result .= $1;
}
elsif ($text =~ s/^ //o)
{
$result .= '-';
}
elsif ($text =~ s/^(.)//o)
{
my $char = $1;
if (exists($Texi2HTML::Config::ascii_character_map{$char}))
{
$result .= '_' . lc($Texi2HTML::Config::ascii_character_map{$char});
}
else
{
if (ord($char) <= hex(0xFFFF))
{
$result .= '_' . lc(sprintf("%04x",ord($char)));
}
else
{
$result .= '__' . lc(sprintf("%06x",ord($char)));
}
}
}
else
{
print STDERR "Bug: unknown character in a cross ref (likely in infinite loop)\n";
print STDERR "Text: !!$text!!\n";
sleep 1;
}
}
return $result;
}
sub unicode_to_transliterate($)
{
my $text = shift;
if (chomp($text))
{
print STDERR "Strange: end of line to transliterate: $text\n";
}
my $result = '';
while ($text ne '')
{
if ($text =~ s/^([A-Za-z0-9 ]+)//o)
{
$result .= $1;
}
elsif ($text =~ s/^(.)//o)
{
my $char = $1;
if (exists($Texi2HTML::Config::ascii_character_map{$char}))
{
$result .= $char;
}
elsif (ord($char) <= hex(0xFFFF) and exists($Texi2HTML::Config::transliterate_map{uc(sprintf("%04x",ord($char)))}))
{
$result .= $Texi2HTML::Config::transliterate_map{uc(sprintf("%04x",ord($char)))};
}
elsif (ord($char) <= hex(0xFFFF) and exists($Texi2HTML::Config::unicode_diacritical{uc(sprintf("%04x",ord($char)))}))
{
$result .= '';
}
# in this case, we want to avoid calling unidecode, as we are sure
# that there is no useful transliteration of the unicode character
# instead we want to keep it as is.
# This is the case, for example, for @exclamdown, is corresponds
# with x00a1, but unidecode transliterates it to a !, we want
# to avoid that and keep x00a1.
elsif (ord($char) <= hex(0xFFFF) and exists($Texi2HTML::Config::no_transliterate_map{uc(sprintf("%04x",ord($char)))}))
{
$result .= $char;
}
else
{
if ($Texi2HTML::Config::USE_UNIDECODE)
{
$result .= unidecode($char);
}
else
{
$result .= $char;
}
}
}
else
{
print STDERR "Bug: unknown character in cross ref transliteration (likely in infinite loop)\n";
print STDERR "Text: !!$text!!\n";
sleep 1;
}
}
return $result;
}
# used both for command line and @-command argument checking
sub set_paragraphindent($$;$$)
{
my $value = shift;
my $from_command_line = shift;
my $line_nr = shift;
my $pass = shift;
my $command = 'paragraphindent';
if ($value =~ /^([0-9]+)$/ or $value eq 'none' or $value eq 'asis')
{
Texi2HTML::Config::set_conf($command, $value, !$from_command_line);
}
elsif ($from_command_line)
{
die sprintf(__("%s: --paragraph-indent arg must be numeric/`none'/`asis', not `%s'.\n"), $real_command_name, $value);
}
elsif ($pass == 1)
{
line_error (sprintf(__("\@paragraphindent arg must be numeric/`none'/`asis', not `%s'"), $value), $line_nr);
}
}
# T2H_OPTIONS is a hash whose keys are the (long) names of valid
# command-line options and whose values are a hash with the following keys:
# type ==> one of !|=i|:i|=s|:s (see Getopt::Long for more info)
# linkage ==> ref to scalar, array, or subroutine (see Getopt::Long for more info)
# verbose ==> short description of option (displayed by -h)
# noHelp ==> if 1 -> for "not so important options": only print description on -h 1
# 2 -> for obsolete options: only print description on -h 2
my $T2H_OPTIONS;
$T2H_OPTIONS -> {'debug'} =
{
type => '=i',
linkage => \$Texi2HTML::Config::DEBUG,
verbose => 'output HTML with debuging information',
};
$T2H_OPTIONS -> {'doctype'} =
{
type => '=s',
linkage => sub {Texi2HTML::Config::set_conf('doctype', $_[1]);},
verbose => 'document type which is output in header of HTML files',
noHelp => 1
};
$T2H_OPTIONS -> {'frameset-doctype'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::FRAMESET_DOCTYPE,
verbose => 'document type for HTML frameset documents',
noHelp => 1
};
$T2H_OPTIONS -> {'test'} =
{
type => '!',
linkage => \$Texi2HTML::Config::TEST,
verbose => 'use predefined information to avoid differences with reference files',
noHelp => 1
};
$T2H_OPTIONS -> {'dump-texi'} =
{
type => '!',
linkage => \$Texi2HTML::Config::DUMP_TEXI,
verbose => 'dump the output of first pass into a file with extension passfirst and exit',
noHelp => 1
};
$T2H_OPTIONS -> {'macro-expand|E'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::MACRO_EXPAND,
verbose => 'output macro expanded source in <file>',
};
$T2H_OPTIONS -> {'ifhtml'} =
{
type => '!',
linkage => sub { Texi2HTML::Config::set_expansion('html', $_[1]); },
verbose => "expand ifhtml and html sections",
};
$T2H_OPTIONS -> {'ifinfo'} =
{
type => '!',
linkage => sub { Texi2HTML::Config::set_expansion('info', $_[1]); },
verbose => "expand ifinfo",
};
$T2H_OPTIONS -> {'ifxml'} =
{
type => '!',
linkage => sub { Texi2HTML::Config::set_expansion('xml', $_[1]); },
verbose => "expand ifxml and xml sections",
};
$T2H_OPTIONS -> {'ifdocbook'} =
{
type => '!',
linkage => sub { Texi2HTML::Config::set_expansion('docbook', $_[1]); },
verbose => "expand ifdocbook and docbook sections",
};
$T2H_OPTIONS -> {'iftex'} =
{
type => '!',
linkage => sub { Texi2HTML::Config::set_expansion('tex', $_[1]); },
verbose => "expand iftex and tex sections",
};
$T2H_OPTIONS -> {'ifplaintext'} =
{
type => '!',
linkage => sub { Texi2HTML::Config::set_expansion('plaintext', $_[1]); },
verbose => "expand ifplaintext sections",
};
$T2H_OPTIONS -> {'iso'} =
{
type => 'iso',
linkage => sub {Texi2HTML::Config::t2h_default_set_iso_symbols ($_[1]);},
verbose => 'if set, entities are used for special symbols (like copyright, etc...) and quotes',
noHelp => 1,
};
$T2H_OPTIONS -> {'I'} =
{
type => '=s',
linkage => \@Texi2HTML::Config::INCLUDE_DIRS,
verbose => 'append $s to the @include search path',
};
$T2H_OPTIONS -> {'conf-dir'} =
{
type => '=s',
linkage => \@Texi2HTML::Config::CONF_DIRS,
verbose => 'append $s to the init file directories',
};
$T2H_OPTIONS -> {'P'} =
{
type => '=s',
linkage => sub {unshift (@Texi2HTML::Config::PREPEND_DIRS, $_[1]);},
verbose => 'prepend $s to the @include search path',
};
$T2H_OPTIONS -> {'top-file'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::TOP_FILE,
verbose => 'use $s as top file, instead of <docname>.html',
};
$T2H_OPTIONS -> {'toc-file'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::TOC_FILE,
verbose => 'use $s as ToC file, instead of <docname>_toc.html',
};
$T2H_OPTIONS -> {'frames'} =
{
type => '!',
linkage => \$Texi2HTML::Config::FRAMES,
verbose => 'output files which use HTML 4.0 frames (experimental)',
noHelp => 1,
};
$T2H_OPTIONS -> {'menu'} =
{
type => '!',
linkage => \$Texi2HTML::Config::SHOW_MENU,
verbose => 'output Texinfo menus',
};
$T2H_OPTIONS -> {'number-sections'} =
{
type => '!',
linkage => \$Texi2HTML::Config::NUMBER_SECTIONS,
verbose => 'output chapter and sectioning numbers.',
};
$T2H_OPTIONS -> {'number-footnotes'} =
{
type => '!',
linkage => \$Texi2HTML::Config::NUMBER_FOOTNOTES,
verbose => 'output footnote numbers.',
};
$T2H_OPTIONS -> {'use-nodes'} =
{
type => '!',
linkage => \$Texi2HTML::Config::USE_NODES,
verbose => 'use nodes for sectioning',
};
$T2H_OPTIONS -> {'node-files'} =
{
type => '!',
linkage => \$Texi2HTML::Config::NODE_FILES,
verbose => 'produce one file per node for cross references'
};
$T2H_OPTIONS -> {'footnote-style|s'} =
{
type => '=s',
linkage => sub {set_footnote_style ($_[1], 1);},
verbose => 'output footnotes separate|end',
};
$T2H_OPTIONS -> {'toc-links'} =
{
type => '!',
linkage => \$Texi2HTML::Config::TOC_LINKS,
verbose => 'create links from headings to toc entries'
};
$T2H_OPTIONS -> {'split'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::SPLIT,
verbose => 'split document on section|chapter|node else no splitting',
};
$T2H_OPTIONS -> {'no-split'} =
{
type => '!',
linkage => sub {$Texi2HTML::Config::SPLIT = ''; $Texi2HTML::Config::SPLIT_SIZE = undef;},
verbose => 'no splitting of document',
noHelp => 1,
};
$T2H_OPTIONS -> {'headers'} =
{
type => '!',
linkage => sub {
Texi2HTML::Config::set_conf('headers', $_[1]);
Texi2HTML::Config::t2h_default_load_format('plaintext', 1)
if (!$_[1] and defined($Texi2HTML::Config::OUTPUT_FORMAT) and $Texi2HTML::Config::OUTPUT_FORMAT eq 'info');
},
verbose => 'output navigation headers for each section',
};
$T2H_OPTIONS -> {'subdir'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::SUBDIR,
verbose => 'put files in directory $s, not $cwd',
noHelp => 1,
};
$T2H_OPTIONS -> {'short-ext'} =
{
type => '!',
linkage => \$Texi2HTML::Config::SHORTEXTN,
verbose => 'use "htm" extension for output HTML files',
};
$T2H_OPTIONS -> {'prefix'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::PREFIX,
verbose => 'use as prefix for output files, instead of <docname>',
};
$T2H_OPTIONS -> {'output|out|o'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::OUT,
verbose => 'output goes to $s (directory if split)',
};
$T2H_OPTIONS -> {'no-validate|no-pointer-validate'} =
{
type => '',
linkage => sub {Texi2HTML::Config::set_conf('novalidate',$_[1])},
verbose => 'suppress node cross-reference validation',
};
$T2H_OPTIONS -> {'no-warn'} =
{
type => '',
linkage => \$Texi2HTML::Config::NO_WARN,
verbose => 'suppress warnings (but not errors).'
};
$T2H_OPTIONS -> {'short-ref'} =
{
type => '!',
linkage => \$Texi2HTML::Config::SHORT_REF,
verbose => 'if set, references are without section numbers',
};
$T2H_OPTIONS -> {'idx-sum'} =
{
type => '!',
linkage => \$Texi2HTML::Config::IDX_SUMMARY,
verbose => 'if set, also output index summary',
noHelp => 1,
};
$T2H_OPTIONS -> {'def-table'} =
{
type => '!',
linkage => \$Texi2HTML::Config::DEF_TABLE,
verbose => 'if set, \@def.. are converted using tables.',
noHelp => 1,
};
$T2H_OPTIONS -> {'verbose'} = 0;
$T2H_OPTIONS -> {'verbose|v'} =
{
type => '!',
linkage=> \$Texi2HTML::Config::VERBOSE,
verbose => 'print progress info to stdout',
};
$T2H_OPTIONS -> {'document-language'} =
{
type => '=s',
linkage => sub {
warn_unknown_language ($_[1]);
Texi2HTML::Config::set_conf('documentlanguage', $_[1])
},
verbose => 'use $s as document language',
};
$T2H_OPTIONS -> {'ignore-preamble-text'} =
{
type => '!',
linkage => \$Texi2HTML::Config::IGNORE_PREAMBLE_TEXT,
verbose => 'if set, ignore the text before @node and sectioning commands',
noHelp => 1,
};
$T2H_OPTIONS -> {'html-xref-prefix'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::EXTERNAL_DIR,
verbose => '$s is the base dir for external manual references',
noHelp => 1,
};
$T2H_OPTIONS -> {'l2h'} =
{
type => '!',
linkage => \$Texi2HTML::Config::L2H,
verbose => 'if set, uses latex2html for @math and @tex',
};
$T2H_OPTIONS -> {'l2h-l2h'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::L2H_L2H,
verbose => 'program to use for latex2html translation',
noHelp => 1,
};
$T2H_OPTIONS -> {'l2h-skip'} =
{
type => '!',
linkage => \$Texi2HTML::Config::L2H_SKIP,
verbose => 'if set, tries to reuse previously latex2html output',
noHelp => 1,
};
$T2H_OPTIONS -> {'l2h-tmp'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::L2H_TMP,
verbose => 'if set, uses $s as temporary latex2html directory',
noHelp => 1,
};
$T2H_OPTIONS -> {'l2h-file'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::L2H_FILE,
verbose => 'if set, uses $s as latex2html init file',
noHelp => 1,
};
$T2H_OPTIONS -> {'l2h-clean'} =
{
type => '!',
linkage => \$Texi2HTML::Config::L2H_CLEAN,
verbose => 'if set, do not keep intermediate latex2html files for later reuse',
noHelp => 1,
};
$T2H_OPTIONS -> {'D'} =
{
type => '=s',
linkage => sub {$value_initial{$_[1]} = 1;},
verbose => 'equivalent to Texinfo "@set $s 1"',
noHelp => 1,
};
$T2H_OPTIONS -> {'U'} =
{
type => '=s',
linkage => sub {delete $value_initial{$_[1]};},
verbose => 'equivalent to Texinfo "@clear $s"',
noHelp => 1,
};
$T2H_OPTIONS -> {'init-file'} =
{
type => '=s',
linkage => \&load_init_file,
verbose => 'load init file $s'
};
$T2H_OPTIONS -> {'css-include'} =
{
type => '=s',
linkage => \@Texi2HTML::Config::CSS_FILES,
verbose => 'use css file $s'
};
$T2H_OPTIONS -> {'css-ref'} =
{
type => '=s',
linkage => \@Texi2HTML::Config::CSS_REFS,
verbose => 'generate reference to the CSS URL $s'
};
$T2H_OPTIONS -> {'transliterate-file-names'} =
{
type => '!',
linkage=> \$Texi2HTML::Config::TRANSLITERATE_FILE_NAMES,
verbose => 'produce file names in ASCII transliteration',
};
$T2H_OPTIONS -> {'error-limit|e'} =
{
type => '=i',
linkage => \$Texi2HTML::Config::ERROR_LIMIT,
verbose => 'quit after NUM errors (default 1000).',
};
$T2H_OPTIONS -> {'split-size'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::SPLIT_SIZE,
verbose => 'split Info files at size s (default 300000).',
};
$T2H_OPTIONS -> {'paragraph-indent|p'} =
{
type => '=s',
linkage => sub {set_paragraphindent($_[1], 1);},
'verbose' => "indent Info paragraphs by VAL spaces (default 3).
If VAL is `none', do not indent; if VAL is
`asis', preserve existing indentation.",
};
$T2H_OPTIONS -> {'fill-column|f'} =
{
type => '=i',
linkage => sub {Texi2HTML::Config::set_conf('fillcolumn',$_[1]);},
'verbose' => "break Info lines at NUM characters (default 72).",
};
$T2H_OPTIONS -> {'enable-encoding'} =
{
type => '',
linkage => \$Texi2HTML::Config::ENABLE_ENCODING,
verbose => 'override --disable-encoding (default in Info).',
};
$T2H_OPTIONS -> {'disable-encoding'} =
{
type => '',
linkage => sub {$Texi2HTML::Config::ENABLE_ENCODING = 0},
verbose => 'do not output accented and special characters
in Info output based on @documentencoding.',
};
$T2H_OPTIONS -> {'internal-links'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::INTERNAL_LINKS,
verbose => 'produce list of internal links in FILE.'
};
$T2H_OPTIONS -> {'force|F'} =
{ type => '!',
linkage => \$Texi2HTML::Config::FORCE,
verbose => 'preserve output even if errors.'
};
$T2H_OPTIONS -> {'monolithic'} =
{
type => '!',
linkage => \$Texi2HTML::Config::MONOLITHIC,
verbose => 'output only one file including ToC, About...',
noHelp => 1
};
$T2H_OPTIONS -> {'commands-in-node-names'} =
{
type => '!',
verbose => 'Always set',
noHelp => 1
};
$T2H_OPTIONS -> {'output-indent'} =
{
type => '=i',
verbose => 'This option used to indent XML, it is ignored'
};
$T2H_OPTIONS -> {'program'} =
{
type => '=s',
linkage => sub {set_config_init_dirs_output($_[1]);},
'verbose' => 'Call as $s, setting corresponding defaults'
};
#$T2H_OPTIONS -> {'command'} =
#{
# type => '=s',
# linkage => \@Texi2HTML::Config::COMMANDS,
# verbose => 'insert CMD in copy of input file'
#};
foreach my $output_format (keys(%Texi2HTML::Config::output_format_names))
{
next if (defined($Texi2HTML::Config::DEFAULT_OUTPUT_FORMAT) and $output_format eq $Texi2HTML::Config::DEFAULT_OUTPUT_FORMAT);
$T2H_OPTIONS -> {$output_format} =
{
type => '',
linkage => sub {Texi2HTML::Config::t2h_default_load_format($_[0], 1);},
verbose => "output $Texi2HTML::Config::output_format_names{$output_format} rather than $Texi2HTML::Config::output_format_names{$Texi2HTML::Config::DEFAULT_OUTPUT_FORMAT}.",
}
}
$T2H_OPTIONS -> {$Texi2HTML::Config::DEFAULT_OUTPUT_FORMAT} =
{
type => '',
linkage => sub {Texi2HTML::Config::t2h_default_load_format($_[0], 1);},
verbose => "output default format.",
noHelp => 2
};
##
## obsolete cmd line options
##
my $T2H_OBSOLETE_OPTIONS;
# actually a noop, since it is not used anywhere
$T2H_OBSOLETE_OPTIONS -> {'invisible'} =
{
type => '=s',
linkage => \$Texi2HTML::Config::INVISIBLE_MARK,
verbose => 'use text in invisble anchor',
noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {'expand'} =
{
type => '=s',
linkage => sub {Texi2HTML::Config::set_expansion($_[1], 1);},
verbose => 'Expand <s> section of texinfo source',
noHelp => 1,
};
$T2H_OBSOLETE_OPTIONS -> {'no-expand'} =
{
type => '=s',
linkage => sub {Texi2HTML::Config::set_expansion ($_[1], 0);},
verbose => 'Don\'t expand the given section of texinfo source',
};
$T2H_OBSOLETE_OPTIONS -> {'noexpand'} =
{
type => '=s',
linkage => $T2H_OBSOLETE_OPTIONS->{'no-expand'}->{'linkage'},
verbose => $T2H_OBSOLETE_OPTIONS->{'no-expand'}->{'verbose'},
noHelp => 1,
};
$T2H_OBSOLETE_OPTIONS -> {'out-file'} =
{
type => '=s',
linkage => sub {$Texi2HTML::Config::OUT = $_[1]; $Texi2HTML::Config::SPLIT = '';},
verbose => 'if set, all HTML output goes into file $s, obsoleted by "-output" with different semantics',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {'lang'} =
{
type => '=s',
linkage => sub {Texi2HTML::Config::set_conf('documentlanguage', $_[1])},
verbose => 'obsolete, use "--document-language" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {'separated-footnotes'} =
{
type => '!',
linkage => sub {my $style = 'separate'; $style = 'end' if !$_[1]; set_footnote_style ($style, 1);},
verbose => 'obsolete, use "--footnote-style" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {'Verbose'} =
{
type => '!',
linkage=> \$Texi2HTML::Config::VERBOSE,
verbose => 'obsolete, use "--verbose" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {init_file} =
{
type => '=s',
linkage => \&load_init_file,
verbose => 'obsolete, use "-init-file" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {l2h_clean} =
{
type => '!',
linkage => \$Texi2HTML::Config::L2H_CLEAN,
verbose => 'obsolete, use "-l2h-clean" instead',
noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {l2h_l2h} =
{
type => '=s',
linkage => \$Texi2HTML::Config::L2H_L2H,
verbose => 'obsolete, use "-l2h-l2h" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {l2h_skip} =
{
type => '!',
linkage => \$Texi2HTML::Config::L2H_SKIP,
verbose => 'obsolete, use "-l2h-skip" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {l2h_tmp} =
{
type => '=s',
linkage => \$Texi2HTML::Config::L2H_TMP,
verbose => 'obsolete, use "-l2h-tmp" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {out_file} =
{
type => '=s',
linkage => sub {$Texi2HTML::Config::OUT = $_[1]; $Texi2HTML::Config::SPLIT = '';},
verbose => 'obsolete, use "-out-file" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {short_ref} =
{
type => '!',
linkage => \$Texi2HTML::Config::SHORT_REF,
verbose => 'obsolete, use "-short-ref" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {idx_sum} =
{
type => '!',
linkage => \$Texi2HTML::Config::IDX_SUMMARY,
verbose => 'obsolete, use "-idx-sum" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {def_table} =
{
type => '!',
linkage => \$Texi2HTML::Config::DEF_TABLE,
verbose => 'obsolete, use "-def-table" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {short_ext} =
{
type => '!',
linkage => \$Texi2HTML::Config::SHORTEXTN,
verbose => 'obsolete, use "-short-ext" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {sec_nav} =
{
type => '!',
linkage => sub {Texi2HTML::Config::set_conf('headers', $_[1]);},
verbose => 'obsolete, use "-headers" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {'sec-nav'} =
{
type => '!',
linkage => sub {Texi2HTML::Config::set_conf('headers', $_[1]);},
verbose => 'obsolete, use "--header" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {top_file} =
{
type => '=s',
linkage => \$Texi2HTML::Config::TOP_FILE,
verbose => 'obsolete, use "-top-file" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {toc_file} =
{
type => '=s',
linkage => \$Texi2HTML::Config::TOC_FILE,
verbose => 'obsolete, use "-toc-file" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {glossary} =
{
type => '!',
linkage => \$Texi2HTML::Config::USE_GLOSSARY,
verbose => "this does nothing",
noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {check} =
{
type => '!',
linkage => sub {exit 0;},
verbose => "exit without doing anything",
noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {dump_texi} =
{
type => '!',
linkage => \$Texi2HTML::Config::DUMP_TEXI,
verbose => 'obsolete, use "-dump-texi" instead',
noHelp => 1
};
$T2H_OBSOLETE_OPTIONS -> {frameset_doctype} =
{
type => '=s',
linkage => \$Texi2HTML::Config::FRAMESET_DOCTYPE,
verbose => 'obsolete, use "-frameset-doctype" instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {'no-section_navigation'} =
{
type => '!',
linkage => sub {Texi2HTML::Config::set_conf('headers', 0);},
verbose => 'obsolete, use -nosec_nav',
noHelp => 2,
};
my $use_acc; # not used
$T2H_OBSOLETE_OPTIONS -> {use_acc} =
{
type => '!',
linkage => \$use_acc,
verbose => 'obsolete, set to true unconditionnaly',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {expandinfo} =
{
type => '!',
linkage => sub {push @Texi2HTML::Config::EXPAND, 'info';},
verbose => 'obsolete, use "--ifinfo" instead',
noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {expandtex} =
{
type => '!',
linkage => sub {push @Texi2HTML::Config::EXPAND, 'tex';},
verbose => 'obsolete, use "--iftex" instead',
noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {split_node} =
{
type => '!',
linkage => sub{$Texi2HTML::Config::SPLIT = 'section';},
verbose => 'obsolete, use "-split section" instead',
noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {split_chapter} =
{
type => '!',
linkage => sub{$Texi2HTML::Config::SPLIT = 'chapter';},
verbose => 'obsolete, use "-split chapter" instead',
noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {no_verbose} =
{
type => '!',
linkage => sub {$Texi2HTML::Config::VERBOSE = 0;},
verbose => 'obsolete, use -noverbose instead',
noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {output_file} =
{
type => '=s',
linkage => sub {$Texi2HTML::Config::OUT = $_[1]; $Texi2HTML::Config::SPLIT = '';},
verbose => 'obsolete, use --out-file instead',
noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {section_navigation} =
{
type => '!',
linkage => sub {Texi2HTML::Config::set_conf('headers', $_[1]);},
verbose => 'obsolete, use --sec-nav instead',
noHelp => 2,
};
# read initialzation from $sysconfdir/texi2htmlrc or $HOME/.texi2htmlrc
# (this is obsolete). Obsoleted in 1.68 (March 20 2004).
my @rc_files = ();
push @rc_files, "$sysconfdir/texi2htmlrc" if defined($sysconfdir);
push @rc_files, "$ENV{'HOME'}/.texi2htmlrc" if (defined($ENV{'HOME'}));
foreach my $i (@rc_files)
{
if (-e $i and -r $i)
{
print STDERR "# reading initialization file from $i\n"
if ($T2H_VERBOSE);
print STDERR "Reading config from $i is obsolete, use texi2html/$conf_file_name instead\n";
Texi2HTML::Config::load($i);
}
}
# read initialization files
foreach my $file (locate_init_file($conf_file_name, 1))
{
print STDERR "# reading initialization file from $file\n" if ($T2H_VERBOSE);
Texi2HTML::Config::load($file);
}
#+++############################################################################
# #
# parse command-line options
# #
#---############################################################################
# options known by makeinfo (+version, help and if*)
my @makeinfo_options = ('error-limit', 'document-language',
'force', 'help', 'no-validate', 'no-warn', 'verbose', 'docbook', 'html',
'xml', 'plaintext', 'macro-expand', 'headers', 'no-split',
'number-sections', 'output', 'disable-encoding', 'enable-encoding',
'fill-column', 'footnote-style', 'paragraph-indent', 'split-size',
'css-include', 'css-ref', 'internal-links', 'transliterate-file-names',
'output-indent', 'number-footnotes', 'D', 'I', 'P', 'U');
# always used, even though they are not in makeinfo in C.
# dump-texi', 'debug', 'test' are for debugging.
# split is in makeinfo in C, as --no-split.
# 'conf-dir', 'init-file' options have to be taken into account for proper
# functionning.
my @basic_options = ('dump-texi', 'debug', 'test', 'conf-dir', 'init-file',
'split', 'program');
# --command=CMD insert CMD in copy of input file
my $makeinfo_help =
sprintf(__("Usage: %s [OPTION]... TEXINFO-FILE...\n"), $real_command_name)
."\n".
__("Translate Texinfo source documentation to various other formats, by default
Info files suitable for reading online with Emacs or standalone GNU Info.\n")
."\n";
$makeinfo_help .= sprintf(__("General options:
--error-limit=NUM quit after NUM errors (default %d).
--document-language=STR locale to use in translating Texinfo keywords
for the output document (default C).
--force preserve output even if errors.
--help display this help and exit.
--no-validate suppress node cross-reference validation.
--no-warn suppress warnings (but not errors).
-v, --verbose explain what is being done.
--version display version information and exit.\n"), $Texi2HTML::Config::ERROR_LIMIT)
."\n";
$makeinfo_help .= __("Output format selection (default is to produce Info):
--docbook output Docbook XML rather than Info.
--html output HTML rather than Info.
--xml output Texinfo XML rather than Info.
--plaintext output plain text rather than Info.\n")
."\n";
$makeinfo_help .= __("General output options:
-E, --macro-expand=FILE output macro-expanded source to FILE,
ignoring any \@setfilename.
--no-headers suppress node separators, Node: lines, and menus
from Info output (thus producing plain text)
or from HTML (thus producing shorter output);
also, write to standard output by default.
--no-split suppress the splitting of Info or HTML output,
generate only one output file.
--number-sections output chapter and sectioning numbers.
-o, --output=FILE output to FILE (or directory if split HTML).\n")
."\n";
$makeinfo_help .= sprintf(__("Options for Info and plain text:
--disable-encoding do not output accented and special characters
in Info output based on \@documentencoding.
--enable-encoding override --disable-encoding (default).
--fill-column=NUM break Info lines at NUM characters (default %d).
--footnote-style=STYLE output footnotes in Info according to STYLE:
`separate' to put them in their own node;
`end' to put them at the end of the node, in
which they are defined (this is the default).
--paragraph-indent=VAL indent Info paragraphs by VAL spaces (default %d).
If VAL is `none', do not indent; if VAL is
`asis', preserve existing indentation.
--split-size=NUM split Info files at size NUM (default %d).\n"),
$Texi2HTML::Config::FILLCOLUMN, $Texi2HTML::Config::PARAGRAPHINDENT, $Texi2HTML::Config::SPLIT_SIZE)
."\n";
$makeinfo_help .= __("Options for HTML:
--css-include=FILE include FILE in HTML <style> output;
read stdin if FILE is -.
--css-ref=URL generate reference to a CSS file.
--internal-links=FILE produce list of internal links in FILE.
--transliterate-file-names
produce file names in ASCII transliteration.\n")
."\n";
# This is ignored, so remove it from help
#Options for XML and Docbook:
# --output-indent=VAL indent XML elements by VAL spaces (default 2).
# If VAL is 0, ignorable whitespace is dropped.
#
$makeinfo_help .= __("Input file options:
--commands-in-node-names allow \@ commands in node names.
-D VAR define the variable VAR, as with \@set.
-I DIR append DIR to the \@include search path.
-P DIR prepend DIR to the \@include search path.
-U VAR undefine the variable VAR, as with \@clear.\n")
."\n";
$makeinfo_help .= __("Conditional processing in input:
--ifdocbook process \@ifdocbook and \@docbook even if
not generating Docbook.
--ifhtml process \@ifhtml and \@html even if not generating HTML.
--ifinfo process \@ifinfo even if not generating Info.
--ifplaintext process \@ifplaintext even if not generating plain text.
--iftex process \@iftex and \@tex; implies --no-split.
--ifxml process \@ifxml and \@xml.
--no-ifdocbook do not process \@ifdocbook and \@docbook text.
--no-ifhtml do not process \@ifhtml and \@html text.
--no-ifinfo do not process \@ifinfo text.
--no-ifplaintext do not process \@ifplaintext text.
--no-iftex do not process \@iftex and \@tex text.
--no-ifxml do not process \@ifxml and \@xml text.
Also, for the --no-ifFORMAT options, do process \@ifnotFORMAT text.\n")
."\n";
$makeinfo_help .= __(" The defaults for the \@if... conditionals depend on the output format:
if generating HTML, --ifhtml is on and the others are off;
if generating Info, --ifinfo is on and the others are off;
if generating plain text, --ifplaintext is on and the others are off;
if generating XML, --ifxml is on and the others are off.\n")
."\n";
$makeinfo_help .= __("Examples:
makeinfo foo.texi write Info to foo's \@setfilename
makeinfo --html foo.texi write HTML to \@setfilename
makeinfo --xml foo.texi write Texinfo XML to \@setfilename
makeinfo --docbook foo.texi write DocBook XML to \@setfilename
makeinfo --no-headers foo.texi write plain text to standard output
makeinfo --html --no-headers foo.texi write html without node lines, menus
makeinfo --number-sections foo.texi write Info with numbered sections
makeinfo --no-split foo.texi write one Info file however big\n")
."\n";
$makeinfo_help .= __("Email bug reports to bug-texinfo\@gnu.org,
general questions and discussion to help-texinfo\@gnu.org.
Texinfo home page: http://www.gnu.org/software/texinfo/") ."\n";
# parsing like texi2html:
my $T2H_USAGE_TEXT = <<EOT;
Usage: texi2html [OPTIONS] TEXINFO-FILE
Translates Texinfo source documentation to HTML.
EOT
my $options = new Getopt::MySimple;
$T2H_OPTIONS -> {'help'} = 0;
$T2H_OPTIONS -> {'help|h'} =
{
type => ':i',
default => '',
linkage => sub {$options->helpOptions($_[1]);
print "\nSend bugs and suggestions to <texi2html-bug\@nongnu.org>\n";
exit (0);},
verbose => "print help and exit"
};
# this avoids getOptions defining twice 'help' and 'version'.
$T2H_OBSOLETE_OPTIONS->{'help'} = 0;
$T2H_OBSOLETE_OPTIONS->{'version'} = 0;
$T2H_OBSOLETE_OPTIONS->{'verbose'} = 0;
if ($real_command_name eq 'texi2html')
{
# some older version of GetOpt::Long don't have
# Getopt::Long::Configure("pass_through")
eval {Getopt::Long::Configure("pass_through");};
my $Configure_failed = $@ && <<EOT;
**WARNING: Parsing of obsolete command-line options could have failed.
Consider to use only documented command-line options (run
'texi2html --help 2' for a complete list) or upgrade to perl
version 5.005 or higher.
EOT
if (! $options->getOptions($T2H_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n"))
{
print STDERR "$Configure_failed" if $Configure_failed;
die $T2H_FAILURE_TEXT;
}
if (@ARGV > 1)
{
eval {Getopt::Long::Configure("no_pass_through");};
if (! $options->getOptions($T2H_OBSOLETE_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n"))
{
print STDERR "$Configure_failed" if $Configure_failed;
die $T2H_FAILURE_TEXT;
}
}
}
else
{
# changes how command lines are parsed, for example -init file.init
# doesn't work anymore.
Getopt::Long::Configure("gnu_getopt");
my $opts;
my @types;
foreach my $key (keys(%$T2H_OPTIONS))
{
next unless ($T2H_OPTIONS->{$key});
my $primary = $key;
$primary =~ s/\|.*//;
next if ($primary eq 'version' or $primary eq 'help');
next if ($real_command_name eq 'makeinfo' and ! grep {$primary eq $_} (@makeinfo_options, @basic_options) and $primary !~ /^if/);
$opts->{$primary} = $T2H_OPTIONS->{$key}->{'linkage'} if defined($T2H_OPTIONS->{$key}->{'linkage'});
push @types, "$key$T2H_OPTIONS->{$key}->{'type'}";
}
$opts->{'version'} = sub {
print "$real_command_name (GNU texinfo) $THISVERSION\n\n";
printf __("Copyright (C) %s Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.\n"), '2008';
exit 0;
};
$opts->{'help'} = sub {
print "$makeinfo_help";
exit 0;
};
push @types, ('version|V', 'help|h');
#foreach my $key (sort(keys(%$opts)))
#{
# #print STDERR "$key, $opts->{$key}\n";
# print "$key\n";
#}
#print STDERR "@types\n";
my $result_options = Getopt::Long::GetOptions ($opts, @types);
}
if (! $Texi2HTML::THISDOC{'format_from_command_line'} and defined($ENV{'TEXINFO_OUTPUT_FORMAT'}) and $ENV{'TEXINFO_OUTPUT_FORMAT'} ne '')
{
if (! Texi2HTML::Config::t2h_default_load_format($ENV{'TEXINFO_OUTPUT_FORMAT'}, 0))
{
warn sprintf(__("%s: Ignoring unrecognized TEXINFO_OUTPUT_FORMAT value `%s'.\n"), $real_command_name, $ENV{'TEXINFO_OUTPUT_FORMAT'});
}
}
# $T2H_DEBUG and $T2H_VERBOSE are shorthands
$T2H_DEBUG = $Texi2HTML::Config::DEBUG;
$T2H_VERBOSE = $Texi2HTML::Config::VERBOSE;
#
# read texi2html extensions (if any)
# It is obsolete (obsoleted by -init-file). we keep it for backward
# compatibility.
my $extensions = 'texi2html.ext'; # extensions in working directory
if (-f $extensions)
{
print STDERR "# reading extensions from $extensions\n" if $T2H_VERBOSE;
require($extensions);
}
my $progdir;
($progdir = $0) =~ s/[^\/]+$//;
if ($progdir && ($progdir ne './'))
{
$extensions = "${progdir}texi2html.ext"; # extensions in texi2html directory
if (-f $extensions)
{
print STDERR "# reading extensions from $extensions\n" if $T2H_VERBOSE;
require($extensions);
}
}
#+++############################################################################
# #
# evaluation of cmd line options
# #
#---############################################################################
# set the default 'args' entry to normal for each style hash (and each command
# within)
my $name_index = -1;
my @hash_names = ('style_map', 'style_map_pre', 'style_map_texi', 'simple_format_style_map_texi');
foreach my $hash (\%Texi2HTML::Config::style_map, \%Texi2HTML::Config::style_map_pre, \%Texi2HTML::Config::style_map_texi, \%Texi2HTML::Config::simple_format_style_map_texi)
{
$name_index++;
my $name = $hash_names[$name_index]; # name associated with hash ref
foreach my $style (keys(%{$hash}))
{
next unless (ref($hash->{$style}) eq 'HASH');
$hash->{$style}->{'args'} = ['normal'] if (!exists($hash->{$style}->{'args'}));
die "Bug: args not defined, but existing, for $style in $name" if (!defined($hash->{$style}->{'args'}));
#print STDERR "DEFAULT($name, $hash) add normal as arg for $style ($hash->{$style}), $hash->{$style}->{'args'}\n";
}
}
# setup hashes used for html manual cross references in texinfo
my %cross_ref_texi_map = %Texi2HTML::Config::default_texi_map;
my %cross_transliterate_texi_map = %cross_ref_texi_map;
my %cross_ref_simple_map_texi = %Texi2HTML::Config::default_simple_map;
$cross_ref_simple_map_texi{"*"} = ' ';
my %cross_ref_style_map_texi = ();
my %cross_transliterate_style_map_texi = ();
Texi2HTML::Config::t2h_default_copy_style_map(\%Texi2HTML::Config::default_style_map_texi, \%cross_ref_style_map_texi);
Texi2HTML::Config::t2h_default_copy_style_map(\%Texi2HTML::Config::default_style_map_texi, \%cross_transliterate_style_map_texi);
# Fill in the %style_type hash, a hash associating style @-comand with
# the type, 'accent', real 'style', 'simple_style', or 'special'.
# 'simple_style' styles don't extend accross lines.
my %style_type = ();
my @simple_styles = ('ctrl', 'w', 'url','uref','indicateurl','email',
'titlefont');
foreach my $style (keys(%Texi2HTML::Config::style_map))
{
if (exists $Texi2HTML::Config::command_type{$style})
{
$style_type{$style} = $Texi2HTML::Config::command_type{$style};
next;
}
if (ref($Texi2HTML::Config::style_map{$style} eq 'HASH'))
{
$style_type{$style} = $Texi2HTML::Config::style_map{$style}->{'type'}
if (exists($Texi2HTML::Config::style_map{$style}->{'type'}));
}
else
{
$style_type{$style} = 'simple_style' if (grep {$_ eq $style} @simple_styles);
}
$style_type{$style} = 'style' unless (defined($style_type{$style}));
}
foreach my $accent (keys(%Texi2HTML::Config::unicode_accents), 'tieaccent', 'dotless')
{
if (exists $Texi2HTML::Config::command_type{$accent})
{
$style_type{$accent} = $Texi2HTML::Config::command_type{$accent};
next;
}
$style_type{$accent} = 'accent';
}
foreach my $special ('footnote', 'ref', 'xref', 'pxref', 'inforef', 'anchor', 'image', 'hyphenation')
{
if (exists $Texi2HTML::Config::command_type{$special})
{
$style_type{$special} = $Texi2HTML::Config::command_type{$special};
next;
}
$style_type{$special} = 'special';
}
# retro compatibility for $Texi2HTML::Config::EXPAND
push (@Texi2HTML::Config::EXPAND, $Texi2HTML::Config::EXPAND) if ($Texi2HTML::Config::EXPAND);
push (@Texi2HTML::Config::EXPAND, @Texi2HTML::Config::T2H_FORMAT_EXPAND);
# correct %Texi2HTML::Config::texi_formats_map based on command line and init
# variables
$Texi2HTML::Config::texi_formats_map{'menu'} = 'normal' if ($Texi2HTML::Config::SHOW_MENU);
foreach my $expanded (@Texi2HTML::Config::EXPAND)
{
$Texi2HTML::Config::texi_formats_map{"if$expanded"} = 1 if (exists($Texi2HTML::Config::texi_formats_map{"if$expanded"}));
next unless (exists($Texi2HTML::Config::texi_formats_map{$expanded}));
if (grep {$_ eq $expanded} @raw_regions)
{
$Texi2HTML::Config::texi_formats_map{$expanded} = 'raw';
}
else
{
$Texi2HTML::Config::texi_formats_map{$expanded} = 'normal';
}
}
# don't set set_no_line_macro for raw EXPAND formats
foreach my $key (keys(%Texi2HTML::Config::texi_formats_map))
{
unless ($Texi2HTML::Config::texi_formats_map{$key} eq 'raw')
{
set_no_line_macro($key, 1);
set_no_line_macro("end $key", 1);
}
}
# the remaining (not in @EXPAND) raw formats are set as 'raw' such that
# they are propagated to formatting functions, but
# they don't start paragraphs or preformatted.
foreach my $raw (@raw_regions)
{
if (!defined($Texi2HTML::Config::texi_formats_map{$raw}))
{
$Texi2HTML::Config::texi_formats_map{$raw} = 'raw';
$Texi2HTML::Config::format_in_paragraph{$raw} = 1;
set_no_line_macro($raw, 1);
set_no_line_macro("end $raw", 1);
}
}
# handle ifnot regions
foreach my $region (keys (%Texi2HTML::Config::texi_formats_map))
{
next if ($region =~ /^ifnot/);
if ($Texi2HTML::Config::texi_formats_map{$region} and $region =~ /^if(\w+)$/)
{
$Texi2HTML::Config::texi_formats_map{"ifnot$1"} = 0;
}
}
if ($T2H_VERBOSE)
{
print STDERR "# Expanded: ";
foreach my $text_macro (keys(%Texi2HTML::Config::texi_formats_map))
{
print STDERR "$text_macro " if ($Texi2HTML::Config::texi_formats_map{$text_macro});
}
print STDERR "\n";
}
# This is kept in that file although it is html formatting as it seems to
# be rather obsolete
$Texi2HTML::Config::INVISIBLE_MARK = '<img src="invisible.xbm" alt="">' if $Texi2HTML::Config::INVISIBLE_MARK eq 'xbm';
$T2H_DEBUG |= $DEBUG_TEXI if ($Texi2HTML::Config::DUMP_TEXI);
# no user provided USE_UNICODE, use configure provided
if (!defined($Texi2HTML::Config::USE_UNICODE))
{
$Texi2HTML::Config::USE_UNICODE = 'unknown';
}
# no user provided nor configured, run time test
if ($Texi2HTML::Config::USE_UNICODE eq 'unknown' or $Texi2HTML::Config::USE_UNICODE eq '@' .'USE_UNICODE@')
{
eval {
require Encode;
require Unicode::Normalize;
Encode->import('encode');
};
if ($@)
{
$Texi2HTML::Config::USE_UNICODE = 0
}
else
{
$Texi2HTML::Config::USE_UNICODE = 1;
}
}
if ($Texi2HTML::Config::USE_UNICODE)
{
require Encode;
require Unicode::Normalize;
Encode->import('encode');
# use EastAsianWidth if USE_UNICODE is set
if ($0 =~ /\.pl$/)
{ # use in-source EastAsianWidth when testing
unshift @INC, "$T2H_HOME/lib/Unicode-EastAsianWidth/lib";
}
elsif ($ENV{T2H_SOURCE_EASTASIANWIDTH})
{
unshift @INC, $ENV{T2H_SOURCE_EASTASIANWIDTH};
}
elsif ('no' ne 'yes')
{
unshift @INC, "$pkgdatadir/lib/Unicode-EastAsianWidth/lib";
}
else
{
eval {
require Unicode::EastAsianWidth;
};
if ($@)
{
unshift @INC, "$pkgdatadir/lib/Unicode-EastAsianWidth/lib";
}
}
# unicode east asian character width tables.
require Unicode::EastAsianWidth;
}
# no user provided USE_UNIDECODE, use configure provided
if (!defined($Texi2HTML::Config::USE_UNIDECODE))
{
$Texi2HTML::Config::USE_UNIDECODE = 'unknown';
}
# no user provided nor configured, run time test
if ($Texi2HTML::Config::USE_UNIDECODE eq 'unknown' or $Texi2HTML::Config::USE_UNIDECODE eq '@' .'USE_UNIDECODE@')
{
$Texi2HTML::Config::USE_UNIDECODE = 1;
eval {
require Text::Unidecode;
Text::Unidecode->import('unidecode');
};
$Texi2HTML::Config::USE_UNIDECODE = 0 if ($@);
}
if ($Texi2HTML::Config::USE_UNIDECODE)
{
require Text::Unidecode;
Text::Unidecode->import('unidecode');
}
print STDERR "# USE_UNICODE $Texi2HTML::Config::USE_UNICODE, USE_UNIDECODE $Texi2HTML::Config::USE_UNIDECODE \n"
if ($T2H_VERBOSE);
# Construct hashes used for cross references generation
# Do it now as the user may have changed $USE_UNICODE
foreach my $key (keys(%Texi2HTML::Config::unicode_map))
{
if ($Texi2HTML::Config::unicode_map{$key} ne '')
{
if ($Texi2HTML::Config::USE_UNICODE)
{
my $char_nr = hex($Texi2HTML::Config::unicode_map{$key});
#$cross_ref_texi_map{$key} = chr(hex($Texi2HTML::Config::unicode_map{$key}));
#$cross_ref_texi_map{$key} = pack("U0U*",hex($Texi2HTML::Config::unicode_map{$key}));
if ($char_nr > 126 and $char_nr < 255)
{
$cross_ref_texi_map{$key} = Encode::decode("iso-8859-1", chr($char_nr));
}
else
{
$cross_ref_texi_map{$key} = chr($char_nr);
}
# cross_transliterate_texi_map is only used if
# USE_UNIDECODE is unset and TRANSLITERATE_FILE_NAMES is set
if (exists ($Texi2HTML::Config::transliterate_map{$Texi2HTML::Config::unicode_map{$key}}))
{
$cross_transliterate_texi_map{$key} = $Texi2HTML::Config::transliterate_map{$Texi2HTML::Config::unicode_map{$key}};
}
else
{
$cross_transliterate_texi_map{$key} = $cross_ref_texi_map{$key};
}
}
else
{
$cross_ref_texi_map{$key} = '_' . lc($Texi2HTML::Config::unicode_map{$key});
# cross_transliterate_texi_map is used if TRANSLITERATE_FILE_NAMES is set
if (exists ($Texi2HTML::Config::transliterate_map{$Texi2HTML::Config::unicode_map{$key}}))
{
$cross_transliterate_texi_map{$key} = $Texi2HTML::Config::transliterate_map{$Texi2HTML::Config::unicode_map{$key}};
}
else
{
$cross_transliterate_texi_map{$key} = '_' . lc($Texi2HTML::Config::unicode_map{$key});
}
}
}
}
#if ($Texi2HTML::Config::USE_UNICODE and $Texi2HTML::Config::TRANSLITERATE_FILE_NAMES
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES and (
($Texi2HTML::Config::USE_UNICODE and ! $Texi2HTML::Config::USE_UNIDECODE)
or !$Texi2HTML::Config::USE_UNICODE))
{
foreach my $key (keys (%Texi2HTML::Config::transliterate_accent_map))
{
$Texi2HTML::Config::transliterate_map{$key} = $Texi2HTML::Config::transliterate_accent_map{$key};
}
}
foreach my $key (keys(%cross_ref_style_map_texi))
{
if ($style_type{$key} eq 'accent'
and (ref($cross_ref_style_map_texi{$key}) eq 'HASH'))
{
if ($Texi2HTML::Config::USE_UNICODE)
{
$cross_ref_style_map_texi{$key}->{'function'} = \&Texi2HTML::Config::t2h_utf8_accent;
}
else
{
$cross_ref_style_map_texi{$key}->{'function'} = \&Texi2HTML::Config::t2h_nounicode_cross_manual_accent;
}
# this is only used if TRANSLITERATE_FILE_NAMES is set and USE_UNICODE
# or USE_UNIDECODE is not set
$cross_transliterate_style_map_texi{$key}->{'function'} = \&Texi2HTML::Config::t2h_transliterate_cross_manual_accent;
}
}
if ($Texi2HTML::Config::L2H and defined($Texi2HTML::Config::OUTPUT_FORMAT) and $Texi2HTML::Config::OUTPUT_FORMAT eq 'html')
{
push @Texi2HTML::Config::command_handler_init, \&Texi2HTML::LaTeX2HTML::init;
push @Texi2HTML::Config::command_handler_process, \&Texi2HTML::LaTeX2HTML::latex2html;
# do it here once to have something ready for special regions
push @Texi2HTML::Config::command_handler_process, \&Texi2HTML::LaTeX2HTML::init_from_html;
# do it here once more in case the file was modified (see mediawiki.init)
push @Texi2HTML::Config::command_handler_output, \&Texi2HTML::LaTeX2HTML::init_from_html;
push @Texi2HTML::Config::command_handler_finish, \&Texi2HTML::LaTeX2HTML::finish;
$Texi2HTML::Config::command_handler{'math'} =
{ 'init' => \&Texi2HTML::LaTeX2HTML::to_latex,
'expand' => \&Texi2HTML::LaTeX2HTML::do_tex
};
$Texi2HTML::Config::command_handler{'tex'} =
{ 'init' => \&Texi2HTML::LaTeX2HTML::to_latex,
'expand' => \&Texi2HTML::LaTeX2HTML::do_tex
};
}
if ($Texi2HTML::Config::ENABLE_ENCODING)
{
if ($Texi2HTML::Config::USE_UNICODE)
{
Texi2HTML::Config::t2h_enable_encoding_load();
}
else
{ # FIXME: only warn if ENABLE_ENCODING is set on the command line
#warn "** --enable-encoding requires utf-8 support\n";
}
}
# for all files. This won't be overriden by @documentencoding, this is not
# what is done in general.
Texi2HTML::Config::set_conf('IN_ENCODING', $Texi2HTML::Config::IN_ENCODING);
Texi2HTML::Config::set_conf('DOCUMENT_ENCODING', $Texi2HTML::Config::DOCUMENT_ENCODING);
# Backward compatibility for deprecated $Texi2HTML::Config::ENCODING
$Texi2HTML::Config::ENCODING_NAME = $Texi2HTML::Config::ENCODING
if (!defined($Texi2HTML::Config::ENCODING_NAME) and defined($Texi2HTML::Config::ENCODING));
# APA: There's got to be a better way:
if ($Texi2HTML::Config::TEST)
{
# to generate files similar to reference ones to be able to check for
# real changes we use these dummy values if -test is given
$THISPROG = 'texi2html';
setlocale( LC_ALL, "C" );
}
$Texi2HTML::GLOBAL{'debug_l2h'} = 1 if ($T2H_DEBUG & $DEBUG_L2H);
# parse texinfo cnf file for external manual specifications. This was
# discussed on texinfo list but not in makeinfo for now.
my @texinfo_htmlxref_files = locate_init_file ($texinfo_htmlxref, 1, \@texinfo_config_dirs);
foreach my $file (@texinfo_htmlxref_files)
{
print STDERR "html refs config file: $file\n" if ($T2H_DEBUG);
unless (open (HTMLXREF, $file))
{
document_warn("Cannot open html refs config file ${file}: $!");
next;
}
my $line_nr = 0;
my %variables;
while (my $hline = <HTMLXREF>)
{
my $line = $hline;
$line_nr++;
next if $hline =~ /^\s*#/;
#$hline =~ s/[#]\s.*//;
$hline =~ s/^\s*//;
next if $hline =~ /^\s*$/;
chomp ($hline);
if ($hline =~ s/^(\w+)\s*=\s*//)
{
# handle variables
my $var = $1;
my $re = join '|', map { quotemeta $_ } keys %variables;
$hline =~ s/\$\{($re)\}/defined $variables{$1} ? $variables{$1} : "\${$1}"/ge;
$variables{$var} = $hline;
next;
}
my @htmlxref = split /\s+/, $hline;
my $manual = shift @htmlxref;
my $split_or_mono = shift @htmlxref;
#print STDERR "$split_or_mono $Texi2HTML::Config::htmlxref_entries{$split_or_mono} $line_nr\n";
if (!defined($split_or_mono))
{
file_line_warn(__("Missing type"), $file, $line_nr);
next;
}
elsif (!defined($Texi2HTML::Config::htmlxref_entries{$split_or_mono}))
{
file_line_warn(sprintf(__("Unrecognized type: %s"), $split_or_mono), $file, $line_nr);
next;
}
my $href = shift @htmlxref;
next if (exists($Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split_or_mono}) and exists($Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split_or_mono}->{'href'}));
if (defined($href))
{
my $re = join '|', map { quotemeta $_ } keys %variables;
$href =~ s/\$\{($re)\}/defined $variables{$1} ? $variables{$1} : "\${$1}"/ge;
$href =~ s/\/*$// if ($split_or_mono ne 'mono');
$Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split_or_mono}->{'href'} = $href;
}
else
{
$Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split_or_mono} = {};
}
}
close (HTMLXREF);
}
if ($T2H_DEBUG)
{
foreach my $manual (keys(%{$Texi2HTML::GLOBAL{'htmlxref'}}))
{
foreach my $split (keys(%Texi2HTML::Config::htmlxref_entries))
{
my $href = 'NO';
next unless (exists($Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split}));
$href = $Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split}->{'href'} if
exists($Texi2HTML::GLOBAL{'htmlxref'}->{$manual}->{$split}->{'href'});
print STDERR "$manual: $split, href: $href\n";
}
}
}
# resulting files splitting
if ($Texi2HTML::Config::SPLIT =~ /section/i)
{
$Texi2HTML::Config::SPLIT = 'section';
}
elsif ($Texi2HTML::Config::SPLIT =~ /node/i)
{
$Texi2HTML::Config::SPLIT = 'node';
}
elsif ($Texi2HTML::Config::SPLIT =~ /chapter/i)
{
$Texi2HTML::Config::SPLIT = 'chapter';
}
else
{
$Texi2HTML::Config::SPLIT = '';
}
$Texi2HTML::Config::SPLIT_INDEX = 0 unless $Texi2HTML::Config::SPLIT;
$Texi2HTML::Config::NODE_FILENAMES = 1 if ((!defined($Texi2HTML::Config::NODE_FILENAMES) and $Texi2HTML::Config::SPLIT eq 'node') or $Texi2HTML::Config::NODE_FILES);
# Something like backward compatibility. This would make sense to keep
# it ad-infinitum since the meaning of --out and --subdir are different.
if ($Texi2HTML::Config::SPLIT and defined($Texi2HTML::Config::SUBDIR)
and ($Texi2HTML::Config::SUBDIR ne '') and
(!defined($Texi2HTML::Config::OUT) or ($Texi2HTML::Config::OUT eq '')))
{
$Texi2HTML::Config::OUT = $Texi2HTML::Config::SUBDIR;
}
die "output to STDOUT and split or frames incompatible\n"
if (($Texi2HTML::Config::SPLIT or $Texi2HTML::Config::FRAMES) and defined($Texi2HTML::Config::OUT) and $Texi2HTML::Config::OUT eq '-');
if ($Texi2HTML::Config::SPLIT and defined($Texi2HTML::Config::OUT) and ($Texi2HTML::Config::OUT eq '.'))
{# This is to avoid trouble with latex2html
$Texi2HTML::Config::OUT = '';
}
@Texi2HTML::Config::INCLUDE_DIRS = split(/$quoted_path_separator/,join($path_separator,@Texi2HTML::Config::INCLUDE_DIRS));
@Texi2HTML::Config::PREPEND_DIRS = split(/$quoted_path_separator/,join($path_separator,@Texi2HTML::Config::PREPEND_DIRS));
my @include_dirs_orig = @Texi2HTML::Config::INCLUDE_DIRS;
@Texi2HTML::Config::CONF_DIRS = split(/$quoted_path_separator/,join($path_separator,@Texi2HTML::Config::CONF_DIRS));
# extension
$Texi2HTML::GLOBAL{'extension'} = $Texi2HTML::Config::EXTENSION;
if ($Texi2HTML::Config::SHORTEXTN)
{
$Texi2HTML::GLOBAL{'extension'} = "htm";
}
my $global_pass; # track the phases of processing for debugging output purposes
#
# file name business
#
my @created_directories = ();
my $docu_dir; # directory of the document
my $docu_name; # basename of the document
my $docu_rdir; # directory for the output
my $docu_toc; # document's table of contents
my $docu_stoc; # document's short toc
my $docu_foot; # document's footnotes
my $docu_about; # about this document
my $docu_top; # document top
my $docu_doc; # document (or document top of split)
my $docu_frame; # main frame file
my $docu_toc_frame; # toc frame file
my $path_to_working_dir; # relative path leading to the working
# directory from the document directory
my $docu_doc_file;
my $docu_toc_file;
my $docu_stoc_file;
my $docu_foot_file;
my $docu_about_file;
my $docu_top_file;
my $docu_frame_file;
my $docu_toc_frame_file;
sub set_docu_names($$)
{
my $docu_base_name = shift;
my $file_nr = shift;
if ($docu_base_name =~ /(.*\/)/)
{
$docu_dir = $1;
chop($docu_dir);
$docu_name = $docu_base_name;
$docu_name =~ s/.*\///;
}
else
{
$docu_dir = '.';
$docu_name = $docu_base_name;
}
@Texi2HTML::Config::INCLUDE_DIRS = @include_dirs_orig;
my @prependended_include_directories = ('.');
push @prependended_include_directories, $Texi2HTML::THISDOC{'input_directory'} if ($Texi2HTML::THISDOC{'input_directory'} ne '.');
# as Karl said, adding the destination directory is confusing.
#push @prependended_include_directories, $docu_dir if ($docu_dir ne '.' and $docu_dir ne $Texi2HTML::THISDOC{'input_directory'});
unshift(@Texi2HTML::Config::INCLUDE_DIRS, @prependended_include_directories);
unshift(@Texi2HTML::Config::INCLUDE_DIRS, @Texi2HTML::Config::PREPEND_DIRS);
# AAAA
if ($Texi2HTML::Config::PREFIX and ($file_nr == 0))
{
$docu_name = $Texi2HTML::Config::PREFIX;
}
elsif ($docu_name eq '-')
{
$docu_name = $Texi2HTML::Config::STDIN_DOCU_NAME;
}
# subdir
$docu_rdir = '';
my $null_output;
if (defined($Texi2HTML::Config::OUT) and ($file_nr == 0) and $Texi2HTML::Config::null_device_file{$Texi2HTML::Config::OUT})
{ # this overrides the setting for this file.
$Texi2HTML::THISDOC{'SPLIT'} = '';
$Texi2HTML::THISDOC{'SPLIT_SIZE'} = undef;
$null_output = 1;
$path_to_working_dir = $docu_rdir;
}
if (!$null_output)
{
if (Texi2HTML::Config::get_conf('SPLIT'))
{
if (defined($Texi2HTML::Config::OUT) and ($file_nr == 0))
{
$docu_rdir = $Texi2HTML::Config::OUT;
}
else
{
$docu_rdir = $docu_name;
}
if ($docu_rdir ne '')
{
$docu_rdir =~ s|/*$||;
$docu_rdir .= '/';
}
}
else
{
my $out_file;
# AAAA
# even if the out file is not set by OUT, in case it is not the first
# file, the out directory is still used. This is only used to determine
# the directory, the out file itself is set below
if (defined($Texi2HTML::Config::OUT) and $Texi2HTML::Config::OUT ne '')
{
$out_file = $Texi2HTML::Config::OUT;
}
else
{
$out_file = $docu_name;
}
if ($out_file =~ m|(.*)/|)
{# there is a leading directories
$docu_rdir = "$1/";
}
}
if ($docu_rdir ne '')
{
unless (-d $docu_rdir)
{
if ( mkdir($docu_rdir, oct(755)))
{
print STDERR "# created directory $docu_rdir\n" if ($T2H_VERBOSE);
push @created_directories, $docu_rdir;
}
else
{
document_error (sprintf(__("Can't create directory `%s': %s"), $docu_rdir, $!), 1);
}
}
print STDERR "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE);
}
else
{
print STDERR "# putting result files into current directory \n" if ($T2H_VERBOSE);
}
# We don't use "./" as $docu_rdir when $docu_rdir is the current directory
# because it is problematic for latex2html. To test writability with -w,
# however we need a real directory.
my $result_rdir = $docu_rdir;
$result_rdir = "." if ($docu_rdir eq '');
unless (-w $result_rdir)
{
$docu_rdir = 'current directory' if ($docu_rdir eq '');
document_error ("$docu_rdir not writable", 1);
}
# relative path leading to the working directory from the document directory
$path_to_working_dir = $docu_rdir;
if ($docu_rdir ne '')
{
my $cwd = cwd;
my $docu_path = $docu_rdir;
$docu_path = $cwd . '/' . $docu_path unless ($docu_path =~ /^\//);
my @result = ();
# this code simplify the paths. The cwd is absolute, while in the
# document path there may be some .., a .. is removed with the
# previous path element, such that something like
# /cwd/directory/../somewhere/
# leads to
# /cwd/somewhere/
# with directory/.. removed
foreach my $element (split /\//, File::Spec->canonpath($docu_path))
{
if ($element eq '')
{
push @result, '';
}
elsif ($element eq '..')
{
if (@result and ($result[-1] eq ''))
{
print STDERR "Too much .. in absolute file name\n";
}
elsif (@result and ($result[-1] ne '..'))
{
pop @result;
}
else
{
push @result, $element;
}
}
else
{
push @result, $element;
}
}
$path_to_working_dir = File::Spec->abs2rel($cwd, join ('/', @result));
# this should not be needed given what canonpath does
$path_to_working_dir =~ s:/*$::;
$path_to_working_dir .= '/' unless($path_to_working_dir eq '');
}
}
my $docu_ext = $Texi2HTML::THISDOC{'extension'};
# out_dir is undocummented, should never be used, use destination_directory
$Texi2HTML::THISDOC{'out_dir'} = $docu_rdir;
$Texi2HTML::THISDOC{'destination_directory'} = $docu_rdir;
$Texi2HTML::THISDOC{'file_base_name'} = $docu_name;
$docu_doc = $docu_name . (defined($docu_ext) ? ".$docu_ext" : ""); # document's contents
if (Texi2HTML::Config::get_conf('SPLIT') and $Texi2HTML::Config::NODE_FILENAMES)
{
if (defined($Texi2HTML::Config::TOP_NODE_FILE))
{
$docu_doc = $Texi2HTML::Config::TOP_NODE_FILE;
if (defined($Texi2HTML::Config::NODE_FILE_EXTENSION) and $Texi2HTML::Config::NODE_FILE_EXTENSION ne '')
{
$docu_doc .= ".$Texi2HTML::Config::NODE_FILE_EXTENSION";
}
}
}
if (Texi2HTML::Config::get_conf('SPLIT'))
{
# AAAA
if (defined($Texi2HTML::Config::TOP_FILE) and ($Texi2HTML::Config::TOP_FILE ne '') and ($file_nr == 0))
{
$docu_top = $Texi2HTML::Config::TOP_FILE;
}
}
else
{
# AAAA
if (defined($Texi2HTML::Config::OUT) and ($file_nr == 0))
{
my $out_file = $Texi2HTML::Config::OUT;
if ($out_file eq '-')
{
$Texi2HTML::THISDOC{'SPLIT'} = '';
$Texi2HTML::THISDOC{'SPLIT_SIZE'} = undef;
}
$out_file =~ s|.*/|| unless ($null_output);
$docu_doc = $out_file if ($out_file !~ /^\s*$/);
}
}
if (defined $Texi2HTML::Config::element_file_name)
{
my $docu_doc_set = &$Texi2HTML::Config::element_file_name
(undef, 'doc', $docu_name);
$docu_doc = $docu_doc_set if (defined($docu_doc_set));
}
$docu_top = $docu_doc if (!defined($docu_top));
if (Texi2HTML::Config::get_conf('SPLIT') or !$Texi2HTML::Config::MONOLITHIC)
{
if (defined $Texi2HTML::Config::element_file_name)
{
$docu_toc = &$Texi2HTML::Config::element_file_name
(undef, 'toc', $docu_name);
$docu_stoc = &$Texi2HTML::Config::element_file_name
(undef, 'stoc', $docu_name);
$docu_foot = &$Texi2HTML::Config::element_file_name
(undef, 'foot', $docu_name);
$docu_about = &$Texi2HTML::Config::element_file_name
(undef, 'about', $docu_name);
# $docu_top may be overwritten later.
}
if (!defined($docu_toc))
{
my $default_toc = "${docu_name}_toc";
$default_toc .= ".$docu_ext" if (defined($docu_ext));
# AAAA
if (defined($Texi2HTML::Config::TOC_FILE) and ($Texi2HTML::Config::TOC_FILE ne '') and ($file_nr == 0))
{
$docu_toc = $Texi2HTML::Config::TOC_FILE;
}
else
{
$docu_toc = $default_toc;
}
}
if (!defined($docu_stoc))
{
$docu_stoc = "${docu_name}_ovr";
$docu_stoc .= ".$docu_ext" if (defined($docu_ext));
}
if (!defined($docu_foot))
{
$docu_foot = "${docu_name}_fot";
$docu_foot .= ".$docu_ext" if (defined($docu_ext));
}
if (!defined($docu_about))
{
$docu_about = "${docu_name}_abt";
$docu_about .= ".$docu_ext" if (defined($docu_ext));
}
}
else
{
$docu_toc = $docu_foot = $docu_stoc = $docu_about = $docu_doc;
}
# Note that file extension has already been added here.
if ($Texi2HTML::Config::FRAMES)
{
if (defined $Texi2HTML::Config::element_file_name)
{
$docu_frame = &$Texi2HTML::Config::element_file_name
(undef, 'frame', $docu_name);
$docu_toc_frame = &$Texi2HTML::Config::element_file_name
(undef, 'toc_frame', $docu_name);
}
}
if (!defined($docu_frame))
{
$docu_frame = "${docu_name}_frame";
$docu_frame .= ".$docu_ext" if (defined($docu_ext));
}
if (!defined($docu_toc_frame))
{
$docu_toc_frame = "${docu_name}_toc_frame";
$docu_toc_frame .= ".$docu_ext" if (defined($docu_ext));
}
if ($T2H_VERBOSE)
{
print STDERR "# Files and directories:\n";
print STDERR "# rdir($docu_rdir) path_to_working_dir($path_to_working_dir)\n";
print STDERR "# doc($docu_doc) top($docu_top) toc($docu_toc) stoc($docu_stoc)\n";
print STDERR "# foot($docu_foot) about($docu_about) frame($docu_toc) toc_frame($docu_toc_frame)\n";
}
$docu_doc_file = "$docu_rdir$docu_doc";
$docu_toc_file = "$docu_rdir$docu_toc";
$docu_stoc_file = "$docu_rdir$docu_stoc";
$docu_foot_file = "$docu_rdir$docu_foot";
$docu_about_file = "$docu_rdir$docu_about";
$docu_top_file = "$docu_rdir$docu_top";
$docu_frame_file = "$docu_rdir$docu_frame";
$docu_toc_frame_file = "$docu_rdir$docu_toc_frame";
# For use in init files
$Texi2HTML::THISDOC{'filename'}->{'top'} = $docu_top;
$Texi2HTML::THISDOC{'filename'}->{'foot'} = $docu_foot;
$Texi2HTML::THISDOC{'filename'}->{'stoc'} = $docu_stoc;
$Texi2HTML::THISDOC{'filename'}->{'about'} = $docu_about;
$Texi2HTML::THISDOC{'filename'}->{'toc'} = $docu_toc;
$Texi2HTML::THISDOC{'filename'}->{'toc_frame'} = $docu_toc_frame;
$Texi2HTML::THISDOC{'filename'}->{'frame'} = $docu_frame;
}
sub var_to_str($)
{
return 'UNDEF' if (!defined($_[0]));
return $_[0];
}
#
# Common initializations
#
sub texinfo_initialization($)
{
my $pass = shift;
# set the translations now. This means at the beginning of each pass.
# Do it silently, except during the last pass.
my $lang = Texi2HTML::Config::get_conf('documentlanguage');
my $silent_lang = 1 if ($pass != 2);
if (!set_document_language($lang, $silent_lang))
{
document_warn ("Translations for '$lang' not found. Using 'en'.") unless ($silent_lang);
set_document_language('en', $silent_lang);
}
# All the initialization used the informations still there at the
# end of the previous pass.
# Now we reset everything, such that things are used when they happen.
# also reset the @set/@clear values.
%value = %value_initial;
foreach my $init_mac ('everyheading', 'everyfooting', 'evenheading',
'evenfooting', 'oddheading', 'oddfooting', 'headings',
'allowcodebreaks', 'frenchspacing', 'exampleindent',
'firstparagraphindent', 'paragraphindent', 'clickstyle',
'novalidate', 'documentlanguage')
{
Texi2HTML::Config::set_conf($init_mac, undef, 1);
}
}
#+++###########################################################################
# #
# Pass texi: read source, handle variable, ignored text, #
# #
#---###########################################################################
#my @lines = (); # whole document
#my @lines_numbers = (); # line number, originating file associated with
# whole document
my $macros = undef; # macros. reference on a hash
my %info_enclose = (); # macros defined with definfoenclose
my @floats = (); # floats list
my %floats = (); # floats by style
sub initialise_state_texi($)
{
my $state = shift;
$state->{'texi'} = 1; # for substitute_text and close_stack:
# 1 if pass_texi/scan_texi is to be used
$state->{'macro_inside'} = 0 unless(defined($state->{'macro_inside'}));
$state->{'ifvalue_inside'} = 0 unless(defined($state->{'ifvalue_inside'}));
$state->{'arg_expansion'} = 0 unless(defined($state->{'arg_expansion'}));
$state->{'files_stack'} = [] unless(defined($state->{'files_stack'}));
}
sub pass_texi($)
{
my $input_file_name = shift;
#my $texi_line_number = { 'file_name' => '', 'line_nr' => 0, 'macro' => '' };
my @lines = (); # whole document
my @lines_numbers = (); # line number, originating file associated with
# whole document
my @first_lines = ();
my $first_lines = 1; # is it the first lines
my $state = {};
# holds the informations about the context
# to pass it down to the functions
my @command_line_lines = @Texi2HTML::Config::COMMANDS;
initialise_state_texi($state);
my $texi_line_number;
($texi_line_number, $state->{'input_spool'}) =
open_file($input_file_name, '', $state->{'files_stack'});
my @stack;
my $text;
my $cline;
INPUT_LINE: while (1)
{
($cline, $state->{'input_spool'}) = next_line($texi_line_number, $state->{'files_stack'});
last if (!defined($cline));
#
# remove the lines preceding \input or an @-command
#
if ($first_lines)
{
if ($cline =~ /^\\input/)
{
push @first_lines, $cline;
$first_lines = 0;
next;
}
if ($cline =~ /^\s*\@/)
{
$first_lines = 0;
}
else
{
push @first_lines, $cline;
next;
}
}
#print STDERR "PASS_TEXI($texi_line_number->{'line_nr'})$cline";
my $chomped_line = $cline;
if (scan_texi ($cline, \$text, \@stack, $state, $texi_line_number) and chomp($chomped_line))
{
#print STDERR "==> new page (line_nr $texi_line_number->{'line_nr'},$texi_line_number->{'file_name'},$texi_line_number->{'macro'})\n";
push (@lines_numbers, { 'file_name' => $texi_line_number->{'file_name'},
'line_nr' => $texi_line_number->{'line_nr'},
'macro' => $texi_line_number->{'macro'} });
}
#dump_stack (\$text, \@stack, $state);
if ($state->{'bye'})
{
#dump_stack(\$text, \@stack, $state);
# close stack after bye
#print STDERR "close stack after bye\n";
close_stack_texi(\$text, \@stack, $state, $texi_line_number);
#dump_stack(\$text, \@stack, $state);
}
next if (@stack);
$cline = $text;
$text = '';
if (!defined($cline))
{
msg_debug ("\$cline undefined after scan_texi", $texi_line_number);
next unless ($state->{'bye'});
}
push @lines, split_lines($cline);
last if ($state->{'bye'});
}
# close stack at the end of pass texi
#print STDERR "close stack at the end of pass texi\n";
close_stack_texi(\$text, \@stack, $state, $texi_line_number);
push @lines, split_lines($text);
print STDERR "# end of pass texi\n" if $T2H_VERBOSE;
return (\@lines, \@first_lines, \@lines_numbers);
}
#+++###########################################################################
# #
# Pass structure: parse document structure #
# #
#---###########################################################################
sub initialise_state_structure($)
{
my $state = shift;
$state->{'structure'} = 1; # for substitute_text and close_stack:
# 1 if pass_structure/scan_structure is
# to be used
$state->{'menu'} = 0; # number of opened menus
$state->{'detailmenu'} = 0; # number of opened detailed menus
$state->{'direntry'} = 0; # number of opened direntry
$state->{'sectionning_base'} = 0; # current base sectioning level
$state->{'table_stack'} = [ "no table" ]; # a stack of opened tables/lists
# seems to be only debug
if (exists($state->{'region_lines'}) and !defined($state->{'region_lines'}))
{
delete ($state->{'region_lines'});
print STDERR "Bug: state->{'region_lines'} exists but undef.\n";
}
}
# This is a virtual element for things appearing before @node and
# sectioning commands
my $element_before_anything;
#
# initial counters. Global variables for pass_structure.
#
my $document_idx_num;
my $document_sec_num;
my $document_head_num;
my $document_anchor_num;
# section to level hash taking into account raise and lower sections.
# Reset at document beginning
my %sec2level;
# initial state for the special regions.
my %region_initial_state;
my %region_lines;
my %region_line_nrs;
# This is a place for index entries, anchors and so on appearing in
# copying or documentdescription
my $no_element_associated_place;
my @nodes_list; # nodes in document reading order
# each member is a reference on a hash
my @sections_list; # sections in reading order
# each member is a reference on a hash
my @all_elements; # sectioning elements (nodes and sections)
# in reading order. Each member is a reference
# on a hash which also appears in %nodes,
# @sections_list @nodes_list, @elements_list
my @elements_list; # all the resulting elements in document order
my %sections; # sections hash. The key is the section number
my %headings; # headings hash. The key is the heading number
my $section_top; # @top section
my $element_top; # Top element
my $node_top; # Top node
my $node_first; # First node
my $element_index; # element with first index
my $element_chapter_index; # chapter with first index
my $element_first; # first element
my $element_last; # last element
my %special_commands; # hash for the commands specially handled
# by the user
# element for content and shortcontent if on a separate page
my %content_element;
my %reference_content_element =
(
'contents' => { 'id' => $Texi2HTML::Config::misc_pages_targets{'Contents'},
'target' => $Texi2HTML::Config::misc_pages_targets{'Contents'},
'contents' => 1, 'texi' => '_contents' },
'shortcontents' => {
'id' => $Texi2HTML::Config::misc_pages_targets{'Overview'},
'target' => $Texi2HTML::Config::misc_pages_targets{'Overview'},
'shortcontents' => 1, 'texi' => '_shortcontents' },
);
# holds content elements located with @*contents commands
my %all_content_elements;
# common code for headings and sections
sub new_section_heading($$$$)
{
my $command = shift;
my $name = shift;
my $state = shift;
my $line_nr = shift;
$name = trim_comment_spaces ($name, "\@$command", $line_nr);
$name = normalise_texi_space($name);
$name = '' if (!defined($name));
# no increase if in @copying and the like. Also no increase if it is top
# since top has number 0.
my $docid;
my $num;
my $section_ref = { 'texi' => $name,
'level' => $sec2level{$command},
'tag' => $command,
};
return $section_ref;
}
sub scan_line_separators($$$;$)
{
my $line = shift;
my $separators = shift;
my $context = shift;
my $line_nr = shift;
my @command_stack;
my $result = '';
while (1)
{
# macro_regexp
if ($line =~ s/^([^{}\@$separators]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/\\])// or $line =~ s/^([^{}\@$separators]*)\@([a-zA-Z][\w-]*)//)
{
$result .= $1;
my $command = $2;
$command = $alias{$command} if (exists($alias{$command}));
if (defined($Texi2HTML::Config::misc_command{$command}))
{
if ($command ne 'c' and $command ne 'comment')
{ # misc commands other than comments are kept as-is, only
# comments are removed.
my ($text, $args);
($line, $text, $args) = &$Texi2HTML::Config::preserve_misc_command($line, $command);
$result .= "\@$command".$text;
next;
}
else
{
$line =~ s/.*//;
return ($result, $line, undef);
}
}
$result .= "\@$command";
if ($line =~ s/^{//)
{
push @command_stack, $command;
$result .= '{';
}
if ($command eq 'verb')
{
if ($line =~ s/^(.)//)
{
my $char = $1;
my $verb_char = quotemeta($char);
if ($line =~ s/^(.*?${verb_char}\})//)
{
$result .= $char.$1;
}
else
{
$line =~ s/^(.*)//;
$result .= $char . $1;
return ($result, $line, undef);
}
}
else
{
return ($result, $line, undef);
}
pop @command_stack;
}
}
elsif ($line =~ s/^([^\{\}$separators]*)([{}])//)
{
$result .= $1 . $2;
my $brace = $2;
if (@command_stack and $brace eq '}')
{
pop @command_stack;
}
}
elsif ($separators ne '' and $line =~ s/^([^${separators}]*)([$separators])//)
{
$result .= $1;
my $separator = $2;
if (@command_stack)
{
$result .= $separator;
}
else
{
return ($result, $line, $separator);
}
}
else
{
$result .= $line;
$line = '';
return ($result, $line, undef);
}
}
}
sub trim_comment_spaces($$;$)
{
my $line = shift;
my $context = shift;
my $line_nr = shift;
if(!defined($line))
{
msg_debug("trim_comment_spaces: $context: line undef", $line_nr);
return undef;
}
my ($arg, $remaining, $separator) = scan_line_separators ($line, '', $context, $line_nr);
#msg_debug ("trim_comment_spaces: $context: arg undef. $line", $line_nr) if (!defined($arg));
#msg_debug ("trim_comment_spaces: $context: $arg !!! $line", $line_nr);
return $arg if (!defined($arg));
return trim_around_spaces($arg);
}
# argument may be the number of arguments when the commas in the last
# argument has no specific meaning. When it is undef it means that
# all the arguments have to be parsed
sub parse_line_arguments($$$;$)
{
my $line = shift;
my $arg_total_nr = shift;
my $context = shift;
my $line_nr = shift;
my @args;
my $arg_nr = 0;
my $remaining = $line;
while (!defined($arg_total_nr) or $arg_nr < $arg_total_nr -1)
{
my ($arg, $separator);
($arg, $remaining, $separator) = scan_line_separators($remaining, ',', $context, $line_nr);
push @args, trim_around_spaces($arg) if (defined($arg));
return @args if (!defined($separator) or !defined($remaining) or !defined($arg));
$arg_nr++;
}
if (defined($arg_total_nr))
{
my ($last_arg, $separator);
($last_arg, $remaining, $separator) = scan_line_separators($remaining, '', $context, $line_nr);
push @args, trim_around_spaces($last_arg) if (defined($last_arg));
}
return @args;
}
sub pass_structure($$)
{
my $texi_lines = shift;
my $lines_numbers = shift;
my @doc_lines; # whole document
my @doc_numbers; # whole document line numbers and file names
my $state = {};
# holds the informations about the context
# to pass it down to the functions
initialise_state_structure($state);
$state->{'heading_element'} = $element_before_anything;
$state->{'current_element'} = $element_before_anything;
$state->{'place'} = $element_before_anything->{'place'};
my @stack;
my $text;
my $line_nr;
while (@$texi_lines or $state->{'in_deff_line'})
{
my $cline = shift @$texi_lines;
my $chomped_line = $cline;
if (@$texi_lines and !chomp($chomped_line))
{
$texi_lines->[0] = $cline . $texi_lines->[0];
next;
}
# !defined($cline) may happen if $state->{'in_deff_line'} is true
# but there is no more line, in case the last end of line is
# protected
$line_nr = shift (@$lines_numbers) unless (!defined($cline));
if ($state->{'in_deff_line'})
{ # line stored in $state->{'in_deff_line'} was protected by @
# and can be concatenated with the next line
if (defined($cline))
{
$cline = $state->{'in_deff_line'} . $cline;
}
else
{# end of line protected at the very end of the file
# in that case there is also no line_nr anymore.
$cline = $state->{'in_deff_line'};
}
delete $state->{'in_deff_line'};
}
#print STDERR "PASS_STRUCTURE($line_nr->{'line_nr'}. raw:".var_to_str($state->{'raw'}).", verb:".var_to_str($state->{'verb'})."): $cline";
if (!$state->{'raw'} and !$state->{'verb'})
{
my $tag = '';
if ($cline =~ /^\s*\@(\w+)\b/)
{
$tag = $1;
}
#
# analyze the tag
#
if ($tag and $tag eq 'node' or (defined($sec2level{$tag}) and ($tag !~ /heading/)) or ($tag eq 'insertcopying' and $Texi2HTML::Config::INLINE_INSERTCOPYING))
{
my @added_lines = ($cline);
my @added_numbers = ($line_nr);
if ($tag eq 'node' or defined($sec2level{$tag}))
{# in pass structure node shouldn't appear in formats
close_stack_structure(\$text, \@stack, $state, $line_nr);
if (exists($state->{'region_lines'}))
{
push @{$region_lines{$state->{'region_lines'}->{'format'}}}, split_lines($text);
push @doc_lines, split_lines($text) if ($Texi2HTML::Config::region_formats_kept{$state->{'region_lines'}->{'format'}});
$state->{'region_lines'}->{'number'} = 0;
close_region($state);
}
else
{
push @doc_lines, split_lines($text);
}
$text = '';
}
if ($tag eq 'node')
{
my $node_ref;
my $auto_directions;
my $node_line = $cline;
$node_line =~ s/^\@node\s*//;
my @node_res = parse_line_arguments($node_line, undef, '@node', $line_nr);
@node_res = normalise_node_array (\@node_res);
# even for empty nodes, @nodes_res has one element.
#line_error (sprintf(__("Error scanning %s"), $cline), $line_nr) if (@node_res < 1);
$auto_directions = 1 if (scalar(@node_res) == 1);
if (@node_res > 4)
{
line_warn(__("Superfluous arguments for node"), $line_nr);
}
my ($node, $node_next, $node_prev, $node_up) = @node_res;
if (defined($node) and ($node ne ''))
{
if (exists($nodes{$node}) and defined($nodes{$node})
and $nodes{$node}->{'seen'})
{
line_error (sprintf(__("Node `%s' previously defined %s"), $node, format_line_number($nodes{$node}->{'line_nr'})), $line_nr);
next;
}
elsif ($node =~ /^\(.+\)/)
{
line_error (sprintf(__("Syntax for an external node used for `%s'"), $node), $line_nr);
next;
}
else
{
if (exists($nodes{$node}) and defined($nodes{$node}))
{ # node appeared in a menu
$node_ref = $nodes{$node};
}
else
{
$node_ref = {};
$nodes{$node} = $node_ref;
}
$node_ref->{'node'} = 1;
$node_ref->{'tag'} = 'node';
$node_ref->{'tag_level'} = 'node';
$node_ref->{'texi'} = $node;
$node_ref->{'seen'} = 1;
$node_ref->{'automatic_directions'} = $auto_directions;
$node_ref->{'place'} = [];
$node_ref->{'current_place'} = [];
$node_ref->{'line_nr'} = $line_nr;
merge_element_before_anything($node_ref);
$node_ref->{'index_names'} = [];
$state->{'place'} = $node_ref->{'current_place'};
$state->{'heading_element'} = $node_ref;
$state->{'current_element'} = $node_ref;
$state->{'node_ref'} = $node_ref;
$state->{'menu_in_node'} = 0;
# makeinfo treats differently case variants of
# top in nodes and anchors and in refs commands and
# refs from nodes.
if ($node =~ /^top$/i)
{
if (!defined($node_top))
{
$node_top = $node_ref;
$node_top->{'texi'} = 'Top';
delete $nodes{$node};
$nodes{$node_top->{'texi'}} = $node_ref;
}
else
{ # All the refs are going to point to the first Top
line_warn ("Top node already exists", $line_nr);
}
}
unless (@nodes_list)
{
$node_first = $node_ref;
}
push (@nodes_list, $node_ref);
push @all_elements, $node_ref;
}
}
else
{
line_error ("Empty node", $line_nr);
next;
}
if (defined($node_next) and ($node_next ne ''))
{
$node_ref->{'node_next'} = $node_next;
}
if (defined($node_prev) and ($node_prev ne ''))
{
$node_ref->{'node_prev'} = $node_prev;
}
if (defined($node_up) and ($node_up ne ''))
{
$node_ref->{'node_up'} = $node_up;
}
}
elsif (defined($sec2level{$tag}))
{ # section
if ($cline =~ /^\@$tag\s*(.*)$/)
{
my $name = $1;
my $section_ref = new_section_heading($tag, $name, $state, $line_nr);
$document_sec_num++ if ($tag ne 'top');
$section_ref->{'sec_num'} = $document_sec_num;
$section_ref->{'id'} = "SEC$document_sec_num";
$section_ref->{'seen'} = 1;
$section_ref->{'index_names'} = [];
$section_ref->{'current_place'} = [];
$section_ref->{'place'} = [];
$section_ref->{'section'} = 1;
$section_ref->{'line_nr'} = $line_nr;
if ($tag eq 'top')
{
$section_ref->{'number'} = '';
$section_ref->{'id'} = "SEC_Top";
$section_ref->{'sec_num'} = 0;
if (defined($section_top))
{
line_error ("\@top already exists", $line_nr);
$sections{0} = $section_ref;
}
else
{
$sections{0.1} = $section_ref;
}
$section_top = $section_ref;
}
else
{
$sections{$section_ref->{'sec_num'}} = $section_ref;
}
merge_element_before_anything($section_ref);
if ($state->{'node_ref'})
{
$section_ref->{'node_ref'} = $state->{'node_ref'};
push @{$state->{'node_ref'}->{'sections'}}, $section_ref;
}
if ($state->{'node_ref'} and !exists($state->{'node_ref'}->{'with_section'}))
{
my $node_ref = $state->{'node_ref'};
$section_ref->{'with_node'} = $node_ref;
$section_ref->{'titlefont'} = $node_ref->{'titlefont'};
$node_ref->{'with_section'} = $section_ref;
}
if (! $name and $section_ref->{'level'})
{
line_warn (sprintf(__("\@%s requires an argument"), $tag), $line_nr);
}
push @sections_list, $section_ref;
push @all_elements, $section_ref;
$state->{'heading_element'} = $section_ref;
$state->{'current_element'} = $section_ref;
$state->{'place'} = $section_ref->{'current_place'};
################# debug
my $node_ref = "NO NODE";
my $node_texi ='';
if ($state->{'node_ref'})
{
$node_ref = $state->{'node_ref'};
$node_texi = $state->{'node_ref'}->{'texi'};
}
print STDERR "# pass_structure node($node_ref)$node_texi, tag \@$tag($section_ref->{'level'}) ref $section_ref, num,id $section_ref->{'sec_num'},$section_ref->{'id'}\n $name\n"
if $T2H_DEBUG & $DEBUG_ELEMENTS;
################# end debug
}
}
elsif ($cline =~ /^\@insertcopying\s*/)
{
@added_lines = @{$region_lines{'copying'}};
@added_numbers = @{$region_line_nrs{'copying'}};
unshift (@$texi_lines, @added_lines);
unshift (@$lines_numbers, @added_numbers);
next;
}
if (exists($state->{'region_lines'}))
{
push @{$region_lines{$state->{'region_lines'}->{'format'}}}, @added_lines;
if ($Texi2HTML::Config::region_formats_kept{$state->{'region_lines'}->{'format'}})
{ # the region is kept in the document in addition with
# being put in the appropriate region_lines entry.
push @doc_lines, @added_lines;
push @doc_numbers, @added_numbers;
}
}
else
{
push @doc_lines, @added_lines;
push @doc_numbers, @added_numbers;
}
next;
}
}
if (scan_structure ($cline, \$text, \@stack, $state, $line_nr))
{
if (!exists($state->{'region_lines'}) or $Texi2HTML::Config::region_formats_kept{$state->{'region_lines'}->{'format'}})
{
push (@doc_numbers, $line_nr);
}
if (exists($state->{'region_lines'}))
{
push @{$region_line_nrs{$state->{'region_lines'}->{'format'}}}, $line_nr unless ($state->{'region_lines'}->{'first_line'});
}
}
next if (scalar(@stack) or $state->{'in_deff_line'});
$cline = $text;
$text = '';
next if (!defined($cline));
if ($state->{'region_lines'})
{
# the first line is like @copying, it is not put in the region
# lines
push @{$region_lines{$state->{'region_lines'}->{'format'}}}, split_lines($cline) unless ($state->{'region_lines'}->{'first_line'});
delete $state->{'region_lines'}->{'first_line'};
push @doc_lines, split_lines($cline) if ($Texi2HTML::Config::region_formats_kept{$state->{'region_lines'}->{'format'}});
}
else
{
push @doc_lines, split_lines($cline);
}
}
if (@stack)
{# close stack at the end of pass structure
close_stack_structure(\$text, \@stack, $state, $line_nr);
if ($text)
{
if (!exists($state->{'region_lines'}) or $Texi2HTML::Config::region_formats_kept{$state->{'region_lines'}->{'format'}})
{
push @doc_lines, split_lines($text);
}
if (exists($state->{'region_lines'}))
{
push @{$region_lines{$state->{'region_lines'}->{'format'}}},
split_lines($text);
}
}
}
#line_warn ("Expected $state->{'region_lines'}->{'number'} \@end $state->{'region_lines'}->{'format'}", $line_nr) if (exists($state->{'region_lines'}));
line_error (sprintf(__("Expected \@end %s"), $state->{'region_lines'}->{'format'}), $line_nr) if (exists($state->{'region_lines'}));
print STDERR "# end of pass structure\n" if $T2H_VERBOSE;
# To remove once they are handled
#print STDERR "No node nor section, texi2html won't be able to place things rightly\n" if ($element_before_anything->{'place'} and @{$element_before_anything->{'place'}});
return (\@doc_lines, \@doc_numbers);
}
# split line at end of line and put each resulting line in an array
# FIXME there must be a more perlish way to do it... Not a big deal
# as long as it work
sub split_lines($)
{
my $line = shift;
my @result = ();
return @result if (!defined($line));
my $i = 0;
while ($line ne '')
{
$result[$i] = '';
$line =~ s/^(.*)//;
$result[$i] .= $1;
$result[$i] .= "\n" if ($line =~ s/^\n//);
#print STDERR "$i: $result[$i]";
$i++;
}
return @result;
}
# handle @documentlanguage
sub do_documentlanguage($$$$)
{
my $command = shift;
my $line = shift;
my $silent = shift;
my $line_nr = shift;
my $language_change_succes = 0;
if ($line =~ s/\s+(\w+)\s*//)
{
my $lang = $1;
my $prev_lang = Texi2HTML::Config::get_conf('documentlanguage');
# This won't be done if the documentlanguage was set on the command line
if (Texi2HTML::Config::set_conf('documentlanguage', $lang, 1))
{
warn_unknown_language ($lang, $line_nr) unless ($silent);
$language_change_succes = set_document_language($lang, $silent, $line_nr);
if (!$language_change_succes)
{ # reset previous documentlanguage
Texi2HTML::Config::set_conf('documentlanguage', $prev_lang, 1);
line_warn (sprintf(__("Translations for `%s' not found. Reverting to `%s'"),$lang, $prev_lang), $line_nr) unless ($silent);
}
}
# FIXME warn about stuff remaining on the line?
}
return $language_change_succes;
}
# actions that should be done in more than one pass. In fact most are not
# to be done in pass_texi. The $pass argument is the number of the pass,
# 0 for pass_texi, 1 for pass_structure, 2 for pass_text
sub common_misc_commands($$$$)
{
my $command = shift;
my $line = shift;
my $pass = shift;
my $line_nr = shift;
# for error messages
my $cline = $line;
chomp($cline);
$cline =~ s/^\s*//;
# track variables
if ($command eq 'set')
{
if ($line =~ /^(\s+)($VARRE)(\s+)(.*)$/)
{
$value{$2} = $4;
}
else
{
line_error (sprintf(__("%c%s requires a name"), ord('@'), $command), $line_nr) if (!$pass);
}
}
elsif ($command eq 'clear')
{
if ($line =~ /^(\s+)($VARRE)/)
{
delete $value{$2};
}
else
{
line_error (sprintf(__("%c%s requires a name"), ord('@'), $command), $line_nr) if (!$pass);
}
}
elsif ($command eq 'clickstyle')
{
if ($line =~ s/^\s+@([^\s\{\}\@]+)({})?\s*//)
{
$Texi2HTML::THISDOC{$command} = $1;
# FIXME warn about what remains on the line?
}
else
{
line_error (sprintf(__("\@%s should only accept a \@-command as argument, not `%s'"), $command, $cline), $line_nr) if ($pass == 1);
}
}
elsif ($command eq 'novalidate')
{
Texi2HTML::Config::set_conf($command, 1, 1);
}
if ($pass)
{ # these commands are only taken into account here in pass_structure 1
# and pass_text 2
if ($command eq 'setfilename')
{
my $filename = trim_comment_spaces($line, "\@$command");
$filename = substitute_line($filename, "\@$command",{'code_style' => 1, 'remove_texi' => 1});
if ($filename ne '')
{
Texi2HTML::Config::set_conf($command, $filename, 1);
}
}
elsif ($command eq 'paragraphindent')
{
if ($line =~ /\s+([\w\-]+)[^\w\-]/)
{
set_paragraphindent ($1, 0, $line_nr, $pass);
}
else
{
set_paragraphindent ($line, 0, $line_nr, $pass);
}
}
elsif ($command eq 'firstparagraphindent')
{
if (($line =~ /^\s+(none)[^\w\-]/) or ($line =~ /^\s+(insert)[^\w\-]/))
{
Texi2HTML::Config::set_conf($command, $1, 1);
}
else
{
line_error (sprintf(__("\@firstparagraphindent arg must be `none' or `insert', not `%s'"), $cline), $line_nr) if ($pass == 1);
}
}
elsif ($command eq 'exampleindent')
{
if ($line =~ /^\s+([0-9]+)/)
{
$Texi2HTML::THISDOC{$command} = $1;
}
elsif ($line =~ /^\s+(asis)[^\w\-]/)
{
$Texi2HTML::THISDOC{$command} = $1;
}
else
{
line_error (sprintf(__("\@exampleindent arg must be numeric/`asis', not `%s'"), $cline), $line_nr) if ($pass == 1);
}
}
elsif ($command eq 'frenchspacing')
{
if (($line =~ /^\s+(on)[^\w\-]/) or ($line =~ /^\s+(off)[^\w\-]/))
{
Texi2HTML::Config::set_conf($command, $1, 1);
}
else
{
line_error (sprintf(__("Expected \@%s on or off, not `%s'"), $command, $cline), $line_nr) if ($pass == 1);
}
}
elsif ($command eq 'kbdinputstyle')
{
if ($line =~ /\s+([a-z]+)/ and ($1 eq 'code' or $1 eq 'example' or $1 eq 'distinct'))
{
Texi2HTML::Config::set_conf($command, $1, 1);
}
else
{
line_error (sprintf(__("\@kbdinputstyle arg must be `code'/`example'/`distinct', not `%s'"), $cline), $line_nr) if ($pass == 1);
}
}
elsif (grep {$command eq $_} ('everyheading', 'everyfooting',
'evenheading', 'evenfooting', 'oddheading', 'oddfooting'))
{ # FIXME have a _texi and without texi, and without texi,
# and expand rightly @this*? And use @| to separate, and give
# an array for user consumption? This should be done for each new
# chapter, section, and page. What is a page is not necessarily
# well defined in html, however...
# @thisfile is the @include file. Should be in $line_nr.
# Also if that command appears in the texi, the error message is
# Unknown command `@evenheading'
# It could be better.
my $arg = $line;
$arg =~ s/^\s+//;
$Texi2HTML::THISDOC{$command} = $arg;
}
elsif ($command eq 'allowcodebreaks')
{
if (($line =~ /^\s+(true)[^\w\-]/) or ($line =~ /^\s+(false)[^\w\-]/))
{
Texi2HTML::Config::set_conf($command, $1, 1);
}
else
{
line_error (sprintf(__("\@allowcodebreaks arg must be `true' or `false', not `%s'"), $cline), $line_nr) if ($pass == 1);
}
}
elsif ($command eq 'headings')
{
my $valid_arg = 0;
foreach my $possible_arg (('off','on','single','double',
'singleafter','doubleafter'))
{
if ($line =~ /^\s+($possible_arg)[^\w\-]/)
{
$valid_arg = 1;
$Texi2HTML::THISDOC{$command} = $possible_arg;
last;
}
}
unless ($valid_arg)
{
line_error (sprintf(__("Bad argument to \@%s: %s"), $command, $cline), $line_nr) if ($pass == 1);
}
}
elsif ($command eq 'documentlanguage')
{
if (do_documentlanguage($command, $line, $pass -1, $line_nr))
{
&$Texi2HTML::Config::translate_names();
set_special_names();
}
}
}
}
sub misc_command_texi($$$$)
{
my $line = shift;
my $command = shift;
my $state = shift;
my $line_nr = shift;
my $text;
my $args;
my $cline = $line;
if (!$state->{'ignored'} and !$state->{'arg_expansion'})
{
if ($command eq 'documentencoding')
{ # FIXME accept more characters, like @?
if ($cline =~ s/^(\s+)([\w\-]+)//)
{
my $encoding = $2;
$Texi2HTML::THISDOC{'documentencoding'} = $encoding;
line_warn(sprintf(__("Encoding %s is not a canonical texinfo encoding"), $encoding), $line_nr)
if (!$Texi2HTML::Config::canonical_texinfo_encodings{lc($encoding)});
if (Texi2HTML::Config::set_conf('DOCUMENT_ENCODING', $Texi2HTML::THISDOC{'documentencoding'}, 1))
{
my $from_encoding;
if (!defined($Texi2HTML::Config::IN_ENCODING))
{
$from_encoding = encoding_alias($encoding, $line_nr);
Texi2HTML::Config::set_conf('IN_ENCODING', $from_encoding, 1)
if (defined($from_encoding));
}
if (defined($from_encoding) and $Texi2HTML::Config::USE_UNICODE)
{
foreach my $file (@{$state->{'files_stack'}})
{
binmode($file->{'fh'}, ":encoding($from_encoding)");
}
}
}
#FIXME error if garbage remains on the line?
}
else
{
line_error(sprintf(__("\@%s arg must be an encoding"), $command), $line_nr);
}
}
elsif ($command eq 'alias')
{
if ($line =~ /(\s+)([a-zA-Z][\w-]*)(\s*=\s*)([a-zA-Z][\w-]*)(\s*)/)
{
$alias{$2} = $4;
}
else
{
line_error (sprintf(__("Bad argument to \@%s"), $command), $line_nr);
}
}
elsif ($command eq 'definfoenclose')
{
if ($cline =~ s/^\s+([a-z][\w\-]*)\s*,\s*([^\s]+)\s*,\s*([^\s]+)//)
{
$info_enclose{$1} = [ $2, $3 ];
}
else
{
line_error (sprintf(__("Bad argument to \@%s"), $command), $line_nr);
} # FIXME warn about garbage remaining on the line?
}
else
{
if ($command eq 'setfilename' and $Texi2HTML::Config::USE_SETFILENAME)
{ # a double setfillename is removed before calling misc_command_texi
my $filename = trim_comment_spaces($line, "\@$command");
$filename = substitute_line($filename, "\@$command",{'code_style' => 1, 'remove_texi' => 1}, $line_nr);
if ($filename ne '')
{
Texi2HTML::Config::set_conf($command, $filename, 1);
# remove extension
$filename =~ s/\.[^\.]*$//;
init_with_file_name ($filename) if ($filename ne '');
}
}
# in reality, do only set, clear and clickstyle.
# though we should never go there for clickstyle...
common_misc_commands($command, $line, 0, $line_nr);
}
}
($line, $text, $args) = &$Texi2HTML::Config::preserve_misc_command($line, $command);
return ($line, $text);
}
sub new_content_element($)
{
my $command = shift;
$command = 'shortcontents' if ($command ne 'contents');
my $element;
foreach my $key (keys(%{$reference_content_element{$command}}))
{
$element->{$key} = $reference_content_element{$command}->{$key};
}
return $element;
}
# handle misc commands and misc command args
sub misc_command_structure($$$$)
{
my $line = shift;
my $command = shift;
my $state = shift;
my $line_nr = shift;
my $text;
my $args;
# for error messages
my $cline = $line;
chomp $cline;
$cline =~ s/^\s*//;
if ($command eq 'lowersections')
{
my ($sec, $level);
while (($sec, $level) = each %sec2level)
{
$sec2level{$sec} = $level + 1 if ($reference_sec2level{$sec} > 0);
}
$state->{'sectionning_base'}--;
}
elsif ($command eq 'raisesections')
{
my ($sec, $level);
while (($sec, $level) = each %sec2level)
{
$sec2level{$sec} = $level - 1 if ($reference_sec2level{$sec} > 0);
}
$state->{'sectionning_base'}++;
}
elsif (($command eq 'contents') or ($command eq 'summarycontents') or ($command eq 'shortcontents'))
{
if ($command ne 'contents')
{
$command = 'shortcontents';
}
Texi2HTML::Config::set_conf($command, 1, 1);
my $new_content_element = new_content_element($command);
push @{$state->{'place'}}, $new_content_element;
push @{$all_content_elements{$command}}, $new_content_element;
}
elsif ($command eq 'dircategory')
{
my $arg = trim_comment_spaces ($line, "\@$command");
$Texi2HTML::THISDOC{"${command}_texi"} = $arg;
$Texi2HTML::THISDOC{$command} = substitute_line($arg, "\@$command");
}
elsif (grep {$_ eq $command} ('settitle','shorttitlepage','title'))
{
my $arg = trim_comment_spaces($line, "\@$command");
$Texi2HTML::THISDOC{$command . '_texi'} = $arg;
$Texi2HTML::THISDOC{$command . '_line_nr'} = $line_nr;
# FIXME backward compatibility. Obsoleted in nov 2009.
$value{"_$command"} = $arg;
if ($command eq 'title')
{ # FIXME This was obsoleted in jun 2007
$Texi2HTML::THISDOC{"${command}s_texi"} = [ $arg ];
}
}
elsif (grep {$_ eq $command} ('author','subtitle'))
{
my $arg = trim_comment_spaces($line, "\@$command");
$Texi2HTML::THISDOC{$command . '_texi'} .= $arg . "\n";
if ($state->{'region'} and $state->{'region'} eq 'titlepage')
{
push @{$Texi2HTML::THISDOC{"${command}s_texi"}}, $arg;
push @{$Texi2HTML::THISDOC{"${command}s_line_nr"}}, $line_nr;
}
#chomp($arg);
# FIXME backward compatibility. Obsoleted in nov 2009.
$value{"_$command"} .= $arg . "\n";
}
elsif ($command eq 'synindex' || $command eq 'syncodeindex')
{
if ($line =~ /^\s+(\w+)\s+(\w+)/)
{
my $index_from = $1;
my $index_to = $2;
line_error (sprintf(__("Unknown from index `%s' in \@%s"), $index_from, $command), $line_nr)
unless $index_names{$index_from};
line_error (sprintf(__("Unknown to index name `%s' in \@%s"), $index_to, $command), $line_nr)
unless $index_names{$index_to};
if ($index_names{$index_from} and $index_names{$index_to})
{
my $in_code = 0;
$in_code = 1 if ($command eq 'syncodeindex');
my $current_to = $index_to;
while ($current_to ne $index_from and $Texi2HTML::THISDOC{'merged_index'}->{$current_to})
{
$current_to = $Texi2HTML::THISDOC{'merged_index'}->{$current_to};
}
if ($current_to ne $index_from)
{
foreach my $prefix (keys(%{$index_names{$index_from}->{'prefixes'}}))
{
$index_names{$current_to}->{'prefixes'}->{$prefix} = $in_code;
$index_prefix_to_name{$prefix} = $current_to;
}
$Texi2HTML::THISDOC{'merged_index'}->{$index_from} = $current_to;
}
push @{$Texi2HTML::THISDOC{$command}}, [$index_from,$index_to];
}
}
else
{
line_error (sprintf(__("Bad argument to \@%s: %s"), $command, $cline), $line_nr);
}
}
elsif ($command eq 'defindex' || $command eq 'defcodeindex')
{
if ($line =~ /^\s+(\w+)\s*$/)
{
my $name = $1;
if ($forbidden_index_name{$name})
{
line_error(sprintf(__("Reserved index name %s"),$name), $line_nr);
}
else
{
my $in_code = 0;
$in_code = 1 if ($command eq 'defcodeindex');
# FIXME this leads to spurious error message in hello_nodes
#if (defined($index_names{$name}))
#{
# line_error(sprintf(__("Index `%s' already exists"),$name), $line_nr);
#}
$index_names{$name}->{'prefixes'}->{$name} = $in_code;
$index_prefix_to_name{$name} = $name;
push @{$Texi2HTML::THISDOC{$command}}, $name;
}
}
else
{
line_error (sprintf(__("Bad argument to \@%s: %s"), $command, $cline), $line_nr);
}
}
elsif (grep {$_ eq $command} ('everyheadingmarks','everyfootingmarks',
'evenheadingmarks','oddheadingmarks','evenfootingmarks','oddfootingmarks'))
{
if (($line =~ /^\s+(top)[^\w\-]/) or ($line =~ /^\s+(bottom)[^\w\-]/))
{
$Texi2HTML::THISDOC{$command} = $1;
}
else
{
line_error (sprintf(__("\@%s arg must be `top' or `bottom', not `%s'"), $command, $cline), $line_nr);
}
}
elsif ($command eq 'fonttextsize')
{
if (($line =~ /^\s+(10)[^\w\-]/) or ($line =~ /^\s+(11)[^\w\-]/))
{
$Texi2HTML::THISDOC{$command} = $1;
}
else
{
line_error (sprintf(__("Only \@%s 10 or 11 is supported, not `%s'"),$command, $cline), $line_nr);
}
}
elsif ($command eq 'pagesizes')
{
if ($line =~ /^\s+(.*)\s*$/)
{
$Texi2HTML::THISDOC{$command} = $1;
}
}
elsif ($command eq 'footnotestyle')
{
if ($line =~ /^\s+([a-z]+)[^\w\-]/)
{
set_footnote_style ($1, 0, $line_nr);
}
else
{
set_footnote_style ($line, 0, $line_nr);
}
}
elsif ($command eq 'setchapternewpage')
{
if (($line =~ /^\s+(on)[^\w\-]/) or ($line =~ /^\s+(off)[^\w\-]/)
or ($line =~ /^\s+(odd)[^\w\-]/))
{
$Texi2HTML::THISDOC{$command} = $1;
}
else
{
line_error (sprintf(__("\@%s arg must be `on', `off' or `odd', not `%s'"), $command, $cline), $line_nr);
}
}
elsif ($command eq 'setcontentsaftertitlepage' or $command eq 'setshortcontentsaftertitlepage')
{
Texi2HTML::Config::set_conf($command, 1, 1);
}
elsif ($command eq 'need')
{ # only a warning
unless (($line =~ /^\s+([0-9]+(\.[0-9]*)?)[^\w\-]/) or
($line =~ /^\s+(\.[0-9]+)[^\w\-]/))
{
line_error (sprintf(__("Bad argument to \@%s: %s"), $command, $cline), $line_nr);
}
}
else
{
common_misc_commands($command, $line, 1, $line_nr);
}
($text, $line, $args) = &$Texi2HTML::Config::preserve_misc_command($line, $command);
return ($text, $line);
}
sub set_special_names()
{
$Texi2HTML::NAME{'About'} = gdt('About This Document');
$Texi2HTML::NAME{'Contents'} = gdt('Table of Contents');
$Texi2HTML::NAME{'Overview'} = gdt('Short Table of Contents');
$Texi2HTML::NAME{'Footnotes'} = gdt('Footnotes');
$Texi2HTML::NO_TEXI{'About'} = gdt('About This Document', {}, {'remove_texi' => 1} );
$Texi2HTML::NO_TEXI{'Contents'} = gdt('Table of Contents', {}, {'remove_texi' => 1} );
$Texi2HTML::NO_TEXI{'Overview'} = gdt('Short Table of Contents', {}, {'remove_texi' => 1} );
$Texi2HTML::NO_TEXI{'Footnotes'} = gdt('Footnotes', {}, {'remove_texi' => 1} );
$Texi2HTML::SIMPLE_TEXT{'About'} = gdt('About This Document', {}, {'simple_format' => 1});
$Texi2HTML::SIMPLE_TEXT{'Contents'} = gdt('Table of Contents',{}, {'simple_format' => 1});
$Texi2HTML::SIMPLE_TEXT{'Overview'} = gdt('Short Table of Contents', {}, {'simple_format' => 1});
$Texi2HTML::SIMPLE_TEXT{'Footnotes'} = gdt('Footnotes', {},{'simple_format' => 1});
}
sub enter_author_command($$$$$$)
{
my $command = shift;
my $texi = shift;
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
$texi = trim_comment_spaces($texi, "\@$command");
if ($command eq 'author')
{
my $top_format = top_stack($stack, 2);
if (defined($top_format) and $format_type{$top_format->{'format'}} eq 'quotation')
{
push @{$top_format->{'quote_authors'}}, {'author_texi' => $texi, 'author_text' => $text};
}
elsif (!$state->{'region'} or $state->{'region'} ne 'titlepage')
{
line_warn (sprintf(__("\@%s not meaningful outside `\@titlepage' and `\@quotation' environments"), $command), $line_nr);
}
}
}
# return the line after removing things according to misc_command map.
# if the skipped command has an effect it is done here
# this is used during pass_text
sub misc_command_text($$$$$$)
{
my $line = shift;
my $command = shift;
my $stack = shift;
my $state = shift;
my $text = shift;
my $line_nr = shift;
my ($skipped, $remaining, $args, $result);
# The strange condition associated with 'keep_texi' is
# there because for an argument appearing on an @itemize
# line (we're in 'check_item'), meant to be prepended to an
# @item we don't want to keep @c or @comment as otherwise it
# eats the @item line. Other commands could do that too but
# then the user deserves what he gets.
if ($state->{'keep_texi'} and
(!$state->{'check_item'} or ($command ne 'c' and $command ne 'comment')))
{
($remaining, $skipped, $args) = &$Texi2HTML::Config::preserve_misc_command($line, $command);
add_prev($text, $stack, "\@$command". $skipped);
return $remaining;
}
($remaining, $skipped, $args) = &$Texi2HTML::Config::preserve_misc_command($line, $command);
if ($state->{'remove_texi'})
{
($command, $line, $result) = &$Texi2HTML::Config::misc_command_line_texi($command, $line, $args, $stack, $state);
}
else
{
($command, $line, $result) = &$Texi2HTML::Config::misc_command_line($command, $line, $args, $stack, $state);
}
enter_author_command ($command, $line, $result, $stack, $state, $line_nr);
# for error messages
my $cline = $line;
$cline =~ s/^\s*//;
chomp $cline;
# if it is true the command args are kept so the user can modify how
# they are skipped and handle them as unknown @-commands. Nowadays, it is
# not that interesting since using misc_command_line above should do
# about the same more simply.
my $keep = $Texi2HTML::Config::misc_command{$command}->{'keep'};
if ($command eq 'sp')
{
my $sp_number;
if ($line =~ /^\s+(\d+)\s/)
{
$sp_number = $1;
}
elsif ($line =~ /(\s*)$/)
{
$sp_number = '';
}
else
{
line_error (sprintf(__("\@sp requires a positive numeric argument, not `%s'"), $cline), $line_nr);
}
$sp_number = 1 if ($sp_number eq '');
if (!$state->{'remove_texi'})
{
add_prev($text, $stack, &$Texi2HTML::Config::sp($sp_number, $state->{'preformatted'}));
}
}
elsif($command eq 'verbatiminclude' and !$keep)
{
if ($line =~ /\s+(.+)/)
{
my $arg = $1;
$arg = trim_around_spaces($arg);
my $file_name = substitute_line($arg, "\@$command", {'code_style' => 1});
my $file = locate_include_file($file_name);
if (defined($file))
{
if (!open(VERBINCLUDE, $file))
{
line_error (sprintf(__("Cannot read %s: %s"), $file, $!), $line_nr);
}
else
{
my $verb_text = '';
while (my $verb_line = <VERBINCLUDE>)
{
$verb_text .= $verb_line;
}
if ($state->{'remove_texi'})
{
add_prev ($text, $stack, &$Texi2HTML::Config::raw_no_texi('verbatiminclude', $verb_text));
}
else
{
add_prev($text, $stack, &$Texi2HTML::Config::raw('verbatiminclude', $verb_text, $line_nr));
}
close VERBINCLUDE;
}
}
else
{
line_error (sprintf(__("\@%s: Cannot find %s"), $command, $file_name), $line_nr);
}
}
else
{
line_error (sprintf(__("Bad argument to \@%s: %s"), $command, $cline), $line_nr);
}
}
elsif ($command eq 'indent' or $command eq 'noindent')
{
$state->{'paragraph_indent'} = $command;
}
else
{
common_misc_commands($command, $line, 2, $line_nr);
}
return ($skipped.$remaining, $result) if ($keep);
return ($remaining, $result);
}
# merge the things appearing before the first @node or sectioning command
# (held by element_before_anything) with the current element
# do that only once.
sub merge_element_before_anything($)
{
my $element = shift;
if (exists($element_before_anything->{'place'}))
{
$element->{'current_place'} = $element_before_anything->{'place'};
delete $element_before_anything->{'place'};
foreach my $placed_thing (@{$element->{'current_place'}})
{
$placed_thing->{'element'} = $element if (exists($placed_thing->{'element'}));
}
}
# this is certainly redundant with the above condition, but cleaner
# that way
if (exists($element_before_anything->{'titlefont'}))
{
$element->{'titlefont'} = $element_before_anything->{'titlefont'};
delete $element_before_anything->{'titlefont'};
}
}
# find menu_prev, menu_up... for a node in menu
sub menu_entry_texi($$$)
{
my $node = shift;
my $state = shift;
my $line_nr = shift;
return if ($state->{'direntry'});
my $node_menu_ref = {};
if (exists($nodes{$node}))
{
$node_menu_ref = $nodes{$node};
}
else
{
$nodes{$node} = $node_menu_ref;
$node_menu_ref->{'texi'} = $node;
$node_menu_ref->{'external_node'} = 1 if ($node =~ /^\(.+\)/);
}
return if ($state->{'detailmenu'});
if ($state->{'node_ref'})
{
if ($node_menu_ref->{'menu_up'} and !$node_menu_ref->{'external_node'})
{
# This is not an error. This is used a lot in real life manuals
#line_warn ("Double entry in menu for `$node' (also below `$node_menu_ref->{'menu_up'}->{'texi'}')", $line_nr);
}
$node_menu_ref->{'menu_up'} = $state->{'node_ref'};
$node_menu_ref->{'menu_up_hash'}->{$state->{'node_ref'}->{'texi'}} = 1;
}
if ($state->{'prev_menu_node'})
{
$node_menu_ref->{'menu_prev'} = $state->{'prev_menu_node'};
$state->{'prev_menu_node'}->{'menu_next'} = $node_menu_ref;
}
elsif ($state->{'node_ref'} and !$state->{'node_ref'}->{'menu_child'})
{
$state->{'node_ref'}->{'menu_child'} = $node_menu_ref;
}
$state->{'prev_menu_node'} = $node_menu_ref;
}
my @index_labels; # array corresponding with @?index commands
# constructed during pass_structure, used to
# put labels in pass_text
my @unknown_index_index_entries; # array of index entries not associated
# with any index
sub sorted_line($)
{
my $line = shift;
$::texi_map_ref = \%Texi2HTML::Config::sorting_things_map;
my $result = remove_texi($line);
$::texi_map_ref = \%Texi2HTML::Config::texi_map;
return $result;
}
sub prepare_indices()
{
#print STDERR "Do splitting of index letters, once.\n";
foreach my $index_name(keys %{$Texi2HTML::THISDOC{'index_entries_array'}})
{
#print STDERR "$Texi2HTML::THISDOC{'index_entries_array'}->{$index_name}) letters\n";
my %letters_hash;
foreach my $index_entry (@{$Texi2HTML::THISDOC{'index_entries_array'}->{$index_name}})
{
my $key = sorted_line($index_entry->{'texi'});
$index_entry->{'key'} = $key;
my $letter = uc(substr($key, 0, 1));
push @{$letters_hash{$letter}}, $index_entry;
}
# use cmp if only letters or only symbols, otherwise symbols before
# letters
foreach my $letter (sort {
((($a =~ /^[[:alpha:]]/ and $b =~ /^[[:alpha:]]/) or
($a !~ /^[[:alpha:]]/ and $b !~ /^[[:alpha:]]/)) && $a cmp $b)
|| ($a =~ /^[[:alpha:]]/ && 1) || -1 } (keys %letters_hash))
{
# FIXME sort without uc?
# This sorts the entries for a given letter
my @sorted_letter_entries = (sort {uc($a->{'key'}) cmp uc($b->{'key'})} (@{$letters_hash{$letter}}));
push @{$Texi2HTML::THISDOC{'index_letters_array'}->{$index_name}}, { 'letter' => $letter, 'entries' => \@sorted_letter_entries };
}
}
# generate the keys for index sorting also for the entries not
# associated with an index.
foreach my $index_entry_without_index (@unknown_index_index_entries)
{
my $key = sorted_line($index_entry_without_index->{'texi'});
$index_entry_without_index->{'key'} = $key;
}
Texi2HTML::Config::t2h_default_init_split_indices();
}
# This function is used to construct link names from node names as
# specified for texinfo
sub cross_manual_links()
{
my @all_index_entries;
foreach my $index_name (sort(keys(%{$Texi2HTML::THISDOC{'index_entries_array'}})))
{
push @all_index_entries, @{$Texi2HTML::THISDOC{'index_entries_array'}->{$index_name}};
}
print STDERR "# Doing ".scalar(keys(%nodes))." cross manual links ".
scalar(@all_index_entries). " index entries\n"
if ($T2H_DEBUG);
$::simple_map_texi_ref = \%cross_ref_simple_map_texi;
$::style_map_texi_ref = \%cross_ref_style_map_texi;
$::texi_map_ref = \%cross_ref_texi_map;
my $normal_text_kept = $Texi2HTML::Config::normal_text;
$Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text;
my $style_kept = $Texi2HTML::Config::style;
$Texi2HTML::Config::style = \&Texi2HTML::Config::T2H_GPL_style;
foreach my $key (keys(%nodes))
{
my $node = $nodes{$key};
#print STDERR "CROSS_MANUAL:$key,$node\n";
if (!defined($node->{'texi'}))
{
###################### debug section
foreach my $key (keys(%$node))
{
#print STDERR "$key:$node->{$key}!!!\n";
}
###################### end debug section
}
else
{
$node->{'cross_manual_target'} = remove_texi($node->{'texi'});
if ($node->{'cross_manual_target'} !~ /\S/)
{
line_error (sprintf(__("Empty node name after expansion `%s'"), $node->{'texi'}), $node->{'line_nr'});
$node->{'cross_manual_target'} = 't_0';
$node->{'cross_manual_file'} = 't_0';
}
elsif ($Texi2HTML::Config::USE_UNICODE)
{
$node->{'cross_manual_target'} = Unicode::Normalize::NFC($node->{'cross_manual_target'});
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES and $Texi2HTML::Config::USE_UNIDECODE)
{
$node->{'cross_manual_file'} =
unicode_to_protected(unicode_to_transliterate($node->{'cross_manual_target'}));
}
$node->{'cross_manual_target'} =
unicode_to_protected($node->{'cross_manual_target'});
}
#print STDERR "CROSS_MANUAL_TARGET $node->{'cross_manual_target'}\n";
unless ($node->{'external_node'})
{
if (exists($cross_reference_nodes{$node->{'cross_manual_target'}}))
{
my $other_node_array = $cross_reference_nodes{$node->{'cross_manual_target'}};
my $node_seen;
foreach my $other_node (@{$other_node_array})
{ # find the first node seen for the error message
$node_seen = $other_node;
last if ($nodes{$other_node}->{'seen'})
}
my $other_node_line_nr = $nodes{$node_seen}->{'line_nr'};
if (defined($other_node_line_nr))
{
msg_error ("Node equivalent with `$node->{'texi'}' already used `$node_seen' ".format_line_number($other_node_line_nr), $node->{'line_nr'});
}
else
{
msg_error ("Node equivalent with `$node->{'texi'}' already used `$node_seen'", $node->{'line_nr'});
}
push @{$other_node_array}, $node->{'texi'};
}
else
{
push @{$cross_reference_nodes{$node->{'cross_manual_target'}}}, $node->{'texi'};
}
}
}
}
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES and
(!$Texi2HTML::Config::USE_UNICODE or !$Texi2HTML::Config::USE_UNIDECODE))
{
$::style_map_texi_ref = \%cross_transliterate_style_map_texi;
$::texi_map_ref = \%cross_transliterate_texi_map;
$Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text_transliterate if (!$Texi2HTML::Config::USE_UNICODE);
foreach my $key (keys(%nodes))
{
my $node = $nodes{$key};
#print STDERR "TRANSLITERATE:$key,$node\n";
if (defined($node->{'texi'}))
{
$node->{'cross_manual_file'} = remove_texi($node->{'texi'});
if ($node->{'cross_manual_file'} !~ /\S/)
{
$node->{'cross_manual_file'} = 't_0';
}
elsif ($Texi2HTML::Config::USE_UNICODE)
{
$node->{'cross_manual_file'} = unicode_to_protected(unicode_to_transliterate($node->{'cross_manual_file'}));
}
}
}
foreach my $entry (@all_index_entries, values(%sections), values(%headings))
{
#print STDERR "TRANSLITERATE($entry) $entry->{'texi'}\n";
$entry->{'cross'} = remove_texi($entry->{'texi'});
$entry->{'cross'} = unicode_to_protected(unicode_to_transliterate($entry->{'cross'})) if ($Texi2HTML::Config::USE_UNICODE);
}
}
else
{
foreach my $entry (@all_index_entries, values(%sections), values(%headings))
{
$entry->{'cross'} = remove_texi($entry->{'texi'});
if ($Texi2HTML::Config::USE_UNICODE)
{
$entry->{'cross'} = Unicode::Normalize::NFC($entry->{'cross'});
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES and $Texi2HTML::Config::USE_UNIDECODE) # USE_UNIDECODE is redundant
{
$entry->{'cross'} =
unicode_to_protected(unicode_to_transliterate($entry->{'cross'}));
}
else
{
$entry->{'cross'} =
unicode_to_protected($entry->{'cross'});
}
}
}
}
$Texi2HTML::Config::normal_text = $normal_text_kept;
$Texi2HTML::Config::style = $style_kept;
$::simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi;
$::style_map_texi_ref = \%Texi2HTML::Config::style_map_texi;
$::texi_map_ref = \%Texi2HTML::Config::texi_map;
}
# This function is used to construct a link name from a node name as
# specified for texinfo
sub cross_manual_line($;$)
{
my $text = shift;
my $transliterate = shift;
#print STDERR "cross_manual_line $text\n";
#print STDERR "remove_texi text ". remove_texi($text)."\n\n\n";
if ($text !~ /\S/)
{
# special case for empty node/ref
return ('t_0', 't_0');
}
$::simple_map_texi_ref = \%cross_ref_simple_map_texi;
$::style_map_texi_ref = \%cross_ref_style_map_texi;
$::texi_map_ref = \%cross_ref_texi_map;
my $normal_text_kept = $Texi2HTML::Config::normal_text;
$Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text;
my $style_kept = $Texi2HTML::Config::style;
$Texi2HTML::Config::style = \&Texi2HTML::Config::T2H_GPL_style;
my ($cross_ref_target, $cross_ref_file);
if ($Texi2HTML::Config::USE_UNICODE)
{
$cross_ref_target = Unicode::Normalize::NFC(remove_texi($text));
if ($transliterate and $Texi2HTML::Config::USE_UNIDECODE)
{
$cross_ref_file =
unicode_to_protected(unicode_to_transliterate($cross_ref_target));
}
$cross_ref_target = unicode_to_protected($cross_ref_target);
}
else
{
$cross_ref_target = remove_texi($text);
}
if ($transliterate and
(!$Texi2HTML::Config::USE_UNICODE or !$Texi2HTML::Config::USE_UNIDECODE))
{
$::style_map_texi_ref = \%cross_transliterate_style_map_texi;
$::texi_map_ref = \%cross_transliterate_texi_map;
$Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text_transliterate if (!$Texi2HTML::Config::USE_UNICODE);
$cross_ref_file = remove_texi($text);
$cross_ref_file = unicode_to_protected(unicode_to_transliterate($cross_ref_file))
if ($Texi2HTML::Config::USE_UNICODE);
}
$Texi2HTML::Config::normal_text = $normal_text_kept;
$Texi2HTML::Config::style = $style_kept;
$::simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi;
$::style_map_texi_ref = \%Texi2HTML::Config::style_map_texi;
$::texi_map_ref = \%Texi2HTML::Config::texi_map;
#print STDERR "\n\ncross_ref $cross_ref\n";
unless ($transliterate)
{
return $cross_ref_target;
}
# print STDERR "$text|$cross_ref_target|$cross_ref_file\n";
return ($cross_ref_target, $cross_ref_file);
}
sub equivalent_nodes($)
{
my $name = shift;
#print STDERR "equivalent_nodes $name\n";
my $node = normalise_node($name);
$name = cross_manual_line($node);
#print STDERR "equivalent_nodes `$node' `$name'\n";
my @equivalent_nodes = ();
if (exists($cross_reference_nodes{$name}))
{
@equivalent_nodes = grep {$_ ne $node} @{$cross_reference_nodes{$name}};
}
return @equivalent_nodes;
}
sub do_place_target_file($$$)
{
my $place = shift;
my $element = shift;
my $context = shift;
$place->{'file'} = $element->{'file'} unless defined($place->{'file'});
$place->{'target'} = $element->{'target'} unless defined($place->{'target'});
if (defined($Texi2HTML::Config::placed_target_file_name))
{
my ($target, $id, $file) = &$Texi2HTML::Config::placed_target_file_name($place,$element,$place->{'target'}, $place->{'id'}, $place->{'file'},$context);
$place->{'target'} = $target if (defined($target));
$place->{'file'} = $file if (defined($file));
$place->{'id'} = $id if (defined($id));
}
}
sub do_node_target_file($$)
{
my $node = shift;
my $type_of_node = shift;
my $node_file = &$Texi2HTML::Config::node_file_name($node,$type_of_node);
$node->{'node_file'} = $node_file if (defined($node_file));
if (defined($Texi2HTML::Config::node_target_name))
{
my ($target,$id) = &$Texi2HTML::Config::node_target_name($node,$node->{'target'},$node->{'id'}, $type_of_node);
$node->{'target'} = $target if (defined($target));
$node->{'id'} = $id if (defined($id));
}
}
sub do_element_targets($;$)
{
my $element = shift;
my $use_node_file = shift;
my $is_top = '';
$is_top = 'top' if (defined($element_top) and ($element eq $element_top or (defined($element->{'with_node'}) and $element->{'with_node'} eq $element_top)));
if ($Texi2HTML::Config::SPLIT_INDEX and Texi2HTML::Config::get_conf('SPLIT'))
{
Texi2HTML::Config::t2h_default_associate_index_element($element, $is_top, $docu_name, $use_node_file);
}
if (defined($Texi2HTML::Config::element_file_name))
{
my $previous_file_name = $element->{'file'};
my $filename =
&$Texi2HTML::Config::element_file_name ($element, $is_top, $docu_name);
if (defined($filename))
{
foreach my $place (@{$element->{'place'}})
{
$place->{'file'} = $filename if (defined($place->{'file'}) and ($place->{'file'} eq $previous_file_name));
}
$element->{'file'} = $filename;
if ($is_top)
{ # reset these variables, although they aren't used much, they may be
# used in file name comparisons
$docu_top = $filename;
$docu_top_file = "$docu_rdir$docu_top";
}
}
}
print STDERR "file !defined for element $element->{'texi'}\n" if (!defined($element->{'file'}));
if (defined($Texi2HTML::Config::element_target_name))
{
my ($target,$id) = &$Texi2HTML::Config::element_target_name($element, $element->{'target'}, $element->{'id'});
$element->{'target'} = $target if (defined($target));
$element->{'id'} = $id if (defined($id));
}
foreach my $place(@{$element->{'place'}})
{
do_place_target_file($place, $element, '');
}
}
sub add_t2h_element($$$)
{
my $element = shift;
my $elements_list = shift;
my $prev_element = shift;
push @$elements_list, $element;
$element->{'element_ref'} = $element;
$element->{'this'} = $element;
if (defined($prev_element))
{
$element->{'back'} = $prev_element;
$prev_element->{'forward'} = $element;
}
push @{$element->{'place'}}, $element;
push @{$element->{'place'}}, @{$element->{'current_place'}};
return $element;
}
sub add_t2h_dependent_element ($$)
{
my $element = shift;
my $element_ref = shift;
$element->{'element_ref'} = $element_ref;
$element_index = $element_ref if ($element_index and ($element_index eq $element));
push @{$element_ref->{'place'}}, $element;
push @{$element_ref->{'place'}}, @{$element->{'current_place'}};
}
my %files = (); # keys are files. This is used to avoid reusing an already
# used file name
my @opened_files = (); # all the files opened by the program to remove
# them if FORCE is not set and an error occured
my %printed_indices = (); # value is true for an index name not empty and
# printed
# This is a virtual element used to have the right hrefs for index entries
# and anchors in footnotes.
my $footnote_element;
# find next, prev, up, back, forward, fastback, fastforward
# find element id and file
# split index pages
# associate placed items (items which have links to them) with the right
# file and id
# associate nodes with sections
sub rearrange_elements()
{
print STDERR "# find sections levels and toplevel\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
my $toplevel = 4;
# correct level if raisesections or lowersections overflowed
# and find toplevel level
# use %sections and %headings to modify also the headings
foreach my $section (values(%sections), values(%headings))
{
my $level = $section->{'level'};
if ($level > $MAX_LEVEL)
{
$section->{'level'} = $MAX_LEVEL;
}
# second condition is for @top and @part
elsif ($level < $MIN_LEVEL and ($reference_sec2level{$section->{'tag'}} >= $MIN_LEVEL))
{
$section->{'level'} = $MIN_LEVEL;
}
else
{
$section->{'level'} = $level;
}
$section->{'toc_level'} = $section->{'level'};
# This is for top
$section->{'toc_level'} = $MIN_LEVEL if ($section->{'level'} < $MIN_LEVEL);
# find the new tag corresponding with the level of the section
if ($section->{'tag'} !~ /heading/ and ($level ne $reference_sec2level{$section->{'tag'}}))
{
$section->{'tag_level'} = $level2sec{$section->{'tag'}}->[$section->{'level'}];
}
else
{
$section->{'tag_level'} = $section->{'tag'};
}
$toplevel = $section->{'level'} if (($section->{'level'} < $toplevel) and ($section->{'level'} > 0 and ($section->{'tag'} !~ /heading/)));
print STDERR "# section level $level: $section->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
}
print STDERR "# find sections structure, construct section numbers (toplevel=$toplevel)\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
my $in_appendix = 0;
# these arrays have an element per sectioning level.
my @previous_numbers = (); # holds the number of the previous sections
# at the same and upper levels
my @previous_sections = (); # holds the ref of the previous sections
my $previous_toplevel;
my @pending_parts; # parts yet to be associated with the
# following element
foreach my $section (@sections_list)
{
########################### debug
print STDERR "BUG: node or section_ref defined for section $section->{'texi'}\n"
if (exists($section->{'node'}) or exists($section->{'section_ref'}));
print STDERR "Bug level undef for ($section) $section->{'texi'}\n" if (!defined($section->{'level'}));
########################### end debug
# associate with first node if it is a section appearing before
# the first node
$section->{'node_ref'} = $nodes_list[0] if ($nodes_list[0] and !$section->{'node_ref'});
# a part doesn't really make up an element, it is associated with the
# next sectioning element instead.
if ($section->{'tag'} eq 'part')
{
push @pending_parts, $section;
}
elsif (@pending_parts)
{
if ($section->{'tag'} ne 'top')
{
foreach my $part (@pending_parts)
{
$part->{'part_section_ref'} = $section;
if (!$section->{'with_part'})
{
$section->{'with_part'} = $part;
$part->{'part_with_section'} = $section;
}
# if a node is associated with the part, reassociate it with
# the chapter
if ($part->{'with_node'} and !$section->{'with_node'})
{
$section->{'with_node'} = $part->{'with_node'};
delete $part->{'with_node'};
$section->{'with_node'}->{'with_section'} = $section;
}
}
}
@pending_parts = ();
}
# we track the toplevel next and previous because there is no
# strict child parent relationship between chapters and top. Indeed
# a chapter may appear before @top, it may be better to consider them
# on the same toplevel.
if ($section->{'level'} <= $toplevel)
{
$section->{'toplevel'} = 1;
if (defined($previous_toplevel))
{
$previous_toplevel->{'toplevelnext'} = $section;
$section->{'toplevelprev'} = $previous_toplevel;
}
# part is not used as previous_toplevel since toplevel directions
# are used to move between chapters (and top)
$previous_toplevel = $section if ($section->{'tag'} ne 'part');
# In fact this is only useful for toplevel elements appearing
# before @top, the other have their sectionup reset up below
# based on the sectioning commands hierarchy.
if (defined($section_top) and $section ne $section_top)
{
$section->{'sectionup'} = $section_top;
}
}
# undef things under that section level
my $section_level = $section->{'level'};
for (my $level = $section_level + 1; $level < $MAX_LEVEL + 1 ; $level++)
{
$previous_numbers[$level] = undef unless ($section->{'tag'} =~ /unnumbered/ or $section->{'tag'} eq 'centerchap');
$previous_sections[$level] = undef;
}
my $number_set;
# find number at the current level
if ($section->{'tag'} =~ /appendix/ and !$in_appendix)
{
$previous_numbers[$toplevel] = 'A';
$in_appendix = 1;
$number_set = 1 if ($section->{'level'} <= $toplevel);
$section->{'appendix_beginning'} = 1;
}
if (!defined($previous_numbers[$section->{'level'}]) and !$number_set)
{
if ($section->{'tag'} =~ /unnumbered/ or $section->{'tag'} eq 'centerchap')
{
$previous_numbers[$section->{'level'}] = undef;
}
else
{
$previous_numbers[$section->{'level'}] = 1;
}
}
elsif ($section->{'tag'} !~ /unnumbered/ and $section->{'tag'} ne 'centerchap' and !$number_set)
{
$previous_numbers[$section->{'level'}]++;
}
# construct the section number
$section->{'number'} = '';
unless ($section->{'tag'} =~ /unnumbered/ or $section->{'tag'} eq 'centerchap' or $section->{'tag'} eq 'top' or $section->{'tag'} eq 'part')
{
my $level = $section->{'level'};
while ($level > $toplevel)
{
my $number = $previous_numbers[$level];
$number = 0 if (!defined($number));
if ($section->{'number'})
{
$section->{'number'} = "$number.$section->{'number'}";
}
else
{
$section->{'number'} = $number;
}
$level--;
}
my $toplevel_number = $previous_numbers[$toplevel];
$toplevel_number = 0 if (!defined($toplevel_number));
if ($section->{'number'})
{ # not toplevel
$section->{'number'} = "$toplevel_number.$section->{'number'}";
}
else
{ # toplevel
$section->{'number'} = $toplevel_number;
if ($section->{'tag'} =~ /appendix/)
{# i18n
$section->{'plain_number'} = $section->{'number'};
$section->{'number'} = "Appendix $section->{'number'}";
}
}
}
$section->{'plain_number'} = $section->{'number'} if (!defined($section->{'plain_number'}));
# find the previous section
if (defined($previous_sections[$section->{'level'}]))
{
my $prev_section = $previous_sections[$section->{'level'}];
$section->{'sectionprev'} = $prev_section;
$prev_section->{'sectionnext'} = $section;
}
# find the up section
my $level = $section->{'level'} - 1;
while (!defined($previous_sections[$level]) and ($level >= 0))
{
$level--;
}
# The second conditions ensures that a @part is stopped by
# the first @appendix command.
if (defined($previous_sections[$level])
and !($section->{'appendix_beginning'} and $previous_sections[$level]->{'tag'} eq 'part' and $previous_sections[$level]->{'part_section_ref'} ne $section))
{
# toplevel elements have already their up set to the top element,
# it is overwriten here for most cases -- this leads to a different
# sectionup if there are parts, for instance.
# as a side note, it is not touched upon if the element appears
# before @top.
$section->{'sectionup'} = $previous_sections[$level];
# 'child' is the first child.
if (!$section->{'sectionup'}->{'child'})
{
$section->{'sectionup'}->{'child'} = $section;
}
else
{
# 'childnext' is the next child of a an element. it may
# be different from 'sectionnext' when the elemnt are not
# at the same level, for example
# @chapter chapter
# @subsection subsection (certainly wrong)
# @section section (not next of subsection, but childnext)
$section->{'sectionup'}->{'section_childs'}->[-1]->{'childnext'} = $section if (defined($section->{'sectionup'}->{'section_childs'}));
}
push @{$section->{'sectionup'}->{'section_childs'}}, $section;
}
$previous_sections[$section->{'level'}] = $section;
# This is what is used in the .init file.
$section->{'up'} = $section->{'sectionup'};
# Not used but documented.
$section->{'next'} = $section->{'sectionnext'};
$section->{'prev'} = $section->{'sectionprev'};
############################# debug
my $up = "NO_UP";
$up = $section->{'sectionup'} if (defined($section->{'sectionup'}));
print STDERR "# numbering section ($section->{'level'}): $section->{'number'}: (up: $up) $section->{'texi'}\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
############################# end debug
}
# at that point there are still some node structures that are not
# in %nodes, (the external nodes, and unknown nodes in case
# novalidate is true) so we cannot find the id. The consequence is that
# some node equivalent with another node may not be catched during
# that pass. We mark the nodes that have directions for unreferenced
# nodes and make a second pass for these nodes afterwards.
my @nodes_with_unknown_directions = ();
my %node_directions = (
'node_prev' => 'nodeprev',
'node_next' => 'nodenext',
'node_up' => 'nodeup');
# handle nodes
# the node_prev... are texinfo strings, find the associated node references
print STDERR "# Resolve nodes directions\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
foreach my $node (@nodes_list)
{
foreach my $direction (keys(%node_directions))
{
if (defined($node->{$direction}))
{
if ($nodes{$node->{$direction}} and $nodes{$node->{$direction}}->{'seen'})
{
$node->{$node_directions{$direction}} = $nodes{$node->{$direction}};
}
elsif (($node->{$direction} =~ /^\(.*\)/) or Texi2HTML::Config::get_conf('novalidate'))
{ # ref to an external node
if (exists($nodes{$node->{$direction}}))
{
$node->{$node_directions{$direction}} = $nodes{$node->{$direction}};
}
else
{
my $node_ref = { 'texi' => $node->{$direction} };
$node_ref->{'external_node'} = 1 if ($node->{$direction} =~ /^\(.*\)/);
$nodes{$node->{$direction}} = $node_ref;
$node->{$node_directions{$direction}} = $node_ref;
}
}
else
{
push @nodes_with_unknown_directions, $node;
}
}
}
}
# Find cross manual links as explained on the texinfo mailing list
# The specification is such that cross manual links formatting should
# be insensitive to the manual split
cross_manual_links();
my %direction_texts = (
'node_prev' => 'Prev',,
'node_next' => 'Next',
'node_up' => 'Up'
);
# Now it is possible to find the unknown directions that are equivalent
# (have same node id) than an existing node
foreach my $node (@nodes_with_unknown_directions)
{
foreach my $direction (keys(%node_directions))
{
if (defined($node->{$direction}) and !$node->{$node_directions{$direction}})
{
line_error (sprintf(__("%s reference to nonexistent `%s'"),$direction_texts{$direction}, $node->{$direction}), $node->{'line_nr'}); # for `$node->{'texi'}'"
my @equivalent_nodes = equivalent_nodes($node->{$direction});
my $node_seen;
foreach my $equivalent_node (@equivalent_nodes)
{
if ($nodes{$equivalent_node}->{'seen'})
{
$node_seen = $equivalent_node;
last;
}
}
if (defined($node_seen))
{
document_warn ("---> but equivalent node `$node_seen' found");
$node->{$node_directions{$direction}} = $nodes{$node_seen};
}
}
}
}
# nodes are attached to the section preceding them if not already
# associated with a section.
# a @part should never have nodes associated, if it is associated
# with a chapter, instead the chapter pointed on by part_section_ref is
# used.
my $current_section = $sections_list[0];
$current_section = $current_section->{'part_section_ref'} if ($current_section and $current_section->{'part_section_ref'});
foreach my $element (@all_elements)
{
if ($element->{'node'})
{
if ($element->{'with_section'})
{ # the node is associated with a section
$element->{'section_ref'} = $element->{'with_section'};
}
elsif (defined($current_section))
{# node appearing after a section, but not before another section,
# or appearing before any section
$element->{'section_ref'} = $current_section;
push @{$current_section->{'node_childs'}}, $element;
}
}
else
{
$current_section = $element;
$current_section = $element->{'part_section_ref'} if ($element->{'part_section_ref'});
}
}
print STDERR "# Complete nodes next prev and up based on menus and sections\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
# set the default id based on the node number
my $node_nr = 1;
# find the node* directions
# find the directions corresponding with sections
# and set 'up' for the node
foreach my $node (@nodes_list)
{
# first a warning if the node and the equivalent nodes don't
# appear in menus.
# Don't warn for the top node, and the first node if there is no
# top node.
if ((($node_top and $node ne $node_top) or (!$node_top and $node ne $node_first)) and !$node->{'menu_up'} and $Texi2HTML::Config::SHOW_MENU)
{
my @equivalent_nodes = equivalent_nodes($node->{'texi'});
my $found = 0;
foreach my $equivalent_node (@equivalent_nodes)
{
if (($nodes{$equivalent_node} eq $node_first) or $nodes{$equivalent_node}->{'menu_up'})
{
$found = 1;
last;
}
}
unless ($found)
{ # makeinfo has also
# "`%s' has no Up field (perhaps incorrect sectioning?)"
# but it is not useful since the up will always be set if
# the node appears in a menu so the following error message
# is enough
line_warn (sprintf(__("unreferenced node `%s'"), $node->{'texi'}), $node->{'line_nr'});
}
}
# use values deduced from menus to complete missing up, next, prev
# or from sectioning commands if automatic sectioning
if (!$node->{'nodeup'})
{
if (defined($node_top) and ($node eq $node_top) and $node->{'automatic_directions'})
{ # Top node has a special up, which is (dir) by default
my $top_nodeup = $Texi2HTML::Config::TOP_NODE_UP;
if (exists($nodes{$top_nodeup}))
{
$node->{'nodeup'} = $nodes{$top_nodeup};
}
else
{
my $node_ref = { 'texi' => $top_nodeup };
$node_ref->{'external_node'} = 1;
$nodes{$top_nodeup} = $node_ref;
$node->{'nodeup'} = $node_ref;
}
}
elsif ($node->{'automatic_directions'})
{
if ($node->{'with_section'})
{
# ignore the up if it is a @part. If the sectioning is
# correct, the element is toplevel and will be handled
# by the next condition.
if ($node->{'with_section'}->{'sectionup'} and !$node->{'with_section'}->{'sectionup'}->{'part_section_ref'})
{
$node->{'nodeup'} = get_node($node->{'with_section'}->{'sectionup'});
}
elsif ($node->{'with_section'}->{'toplevel'} and defined($section_top) and ($node->{'with_section'} ne $section_top))
{
$node->{'nodeup'} = get_node($section_top);
}
print STDERR "# Deducing from section node_up $node->{'nodeup'}->{'texi'} for $node->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS and defined($node->{'nodeup'}));
}
elsif ($node->{'menu_up'})
{
$node->{'nodeup'} = $node->{'menu_up'};
print STDERR "# Deducing from menu node_up $node->{'menu_up'}->{'texi'} for $node->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
}
}
}
if ($node->{'nodeup'} and !$node->{'nodeup'}->{'external_node'})
{
# We detect when the up node has no menu entry for that node, as
# there may be infinite loops when finding following node (see below)
unless (defined($node->{'menu_up_hash'}) and ($node->{'menu_up_hash'}->{$node->{'nodeup'}->{'texi'}}))
{
line_error(sprintf(__("Node `%s' lacks menu item for `%s' despite being its Up target"), $node->{'nodeup'}->{'texi'}, $node->{'texi'}), $node->{'nodeup'}->{'line_nr'}) if ($Texi2HTML::Config::SHOW_MENU);
push @{$node->{'up_not_in_menu'}}, $node->{'nodeup'}->{'texi'};
}
}
# check that the up is in one of the menus
if ($Texi2HTML::Config::SHOW_MENU and $node->{'nodeup'} and $node->{'menu_up'})
{
my @equivalent_nodes = equivalent_nodes($node->{'nodeup'}->{'texi'});
my $found = 0;
foreach my $equivalent_node ($node->{'nodeup'}->{'texi'}, @equivalent_nodes)
{
if ($node->{'menu_up_hash'}->{$equivalent_node})
{
$found = 1;
last;
}
}
unless ($found)
{
line_warn (sprintf(__("For `%s', up in menu `%s' and up `%s' don't match"), $node->{'texi'}, $node->{'menu_up'}->{'texi'}, $node->{'nodeup'}->{'texi'}), $node->{'line_nr'});
}
}
# Find next node if not already found
if ($node->{'nodenext'})
{
# doing the following would be wrong:
#$node->{'nodenext'}->{'nodeprev'} = $node if (!defined($node->{'nodenext'}->{'nodeprev'}));
}
elsif ($node->{'texi'} eq 'Top' and $node->{'automatic_directions'})
{ # special case as said in the texinfo manual
if ($node->{'menu_child'})
{
$node->{'nodenext'} = $node->{'menu_child'};
$node->{'menu_child'}->{'nodeprev'} = $node;
}
}
elsif ($node->{'automatic_directions'})
{
if (defined($node->{'with_section'}))
{
my $next;
my $warn_for_next_not_in_menu = 1;
my $section = $node->{'with_section'};
if ($section->{'sectionnext'})
{
$next = get_node($section->{'sectionnext'});
}
# we use toplevelnext, mostly for chapters associated with
# @part. But we don't want to have the @top as prev for
# a @chapter or the like
elsif ($section->{'toplevelnext'} and $section->{'toplevelnext'} ne $section_top)
{
$next = get_node($section->{'toplevelnext'});
}
elsif ($Texi2HTML::Config::USE_UP_FOR_ADJACENT_NODES)
{ # makeinfo don't do that. So this is conditionnal.
# Also no warning, because it is expected that the
# next found out with the up is not the next in menu.
$warn_for_next_not_in_menu = 0;
while (defined($section->{'sectionup'}) and !defined($section->{'sectionnext'}))
{
$section = $section->{'sectionup'};
}
if (defined($section->{'sectionnext'}))
{
$next = get_node($section->{'sectionnext'});
}
}
if (defined($next) and $Texi2HTML::Config::SHOW_MENU and $warn_for_next_not_in_menu)
{
line_warn (sprintf(__("No node following `%s' in menu, but `%s' follows in sectioning"), $node->{'texi'}, $next->{'texi'}), $node->{'line_nr'}) if (!defined($node->{'menu_next'}));
line_warn (sprintf(__("Node following `%s' in menu `%s' and in sectioning `%s' differ"), $node->{'texi'}, $node->{'menu_next'}->{'texi'}, $next->{'texi'}), $node->{'line_nr'})
if (defined($node->{'menu_next'}) and $next ne $node->{'menu_next'});
}
$node->{'nodenext'} = $next;
}
elsif ($node->{'menu_next'})
{
$node->{'nodenext'} = $node->{'menu_next'};
}
}
# Find prev node
if ($node->{'nodeprev'})
{
# doing the following would be wrong:
#$node->{'nodeprev'}->{'nodenext'} = $node if (!defined($node->{'nodeprev'}->{'nodenext'}));
}
elsif ($node->{'automatic_directions'})
{
if (defined($node->{'with_section'}))
{
my $section = $node->{'with_section'};
if ($section->{'sectionprev'})
{
$node->{'nodeprev'} = get_node($section->{'sectionprev'});
}
# we use toplevelprev, mostly for chapters associated with
# @part. But we don't want to have the @top as prev for
# a @chapter or the like
elsif ($section->{'toplevelprev'} and $section->{'toplevelprev'} ne $section_top)
{
$node->{'nodeprev'} = get_node($section->{'toplevelprev'});
}
elsif ($Texi2HTML::Config::USE_UP_FOR_ADJACENT_NODES and defined($section->{'sectionup'}))
{ # makeinfo don't do that
$node->{'nodeprev'} = get_node($section->{'sectionup'});
}
}
elsif ($node->{'menu_prev'})
{
$node->{'nodeprev'} = $node->{'menu_prev'};
}
# the prev node is the parent node
elsif ($node->{'menu_up'} and ($node->{'menu_up'}->{'menu_child'} eq $node) and $Texi2HTML::Config::USE_UP_FOR_ADJACENT_NODES)
{
$node->{'nodeprev'} = $node->{'menu_up'};
}
}
# the following node is the node following in node reading order
# it is thus first the child, else the next, else the next following
# the up
if ($node->{'menu_child'})
{
$node->{'following'} = $node->{'menu_child'};
}
elsif ($node->{'automatic_directions'} and defined($node->{'with_section'}) and defined($node->{'with_section'}->{'child'}))
{
$node->{'following'} = get_node($node->{'with_section'}->{'child'});
}
elsif (defined($node->{'nodenext'}))
{
$node->{'following'} = $node->{'nodenext'};
}
else
{
my $up = $node->{'nodeup'};
# in order to avoid infinite recursion in case the up node is the
# node itself we use the up node as following when there isn't
# a correct menu structure, here and also below.
$node->{'following'} = $up if (defined($up) and grep {$_ eq $up->{'texi'}} @{$node->{'up_not_in_menu'}});
while ((!defined($node->{'following'})) and (defined($up)))
{
if (($node_top) and ($up eq $node_top))
{ # if we are at Top, Top is following
$node->{'following'} = $node_top;
$up = undef;
}
if (defined($up->{'nodenext'}))
{
$node->{'following'} = $up->{'nodenext'};
}
elsif (defined($up->{'nodeup'}))
{
if (! grep { $_ eq $up->{'nodeup'}->{'texi'} } @{$node->{'up_not_in_menu'}})
{
$up = $up->{'nodeup'};
}
else
{ # in that case we can go into a infinite loop
$node->{'following'} = $up->{'nodeup'};
}
}
else
{
$up = undef;
}
}
}
# copy the direction of the associated section.
if (defined($node->{'with_section'}))
{
my $section = $node->{'with_section'};
foreach my $direction ('sectionnext', 'sectionprev', 'sectionup')
{
$node->{$direction} = $section->{$direction}
if (defined($section->{$direction}));
}
}
# 'up' is used in .init files. It is almost sectionup, but not
# exactly, it allows to have something relevant whether elements
# are nodes or sections -- just like Back and Forward. So it
# should certainly be kept.
if (defined($node->{'sectionup'}))
{
$node->{'up'} = $node->{'sectionup'};
}
elsif (defined($node->{'nodeup'}) and
(!$node_top or ($node ne $node_top)))
{
$node->{'up'} = $node->{'nodeup'};
}
# 'next' not used but documented.
if (defined($node->{'sectionnext'}))
{
$node->{'next'} = $node->{'sectionnext'};
}
if (defined($node->{'sectionprev'}))
{
$node->{'prev'} = $node->{'sectionprev'};
}
# default id for nodes. Should be overriden later.
$node->{'id'} = 'NOD' . $node_nr;
$node_nr++;
}
# do node directions for sections.
foreach my $section (@sections_list)
{
# If the element is not a node, then all the node directions are copied
# if there is an associated node
if (defined($section->{'with_node'}))
{
$section->{'nodenext'} = $section->{'with_node'}->{'nodenext'};
$section->{'nodeprev'} = $section->{'with_node'}->{'nodeprev'};
$section->{'menu_next'} = $section->{'with_node'}->{'menu_next'};
$section->{'menu_prev'} = $section->{'with_node'}->{'menu_prev'};
$section->{'menu_child'} = $section->{'with_node'}->{'menu_child'};
$section->{'menu_up'} = $section->{'with_node'}->{'menu_up'};
$section->{'nodeup'} = $section->{'with_node'}->{'nodeup'};
$section->{'following'} = $section->{'with_node'}->{'following'};
}
}
my $only_nodes = 0;
my $only_sections = 0;
# for legibility
my $use_nodes = $Texi2HTML::Config::USE_NODES;
my $use_sections = $Texi2HTML::Config::USE_SECTIONS;
$only_nodes = 1 if (
(!scalar(@sections_list) and
($use_nodes or (!$use_sections and !defined($use_nodes))))
or ($use_nodes and !$use_sections)
);
$only_sections = 1 if (!$only_nodes and !$use_nodes and ($use_sections or !defined($use_sections)));
#print STDERR "USE_NODES $use_nodes, USE_SECTIONS $use_sections. only_nodes: $only_nodes, only_sections $only_sections\n";
my $prev_element;
print STDERR "# Build the elements list only_nodes: $only_nodes, only_sections $only_sections\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
foreach my $element (@all_elements)
{
if ($element->{'node'})
{
if ($element->{'section_ref'} and ($only_sections or (!$only_nodes and $element->{'with_section'})))
{
add_t2h_dependent_element ($element, $element->{'section_ref'});
#$element->{'toc_level'} = $element->{'section_ref'}->{'toc_level'};
}
elsif (!$only_sections)
{
$prev_element = add_t2h_element($element, \@elements_list, $prev_element);
}
else # $only_section and !$section_ref. This should only
# happen when there are no sections
{
#print STDERR "node $element->{'texi'} not associated with an element\n";
}
}
else
{
my $part_element = $element->{'part_section_ref'};
if (($element->{'node_ref'} or ($part_element and $part_element->{'node_ref'})) and $only_nodes)
{
my $element_with_node = $element;
$element_with_node = $part_element if ($part_element);
add_t2h_dependent_element ($element, $element_with_node->{'node_ref'});
}
elsif (!$only_nodes)
{
if ($part_element)
{
add_t2h_dependent_element ($element, $part_element);
}
else
{
$prev_element = add_t2h_element($element, \@elements_list, $prev_element);
}
}
else
{ # no node, and $only_nodes
#print STDERR "$element->{'tag'} $element->{'texi'} not associated with an element\n";
}
}
}
# find texi2html specific directions and elements that are not texinfo
# language features.
#
# Maybe Config hooks should be used at that point (up to index
# preparation)
#
# find first, last and top elements
if (@elements_list)
{
$element_first = $elements_list[0];
print STDERR "# element first: $element_first->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
# It is the last element before indices split, which may add new
# elements
$element_last = $elements_list[-1];
}
else
{
print STDERR "# \@elements_list is empty\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
}
print STDERR "# top node: $node_top->{'texi'}\n" if (defined($node_top) and
($T2H_DEBUG & $DEBUG_ELEMENTS));
# Remark: there are many subtle distinctions among the elements that
# have a flavor of being at top. First there are the texinfo top
# elements (if present), namely $section_top for the @top element
# and $node_top for the @node Top element (and both may be associated).
# Then there is $element_top, set up just below. In addition to
# $section_top and $node_top, the section associated with $node_top
# and the first element may be used. $element_top is used to determine
# file splitting and file names, since it is always associated with
# $docu_top file.
# The $element_top may have 'top' set, in case it is a node or @top.
# In that case, special formatting is done, like using print_Top and
# similar.
# Similarly with element_top, some other nodes than $node_top may
# get associated with the top node filename without being considered
# as top otherwise (this is done below).
if (defined($section_top) and $section_top->{'this'})
{
# element top is the element with @top.
$element_top = $section_top;
}
elsif (defined($node_top) and $node_top->{'this'})
{
# otherwise top node may be the element_top
$element_top = $node_top;
}
elsif (defined($node_top) and defined($node_top->{'with_section'}) and $node_top->{'with_section'}->{'this'})
{
# next, the element associated with the @node Top may be
# the $element_top. In that case $element_top->{'top'} won't be set
$element_top = $node_top->{'with_section'};
}
elsif (defined($element_first))
{
# If there is no @top section no top node associated with an element,
# first element is used
$element_top = $element_first;
}
# Rather arbitrarily, 'top' is set for nodes as top elements
# and @top. This triggers specific formatting, like calling
# print_Top and similar things.
if (defined($element_top))
{
$element_top->{'top'} = 1 if ($element_top->{'node'} or $element_top->{'tag'} eq 'top');
print STDERR "# element top: $element_top->{'texi'}\n" if ($element_top and
($T2H_DEBUG & $DEBUG_ELEMENTS));
}
print STDERR "# find fastback and fastforward\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
foreach my $element (@elements_list)
{ # nodes are ignored here, although their associated sectioning
# command may be taken into account.
my $up = get_top($element);
next unless (defined($up));
# take the opportunity to set the first chapter with index
$element_chapter_index = $up if ($element_index and ($element_index eq $element));
# fastforward is the next element on same level than the upper parent
# element.
if (exists ($up->{'toplevelnext'}))
{
$element->{'fastforward'} = $up->{'toplevelnext'}
}
# if the element isn't at the highest level, fastback is the
# highest parent element
if ($up and ($up ne $element))
{
$element->{'fastback'} = $up;
}
elsif ($element->{'toplevel'})
{
# the element is a top level element, we adjust the next
# toplevel element fastback
$element->{'fastforward'}->{'fastback'} = $element if ($element->{'fastforward'});
}
}
# set 'reference_element' which is used each time there is a cross ref
# to that node (xref and menu entry), to do the href, and also the
# element heading text.
# It is the section associated with the node if there are only sections.
# Since in the default case the target is the node target, even for
# sections, this, in fact shouldn't lead to a different target, unless
# the node and the section don't have the same file associated, which could
# only happen with indices split. The heading text will be different, though.
# The node name should also always be passed to the formatting functions
# such that it is always possible for the formatting to chose the node
# heading over the element heading selected using 'reference_element'.
if ($only_sections)
{
foreach my $node(@nodes_list)
{
if ($node->{'with_section'})
{
$node->{'reference_element'} = $node->{'with_section'};
}
}
}
# the symmetric is not done for sections, since there is no crossref
# to sections in texinfo (only to anchors and nodes), so that when
# there is a link to an element (in Toc, for instance),
# there is no reason to want to have the node (though, once again,
# the href is almost surely the same than what would be with the node,
# the heading would be different).
# end texi2html added directions
# do human readable id
print STDERR "# find float id\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
foreach my $float (@floats)
{
$float->{'style_id'} = cross_manual_line($float->{'style_texi'});
my $float_style = { };
if (exists($floats{$float->{'style_id'}}))
{
$float_style = $floats{$float->{'style_id'}};
}
else
{
$floats{$float->{'style_id'}} = $float_style;
}
push @{$float_style->{'floats'}}, $float;
$float->{'absolute_nr'} = scalar(@{$float_style->{'floats'}});
my $up = get_top($float->{'element'});
if (defined($up) and (!defined($float_style->{'current_chapter'}) or ($up->{'texi'} ne $float_style->{'current_chapter'})))
{
$float_style->{'current_chapter'} = $up->{'texi'};
$float_style->{'nr_in_chapter'} = 1;
}
else
{
$float_style->{'nr_in_chapter'}++;
}
if (defined($up) and $up->{'toplevel'} and $up->{'number'} ne '')
{
$float->{'chapter_nr'} = $up->{'plain_number'};
$float->{'nr'} = $float->{'chapter_nr'} . "." . $float_style->{'nr_in_chapter'};
}
else
{
$float->{'nr'} = $float->{'absolute_nr'};
}
}
print STDERR "# do human-readable index entries id\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
if ($Texi2HTML::Config::NEW_CROSSREF_STYLE)
{
foreach my $entry_region (sort(keys(%{$Texi2HTML::THISDOC{'index_entries_region_array'}})))
{
foreach my $index_entry (@{$Texi2HTML::THISDOC{'index_entries_region_array'}->{$entry_region}})
{
my $region = '';
$region = "$index_entry->{'region'}-" if (defined($index_entry->{'region'}) and $index_entry->{'region'} ne '');
my $index_id = "index-" . $region .$index_entry->{'cross'};
my $index = 1;
# $index > 0 should prevent integer overflow, hopefully
while (exists($cross_reference_nodes{$index_id}) and $index > 0)
{
$index_id = "index-" . $region . $index_entry->{'cross'} . "-" .$index;
$index++;
}
$index_entry->{'id'} = $index_id;
$index_entry->{'target'} = $index_id;
my $texi_entry = "index-".$region.$index_entry->{'texi'};
$texi_entry .= "-".$index if ($index > 1);
push @{$cross_reference_nodes{$index_id}}, $texi_entry;
}
}
}
if ($Texi2HTML::Config::NEW_CROSSREF_STYLE)
{
foreach my $key (keys(%nodes))
{
my $node = $nodes{$key};
next if ($node->{'external_node'});
$node->{'id'} = node_to_id($node->{'cross_manual_target'});
# FIXME if NEW_CROSSREF_STYLE false is it done for anchors?
$node->{'target'} = $node->{'id'};
}
}
# use %sections and %headings to modify also the headings
foreach my $section (values(%sections), values(%headings))
{
if ($Texi2HTML::Config::NEW_CROSSREF_STYLE and ($section->{'cross'} =~ /\S/))
{
my $section_cross = $section->{'cross'};
if (defined($section->{'region'}))
{ # for headings appearing in special regions like @copying...
$section_cross = "${target_prefix}-$section->{'region'}_$section_cross";
}
$section->{'cross_manual_target'} = $section_cross;
my $index = 1;
# $index > 0 should prevent integer overflow, hopefully
while (exists($cross_reference_nodes{$section->{'cross_manual_target'}}) and $index > 0)
{
$section->{'cross_manual_target'} = $section_cross . "-" .$index;
$index++;
}
my $texi_entry = $section->{'texi'};
$texi_entry .= "-".$index if ($index > 1);
push @{$cross_reference_nodes{$section->{'cross_manual_target'}}}, $texi_entry;
$section->{'id'} = node_to_id($section->{'cross_manual_target'});
}
}
# use the associated @part as target if there is an associated part.
# do it separately to be sure that all the parts have an id.
foreach my $section (values(%sections), values(%headings))
{
my $target = $section;
$target = $section->{'with_part'} if ($section->{'with_part'});
if ($Texi2HTML::Config::USE_NODE_TARGET and $target->{'with_node'})
{
$section->{'target'} = $target->{'with_node'}->{'target'};
}
else
{
$section->{'target'} = $target->{'id'};
}
}
# construct human readable tocid
foreach my $section (values(%sections))
{
if ($Texi2HTML::Config::NEW_CROSSREF_STYLE and ($section->{'cross'} =~ /\S/))
{
foreach my $toc_id (['tocid','toc'], ['stocid', 'stoc'])
{
my $id_string = $toc_id->[0];
my $prefix_string = $toc_id->[1];
my $cross_string = '-' . $section->{'cross_manual_target'};
$section->{$id_string} = $prefix_string . $cross_string;
my $index = 1;
# $index > 0 should prevent integer overflow, hopefully
while (exists($cross_reference_nodes{$section->{$id_string}}) and $index > 0)
{
$section->{$id_string} = $prefix_string . "-" .$index .$cross_string;
$index++;
}
my $texi_entry = $prefix_string.'-'.$section->{'texi'};
$texi_entry = $prefix_string .'-'.$index.'-'.$section->{'texi'} if ($index > 1);
push @{$cross_reference_nodes{$section->{$id_string}}}, $texi_entry;
}
}
}
if (!$Texi2HTML::Config::NEW_CROSSREF_STYLE)
{
my $tocnr = 1;
foreach my $element (@elements_list)
{
$element->{'tocid'} = 'TOC' . $tocnr;
$tocnr++;
}
}
# Set file names
# Find node file names and file names for nodes considered as elements
my $node_as_top;
if ($node_top)
{
$node_as_top = $node_top;
}
# following possibilities lead to some node being considered
# as top for the purpose of setting the file node, but not as node_top
elsif ($element_top->{'with_node'})
{
$node_as_top = $element_top->{'with_node'};
}
else
{
$node_as_top = $node_first;
}
if ($node_as_top)
{
do_node_target_file($node_as_top, 'top');
}
foreach my $key (keys(%nodes))
{
my $node = $nodes{$key};
next if (defined($node_as_top) and ($node eq $node_as_top));
do_node_target_file($node,'');
}
print STDERR "# split(".Texi2HTML::Config::get_conf('SPLIT').") and set files\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
# find document nr and document file for sections and nodes.
# Split according to Texi2HTML::Config::SPLIT.
# find file and id for placed elements (anchors, index entries, headings)
if (Texi2HTML::Config::get_conf('SPLIT'))
{
$Texi2HTML::THISDOC{'split_level'} = $toplevel;
my $doc_nr = -1;
if (Texi2HTML::Config::get_conf('SPLIT') eq 'section')
{
$Texi2HTML::THISDOC{'split_level'} = 2 if ($toplevel <= 2);
}
my $previous_file;
my $previous_is_top = 0;
foreach my $element (@elements_list)
{
print STDERR "# Splitting (".Texi2HTML::Config::get_conf('SPLIT').":$Texi2HTML::THISDOC{'split_level'}) $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
my $new_file = 0;
if (
(!defined($previous_file)) or
(Texi2HTML::Config::get_conf('SPLIT') eq 'node') or
(
defined($element->{'level'}) and ($element->{'level'} <= $Texi2HTML::THISDOC{'split_level'})
) or
(
!defined($element->{'level'}) and defined($element->{'with_section'}) and ($element->{'with_section'}->{'level'} <= $Texi2HTML::THISDOC{'split_level'})
) or
( # top file after another file
(defined($previous_file) and ($element eq $element_top)
and ($previous_file ne $docu_top))
) # element following top element is always considered to be
# in a different file.
or ($previous_is_top)
)
{
$new_file = 1;
$doc_nr++;
}
$previous_is_top = 0 if ($previous_is_top);
$element->{'doc_nr'} = $doc_nr;
$element->{'file'} = "${docu_name}_$doc_nr"
. (defined($Texi2HTML::THISDOC{'extension'}) ? ".$Texi2HTML::THISDOC{'extension'}" : '');
my $use_node_file = 0;
if ($element eq $element_top)
{ # the top element
$element->{'file'} = $docu_top;
$previous_is_top = 1;
}
elsif ($Texi2HTML::Config::NODE_FILENAMES)
{
$use_node_file = 1;
if ($new_file)
{
my $node = get_node($element);
if ($node and defined($node->{'node_file'}))
{
$element->{'file'} = $node->{'node_file'};
}
elsif ($element->{'cross'} =~ /\S/)
{ # use the canonicalized/transliterated section file name.
$element->{'file'} = $element->{'cross'}
. (defined($Texi2HTML::THISDOC{'extension'}) ? ".$Texi2HTML::THISDOC{'extension'}" : '');
}
# The remaining case is for sectioning elements with empty
# headings and no node associated. They will have a name
# with numbers, like "${docu_name}_$doc_nr", they may
# collide with split indices names
}
else
{
$element->{'file'} = $previous_file;
}
}
$previous_file = $element->{'file'};
do_element_targets($element, $use_node_file);
print STDERR "# [$doc_nr] add_file($use_node_file,$new_file,".var_to_str($previous_file).") $element->{'file'} for $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
add_file($element->{'file'});
}
}
else
{ # not split
add_file($docu_doc);
foreach my $element(@elements_list)
{
$element->{'file'} = $docu_doc;
$element->{'doc_nr'} = 0;
do_element_targets($element);
}
}
# 'pathological' cases. No texinfo sectioning element at all or no
# texi2html sectioning elements
if (!@elements_list)
{
if (@all_elements)
{
# in fact this happens only if there is no top element, but still
# sections, so only if USE_SECTIONS = 0 and there is no node.
#document_warn ("No elements available for splitting") if (Texi2HTML::Config::get_conf('SPLIT'));
foreach my $element (@all_elements)
{
#print STDERR "# no \@elements_list. Processing $element->{'texi'}\n";
$element->{'file'} = $docu_doc;
$element->{'doc_nr'} = 0;
push @{$element->{'place'}}, @{$element->{'current_place'}};
do_element_targets($element,$Texi2HTML::Config::NODE_FILENAMES);
print STDERR "# no \@elements_list, setting $element->{'file'} for $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
}
add_file($docu_doc);
}
else
{
#document_warn ("No elements at all") if (Texi2HTML::Config::get_conf('SPLIT'));
$element_before_anything->{'file'} = $docu_doc;
$element_before_anything->{'doc_nr'} = 0;
do_element_targets($element_before_anything,$Texi2HTML::Config::NODE_FILENAMES);
print STDERR "# no element at all, setting $element_before_anything->{'file'} for $element_before_anything->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
}
}
# correct the id and file for the things placed in footnotes
foreach my $place(@{$footnote_element->{'place'}})
{
do_place_target_file ($place, $footnote_element, 'footnotes');
}
# if setcontentsaftertitlepage is set, the contents should be associated
# with the titlepage. That's what is done there.
push @$no_element_associated_place, $content_element{'contents'}
if (Texi2HTML::Config::get_conf('contents') and $Texi2HTML::THISDOC{'setcontentsaftertitlepage'});
push @$no_element_associated_place, $content_element{'shortcontents'}
if (Texi2HTML::Config::get_conf('shortcontents') and $Texi2HTML::THISDOC{'setshortcontentsaftertitlepage'});
# correct the id and file for the things placed in regions (copying...)
foreach my $place(@$no_element_associated_place)
{
#print STDERR "entry $place->{'entry'} texi $place->{'texi'}\n";
$place->{'element'} = $element_top if (exists($place->{'element'}));
do_place_target_file ($place, $element_top, 'no_associated_element');
}
# determine contents element and files
foreach my $content_type(keys(%content_element))
{
# with set*aftertitlepage, there will always be a href to Contents
# or Overview pointing to the top element, even if there is no
# titlepage outputed.
if (!scalar(@{$all_content_elements{$content_type}}))
{
if ($Texi2HTML::Config::INLINE_CONTENTS)
{
print STDERR "# No content $content_type\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
$content_element{$content_type} = undef;
}
}
elsif ($Texi2HTML::Config::INLINE_CONTENTS and !Texi2HTML::Config::get_conf('set' . $content_type .'aftertitlepage'))
{ # use the last element for references in case there is more than one
$content_element{$content_type} = $all_content_elements{$content_type}->[-1];
}
}
my ($toc_file, $stoc_file);
$toc_file = $docu_toc;
$stoc_file = $docu_stoc;
if ($Texi2HTML::Config::INLINE_CONTENTS)
{
$toc_file = $content_element{'contents'}->{'file'} if (defined($content_element{'contents'}));
$stoc_file = $content_element{'shortcontents'}->{'file'} if (defined($content_element{'shortcontents'}));
}
$Texi2HTML::THISDOC{'toc_file'} = $toc_file;
$Texi2HTML::THISDOC{'stoc_file'} = $stoc_file;
print STDERR "# find NextFile and PrevFile\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
foreach my $element (@elements_list)
{
my $current_element = $element;
my $file = $current_element->{'file'};
my $previous_file;
while ($current_element->{'back'})
{
#print STDERR "Back $current_element->{'texi'}\n";
$current_element = $current_element->{'back'};
if ($current_element->{'file'} ne $file)
{
$previous_file = $current_element->{'file'};
last;
}
}
if (defined($previous_file))
{
while ($current_element->{'back'})
{
if ($current_element->{'back'}->{'file'} ne $previous_file)
{
last;
}
$current_element = $current_element->{'back'};
}
$element->{'prevfile'} = $current_element;
}
$current_element = $element;
while ($current_element->{'forward'})
{
#print STDERR "Fwd $current_element->{'texi'}\n";
$current_element = $current_element->{'forward'};
if ($current_element->{'file'} ne $file)
{
$element->{'nextfile'} = $current_element;
}
}
}
# convert directions in direction with first letter in all caps, to be
# consistent with the convention used in the .init file.
foreach my $element (@elements_list)
{
foreach my $direction (@element_directions)
{
my $direction_no_caps = $direction;
$direction_no_caps =~ tr/A-Z/a-z/;
$element->{$direction} = $element->{$direction_no_caps};
}
}
########################### debug prints
foreach my $file (keys(%files))
{
last unless ($T2H_DEBUG & $DEBUG_ELEMENTS);
print STDERR "$file: counter $files{$file}->{'counter'}\n";
}
my $output_elements = \@elements_list;
if (!scalar(@elements_list) and ($T2H_DEBUG & $DEBUG_ELEMENTS))
{
print STDERR "No elements_list, no texi2html elements\n";
$output_elements = \@all_elements;
}
foreach my $element ((@$output_elements, $footnote_element))
{
last unless ($T2H_DEBUG & $DEBUG_ELEMENTS);
my $is_toplevel = 'not toplevel';
$is_toplevel = 'toplevel' if ($element->{'toplevel'});
print STDERR "$element ";
if ($element->{'node'})
{
print STDERR "node($element->{'id'}, $is_toplevel, doc_nr $element->{'doc_nr'}($element->{'file'})) $element->{'texi'}:\n";
print STDERR " section_ref: $element->{'section_ref'}->{'texi'}\n" if (defined($element->{'section_ref'}));
print STDERR " with_section: $element->{'with_section'}->{'texi'}\n" if (defined($element->{'with_section'}));
}
elsif ($element->{'footnote'})
{
print STDERR "footnotes($element->{'id'}, file $element->{'file'})\n";
}
else
{
my $number = "UNNUMBERED";
$number = $element->{'number'} if ($element->{'number'});
print STDERR "$number ($element->{'id'}, $is_toplevel, level $element->{'level'}-$element->{'toc_level'}, doc_nr $element->{'doc_nr'}($element->{'file'})) $element->{'texi'}:\n";
print STDERR " with_node: $element->{'with_node'}->{'texi'}\n" if (defined($element->{'with_node'}));
print STDERR " node_ref: $element->{'node_ref'}->{'texi'}\n" if (defined($element->{'node_ref'}));
}
if (!$element->{'footnote'})
{
if (!defined($files{$element->{'file'}}))
{
die "Bug: files{\$element->{'file'}} undef element $element->{'texi'}, file $element->{'file'}.";
}
print STDERR " file: $element->{'file'} $files{$element->{'file'}}, counter $files{$element->{'file'}}->{'counter'}\n";
}
print STDERR " level: $element->{'level'}\n" if (defined($element->{'level'}));
print STDERR " TOP($toplevel) " if ($element->{'top'});
print STDERR " u: $element->{'up'}->{'texi'}\n" if (defined($element->{'up'}));
print STDERR " ch: $element->{'child'}->{'texi'}\n" if (defined($element->{'child'}));
print STDERR " fb: $element->{'fastback'}->{'texi'}\n" if (defined($element->{'fastback'}));
print STDERR " b: $element->{'back'}->{'texi'}\n" if (defined($element->{'back'}));
print STDERR " p: $element->{'prev'}->{'texi'}\n" if (defined($element->{'prev'}));
print STDERR " u: $element->{'sectionup'}->{'texi'}\n" if (defined($element->{'sectionup'}));
print STDERR " n: $element->{'sectionnext'}->{'texi'}\n" if (defined($element->{'sectionnext'}));
print STDERR " t_n: $element->{'toplevelnext'}->{'texi'}\n" if (defined($element->{'toplevelnext'}));
print STDERR " t_p: $element->{'toplevelprev'}->{'texi'}\n" if (defined($element->{'toplevelprev'}));
print STDERR " n_u: $element->{'nodeup'}->{'texi'}\n" if (defined($element->{'nodeup'}));
print STDERR " f: $element->{'forward'}->{'texi'}\n" if (defined($element->{'forward'}));
print STDERR " follow: $element->{'following'}->{'texi'}\n" if (defined($element->{'following'}));
print STDERR " m_p: $element->{'menu_prev'}->{'texi'}\n" if (defined($element->{'menu_prev'}));
print STDERR " m_n: $element->{'menu_next'}->{'texi'}\n" if (defined($element->{'menu_next'}));
print STDERR " m_u: $element->{'menu_up'}->{'texi'}\n" if (defined($element->{'menu_up'}));
print STDERR " m_ch: $element->{'menu_child'}->{'texi'}\n" if (defined($element->{'menu_child'}));
print STDERR " ff: $element->{'fastforward'}->{'texi'}\n" if (defined($element->{'fastforward'}));
print STDERR " n_f: $element->{'nextfile'}->{'texi'}\n" if (defined($element->{'nextfile'}));
print STDERR " p_f: $element->{'prevfile'}->{'texi'}\n" if (defined($element->{'prevfile'}));
my $section_childs = '';
if (defined($element->{'section_childs'}))
{
foreach my $child (@{$element->{'section_childs'}})
{
$section_childs .= "$child->{'texi'}|";
}
}
print STDERR " s_chs: $section_childs\n" if ($section_childs ne '');
my $node_childs = '';
if (defined($element->{'node_childs'}))
{
foreach my $child (@{$element->{'node_childs'}})
{
$node_childs .= "$child->{'texi'}|";
}
}
print STDERR " n_chs: $node_childs\n" if ($node_childs ne '');
if (defined($element->{'menu_up_hash'}))
{
print STDERR " parent nodes:\n";
foreach my $menu_up (keys%{$element->{'menu_up_hash'}})
{
print STDERR " $menu_up ($element->{'menu_up_hash'}->{$menu_up})\n";
}
}
print STDERR " places: $element->{'place'}\n";
foreach my $place(@{$element->{'place'}})
{
if (!$place->{'entry'} and !$place->{'float'} and !$place->{'texi'} and !$place->{'contents'} and !$place->{'shortcontents'} and (!defined($place->{'command'} or $place->{'command'} ne 'printindex')))
{
print STDERR "BUG: unknown placed stuff ========\n";
foreach my $key (keys(%$place))
{
print STDERR "$key: $place->{$key}\n";
}
print STDERR "==================================\n";
}
elsif ($place->{'entry'})
{
print STDERR " index($place): $place->{'entry'} ($place->{'id'}, $place->{'file'})\n";
}
elsif ($place->{'anchor'})
{
print STDERR " anchor: $place->{'texi'} ($place->{'id'}, $place->{'file'})\n";
}
elsif ($place->{'float'})
{
if (defined($place->{'texi'}))
{
print STDERR " float($place): $place->{'texi'} ($place->{'id'}, $place->{'file'})\n";
}
else
{
print STDERR " float($place): NO LABEL ($place->{'id'}, $place->{'file'})\n";
}
}
elsif ($place->{'contents'})
{
print STDERR " contents\n";
}
elsif ($place->{'shortcontents'})
{
print STDERR " shortcontents\n";
}
elsif (defined($place->{'command'}) and $place->{'command'} eq 'printindex')
{
print STDERR " printindex $place->{'name'}\n";
}
else
{
print STDERR " heading: $place->{'texi'} ($place->{'id'}, $place->{'file'})\n";
}
}
}
########################### end debug prints
}
sub add_file($)
{
my $file = shift;
if ($files{$file})
{
$files{$file}->{'counter'}++;
}
else
{
$files{$file} = {
'counter' => 1,
'relative_foot_num' => 0,
'foot_lines' => []
};
}
}
# find parent element which is a toplevel element
sub get_top($)
{
my $element = shift;
if ($element->{'node'})
{
if (defined($element->{'section_ref'}))
{
$element = $element->{'section_ref'};
}
else
{
return undef;
}
}
return undef if ($element eq $element_before_anything);
my $up = $element;
while (!$up->{'toplevel'} and $up->{'tag'} ne 'top')
{
if (!defined($up->{'sectionup'}))
{
# If there is no section, it is normal not to have toplevel element,
# and it is also the case if there is a low level element before
# a top level element
return undef;
}
$up = $up->{'sectionup'};
}
return $up;
}
sub get_node($)
{
my $element = shift;
return undef if (!defined($element));
return $element if ($element->{'node'});
return $element->{'with_node'} if ($element->{'with_node'});
}
sub do_section_names($$)
{
my $number = shift;
my $section = shift;
my $texi = &$Texi2HTML::Config::heading_texi($section->{'tag'}, $section->{'texi'}, $section->{'number'});
$section->{'text'} = substitute_line($texi, "\@$section->{'tag'}", undef, $section->{'line_nr'});
# no need for translation since there is no line number it should never
# appear in error messages.
$section->{'text_nonumber'} = substitute_line($section->{'texi'}, "\@$section->{'tag'} no number");
# backward compatibility
# Removed from doc in nov 2009
$section->{'name'} = $section->{'text_nonumber'};
$section->{'no_texi'} = remove_texi($texi);
$section->{'simple_format'} = simple_format(undef,undef,"\@$section->{'tag'} simple_format", $texi);
$section->{'heading_texi'} = $texi;
}
# get the html names from the texi for all elements
sub do_names()
{
print STDERR "# Doing ". scalar(keys(%nodes)) . " nodes, ".
scalar(keys(%sections)) . " sections, " .
scalar(keys(%headings)) . " headings in ". $#elements_list .
" elements\n" if ($T2H_DEBUG);
# for nodes and anchors we haven't any state defined
# This seems right, however, as we don't want @refs or @footnotes
# or @anchors within nodes, section commands or anchors.
$global_pass = '2 node names';
foreach my $node (keys(%nodes))
{
my $texi = &$Texi2HTML::Config::heading_texi($nodes{$node}->{'tag'},
$nodes{$node}->{'texi'}, undef);
my $command = 'node';
$command = $nodes{$node}->{'tag'} if ($nodes{$node}->{'tag'});
$nodes{$node}->{'text'} = substitute_line ($texi, "\@$command", {'code_style' => 1}, $nodes{$node}->{'line_nr'});
$nodes{$node}->{'text_nonumber'} = $nodes{$node}->{'text'};
# backward compatibility -> maybe used to have the name without code_style ?
# Removed from doc in nov 2009
$nodes{$node}->{'name'} = substitute_line($texi, "\@$command name");
$nodes{$node}->{'no_texi'} = remove_texi($texi);
$nodes{$node}->{'simple_format'} = simple_format(undef, undef, "\@$command simple_format", $texi);
$nodes{$node}->{'heading_texi'} = $texi;
################# debug
# if $nodes{$node}->{'external_node'} and $nodes{$node}->{'seen'}
# this is a bug, since there are checks that the node hasn't an
# external node syntax.
msg_debug ("$nodes{$node}->{'texi'} is external and was seen", $nodes{$node}->{'line_nr'}) if ($nodes{$node}->{'seen'} and $nodes{$node}->{'external_node'});
################# end debug
}
$global_pass = '2 section names';
foreach my $number (keys(%sections))
{
do_section_names($number, $sections{$number});
}
$global_pass = '2 heading names';
foreach my $number (keys(%headings))
{
do_section_names($number, $headings{$number});
}
print STDERR "# Names done\n" if ($T2H_DEBUG);
}
#+++############################################################################
# #
# Stuff related to Index generation #
# #
#---############################################################################
# called during pass_structure
sub enter_index_entry($$$$$)
{
my $prefix = shift;
my $line_nr = shift;
my $entry = shift;
my $command = shift;
my $state = shift;
my $heading_element = $state->{'heading_element'};
my $current_element = $state->{'current_element'};
my $place = $state->{'place'};
my $region = $state->{'region'};
my $index_name = $index_prefix_to_name{$prefix};
if (!defined($index_name))
{
line_error (sprintf(__("Unknown index `%s'"), $prefix), $line_nr);
}
if ($current_element eq $element_before_anything)
{
#line_warn ("Index entry before document: \@${prefix}index $entry", $line_nr);
line_error (sprintf(__("Entry for index `%s' outside of any node"), $index_name), $line_nr);
}
$entry = trim_comment_spaces ($entry, "index entry in \@$command", $line_nr);
# beware that the texinfo could be non empty, but the no_texi be empty.
# So the $no_texi should be used to determine whether the entry is
# empty or not.
my $no_texi = remove_texi($entry);
my $id;
# don't add a specific index target if the index entry is in a special
# region like @copying or the like or the index is not defined
if (!defined($region))
{
$region = 'document';
# No id if the index is unknown.
$id = 'IDX' . ++$document_idx_num if (defined($index_name));
}
my $target = $id;
# entry will later be in @code for code-like index entry. texi stays
# the same.
my $index_entry = {
'entry' => $entry,
'texi' => $entry,
'element' => $heading_element,
'real_element' => $current_element,
'prefix' => $prefix,
'id' => $id,
'target' => $target,
'command' => $command,
'region' => $state->{'region'},
'line_nr' => $line_nr,
'index_name' => $index_name
};
my $id_text = $id;
$id_text = 'NO ID' if (!defined($id));
print STDERR "# in $region enter \@$command ${prefix}index($no_texi) [$entry] with id $id_text ($index_entry)\n"
if ($T2H_DEBUG & $DEBUG_INDEX);
$index_entry->{'entry'} = '@code{'.$index_entry->{'entry'}.'}'
if (defined($index_name) and
defined($index_names{$index_name}->{'prefixes'}) and
$index_names{$index_name}->{'prefixes'}->{$prefix}
and $no_texi =~ /\S/);
push @$place, $index_entry;
#msg_debug("enter_index_entry: region $region, index_entry $index_entry, \@$command, texi `$entry'", $line_nr);
# don't add the index entry to the list of index entries used for index
# entry formatting, if the index entry appears in a region like copying
# currently this is only used for debugging purposes, since the
# index entries lists are broken by region now.
push @index_labels, $index_entry unless (defined($state->{'region'}));
# these lists are used to retrieve index entries in pass 3
push @{$Texi2HTML::THISDOC{'index_entries'}->{$region}->{$entry}->{'entries'}}, $index_entry;
if (defined($index_name))
{
# this is used for @printindex
push @{$Texi2HTML::THISDOC{'index_entries_array'}->{$index_name}}, $index_entry;
# this is used for targets
push @{$Texi2HTML::THISDOC{'index_entries_region_array'}->{$region}}, $index_entry;
}
else
{
push @unknown_index_index_entries, $index_entry;
}
}
# these variables are global, so great care should be taken with
# state->{'multiple_state'}, ->{'region'}, ->{'region_pass'} and
# {'outside_document'}.
my $global_head_num = 0; # heading index. it is global for the main doc,
# and taken from the state if in multiple_pass.
my $global_foot_num = 0;
my $global_relative_foot_num = 0;
my @foot_lines = (); # footnotes
my $copying_comment = ''; # comment constructed from text between
# @copying and @end copying with licence
my %acronyms_like = (); # acronyms or similar commands associated texts
# the key are the commands, the values are
# hash references associating shorthands to
# texts.
# detailmenu number of opened detailed menus
sub fill_state($)
{
my $state = shift;
foreach my $key ('preformatted', 'code_style', 'math_style', 'keep_texi',
'keep_nr', 'detailmenu', 'direntry', 'sec_num', 'menu', 'multiple_pass')
{
$state->{$key} = 0 unless exists($state->{$key});
}
$state->{'paragraph_style'} = [ '' ] unless exists($state->{'paragraph_style'});
$state->{'preformatted_stack'} = [ '' ] unless exists($state->{'preformatted_stack'});
$state->{'command_stack'} = [] unless exists($state->{'command_stack'});
$state->{'quotation_stack'} = [] unless exists($state->{'quotation_stack'});
# if there is no $state->{'element'} the first element is used
if ((!$state->{'element'} or $state->{'element'}->{'before_anything'}) and (@elements_list))
{
$state->{'element'} = $elements_list[0];
}
# this is consistent with what is done in rearrange_elements
$state->{'element'} = {'file' => $docu_doc, 'texi' => 'VIRTUAL ELEMENT'} if (!$state->{'element'});
}
sub do_element_directions ($)
{
my $this_element = shift;
#print STDERR "Doing hrefs for $this_element->{'texi'} First ";
$Texi2HTML::HREF{'First'} = href($element_first, $this_element->{'file'});
#print STDERR "Last ";
$Texi2HTML::HREF{'Last'} = href($element_last, $this_element->{'file'});
#print STDERR "Index ";
$Texi2HTML::HREF{'Index'} = href($element_chapter_index, $this_element->{'file'}) if (defined($element_chapter_index));
#print STDERR "Top ";
$Texi2HTML::HREF{'Top'} = href($element_top, $this_element->{'file'});
if ($Texi2HTML::Config::INLINE_CONTENTS)
{
$Texi2HTML::HREF{'Contents'} = href($content_element{'contents'}, $this_element->{'file'});
$Texi2HTML::HREF{'Overview'} = href($content_element{'shortcontents'}, $this_element->{'file'});
}
else
{
$Texi2HTML::HREF{'Contents'} = file_target_href($Texi2HTML::THISDOC{'toc_file'}, $this_element->{'file'}, $content_element{'contents'}->{'target'}) if (@{$Texi2HTML::TOC_LINES} and defined($content_element{'contents'}));
$Texi2HTML::HREF{'Overview'} = file_target_href($Texi2HTML::THISDOC{'stoc_file'}, $this_element->{'file'}, $content_element{'shortcontents'}->{'target'}) if (@{$Texi2HTML::OVERVIEW} and defined($content_element{'shortcontents'}));
}
if ($Texi2HTML::THISDOC{'do_about'})
{
$Texi2HTML::HREF{'About'} = file_target_href($docu_about, $this_element->{'file'}, $Texi2HTML::Config::misc_pages_targets{'About'});
}
$Texi2HTML::HREF{'Footnotes'} = file_target_href($docu_foot, $this_element->{'file'}, $Texi2HTML::Config::misc_pages_targets{'Footnotes'});
foreach my $direction (@element_directions)
{
my $elem = $this_element->{$direction};
$Texi2HTML::NODE{$direction} = undef;
$Texi2HTML::HREF{$direction} = undef;
$Texi2HTML::NAME{$direction} = undef;
#print STDERR "$direction \n";
next unless (defined($elem));
if ($elem->{'node'} or $elem->{'external_node'} or !$elem->{'seen'})
{
$Texi2HTML::NODE{$direction} = $elem->{'text'};
}
elsif ($elem->{'with_node'})
{
$Texi2HTML::NODE{$direction} = $elem->{'with_node'}->{'text'};
}
if (!$elem->{'seen'})
{
$Texi2HTML::HREF{$direction} = do_external_href($elem->{'texi'});
}
else
{
$Texi2HTML::HREF{$direction} = href($elem, $this_element->{'file'});
}
$Texi2HTML::NAME{$direction} = $elem->{'text'};
$Texi2HTML::NO_TEXI{$direction} = $elem->{'no_texi'};
$Texi2HTML::SIMPLE_TEXT{$direction} = $elem->{'simple_format'};
#print STDERR "$direction ($this_element->{'texi'}): \n NO_TEXI: $Texi2HTML::NO_TEXI{$direction}\n NAME $Texi2HTML::NAME{$direction}\n NODE $Texi2HTML::NODE{$direction}\n HREF $Texi2HTML::HREF{$direction}\n\n";
}
#print STDERR "\nDone hrefs for $this_element->{'texi'}\n";
}
sub open_out_file($)
{
my $new_file = shift;
my $do_page_head = 0;
# if the filehandle is closed, with fileno undef, open_out
# is called with the second argument true, which leads to opening
# the file in append mode, to avoid overwriting the previous
# file.
if ($files{$new_file}->{'filehandle'} and defined(fileno($files{$new_file}->{'filehandle'})))
{
$Texi2HTML::THISDOC{'FH'} = $files{$new_file}->{'filehandle'};
}
else
{
my $known_file = 0;
if ($files{$new_file}->{'filehandle'})
{
$known_file = 1;
document_warn ("The file $new_file was already closed and is reopened");
}
$Texi2HTML::THISDOC{'FH'} = open_out("$docu_rdir$new_file", $known_file);
#print STDERR "OPEN $docu_rdir$file, $Texi2HTML::THISDOC{'FH'}". scalar($Texi2HTML::THISDOC{'FH'})."\n";
$files{$new_file}->{'filehandle'} = $Texi2HTML::THISDOC{'FH'};
$do_page_head = !$known_file;
}
return $do_page_head;
}
sub set_line_nr_in_stack($$$)
{
my $state = shift;
my $stack = shift;
my $line_nr = shift;
if ($state->{'keep_texi'} and defined($line_nr))
{
my $stack_index = $#$stack;
while ($stack_index >= 0 and defined($stack->[$stack_index]->{'keep_line_nr'}))
{
push @{$stack->[$stack_index]->{'keep_line_nr'}}, $line_nr;
$stack_index --;
}
}
}
sub unref_file($)
{
my $file = shift;
$files{$file}->{'counter'}--;
print STDERR "# Unref file $file, remaining counter $files{$file}->{'counter'}\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
}
sub pass_text($$)
{
my $doc_lines = shift;
my $doc_numbers = shift;
my %state;
fill_state(\%state);
my @stack;
my $text = '';
my $doc_nr;
my $in_doc = 0;
my @text =();
my $one_section = 1 if (@elements_list <= 1);
push_state(\%state);
$global_pass = '3 prepare names';
set_special_names();
$footnote_element->{'text'} = $Texi2HTML::NAME{'Footnotes'};
# We set titlefont only if the titlefont appeared in the top element
if (defined($element_top->{'titlefont'}))
{
$Texi2HTML::THISDOC{'titlefont_texi'} = $element_top->{'titlefont'};
# backward compatibility nov 2009
$value{'_titlefont'} = $element_top->{'titlefont'};
}
# prepare %Texi2HTML::THISDOC
$Texi2HTML::THISDOC{'command_stack'} = $state{'command_stack'};
#foreach my $texi_cmd (('shorttitlepage', 'settitle', 'author', 'title',
# 'subtitle'))
#{
# $Texi2HTML::THISDOC{$texi_cmd . '_texi'} = $value{'_' . $texi_cmd};
#}
$Texi2HTML::THISDOC{'top_texi'} = $section_top->{'texi'} if (defined($section_top));
$Texi2HTML::THISDOC{'fulltitle_texi'} = '';
foreach my $possible_fulltitle('settitle', 'title', 'shorttitlepage', 'top', 'titlefont')
{
if (defined($Texi2HTML::THISDOC{$possible_fulltitle . '_texi'}) and $Texi2HTML::THISDOC{$possible_fulltitle . '_texi'} =~ /\S/)
{
$Texi2HTML::THISDOC{'fulltitle_texi'} = $Texi2HTML::THISDOC{$possible_fulltitle . '_texi'};
last;
}
}
$Texi2HTML::THISDOC{'simpletitle_texi'} = '';
foreach my $possible_simpletitle('settitle', 'shorttitlepage')
{
if (defined($Texi2HTML::THISDOC{$possible_simpletitle . '_texi'}) and $Texi2HTML::THISDOC{$possible_simpletitle . '_texi'} =~ /\S/)
{
$Texi2HTML::THISDOC{'simpletitle_texi'} = $Texi2HTML::THISDOC{$possible_simpletitle . '_texi'};
last;
}
}
foreach my $doc_thing (('shorttitlepage', 'settitle', 'author',
'titlefont', 'subtitle', 'title', 'fulltitle', 'simpletitle'))
{
my $thing_texi = $Texi2HTML::THISDOC{$doc_thing . '_texi'};
$Texi2HTML::THISDOC{$doc_thing} = substitute_line($thing_texi, "\@$doc_thing", undef, $Texi2HTML::THISDOC{$doc_thing . '_line_nr'});
$Texi2HTML::THISDOC{$doc_thing . '_no_texi'} =
remove_texi($thing_texi);
$Texi2HTML::THISDOC{$doc_thing . '_simple_format'} =
simple_format(undef, undef, "simple_format \@$doc_thing", $thing_texi);
}
# find the triplet (Top name, Top with texi removed, Top simply formatted)
# the corresponding href is used a lot but these are only used because
# they are used in LINKS_BUTTONS...
my $element_top_Top = [undef,undef,undef];
my $node_top_Top = [undef,undef,undef];
# Preferred Top name is the element_top name if it is not the @node Top
# the @node Top may also be used, but before fulltitle is tried
if (defined($element_top))
{
if ($element_top->{'node'} and $element_top->{'texi'} =~ /^Top$/i)
{
$node_top_Top = [ $element_top->{'text'}, $element_top->{'no_texi'}, $element_top->{'simple_format'} ];
}
else
{
$element_top_Top = [ $element_top->{'text'}, $element_top->{'no_texi'}, $element_top->{'simple_format'} ];
}
}
# FIXME remove fulltitle?
foreach my $possible_top (
[substitute_line($Texi2HTML::Config::TOP_HEADING, '$TOP_HEADING'),
remove_texi($Texi2HTML::Config::TOP_HEADING),
simple_format(undef, undef, 'simple_format $TOP_HEADING', $Texi2HTML::Config::TOP_HEADING)],
$element_top_Top,
[$Texi2HTML::THISDOC{'fulltitle'},
$Texi2HTML::THISDOC{'fulltitle_no_texi'},
$Texi2HTML::THISDOC{'fulltitle_simple_format'}],
$node_top_Top
)
{
if (defined($possible_top->[0]) and $possible_top->[0] =~ /\S/)
{
($Texi2HTML::NAME{'Top'}, $Texi2HTML::NO_TEXI{'Top'}, $Texi2HTML::SIMPLE_TEXT{'Top'}) = @$possible_top;
last;
}
}
$Texi2HTML::THISDOC{'program'} = $THISPROG;
$Texi2HTML::THISDOC{'program_homepage'} = $T2H_HOMEPAGE;
$Texi2HTML::THISDOC{'program_authors'} = $T2H_AUTHORS;
foreach my $command (('authors', 'subtitles', 'titles'))
{
$Texi2HTML::THISDOC{$command} = [];
my $i;
for ($i = 0; $i < $#{$Texi2HTML::THISDOC{$command .'_texi'}} + 1; $i++)
{
my $texi_line = $Texi2HTML::THISDOC{$command .'_texi'}->[$i];
my $command_line_nr = $Texi2HTML::THISDOC{$command .'_line_nr'}->[$i];
chomp ($texi_line);
$Texi2HTML::THISDOC{$command}->[$i] = substitute_line($texi_line, "\@$command", undef, $command_line_nr);
#print STDERR "$command:$i: $Texi2HTML::THISDOC{$command}->[$i]\n";
}
}
$Texi2HTML::THISDOC{'do_about'} = 1 unless (defined($Texi2HTML::THISDOC{'do_about'}) or $one_section or (not Texi2HTML::Config::get_conf('SPLIT') and not Texi2HTML::Config::get_conf('headers')));
$Texi2HTML::NAME{'First'} = $element_first->{'text'};
$Texi2HTML::NAME{'Last'} = $element_last->{'text'};
$Texi2HTML::NAME{'Index'} = $element_chapter_index->{'text'} if (defined($element_chapter_index));
$Texi2HTML::NAME{'Index'} = $Texi2HTML::Config::INDEX_CHAPTER if ($Texi2HTML::Config::INDEX_CHAPTER ne '');
$Texi2HTML::NO_TEXI{'First'} = $element_first->{'no_texi'};
$Texi2HTML::NO_TEXI{'Last'} = $element_last->{'no_texi'};
$Texi2HTML::NO_TEXI{'Index'} = $element_chapter_index->{'no_texi'} if (defined($element_chapter_index));
$Texi2HTML::SIMPLE_TEXT{'First'} = $element_first->{'simple_format'};
$Texi2HTML::SIMPLE_TEXT{'Last'} = $element_last->{'simple_format'};
$Texi2HTML::SIMPLE_TEXT{'Index'} = $element_chapter_index->{'simple_format'} if (defined($element_chapter_index));
# We do the regions formatting here, even if they never appear.
# so we should be very carefull to take into accout 'outside_document' to
# avoid messing with information that has to be set in the main document.
# FIXME also the error messages will appear even though the corresponding
# texinfo is never used. Since no state is passed to the do_special_region_lines
# 'outside_document' will be true. Also 'multiple_pass' is equal to -1
# for this case.
$global_pass = '3 prepare regions';
my ($region_text, $region_no_texi, $region_simple_format);
($region_text, $region_no_texi, $region_simple_format) = do_special_region_lines('documentdescription');
&$Texi2HTML::Config::documentdescription($region_lines{'documentdescription'}, $region_text, $region_no_texi, $region_simple_format);
# do copyright notice inserted in comment at the beginning of the files
($region_text, $region_no_texi, $region_simple_format) = do_special_region_lines('copying');
$copying_comment = &$Texi2HTML::Config::copying_comment($region_lines{'copying'}, $region_text, $region_no_texi, $region_simple_format);
$Texi2HTML::THISDOC{'copying_comment'} = $copying_comment;
# must be after toc_body, but before titlepage
foreach my $command ('contents', 'shortcontents')
{
next if (!defined($content_element{$command}));
my $toc_lines = &$Texi2HTML::Config::inline_contents(undef, $command, $content_element{$command}, \@sections_list);
@{$Texi2HTML::THISDOC{'inline_contents'}->{$command}} = @$toc_lines if (defined($toc_lines));
}
($region_text, $region_no_texi, $region_simple_format) = do_special_region_lines('titlepage');
&$Texi2HTML::Config::titlepage($region_lines{'titlepage'}, $region_text, $region_no_texi, $region_simple_format);
$global_pass = '3';
&$Texi2HTML::Config::init_out();
# FIXME It is not clear whether it should be here or before
# command_handler_output calls. After, it means that
# command_handler_output may modify the initializations. Before
# it allows to look at the values from the preceding pass.
texinfo_initialization(2);
foreach my $handler(@Texi2HTML::Config::command_handler_output)
{
&$handler;
}
############################################################################
# print frame and frame toc file
#
if ( $Texi2HTML::Config::FRAMES )
{
my $FH = open_out($docu_frame_file);
print STDERR "# Creating frame in $docu_frame_file ...\n" if $T2H_VERBOSE;
&$Texi2HTML::Config::print_frame($FH, $docu_toc_frame_file, $docu_top_file);
close_out($FH, $docu_frame_file);
$FH = open_out($docu_toc_frame_file);
print STDERR "# Creating toc frame in $docu_frame_file ...\n" if $T2H_VERBOSE;
&$Texi2HTML::Config::print_toc_frame($FH, $Texi2HTML::OVERVIEW);
close_out($FH, $docu_toc_frame_file);
}
############################################################################
# Start processing the document
#
#my $FH;
my $line_nr;
my $current_file;
my $first_section = 0; # 1 if it is the first section of a page
my $previous_is_top = 0; # 1 if it is the element following the top element
my $cline;
# this is true for the state that goes through the document
$state{'inside_document'} = 1;
while (@$doc_lines)
{
$cline = shift @$doc_lines;
my $chomped_line = $cline;
if (!chomp($chomped_line) and @$doc_lines)
{ # if the line has no end of line it is concatenated with the next
# this shouldn't happen anymore. And will certainly mess up
# line counting. Let it be a bug.
msg_debug ("no end of line line passed in doc_line",$line_nr);
$doc_lines->[0] = $cline . $doc_lines->[0];
next;
}
$line_nr = shift (@$doc_numbers);
$Texi2HTML::THISDOC{'line_nr'} = $line_nr;
print STDERR "BUG: line_nr not defined in pass_text. cline: $cline" if (!defined($cline));
#dump_stack(\$text, \@stack, \%state);
# make sure the current state from here is $Texi2HTML::THIS_ELEMENT
# in case it was set by the user.
$state{'element'} = $Texi2HTML::THIS_ELEMENT if (defined($Texi2HTML::THIS_ELEMENT));
#print STDERR "PASS_TEXT($line_nr->{'line_nr'})$cline";
if (!$state{'raw'} and !$state{'verb'})
{
my $tag = '';
$tag = $1 if ($cline =~ /^\@(\w+)/);
if ($tag eq 'setfilename' and $Texi2HTML::Config::IGNORE_BEFORE_SETFILENAME)
{
if (defined($Texi2HTML::THIS_ELEMENT))
{
line_warn (sprintf(__("\@%s after the first element"), $tag), $line_nr);
}
else
{
@{$Texi2HTML::THIS_SECTION} = ();
}
}
if (($tag eq 'node') or (defined($sec2level{$tag}) and ($tag !~ /heading/)))
{
# in pass text node and section shouldn't appear in formats
#print STDERR "close_stack before \@$tag\n";
#print STDERR "text!$text%" if (! @stack);
close_stack(\$text, \@stack, \%state, $line_nr);
msg_debug ("text undef", $line_nr) if (!defined($text));
push @{$Texi2HTML::THIS_SECTION}, $text if ($text ne '');
$text = '';
$state{'sec_num'}++ if ($sec2level{$tag} and ($tag ne 'top'));
my $new_element;
my $current_element;
# handle node and structuring elements
$current_element = shift (@all_elements);
########################## begin debug section
if (!defined($current_element))
{
msg_debug ("No element left for $cline", $line_nr);
}
if ($current_element->{'node'})
{
print STDERR 'NODE ' . "$current_element->{'texi'}($current_element->{'file'})" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
print STDERR "($current_element->{'section_ref'}->{'texi'})" if ($current_element->{'section_ref'} and ($T2H_DEBUG & $DEBUG_ELEMENTS));
}
else
{
print STDERR 'SECTION ' . $current_element->{'texi'} if ($T2H_DEBUG & $DEBUG_ELEMENTS);
}
print STDERR ": $cline" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
########################## end debug section
# The element begins a new section if there is no previous
# or the reference element is not the same
if (defined($current_element->{'element_ref'}) and (!$Texi2HTML::THIS_ELEMENT or ($current_element->{'element_ref'} ne $Texi2HTML::THIS_ELEMENT)))
{
$new_element = $current_element->{'element_ref'};
########################### debug
my $old = 'NO_OLD';
$old = $Texi2HTML::THIS_ELEMENT->{'texi'} if (defined($Texi2HTML::THIS_ELEMENT));
print STDERR "NEW: $new_element->{'texi'}, OLD: $old\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
########################### end debug
# print the element that just finished
if ($Texi2HTML::THIS_ELEMENT)
{
finish_element($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT, $new_element, $first_section);
$first_section = 0;
$previous_is_top = 0 if (!$Texi2HTML::THIS_ELEMENT->{'top'});
@{$Texi2HTML::THIS_SECTION} = ();
}
else
{
print STDERR "# Writing elements:" if ($T2H_VERBOSE);
if ($Texi2HTML::Config::IGNORE_PREAMBLE_TEXT)
{
@{$Texi2HTML::THIS_SECTION} = ();
}
# remove empty for the first document lines
shift @{$Texi2HTML::THIS_SECTION} while (@{$Texi2HTML::THIS_SECTION} and ($Texi2HTML::THIS_SECTION->[0] =~ /^\s*$/));
my $title = &$Texi2HTML::Config::print_title();
unshift @{$Texi2HTML::THIS_SECTION}, $title if (defined($title) and $title ne '');
}
# begin new element
$Texi2HTML::THIS_ELEMENT = $new_element;
$state{'element'} = $Texi2HTML::THIS_ELEMENT;
do_element_directions($Texi2HTML::THIS_ELEMENT);
unref_file ($Texi2HTML::THIS_ELEMENT->{'file'});
#if (!defined($previous_file) or ($Texi2HTML::THIS_ELEMENT->{'file'} ne $previous_file))
if (!defined($current_file) or ($Texi2HTML::THIS_ELEMENT->{'file'} ne $current_file))
{
$current_file = $Texi2HTML::THIS_ELEMENT->{'file'};
print STDERR "\n" if ($T2H_VERBOSE and !$T2H_DEBUG);
print STDERR "# Writing to $docu_rdir$current_file " if $T2H_VERBOSE;
my $do_page_head = open_out_file($current_file);
if ($Texi2HTML::THIS_ELEMENT->{'top'})
{
&$Texi2HTML::Config::print_Top_header($Texi2HTML::THISDOC{'FH'}, $do_page_head);
$previous_is_top = 1;
}
else
{
&$Texi2HTML::Config::print_page_head($Texi2HTML::THISDOC{'FH'}) if ($do_page_head);
&$Texi2HTML::Config::print_chapter_header($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT) if Texi2HTML::Config::get_conf('SPLIT') eq 'chapter';
&$Texi2HTML::Config::print_section_header($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT) if Texi2HTML::Config::get_conf('SPLIT') eq 'section';
}
$first_section = 1;
}
print STDERR "." if ($T2H_VERBOSE);
print STDERR "\n" if ($T2H_DEBUG);
}
my $cmd_line = $cline;
$cmd_line =~ s/\@$tag\s*//;
######################## begin debug
msg_debug ("Element $current_element current_element->{'tag_level'} not defined", $line_nr)
if (!defined($current_element->{'tag_level'}));
msg_debug ("Element $current_element $tag ne ".var_to_str($current_element->{'tag'}), $line_nr)
if ($tag ne 'node' and (!defined($current_element->{'tag'}) or $tag ne $current_element->{'tag'}));
msg_debug ("Element $current_element ".var_to_str($current_element->{'tag'})." is not a node, but tag is a node", $line_nr)
if ($tag eq 'node' and !$current_element->{'node'});
######################## end debug
my $heading_formatted = &$Texi2HTML::Config::element_heading($current_element, $tag, $cmd_line, substitute_line($cmd_line, "\@$tag"), undef, $one_section, $current_element->{'this'}, $first_section, $current_element->{'top'}, $previous_is_top, $cline, $current_element->{'id'}, $new_element);
push @{$Texi2HTML::THIS_SECTION}, $heading_formatted if (defined($heading_formatted) and ($heading_formatted ne ''));
next;
}
}
set_line_nr_in_stack(\%state, \@stack, $line_nr);
scan_line($cline, \$text, \@stack, \%state, $line_nr);
#print STDERR "after scan_line: $cline";
#dump_stack(\$text, \@stack, \%state);
next if (@stack);
if ($text ne '')
{
push @{$Texi2HTML::THIS_SECTION}, $text;
$text = '';
}
}
# close stack at the end of pass text
close_stack(\$text, \@stack, \%state, $line_nr);
if (defined($text))
{
push @{$Texi2HTML::THIS_SECTION}, $text;
}
print STDERR "\n" if ($T2H_VERBOSE);
# if no sections, then simply print document as is
if ($one_section)
{
# may happen if there are 0 sections
if (! defined($Texi2HTML::THISDOC{'FH'}))
{
open_out_file($docu_doc);
&$Texi2HTML::Config::print_page_head($Texi2HTML::THISDOC{'FH'});
shift @{$Texi2HTML::THIS_SECTION} while (@{$Texi2HTML::THIS_SECTION} and ($Texi2HTML::THIS_SECTION->[0] =~ /^\s*$/));
my $title = &$Texi2HTML::Config::print_title();
unshift @{$Texi2HTML::THIS_SECTION}, $title if (defined($title) and $title ne '');
}
if (@foot_lines)
{
&$Texi2HTML::Config::foot_section (\@foot_lines);
push @{$Texi2HTML::THIS_SECTION}, @foot_lines;
}
print STDERR "# Write the section $Texi2HTML::THIS_ELEMENT->{'texi'}\n" if ($T2H_VERBOSE);
&$Texi2HTML::Config::one_section($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT);
close_out($Texi2HTML::THISDOC{'FH'}, $docu_doc_file);
# no misc element is done
return;
}
finish_element ($Texi2HTML::THISDOC{'FH'}, $Texi2HTML::THIS_ELEMENT, undef, $first_section);
############################################################################
# Print ToC, Overview, Footnotes
#
foreach my $direction (@element_directions)
{
$Texi2HTML::HREF{$direction} = undef;
delete $Texi2HTML::HREF{$direction};
# it is better to undef in case the references to these hash entries
# are used, as if deleted, the
# references are still refering to the old, undeleted element
# (we could do both)
$Texi2HTML::NAME{$direction} = undef;
$Texi2HTML::NO_TEXI{$direction} = undef;
$Texi2HTML::SIMPLE_TEXT{$direction} = undef;
$Texi2HTML::NODE{$direction} = undef;
$Texi2HTML::THIS_ELEMENT = undef;
}
my $about_body;
$about_body = &$Texi2HTML::Config::about_body() if (defined($Texi2HTML::Config::about_body));
# @foot_lines is emptied in finish_element if footnotestyle separate
my %misc_page_infos = (
'Footnotes' => { 'file' => $docu_foot_file,
'relative_file' => $docu_foot,
'process' => $Texi2HTML::Config::print_Footnotes,
'section' => \@foot_lines },
'Contents' => { 'file' => $docu_toc_file,
'relative_file' => $docu_toc,
'process' => $Texi2HTML::Config::print_Toc,
'section' => $Texi2HTML::TOC_LINES },
'Overview' => { 'file' => $docu_stoc_file,
'relative_file' => $docu_stoc,
'process' => $Texi2HTML::Config::print_Overview,
'section' => $Texi2HTML::OVERVIEW },
'About' => { 'file' => $docu_about_file,
'relative_file' => $docu_about,
'process' => $Texi2HTML::Config::print_About,
'section' => [$about_body] }
);
$misc_page_infos{'Footnotes'}->{'do'} = 1 if (@foot_lines);
$misc_page_infos{'Contents'}->{'do'} = 1 if
(@{$Texi2HTML::TOC_LINES} and !$Texi2HTML::Config::INLINE_CONTENTS and (!Texi2HTML::Config::get_conf('setcontentsaftertitlepage') or !$Texi2HTML::Config::USE_TITLEPAGE_FOR_TITLE));
$misc_page_infos{'Overview'}->{'do'} = 1 if
(@{$Texi2HTML::OVERVIEW} and !$Texi2HTML::Config::INLINE_CONTENTS and (!Texi2HTML::Config::get_conf('setshortcontentsaftertitlepage') or !$Texi2HTML::Config::USE_TITLEPAGE_FOR_TITLE));
$misc_page_infos{'About'}->{'do'} = 1 if ($about_body and $Texi2HTML::THISDOC{'do_about'});
foreach my $misc_page('Footnotes', 'Contents', 'Overview', 'About')
{
next unless ($misc_page_infos{$misc_page}->{'do'});
my $file = $misc_page_infos{$misc_page}->{'file'};
my $relative_file = $misc_page_infos{$misc_page}->{'relative_file'};
print STDERR "# writing $misc_page in $file\n" if $T2H_VERBOSE;
my $saved_FH;
my $open_new = 0;
if ($relative_file ne $docu_doc)
{
$saved_FH = $Texi2HTML::THISDOC{'FH'};
# Use open_out_file not to overwrite a file that the user would have
# created
open_out_file ($relative_file);
print STDERR "# Opening $file for $misc_page\n" if $T2H_VERBOSE;
$open_new = 1;
}
else
{
print STDERR "# writing $misc_page in current file\n" if $T2H_VERBOSE;
}
foreach my $href_page (keys(%misc_page_infos))
{
$Texi2HTML::HREF{$href_page} = file_target_href(
$misc_page_infos{$href_page}->{'relative_file'}, $relative_file,
$Texi2HTML::Config::misc_pages_targets{$href_page})
if ($misc_page_infos{$href_page}->{'do'});
}
#print STDERR "Doing hrefs for $misc_page First ";
$Texi2HTML::HREF{'First'} = href($element_first, $relative_file);
#print STDERR "Last ";
$Texi2HTML::HREF{'Last'} = href($element_last, $relative_file);
#print STDERR "Index ";
$Texi2HTML::HREF{'Index'} = href($element_chapter_index, $relative_file) if (defined($element_chapter_index));
#print STDERR "Top ";
$Texi2HTML::HREF{'Top'} = href($element_top, $relative_file);
if ($Texi2HTML::Config::INLINE_CONTENTS)
{
$Texi2HTML::HREF{'Contents'} = href($content_element{'contents'}, $relative_file);
$Texi2HTML::HREF{'Overview'} = href($content_element{'shortcontents'}, $relative_file);
}
$Texi2HTML::HREF{$misc_page} = '#' . $Texi2HTML::Config::misc_pages_targets{$misc_page};
$Texi2HTML::HREF{'This'} = $Texi2HTML::HREF{$misc_page};
$Texi2HTML::NAME{'This'} = $Texi2HTML::NAME{$misc_page};
$Texi2HTML::NO_TEXI{'This'} = $Texi2HTML::NO_TEXI{$misc_page};
$Texi2HTML::SIMPLE_TEXT{'This'} = $Texi2HTML::SIMPLE_TEXT{$misc_page};
$Texi2HTML::THIS_SECTION = $misc_page_infos{$misc_page}->{'section'}
if defined($misc_page_infos{$misc_page}->{'section'});
&{$misc_page_infos{$misc_page}->{'process'}}($Texi2HTML::THISDOC{'FH'}, $open_new, $misc_page);
if ($open_new)
{
close_out($Texi2HTML::THISDOC{'FH'}, $file);
$Texi2HTML::THISDOC{'FH'} = $saved_FH;
}
}
unless (Texi2HTML::Config::get_conf('SPLIT'))
{
&$Texi2HTML::Config::print_page_foot($Texi2HTML::THISDOC{'FH'});
# this leaves the possibility for external code to close the file
# without erroring out
close_out ($Texi2HTML::THISDOC{'FH'}, $docu_doc_file) if (fileno($Texi2HTML::THISDOC{'FH'}));
}
pop_state();
}
# print section, close file if needed.
sub finish_element($$$$)
{
my $FH = shift;
my $element = shift;
my $new_element = shift;
my $first_section = shift;
#print STDERR "FINISH_ELEMENT($FH)($element->{'texi'})[$element->{'file'}] counter $files{$element->{'file'}}->{'counter'}\n";
# handle foot notes
if (Texi2HTML::Config::get_conf('SPLIT') and scalar(@foot_lines)
and (Texi2HTML::Config::get_conf('footnotestyle') eq 'end')
and (! $new_element or
($element and ($new_element->{'file'} ne $element->{'file'})))
)
{
if ($files{$element->{'file'}}->{'counter'})
{# there are other elements in that page we are not on its foot
$files{$element->{'file'}}->{'relative_foot_num'}
= $global_relative_foot_num;
push @{$files{$element->{'file'}}->{'foot_lines'}},
@foot_lines;
}
else
{# we output the footnotes as we are at the file end
unshift @foot_lines, @{$files{$element->{'file'}}->{'foot_lines'}};
&$Texi2HTML::Config::foot_section (\@foot_lines);
push @{$Texi2HTML::THIS_SECTION}, @foot_lines;
}
if ($new_element)
{
$global_relative_foot_num =
$files{$new_element->{'file'}}->{'relative_foot_num'};
}
@foot_lines = ();
}
if ($element->{'top'})
{
############### debug
#print STDERR "TOP $element->{'texi'}, @{$Texi2HTML::THIS_SECTION}\n";
die "element->{'top'} $element ne element_top $element_top" if ($element ne $element_top);
print STDERR "# Doing element top\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
print STDERR "[Top]" if ($T2H_VERBOSE);
############### end debug
&$Texi2HTML::Config::print_Top($FH, $element->{'titlefont'}, $element);
my $end_page = 0;
if (Texi2HTML::Config::get_conf('SPLIT'))
{
if ($files{$element->{'file'}}->{'counter'} == 0)
{
$end_page = 1;
}
}
&$Texi2HTML::Config::print_Top_footer($FH, $end_page, $element);
close_out($FH, $docu_top_file) if ($end_page);
}
else
{
print STDERR "# do element $element->{'texi'}\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
&$Texi2HTML::Config::print_section($FH, $first_section, 0, $element);
################# debug
my $new_elem_file = 'NO ELEM => no file';
$new_elem_file = $new_element->{'file'} if (defined($new_element));
print STDERR "# FILES new: $new_elem_file old(".fileno($FH)."): $element->{'file'}\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
################# end debug
if (defined($new_element) and ($new_element->{'file'} ne $element->{'file'}))
{
print STDERR "# End of section with change in file(".fileno($FH).") $element->{'file'} -> $new_element->{'file'}\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
if (!$files{$element->{'file'}}->{'counter'})
{
&$Texi2HTML::Config::print_chapter_footer($FH, $element) if (Texi2HTML::Config::get_conf('SPLIT') eq 'chapter');
&$Texi2HTML::Config::print_section_footer($FH, $element) if (Texi2HTML::Config::get_conf('SPLIT') eq 'section');
print STDERR "# Close file(".fileno($FH).") after $element->{'texi'}\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
&$Texi2HTML::Config::print_page_foot($FH);
close_out($FH, "$docu_rdir$element->{'file'}");
}
else
{
print STDERR "# Counter $files{$element->{'file'}}->{'counter'} ne 0, file(".fileno($FH).") $element->{'file'}\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
}
}
elsif (!defined($new_element))
{
print STDERR "# End of last section, file(".fileno($FH).") $element->{'file'}, counter $files{$element->{'file'}}->{'counter'}\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
if (Texi2HTML::Config::get_conf('SPLIT'))
{ # end of last splitted section
&$Texi2HTML::Config::print_chapter_footer($FH, $element) if (Texi2HTML::Config::get_conf('SPLIT') eq 'chapter');
&$Texi2HTML::Config::print_section_footer($FH, $element) if (Texi2HTML::Config::get_conf('SPLIT') eq 'section');
&$Texi2HTML::Config::print_page_foot($FH);
close_out($FH, "$docu_rdir$element->{'file'}");
}
else
{ # end of last unsplit section
&$Texi2HTML::Config::end_section($FH, 1, $element);
}
}
elsif ($new_element->{'top'})
{
print STDERR "# Section followed by Top, file(".fileno($FH).") counter $files{$element->{'file'}}->{'counter'}\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
&$Texi2HTML::Config::end_section($FH, 1, $element);
}
else
{ # end of section followed by another one
print STDERR "# Section followed by another one, file(".fileno($FH).") counter $files{$element->{'file'}}->{'counter'}\n"
if ($T2H_DEBUG & $DEBUG_ELEMENTS);
&$Texi2HTML::Config::end_section($FH, 0, $element);
}
}
}
# write to files with name the node name for cross manual references.
sub do_node_files()
{
foreach my $key (keys(%nodes))
{
my $node = $nodes{$key};
next unless ($node->{'node_file'});
my $redirection_file = $docu_doc;
$redirection_file = $node->{'file'} if (Texi2HTML::Config::get_conf('SPLIT'));
if (!$redirection_file)
{
print STDERR "Bug: file for redirection for `$node->{'texi'}' don't exist\n" unless (Texi2HTML::Config::get_conf('novalidate') or !$node->{'seen'});
next;
}
next if ($redirection_file eq $node->{'node_file'});
my $file = "${docu_rdir}$node->{'node_file'}";
$Texi2HTML::NODE{'This'} = $node->{'text'};
$Texi2HTML::NO_TEXI{'This'} = $node->{'no_texi'};
$Texi2HTML::SIMPLE_TEXT{'This'} = $node->{'simple_format'};
$Texi2HTML::NAME{'This'} = $node->{'text'};
my $href_file = $node->{'file'};
if (!defined($href_file))
{
if (Texi2HTML::Config::get_conf('novalidate'))
{
$href_file = '';
}
else
{
msg_debug ("Undefined file for `$node->{'texi'}' in do_node_files");
}
}
$Texi2HTML::HREF{'This'} = "$href_file#$node->{'id'}";
my $redirect = &$Texi2HTML::Config::print_redirection_page ();
if (defined($redirect))
{
my $NODEFILE = open_out ($file);
print $NODEFILE "$redirect";
close $NODEFILE || document_error ("Can't close $file: $!", 1);
}
}
}
#+++############################################################################
# #
# Low level functions #
# #
#---############################################################################
sub locate_include_file($)
{
my $file = shift;
# APA: Don't implicitely search ., to conform with the docs!
# if file begins with /, ./ or ../ don't search in -I (Karl)
if ($file =~ m,^(/|\./|\.\./),)
{
return "$file" if (-e "$file" && -r "$file");
return undef;
}
foreach my $dir (@Texi2HTML::Config::INCLUDE_DIRS)
{
return "$dir/$file" if (-e "$dir/$file" && -r "$dir/$file");
}
return undef;
}
sub open_file($$$)
{
my $name = shift;
# my $line_number = shift;
my $macro = shift;
my $files_stack = shift;
my $line_number;
my $input_spool;
local *FH;
if (open(*FH, "<$name"))
{
my $in_encoding = Texi2HTML::Config::get_conf('IN_ENCODING');
if (defined($in_encoding) and $Texi2HTML::Config::USE_UNICODE)
{
binmode(*FH, ":encoding($in_encoding)");
}
my $file = { 'fh' => *FH,
'input_spool' => { 'spool' => [],
'macro' => '' },
'name' => $name,
'line_nr' => 0 };
unshift(@$files_stack, $file);
$input_spool = $file->{'input_spool'};
$line_number->{'file_name'} = $name;
$line_number->{'line_nr'} = 1;
$line_number->{'macro'} = $macro;
}
else
{
document_error ("Can't read file $name: $!", 1);
}
return ($line_number, $input_spool);
}
my %filehandles = ();
sub open_out($;$)
{
my $file = shift;
my $append = shift;
local *FILE;
#print STDERR "open_out $file $Texi2HTML::THISDOC{'OUT_ENCODING'}\n";
if ($file eq '-')
{
binmode(STDOUT, ":encoding($Texi2HTML::THISDOC{'OUT_ENCODING'})") if (defined($Texi2HTML::THISDOC{'OUT_ENCODING'}) and $Texi2HTML::Config::USE_UNICODE);
return \*STDOUT;
}
my $mode = '>';
$mode = '>>' if ($append);
unless (open(FILE, $mode, $file))
{
document_error ("could not open $file for writing: $!", 1);
}
push @opened_files, $file;
if (defined($Texi2HTML::THISDOC{'OUT_ENCODING'}) and $Texi2HTML::Config::USE_UNICODE)
{
if ($Texi2HTML::THISDOC{'OUT_ENCODING'} eq 'utf8' or $Texi2HTML::THISDOC{'OUT_ENCODING'} eq 'utf-8-strict')
{
binmode(FILE, ':utf8');
}
else
{
binmode(FILE, ':bytes');
#binmode(FILE, ":encoding($Texi2HTML::THISDOC{'OUT_ENCODING'})");
}
# FIXME is it useful when in utf8?
binmode(FILE, ":encoding($Texi2HTML::THISDOC{'OUT_ENCODING'})");
}
$file =~ s/^(\.[\/]+)*//;
$filehandles{fileno(*FILE)} = $file;
return *FILE;
}
sub close_out($$)
{
my $FH = shift;
my $file = shift;
return if (defined($file) and $file eq '-');
$file =~ s/^(\.[\/]+)*//;
my $fileno = fileno($FH);
#print STDERR "close_out $file $fileno\n";
if (!defined($fileno))
{
msg_debug("fileno not defined for $file")
}
elsif (defined($filehandles{$fileno}) and $filehandles{$fileno} ne $file)
{
#msg_debug("filehandles{$fileno} $filehandles{$fileno} and file $file different")
}
close ($FH) || document_error ("Error when closing $file: $!");
}
sub next_line($$)
{
my $line_number = shift;
my $files_stack = shift;
my $input_spool;
while (@$files_stack)
{
my $file = $files_stack->[0];
$line_number->{'file_name'} = $file->{'name'};
$input_spool = $file->{'input_spool'};
if (@{$input_spool->{'spool'}})
{
$line_number->{'macro'} = $file->{'input_spool'}->{'macro'};
$line_number->{'line_nr'} = $file->{'line_nr'};
my $line = shift(@{$input_spool->{'spool'}});
print STDERR "# unspooling $line" if ($T2H_DEBUG & $DEBUG_MACROS);
return($line, $input_spool);
}
else
{
$file->{'input_spool'}->{'macro'} = '';
$line_number->{'macro'} = '';
}
my $fh = $file->{'fh'};
no strict "refs";
my $line = <$fh>;
use strict "refs";
my $chomped_line = $line;
$file->{'line_nr'}++ if (defined($line) and chomp($chomped_line));
$line_number->{'line_nr'} = $file->{'line_nr'};
# do that right now, before any other treatement
$line =~ s/\x{7F}.*\s*// if (defined($line));
return($line, $input_spool) if (defined($line));
no strict "refs";
close($fh);
use strict "refs";
shift(@$files_stack);
}
return(undef, $input_spool);
}
sub check_die(;$)
{
my $always_die = shift;
if (!$Texi2HTML::Config::FORCE)
{
if (@opened_files == 1)
{
warn sprintf(__("%s: Removing output file `%s' due to errors; use --force to preserve.\n"), $real_command_name, $opened_files[0]);
}
elsif (@opened_files > 1)
{
warn sprintf(__("%s: Removing output files due to errors; use --force to preserve.\n"), $real_command_name);
}
foreach my $file (@opened_files)
{
unlink ($file);
}
foreach my $dir (@created_directories)
{
rmdir ($dir);
}
}
if ($always_die or !$Texi2HTML::Config::FORCE)
{
exit (1);
}
}
sub file_line_warn($$;$)
{
return if ($Texi2HTML::Config::NO_WARN);
my $text = shift;
chomp($text);
my $file = shift;
my $line_nr = shift;
if (!defined($line_nr))
{
warn "$file: $text\n";
}
else
{
warn "$file:$line_nr: $text\n";
}
}
sub document_warn ($)
{
return if ($Texi2HTML::Config::NO_WARN);
my $text = shift;
chomp ($text);
warn sprintf(__p("warning: warning_message", "warning: %s\n"), $text);
}
my $error_nrs = 0;
sub check_errors()
{
$error_nrs ++;
die __("Too many errors! Gave up.\n") if ($error_nrs >= $Texi2HTML::Config::ERROR_LIMIT);
}
sub msg_debug($;$)
{
my $text = shift;
chomp ($text);
my $line_number = shift;
if (defined($line_number))
{
warn "!! $text " . format_line_number($line_number) . "\n";
}
else
{
warn "!! $text\n";
}
}
sub cmdline_warn ($)
{
my $text = shift;
#chomp ($text);
warn sprintf(__p("command_name: warning_message", "%s: %s"), $real_command_name, $text);
}
# seems not to be used
sub cmdline_error ($)
{
my $text = shift;
#chomp ($text);
warn sprintf(__p("command_name: error_message", "%s: %s"), $real_command_name, $text);
}
sub document_error($;$)
{
my $text = shift;
chomp ($text);
my $die = shift;
warn ("$text\n");
check_die ($die);
check_errors();
}
# echo an error
sub msg_error($;$)
{
my $text = shift;
my $line_number = shift;
if (defined($line_number))
{
line_error ($text, $line_number);
}
else
{
document_error ($text);
}
}
# echo a warning
sub msg_warn($;$$)
{
my $text = shift;
my $line_number = shift;
my $context_string = shift;
if (defined($line_number))
{
line_warn ($text, $line_number);
}
elsif (defined($context_string))
{
document_warn ("$text (in $context_string)");
}
else
{
document_warn ($text);
}
}
# echo a warning associated with a line in the document
sub line_warn($$)
{
return if ($Texi2HTML::Config::NO_WARN);
my $text = shift;
chomp ($text);
my $line_number = shift;
return if (!defined($line_number));
my $file = $line_number->{'file_name'};
# otherwise out of source build fail since the file names are different
$file =~ s/^.*\/// if ($Texi2HTML::Config::TEST);
if ($line_number->{'macro'} ne '')
{
warn sprintf(__("%s:%d: warning: %s (via \@%s)\n"), $file, $line_number->{'line_nr'}, $text, $line_number->{'macro'});
}
else
{
warn sprintf(__("%s:%d: warning: %s\n"), $file, $line_number->{'line_nr'}, $text);
}
}
sub line_error($$)
{
my $text = shift;
chomp ($text);
my $line_number = shift;
if (defined($line_number))
{
my $file = $line_number->{'file_name'};
$file =~ s/^.*\/// if ($Texi2HTML::Config::TEST);
my $macro_text = '';
$macro_text = " (via \@$line_number->{'macro'})" if ($line_number->{'macro'} ne '');
warn "$file:$line_number->{'line_nr'}: $text$macro_text\n";
check_die();
}
check_errors();
}
sub format_line_number(;$)
{
my $line_number = shift;
$line_number = $Texi2HTML::THISDOC{'line_nr'} if (!defined($line_number));
my $macro_text = '';
#$line_number = undef;
return '' unless (defined($line_number));
my $print_filename = ($line_number->{'file_name'} ne $Texi2HTML::THISDOC{'input_file_name'});
if ($line_number->{'macro'} ne '')
{
if ($print_filename)
{
return sprintf(__("(in %s l. %d via \@%s)"), $line_number->{'file_name'}, $line_number->{'line_nr'}, $line_number->{'macro'});
}
else
{
return sprintf(__("(l. %d via \@%s)"), $line_number->{'line_nr'}, $line_number->{'macro'});
}
}
elsif ($print_filename)
{
return sprintf(__("(in %s l. %d)"), $line_number->{'file_name'}, $line_number->{'line_nr'});
}
else
{
return sprintf(__("(l. %d)"), $line_number->{'line_nr'});
}
}
# to debug, dump the result of pass_texi and pass_structure in a file
sub dump_texi($$;$$)
{
my $lines = shift;
my $pass = shift;
my $numbers = shift;
my $file = shift;
$file = "$docu_rdir$docu_name" . ".pass$pass" if (!defined($file));
my $FH = open_out($file);
print STDERR "# Dump texi\n" if ($T2H_VERBOSE);
my $index = 0;
foreach my $line (@$lines)
{
my $number_information = '';
my $chomped_line = $line;
# if defined, it means that an output of the file is asked for
if (defined($numbers))
{
my $basefile = $numbers->[$index]->{'file_name'};
$basefile = 'no file' if (!defined($basefile));
$basefile =~ s|.*/||;
my $macro_name = $numbers->[$index]->{'macro'};
$macro_name = '' if (!defined($macro_name));
my $line_number = $numbers->[$index]->{'line_nr'};
$line_number = '' if (!defined($line_number));
$number_information = "${basefile}($macro_name,$line_number) ";
}
print $FH "${number_information}$line";
$index++ if (chomp($chomped_line));
}
close_out ($FH, $file);
}
# return next tag on the line
sub next_tag($)
{
my $line = shift;
# macro_regexp
if ($line =~ /^\s*\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/\\])/o or $line =~ /^\s*\@([a-zA-Z][\w-]*)/)
{
return ($1);
}
return '';
}
sub next_end_tag($)
{
my $line = shift;
if ($line =~ /^\s*\@end\s+([a-zA-Z][\w-]*)/)
{
return $1;
}
return '';
}
sub next_tag_or_end_tag($)
{
my $line = shift;
my $next_tag = next_tag($line);
return $next_tag if (defined($next_tag) and $next_tag ne '');
return next_end_tag($line);
}
sub top_stack($;$)
{
my $stack = shift;
my $ignore_para = shift;
my $index = scalar (@$stack);
return undef unless ($index);
return $stack->[-1] unless ($ignore_para);
if ($ignore_para == 1)
{
if (exists($stack->[-1]->{'format'}) and ($stack->[-1]->{'format'} eq 'paragraph' or $stack->[-1]->{'format'} eq 'preformatted'))
{
if (exists($stack->[-2]))
{
return $stack->[-2];
}
else
{
return undef;
}
}
else
{
return $stack->[-1];
}
}
else
{
while ($index and
(
(exists($stack->[$index-1]->{'format'})
and ($stack->[$index-1]->{'format'} eq 'paragraph' or $stack->[$index-1]->{'format'} eq 'preformatted'))
or (exists($stack->[$index-1]->{'style'}))
))
{
$index--;
}
}
return undef unless ($index);
return $stack->[$index-1];
}
# return the next element with balanced {}
sub next_bracketed($$$;$)
{
my $line = shift;
my $command = shift;
my $line_nr = shift;
my $report = shift;
my $opened_braces = 0;
my $result = '';
my $spaces;
#print STDERR "next_bracketed $line";
if ($line =~ /^(\s*)$/)
{
return ('','',$1);
}
while ($line !~ /^\s*$/)
{
#print STDERR "next_bracketed($opened_braces): $result !!! $line";
if (!$opened_braces)
{ # beginning of item
$line =~ s/^(\s*)//;
$spaces = $1;
#if ($line =~ s/^([^\{\}\s]+)//)
if ($line =~ s/^([^\{\}]+?)(\s+)/$2/ or $line =~ s/^([^\{\}]+?)$//)
{
$result = $1;
$result = trim_around_spaces($result);
return ($result, $line, $spaces);
}
elsif ($line =~ s/^([^\{\}]+?)([\{\}])/$2/)
{
$result = $1;
}
}
elsif($line =~ s/^([^\{\}]+)//)
{
$result .= $1;
}
if ($line =~ s/^([\{\}])//)
{
my $brace = $1;
$opened_braces++ if ($brace eq '{');
$opened_braces-- if ($brace eq '}');
if ($opened_braces < 0)
{
line_error(sprintf(__("Too much '}' in \@%s"), $command), $line_nr) if ($report);
$opened_braces = 0;
#next;
}
$result .= $brace;
return ($result, $line, $spaces) if ($opened_braces == 0);
}
}
if ($opened_braces)
{
line_error(sprintf(__("Missing `}' on \@%s line"), $command), $line_nr) if ($report);
return ($result, '', $spaces);
#return ($result . ( '}' x $opened_braces), '', $spaces);
}
msg_debug ("BUG: at the end of next_bracketed", $line_nr);
return undef;
}
# def prams are also split at @-commands if not in brackets
sub next_def_param($$$;$)
{
my $line = shift;
my $command = shift;
my $line_nr = shift;
my $report = shift;
my ($item, $spaces);
($item, $line, $spaces) = next_bracketed($line, $command, $line_nr, $report);
return ($item, $line, $spaces) if (!defined($item));
if ($item =~ /^\{/)
{
$item =~ s/^\{(.*)\}$/$1/;
}
else
{
my $delimeter_quoted = quotemeta($Texi2HTML::Config::def_argument_separator_delimiters);
if ($item =~ s/^([^\@$delimeter_quoted]+)//)
{
$line = $item . $line;
$item = $1;
}
elsif ($item =~ s/^([$delimeter_quoted])//)
{
$line = $item . $line;
$item = $1;
}
elsif ($item =~ s/^(\@[^\@\{]+)(\@)/$2/)
{
$line = $item . $line;
$item = $1;
}
}
return ($item, $line, $spaces);
}
# do a href using file and id and taking care of ommitting file if it is
# the same
# element: structuring element to point to
# file: current file
sub href($$;$)
{
my $element = shift;
my $file = shift;
my $line_nr = shift;
return '' unless defined($element);
my $href = '';
msg_debug("Bug: $element->{'texi'}, target undef", $line_nr) if (!defined($element->{'target'}));
msg_debug("Bug: $element->{'texi'}, file undef", $line_nr) if (!defined($element->{'file'}));
msg_debug("Bug: file undef in href", $line_nr) if (!defined($file));
$href .= $element->{'file'} if (defined($element->{'file'}) and $file ne $element->{'file'});
$href .= "#$element->{'target'}" if (defined($element->{'target'}));
return $href;
}
sub file_target_href($$$)
{
my $dest_file = shift;
my $orig_file = shift;
my $target = shift;
my $href = '';
$href .= $dest_file if (defined($dest_file) and ($dest_file ne $orig_file));
$href .= "#$target" if (defined($target));
return $href;
}
sub trim_around_spaces($)
{
my $text = shift;
$text =~ s/^\s*//;
$text =~ s/(\s)\s*$/$1/;
if ($text =~ /(\@+)\s$/)
{
my $arobases = $1;
if ((length($arobases) % 2) == 0)
{
$text =~ s/\s$//;
}
}
else
{
$text =~ s/\s$//;
}
return $text;
}
sub normalise_space($)
{
return undef unless (defined ($_[0]));
my $text = shift;
$text =~ s/\s+/ /go;
$text =~ s/ $//;
$text =~ s/^ //;
return $text;
}
sub normalise_texi_space($)
{
return undef unless (defined ($_[0]));
my $text = shift;
$text = trim_around_spaces($text);
$text =~ s/\s+/ /go;
return $text;
}
sub normalise_node($)
{
return undef unless (defined ($_[0]));
my $text = shift;
$text = normalise_texi_space($text);
$text =~ s/^top$/Top/i;
return $text;
}
sub normalise_node_array($)
{
my $array = shift;
my @result;
foreach my $node (@$array)
{
push @result, normalise_node($node);
}
return @result;
}
sub do_anchor_label($$$$)
{
my $command = shift;
#my $anchor = shift;
my $args = shift;
my $anchor = $args->[0];
my $style_stack = shift;
my $state = shift;
my $line_nr = shift;
#msg_debug("do_anchor_label $state->{'region'} m_p $state->{'multiple_pass'} remove $state->{'remove_texi'} `$anchor'", $line_nr);
$anchor = normalise_node($anchor);
if ((defined($state->{'multiple_pass'}) and $state->{'multiple_pass'} > 0) or $state->{'outside_document'})
{
# no warning when outside of document.
line_warn(sprintf(__("Anchor `%s' ignored in %s expanded more than once"),$anchor, $state->{'region'}), $line_nr) unless ($state->{'outside_document'} or defined($state->{'expansion'}));
return '';
}
if (!exists($nodes{$anchor}) or !defined($nodes{$anchor}->{'id'}))
{
msg_debug("Unknown anchor `$anchor'", $line_nr);
}
return &$Texi2HTML::Config::anchor_label($nodes{$anchor}->{'id'}, $anchor, $nodes{$anchor}, $state->{'expansion'});
}
sub get_format_command($)
{
my $format = shift;
my $command = '';
my $format_name = '';
my $term = 0;
my $item_nr;
my $paragraph_number;
my $enumerate_type;
my $number;
$command = $format->{'command'} if (defined($format->{'command'}));
$format_name = $format->{'format'} if (defined($format->{'format'}));
return ($format_name,$command,\$format->{'paragraph_number'},$term,
$format->{'item_nr'}, $format->{'spec'}, $format->{'number'},
$format->{'stack_at_beginning'});
}
sub do_paragraph($$;$)
{
my $text = shift;
my $state = shift;
my $stack = shift;
if (!defined ($state->{'paragraph_context'}))
{
msg_debug ("paragraph_context undef", $Texi2HTML::THISDOC{'line_nr'});
dump_stack (undef, $stack, $state);
}
my ($format, $paragraph_command, $paragraph_number, $term, $item_nr,
$enumerate_type, $number, $stack_at_beginning)
= get_format_command ($state->{'paragraph_context'});
delete $state->{'paragraph_context'};
my $indent_style = '';
if (exists($state->{'paragraph_indent'}))
{
$indent_style = $state->{'paragraph_indent'};
$state->{'paragraph_indent'} = undef;
delete $state->{'paragraph_indent'};
}
my $paragraph_command_formatted;
$state->{'paragraph_nr'}--;
(print STDERR "Bug text undef in do_paragraph", return '') unless defined($text);
my $align = '';
$align = $state->{'paragraph_style'}->[-1] if ($state->{'paragraph_style'}->[-1]);
if ($paragraph_command and !exists($Texi2HTML::Config::special_list_commands{$format}->{$paragraph_command}))
{
$paragraph_command_formatted = substitute_line("\@$paragraph_command\{\}", "paragraph \@$format \@$paragraph_command", duplicate_formatting_state($state));
}
return &$Texi2HTML::Config::paragraph($text, $align, $indent_style, $paragraph_command, $paragraph_command_formatted, $paragraph_number, $format, $item_nr, $enumerate_type, $number,$state->{'command_stack'},$stack_at_beginning);
}
sub do_preformatted($$;$)
{
my $text = shift;
my $state = shift;
my $stack = shift;
if (!defined ($state->{'preformatted_context'}))
{
msg_debug ("preformatted_context undef", $Texi2HTML::THISDOC{'line_nr'});
dump_stack (undef, $stack, $state);
}
my ($format, $leading_command, $preformatted_number, $term, $item_nr,
$enumerate_type, $number,$stack_at_beginning)
= get_format_command($state->{'preformatted_context'});
delete ($state->{'preformatted_context'});
my $leading_command_formatted;
my $pre_style = '';
my $class = '';
$pre_style = $state->{'preformatted_stack'}->[-1]->{'pre_style'} if ($state->{'preformatted_stack'}->[-1]->{'pre_style'});
$class = $state->{'preformatted_stack'}->[-1]->{'class'};
print STDERR "BUG: !state->{'preformatted_stack'}->[-1]->{'class'}\n" unless ($class);
if (defined($leading_command) and $leading_command ne '' and !exists($Texi2HTML::Config::special_list_commands{$format}->{$leading_command}))
{
$leading_command_formatted = substitute_line("\@$leading_command\{\}", "preformatted \@$format \@$leading_command", duplicate_formatting_state($state));
}
return &$Texi2HTML::Config::preformatted($text, $pre_style, $class, $leading_command, $leading_command_formatted, $preformatted_number, $format, $item_nr, $enumerate_type, $number,$state->{'command_stack'},$stack_at_beginning);
}
sub do_external_href($)
{
# node_id is a unique node identifier with only letters, digits, - and _
# node_xhtml_id is almost the same, but xhtml id can only begin with
# letters, so a prefix has to be appended
my $texi_node = shift;
my $file = '';
my $node_file = '';
my $node_id = '';
my $node_xhtml_id = '';
#print STDERR "do_external_href $texi_node\n";
if ($texi_node =~ s/^\((.+?)\)//)
{
$file = $1;
}
$texi_node = normalise_node($texi_node);
if ($texi_node ne '')
{
if (exists($nodes{$texi_node}) and ($nodes{$texi_node}->{'cross_manual_target'}))
{
$node_id = $nodes{$texi_node}->{'cross_manual_target'};
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES)
{
$node_file = $nodes{$texi_node}->{'cross_manual_file'};
}
}
else
{
if ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES)
{
($node_id, $node_file) = cross_manual_line($texi_node,1);
}
else
{
$node_id = cross_manual_line($texi_node);
}
}
$node_xhtml_id = node_to_id($node_id);
$node_file = $node_id unless ($Texi2HTML::Config::TRANSLITERATE_FILE_NAMES);
}
return &$Texi2HTML::Config::external_href($texi_node, $node_file,
$node_xhtml_id, $file);
}
# transform node for cross ref name to id suitable for xhtml: an xhtml id
# must begin with a letter.
sub node_to_id($)
{
my $cross_ref_node_name = shift;
$cross_ref_node_name =~ s/^([0-9_])/g_t$1/;
return $cross_ref_node_name;
}
# return an empty string if the command is not a index command, the prefix
# if it is one
sub index_command_prefix($)
{
my $command = shift;
return $1 if ($command =~ /^(\w+?)index/ and ($1 ne 'print') and ($1 ne 'syncode') and ($1 ne 'syn') and ($1 ne 'def') and ($1 ne 'defcode'));
return '';
}
# return 1 if the following tag shouldn't begin a line
sub no_line($)
{
my $line = shift;
my $next_tag = next_tag($line);
return 1 if (($line =~ /^\s*$/) or $Texi2HTML::Config::no_paragraph_commands{$next_tag} or
($Texi2HTML::Config::no_paragraph_commands{'cindex'} and (index_command_prefix($next_tag) ne '')) or
(($line =~ /^\@end\s+(\w+)/) and $Texi2HTML::Config::no_paragraph_commands{"end $1"}) or
($next_tag =~ /^special_(\w+)_(\d+)$/ and $Texi2HTML::Config::no_paragraph_commands{$1})
);
return 0;
}
sub no_paragraph($$)
{
my $state = shift;
my $line = shift;
return ($state->{'paragraph_context'} or $state->{'preformatted'} or $state->{'remove_texi'} or no_line($line) or $state->{'no_paragraph'});
}
# We restart the preformatted format which was stopped
# by the format if in preformatted, and start a paragraph
# for the text following the end of the format, if needed
sub begin_paragraph_after_command($$$$)
{
my $state = shift;
my $stack = shift;
my $command = shift;
my $text_following = shift;
#if (($state->{'preformatted'}
# and !$Texi2HTML::Config::format_in_paragraph{$command})
if ($state->{'preformatted'}
or (!no_paragraph($state,$text_following)))
{
begin_paragraph($stack, $state);
}
}
# handle raw formatting, ignored regions...
# called from scan_texi, so only in first pass.
sub do_text_macro($$$$$)
{
my $type = shift;
my $line = shift;
my $state = shift;
my $stack = shift;
my $line_nr = shift;
my $value;
#print STDERR "do_text_macro $type\n";
if ($Texi2HTML::Config::texi_formats_map{$type} eq 'raw')
{
$state->{'raw'} = $type;
#print STDERR "RAW\n";
if ($state->{'raw'})
{
push @$stack, { 'style' => $type, 'text' => '' };
}
}
elsif ($Texi2HTML::Config::texi_formats_map{$type} eq 'value')
{
if (($line =~ s/(\s+)($VARRE)$//) or ($line =~ s/(\s+)($VARRE)(\s)//))
{
$value = $1 . $2;
$value .= $3 if defined($3);
if ($state->{'ignored'})
{
if ($type eq $state->{'ignored'})
{
$state->{'ifvalue_inside'}++;
}
# if 'ignored' we don't care about the command as long as
# the nesting is correct
return ($line,'');
}
my $open_ignored_ifvalue = 0;
if ($type eq 'ifclear')
{
if (defined($value{$2}))
{
$open_ignored_ifvalue = 1;
}
else
{
push @{$state->{'text_macro_stack'}}, $type;
}
}
elsif ($type eq 'ifset')
{
unless (defined($value{$2}))
{
$open_ignored_ifvalue = 1;
}
else
{
push @{$state->{'text_macro_stack'}}, $type;
}
}
if ($open_ignored_ifvalue)
{
$state->{'ignored'} = $type;
$state->{'ifvalue'} = $type;
$state->{'ifvalue_inside'} = 1;
# We add at the top of the stack to be able to close all
# opened comands when closing the ifset/ifclear (and ignore
# everything that is in those commands)
push @$stack, { 'style' => 'ifvalue', 'text' => '' };
}
}
else
{ # we accept a lone @ifset or @ifclear if it is nested in an @if*
if ($state->{'ifvalue'} and $type eq $state->{'ifvalue'})
{
$state->{'ifvalue_inside'}++;
return ($line,'');
}
line_error (sprintf(__("%c%s requires a name"), ord('@'), $type), $line_nr) unless ($state->{'ignored'});
}
}
elsif (not $Texi2HTML::Config::texi_formats_map{$type})
{ # ignored text
$state->{'ignored'} = $type;
#print STDERR "IGNORED\n";
}
else
{
push @{$state->{'text_macro_stack'}}, $type unless($state->{'ignored'}) ;
}
my $text = "\@$type";
$text .= $value if defined($value);
return ($line, $text);
}
# do regions handled specially, for example tex or math going through latex2html
sub init_special($$)
{
my $style = shift;
my $text = shift;
if (defined($Texi2HTML::Config::command_handler{$style}) and
defined($Texi2HTML::Config::command_handler{$style}->{'init'}))
{
$special_commands{$style}->{'count'} = 0 if (!defined($special_commands{$style}));
if ($Texi2HTML::Config::command_handler{$style}->{'init'}($style,$text,
$special_commands{$style}->{'count'} +1))
{
$special_commands{$style}->{'count'}++;
return "\@special_${style}_".$special_commands{$style}->{'count'}."{}";
}
return '';
}
}
sub reset_index_entries($)
{
my $region = shift;
if (defined($Texi2HTML::THISDOC{'index_entries'}->{$region}))
{
foreach my $entry (values(%{$Texi2HTML::THISDOC{'index_entries'}->{$region}}))
{
if (scalar(@{$entry->{'entries'}}) > 1)
{
$entry->{'index'} = 0;
}
}
}
if (defined($Texi2HTML::THISDOC{'indices_numbers'}->{$region}))
{
foreach my $index_name (keys(%{$Texi2HTML::THISDOC{'indices_numbers'}->{$region}}))
{
$Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name} = undef;
}
}
}
# FIXME we cannot go through the commands too 'often'. The error messages
# are duplicated and global stuff is changed.
# -> identify what is global
# -> use local state
sub do_special_region_lines($;$$)
{
my $region = shift;
my $state = shift;
my $line_nr = shift;
# this case covers something like
# @copying
# @insertcopying
# @end copying
if (defined($state) and exists($state->{'region'}) and ($region eq $state->{'region'}))
{
line_error(sprintf(__("Region %s inside region %s is not allowed"), $region, $state->{'region'}), $line_nr);
return ('','', '');
}
print STDERR "# do_special_region_lines for region $region ['multiple_pass','region_pass']: ($region_initial_state{$region}->{'multiple_pass'}, $region_initial_state{$region}->{'region_pass'})" if ($T2H_DEBUG);
if (!defined($state))
{
$state = {};
fill_state($state);
$state->{'outside_document'} = 1;
print STDERR " outside document\n" if ($T2H_DEBUG);
}
elsif (!$state->{'outside_document'})
{
$region_initial_state{$region}->{'multiple_pass'}++;
print STDERR " multiple pass $region_initial_state{$region}->{'multiple_pass'}\n" if ($T2H_DEBUG);
}
else
{
print STDERR " in $state->{'region'}, outside document\n" if ($T2H_DEBUG);
}
return ('','','') unless @{$region_lines{$region}};
my @result;
foreach my $context ('normal', 'remove_texi', 'simple_format')
{
print STDERR "# $context\n" if ($T2H_DEBUG);
my $new_state = duplicate_formatting_state($state);
reset_index_entries($region);
foreach my $key (keys(%{$region_initial_state{$region}}))
{
$new_state->{$key} = $region_initial_state{$region}->{$key};
}
$new_state->{'remove_texi'} = 1 if ($context eq 'remove_texi');
&$Texi2HTML::Config::begin_special_region($region,$new_state,$region_lines{$region})
if (defined($Texi2HTML::Config::begin_special_region));
my $line_numbers;
my $context_string = "$region ($region_initial_state{$region}->{'multiple_pass'}, $region_initial_state{$region}->{'region_pass'})";
if ($context eq 'normal')
{ # the line numbers are given only for the normal context, therefore
# there will be error messages only in that case
$line_numbers = [ @{$region_line_nrs{$region}} ];
}
else
{
$context_string = "$context $context_string";
}
my $result;
if ($context ne 'simple_format')
{
$result = substitute_text($new_state, $line_numbers,
$context_string, @{$region_lines{$region}});
}
else
{
$result = simple_format($new_state, $line_numbers,
$context_string, @{$region_lines{$region}});
}
$result = &$Texi2HTML::Config::end_special_region($region,$new_state,$result)
if (defined($Texi2HTML::Config::end_special_region));
push @result, $result;
$region_initial_state{$region}->{'region_pass'}++;
}
return @result;
}
sub do_insertcopying($$)
{
my $state = shift;
my $line_nr = shift;
my ($text, $comment, $simple_formatted) = do_special_region_lines('copying', $state, $line_nr);
return &$Texi2HTML::Config::insertcopying($text, $comment, $simple_formatted);
}
sub get_deff_index($$$$)
{
my $tag = shift;
my $line = shift;
my $line_nr = shift;
my $warn = shift;
$tag =~ s/x$//;
my ($command, $style, $category, $name, $type, $class, $arguments, $args_array, $args_type_array);
($command, $style, $category, $name, $type, $class, $arguments, $args_array, $args_type_array) = parse_def($tag, $line, $line_nr, $warn);
$name = &$Texi2HTML::Config::definition_index_entry($name, $class, $style, $command);
return ($style, '') if (!defined($name) or ($name =~ /^\s*$/));
return ($style, $name, $arguments);
}
sub parse_def($$$;$)
{
my $command = shift;
my $line = shift;
my $line_nr = shift;
my $report = shift;
my $format = $command;
if (!ref ($Texi2HTML::Config::def_map{$command}))
{
# substitute shortcuts for definition commands
my $substituted = $Texi2HTML::Config::def_map{$command};
$substituted =~ s/(\w+)//;
$format = $1;
$line = $substituted . $line;
}
#print STDERR "PARSE_DEF($command,$format) $line";
my ($category, $name, $type, $class, $arguments);
my @arguments = ();
my @args = @{$Texi2HTML::Config::def_map{$format}};
my $style = shift @args;
my @arg_types = ();
while (@args and $args[0] ne 'arg' and $args[0] ne 'argtype')
{
my $arg = shift @args;
# backward compatibility, it was possible to have a { in front.
$arg =~ s/^\{//;
my ($item, $spaces);
($item, $line, $spaces) = next_def_param($line, $command, $line_nr, $report);
last if (!defined($item));
if ($arg eq 'category')
{
$category = $item;
}
elsif ($arg eq 'name')
{
$name = $item;
}
elsif ($arg eq 'type')
{
$type = $item;
}
elsif ($arg eq 'class')
{
$class = $item;
}
push @arg_types, $arg;
push @arguments, $item;
}
my $line_remaining = $line;
$line = '';
my $arg_and_type = 1;
foreach my $arg (@args)
{
if ($arg eq 'arg')
{
$arg_and_type = 0;
last;
}
elsif ($arg eq 'argtype')
{
last;
}
}
my $always_delimiter_quoted = quotemeta($Texi2HTML::Config::def_always_delimiters);
my $in_type_delimiter_quoted = quotemeta($Texi2HTML::Config::def_in_type_delimiters);
my $after_type = 0;
while ($line_remaining !~ /^\s*$/)
{
my ($item, $spaces);
($item, $line_remaining,$spaces) = next_def_param($line_remaining, $command, $line_nr);
if ($item =~ /^([$always_delimiter_quoted])/ or (!$arg_and_type and $item =~ /^([$in_type_delimiter_quoted].*)/))
{
$item = $1;
push @arg_types, 'delimiter';
$after_type = 0;
}
elsif (!$arg_and_type or $item =~ /^\@/ or $after_type)
{
push @arg_types, 'param';
$after_type = 0;
}
elsif ($item =~ /^([$in_type_delimiter_quoted])/)
{
push @arg_types, 'delimiter';
}
else
{
push @arg_types, 'paramtype';
$after_type = 1;
}
$spaces = ' ' if ($spaces);
$line .= $spaces . $item;
push @arguments, $spaces .$item;
}
#print STDERR "PARSE_DEF (style $style, category $category, name $name, type $type, class $class, line $line)\n";
return ($format, $style, $category, $name, $type, $class, $line, \@arguments, \@arg_types);
}
sub begin_paragraph($$)
{
my $stack = shift;
my $state = shift;
my $command = { };
my $top_format = top_format($stack);
if (defined($top_format))
{
$command = $top_format;
}
$command->{'stack_at_beginning'} = [ @{$state->{'command_stack'}} ];
my $paragraph_or_preformatted = 'paragraph';
if ($state->{'preformatted'})
{
$paragraph_or_preformatted = 'preformatted';
$state->{'preformatted_context'} = $command;
}
else
{
$state->{'paragraph_context'} = $command;
$state->{'paragraph_nr'}++;
}
push @$stack, {'format' => $paragraph_or_preformatted, 'text' => '' };
# FIXME give line, and modify line?
&$Texi2HTML::Config::begin_paragraph_texi($paragraph_or_preformatted,
$state->{'paragraph_macros'}, $command, $state, $stack)
if (defined($Texi2HTML::Config::begin_paragraph_texi));
# if there are macros which weren't closed when the previous
# paragraph was closed we reopen them here
push @$stack, @{$state->{'paragraph_macros'}} if $state->{'paragraph_macros'};
delete $state->{'paragraph_macros'};
}
sub parse_format_command($$)
{
my $line = shift;
my $tag = shift;
my $command = '';
my $orig_line = $line;
# macro_regexp
if ($line =~ s/^\s*\@([A-Za-z][\w-]*)(\{\})?\s*$//)
{
$command = $1;
$command = $alias{$command} if (exists($alias{$command}));
}
return ('', $command) if ($line =~ /^\s*$/);
chomp $line;
$line = substitute_text ({'keep_nr' => 1, 'keep_texi' => 1, 'check_item' => $tag}, undef, "parse_format_command", $line);
return ($line, $command);
}
sub parse_enumerate($)
{
my $line = shift;
my $spec;
if ($line =~ /^\s*(\w)\b/ and ($1 ne '_'))
{
$spec = $1;
$line =~ s/^\s*(\w)\s*//;
}
return ($line, $spec);
}
sub parse_multitable($$)
{
my $line = shift;
my $line_nr = shift;
# first find the table width
my $table_width = 0;
my $fractions;
my $elements;
if ($line =~ s/^\s+\@columnfractions\s+//)
{
@$fractions = split /\s+/, $line;
$table_width = scalar(@$fractions);
foreach my $fraction (@$fractions)
{
unless ($fraction =~ /^(\d*\.\d+)|(\d+)\.?$/)
{
line_error (sprintf(__("column fraction not a number: %s"), $fraction), $line_nr);
}
}
}
else
{
my $element;
my $line_orig = $line;
while ($line !~ /^\s*$/)
{
my $spaces;
($element, $line, $spaces) = next_bracketed($line, 'multitable', $line_nr, 1);
if ($element =~ /^\{/)
{
$table_width++;
$element =~ s/^\{//;
$element =~ s/\}\s*$//;
push @$elements, $element;
}
else
{
line_warn (sprintf(__("ignoring stray text `%s' after \@multitable"), $element), $line_nr);
}
}
}
return ($table_width, $fractions, $elements);
}
sub end_format($$$$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $format = shift;
my $line_nr = shift;
#msg_debug ("END FORMAT $format", $line_nr);
#dump_stack($text, $stack, $state);
#sleep 1;
if ($format_type{$format} eq 'menu')
{
$state->{$format}--;
if ($state->{$format} < 0)
{ # FIXME currently happens, see invalid/not_closed_in_menu.texi
line_error(sprintf(__("Too many %s closed"), $format), $line_nr);
#print STDERR "Bug, $format counter negative: $state->{$format}\n";
#dump_stack($text, $stack, $state);
#exit 1;
$state->{$format} = 0;
}
close_menu_comment($text, $stack, $state, "\@end $format", $line_nr);
}
if ($format_type{$format} eq 'list')
{ # those functions return if they detect an inapropriate context
add_item($text, $stack, $state, $line_nr); # handle lists
}
elsif ($format eq 'multitable')
{
add_row($text, $stack, $state, $line_nr); # handle multitable
}
elsif ($format_type{$format} eq 'table')
{
add_term($text, $stack, $state, $line_nr); # handle table
add_line($text, $stack, $state, $line_nr); # handle table
}
#print STDERR "END_FORMAT\n";
#dump_stack($text, $stack, $state);
# set to 1 if there is a mismatch between the closed format and format
# opened before
my $format_mismatch = 0;
# set to 1 in normal menu context after an end menu or detailmenu
my $begin_menu_comment_after_end_format = 0;
my $format_ref = pop @$stack;
######################### debug
if (!defined($format_ref->{'text'}))
{
push @$stack, $format_ref;
print STDERR "Bug: text undef in end_format $format\n";
dump_stack($text, $stack, $state);
pop @$stack;
}
######################### end debug
if ($region_lines{$format})
{
######################### debug
if ($format ne $state->{'region_lines'}->{'format'})
{
msg_debug ("Bug: mismatched region `$format' ne `$state->{'region_lines'}->{'format'}'");
}
######################### end debug
$state->{'region_lines'}->{'number'}--;
if ($state->{'region_lines'}->{'number'} == 0)
{
close_region($state);
}
}
if ($format_type{$format} eq 'table' or $format_type{$format} eq 'list' or $format eq 'multitable')
{
if ($format_ref->{'format'} ne $format)
{ # for example vtable closing a table. Cannot be known
# before if in a cell
$format_mismatch = 1;
line_error (sprintf(__("`\@end' expected `%s', but saw `%s'"), $format_ref->{'format'}, $format), $line_nr);
}
if (!$format_ref->{'empty_first'} and $format_ref->{'item_nr'} == 0)
{
line_warn (sprintf(__("\@%s has text but no \@item"),$format_ref->{'format'}), $line_nr);
}
}
if (defined($Texi2HTML::Config::def_map{$format}))
{
close_stack($text, $stack, $state, $line_nr, 'deff_item')
unless ($format_ref->{'format'} eq 'deff_item');
add_prev($text, $stack, &$Texi2HTML::Config::def_item($format_ref->{'text'}, $format_ref->{'only_inter_commands'}, $format_ref->{'orig_command'}));
$format_ref = pop @$stack; # pop deff
######################################### debug
if (!defined($format_ref->{'format'}) or !defined($Texi2HTML::Config::def_map{$format_ref->{'format'}}))
{
print STDERR "Bug: not a def* under deff_item\n";
push (@$stack, $format_ref);
dump_stack($text, $stack, $state);
pop @$stack;
}
######################################### end debug
elsif ($format_ref->{'format'} ne $format)
{
$format_mismatch = 1;
line_error (sprintf(__("`\@end' expected `%s', but saw `%s'"), $format_ref->{'format'}, $format), $line_nr);
}
add_prev($text, $stack, &$Texi2HTML::Config::def($format_ref->{'text'}, $format_ref->{'orig_format'}));
}
elsif ($format eq 'float')
{
unless (defined($state->{'float'}))
{
msg_debug("state->{'float'} not defined in float", $line_nr);
next;
}
my ($caption_lines, $shortcaption_lines) = &$Texi2HTML::Config::caption_shortcaption($state->{'float'});
my ($caption_text, $shortcaption_text);
my $caption_state = duplicate_formatting_state($state);
push @{$caption_state->{'command_stack'}}, 'caption';
$caption_text = substitute_text($caption_state, undef, '@caption in @end float', @$caption_lines) if (defined($caption_lines));
my $shortcaption_state = duplicate_formatting_state($state);
push @{$shortcaption_state->{'command_stack'}}, 'shortcaption';
$shortcaption_text = substitute_text($shortcaption_state, undef, '@shortcaption in @end float', @$shortcaption_lines) if (defined($shortcaption_lines));
add_prev($text, $stack, &$Texi2HTML::Config::float($format_ref->{'text'}, $state->{'float'}, $caption_text, $shortcaption_text));
delete $state->{'float'};
}
# FIXME $complex_format_map obsoleted in nov 2009
elsif ((exists ($Texi2HTML::Config::complex_format_map->{$format})
or exists ($Texi2HTML::Config::complex_format_map{$format}))
and ($format_type{$format} ne 'menu' or $Texi2HTML::Config::SIMPLE_MENU))
{
$state->{'preformatted'}--;
pop @{$state->{'preformatted_stack'}};
my $complex_format;
if (exists ($Texi2HTML::Config::complex_format_map->{$format}))
{
$complex_format = $Texi2HTML::Config::complex_format_map->{$format};
}
else
{
$complex_format = $Texi2HTML::Config::complex_format_map{$format};
}
# debug
if (!defined($complex_format->{'begin'}))
{
msg_debug ("Bug undef $format_ref->{'format'}" . "->{'begin'} (for $format...)", $line_nr);
dump_stack ($text, $stack, $state);
}
if ($fake_format{$format_ref->{'format'}} and $format_ref->{'text'} =~ /^\s*$/)
{
# discard empty fake formats
}
#print STDERR "before $format\n";
#dump_stack ($text, $stack, $state);
else
{
add_prev($text, $stack, &$Texi2HTML::Config::complex_format($format_ref->{'format'}, $format_ref->{'text'}));
}
#print STDERR "after $format\n";
#dump_stack ($text, $stack, $state);
}
elsif ($format_type{$format} eq 'table' or $format_type{$format} eq 'list' or $format eq 'multitable')
{
if (exists ($Texi2HTML::Config::format_map{$format}))
{ # table or list has a simple format
add_prev($text, $stack, end_simple_format($format_ref->{'format'}, $format_ref->{'text'}, $state));
}
else
{ # table or list handler defined by the user
add_prev($text, $stack, &$Texi2HTML::Config::table_list($format_ref->{'format'}, $format_ref->{'text'}, $format_ref->{'command'}, $format_ref->{'formatted_command'}, $format_ref->{'item_nr'}, $format_ref->{'spec'}, $format_ref->{'prepended'}, $format_ref->{'prepended_formatted'}, $format_ref->{'columnfractions'}, $format_ref->{'prototype_row'}, $format_ref->{'prototype_lengths'}, $format_ref->{'max_columns'}));
}
}
elsif ($format_type{$format} eq 'quotation')
{
my $quotation_args = pop @{$state->{'quotation_stack'}};
#add_prev($text, $stack, &$Texi2HTML::Config::quotation($format, $format_ref->{'text'}, $quotation_args->{'text'}, $quotation_args->{'text_texi'}));
add_prev($text, $stack, &$Texi2HTML::Config::quotation($format, $format_ref->{'text'}, $format_ref->{'argument_text'}, $format_ref->{'argument_texi'}, $format_ref->{'quote_authors'}));
}
elsif ($Texi2HTML::Config::paragraph_style{$format})
{
if ($state->{'paragraph_style'}->[-1] eq $format)
{
pop @{$state->{'paragraph_style'}};
}
if ($fake_format{$format_ref->{'format'}} and $format_ref->{'text'} =~ /^\s*$/)
{
# discard empty fake formats
}
else
{
add_prev($text, $stack, &$Texi2HTML::Config::paragraph_style_command($format_ref->{'format'},$format_ref->{'text'}));
}
}
elsif (exists($Texi2HTML::Config::format_map{$format}))
{
if ($fake_format{$format_ref->{'format'}} and $format_ref->{'text'} =~ /^\s*$/)
{
# discard empty fake formats
}
else
{
add_prev($text, $stack, end_simple_format($format_ref->{'format'}, $format_ref->{'text'}, $state));
}
}
elsif ($format_type{$format} eq 'cartouche')
{
add_prev($text, $stack, &$Texi2HTML::Config::cartouche($format_ref->{'text'},$state->{'command_stack'}));
}
elsif ($format_type{$format} eq 'menu')
{
# it should be short-circuited if $Texi2HTML::Config::SIMPLE_MENU
if ($state->{'preformatted'})
{
# remove the fake complex style
$state->{'preformatted'}--;
pop @{$state->{'preformatted_stack'}};
}
# backward compatibility with 1.78 jun 2007
if (defined($Texi2HTML::Config::menu))
{
if ($format eq 'menu')
{
add_prev($text, $stack, &$Texi2HTML::Config::menu($format_ref->{'text'}));
}
elsif ($format eq 'detailmenu') # detailmenu
{
add_prev($text, $stack, $format_ref->{'text'});
}
else # direntry
{
}
}
else
{
add_prev($text, $stack, &$Texi2HTML::Config::menu_command($format, $format_ref->{'text'}, $state->{'preformatted'}));
}
$begin_menu_comment_after_end_format = 1;
}
else
{
line_warn(sprintf(__("Unknown format %s"), $format), $line_nr);
}
# fake formats are not on the command_stack
return 1 if ($fake_format{$format_ref->{'format'}});
# special case for center as it is at the bottom of the stack
my $removed_from_stack;
if ($format eq 'center')
{
$removed_from_stack = shift @{$state->{'command_stack'}};
}
else
{
$removed_from_stack = pop @{$state->{'command_stack'}};
}
if ($removed_from_stack ne $format and !$format_mismatch)
{
#line_error ("Bug: removed_from_stack $removed_from_stack ne format $format", $line_nr);
# it may not be a bug. Consider, for example a @code{in code
# @end cartouche
# The @code is closed when the paragraph is closed by
# @end cartouche but not really closed since it might have been
# a multiple paragraph @code. So it is not removed from
# command_stack but still have disapeared from the stack!
line_error(sprintf(__("mismatched \@end %s with \@%s"), $format, $removed_from_stack), $line_nr);
}
if ($begin_menu_comment_after_end_format and $state->{'menu'})
{
begin_format($text, $stack, $state, 'menu_comment', '', $line_nr);
return 0;
}
return 1;
}
sub push_complex_format_style($$$$)
{
my $command = shift;
my $complex_format = shift;
my $state = shift;
my $line_nr = shift;
my $class = $command;
if (!defined($state->{'preformatted_stack'}))
{
msg_debug ("'preformatted_stack' not defined in push_complex_format_style", $line_nr);
}
$class = $complex_format->{'class'} if (defined($complex_format->{'class'}));
my $format_style = {'pre_style' =>$complex_format->{'pre_style'}, 'class' => $class, 'command' => $command };
if (defined($complex_format->{'style'}))
{
$format_style->{'style'} = $complex_format->{'style'};
}
else
{
if ($state->{'preformatted'} and defined($state->{'preformatted_stack'}->[-1]->{'style'}))
{
$format_style->{'style'} = $state->{'preformatted_stack'}->[-1]->{'style'};
}
my $index = scalar(@{$state->{'preformatted_stack'}}) -1;
# since preformatted styles are not nested, the preformatted format
# of the first format with style has to be used
if ($index > 0)
{
while ($index)
{
if ($state->{'preformatted_stack'}->[$index]->{'style'})
{
$format_style->{'class'} = $state->{'preformatted_stack'}->[$index]->{'class'} if (defined($state->{'preformatted_stack'}->[$index]->{'class'}));
last;
}
$index--;
}
}
}
$state->{'preformatted'}++;
push @{$state->{'preformatted_stack'}}, $format_style;
}
sub prepare_state_multiple_pass($$)
{
my $command = shift;
my $state = shift;
my $return_state = {
'multiple_pass' => 1,
'element' => $state->{'element'},
'outside_document' => $state->{'outside_document'},
'new_state' => 1
};
if (defined($command))
{
$return_state->{'expansion'} = $command;
$return_state->{'command_stack'} = ["$command"];
}
else
{
msg_debug("prepare_state_multiple_pass command not defined");
}
return $return_state;
}
sub begin_format($$$$$$);
sub begin_format($$$$$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $macro = shift;
my $line = shift;
my $line_nr = shift;
#msg_debug ("BEGIN FORMAT $macro",$line_nr);
my $in_term;
my $top_format = top_stack($stack, 2);
$in_term = 1 if (defined($top_format->{'format'}) and $top_format->{'format'} eq 'term');
if ($format_type{$macro} eq 'menu')
{
if ($state->{'menu'})
{
# there should not be any paragraph/preformatted to close
# if the comment or the description were closed since they
# close it
if (! close_menu_comment($text, $stack, $state, "\@$macro", $line_nr)
and !close_menu_description($text, $stack, $state, "\@$macro", $line_nr))
{
close_paragraph($text, $stack, $state, "\@$macro", $line_nr);
}
}
else
{
close_paragraph($text, $stack, $state, "\@$macro", $line_nr);
}
$state->{$macro}++;
}
elsif (!$in_term)
{
close_paragraph($text, $stack, $state, "\@$macro", $line_nr);
}
# close def_item if this is a matching @def*x command
if (defined($Texi2HTML::Config::def_map{$macro}))
{
my $top_format = top_format($stack);
if (defined($top_format) and ("$top_format->{'format'}x" eq $macro))
{
# this is a matching @DEFx command.
my $deff_item = pop @$stack;
add_prev($text, $stack,
&$Texi2HTML::Config::def_item($deff_item->{'text'}, $deff_item->{'only_inter_commands'}, $deff_item->{'orig_command'}));
#print STDERR "DEFx $macro\n";
}
elsif ($macro =~ /x$/)
{
my $base_def_command = $macro;
$base_def_command =~ s/x$//;
line_error(sprintf(__("Must be in `\@%s' environment to use `\@%s'"), $base_def_command, $macro), $line_nr);
}
}
$line = &$Texi2HTML::Config::begin_format_texi($macro, $line, $state)
unless($fake_format{$macro});
push (@{$state->{'command_stack'}}, $macro) unless ($fake_format{$macro});
if ($region_lines{$macro})
{
open_region($macro,$state);
}
# A deff like macro
if (defined($Texi2HTML::Config::def_map{$macro}))
{
my $top_format = top_format($stack);
my $orig_command = $macro;
if (defined($top_format) and ("$top_format->{'format'}x" eq $macro))
{
# this is a matching @DEFx command.
# the @DEFx macro has been put at the top of the
# command_stack, although there is no real format opening
pop @{$state->{'command_stack'}};
$macro =~ s/x$//o;
#print STDERR "DEFx $macro\n";
}
else
{
# a new @def.
$macro =~ s/x$//o;
# we remove what is on the stack and put it back,
# to make sure that it is the form without x.
pop @{$state->{'command_stack'}};
push @{$state->{'command_stack'}}, $macro;
#print STDERR "DEF begin $macro\n";
$top_format = { 'format' => $macro, 'text' => '', 'orig_format' =>$orig_command};
push @$stack, $top_format;
}
#print STDERR "BEGIN_DEFF $macro\n";
#dump_stack ($text, $stack, $state);
my ($command, $style, $category, $name, $type, $class, $args_array, $args_type_array);
($command, $style, $category, $name, $type, $class, $line, $args_array, $args_type_array) = parse_def($macro, $line, $line_nr);
my $class_name_texi = &$Texi2HTML::Config::definition_index_entry($name, $class, $style, $command);
#print STDERR "AFTER parse_def $line";
my @formatted_args = ();
my $arguments = '';
my %formatted_arguments = ();
my @types = @$args_type_array;
my $arg_nr = 0;
my $previous_type;
foreach my $arg (@$args_array)
{
$arg_nr++;
my $type = shift @types;
my $substitution_state = duplicate_formatting_state($state);
# all @def* arguments are in code_style
$substitution_state->{'code_style'}++;
push @formatted_args, substitute_line($arg, sprintf(__("\@%s (argument nr %d)"), $macro, $arg_nr), $substitution_state, $line_nr);
if (grep {$_ eq $type} ('param', 'paramtype', 'delimiter'))
{
$arguments .= $formatted_args[-1];
}
else
{
$formatted_arguments{$type} = $formatted_args[-1];
}
$previous_type = $type;
}
$name = $formatted_arguments{'name'};
$category = $formatted_arguments{'category'};
$type = $formatted_arguments{'type'};
$class = $formatted_arguments{'class'};
$name = '' if (!defined($name));
$category = '' if (!defined($category));
my $class_category = &$Texi2HTML::Config::definition_category($category, $class, $style, $command);
my $class_name = &$Texi2HTML::Config::definition_index_entry($name, $class, $style, $command);
my ($index_entry, $formatted_index_entry, $index_label) = do_index_entry_label($macro, $state, $line_nr, $class_name_texi, $line);
add_prev($text, $stack, &$Texi2HTML::Config::def_line($class_category, $name, $type, $arguments, $index_label, \@formatted_args, $args_type_array, $args_array, $command, $class_name, $category, $class, $style, $orig_command));
$line = '';
push @$stack, { 'format' => 'deff_item', 'text' => '', 'only_inter_commands' => 1, 'format_ref' => $top_format, 'orig_command' => $orig_command};
begin_paragraph_after_command($state, $stack, $macro, $line);
}
# FIXME $complex_format_map obsoleted in nov 2009
elsif ((exists ($Texi2HTML::Config::complex_format_map->{$macro})
or exists ($Texi2HTML::Config::complex_format_map{$macro}))
and ($format_type{$macro} ne 'menu' or $Texi2HTML::Config::SIMPLE_MENU))
{ # handle menu if SIMPLE_MENU. see texi2html.init
my $complex_format;
if (exists ($Texi2HTML::Config::complex_format_map->{$macro}))
{
$complex_format = $Texi2HTML::Config::complex_format_map->{$macro};
}
else
{
$complex_format = $Texi2HTML::Config::complex_format_map{$macro};
}
my $format = { 'format' => $macro, 'text' => '', 'pre_style' => $complex_format->{'pre_style'} };
push_complex_format_style($macro, $complex_format, $state, $line_nr);
push @$stack, $format;
begin_paragraph($stack, $state);
}
elsif ($Texi2HTML::Config::paragraph_style{$macro})
{
push (@$stack, { 'format' => $macro, 'text' => '' });
begin_paragraph_after_command($state,$stack,$macro,$line) unless ($in_term);
push @{$state->{'paragraph_style'}}, $macro;
if ($macro eq 'center')
{
# @center may be in a weird state with regard with
# nesting, so we put it on the bottom of the stack
pop @{$state->{'command_stack'}};
unshift @{$state->{'command_stack'}}, $macro;
# for similar reasons, we may have a bad stack nesting
# which results in } after a closing.
# The following isn't really true anymore, I think: for example
# @center @samp{something @center end of samp}
# resulted to samp being kept in the 'command_stack'
}
}
elsif ($format_type{$macro} eq 'list' or $format_type{$macro} eq 'table' or $macro eq 'multitable')
{
my $format;
#print STDERR "LIST_TABLE $macro\n";
#dump_stack($text, $stack, $state);
if ($macro eq 'itemize' or $format_type{$macro} eq 'table')
{
my $command;
my $prepended;
($prepended, $command) = parse_format_command($line,$macro);
if (($command eq '') and ($macro ne 'itemize'))
{
$command = 'asis';
line_error(sprintf(__("%s requires an argument: the formatter for %citem"), $macro, ord('@')), $line_nr);
}
my $prepended_formatted;
$prepended_formatted = substitute_line($prepended, sprintf(__("prepended for \@%s"), $macro), prepare_state_multiple_pass('item', $state)) if (defined($prepended));
$format = { 'format' => $macro, 'text' => '', 'command' => $command, 'prepended' => $prepended, 'prepended_formatted' => $prepended_formatted };
$line = '';
}
elsif ($macro eq 'enumerate')
{
my $spec;
($line, $spec) = parse_enumerate ($line);
$spec = 1 if (!defined($spec));
$format = { 'format' => $macro, 'text' => '', 'spec' => $spec };
}
elsif ($macro eq 'multitable')
{
my ($max_columns, $fractions, $prototype_row) = parse_multitable ($line, $line_nr);
if (!$max_columns)
{
line_warn (__("empty multitable"), $line_nr);
$max_columns = 0;
}
my @prototype_lengths = ();
if (defined($prototype_row))
{
my $prototype_nr = 0;
foreach my $prototype (@$prototype_row)
{
$prototype_nr++;
push @prototype_lengths, 2+Texi2HTML::Config::t2h_default_string_width(substitute_line($prototype, sprintf(__("\@columnfraction (argument nr %d)"), $prototype_nr), prepare_state_multiple_pass('columnfractions', $state)));
}
}
$format = { 'format' => $macro, 'text' => '', 'max_columns' => $max_columns, 'columnfractions' => $fractions, 'prototype_row' => $prototype_row, 'prototype_lengths' => \@prototype_lengths, 'cell' => 1 };
}
$format->{'first'} = 1;
$format->{'item_nr'} = 0;
$format->{'paragraph_number'} = 0;
push @$stack, $format;
if ($format_type{$macro} eq 'table')
{
push @$stack, { 'format' => 'line', 'text' => '', 'format_ref' => $format, 'only_inter_commands' => 1};
}
elsif ($macro eq 'multitable')
{
push @$stack, { 'format' => 'row', 'text' => '', 'format_ref' => $format, 'item_cmd' => $macro };
push @$stack, { 'format' => 'cell', 'text' => '', 'format_ref' => $format, 'only_inter_commands' => 1};
}
if ($format_type{$macro} eq 'list')
{
push @$stack, { 'format' => 'item', 'text' => '', 'format_ref' => $format, 'only_inter_commands' => 1};
}
begin_paragraph_after_command($state,$stack,$macro,$line)
if ($macro ne 'multitable');
return '' unless ($macro eq 'enumerate');
}
elsif ($macro eq 'float' or $format_type{$macro} eq 'quotation')
{
push @$stack, {'format' => $macro, 'text' => '' };
if ($macro eq 'float')
{
my @args = parse_line_arguments($line, 2, "\@$macro");
do_float_line ($macro, \@args, $state->{'style_stack'}, $state, $line_nr);
}
elsif ($format_type{$macro} eq 'quotation')
{
my @args = parse_line_arguments($line, 1, "\@$macro", $line_nr);
do_quotation_line ($macro, $stack->[-1], \@args, $state->{'style_stack'}, $state, $line_nr);
}
$line = '';
if ($state->{'preformatted'})
{ # inconditionally begin a preformatted section if needed
begin_paragraph($stack, $state);
}
#dump_stack($text, $stack, $state);
}
# keep this one at the end as there are some other formats
# which are also in format_map
elsif (defined($Texi2HTML::Config::format_map{$macro}) or ($format_type{$macro} eq 'cartouche'))
{
push @$stack, { 'format' => $macro, 'text' => '' };
$state->{'code_style'}++ if ($Texi2HTML::Config::format_code_style{$macro});
begin_paragraph_after_command($state,$stack,$macro,$line);
}
elsif ($format_type{$macro} eq 'menu')
{
# if $Texi2HTML::Config::SIMPLE_MENU we won't get there
# as the menu is a complex format in that case, so it
# is handled above
push @$stack, { 'format' => $macro, 'text' => '' };
if ($state->{'preformatted'})
{
# add a fake complex style in order to have a given pre style
push_complex_format_style('menu',
$Texi2HTML::Config::MENU_PRE_COMPLEX_FORMAT, $state, $line_nr);
begin_paragraph_after_command($state,$stack,$macro,$line);
}
else
{
begin_format($text, $stack, $state, 'menu_comment', $line, $line_nr);
}
}
# this is useful for @center, and also if there was something on the
# line after a format that isn't there anymore, like
# @format @c
# if @center line is empty we don't remove the end of line
$line =~ s/^\s*// unless ($macro eq 'center' and $line =~ /^\s*$/);
return $line;
}
sub do_text($;$)
{
my $text = shift;
my $state = shift;
return $text if ($state->{'keep_texi'});
my $remove_texi = 1 if ($state->{'remove_texi'} and !$state->{'simple_format'});
my $preformatted_style = 0;
if ($state->{'preformatted'})
{
$preformatted_style = $state->{'preformatted_stack'}->[-1]->{'style'};
}
return (&$Texi2HTML::Config::normal_text($text, $remove_texi, $preformatted_style, $state->{'code_style'}, $state->{'math_style'}, $state->{'simple_format'},$state->{'command_stack'}, $state));
}
sub end_simple_format($$$)
{
my $command = shift;
my $text = shift;
my $state = shift;
my $element = $Texi2HTML::Config::format_map{$command};
my $result = &$Texi2HTML::Config::format($command, $element, $text);
$state->{'code_style'}-- if ($Texi2HTML::Config::format_code_style{$command});
return $result;
}
# only get there if not in SIMPLE_MENU and not in preformatted and
# right in @menu
sub close_menu_comment($$$$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $reason = shift;
my $line_nr = shift;
my $top_format = top_stack($stack,2);
if (defined($top_format->{'format'}) and $top_format->{'format'} eq 'menu_comment')
{ # this is needed to avoid empty menu-comments <tr>...<pre></pre>
abort_empty_preformatted($stack, $state);
close_paragraph($text, $stack, $state, $reason, $line_nr);
end_format($text, $stack, $state, 'menu_comment', $line_nr);
return 1;
}
}
# never get there if in $SIMPLE_MENU
# the last arg is used only if in description and an empty line may
# stop it and begin a menu_comment
sub close_menu_description($$$$$;$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $reason = shift;
my $line_nr = shift;
my $line = shift;
my $top_format = top_stack($stack,1);
if (!$state->{'preformatted'})
{
$top_format = top_stack($stack);
}
if (defined($top_format->{'format'}) and $top_format->{'format'} eq 'menu_description' and (!defined($line) or $line =~ /^\s*$/) )
{
close_paragraph($text, $stack, $state, $reason, $line_nr) if ($state->{'preformatted'});
my $descr = pop(@$stack);
add_prev($text, $stack, do_menu_description($descr, $state));
print STDERR "# close_menu: close description\n" if ($T2H_DEBUG & $DEBUG_MENU);
$state->{'code_style'}-- if ($Texi2HTML::Config::format_code_style{'menu_description'});
return 1;
}
}
# Format menu link
# FIXME also pass node and name?
sub do_menu_link($$$)
{
my $state = shift;
my $line_nr = shift;
my $menu_entry = shift;
my $file = $state->{'element'}->{'file'};
my $node_name = normalise_node($menu_entry->{'node'});
# normalise_node is used in fact to determine if name is empty.
# It is not passed down to the function reference.
my $name = normalise_node($menu_entry->{'name'});
# there is one substitution with spaces kept, and one with spaces
# normalized. In every cases nodes are in code_style
my $node_substitution_state = duplicate_formatting_state($state);
my $name_substitution_state = duplicate_formatting_state($state);
my $node_normalized_substitution_state = duplicate_formatting_state($state);
$node_substitution_state->{'code_style'} = 1;
$node_normalized_substitution_state->{'code_style'} = 1;
$name_substitution_state->{'code_style'} = 1 if ($Texi2HTML::Config::format_code_style{'menu_name'});
my $node_formatted = substitute_line($menu_entry->{'node'}, __("node name in menu"), $node_substitution_state, $line_nr);
my $node_normalized_formatted = substitute_line($node_name, __("normalized node name in menu"), $node_normalized_substitution_state);
my $name_formatted;
my $has_name = 0;
if (defined($name) and $name ne '')
{
$name_formatted = substitute_line($menu_entry->{'name'}, __("menu entry name"), $name_substitution_state, $line_nr);
$has_name = 1;
}
else
{
my $node_as_name = $menu_entry->{'node'};
$node_as_name =~ s/^\s*//;
$name_formatted = substitute_line($node_as_name, __("node name in menu"), $name_substitution_state);
}
my $entry = '';
my $href;
my $element;
if ($state->{'direntry'})
{
$href = do_external_href($node_name);
}
else
{
$element = $nodes{$node_name};
}
# menu points to an unknown node
if (defined($element) and !$element->{'seen'})
{
if ($menu_entry->{'node'} =~ /^\s*\(.*\)/o or Texi2HTML::Config::get_conf('novalidate'))
{
# menu entry points to another info manual or invalid nodes
# and novalidate is set
#$href = $nodes{$node_name}->{'file'};
$href = do_external_href($node_name);
}
else
{
line_error (sprintf(__("Menu reference to nonexistent node `%s'"), $node_name), $line_nr);
# try to find an equivalent node
my @equivalent_nodes = equivalent_nodes($node_name);
my $node_seen;
foreach my $equivalent_node (@equivalent_nodes)
{
if ($nodes{$equivalent_node}->{'seen'})
{
$node_seen = $equivalent_node;
last;
}
}
if (defined($node_seen))
{
document_warn("---> but equivalent node `$node_seen' found");
$element = $nodes{$node_seen};
}
}
}
# the original node or an equivalent node was seen
if (defined($element) and $element->{'seen'})
{
if ($element->{'reference_element'})
{
$element = $element->{'reference_element'};
}
#print STDERR "SUBHREF in menu for `$element->{'texi'}'\n";
$href = href($element, $file, $line_nr);
if (! $element->{'node'})
{
$entry = $element->{'text'}; # this is the section/node name
$entry = "$Texi2HTML::Config::MENU_SYMBOL $entry" if (($entry ne '') and (!defined($element->{'number'}) or ($element->{'number'} =~ /^\s*$/)) and $Texi2HTML::Config::UNNUMBERED_SYMBOL_IN_MENU);
}
}
# save the element used for the href for the description
$menu_entry->{'menu_reference_element'} = $element;
return &$Texi2HTML::Config::menu_link($entry, $state, $href, $node_formatted, $name_formatted, $menu_entry->{'ending'}, $has_name, $state->{'command_stack'}, $state->{'preformatted'}, $node_normalized_formatted);
}
sub do_menu_description($$)
{
my $descr = shift;
my $state = shift;
my $text = $descr->{'text'};
my $menu_entry = $descr->{'menu_entry'};
my $element = $menu_entry->{'menu_reference_element'};
############# debug
# this is not a bug if element is not defined in direntry
print STDERR "Bug: !defined(element) in do_menu_description\n" if (!defined($element) and ($state->{'menu'} or $state->{'detailmenu'}));
############# end debug
my $element_text = '';
$element_text = $element->{'text_nonumber'} if (defined($element));
return &$Texi2HTML::Config::menu_description($text, duplicate_formatting_state($state),$element_text, $state->{'command_stack'}, $state->{'preformatted'});
}
sub do_xref($$$$)
{
my $macro = shift;
my $args = shift;
my $style_stack = shift;
my $state = shift;
my $line_nr = shift;
my $result = '';
my @args = @$args;
my $j;
for ($j = 0; $j <= $#$args; $j++)
{
$args[$j] = normalise_texi_space($args[$j]);
# print STDERR " ($j)$args[$j]\n";
}
#print STDERR "DO_XREF: $macro\n";
if ($macro eq 'inforef')
{
if ((@args < 1) or $args[0] eq '')
{
line_error (sprintf(__("First argument to \@%s may not be empty"), $macro), $line_nr);
return '';
}
}
my $node_texi = $args[0];
$node_texi = normalise_node($node_texi);
#print STDERR "XREF: (@args)\n";
my $i;
my $new_state = duplicate_formatting_state($state);
$new_state->{'keep_texi'} = 0;
$new_state->{'keep_nr'} = 0;
my $remove_texi = $new_state->{'remove_texi'};
my @formatted_args;
for ($i = 0; $i < 5; $i++)
{
$args[$i] = '' if (!defined($args[$i]));
my $in_file_style;
$in_file_style = 1 if ($i == 2 and $macro eq 'inforef' or $i == 3 and $macro ne 'inforef');
$new_state->{'code_style'}++ if ($in_file_style or $i == 0);
$new_state->{'remove_texi'} = 1 if ($in_file_style);
$formatted_args[$i] = substitute_line($args[$i], sprintf(__("\@%s (argument nr %d)"), $macro, $i), $new_state, $line_nr);
$new_state->{'code_style'}-- if ($in_file_style or $i == 0);
$new_state->{'remove_texi'} = $remove_texi if ($in_file_style);
}
my ($file_texi, $file);
if ($macro eq 'inforef')
{
$file_texi = $args[2];
$file = $formatted_args[2];
}
else
{
$file_texi = $args[3];
$file = $formatted_args[3];
}
# Remark: makeinfo has this odd error message if the file is empty:
# warning (_("Empty file name for HTML cross reference in `%s'")
# This seems to be spurious.
# can be an argument or extracted from the node name
my $file_arg_or_node_texi = $file_texi;
my $file_arg_or_node = $file;
my $node_name;
# the file in parenthesis is removed from node_without_file_texi if needed
my $node_without_file_texi = $node_texi;
# node with file, like (file)node
my $node_and_file_texi;
# the file in parenthesis present with the node
my ($file_of_node_texi, $file_of_node);
if ($node_without_file_texi =~ s/^\(([^\)]+)\)\s*//)
{
$file_of_node_texi = $1;
$file_of_node = substitute_line($file_of_node_texi, sprintf(__p("\@*ref", "\@%s node file"), $macro), $new_state);
$node_name = substitute_line($node_without_file_texi, sprintf(__p("\@*ref", "\@%s node name"), $macro), $new_state);
$file_arg_or_node_texi = $file_of_node_texi if ($file_arg_or_node_texi eq '');
$file_arg_or_node = $file_of_node if ($file_arg_or_node eq '');
# the file argument takes precedence
$node_and_file_texi = "($file_arg_or_node_texi)$node_without_file_texi";
}
else
{
# normalized node name
$new_state->{'code_style'}++;
$node_name = substitute_line($node_without_file_texi, sprintf(__p("\@*ref", "\@%s node name"), $macro), $new_state);
$new_state->{'code_style'}--;
if (defined ($file_texi) and $file_texi ne '')
{
$node_and_file_texi = "($file_texi)$node_texi";
}
}
my $node_and_file;
if (defined($node_and_file_texi))
{
$node_and_file = substitute_line($node_and_file_texi, sprintf(__p("\@*ref","\@%s node with file name"), $macro), $new_state);
}
else
{
$node_and_file_texi = $node_texi;
$node_and_file = $node_name;
}
my $cross_ref_texi = $args[1];
my $cross_ref = $formatted_args[1];
my ($manual_texi, $section_texi, $manual, $section);
if ($macro ne 'inforef')
{
$manual_texi = $args[4];
$section_texi = $args[2];
$manual = $formatted_args[4];
$section = $formatted_args[2];
}
else
{
$manual = $section = '';
}
#print STDERR "XREF: (@args)\n";
if (($macro eq 'inforef') or ($file_arg_or_node_texi ne '') or ($manual_texi ne ''))
{# external ref
my $href = '';
if ($file_arg_or_node_texi ne '')
{
$href = do_external_href($node_and_file_texi);
}
else
{
$node_and_file = '';
}
#my $section_or_node = '';
#if ($manual ne '')
#{
# $section_or_node = $node_name;
# if ($section ne '')
# {
# $section_or_node = $section;
# }
#}
#$result = &$Texi2HTML::Config::external_ref($macro, $section_or_node, $manual, $node_and_file, $href, $cross_ref, \@args, \@formatted_args);
$result = &$Texi2HTML::Config::external_ref($macro, $section, $manual, $file_arg_or_node, $href, $cross_ref, \@args, \@formatted_args, $node_name);
}
else
{
my $element = $nodes{$node_without_file_texi};
if ($element and $element->{'seen'})
{
if ($element->{'reference_element'})
{
$element = $element->{'reference_element'};
}
my $file = '';
if (defined($state->{'element'}))
{
$file = $state->{'element'}->{'file'};
}
else
{
line_warn (sprintf(__("\@%s not in text (in anchor, node, section...)"), $macro), $line_nr);
# if Texi2HTML::Config::SPLIT the file is '' which ensures
# a href with the file name. if ! Texi2HTML::Config::SPLIT
# the 2 file will be the same thus there won't be the file name
$file = $element->{'file'} unless (Texi2HTML::Config::get_conf('SPLIT'));
}
#print STDERR "SUBHREF in ref to node `$node_texi'";
my $href = href($element, $file, $line_nr);
my $section_or_cross_ref = $section;
$section_or_cross_ref = $cross_ref if ($section eq '');
if ($element->{'float'} and $section_or_cross_ref eq '')
{
my $style = substitute_line(&$Texi2HTML::Config::listoffloats_float_style($element->{'style_texi'}, $element), __("\@listoffloats \@float type"));
$section_or_cross_ref = $style if (defined($style));
}
my $name = $section_or_cross_ref;
my $short_name = $section_or_cross_ref;
if ($section_or_cross_ref eq '')
{
# FIXME maybe one should use 'text' instead of 'text_nonumber'
# However the real fix would be to have an internal_ref call
# with more informations
$name = $element->{'text_nonumber'};
$short_name = $node_name;
}
$result = &$Texi2HTML::Config::internal_ref ($macro, $href, $short_name, $name, $element->{'section'}, \@args, \@formatted_args, $element);
}
else
{
if (($node_texi eq '') or (! Texi2HTML::Config::get_conf('novalidate')))
{
line_error (sprintf(__("\@%s reference to nonexistent node `%s'"), $macro, $node_texi), $line_nr);
my $text = '';
for (my $i = 0; $i < @$args -1; $i++)
{
$text .= $args->[$i] .',';
}
$text .= $args->[-1];
$result = "\@$macro"."{${text}}";
}
else
{
#$result = &$Texi2HTML::Config::external_ref($macro, '', '', $node_name, do_external_href($node_texi), $cross_ref, \@args, \@formatted_args);
$result = &$Texi2HTML::Config::external_ref($macro, '', '', '', do_external_href($node_texi), $cross_ref, \@args, \@formatted_args, $node_name);
}
}
}
return $result;
}
sub do_acronym_like($$$$$)
{
my $command = shift;
my $args = shift;
my $acronym_texi = shift @$args;
my $explanation = shift @$args;
my $style_stack = shift;
my $state = shift;
my $line_nr = shift;
my $explanation_lines;
my $explanation_text;
my $explanation_simple_format;
if (defined($explanation))
{
$explanation = trim_around_spaces($explanation);
$explanation = undef if ($explanation eq '');
}
$acronym_texi = trim_around_spaces($acronym_texi);
return '' if ($acronym_texi eq '');
my $with_explanation = 0;
my $normalized_text = cross_manual_line(normalise_node($acronym_texi));
if (defined($explanation))
{
$with_explanation = 1;
$acronyms_like{$command}->{$normalized_text} = $explanation;
}
elsif (exists($acronyms_like{$command}->{$normalized_text}))
{
$explanation = $acronyms_like{$command}->{$normalized_text};
}
if (defined($explanation))
{
@$explanation_lines = map {$_ = $_."\n"} split (/\n/, $explanation);
my $text = '';
foreach my $line(@$explanation_lines)
{
$line .= ' ' if (chomp ($line));
$text .= $line
}
$text =~ s/ $//;
$explanation_simple_format = simple_format($state, [ $line_nr ], "simple_format \@$command explanation", $text);
$explanation_text = substitute_line($text, sprintf(__p("\@abbr or \@acronym", "\@%s explanation"), $command), duplicate_formatting_state($state), $line_nr);
}
return &$Texi2HTML::Config::acronym_like($command, $acronym_texi, substitute_line($acronym_texi, "\@$command", duplicate_formatting_state($state), $line_nr),
$with_explanation, $explanation_lines, $explanation_text, $explanation_simple_format);
}
sub do_caption_shortcaption($$$$$$)
{
my $command = shift;
my $args = shift;
my $text_texi = $args->[0];
my $style_stack = shift;
my $state = shift;
my $line_nr = shift;
my $kept_line_nrs = shift;
if (!exists($state->{'float'}))
{
line_error(sprintf(__("\@%s not meaningful outside `\@float' environment"), $command), $line_nr);
return '';
}
my $float = $state->{'float'};
my @texi_lines = map {$_ = $_."\n"} split (/\n/, $text_texi);
$float->{"${command}_texi"} = \@texi_lines;
if (defined($kept_line_nrs))
{
$float->{"${command}_keep_line_nr"} = [ @$kept_line_nrs ];
msg_debug ("Empty $kept_line_nrs", $line_nr) unless (@{$kept_line_nrs});
}
else
{
$float->{"${command}_keep_line_nr"} = [ $line_nr ];
msg_debug("do_caption_shortcaption $command, $float, kept_line_nrs not defined", $line_nr);
}
#print STDERR "GGGGGGG @$kept_line_nrs\n";
return &$Texi2HTML::Config::caption_shortcaption_command($command,
substitute_text(prepare_state_multiple_pass($command, $state), $kept_line_nrs, "\@$command in do_caption_shortcaption", @texi_lines), \@texi_lines, $float);
}
# function called when a @float is encountered. Don't do any output
# but prepare $state->{'float'}
sub do_float_line($$$$$)
{
my $command = shift;
my $args = shift;
my $style_stack = shift;
my $state = shift;
my $line_nr = shift;
my @args = @$args;
my $style_texi = shift @args;
my $label_texi = shift @args;
$style_texi = undef if (defined($style_texi) and $style_texi=~/^\s*$/);
$label_texi = undef if (defined($label_texi) and $label_texi=~/^\s*$/);
$style_texi = normalise_texi_space($style_texi) if (defined($style_texi));
if (defined($label_texi))
{ # the float is considered as a node as it may be a target for refs.
# it was entered as a node in the pass_structure and the float
# line was parsed at that time
$state->{'float'} = $nodes{normalise_node($label_texi)};
#msg_debug("float: $state->{'float'}, $state->{'float'}->{'texi'}", $line_nr);
}
else
{ # a float without label. It can't be the target for refs.
$state->{'float'} = { 'float' => 1 };
if (defined($style_texi))
{
$state->{'float'}->{'style_texi'} = $style_texi;
$state->{'float'}->{'style_id'} =
cross_manual_line($state->{'float'}->{'style_texi'});
}
#print STDERR "float: (no label) $state->{'float'}\n";
}
$state->{'float'}->{'style'} = substitute_line($state->{'float'}->{'style_texi'}, __("\@float style"), undef, $line_nr);
return '';
}
sub do_quotation_line($$$$$$)
{
my $command = shift;
my $format_ref = shift;
my $args = shift;
my @args = @$args;
my $text_texi = shift @args;
my $style_stack = shift;
my $state = shift;
my $line_nr = shift;
my $text;
$text_texi = undef if (defined($text_texi) and $text_texi=~ /^\s*$/);
if (defined($text_texi))
{
$text_texi = trim_around_spaces($text_texi);
$text = substitute_line($text_texi, sprintf(__p("\@*quotation", "\@%s argument"), $command), duplicate_formatting_state($state), $line_nr);
#$text =~ s/\s*$//;
}
my $quotation_args = { 'text' => $text, 'text_texi' => $text_texi };
push @{$state->{'quotation_stack'}}, $quotation_args;
$format_ref->{'argument_text'} = $text;
$format_ref->{'argument_texi'} = $text_texi;
$state->{'prepend_text'} = &$Texi2HTML::Config::quotation_prepend_text($command, $text_texi);
return '';
}
sub do_footnote($$$$$$)
{
my $command = shift;
my $args = shift;
my $text = $args->[0];
my $style_stack = shift;
my $doc_state = shift;
my $line_nr = shift;
my $kept_line_nrs = shift;
$text .= "\n";
$text = &$Texi2HTML::Config::footnote_texi($text, $doc_state, $style_stack)
if (defined($Texi2HTML::Config::footnote_texi));
my $foot_state = duplicate_state($doc_state);
fill_state($foot_state);
push @{$foot_state->{'command_stack'}}, 'footnote';
push_state($foot_state);
my ($foot_num, $relative_foot_num);
my $special_place;
if (!defined($foot_state->{'expansion'}) and !defined($foot_state->{'region'}))
{
$foot_num = \$global_foot_num;
$relative_foot_num = \$global_relative_foot_num;
}
else
{
$special_place = $foot_state->{'expansion'};
$special_place = $foot_state->{'region'} if (!defined($special_place));
$foot_num = \$doc_state->{'foot_num'};
$relative_foot_num = \$doc_state->{'relative_foot_num'};
}
$$foot_num++;
$$relative_foot_num++;
my $docid = "DOCF$$foot_num";
my $footid = "FOOT$$foot_num";
if (defined($special_place))
{
$docid = $target_prefix . $special_place . "_$docid";
$footid = $target_prefix . $special_place . "_$footid";
}
my $from_file = $docu_doc;
if ($doc_state->{'element'})
{
$from_file = $doc_state->{'element'}->{'file'};
}
if (Texi2HTML::Config::get_conf('footnotestyle') eq 'separate')
{
$foot_state->{'element'} = $footnote_element;
}
$foot_state->{'footnote_number_in_doc'} = $$foot_num;
$foot_state->{'footnote_number_in_page'} = $$relative_foot_num;
$foot_state->{'footnote_footnote_id'} = $footid;
$foot_state->{'footnote_place_id'} = $docid;
$foot_state->{'footnote_document_file'} = $from_file;
$foot_state->{'footnote_footnote_file'} = $foot_state->{'element'}->{'file'};
$foot_state->{'footnote_document_state'} = $doc_state;
# FIXME use split_lines ? It seems to work like it is now ?
msg_debug ("No line nnumbers in footnote", $line_nr) if (!defined($kept_line_nrs) or !@$kept_line_nrs);
my @lines;
if (defined($text))
{
@lines = substitute_text($foot_state, $kept_line_nrs, '@footnote', map {$_ = $_."\n"} split (/\n/, $text));
}
my ($foot_lines, $foot_label) = &$Texi2HTML::Config::foot_line_and_ref($$foot_num,
$$relative_foot_num, $footid, $docid, $from_file, $foot_state->{'element'}->{'file'}, \@lines, $doc_state);
if ($doc_state->{'outside_document'} or (defined($doc_state->{'multiple_pass'}) and $doc_state->{'multiple_pass'} > 0))
{
#print STDERR "multiple_pass $doc_state->{'multiple_pass'}, 'outside_document' $doc_state->{'outside_document'}\n";
#print STDERR "REGION FOOTNOTE($$foot_num): $doc_state->{'region'} ($doc_state->{'region_pass'})\n";
$region_initial_state{$doc_state->{'region'}}->{'footnotes'}->{$$foot_num}->{$doc_state->{'region_pass'}} = $foot_lines if (defined($doc_state->{'region'}));
}
else
{
#print STDERR "GLOBAL FOOTNOTE($$foot_num)\n";
push(@foot_lines, @{$foot_lines});
}
pop_state();
return $foot_label;
}
sub do_image($$$$$)
{
# replace images
my $command = shift;
my $args = shift;
my $style_stack = shift;
my $state = shift;
my $line_nr = shift;
my @args;
foreach my $arg (@$args)
{
$arg = trim_around_spaces($arg) if (defined($arg));
push @args, $arg;
}
my $base = substitute_line($args[0], __("\@image base name"),{'code_style' => 1, 'remove_texi' => 1});
my $base_simple = substitute_line($args[0], __("\@image base name"), {'simple_format' => 1, 'code_style' => 1});
if ($base eq '')
{
line_error ("\@image missing filename argument", $line_nr);
return '';
}
$args[4] = '' if (!defined($args[4]));
$args[3] = '' if (!defined($args[3]));
my $image;
my $extension = substitute_line($args[4], __("\@image extension"), {'code_style' => 1, 'remove_texi' => 1});
my $extension_simple = substitute_line($args[4], __("\@image extension"), {'simple_format' => 1, 'code_style' => 1});
my ($file_name, $image_name, $simple_file_name);
my @file_locations;
my @file_names = &$Texi2HTML::Config::image_files($base,$extension,$args[0],$args[4]);
# $image = locate_include_file("$base.$args[4]") if ($args[4] ne '');
foreach my $file (@file_names)
{
my $simple_file = substitute_line($file->[1], __("\@image file name"), {'simple_format' => 1, 'code_style' => 1});
if ($image = locate_include_file($file->[0]))
{
if (!defined($file_name))
{
$file_name = $file->[0];
$image_name = $image;
$simple_file_name = $simple_file;
}
push @file_locations, [$file, $image, $simple_file];
}
else
{
push @file_locations, [$file, undef, $simple_file];
}
}
$image_name = '' if (!defined($image_name));
$simple_file_name = '' if (!defined($simple_file_name));
my $alt;
if ($args[3] =~ /\S/)
{
$alt = substitute_line($args[3], __("\@image alt text"), {'simple_format' => 1}, $line_nr);
}
return &$Texi2HTML::Config::image($path_to_working_dir . $image_name,
$base,
$state->{'preformatted'}, $file_name, $alt, $args[1], $args[2],
$args[3], $extension, $path_to_working_dir, $image_name,
$state->{'paragraph_context'}, \@file_locations, $base_simple,
$extension_simple, $simple_file_name, $line_nr);
}
# usefull if we want to duplicate only the global state, nothing related with
# formatting
sub duplicate_state($)
{
my $state = shift;
my $new_state = { 'element' => $state->{'element'},
'multiple_pass' => $state->{'multiple_pass'},
'region_pass' => $state->{'region_pass'},
'region' => $state->{'region'},
'expansion' => $state->{'expansion'},
'sec_num' => $state->{'sec_num'},
'outside_document' => $state->{'outside_document'},
'inside_document' => $state->{'inside_document'},
'duplicated' => 1
};
return $new_state;
}
# duplicate global and formatting state.
sub duplicate_formatting_state($)
{
my $state = shift;
my $new_state = duplicate_state($state);
# Things passed here should be things that are not emptied/set to 0 by
# any command. Also they shouldn't need anything to be on the
# stack. This rules out paragraphs, for example.
foreach my $format_key ('preformatted', 'code_style', 'keep_texi',
'keep_nr', 'preformatted_stack')
{
$new_state->{$format_key} = $state->{$format_key};
}
# this is needed for preformatted
my $command_stack = $state->{'command_stack'};
$command_stack = [] if (!defined($command_stack));
$new_state->{'command_stack'} = [ @$command_stack ];
$new_state->{'preformatted_context'} = {'stack_at_beginning' => [ @$command_stack ]};
$new_state->{'code_style'} = 0 if (!defined($new_state->{'code_style'}));
return $new_state;
}
sub expand_macro($$$$$)
{
my $name = shift;
my $args = shift;
my $end_line = shift;
my $line_nr = shift;
my $state = shift;
# we dont expand macros when in ignored environment.
return if ($state->{'ignored'});
die "Bug end_line not defined" if (!defined($end_line));
my $index = 0;
foreach my $arg (@$args)
{ # expand @macros in arguments. It is complicated because we must be
# carefull not to expand macros in @ignore section or the like, and
# still keep every single piece of text (including the @ignore macros).
$args->[$index] = substitute_text({'texi' => 1, 'arg_expansion' => 1}, undef, "expand_macro in $name", split_lines($arg));
$index++;
}
# retrieve the macro definition
my $macrobody = $macros->{$name}->{'body'};
my $formal_args = $macros->{$name}->{'args'};
my $args_index = $macros->{$name}->{'args_index'};
my $i;
for ($i=0; $i<=$#$formal_args; $i++)
{
$args->[$i] = "" unless (defined($args->[$i]));
print STDERR "# arg($i): $args->[$i]\n" if ($T2H_DEBUG & $DEBUG_MACROS);
}
line_error (sprintf(__("Macro `%s' called with too many args"), $name), $line_nr) if (defined($args->[$i + 1]));
my $result = '';
while ($macrobody ne '')
{
if ($macrobody =~ s/^([^\\]*)\\//o)
{
$result .= $1 if defined($1);
if ($macrobody =~ s/^\\//)
{
$result .= '\\';
}
elsif ($macrobody =~ s/^(\@end\sr?macro)$// or $macrobody =~ s/^(\@end\sr?macro\s)// or $macrobody =~ s/^(\@r?macro\s+\w+\s*.*)//)
{ # \ protect @end macro
$result .= $1;
}
elsif ($macrobody =~ s/^([^\\]*)\\//)
{
my $arg = $1;
if (defined($args_index->{$arg}))
{
$result .= $args->[$args_index->{$arg}];
}
else
{
line_error (sprintf(__("\\ in macro expansion followed `%s' instead of parameter name or \\"), $arg), $macros->{$name}->{'line_nr'});
$result .= '\\' . $arg;
}
}
next;
}
$result .= $macrobody;
last;
}
my @result = split(/^/m, $result);
# for a completly empty macro, $result = '', and the split leads
# to an empty array, so add back an empty string
@result = ('') if (!scalar(@result));
# Add the result of the macro expansion back to the input_spool.
# Set the macro name if in the outer macro
if ($state->{'arg_expansion'})
{ # in that case we are in substitute_text for an arg
unshift @{$state->{'spool'}}, (@result, $end_line);
}
else
{
#$result[-1].=$end_line;
#foreach my $res (@result)
#{
# print STDERR "RESULT:$res";
#}
#print STDERR "#########end->$end_line";
my $last_line = $result[-1];
if (chomp($last_line))
{
push @result, $end_line;
}
else
{
$result[-1] .= $end_line;
}
unshift @{$state->{'input_spool'}->{'spool'}}, (@result); #, $end_line);
$state->{'input_spool'}->{'macro'} = $name if ($state->{'input_spool'}->{'macro'} eq '');
}
if ($T2H_DEBUG & $DEBUG_MACROS)
{
print STDERR "# macro expansion result:\n";
#print STDERR "$first_line";
foreach my $line (@result)
{
print STDERR "$line";
}
print STDERR "# macro expansion result end\n";
}
}
sub do_index_summary_file($$)
{
my $name = shift;
my $docu_name = shift;
&$Texi2HTML::Config::index_summary_file_begin ($name, $printed_indices{$name}, $docu_name);
print STDERR "# writing $name index summary for $docu_name\n" if $T2H_VERBOSE;
foreach my $letter_entries (@{$Texi2HTML::THISDOC{'index_letters_array'}->{$name}})
{
foreach my $entry (@{$letter_entries->{'entries'}})
{
#my $entry = $entries->{$key};
my $indexed_element = $entry->{'element'};
my $entry_element = $indexed_element;
$entry_element = $entry_element->{'element_ref'} if (defined($entry_element->{'element_ref'}));
my $origin_href = $entry->{'file'};
#print STDERR "$entry $entry->{'entry'}, real elem $indexed_element->{'texi'}, section $entry_element->{'texi'}, real $indexed_element->{'file'}, entry file $entry->{'file'}\n";
if ($entry->{'target'})
{
$origin_href .= '#' . $entry->{'target'};
}
else
{
$origin_href .= '#' . $indexed_element->{'target'};
}
&$Texi2HTML::Config::index_summary_file_entry ($name,
$entry->{'key'}, $origin_href,
substitute_line($entry->{'entry'}, "\@$entry->{'command'}"), $entry->{'entry'},
href($entry_element, ''),
$entry_element->{'text'},
$printed_indices{$name},
$docu_name);
}
}
&$Texi2HTML::Config::index_summary_file_end ($name, $printed_indices{$name}, $docu_name);
}
sub get_index_entry_infos($$;$)
{
my $entry = shift;
my $element = shift;
my $line_nr = shift;
my $index_heading_element = $entry->{'element'};
my $entry_heading_element = $index_heading_element;
my $real_index_element = $entry->{'real_element'};
if (!defined($entry->{'real_element'}))
{
print STDERR "BUG: entry->{'real_element'} not defined\n";
}
# we always use the associated element_ref, instead of the original
# element
$entry_heading_element = $entry_heading_element->{'element_ref'}
if (defined($entry_heading_element->{'element_ref'}));
if ($entry->{'real_element'} eq $element_before_anything)
{
$real_index_element = $element_top;
}
else
{
$real_index_element = $entry->{'real_element'}->{'element_ref'};
if (!defined($real_index_element))
{ # happens when $USE_NODES = 0 and there are only sections,
# and vice-versa
$real_index_element = $entry->{'real_element'};
}
}
my $origin_href = '';
print STDERR "BUG: entry->{'file'} not defined for `$entry->{'entry'}'\n"
if (!defined($entry->{'file'}));
print STDERR "BUG: element->{'file'} not defined for `$entry->{'entry'}', `$element->{'texi'}'\n"
if (!defined($element->{'file'}));
$origin_href = $entry->{'file'} if ($entry->{'file'} ne $element->{'file'});
#print STDERR "$entry $entry->{'entry'}, real heading elem $index_heading_element->{'texi'}, section $entry_element->{'texi'}, real $index_heading_element->{'file'}, entry file $entry->{'file'}\n";
if (defined($entry->{'target'}))
{
$origin_href .= '#' . $entry->{'target'};
}
else
{ # this means that the index entry is in a special region like @copying...
$origin_href .= '#' . $index_heading_element->{'target'};
}
#print STDERR "SUBHREF in index entry `$entry->{'entry'}' for `$entry_element->{'texi'}'\n";
return ($origin_href,
$entry->{'file'},
$element->{'file'},
$entry->{'target'},
$index_heading_element->{'target'},
substitute_line($entry->{'entry'}, "\@$entry->{'command'} index infos"),
href($entry_heading_element, $element->{'file'}, $line_nr),
$entry_heading_element->{'text'},
(!$entry->{'seen_in_output'} and defined($entry->{'region'})));
}
# remove texi commands, replacing with what seems adequate. see simple_map_texi
# and texi_map.
# Doesn't protect html
sub remove_texi(@)
{
return substitute_text ({ 'remove_texi' => 1}, undef, undef, @_);
}
# Same as remove texi but protect text and use special maps for @-commands
sub simple_format($$$@)
{
my $state = shift;
my $line_nrs = shift;
my $context = shift;
if (!defined($state))
{
$state = {};
}
else
{
$state = duplicate_formatting_state($state);
}
$state->{'remove_texi'} = 1;
$state->{'simple_format'} = 1;
$::simple_map_texi_ref = \%Texi2HTML::Config::simple_format_simple_map_texi;
$::style_map_texi_ref = \%Texi2HTML::Config::simple_format_style_map_texi;
$::texi_map_ref = \%Texi2HTML::Config::simple_format_texi_map;
my $text = substitute_text($state, $line_nrs, $context, @_);
$::simple_map_texi_ref = \%Texi2HTML::Config::simple_map_texi;
$::style_map_texi_ref = \%Texi2HTML::Config::style_map_texi;
$::texi_map_ref = \%Texi2HTML::Config::texi_map;
return $text;
}
sub index_entry_command_prefix($$$)
{
my $command = shift;
my $line = shift;
my $line_nr = shift;
if ($command =~ /^(v|f)table$/)
{
return $1;
}
elsif (defined($Texi2HTML::Config::def_map{$command}))
{
my ($prefix, $entry, $argument) = get_deff_index($command, $line, undef, 0);
return $prefix;
}
my $prefix = index_command_prefix($command);
line_error(sprintf(__("No index prefix found for \@%s"),$command),$line_nr) if ($prefix eq '');
return $prefix;
}
sub enter_table_index_entry($$$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
if ($state->{'item'})
{
my $item_command = $state->{'item'};
delete $state->{'item'};
my $item = pop @$stack;
if ($state->{'table_stack'}->[-1] =~ /^(v|f)table$/)
{
my $index = $1;
enter_index_entry($index, $line_nr,
$item->{'text'}, $state->{'table_stack'}->[-1], $state);
}
add_prev($text, $stack, "\@$item_command" . $item->{'text'});
}
}
sub end_macro($$$)
{
my $state = shift;
my $end_string = shift;
my $remaining_on_the_line = shift;
$state->{'macro_inside'}--;
return (0, undef) if ($state->{'ignored'});
if ($state->{'macro_inside'})
{
$state->{'macro'}->{'body'} .= $end_string;
return (0, undef);
}
my $macro_text = $state->{'macro'}->{'header'} . $state->{'macro'}->{'body'}.$end_string;
chomp $state->{'macro'}->{'body'};
print STDERR "# end macro def. Body:\n$state->{'macro'}->{'body'}"
if ($T2H_DEBUG & $DEBUG_MACROS);
$macros->{$state->{'macro'}->{'name'}} = $state->{'macro'} unless ($state->{'arg_expansion'});
delete $state->{'macro'};
return (1, $macro_text.$remaining_on_the_line) if ($remaining_on_the_line =~ /^\s*$/);
return (0, $macro_text);
}
sub close_macro_arg($$$)
{
my $state = shift;
my $current_line = shift;
my $line_nr = shift;
# balanced } ends the macro call, otherwise it is in the arg
$state->{'macro_depth'}--;
if ($state->{'macro_depth'} == 0)
{
#print STDERR "BEFORE: $current_line";
print STDERR "# expanding macro $state->{'macro_name'}\n" if ($T2H_DEBUG & $DEBUG_MACROS);
#$current_line =
expand_macro($state->{'macro_name'}, $state->{'macro_args'}, $current_line, $line_nr, $state);
delete $state->{'macro_name'};
delete $state->{'macro_depth'};
delete $state->{'macro_args'};
#print STDERR "AFTER: $current_line";
#return $current_line;
return 1;
}
else
{
print STDERR "# macro call: closing }\n" if ($T2H_DEBUG & $DEBUG_MACROS);
add_text('}', \$state->{'macro_args'}->[-1]);
return undef;
}
}
sub close_style_texi($$$$;$)
{
my $style = shift;
my $text = shift;
my $stack = shift;
my $state = shift;
my $no_close = shift;
$no_close = 0 if (!defined($no_close));
my $result;
if (!defined($style->{'style'}))
{
msg_debug("'style' not defined in close_style_texi ($no_close)");
foreach my $key (keys(%$style))
{
print STDERR " --> $key: ".var_to_str($style->{$key})."\n";
}
}
if (($style->{'style'} ne '') and exists($info_enclose{$style->{'style'}}) and !$state->{'arg_expansion'})
{
$result = $info_enclose{$style->{'style'}}->[0] . $style->{'text'} . $info_enclose{$style->{'style'}}->[1];
}
elsif ($style->{'style'} ne '')
{
$result = '@' . $style->{'style'} . '{' . $style->{'text'};
$result .= '}' unless ($no_close);
}
else
{
$result = '{' . $style->{'text'};
# don't close { if we are closing stack as we are not
# sure this is a { ... } construct. i.e. we are
# not sure that the user properly closed the matching
# brace, so we don't close it ourselves
$result .= '}' unless ($no_close or $state->{'arg_expansion'});
}
if ($state->{'ignored'})
{# ARG_EXPANSION
print STDERR "# Popped `$style->{'style'}' in ifset/ifclear\n" if ($T2H_DEBUG);
}
else
{
add_prev ($text, $stack, $result);
}
}
sub close_ignored ($$)
{
my $state = shift;
my $stack = shift;
if (($state->{'ifvalue_inside'}) and $state->{'ignored'} eq $state->{'ifvalue'})
{
if ($state->{'ifvalue_inside'} == 1)
{# closing still opened @-commands with braces
pop (@$stack) while (@$stack and $stack->[-1]->{'style'} ne 'ifvalue')
}
pop (@$stack);
$state->{'ifvalue_inside'}--;
}
$state->{'ignored'} = undef;
delete $state->{'ignored'};
# We are stil in the ignored ifset or ifclear section
$state->{'ignored'} = $state->{'ifvalue'} if ($state->{'ifvalue_inside'});
#dump_stack($text, $stack, $state);
}
# Called in 2 contexts:
# * in main document
# * from substitute_text, called in turn from arg_expansion. In that case
# 'texi' is true, and so is 'arg_expansion'. In that case constructs are
# expanded but no action is performed. Therefore $line_nr is not of use.
sub scan_texi($$$$;$)
{
my $scanned_line = shift;
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
die "stack not an array ref" unless (ref($stack) eq "ARRAY");
my $cline = $scanned_line;
while(1)
{
# scan_texi
#print STDERR "WHILE(t):$cline";
#print STDERR "ARG_EXPANSION: $state->{'arg_expansion'}\n" if ($state->{'arg_expansion'});
#dump_stack($text, $stack, $state);
#print STDERR "ifvalue_inside $state->{'ifvalue_inside'}\n";
# first we handle special cases:
# macro definition: $state->{'macro_inside'}
# macro arguments: $state->{'macro_name'}
# raw format: $state->{'raw'}
# @verb: $state->{'verb'}
# ignored: $state->{'ignored'}
# and then the remaining text/macros.
# in macro definition
if ($state->{'macro_inside'})
{
if ($cline =~ s/^([^\\\@]*\\)//)
{# protected character or @end macro
$state->{'macro'}->{'body'} .= $1 unless ($state->{'ignored'});
if ($cline =~ s/^\\//)
{
$state->{'macro'}->{'body'} .= '\\' unless ($state->{'ignored'});
next;
}
# I believe it is correct, although makeinfo don't do that.
elsif ($cline =~ s/^(\@end\sr?macro)$//o or $cline =~ s/^(\@end\sr?macro\s)//o
or $cline =~ s/^(\@r?macro\s+\w+\s*.*)//o)
{
$state->{'macro'}->{'body'} .= $1 unless ($state->{'ignored'});
next;
}
}
#if ($cline =~ s/^(.*?)\@end\sr?macro$//o or $cline =~ s/^(.*?)\@end\sr?macro\s+//o)
if ($cline =~ s/^(\@end\sr?macro)$//o or $cline =~ s/^(\@end\sr?macro\s+)//o)
{
my ($no_remaining, $result) = end_macro($state, $1, $cline);
add_prev ($text, $stack, $result) if (defined($result));
return 1 if ($no_remaining);
next;
}
elsif($cline =~ /^(\@r?macro\s+\w+\s*.*)/)
{
$state->{'macro'}->{'body'} .= $cline unless ($state->{'ignored'});
$state->{'macro_inside'}++;
#return;
return 1;
}
elsif ($cline =~ s/^\@(.)//)
{
$state->{'macro'}->{'body'} .= '@' . $1 unless ($state->{'ignored'});
next;
}
elsif ($cline =~ s/^\@//)
{
$state->{'macro'}->{'body'} .= '@' unless ($state->{'ignored'});
next;
}
else
{
$cline =~ s/([^\@\\]*)//;
if ($state->{'ignored'})
{
return if ($cline =~ /^$/);
next;
}
$state->{'macro'}->{'body'} .= $1 if (defined($1));
if ($cline =~ /^$/)
{
$state->{'macro'}->{'body'} .= $cline;
#return;
return 1;
}
next;
}
}
# in macro arguments parsing/expansion. Here \ { } and , if this is a
# multi args macro have a signification, the remaining is passed
# unmodified
if (defined($state->{'macro_name'}))
{
my $special_chars = quotemeta ('\{}');
my $multi_args = 0;
my $formal_args = $macros->{$state->{'macro_name'}}->{'args'};
$multi_args = 1 if ($#$formal_args >= 1);
$special_chars .= quotemeta(',') if ($multi_args);
if ($state->{'macro_args'}->[-1] eq '')
{# remove space at the very beginning
$cline =~ s/^\s*//o;
}
if ($cline =~ s/^([^$special_chars]*)([$special_chars])//)
{
$state->{'macro_args'}->[-1] .= $1 if defined($1);
# \ protects any character in macro arguments
if ($2 eq '\\')
{
print STDERR "# macro call: protected char\n" if ($T2H_DEBUG & $DEBUG_MACROS);
if ($cline =~ s/^(.)//)
{
$state->{'macro_args'}->[-1] .= $1;
}
else
{
$state->{'macro_args'}->[-1] .= '\\';
}
}
elsif ($2 eq ',')
{ # in texinfo 4.8.90 a comma in braces is protected
if ($state->{'macro_depth'} > 1)
{
$state->{'macro_args'}->[-1] .= ',';
}
else
{ # separate args
print STDERR "# macro call: new arg\n" if ($T2H_DEBUG & $DEBUG_MACROS);
$cline =~ s/^\s*//o;
push @{$state->{'macro_args'}}, '';
}
}
elsif ($2 eq '}')
{
#my $macro_result_line = close_macro_arg($state, $cline);
return if (close_macro_arg($state, $cline, $line_nr));
#if (defined($macro_result_line))
#{
# $cline = $macro_result_line;
# return;
#}
}
elsif ($2 eq '{')
{
print STDERR "# macro call: opening {\n" if ($T2H_DEBUG & $DEBUG_MACROS);
$state->{'macro_depth'}++;
add_text('{', \$state->{'macro_args'}->[-1]);
}
next;
}
print STDERR "# macro call: end of line\n" if ($T2H_DEBUG & $DEBUG_MACROS);
$state->{'macro_args'}->[-1] .= $cline;
return;
}
# in a raw format, verbatim, tex or html
if ($state->{'raw'})
{
my $tag = $state->{'raw'};
# debugging
if (! @$stack or ($stack->[-1]->{'style'} ne $tag))
{
print STDERR "Bug: raw or special: $tag but not on top of stack\n";
print STDERR "line: $cline";
dump_stack($text, $stack, $state);
exit 1;
}
# macro_regexp
if ($cline =~ /^(.*?)\@end\s([a-zA-Z][\w-]*)/o and ($2 eq $tag))
{
$cline =~ s/^(.*?)(\@end\s$tag)//;
# we add it even if 'ignored', it'll be discarded just below
# with the @end
add_prev ($text, $stack, $1);
my $end = $2;
my $style = pop @$stack;
# if 'arg_expansion' and 'ignored' are both true text
# is ignored.
add_prev ($text, $stack, $style->{'text'} . $end) unless ($state->{'ignored'});
delete $state->{'raw'};
next;
}
else
{# we add it even if 'ignored', it'll be discarded when there is
# the @end
add_prev ($text, $stack, $cline);
last;
}
}
# in a @verb{ .. } macro
if (defined($state->{'verb'}))
{
#dump_stack($text, $stack, $state);
my $char = quotemeta($state->{'verb'});
#print STDERR "VERB $char\n";
if ($cline =~ s/^(.*?)$char\}/\}/)
{# we add it even if 'ignored', it'll be discarded when closing
add_prev($text, $stack, $1 . $state->{'verb'});
$stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'};
delete $state->{'verb'};
next;
}
else
{# we add it even if 'ignored', it'll be discarded when closing
add_prev($text, $stack, $cline);
last;
}
}
# In ignored region
if ($state->{'ignored'})
{
#print STDERR "IGNORED(ifvalue($state->{'ifvalue_inside'})): $state->{'ignored'}\n";
if ($cline =~ /^.*?\@end(\s+)([a-zA-Z]\w+)/)
{
if ($2 eq $state->{'ignored'})
{
$cline =~ s/^(.*?\@end)(\s+)([a-zA-Z]\w+)//;
my $end_ignore = $1.$2.$3;
close_ignored($state, $stack);
#dump_stack($text, $stack, $state);
# MACRO_ARG => keep ignored text
if ($state->{'arg_expansion'})
{# this may not be very usefull as it'll be remove later
add_prev ($text, $stack, $end_ignore);
next;
}
return if ($cline =~ /^\s*$/o);
next;
}
}
add_prev ($text, $stack, $cline) if ($state->{'arg_expansion'});
# we could theoretically continue for ignored commands other
# than ifset or ifclear, however it isn't usefull.
return unless ($state->{'ifvalue_inside'} and ($state->{'ignored'} eq $state->{'ifvalue'}));
}
# an @end tag
# macro_regexp
if ($cline =~ s/^([^{}@]*)\@end(\s+)([a-zA-Z][\w-]*)//)
{
my $leading_text = $1;
my $space = $2;
my $end_tag = $3;
# when 'ignored' we don't open environments that aren't associated
# with ignored regions, so we don't need to close them.
next if ($state->{'ignored'});# ARG_EXPANSION
add_prev($text, $stack, $leading_text);
if (defined($state->{'text_macro_stack'})
and @{$state->{'text_macro_stack'}}
and ($end_tag eq $state->{'text_macro_stack'}->[-1]))
{
pop @{$state->{'text_macro_stack'}};
# we keep menu and titlepage for the following pass
if (($Texi2HTML::Config::texi_formats_map{$end_tag} eq 'normal') or ($region_lines{$end_tag}) or $state->{'arg_expansion'})
{
add_prev($text, $stack, "\@end${space}$end_tag");
}
else
{
#print STDERR "End $end_tag\n";
#dump_stack($text, $stack, $state);
return if ($cline =~ /^\s*$/);
}
}
elsif ($Texi2HTML::Config::texi_formats_map{$end_tag})
{
line_error (sprintf(__("Unmatched `%c%s'"), ord('@'), 'end'), $line_nr);
}
else # a format that is not handled during the first pass
{# ARG_EXPANSION
add_prev($text, $stack, "\@end${space}$end_tag");
}
next;
}
# macro_regexp
elsif ($cline =~ s/^([^{}@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/\\])//o or $cline =~ s/^([^{}@]*)\@([a-zA-Z][\w-]*)//o)
{# ARG_EXPANSION
add_prev($text, $stack, $1) unless $state->{'ignored'};
my $command = $2;
# FIXME: if it is an alias, it is substituted below, in the
# diverse add_prev and output of \@$command. Maybe it could be
# kept and only substituted in the last passes?
$command = $alias{$command} if (exists($alias{$command}));
#print STDERR "MACRO $command\n";
# handle skipped @-commands
$state->{'bye'} = 1 if ($command eq 'bye' and !$state->{'ignored'} and !$state->{'arg_expansion'});
# 'ignored' and 'arg_expansion' are handled in misc_command_texi
# these are the commands in which the @value and @macro
# and @-commands in general should not be expanded
if (defined($Texi2HTML::Config::misc_command{$command}) and
($command eq 'c' or $command eq 'comment' or $command eq 'set'
or $command eq 'clear' or $command eq 'bye' or $command eq 'alias'))
{
my $cmd_arg;
($cline, $cmd_arg) = misc_command_texi($cline, $command, $state,
$line_nr);
add_prev ($text, $stack, "\@$command" . $cmd_arg) unless $state->{'ignored'};
}
elsif ($command eq 'setfilename' or $command eq 'documentencoding'
or $command eq 'definfoenclose' or $command eq 'include')
{ # special commands whose arguments will have @macro and
# @value expanded, and that are processed in this pass
if ($state->{'ignored'} or ($line_nr->{'file_name'} ne $Texi2HTML::THISDOC{'input_file_name'} and $command eq 'setfilename'))
{ # @setfilename is ignored in @include file as said in the manual
$cline = '';
}
elsif ($state->{'arg_expansion'})
{
add_prev($text, $stack, "\@$command" . $cline);
return;
}
else
{
$cline =~ s/^(\s+)//;
my $space = $1;
# not sure if it happpens at end of line, or with
# special char following the @-command or only at end of file
$space = '' if (!defined($space));
if (!$state->{'line_command'})
{
#print STDERR "LINE_COMMAND Start line_command $command, cline $cline";
$state->{'line_command'} = $command;
push @$stack, { 'line_command' => $command, 'text' => $space };
}
else
{
line_error (sprintf(__("\@%s not allowed in argument to \@%s"), $command, $state->{'line_command'}), $line_nr);
#add_prev($text, $stack, "\@$command" . $space);
add_prev($text, $stack, $space);
}
}
}
# pertusus: it seems that value substitution are performed after
# macro argument expansions: if we have
# @set comma ,
# and a call to a macro @macro {arg1 @value{comma} arg2}
# the macro arg is arg1 , arg2 and the comma don't separate
# args. Likewise it seems that the @value are not expanded
# in macro definitions
elsif ($command =~ /^r?macro$/)
{ # in 'arg_expansion' (ie within another macro call arguments)
# the macro is parsed as usual, but isn't registered in
# end_macro.
if ($cline =~ /^\s+(\w[\w-]*)\s*(.*)/)
{
my $name = $1;
my $args_def = $2;
unless ($state->{'ignored'} or $state->{'arg_expansion'})
{
if (exists($macros->{$name}))
{
#line_warn ("macro `$name' already defined " .
# format_line_number($macros->{$name}->{'line_nr'}) . " redefined", $line_nr);
line_warn (sprintf(__("macro `%s' previously defined"), $name), $line_nr);
line_warn (sprintf(__("here is the previous definition of `%s'"), $name), $macros->{$name}->{'line_nr'});
}
}
$state->{'macro_inside'} = 1;
next if ($state->{'ignored'});
my @args = ();
if ($args_def =~ /^\s*{\s*(.*?)\s*}\s*/)
{
@args = split(/\s*,\s*/ , $1)
}
# keep the context information of the definition
my $macro = { 'name' => $name };
$macro->{'line_nr'} = { 'file_name' => $line_nr->{'file_name'},
'line_nr' => $line_nr->{'line_nr'}, 'macro' => $line_nr->{'macro'} } if (defined($line_nr));
$macro->{'args'} = \@args;
$macro->{'header'} = "\@$command" .$cline;
my $arg_index = 0;
my $debug_msg = '';
foreach my $arg (@args)
{ # when expanding macros, the argument index is retrieved
# with args_index
$macro->{'args_index'}->{$arg} = $arg_index;
$debug_msg .= "$arg($arg_index) ";
$arg_index++;
}
$macro->{'body'} = '';
$state->{'macro'} = $macro;
print STDERR "# macro def $name: $debug_msg\n"
if ($T2H_DEBUG & $DEBUG_MACROS);
}
else
{# it means we have a macro without a name
line_error (sprintf(__("Macro definition without macro name: %s"), $cline), $line_nr)
unless ($state->{'ignored'});
}
return 1;
}
elsif (defined($Texi2HTML::Config::texi_formats_map{$command}))
{
my $tag;
($cline, $tag) = do_text_macro($command, $cline, $state, $stack, $line_nr);
# if it is a raw formatting command or a menu command
# we must keep it for later, unless we are in an 'ignored'.
# if in 'arg_expansion' we keep everything.
my $command_kept;
if ((($state->{'raw'} or ($Texi2HTML::Config::texi_formats_map{$command} eq 'normal') or (exists($region_lines{$command}))) and !$state->{'ignored'}) or $state->{'arg_expansion'})
{
add_prev($text, $stack, $tag);
$command_kept = 1;
}
#dump_stack ($text, $stack, $state);
next if $command_kept;
return if ($cline =~ /^\s*$/);
}
elsif ($command eq 'value')
{
if ($cline =~ s/^{($VARRE)}//)
{
my $value = $1;
if ($state->{'arg_expansion'})
{
add_prev($text, $stack, "\@$command" .'{'. $value .'}');
next;
}
next if ($state->{'ignored'});
my $expansion;
if (defined($value{$value}))
{
$expansion = $value{$value}
}
else
{
$expansion = gdt('@{No value for `{value}\'@}', {'value' => $value}, {'keep_texi'=> 1});
line_warn (sprintf(__("undefined flag: %s"), $value), $line_nr);
}
$cline = $expansion . $cline;
}
else
{
if ($state->{'arg_expansion'})
{
add_prev($text, $stack, "\@$command");
next;
}
next if ($state->{'ignored'});
line_error (__("Bad syntax for \@value"), $line_nr);
}
}
elsif ($command eq 'unmacro')
{ #FIXME with 'arg_expansion' should it be passed unmodified ?
if ($state->{'ignored'})
{
$cline =~ s/^\s+(\w+)//;
}
else
{
delete $macros->{$1} if ($cline =~ s/^\s+(\w+)//);
}
return if ($cline =~ /^\s*$/);
$cline =~ s/^\s*//;
}
elsif (exists($macros->{$command}))
{# it must be before the handling of {, otherwise it is considered
# to be regular texinfo @-command. Maybe it could be placed higher
# if we want user defined macros to override texinfo @-commands
# in 'ignored' we parse macro defined args anyway as it removes
# some text, but we don't expand the macro
my $ref = $macros->{$command}->{'args'};
my $args_number = $#$ref +1;
# we remove any space/new line before the argument
if ($cline =~ s/^\s*{\s*//)
{ # the macro has args
$state->{'macro_args'} = [ "" ];
$state->{'macro_name'} = $command;
$state->{'macro_depth'} = 1;
}
elsif (($args_number >= 2) or ($args_number <1))
{ # no brace -> no arg
#$cline =
#line_warn("\@$command defined with $args_number arguments should be invoked with {}", $line_nr);
line_warn(sprintf(__("\@%s defined with zero or more than one argument should be invoked with {}"), $command), $line_nr);
expand_macro ($command, [], $cline, $line_nr, $state);
return;
}
else
{ # macro with one arg on the line
chomp $cline;
#$cline =
expand_macro ($command, [$cline], "\n", $line_nr, $state);
return;
}
}
elsif ($cline =~ s/^{//)
{# we add nested commands in a stack. verb is also on the stack
# but handled specifically.
# we add it the comands even in 'ignored' as their result is
# discarded when the closing brace appear, or the ifset or
# iclear is closed.
if ($command eq 'verb')
{
if ($cline =~ /^$/)
{
line_error (sprintf(__("\@%s without associated character"), $command), $line_nr);
}
else
{
$cline =~ s/^(.)//;
$state->{'verb'} = $1;
}
}
if ($state->{'line_command'} and $command eq 'verb')
{ # have to close it now to catch if it is not
# closed at te end of the line. In subsequent passes this
# is done in scan_line_separator.
my $result;
if (defined($state->{'verb'}))
{
$result = '@verb{'.$state->{'verb'};
my $verb_char = quotemeta($state->{'verb'});
if ($cline =~ s/^(.*?${verb_char}\})//)
{
$result .= $1;
}
else
{
$cline =~ s/^(.*)//;
$result .= $1;
}
delete $state->{'verb'};
}
else
{
$result = '@verb{'
}
add_prev($text, $stack, $result) unless($state->{'ignored'});
}
else
{
push (@$stack, { 'style' => $command, 'text' => '' });
}
}
else
{
$cline = do_unknown(0, $command, $cline, $text, $stack, $state, $line_nr);
}
next;
}
#elsif(s/^([^{}@]*)\@(.)//o)
elsif($cline =~ s/^([^{}@]*)\@([^\s\}\{\@]*)//o)
{# ARG_EXPANSION
# No need to warn here for @ followed by a character that
# is not in any @-command and it is done later
add_prev($text, $stack, $1) unless($state->{'ignored'});
$cline = do_unknown(0, $2, $cline, $text, $stack, $state, $line_nr);
next;
}
elsif ($cline =~ s/^([^{}]*)([{}])//o)
{
# in ignored section we cannot be sure that there is an @-command
# already opened so we must discard the text.
# ARG_EXPANSION
add_prev($text, $stack, $1) unless($state->{'ignored'});
if ($2 eq '{')
{
# this empty style is for a lone brace.
# we add it even in 'ignored' as it is discarded when the closing
# brace appear, or the ifset or iclear is closed.
push @$stack, { 'style' => '', 'text' => '' };
}
else
{
if (@$stack)
{
my $style = pop @$stack;
close_style_texi($style, $text, $stack, $state);
#print STDERR "MACRO end $style->{'style'} remaining: $cline";
next;
}
else
{# ARG_EXPANSION
# we warn in the last pass that there is a } without open
add_prev ($text, $stack, '}') unless($state->{'ignored'});
}
}
}
else
{# ARG_EXPANSION
#print STDERR "END_LINE $cline";
add_prev($text, $stack, $cline) unless($state->{'ignored'});
if ($state->{'line_command'})
{
if (!scalar(@$stack))
{
print STDERR "BUG: empty state for $state->{'line_command'}\n";
return;
delete $state->{'line_command'};
}
while (!defined($stack->[-1]->{'line_command'}))
{
my $top = pop @$stack;
# defer this to later?
#line_error ("unclosed command in \@$state->{'line_command'}: $top->{'style'}");
add_prev($text, $stack, "\@$top->{'style'}".'{'.$top->{'text'}.'}');
}
my $command = pop @$stack;
###################### debug
if (!defined($command) or !defined($command->{'text'}) or
!defined($command->{'line_command'}) or ($command->{'line_command'} ne $state->{'line_command'}))
{
msg_debug ("BUG: messed $state->{'line_command'} stack", $line_nr);
delete $state->{'line_command'};
return;
}
###################### end debug
else
{
delete $state->{'line_command'};
my $macro = $command->{'line_command'};
# include are not kept
if ($macro eq 'include')
{
#if (s/^\s+([\/\w.+-]+)//o)
if ($command->{'text'} =~ s/^(\s+)(.+)//o)
{
my $file_name = $2;
# FIXME scan_line_separators
$file_name = trim_around_spaces($file_name);
$file_name = substitute_line($file_name, "\@$macro", {'code_style' => 1, 'remove_texi' => 1});
my $file = locate_include_file($file_name);
if (defined($file))
{
my ($line_nr_file, $input_spool_file) = open_file($file, $line_nr->{'macro'}, $state->{'files_stack'});
($line_nr, $state->{'input_spool'}) = ($line_nr_file, $input_spool_file) if (defined($line_nr_file));
print STDERR "# including $file\n" if $T2H_VERBOSE;
}
else
{
line_error (sprintf(__("\@%s: Cannot find %s"), $macro, $file_name), $line_nr);
}
}
else
{
line_error (sprintf(__("Bad argument to \@%s: %s"), $macro, $command->{'text'}), $line_nr);
}
return;
}
else
{ # these are kept (setfilename, documentencoding, definfoenclose)
if ($macro eq 'setfilename' and $Texi2HTML::Config::USE_SETFILENAME)
{
if (defined(Texi2HTML::Config::get_conf ('setfilename')))
{
line_error (sprintf(__("\@%s already set"), $macro), $line_nr);
# the line is removed, because we don't want to reset
# get_conf('setfilename') between passes, and we don't want
# the last one to be picked up
$cline = "\n";
next;
}
}
my $cmd_arg;
($cline, $cmd_arg) = misc_command_texi($command->{'text'},
$macro, $state, $line_nr);
add_prev ($text, $stack, "\@$macro" . $cmd_arg);
next;
}
}
}
last;
}
}
return undef if ($state->{'ignored'});
return 1;
} # end scan_texi
sub close_structure_command($$$$)
{
my $cmd_ref = shift;
my $state = shift;
my $unclosed_commands = shift;
my $line_nr = shift;
my $result;
#print STDERR "close_structure_command $cmd_ref->{'style'}\n";
# If the anchor is in @titlepage or @copying, it is nevertheless only
# expanded once in pass_structure, during the @copying or @titlepage
# expansion.
# It is not true, however if INLINE_INSERTCOPYING is true.
# See indices/index_special_region.texi tests.
if ($cmd_ref->{'style'} eq 'anchor')
{
my $anchor = $cmd_ref->{'text'};
$anchor = normalise_node($anchor);
#print STDERR "Anchor $anchor\n";
if ($nodes{$anchor})
{# makeinfo error message are the following:
# "Anchor `%s' and node `%s' map to the same file name"
# "This @anchor command ignored; references to it will not work"
# "Rename this anchor or use the `--no-split' option"
#
# "Anchors `%s' and `%s' map to the same file name"
# "Anchor `%s' and node `%s' map to the same file name"
# "@anchor command ignored; references to it will not work"
# "Rename this anchor or use the `--no-split' option"
line_error (sprintf(__("Anchor `%s' previously defined %s"), $anchor, format_line_number($nodes{$anchor}->{'line_nr'})), $line_nr);
return '';
}
elsif ($anchor =~ /^\(.+\)/)
{
line_error (sprintf(__("Syntax for an external node used for `%s'"), $anchor), $line_nr);
return '';
}
$document_anchor_num++;
$nodes{$anchor} = { 'anchor' => 1, 'seen' => 1, 'texi' => $anchor, 'id' => 'ANC' . $document_anchor_num, 'line_nr' => $line_nr, 'tag' => 'anchor'};
push @{$state->{'place'}}, $nodes{$anchor};
}
elsif ($cmd_ref->{'style'} eq 'footnote')
{
if (Texi2HTML::Config::get_conf('footnotestyle') eq 'separate')
{
$state->{'heading_element'} = $state->{'footnote_heading_element'};
$state->{'place'} = $state->{'footnote_place'};
}
}
elsif ($cmd_ref->{'style'} eq 'caption' or $cmd_ref->{'style'}
eq 'shortcaption' and $state->{'float'})
{
my @texi_lines = map {$_ = $_."\n"} split (/\n/, $cmd_ref->{'text'});
$state->{'float'}->{$cmd_ref->{'style'} . "_texi"} = \@texi_lines;
}
if (($cmd_ref->{'style'} eq 'titlefont') and ($cmd_ref->{'text'} =~ /\S/))
{
$state->{'heading_element'}->{'titlefont'} = $cmd_ref->{'text'} unless ((exists($state->{'region'}) and ($state->{'region'} eq 'titlepage')) or defined($state->{'heading_element'}->{'titlefont'})) ;
}
if (defined($Texi2HTML::Config::command_handler{$cmd_ref->{'style'}}))
{
$result = init_special($cmd_ref->{'style'},$cmd_ref->{'text'});
if ($unclosed_commands)
{
$result .= "\n"; # the end of line is eaten by init_special
line_error(sprintf(__("No closing brace for specially handled command %s"), $cmd_ref->{'style'}),$line_nr);
}
}
elsif ($cmd_ref->{'style'})
{
$result = '@' . $cmd_ref->{'style'} . '{' . $cmd_ref->{'text'};
$result .= '}' unless ($unclosed_commands);
}
else
{
$result = '{' . $cmd_ref->{'text'};
# don't close { if we are closing stack as we are not
# sure this is a licit { ... } construct.
$result .= '}' unless ($unclosed_commands);
}
return $result;
}
sub end_format_structure($$$$$$)
{
my $end_tag = shift;
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
my $remaining_on_line = shift;
if (defined($state->{'text_macro_stack'})
and @{$state->{'text_macro_stack'}}
and ($end_tag eq $state->{'text_macro_stack'}->[-1]))
{
pop @{$state->{'text_macro_stack'}};
if (exists($region_lines{$end_tag}))
{ # end a region_line macro, like documentdescription, copying
print STDERR "Bug: end_tag $end_tag ne $state->{'region_lines'}->{'format'}\n"
if ($end_tag ne $state->{'region_lines'}->{'format'});
print STDERR "Bug: end_tag $end_tag ne $state->{'region'}\n"
if ($end_tag ne $state->{'region'});
$state->{'region_lines'}->{'number'}--;
if ($state->{'region_lines'}->{'number'} == 0)
{
close_region($state);
}
#dump_stack($text, $stack, $state);
}
if (($Texi2HTML::Config::texi_formats_map{$end_tag} eq 'normal') or $Texi2HTML::Config::region_formats_kept{$end_tag})
{
$state->{$end_tag}-- if ($Texi2HTML::Config::texi_formats_map{$end_tag} eq 'normal');
add_prev($text, $stack, "\@end $end_tag");
}
else
{
#print STDERR "End $end_tag\n";
#dump_stack($text, $stack, $state);
return 1 if ($remaining_on_line =~ /^\s*$/);
}
}
elsif ($Texi2HTML::Config::texi_formats_map{$end_tag})
{
line_error (sprintf(__("Unmatched `%c%s'"), ord('@'), 'end'), $line_nr);
#dump_stack($text, $stack, $state);
}
elsif ($end_tag eq 'detailmenu' or $end_tag eq 'direntry')
{
$state->{$end_tag}-- if $state->{$end_tag};
add_prev($text, $stack, "\@end $end_tag");
}
else
{
if ($end_tag eq 'float' and $state->{'float'})
{
delete $state->{'float'};
}
elsif ($end_tag eq $state->{'table_stack'}->[-1])
{
enter_table_index_entry($text, $stack, $state, $line_nr);
pop @{$state->{'table_stack'}};
}
#add end tag
add_prev($text, $stack, "\@end $end_tag");
}
return 0;
}
sub parse_menu_entry($)
{
my $menu_line = shift;
my ($node, $name, $ending, $remaining);
return ($node, $name, $ending, $remaining) unless $menu_line =~ s/^\*//;
my ($before_colon, $separator);
($before_colon, $remaining, $separator) = scan_line_separators($menu_line, ':', 'menu entry');
if (defined($before_colon) and defined($separator))
{
if ($remaining =~ s/^://)
{
$node = $before_colon;
$ending = '::';
}
elsif ($remaining =~ /\S/)
{
my $after_colon;
$ending = "";
($after_colon, $remaining, $separator) = scan_line_separators($remaining, '\t,\.', 'menu entry node');
# this certainly corresponds with an error in the node.
# this is considered not to be a menu entry.
return (undef, $name, $ending, $remaining) if (!defined($after_colon));
$node = $after_colon;
while (1)
{
if (!defined($separator) or (defined($separator) and $separator ne '.') or (defined($separator) and (!defined($remaining) or $remaining =~ /^\s/)))
{
last;
}
$node .= $separator;
my $after_dot;
($after_dot, $remaining, $separator) = scan_line_separators($remaining, '\t,\.', 'menu entry node');
$after_dot = '' if (!defined($after_dot));
$node .= $after_dot;
}
$name = $before_colon;
$ending = $separator if (defined($separator));
# only spaces after the :, this is not a menu entry:
$node = undef if ($node !~ /\S/);
}
}
# remaining may be defined even if $node isn't.
#print STDERR "\nLLLL $menu_line";
#print STDERR " --> node:$node, name:$name, ending:$ending -> $remaining";
return ($node, $name, $ending, $remaining);
}
sub scan_structure($$$$;$)
{
my $line = shift;
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
die "stack not an array ref" unless (ref($stack) eq "ARRAY");
my $cline = $line;
#print STDERR "SCAN_STRUCTURE: $line";
#dump_stack ($text, $stack, $state);
if (!$state->{'raw'} and (!exists($state->{'region_lines'})))
{
#if (!$state->{'verb'} and $state->{'menu'} and $cline =~ /^\*\s+/o)
if (!$state->{'verb'} and $state->{'menu'})
{
# new menu entry
my ($node, $name, $ending, $remaining) = parse_menu_entry($cline);
if (defined($node))
{
menu_entry_texi(normalise_node($node), $state, $line_nr);
}
}
}
while(1)
{
# scan structure
#dump_stack($text, $stack, $state);
#print STDERR "WHILE(s):$cline";
# as texinfo 4.5
# verbatim might begin at another position than beginning
# of line, and end verbatim might too. To end a verbatim section
# @end verbatim must have exactly one space between end and verbatim
# things following end verbatim are not ignored.
#
# html might begin at another position than beginning
# of line, but @end html must begin the line, and have
# exactly one space. Things following end html are ignored.
# tex and ignore works like html
#
# ifnothtml might begin at another position than beginning
# of line, and @end ifnothtml might too, there might be more
# than one space between @end and ifnothtml but nothing more on
# the line.
# @end itemize, @end ftable works like @end ifnothtml.
# except that @item on the same line than @end vtable doesn't work
#
# text right after the itemize before an item is displayed.
# @item might be somewhere in a line.
# strangely @item on the same line than @end vtable doesn't work
# there should be nothing else than a command following @itemize...
#
# see more examples in formatting directory
if ($state->{'raw'})
{
my $tag = $state->{'raw'};
################# debug
if (! @$stack or ($stack->[-1]->{'style'} ne $tag))
{
print STDERR "Bug: raw or special: $tag but not on top of stack\n";
print STDERR "line: $cline";
dump_stack($text, $stack, $state);
exit 1;
}
################# end debug
if ($tag eq 'macro')
{
if ($cline =~ /^\s*\@macro\s+(\w[\w-]*)\s*(.*)/)
{
$state->{$tag}++;
}
}
# macro_regexp
if ($cline =~ /^(.*?)\@end\s([a-zA-Z][\w-]*)/o and ($2 eq $tag))
{
$cline =~ s/^(.*?)(\@end\s$tag)//;
add_prev ($text, $stack, $1);
my $end_text = $2;
if ($tag eq 'macro')
{
$state->{$tag}--;
if ($state->{$tag})
{
add_prev ($text, $stack, $end_text);
next;
}
}
delete $state->{'raw'};
my $style = pop @$stack;
if (defined($Texi2HTML::Config::command_handler{$tag}))
{ # replace the special region by what init_special give
if ($style->{'text'} !~ /^\s*$/)
{
add_prev ($text, $stack, init_special($style->{'style'}, $style->{'text'}));
}
}
else
{
add_prev ($text, $stack, $style->{'text'} . "\@end $tag");
}
next;
}
else
{
add_prev ($text, $stack, $cline);
return if (defined($Texi2HTML::Config::command_handler{$tag}));
last;
}
}
if (defined($state->{'verb'}))
{
my $char = quotemeta($state->{'verb'});
if ($cline =~ s/^(.*?)$char\}/\}/)
{
add_prev($text, $stack, $1 . $state->{'verb'});
$stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'};
delete $state->{'verb'};
next;
}
else
{
add_prev($text, $stack, $cline);
last;
}
}
# macro_regexp
if ($cline =~ s/^([^{}@]*)\@end\s+([a-zA-Z][\w-]*)//)
{
add_prev($text, $stack, $1);
my $end_tag = $2;
#print STDERR "END STRUCTURE $end_tag\n";
return if (end_format_structure($end_tag, $text, $stack, $state, $line_nr, $cline));
next;
}
# macro_regexp
elsif ($cline =~ s/^([^{}@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/\\])//o or $cline =~ s/^([^{}@]*)\@([a-zA-Z][\w-]*)//o)
{
add_prev($text, $stack, $1);
my $macro = $2;
#print STDERR "MACRO $macro\n";
$macro = $alias{$macro} if (exists($alias{$macro}));
if (defined($Texi2HTML::Config::deprecated_commands{$macro}))
{
# makeinfo has
# "%c%s is obsolete; use %c%s instead"
if ($Texi2HTML::Config::deprecated_commands{$macro} eq '')
{
line_warn(sprintf(__("%c%s is obsolete."), ord('@'), $macro), $line_nr);
}
else
{
line_warn(sprintf(__("%c%s is obsolete; %s"),ord('@'), $macro, __($Texi2HTML::Config::deprecated_commands{$macro})), $line_nr);
}
}
if (defined($Texi2HTML::Config::misc_command{$macro}))
{
my $line;
($cline, $line) = misc_command_structure($cline, $macro, $state,
$line_nr);
add_prev ($text, $stack, "\@$macro".$line);
next;
}
elsif ($macro eq 'printindex' and ($cline =~ /^\s+(\w+)/))
{
my $index_name = $1;
if (!exists($index_names{$index_name}))
{
line_error (sprintf(__("Unknown index `%s' in \@printindex"),$index_name), $line_nr);
}
my $associated_element;
if ($state->{'current_element'} eq $element_before_anything)
{
line_warn (sprintf(__("Printindex before document beginning: \@printindex %s"), $index_name), $line_nr);
}
else
{
# $element_index is the first element with index
$element_index = $state->{'current_element'} unless (defined($element_index));
$associated_element = $state->{'current_element'};
}
my $region = $state->{'region'};
$region = 'document' if (!defined($region));
# FIXME use 'index_name' instead of 'name'
my $printindex = { 'associated_element' => $associated_element, 'name' => $index_name, 'region' => $region, 'command' => 'printindex' };
# prepare association of the index to the element by
# putting it in the current place
push @{$state->{'place'}}, $printindex;
push @{$Texi2HTML::THISDOC{'indices'}->{$region}->{$index_name}}, $printindex;
#print STDERR "PRINTINDEX add($printindex) region $region name $index_name, nr ".scalar(@{$Texi2HTML::THISDOC{'indices'}->{$region}->{$index_name}})."\n";
add_prev ($text, $stack, "\@$macro" . $cline);
last;
}
elsif ($macro eq 'listoffloats')
{
add_prev ($text, $stack, "\@$macro" . $cline);
last;
}
elsif ($sec2level{$macro})
{
if ($cline =~ /^\s*(.*)$/)
{
my $name = $1;
my $heading_ref = new_section_heading($macro, $name, $state, $line_nr);
if (exists($state->{'region_lines'}) and $state->{'region_lines'}->{'format'})
{
my $region = $state->{'region_lines'}->{'format'};
$state->{'region_lines'}->{'head_num'}++;
my $num = $state->{'region_lines'}->{'head_num'};
$heading_ref->{'id'} = "${target_prefix}${region}_HEAD$num";
$heading_ref->{'sec_num'} = "${region}_$num";
$heading_ref->{'region'} = $region;
$heading_ref->{'region_head_num'} = $num;
}
else
{
$document_head_num++;
$heading_ref->{'id'} = "HEAD$document_head_num";
$heading_ref->{'sec_num'} = $document_head_num;
}
# this is only used when there is a index entry after the
# heading
$heading_ref->{'target'} = $heading_ref->{'id'};
$heading_ref->{'heading'} = 1;
$heading_ref->{'tag_level'} = $macro;
$heading_ref->{'number'} = '';
$state->{'heading_element'} = $heading_ref;
push @{$state->{'place'}}, $heading_ref;
$headings{$heading_ref->{'sec_num'}} = $heading_ref;
}
add_prev ($text, $stack, "\@$macro" . $cline);
last;
}
elsif (index_command_prefix($macro) ne '')
{ # if we are already in a (v|f)table the construct is quite
# wrong
# FIXME should it be discarded?
if ($state->{'item'})
{
line_error(sprintf(__("ignored \@%s already in an \@%s entry"), $macro, $state->{'item'}), $line_nr);
next;
}
my $index_prefix = index_command_prefix($macro);
enter_index_entry($index_prefix, $line_nr, $cline, $macro, $state);
add_prev ($text, $stack, "\@$macro" . $cline);
last;
}
elsif (defined($Texi2HTML::Config::texi_formats_map{$macro}))
{
my $macro_kept;
#print STDERR "TEXT_MACRO: $macro\n";
if ($Texi2HTML::Config::texi_formats_map{$macro} eq 'raw')
{
$state->{'raw'} = $macro;
$state->{$macro}++ if ($macro eq 'macro');
#print STDERR "RAW\n";
}
elsif ($Texi2HTML::Config::texi_formats_map{$macro} eq 'normal')
{
if ($macro eq 'menu')
{
delete ($state->{'prev_menu_node'});
if (!$state->{'node_ref'})
{
line_error (sprintf(__("\@%s seen before first \@node"), $macro), $line_nr);
line_error (__("perhaps your \@top node should be wrapped in \@ifnottex rather than \@ifinfo?"), $line_nr);
}
if ($state->{'menu_in_node'})
{
line_error (sprintf(__("Multiple \@%s"), $macro), $line_nr);
}
$state->{'menu_in_node'}++;
}
$state->{$macro}++;
push @{$state->{'text_macro_stack'}}, $macro;
#print STDERR "MENU (text_macro_stack: @{$state->{'text_macro_stack'}})\n";
}
elsif (exists($region_lines{$macro}))
{
if (exists($state->{'region_lines'}) and ($state->{'region_lines'}->{'format'} ne $macro))
{
line_error(sprintf(__("\@%s not allowed within %s"), $macro, $state->{'region_lines'}->{'format'}), $line_nr);
next;
}
open_region ($macro, $state);
if ($Texi2HTML::Config::region_formats_kept{$macro})
{
add_prev($text, $stack, "\@$macro");
$macro_kept = 1;
$state->{'region_lines'}->{'first_line'} = 1;
}
push @{$state->{'text_macro_stack'}}, $macro;
}
# if it is a raw formatting command or a menu command
# we must keep it for later
if (($state->{'raw'} and (!defined($Texi2HTML::Config::command_handler{$macro}))) or ($Texi2HTML::Config::texi_formats_map{$macro} eq 'normal'))
{
add_prev($text, $stack, "\@$macro");
$macro_kept = 1;
}
if ($state->{'raw'})
{
push @$stack, { 'style' => $macro, 'text' => '' };
}
next if $macro_kept;
#dump_stack ($text, $stack, $state);
return if ($cline =~ /^\s*$/);
}
elsif ($macro eq 'detailmenu' or $macro eq 'direntry')
{
if ($macro eq 'detailmenu' and !$state->{'node_ref'})
{
line_error (sprintf(__("\@%s seen before first \@node"), $macro), $line_nr);
}
add_prev ($text, $stack, "\@$macro" . $cline);
$state->{$macro}++;
last;
}
elsif ($macro eq 'float')
{
my ($style_texi, $label_texi) = parse_line_arguments($cline, 2, "\@$macro", $line_nr);
$style_texi = normalise_texi_space($style_texi);
$label_texi = undef if (defined($label_texi) and ($label_texi =~ /^\s*$/));
if (defined($label_texi))
{ # The float may be a target for refs if it has a label
my $error_with_label = 1;
$label_texi = normalise_node($label_texi);
if (exists($nodes{$label_texi}) and defined($nodes{$label_texi})
and $nodes{$label_texi}->{'seen'})
{
line_error (sprintf(__("Float label `%s' previously defined %s"), $label_texi, format_line_number($nodes{$label_texi}->{'line_nr'})), $line_nr);
}
elsif ($label_texi =~ /^\(.+\)/)
{
line_error (sprintf(__("Syntax for an external node used for `%s'"), $label_texi), $line_nr);
}
else
{
$error_with_label = 0;
my $float = { };
if (exists($nodes{$label_texi}) and defined($nodes{$label_texi}))
{ # float appeared in a menu
$float = $nodes{$label_texi};
}
else
{
$nodes{$label_texi} = $float;
}
$float->{'float'} = 1;
$float->{'tag'} = 'float';
$float->{'texi'} = $label_texi;
$float->{'seen'} = 1;
$float->{'id'} = $label_texi;
$float->{'target'} = $label_texi;
#print STDERR "FLOAT: $float $float->{'texi'}, place $state->{'place'}\n";
push @{$state->{'place'}}, $float;
$float->{'element'} = $state->{'current_element'};
$state->{'float'} = $float;
$float->{'style_texi'} = $style_texi;
$float->{'line_nr'} = $line_nr;
push @floats, $float;
}
if ($error_with_label)
{
while ($cline =~ /,/)
{
$cline =~ s/,.*$//;
}
}
}
add_prev($text, $stack, "\@$macro" . $cline);
last;
}
elsif (defined($Texi2HTML::Config::def_map{$macro}))
{
# @ may protect end of line in @def. We reconstruct lines here.
# in the texinfo manual is said that spaces after @ collapse
if ($cline =~ /(\@+)\s*$/)
{
my $at_at_end_of_line = $1;
if ((length($at_at_end_of_line) % 2) == 1)
{
#print STDERR "Line continue $cline";
my $def_line = $cline;
$def_line =~ s/\@\s*$//;
chomp($def_line);
$state->{'in_deff_line'} = "\@$macro" .$def_line;
return;
}
}
#We must enter the index entries
my ($prefix, $entry, $argument) = get_deff_index($macro, $cline, $line_nr,1);
# use deffn instead of deffnx for @-command record
# associated with index entry
my $idx_macro = $macro;
$idx_macro =~ s/x$//;
enter_index_entry($prefix, $line_nr, $entry, $idx_macro, $state)
if ($prefix);
$cline =~ s/(.*)//;
add_prev($text, $stack, "\@$macro" . $1);
}
elsif ($macro =~ /^itemx?$/)
{
enter_table_index_entry($text, $stack, $state, $line_nr);
if ($state->{'table_stack'}->[-1] =~ /^(v|f)?table$/)
{
$state->{'item'} = $macro;
push @$stack, { 'format' => 'index_item', 'text' => '', 'command' => $macro };
}
else
{
add_prev($text, $stack, "\@$macro");
}
}
elsif ($format_type{$macro} and ($format_type{$macro} eq 'table' or $format_type{$macro} eq 'list' or $macro eq 'multitable'))
{ # We must enter the index entries of (v|f)table thus we track
# in which table we are
push @{$state->{'table_stack'}}, $macro;
add_prev($text, $stack, "\@$macro");
}
elsif ($cline =~ s/^{//)
{
if ($macro eq 'verb')
{
if ($cline =~ /^$/)
{
# We already warned in pass texi
}
else
{
$cline =~ s/^(.)//;
$state->{'verb'} = $1;
}
}
elsif ($macro eq 'footnote' and (Texi2HTML::Config::get_conf('footnotestyle') eq 'separate'))
{
$state->{'footnote_heading_element'} = $state->{'heading_element'};
$state->{'footnote_place'} = $state->{'place'};
$state->{'heading_element'} = $footnote_element;
$state->{'place'} = $footnote_element->{'place'};
}
push (@$stack, { 'style' => $macro, 'text' => '' });
}
else
{
$cline = do_unknown (1, $macro, $cline, $text, $stack, $state, $line_nr);
}
next;
}
#elsif($cline =~ s/^([^{}@]*)\@(.)//o)
elsif($cline =~ s/^([^{}@]*)\@([^\s\}\{\@]*)//o)
{
add_prev($text, $stack, $1);
$cline = do_unknown (1, $2, $cline, $text, $stack, $state, $line_nr);
next;
}
elsif ($cline =~ s/^([^{}]*)([{}])//o)
{
add_prev($text, $stack, $1);
if ($2 eq '{')
{
push @$stack, { 'style' => '', 'text' => '' };
}
else
{
if (@$stack)
{
my $style = pop @$stack;
my $result;
add_prev ($text, $stack,
close_structure_command($style, $state, 0, $line_nr));
next;
}
else
{
# We warn in the last pass
add_prev ($text, $stack, '}');
}
}
}
else
{
add_prev($text, $stack, $cline);
# in case of user mistake, with an @-command not closed on an @item line
close_stack_structure($text, $stack, $state, $line_nr, 1) if ($state->{'item'});
enter_table_index_entry($text, $stack, $state, $line_nr);
#print STDERR "END_LINE(s) $cline";
#dump_stack($text, $stack, $state);
last;
}
}
return 1;
} # end scan_structure
sub check_bad_end_argument ($$$)
{
my $command = shift;
my $line = shift;
my $line_nr = shift;
if ($line =~ /^(\S+)/)
{
my $symbols = $1;
line_error (sprintf(__("Bad argument `%s' to `\@%s', using `%s'"), "${command}${symbols}", 'end', $command), $line_nr);
}
}
sub close_style_command($$$$$;$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
my $line = shift;
# not the end of the style, but the paragraph the style is in is closed
my $no_close = shift;
my $style = pop @$stack;
my $command = $style->{'style'};
my $result;
if (!defined($command))
{
print STDERR "Bug: empty style in pass_text\n";
return ($result, $command);
}
if (ref($::style_map_ref->{$command}) eq 'HASH')
{
push (@{$style->{'args'}}, $style->{'text'});
$style->{'fulltext'} .= $style->{'text'};
if (!defined($style->{'arg_nr'}))
{
msg_debug("Bug: undefined 'arg_nr' for $command", $line_nr);
}
#print STDERR "DEBUG $command ($style->{'arg_nr'})\n";
#my $number = 0;
#foreach my $arg(@{$style->{'args'}})
#{
# print STDERR " $number: $arg\n";
# $number++;
#}
#print STDERR "END DEBUG\n";
$style->{'text'} = $style->{'fulltext'};
$state->{'keep_texi'} = 0 if (
($::style_map_ref->{$command}->{'args'}->[$style->{'arg_nr'}] eq 'keep')
and ($state->{'keep_nr'} == 1));
}
if ($no_paragraph_macro{$command})
{
$state->{'no_paragraph'}--;
pop @{$state->{'no_paragraph_stack'}};
}
if ($::style_map_ref->{$command} and (defined($style_type{$command})) and ((!$no_close and ($style_type{$command} eq 'style')) or ($style_type{$command} eq 'accent')))
{
my $style_command = pop @{$state->{'command_stack'}};
if ($style_command ne $command)
{
#line_warn ("Bug: $style_command on 'command_stack', not $command", $line_nr);
# This can be a bug in case of bad nesting, see bad_style_nesting.texi
line_warn("Bad nesting of \@$style_command and \@$command", $line_nr);
push @{$state->{'command_stack'}}, $style_command;
############################ debug
if ($T2H_DEBUG)
{
push @$stack, $style;
print STDERR "Stacks before pop top:\n";
dump_stack($text, $stack, $state);
pop @$stack;
############################ end debug
}
}
}
if ($state->{'keep_texi'})
{ # don't expand @-commands in anchor, refs...
close_arg ($command, $style->{'arg_nr'}, $state);
$result = '@' . $command . '{' . $style->{'text'} . '}';
}
elsif ($::things_map_ref->{$command})
{
$result = do_thing_command ($command, $style->{'text'}, $state, $line_nr);
}
else
{
$result = do_style_command($command, $style->{'text'}, $state, $style->{'args'}, $line_nr, $style->{'no_open'}, $no_close, $style->{'keep_line_nr'});
if ($state->{'code_style'} < 0)
{
msg_debug ("Bug: negative code_style: $state->{'code_style'}, line:$line", $line_nr);
}
if ($state->{'math_style'} < 0)
{
msg_debug ("Bug: negative math_style: $state->{'math_style'}, line:$line", $line_nr);
}
}
return ($result, $command);
}
sub top_stack_is_menu($)
{
my $stack = shift;
my $top_stack = top_stack($stack, 1);
return 0 if (!$format_type{$top_stack->{'format'}} or $format_type{$top_stack->{'format'}} ne 'menu');
return 1;
}
sub scan_line($$$$;$)
{
my $original_line = shift;
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
die "stack not an array ref" unless (ref($stack) eq "ARRAY");
my $cline = $original_line;
#msg_debug("SCAN_LINE (@{$state->{'command_stack'}}): $original_line", $line_nr);
#dump_stack($text, $stack, $state);
my $new_menu_entry; # true if there is a new menu entry
# my $menu_description_in_format; # true if we are in a menu description
# # but in another format section (@table....)
# this can happen currently with quotations
if (defined($state->{'prepend_text'}))
{
$cline = $state->{'prepend_text'} . $cline;
$state->{'prepend_text'} = undef;
delete $state->{'prepend_text'};
}
if (!$state->{'raw'} and !$state->{'verb'} and ($state->{'menu'} or $state->{'direntry'}))
{ # new menu entry
my ($node, $name, $ending, $remaining) = parse_menu_entry($cline);
if (defined($node))
{
$cline = $remaining;
print STDERR "# Potential menu entry: $node\n" if ($T2H_DEBUG & $DEBUG_MENU);
$new_menu_entry = 1;
my $menu_entry = { 'name' => $name, 'node' => $node, 'ending' => $ending };
# in SIMPLE_MENU case we don't begin a description, description is
# just some normal (preformatted) text
if ($Texi2HTML::Config::SIMPLE_MENU)
{
add_prev ($text, $stack, do_menu_link($state, $line_nr, $menu_entry));
#dump_stack($text, $stack, $state);
}
else
{
# close description and comment, if they are opened.
#dump_stack($text, $stack, $state);
if (!close_menu_comment($text, $stack, $state, __("new menu entry"), $line_nr)
and !close_menu_description($text, $stack, $state, __("new menu entry"), $line_nr)
and $state->{'preformatted'})
{
close_paragraph($text, $stack, $state, __("new menu entry"), $line_nr);
}
print STDERR "# New menu entry: $node\n" if ($T2H_DEBUG & $DEBUG_MENU);
#dump_stack($text, $stack, $state);
my $fusionned_description = 0;
# fusionned looks better in preformatted. But some formats
# want to always distinguish link and description
if ($Texi2HTML::Config::SEPARATE_DESCRIPTION or !$state->{'preformatted'})
{
add_prev ($text, $stack, do_menu_link($state, $line_nr, $menu_entry));
}
else
{
$fusionned_description = 1;
}
push @$stack, {'format' => 'menu_description', 'text' => '', 'menu_entry' => $menu_entry, 'fusionned_description' => $fusionned_description};
$state->{'code_style'}++ if ($Texi2HTML::Config::format_code_style{'menu_description'});
if ($fusionned_description)
{
begin_paragraph($stack, $state) if $state->{'preformatted'};
add_prev ($text, $stack, do_menu_link($state, $line_nr, $menu_entry));
}
}
}
# we may be in a menu entry description, we close it
# if there is an empty line, so the last arg is $cline.
# also if right in menu we always open a menu_comment, it
# means that there was no menu entry seen since the menu beginning.
if (!$new_menu_entry and (close_menu_description($text, $stack, $state, "end menu description", $line_nr, $cline) or ($stack->[-1]->{'format'} and $format_type{$stack->[-1]->{'format'}} and $format_type{$stack->[-1]->{'format'}} eq 'menu')))
{
if ($state->{'preformatted'})
{
begin_paragraph($stack, $state);
}
else
{
# only start a menu_comment if right in menu and not in
# a format below a menu because if not right
# in a menu we have no way to distinguish a menu_comment
# and some normal text in the format.
# also it is not started in preformatted environment
begin_format($text, $stack, $state, 'menu_comment', $cline, $line_nr) if ($stack->[-1]->{'format'} and $format_type{$stack->[-1]->{'format'}} and $format_type{$stack->[-1]->{'format'}} eq 'menu');
}
}
}
unless ($state->{'raw'} or $state->{'verb'} or $state->{'keep_texi'})
{
# first the line commands are taken into account
my $next_command = next_tag($cline);
if (defined($next_command) and defined($Texi2HTML::Config::line_command_map{$next_command}))
{
close_paragraph($text, $stack, $state, "\@$next_command", $line_nr, 1) if (stop_paragraph_command($next_command));
my $arg_texi = $cline;
$arg_texi =~ s/^\s*\@$next_command\s*//;
$arg_texi = trim_comment_spaces ($arg_texi, "\@$next_command", $line_nr);
my $arg_line = substitute_line($arg_texi, "\@$next_command", duplicate_formatting_state($state));
add_prev ($text, $stack, &$Texi2HTML::Config::line_command($next_command, $arg_line, $arg_texi, $state));
enter_author_command ($next_command, $arg_texi, $arg_line, $stack, $state, $line_nr);
return '';
}
elsif (defined($next_command) and ($next_command eq 'contents') or ($next_command eq 'summarycontents') or ($next_command eq 'shortcontents'))
{
my $element_tag = $next_command;
$element_tag = 'shortcontents' if ($element_tag ne 'contents');
# at that point the content_element is defined for sure since
# we already saw the tag
if ($Texi2HTML::Config::INLINE_CONTENTS and !Texi2HTML::Config::get_conf('set' . $element_tag . 'aftertitlepage'))
{
my $content_element = shift (@{$all_content_elements{$element_tag}});
my $toc_lines = &$Texi2HTML::Config::inline_contents($Texi2HTML::THISDOC{'FH'}, $element_tag, $content_element, \@sections_list);
add_prev ($text, $stack, join('',@$toc_lines)) if (defined($toc_lines));
}
return '' unless (exists($Texi2HTML::Config::misc_command{$next_command}) and $Texi2HTML::Config::misc_command{$next_command}->{'keep'});
}
# The commands to ignore are ignored now in case after ignoring them
# there is an empty line, to be able to stop the paragraph
#my $leading_spaces = '';
while (1)
{
my $next_tag = next_tag($cline);
close_paragraph($text, $stack, $state, "\@$next_tag", $line_nr, 1) if (stop_paragraph_command($next_tag));
if (defined($next_tag) and defined($Texi2HTML::Config::misc_command{$next_tag}) and !$Texi2HTML::Config::misc_command{$next_tag}->{'keep'})
{
$cline =~ s/^(\s*)\@$next_tag//;
#$leading_spaces .= $1;
add_prev ($text, $stack, do_text($1, $state));
my $result;
($cline, $result) = misc_command_text($cline, $next_tag, $stack, $state, $text, $line_nr);
add_prev($text, $stack, $result) if (defined($result));
}
else
{
last;
}
}
#add_prev ($text, $stack, $leading_spaces);
return '' if (!defined($cline) or $cline eq '');
}
my $top_stack = top_stack($stack);
if (($top_stack->{'format'} and $top_stack->{'format'} eq 'menu_description') or $state->{'raw'} or $state->{'preformatted'} or $state->{'no_paragraph'} or $state->{'keep_texi'} or $state->{'remove_texi'})
{ # empty lines are left unmodified in these contexts.
# it is also possible to be in preformatted within a menu_description
if ($cline =~ /^\s*$/)
{
if ($state->{'raw'})
{
print STDERR "#within raw $state->{'raw'}(empty line):$cline" if ($T2H_DEBUG & $DEBUG_FORMATS);
add_prev($text, $stack, $cline);
}
else
{
add_prev($text, $stack, do_text($cline,$state));
}
return;
}
}
else
{
if ($cline =~ /^\s*$/)
{
if ($state->{'paragraph_context'})
{ # An empty line ends a paragraph
close_paragraph($text, $stack, $state, __("paragraph end"), $line_nr);
}
add_prev($text, $stack, &$Texi2HTML::Config::empty_line($cline,$state));
return 1;
}
else
{
if (!no_paragraph($state,$cline))
{ # open a paragraph, unless the line begins with a macro that
# shouldn't trigger a paragraph opening
begin_paragraph($stack, $state);
}
}
}
# we flag specially deff_item and table line that contain only
# inter_item_command, which typically is be @c, @comment, @*index, such
# that the formatter can treat those specifically.
my $top_format = top_stack($stack,2);
if ($top_format->{'only_inter_commands'} and !$state->{'keep_texi'})
{
my $real_format = $top_format->{'format_ref'}->{'format'};
my $next_tag = next_tag($cline);
$next_tag = '' if (!defined($next_tag));
my $next_end_tag = next_end_tag($cline);
$next_end_tag = '' if (!defined($next_end_tag));
#msg_debug("$top_format->{'format'} $next_tag, end $next_end_tag :::$cline");
delete $top_format->{'only_inter_commands'} unless
(
$Texi2HTML::Config::inter_item_commands{$next_tag} or
(index_command_prefix($next_tag) ne '' and $Texi2HTML::Config::inter_item_commands{'cindex'}) or
($top_format->{'format'} eq 'deff_item' and "${real_format}x" eq $next_tag) or
($top_format->{'format'} ne 'deff_item' and $next_tag =~ /^itemx?$/) or
( $next_end_tag eq $real_format )
);
#print STDERR "STILL $top_format->{'only_inter_commands'}\n" if ($top_format->{'only_inter_commands'});
}
while(1)
{
# scan_line
#print STDERR "WHILE(l): $cline|";
#msg_debug("Dump stack in scan_line", $line_nr);
#dump_stack($text, $stack, $state);
# we're in a raw format (html, tex if !L2H, verbatim)
if (defined($state->{'raw'}))
{
(dump_stack($text, $stack, $state), die "Bug for raw ($state->{'raw'})") if (! @$stack or ! ($stack->[-1]->{'style'} eq $state->{'raw'}));
if ($state->{'raw'} eq 'macro')
{
if ($cline =~ /^\s*\@macro\s+(\w[\w-]*)\s*(.*)/)
{
$state->{$state->{'raw'}}++;
}
}
# macro_regexp
if ($cline =~ /^(.*?)\@end\s([a-zA-Z][\w-]*)/o and ($2 eq $state->{'raw'}))
# don't protect html, it is done by Texi2HTML::Config::raw if needed
{
$cline =~ s/^(.*?)(\@end\s$state->{'raw'})//;
my $remaining = $1;
my $end_text = $2;
if ($state->{'raw'} eq 'macro')
{
$state->{$state->{'raw'}}--;
if ($state->{$state->{'raw'}})
{
add_prev ($text, $stack, $remaining.$end_text);
last;
}
}
check_bad_end_argument ($state->{'raw'}, $cline, $line_nr);
add_prev ($text, $stack, $remaining);
my $style = pop @$stack;
if ($style->{'text'} !~ /^\s*$/)
{
if ($state->{'keep_texi'})
{
add_prev ($text, $stack, $style->{'text'} . "\@end $state->{'raw'}");
}
elsif ($state->{'remove_texi'})
{
add_prev ($text, $stack, &$Texi2HTML::Config::raw_no_texi($style->{'style'}, $style->{'text'}));
}
else
{
add_prev($text, $stack, &$Texi2HTML::Config::raw($style->{'style'}, $style->{'text'}, $line_nr));
}
}
if (!$state->{'keep_texi'} and !$state->{'remove_texi'})
{
# reopen preformatted if it was interrupted by the raw format
# if raw format is html the preformatted wasn't interrupted
begin_paragraph($stack, $state) if ($state->{'preformatted'} and (!$Texi2HTML::Config::format_in_paragraph{$state->{'raw'}}));
delete $state->{'raw'};
return if ($cline =~ /^\s*$/);
}
delete $state->{'raw'};
return if (($cline =~ /^\s*$/) and $state->{'remove_texi'});
next;
}
else
{
print STDERR "#within raw $state->{'raw'}:$cline" if ($T2H_DEBUG & $DEBUG_FORMATS);
add_prev ($text, $stack, $cline);
last;
}
}
# we are within a @verb
if (defined($state->{'verb'}))
{
my $char = quotemeta($state->{'verb'});
if ($cline =~ s/^(.*?)$char\}/\}/)
{
if ($state->{'keep_texi'})
{
add_prev($text, $stack, $1 . $state->{'verb'});
$stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'};
}
else
{
add_prev($text, $stack, do_text($1, $state));
}
delete $state->{'verb'};
next;
}
else
{
add_prev($text, $stack, $cline);
last;
}
}
# We handle now the end tags
# macro_regexp
if ($cline =~ s/^([^{}@]*)\@end\s+([a-zA-Z][\w-]*)//)
{
my $end_tag = $2;
my $prev_text = $1;
if ($state->{'keep_texi'})
{
add_prev($text, $stack, $prev_text . "\@end $end_tag");
next;
}
elsif ($state->{'remove_texi'})
{
add_prev($text, $stack, $prev_text);
next;
}
add_prev($text, $stack, do_text($prev_text, $state));
#print STDERR "END_MACRO $end_tag\n";
#dump_stack ($text, $stack, $state);
# First we test if the stack is not empty.
# Then we test if the end tag is a format tag.
# We then close paragraphs and preformatted at top of the stack.
# We handle the end tag (even when it was not the tag which appears
# on the top of the stack; in that case we close anything
# until that element)
my $top_stack = top_stack($stack);
if (!$top_stack)
{
line_error (sprintf(__("Unmatched `%c%s'"), ord('@'), 'end'), $line_nr);
add_prev($text, $stack, "\@end $end_tag");
next;
}
if (!$format_type{$end_tag})
{
line_warn ("Unknown \@end $end_tag", $line_nr);
add_prev($text, $stack, "\@end $end_tag");
next;
}
check_bad_end_argument ($end_tag, $cline, $line_nr);
if (!close_menu_description($text, $stack, $state, "\@end $end_tag", $line_nr))
{
close_paragraph($text, $stack, $state, "\@end $end_tag", $line_nr);
}
$top_stack = top_stack($stack);
if (!$top_stack or (!defined($top_stack->{'format'})))
{
line_error (sprintf(__("Unmatched `%c%s'"), ord('@'), 'end'), $line_nr);
add_prev($text, $stack, "\@end $end_tag");
dump_stack ($text, $stack, $state) if ($T2H_DEBUG);
next;
}
# Warn if the format on top of stack is not compatible with the
# end tag, and find the end tag.
unless (
($top_stack->{'format'} eq $end_tag)
or
(
$format_type{$end_tag} eq 'menu' and
$top_stack->{'format'} eq 'menu_comment'
) or
(
$end_tag eq 'multitable' and $top_stack->{'format'} eq 'cell'
) or
(
$format_type{$end_tag} eq 'list' and $top_stack->{'format'} eq 'item'
) or
(
$format_type{$end_tag} eq 'table'
and
($top_stack->{'format'} eq 'term' or $top_stack->{'format'} eq 'line')
) or
(
defined($Texi2HTML::Config::def_map{$end_tag}) and
$top_stack->{'format'} eq 'deff_item'
)
)
{
# this is not the right format. We try to close other
# formats to find the format we are searching for.
# First we close paragraphs, as with a wrong $end_format
# they may not be closed properly.
#print STDERR " MISMATCH got $top_stack->{'format'} waited \@end $end_tag($top_stack->{'format'})\n";
#dump_stack ($text, $stack, $state);
close_paragraph($text, $stack, $state, "\@end $end_tag", $line_nr);
$top_stack = top_stack($stack);
if (!$top_stack or (!defined($top_stack->{'format'})))
{
line_error (sprintf(__("Unmatched `%c%s'"), ord('@'), 'end'), $line_nr);
add_prev($text, $stack, "\@end $end_tag");
# at that point the dump_stack is not very useful, since
# close_paragraph above may hide interesting info
dump_stack ($text, $stack, $state) if ($T2H_DEBUG);
next;
}
my $waited_format = $top_stack->{'format'};
$waited_format = $fake_format{$top_stack->{'format'}} if ($format_type{$top_stack->{'format'}} eq 'fake');
if ($end_tag ne $waited_format)
{
line_error (sprintf(__("`\@end' expected `%s', but saw `%s'"), $waited_format, $end_tag), $line_nr);
}
else
{
msg_debug ("\@end is $end_tag, was waiting for $top_stack->{'format'}", $line_nr);
dump_stack ($text, $stack, $state);
}
close_stack($text, $stack, $state, $line_nr, $end_tag);
# FIXME this is too complex
# an empty preformatted may appear when closing things as
# when closed, formats reopen the preformatted environment
# in case there is some text following, but we know it isn't
# the case here, thus we can close paragraphs.
close_paragraph($text, $stack, $state, "\@end $end_tag");
my $new_top_stack = top_stack($stack);
next unless ($new_top_stack and defined($new_top_stack->{'format'}) and (($new_top_stack->{'format'} eq $end_tag)
or (($format_type{$new_top_stack->{'format'}} eq 'fake') and ($fake_format{$new_top_stack->{'format'}} eq $format_type{$end_tag}))));
}
# We should now be able to handle the format
if (defined($format_type{$end_tag}))
{# remove the space or new line following the @end command
$cline =~ s/\s//;
if (end_format($text, $stack, $state, $end_tag, $line_nr))
{ # if end_format is false, paragraph is already begun
begin_paragraph_after_command($state,$stack,$end_tag,$cline);
}
}
next;
}
# This is a macro
#elsif (s/^([^{}@]*)\@([a-zA-Z]\w*|["'~\@\}\{,\.!\?\s\*\-\^`=:\/])//o)
# macro_regexp
elsif ($cline =~ s/^([^{},@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/\\])//o or $cline =~ s/^([^{}@,]*)\@([a-zA-Z][\w-]*)//o)
{
my $before_macro = $1;
my $macro = $2;
$macro = $alias{$macro} if (exists($alias{$macro}));
my $punct;
if (!$state->{'keep_texi'} and $macro eq ':' and $before_macro =~ /(.)$/ and $Texi2HTML::Config::colon_command_punctuation_characters{$1})
{
$before_macro =~ s/(.)$//;
$punct = $1;
}
add_prev($text, $stack, do_text($before_macro, $state));
add_prev($text, $stack, &$Texi2HTML::Config::colon_command($punct)) if (defined($punct));
#print STDERR "MACRO $macro\n";
#print STDERR "LINE $cline";
#dump_stack ($text, $stack, $state);
close_paragraph($text, $stack, $state, "\@$macro", $line_nr, 1) if (stop_paragraph_command($macro) and !$state->{'keep_texi'});
if ($macro eq 'listoffloats' or $macro eq 'printindex')
{
if ($state->{'keep_texi'})
{
if ($cline =~ s/(.*)//o)
{
add_prev($text, $stack, "\@$macro" . $1);
}
next;
}
close_paragraph($text, $stack, $state, "\@$macro", $line_nr);
return undef if ($state->{'remove_texi'});
if ($macro eq 'listoffloats')
{
# remove possible comments
my $arg = normalise_texi_space(trim_comment_spaces ($cline, "\@$macro", $line_nr));
my $style_id = cross_manual_line($arg);
my $style = substitute_line (&$Texi2HTML::Config::listoffloats_style($arg), __("\@listoffloats type"), undef, $line_nr);
my $style_no_texi = remove_texi (&$Texi2HTML::Config::listoffloats_style($arg));
if (exists ($floats{$style_id}))
{
my @listoffloats_entries = ();
foreach my $float (@{$floats{$style_id}->{'floats'}})
{
my $float_style = substitute_line(&$Texi2HTML::Config::listoffloats_float_style($arg, $float), __("\@listoffloats \@float type"));
my ($caption_lines, $caption_or_shortcaption) = &$Texi2HTML::Config::listoffloats_caption($float);
# we set 'multiple_pass', and 'expansion'
# such that index entries
# and anchors are not handled one more time;
# the caption has already been formatted,
# and these have been handled at the right place
# FIXME footnotes?
my $caption = '';
$caption = substitute_text(prepare_state_multiple_pass($macro, $state), undef, "\@$caption_or_shortcaption in listoffloats", @$caption_lines) if (defined($caption_or_shortcaption));
push @listoffloats_entries, &$Texi2HTML::Config::listoffloats_entry($arg, $float, $float_style, $caption, href($float, $state->{'element'}->{'file'}, $line_nr));
}
add_prev($text, $stack, &$Texi2HTML::Config::listoffloats($arg, $style, \@listoffloats_entries));
}
else
{
line_warn (sprintf(__("Requested float type `%s' not previously used"), $arg), $line_nr);
}
}
elsif ($macro eq 'printindex' and $cline =~ s/\s+(\w+)\s*//)
{
my $index_name = $1;
my $region = $state->{'region'};
$region = 'document' if (!defined($region));
if (!defined($Texi2HTML::THISDOC{'indices'}->{$region}))
{
msg_debug ("\@printindex $index_name THISDOC{'indices'}->{$region} not defined", $line_nr);
}
elsif (!defined($Texi2HTML::THISDOC{'indices'}->{$region}->{$index_name}))
{
msg_debug ("\@printindex $index_name THISDOC{'indices'}->{$region}->{$index_name} not defined", $line_nr);
}
if (!defined($Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name}))
{
$Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name} = -1;
}
$Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name}++;
my $printindex = $Texi2HTML::THISDOC{'indices'}->{$region}->{$index_name}->[$Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name}];
if (!defined($printindex))
{
# this printindex hasn't been seen in the previous pass.
# rint STDERR "Index $index_name not in sync, number $Texi2HTML::THISDOC{'indices_numbers'}->{$index_name} not defined\n";
line_warn("\@printindex $index_name expanded more than once may lead to wrong references", $line_nr);
$printindex = $Texi2HTML::THISDOC{'indices'}->{$region}->{$index_name}->[-1];
}
elsif ($printindex->{'name'} ne $index_name)
{
print STDERR "BUG: THISDOC{'indices'} $printindex->{'name'} ne $index_name\n";
}
#print STDERR "PRINTINDEX use($printindex) region $region, name $index_name number $Texi2HTML::THISDOC{'indices_numbers'}->{$region}->{$index_name}\n";
add_prev($text, $stack, &$Texi2HTML::Config::printindex($index_name, $printindex));
}
else
{
$cline =~ s/^\s*//;
chomp ($cline);
line_error (sprintf(__("Bad argument to \@%s: %s"), $macro, $cline), $line_nr);
}
begin_paragraph ($stack, $state) if ($state->{'preformatted'});
return undef;
}
if (defined($Texi2HTML::Config::misc_command{$macro}))
{
# Handle the misc command
my $result;
($cline, $result) = misc_command_text($cline, $macro, $stack, $state, $text, $line_nr);
add_prev($text, $stack, $result) if (defined($result));
return unless (defined($cline));
unless ($Texi2HTML::Config::misc_command{$macro}->{'keep'})
{
begin_paragraph($stack, $state) if
(!no_paragraph($state,$cline));
next;
}
}
# This is a @macroname{...} construct. We add it on top of stack
# It will be handled when we encounter the '}'
# There is a special case for def macros as @deffn{def} is licit
if (!$Texi2HTML::Config::def_map{$macro} and $cline =~ s/^{//) #}
{
if ($macro eq 'verb')
{
if ($cline =~ /^$/)
{
# Allready warned
}
else
{
$cline =~ s/^(.)//;
$state->{'verb'} = $1;
}
}
# currently if remove_texi and anchor/ref/footnote
# the text within the command is ignored
# see t2h_remove_command in texi2html.init
my $new_command_ref = { 'style' => $macro, 'text' => '', 'arg_nr' => 0, 'line_nr' => $line_nr };
push (@$stack, $new_command_ref);
if ($no_paragraph_macro{$macro})
{
$state->{'no_paragraph'}++;
push @{$state->{'no_paragraph_stack'}}, "\@$macro";
}
open_arg($macro, 0, $state);
if ($state->{'keep_texi'})
{
$new_command_ref->{'keep_line_nr'} = [ $line_nr ];
}
my $real_style_command = 0;
if (defined($style_type{$macro}) and (($style_type{$macro} eq 'style') or ($style_type{$macro} eq 'accent')))
{
push (@{$state->{'command_stack'}}, $macro);
$real_style_command = 1;
#print STDERR "# Stacked $macro (@{$state->{'command_stack'}})\n" if ($T2H_DEBUG);
}
# FIXME give line, and modify line?
&$Texi2HTML::Config::begin_style_texi($macro, $state, $stack, $real_style_command, $state->{'remove_texi'})
if (defined($Texi2HTML::Config::begin_style_texi)
and !($state->{'keep_texi'}));
next;
}
# special case if we are checking itemize line. In that case
# we want to make sure that there is no @item on the @itemize
# line, otherwise it will be added on the front of another @item,
# leading to an infinite loop...
if ($state->{'check_item'} and ($macro =~ /^itemx?$/ or $macro eq 'headitem'))
{
line_error(sprintf(__("\@%s not allowed in argument to \@%s"), $macro, $state->{'check_item'}), $line_nr);
next;
}
# if we're keeping texi unmodified we can do it now
if ($state->{'keep_texi'})
{
# We treat specially formats accepting {} on command line
if ($macro eq 'multitable' or defined($Texi2HTML::Config::def_map{$macro}) or defined($sec2level{$macro}) or $macro eq 'macro')
{
add_prev($text, $stack, "\@$macro" . $cline);
$cline = '';
next;
}
add_prev($text, $stack, "\@$macro");
if ($Texi2HTML::Config::texi_formats_map{$macro} and $Texi2HTML::Config::texi_formats_map{$macro} eq 'raw')
{
$state->{'raw'} = $macro;
$state->{$macro}++ if ($macro eq 'macro');
push (@$stack, {'style' => $macro, 'text' => ''});
}
next;
}
# If we are removing texi, the following macros are not removed
# as is but modified. So they are collected first, as if we were
# in normal text
# a raw macro beginning
if ($Texi2HTML::Config::texi_formats_map{$macro} and $Texi2HTML::Config::texi_formats_map{$macro} eq 'raw')
{
if (!$Texi2HTML::Config::format_in_paragraph{$macro})
{ # close paragraph before verbatim (and tex if !L2H)
close_paragraph($text, $stack, $state, "\@$macro", $line_nr);
}
$state->{'raw'} = $macro;
push (@$stack, {'style' => $macro, 'text' => ''});
$state->{$macro}++ if ($macro eq 'macro');
return if ($cline =~ /^\s*$/ or ($macro eq 'macro'));
next;
}
my $simple_macro = 1;
# An accent macro
if (exists($Texi2HTML::Config::accent_map{$macro}))
{
# the command itself is not in the command stack, since with
# braces, it is already popped when do_simple is called
#push (@{$state->{'command_stack'}}, $macro);
if ($macro =~ /^[a-zA-Z]/)
{
$cline =~ s/^\s*//;
}
elsif ($cline =~ /^\s/)
{
line_warn (sprintf(__("Accent command `\@%s' must not be followed by whitespace"), $macro), $line_nr);
}
if ($cline =~ /^\@/)
{
line_error (sprintf(__("Use braces to give a command as an argument to \@%s"), $macro), $line_nr);
}
if ($cline =~ s/^(\S)//o)
{
add_prev($text, $stack, do_style_command($macro, $1, $state, [ $1 ], $line_nr, undef, undef, undef));
}
else
{ # The accent is at end of line
# FIXME warn? And test case? Maybe this is catched
# above, by "Accent command `@%s' must not be followed by whitespace"
# for commands with letter.
add_prev($text, $stack, do_text($macro, $state));
}
#pop @{$state->{'command_stack'}};
}
# an @-command which should be like @command{}. We handle it...
elsif ($::things_map_ref->{$macro})
{
line_error (sprintf(__("\@%s expected braces"), $macro), $line_nr);
add_prev($text, $stack, do_thing_command($macro, '', $state, $line_nr));
}
# an @-command like @command
elsif (defined($::simple_map_ref->{$macro}) or ($state->{'math_style'} and defined($::simple_map_math_ref->{$macro})))
{
add_prev($text, $stack, do_simple_command($macro, $state, $line_nr));
}
else
{
$simple_macro = 0;
}
if ($simple_macro)
{# if the macro didn't triggered a paragraph start it might now
begin_paragraph($stack, $state) if
($Texi2HTML::Config::no_paragraph_commands{$macro} and !no_paragraph($state,$cline));
next;
}
# the following macros are modified or ignored if we are
# removing texi, and they are not handled like macros in normal text
if ($state->{'remove_texi'})
{
# handle specially some macros
if ((index_command_prefix($macro) ne '') or
($macro eq 'itemize') or
($format_type{$macro} and ($format_type{$macro} eq 'table' or $format_type{$macro} eq 'quotation'))
or ($macro eq 'multitable'))
{
return;
}
elsif ($macro eq 'enumerate')
{
my $spec;
($cline, $spec) = parse_enumerate ($cline);
return if ($cline =~ /^\s*$/);
next;
}
elsif (defined($Texi2HTML::Config::def_map{$macro}))
{
my ($command, $style, $category, $name, $type, $class, $arguments, $args_array);
($command, $style, $category, $name, $type, $class, $arguments, $args_array) = parse_def($macro, $cline, $line_nr);
# FIXME -- --- ''... lead to simple text in texi2html
# while they are kept as is in html coments by makeinfo
$category = remove_texi($category) if (defined($category));
$name = remove_texi($name) if (defined($name));
$type = remove_texi($type) if (defined($type));
$class = remove_texi($class) if (defined($class));
$arguments = remove_texi($arguments) if (defined($arguments));
chomp($arguments);
add_prev($text, $stack, &$Texi2HTML::Config::def_line_no_texi($category, $name, $type, $arguments));
return;
}
elsif (defined($sec2level{$macro}))
{ #FIXME there is certainly more intelligent stuff to do
my $num;
if ($state->{'region'})
{
$state->{'head_num'}++;
$num = "$state->{'region'}_$state->{'head_num'}";
}
else
{
$num = $global_head_num;
}
my $heading_element = $headings{$num};
$cline = trim_comment_spaces ($cline, "\@$macro");
add_prev($text, $stack, &$Texi2HTML::Config::heading_no_texi($heading_element, $macro, $cline));
return;
}
# ignore other macros
next;
}
# handle the other macros, we are in the context of normal text
if (defined($sec2level{$macro}))
{
#dump_stack($text, $stack, $state);
my $num;
if ($state->{'region'})
{
$state->{'head_num'}++;
$num = "$state->{'region'}_$state->{'head_num'}";
}
else
{
$global_head_num++;
$num = $global_head_num;
}
my $heading_element = $headings{$num};
$cline = trim_comment_spaces($cline, "\@$macro", $line_nr);
add_prev($text, $stack, &$Texi2HTML::Config::element_label($heading_element->{'id'}, $heading_element, $macro, $cline));
add_prev($text, $stack, &$Texi2HTML::Config::heading($heading_element, $macro, $cline, substitute_line($cline, "\@$macro"), $state->{'preformatted'}));
return;
}
if (index_command_prefix($macro) ne '')
{
my $index_name = index_command_prefix($macro);
my $entry_texi = trim_comment_spaces($cline, "\@$macro", $line_nr);
chomp($entry_texi);
# multiple_pass is not really necessary, since it may be the place
# where it is expanded once. However, this ensures that things
# that are ignored with multiple_pass are ignored.
my $entry_text = substitute_line($entry_texi, "\@$macro", prepare_state_multiple_pass($macro, $state));
my ($index_entry, $formatted_index_entry, $index_label) = do_index_entry_label($macro,$state,$line_nr, $entry_texi);
if (defined($index_entry))
{
msg_debug ("(bug?) Index out of sync `$index_entry->{'texi'}' ne `$entry_texi'", $line_nr) if ($index_entry->{'texi'} ne $entry_texi);
}
add_prev($text, $stack, &$Texi2HTML::Config::index_entry_command($macro, $index_name, $index_label, $entry_texi, $entry_text, $index_entry));
# it eats the end of line and therefore don't start
# table entries nor close @center. These should be stopped
# on the next line, though.
return;
}
if ($macro eq 'insertcopying')
{
#close_paragraph($text, $stack, $state, $line_nr);
add_prev($text, $stack, do_insertcopying($state, $line_nr));
# reopen a preformatted format if it was interrupted by the macro
begin_paragraph ($stack, $state) if ($state->{'preformatted'});
return;
}
if ($macro =~ /^itemx?$/o or ($macro eq 'headitem'))
{
#print STDERR "ITEM: $cline";
#dump_stack($text, $stack, $state);
abort_empty_preformatted($stack, $state);
# FIXME let the user be able not to close the paragraph
close_paragraph($text, $stack, $state, "\@$macro", $line_nr);
#print STDERR "ITEM after close para: $cline";
#dump_stack($text, $stack, $state);
# these functions return the format if in the right context
my $in_list_enumerate;
my $format;
if ($format = add_item($text, $stack, $state, $line_nr))
{ # handle lists
$in_list_enumerate = 1;
if ($macro ne 'item')
{
line_error (sprintf(__("\@%s not meaningful inside `\@%s' block"), $macro, $format->{'format'}), $line_nr);
}
}
elsif ($format = add_term($text, $stack, $state, $line_nr))
{ # close table term
}
elsif ($format = add_line($text, $stack, $state, $line_nr))
{ # close table definition
}
if ($format)
{
if ($macro eq 'headitem')
{
line_error (sprintf(__("\@%s not meaningful inside `\@%s' block"), $macro, $format->{'format'}), $line_nr);
}
if (defined($Texi2HTML::Config::tab_item_texi))
{
my $resline = &$Texi2HTML::Config::tab_item_texi($macro, $state->{'command_stack'}, $stack, $state, $cline, $line_nr);
$cline = $resline if (defined($resline));
}
if ($in_list_enumerate)
{
push (@$stack, { 'format' => 'item', 'text' => '', 'format_ref' => $format, 'item_cmd' => $macro });
begin_paragraph($stack, $state) if ($state->{'preformatted'} or !no_line($cline));
}
else
{# handle table @item term and restart another one
# or after table text restart a term
push (@$stack, { 'format' => 'term', 'text' => '', 'format_ref' => $format, 'item_cmd' => $macro });
}
$format->{'texi_line'} = $cline;
my ($line, $open_command) = &$Texi2HTML::Config::format_list_item_texi($format->{'format'}, $cline, $format->{'prepended'}, $format->{'command'}, $format->{'number'});
$cline = $line if (defined($line));
#if ($open_command)
#{
# open_arg($format->{'command'},0, $state);
# $format->{'command_opened'} = 1;
#}
$format->{'item_cmd'} = $macro;
$format->{'texi_line_texi_formatted'} = $cline;
next;
}
$format = add_row ($text, $stack, $state, $line_nr); # handle multitable
if (!$format)
{ # makeinfo has:
# "@%s not meaningful inside `@%s' block" for menu/quotation...
# and, if outside of any format
# "%c%s found outside of an insertion block"
# The following error message seems better.
line_error (sprintf(__("\@%s outside of table or list"), $macro), $line_nr);
}
else
{
push @$stack, {'format' => 'row', 'text' => '', 'item_cmd' => $macro, 'format_ref' => $format };
push @$stack, {'format' => 'cell', 'text' => '', 'format_ref' => $format};
$format->{'cell'} = 1;
if ($format->{'max_columns'})
{
if (defined($Texi2HTML::Config::tab_item_texi))
{
my $resline = &$Texi2HTML::Config::tab_item_texi($macro, $state->{'command_stack'}, $stack, $state, $cline, $line_nr);
$cline = $resline if (defined($resline));
}
begin_paragraph_after_command($state,$stack,$macro,$cline);
}
else
{
line_warn (sprintf(__("\@%s in empty multitable"), $macro), $line_nr);
}
}
next;
}
if ($macro eq 'tab')
{
abort_empty_preformatted($stack, $state);
# FIXME let the user be able not to close the paragraph?
close_paragraph($text, $stack, $state, "\@$macro", $line_nr);
my $format = add_cell ($text, $stack, $state, $line_nr);
if (!$format)
{
line_error(__("ignoring \@tab outside of multitable"), $line_nr);
}
else
{
push @$stack, {'format' => 'cell', 'text' => '', 'format_ref' => $format};
if (!$format->{'max_columns'})
{
line_warn (__("ignoring \@tab in empty multitable"), $line_nr);
}
elsif ($format->{'cell'} > $format->{'max_columns'})
{
line_error (sprintf(__("Too many columns in multitable item (max %d)"), $format->{'max_columns'}), $line_nr);
}
else
{
if (defined($Texi2HTML::Config::tab_item_texi))
{
my $resline = &$Texi2HTML::Config::tab_item_texi($macro, $state->{'command_stack'}, $stack, $state, $cline, $line_nr);
$cline = $resline if (defined($resline));
}
}
}
begin_paragraph_after_command($state,$stack,$macro,$cline);
next;
}
# Macro opening a format (table, list, deff, example...)
if ($format_type{$macro} and ($format_type{$macro} ne 'fake'))
{
my $ignore_center = 0;
# @center is forbidden in @-command with braces, @*table
# @item line, @multitable, or another @center
if ($macro eq 'center' and @$stack)
{
my $top_stack = top_stack($stack, 1);
if (exists($top_stack->{'style'}) or (defined($top_stack->{'format'}) and ($top_stack->{'format'} eq 'term' or $top_stack->{'format'} eq 'cell')) or $state->{'preformatted'} or $state->{'paragraph_style'}->[-1] eq 'center')
{
$ignore_center = 1;
}
#dump_stack ($text, $stack, $state);
}
if ($ignore_center)
{
line_error(__("\@center should not appear in another format"), $line_nr);
}
else
{
$cline = begin_format($text, $stack, $state, $macro, $cline, $line_nr);
}
# we keep the end of line for @center, and for formats
# that have cmd_line opened and need to see the end of line
next if (($macro eq 'center') or
(defined($Texi2HTML::Config::def_map{$macro}))
or ($macro eq 'float') or ($format_type{$macro} eq 'quotation'));
return if ($cline =~ /^\s*$/);
next;
}
$cline = do_unknown (2, $macro, $cline, $text, $stack, $state, $line_nr);
next;
}
elsif($cline =~ s/^([^{}@,]*)\@([^\s\}\{\@]*)//o)
{ # A macro with a character which shouldn't appear in macro name
add_prev($text, $stack, do_text($1, $state));
$cline = do_unknown (2, $2, $cline, $text, $stack, $state, $line_nr);
next;
}
# a brace
elsif ($cline =~ s/^([^{},]*)([{}])//o)
{
my $leading_text = $1;
my $brace = $2;
add_prev($text, $stack, do_text($leading_text, $state));
if (defined($brace) and ($brace eq '{')) #'}'
{
add_prev($text, $stack, do_text('{',$state)); #}
if ($state->{'math_style'})
{
$state->{'math_brace'}++;
}
else
{
unless ($state->{'keep_texi'} or $state->{'remove_texi'})
{
line_error (sprintf(__("Misplaced %c"), ord('{')), $line_nr);
}
}
}
elsif (defined($brace) and ($brace eq '}') and
(!@$stack or (!defined($stack->[-1]->{'style'}))
# braces are allowed in math
or $state->{'math_brace'}))
{
if ($state->{'keep_texi'})
{
add_prev($text, $stack, '}');
}
elsif($state->{'math_style'} and $state->{'math_brace'})
{
add_prev($text, $stack, do_text('}',$state));
$state->{'math_brace'}--;
}
else
{
line_error (sprintf(__("Misplaced %c"), ord('}')), $line_nr);
#dump_stack($text, $stack, $state);
}
}
else
{ # A @-command{ ...} is closed
my ($result, $command) = close_style_command($text, $stack, $state, $line_nr, $cline);
add_prev($text, $stack, $result);
if ($Texi2HTML::Config::no_paragraph_commands{$command}
and !$state->{'keep_texi'} and !no_paragraph($state,$cline))
{
begin_paragraph($stack, $state);
}
}
}
elsif ($cline =~ s/^([^,]*)[,]//o)
{
add_prev($text, $stack, do_text($1, $state));
if (@$stack and defined($stack->[-1]->{'style'})
and (ref($::style_map_ref->{$stack->[-1]->{'style'}}) eq 'HASH'))
{
my $macro = $stack->[-1]->{'style'};
my $style_args = $::style_map_ref->{$macro}->{'args'};
if (defined($style_args->[$stack->[-1]->{'arg_nr'} + 1]))
{
push (@{$stack->[-1]->{'args'}}, $stack->[-1]->{'text'});
$stack->[-1]->{'fulltext'} .= $stack->[-1]->{'text'} . do_text(',', $state);
$stack->[-1]->{'text'} = '';
close_arg ($macro, $stack->[-1]->{'arg_nr'}, $state);
$stack->[-1]->{'arg_nr'}++;
open_arg ($macro, $stack->[-1]->{'arg_nr'}, $state);
next;
}
}
add_prev($text, $stack, do_text(',', $state));
}
else
{ # no macro nor '}', but normal text
add_prev($text, $stack, do_text($cline, $state));
# @center/line term is closed at the end of line. When a
# @-command which
# keeps the texi as is happens on the @center line, the @center
# is closed at the end of line appearing after the @-command
# closing (for example @ref, @footnote).
last if ($state->{'keep_texi'});
#print STDERR "END_LINE(l):$cline!!!\n";
#dump_stack($text, $stack, $state);
my $maybe_format_to_close = 1;
my $in_table;
while ($maybe_format_to_close)
{
$maybe_format_to_close = 0;
#my $top_format = top_stack($stack, 1);
my $top_format = top_stack($stack, 2);
# the stack cannot easily be used, because there may be
# opened commands in paragraphs if the center is in a
# style command, like
# @b{
# bold
#
# @center centered bold
#
# }
#
# Therefore $state->{'paragraph_style'}->[-1] is used.
#
# The close_stack until 'center' is needed because
# of constructs like
#
# @center something @table
#
# In that case what would be removed from the stack after
# paragraph closing wold not be the @center. Such construct
# is certainly incorrect, though.
#
# when 'closing_center' is true we don't retry to close
# the @center line.
if ($state->{'paragraph_style'}->[-1] eq 'center'
and !$state->{'closing_center'} and !$state->{'keep_texi'})
{
$state->{'closing_center'} = 1;
close_paragraph($text, $stack, $state, "\@center", $line_nr);
close_stack($text, $stack, $state, $line_nr, 'center');
delete $state->{'closing_center'};
my $center = pop @$stack;
add_prev($text, $stack, &$Texi2HTML::Config::paragraph_style_command('center',$center->{'text'}));
my $top_paragraph_style = pop @{$state->{'paragraph_style'}};
# center is at the bottom of the comand_stack because it
# may be nested in many way
my $bottom_command_stack = shift @{$state->{'command_stack'}};
print STDERR "Bug: closing center, top_paragraph_style: $top_paragraph_style, bottom_command_stack: $bottom_command_stack.\n"
if ($bottom_command_stack ne 'center' or $top_paragraph_style ne 'center');
$maybe_format_to_close = 1;
next;
}
# @item line is closed by end of line. In general there should
# not be a paragraph in a term. However it may currently
# happen in construct like
#
# @table @asis
# @item @cindex index entry
# some text still in term, and in paragraph
# Not in term anymore
# ....
#
if (defined($top_format->{'format'}) and $top_format->{'format'} eq 'term')
{
#close_paragraph($text, $stack, $state, $line_nr)
# if ($state->{'paragraph_context'});
close_stack($text, $stack, $state, $line_nr, 'term');
$in_table = add_term($text, $stack, $state, $line_nr);
if ($in_table)
{
$maybe_format_to_close = 1;
next;
}
}
}
if ($in_table)
{
push (@$stack, { 'format' => 'line', 'text' => '', 'only_inter_commands' => 1, 'format_ref' => $in_table });
begin_paragraph($stack, $state) if ($state->{'preformatted'});
}
last;
}
}
return 1;
} # end scan_line
sub open_arg($$$)
{
my $macro = shift;
my $arg_nr = shift;
my $state = shift;
if (ref($::style_map_ref->{$macro}) eq 'HASH')
{
my $arg = $::style_map_ref->{$macro}->{'args'}->[$arg_nr];
if ($arg eq 'keep')
{
$state->{'keep_nr'}++;
$state->{'keep_texi'} = 1;
}
elsif (!$state->{'keep_texi'})
{
if ($arg eq 'code')
{
$state->{'code_style'}++;
}
elsif ($arg eq 'math')
{
$state->{'math_style'}++;
$state->{'code_style'}++;
if ($state->{'math_style'} == 1)
{
$state->{'math_brace'} = 0;
}
}
}
}
elsif ($code_style_map{$macro} and !$state->{'keep_texi'})
{
$state->{'code_style'}++;
}
}
sub close_arg($$$)
{
my $macro = shift;
my $arg_nr = shift;
my $state = shift;
if (ref($::style_map_ref->{$macro}) eq 'HASH')
{
my $arg = $::style_map_ref->{$macro}->{'args'}->[$arg_nr];
if ($arg eq 'keep')
{
$state->{'keep_nr'}--;
$state->{'keep_texi'} = 0 if ($state->{'keep_nr'} == 0);
}
elsif (!$state->{'keep_texi'})
{
if ($arg eq 'code')
{
$state->{'code_style'}--;
}
elsif ($arg eq 'math')
{
$state->{'math_style'}--;
$state->{'code_style'}--;
}
}
#print STDERR "c $arg_nr $macro $arg $state->{'code_style'}\n";
}
elsif ($code_style_map{$macro} and !$state->{'keep_texi'})
{
$state->{'code_style'}--;
}
}
# add a special style on the top of the stack. This is used for commands
# that extend until the end of the line. Also add an entry in the @-command
# hashes for this fakes style.
#sub open_cmd_line($$$$$)
#{
# my $command = shift;
# my $stack = shift;
# my $state = shift;
# my $args = shift;
# my $function = shift;
# push @$stack, {'style' => 'cmd_line', 'text' => '', 'arg_nr' => 0};
# foreach my $hash (\%Texi2HTML::Config::style_map, \%Texi2HTML::Config::style_map_pre, \%Texi2HTML::Config::style_map_texi, \%Texi2HTML::Config::simple_format_style_map_texi)
# {
# $hash->{'cmd_line'}->{'args'} = $args;
# $hash->{'cmd_line'}->{'function'} = $function;
# }
# $state->{'no_paragraph'}++;
# push @{$state->{'no_paragraph_stack'}}, "\@$command line";
## $state->{'cmd_line'} = 1;
# open_arg ('cmd_line', 0, $state);
#}
# finish @item line in @*table
sub add_term($$$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
my $top_format = top_stack($stack,2);
return unless (defined($top_format->{'format'}) and $top_format->{'format'} eq 'term');
#print STDERR "ADD_TERM\n";
my $term = pop @$stack;
my $format = $stack->[-1];
$format->{'paragraph_number'} = 0;
chomp ($term->{'text'});
my ($index_label, $formatted_index_entry);
if ($format->{'format'} =~ /^(f|v)/o)
{
my $index_entry;
($index_entry, $formatted_index_entry, $index_label) = do_index_entry_label($format->{'format'}, $state,$line_nr, $format->{'texi_line'});
print STDERR "Bug: no index entry for $term->{'text'}\n" unless defined($index_label);
}
my $item_result = &$Texi2HTML::Config::table_item($term->{'text'}, $index_label,$format->{'format'},$format->{'command'}, $state->{'command_stack'}, $term->{'item_cmd'}, $formatted_index_entry);
add_prev($text, $stack, $item_result);
return $format;
}
sub add_row($$$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
my $top_format = top_stack($stack);
# @center a @item
# will lead to row not being closed since a close paragraph doesn't
# end the center.
return unless (defined($top_format->{'format'}) and $top_format->{'format'} eq 'cell');
my $cell = $top_format;
my $format = $stack->[-3];
print STDERR "Bug under row cell row not a multitable\n" if (!defined($format->{'format'}) or $format->{'format'} ne 'multitable');
#print STDERR "ADD_ROW $format->{'item_nr'} first: $format->{'first'}\n";
# dump_stack($text, $stack, $state);
$format->{'item_nr'}++ unless ($format->{'first'});
my $empty_first;
if ($format->{'first'} and $format->{'cell'} == 1 and $stack->[-1]->{'text'} =~ /^\s*$/)
{
$empty_first = 1;
$format->{'empty_first'} = 1;
}
if ($format->{'cell'} > $format->{'max_columns'} or $empty_first)
{
my $cell = pop @$stack;
print STDERR "Bug: not a cell ($cell->{'format'}) in multitable\n" if ($cell->{'format'} ne 'cell');
}
else
{
add_cell($text, $stack, $state);
}
my $row = pop @$stack;
print STDERR "Bug: not a row ($row->{'format'}) in multitable\n" if ($row->{'format'} ne 'row');
if ($format->{'max_columns'} and !$empty_first)
{
# FIXME have the cell count in row and not in table. table could have
# the whole structure, but cell count doesn't make much sense
add_prev($text, $stack, &$Texi2HTML::Config::row($row->{'text'}, $row->{'item_cmd'}, $format->{'columnfractions'}, $format->{'prototype_row'}, $format->{'prototype_lengths'}, $format->{'max_columns'}, $cell->{'only_inter_commands'}, $format->{'first'}));
}
$format->{'first'} = 0 if ($format->{'first'});
return $format;
}
# FIXME remove and merge, too much double checks and code
sub add_cell($$$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
my $top_format = top_stack($stack);
#print STDERR "ADD_CELL\n";
return unless (defined($top_format) and $top_format->{'format'} eq 'cell');
# print STDERR "ADD_CELL, really\n";
my $cell = pop @$stack;
my $row = top_stack($stack);
print STDERR "Bug: top_stack of cell not a row\n" if (!defined($row->{'format'}) or ($row->{'format'} ne 'row'));
my $format = $stack->[-2];
print STDERR "Bug under cell row not a multitable\n" if (!defined($format->{'format'}) or $format->{'format'} ne 'multitable');
if ($format->{'first'} and $format->{'cell'} == 1)
{
line_warn(__("\@tab before \@item"), $line_nr);
}
if ($format->{'cell'} <= $format->{'max_columns'})
{
#print STDERR "ADD_CELL, really, really\n";
add_prev($text, $stack, &$Texi2HTML::Config::cell($cell->{'text'}, $row->{'item_cmd'}, $format->{'columnfractions'}, $format->{'prototype_row'}, $format->{'prototype_lengths'}, $format->{'max_columns'}, $cell->{'only_inter_commands'}, $format->{'first'}));
}
$format->{'cell'}++;
$format->{'first'} = 0 if ($format->{'first'});
return $format;
}
sub add_line($$$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
my $top_stack = top_stack($stack);
# if there is something like
# @center centered @item new item
# the item isn't opened since it is in @center, and center isn't closed
# by an @item appearing here (unlike a paragraph).
# the error message is '@item outside of table or list'.
# texi2dvi also has issue, but makeinfo is happy, however it
# produces bad nesting.
return unless(defined($top_stack->{'format'}) and $top_stack->{'format'} eq 'line');
#print STDERR "ADD_LINE\n";
#dump_stack($text, $stack, $state);
my $line = pop @$stack;
my $format = $stack->[-1];
$format->{'paragraph_number'} = 0;
if ($format->{'first'})
{
$format->{'first'} = 0;
# we must have <dd> or <dt> following <dl> thus we do a
# &$Texi2HTML::Config::table_line here too, although it could have
# been a normal paragraph.
if ($line->{'text'} =~ /\S/o)
{
add_prev($text, $stack, &$Texi2HTML::Config::table_line($line->{'text'}, $line->{'only_inter_commands'}, 1));
$format->{'empty_first'} = 1 if ($line->{'only_inter_commands'});
}
else
{
$format->{'empty_first'} = 1;
}
}
else
{
$format->{'item_nr'}++;
add_prev($text, $stack, &$Texi2HTML::Config::table_line($line->{'text'}, $line->{'only_inter_commands'}, 0));
}
return $format;
}
# finish @enumerate or @itemize @item
sub add_item($$$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
my $top_stack = top_stack($stack);
return unless (defined($top_stack->{'format'}) and $top_stack->{'format'} eq 'item');
#print STDERR "ADD_ITEM: \n";
#dump_stack($text, $stack, $state);
# as in pre the end of line are kept, we must explicitely abort empty
# preformatted, close_stack doesn't do that.
my $item = pop @$stack;
my $format = $stack->[-1];
#my $item_command = $item->{'format'};
my $item_command = $item->{'item_cmd'};
# first has no associated item, it is more like a 'title'
$item_command = '' if ($format->{'first'});
# debug message if it is the first item (much like a title) although
# there is an item command.
msg_debug("First in $format->{'format'} but item_cmd defined $item->{'item_cmd'}",$line_nr) if ($format->{'first'} and defined($item->{'item_cmd'}));
$format->{'paragraph_number'} = 0;
#dump_stack ($text, $stack, $state);
# the element following ol or ul must be li. Thus even though there
# is no @item we put a normal item.
# don't do an item if it is the first and it is empty
if (!$format->{'first'} or ($item->{'text'} =~ /\S/o))
{
my $formatted_command;
if (defined($format->{'command'}) and $format->{'command'} ne '')# and exists($::things_map_ref->{$format->{'command'}}))
{
$formatted_command = substitute_line("\@$format->{'command'}\{\}", "\@item \@$format->{'command'}", duplicate_formatting_state($state));
$format->{'formatted_command'} = $formatted_command;
}
#chomp($item->{'text'});
add_prev($text, $stack, &$Texi2HTML::Config::list_item($item->{'text'},$format->{'format'},$format->{'command'}, $formatted_command, $format->{'item_nr'}, $format->{'spec'}, $format->{'number'}, $format->{'prepended'}, $format->{'prepended_formatted'}, $item->{'only_inter_commands'}, $format->{'first'},$item_command));
}
else
{
$format->{'empty_first'} = 1;
}
if ($format->{'first'})
{
$format->{'first'} = 0;
}
else
{
$format->{'item_nr'}++;
}
if ($format->{'format'} eq 'enumerate')
{
$format->{'number'} = '';
my $spec = $format->{'spec'};
if ($spec =~ /^[0-9]$/)
{
$format->{'number'} = $spec + $format->{'item_nr'};
}
else
{
my $base_letter = ord('a');
$base_letter = ord('A') if (ucfirst($spec) eq $spec);
my @letter_ords = decompose(ord($spec) - $base_letter + $format->{'item_nr'}, 26);
foreach my $ord (@letter_ords)
{# FIXME we go directly to 'ba' after 'z', and not 'aa'
#because 'ba' is 1,0 and 'aa' is 0,0.
$format->{'number'} = chr($base_letter + $ord) . $format->{'number'};
}
}
}
return $format;
}
# format ``simple'' macros, that is macros without arg or style macros
sub do_simple_command($$$)
{
my $macro = shift;
my $state = shift;
my $line_nr = shift;
#msg_debug ("DO_SIMPLE $macro $args $arg_nr (@$args)", $line_nr) if (defined($args));
if ($state->{'remove_texi'})
{
#print STDERR "DO_SIMPLE remove_texi $macro\n";
return $::simple_map_texi_ref->{$macro};
}
else
{
return &$Texi2HTML::Config::simple_command($macro, $state->{'preformatted'}, $state->{'math_style'}, $line_nr, $state);
}
}
sub do_thing_command($$$$)
{
my $macro = shift;
my $text = shift;
my $state = shift;
my $line_nr = shift;
if ($state->{'remove_texi'})
{
return $::texi_map_ref->{$macro}.$text;
#print STDERR "DO_SIMPLE remove_texi texi_map $macro\n";
}
else
{
return &$Texi2HTML::Config::thing_command($macro, $text, $state->{'preformatted'}, $state->{'math_style'}, $line_nr, $state);
}
}
sub do_style_command($$$$$$$$)
{
my $macro = shift;
my $text = shift;
my $state = shift;
my $args = shift;
my $line_nr = shift;
my $no_open = shift;
my $no_close = shift;
my $kept_line_nrs = shift;
my $arg_nr = 0;
$arg_nr = @$args - 1 if (defined($args));
if (defined($::style_map_ref->{$macro}))
{
my $style;
my $result;
if ($state->{'remove_texi'})
{
#print STDERR "REMOVE $macro, $style_map_texi_ref->{$macro}, fun $style_map_texi_ref->{$macro}->{'function'} remove cmd " . \&Texi2HTML::Config::t2h_remove_command . " ascii acc " . \&t2h_default_accent;
$style = $::style_map_texi_ref->{$macro};
}
elsif ($state->{'math_style'} and defined($::style_map_math_ref->{$macro}))
{ # FIXME we are still in math when the @math is closed here, since
# close_arg that does 'math_style'-- is called below.
$style = $::style_map_math_ref->{$macro};
}
elsif ($state->{'preformatted'})
{
if ($macro eq 'kbd' and (Texi2HTML::Config::get_conf('kbdinputstyle') ne 'distinct'))
{
$style = $::style_map_pre_ref->{'code'};
}
else
{
$style = $::style_map_pre_ref->{$macro};
}
}
else
{
# kbd is in code_style, so it is 'code_style' > 1
if ($macro eq 'kbd' and ((Texi2HTML::Config::get_conf('kbdinputstyle') eq 'code') or ($state->{'code_style'} > 1 and Texi2HTML::Config::get_conf('kbdinputstyle') eq 'example')))
{
$style = $::style_map_ref->{'code'};
}
else
{
$style = $::style_map_ref->{$macro};
}
}
if ($macro eq 'dotless')
{
if (scalar(@$args) ne 1)
{
line_error(sprintf(__("%c%s expects a single character `i' or `j' as argument"), ord('@'), $macro), $line_nr);
}
elsif ($args->[0] ne 'i' and $args->[0] ne 'j')
{ # FIXME an unformatted arg would have been better. Not a big deal.
line_error (sprintf(__("%c%s expects `i' or `j' as argument, not `%s'"), ord('@'), $macro, $args->[0]), $line_nr);
}
}
if (defined($style))
{ # known style
$result = &$Texi2HTML::Config::style($style, $macro, $text, $args, $no_close, $no_open, $line_nr, $state, $state->{'command_stack'}, $kept_line_nrs);
}
if (!$no_close)
{
close_arg($macro,$arg_nr, $state);
}
return $result;
}
elsif ($macro =~ /^special_(\w+)_(\d+)$/o)
{
my $style = $1;
my $count = $2;
msg_debug ("Bug? text in \@$macro not empty", $line_nr) if ($text ne '');
if (defined($Texi2HTML::Config::command_handler{$style}) and
defined($Texi2HTML::Config::command_handler{$style}->{'expand'}))
{
my $struct_count = 1+ $special_commands{$style}->{'max'} - $special_commands{$style}->{'count'};
# may happen for text expanded more than once, for example
# in invalid/tex_in_copying
if (($count != $struct_count) and $T2H_DEBUG)
{
msg_debug ("count $count in \@special $style and structure $struct_count differ", $line_nr);
}
$special_commands{$style}->{'count'}--;
}
my $result = $Texi2HTML::Config::command_handler{$style}->{'expand'}
($style,$count,$state,$text);
$result = '' if (!defined($result));
return $result;
}
# Unknown macro
my $result = '';
my ($done, $result_text, $message) = &$Texi2HTML::Config::unknown_style($macro, $text,$state,$no_close, $no_open);
if ($done)
{
line_warn($message, $line_nr) if (defined($message));
if (defined($result_text))
{
$result = $result_text;
}
}
else
{
unless ($no_open)
{ # we warn only if no_open is true, i.e. it is the first time we
# close the macro for a multiline macro
line_error (sprintf(__("Unknown command with braces `\@%s'"), $macro), $line_nr);
$result = do_text("\@$macro") . "{";
}
$result .= $text;
$result .= '}' unless ($no_close);
}
return $result;
}
sub do_unknown($$$$$$$)
{
my $pass = shift;
my $macro = shift;
my $line = shift;
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
#print STDERR "do_unknown[$pass]($macro) ::: $line";
my ($result_line, $result, $result_text, $message) = &$Texi2HTML::Config::unknown($macro, $line, $pass, $stack,$state);
if ($result)
{
add_prev ($text, $stack, $result_text) if (defined($result_text));
line_warn($message, $line_nr) if (defined($message));
# if $state->{'preformatted'}, assume that the preformatted is
# already opened. Otherwise we may end up opening one each time
# there is an unknown command.
begin_paragraph_after_command($state, $stack, $macro, $result_line)
if (!$state->{'preformatted'});
return $result_line;
}
elsif ($pass == 2)
{
if ($Texi2HTML::Config::style_map{$macro})
{
line_error (sprintf(__("%c%s expected braces"), ord('@'), $macro), $line_nr);
}
else
{
line_error (sprintf(__("Unknown command `%s'"), $macro), $line_nr);
}
add_prev ($text, $stack, do_text("\@$macro"));
return $line;
}
elsif ($pass == 1)
{
add_prev ($text, $stack, "\@$macro");
return $line;
}
elsif ($pass == 0)
{
add_prev ($text, $stack, "\@$macro") unless($state->{'ignored'});
return $line;
}
}
# used only during @macro processing
sub add_text($@)
{
my $string = shift;
return if (!defined($string));
foreach my $scalar_ref (@_)
{
next unless defined($scalar_ref);
if (!defined($$scalar_ref))
{
$$scalar_ref = $string;
}
else
{
$$scalar_ref .= $string;
}
return;
}
}
sub add_prev ($$$)
{
my $text = shift;
my $stack = shift;
my $string = shift;
unless (defined($text) and ref($text) eq "SCALAR")
{
die "text not a SCALAR ref: " . ref($text) . "";
}
return if (!defined($string));
if (@$stack)
{
$stack->[-1]->{'text'} .= $string;
return;
}
if (!defined($$text))
{
$$text = $string;
}
else
{
$$text .= $string;
}
}
sub close_stack_texi($$$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
return undef unless (@$stack or $state->{'raw'} or $state->{'macro'} or $state->{'macro_name'} or $state->{'ignored'});
if ($state->{'ignored'})
{
line_error (sprintf(__("Reached eof before matching \@end %s"), $state->{'ignored'}), $line_nr);
close_ignored($state, $stack);
}
if ($state->{'macro'})
{
my ($no_remaining, $result) = end_macro($state, '@end macro', "\n");
add_prev ($text, $stack, $result) if (defined($result));
line_error (sprintf(__("%cend macro not found"), ord('@')), $line_nr);
}
elsif ($state->{'macro_name'})
{
#line_warn ("closing $state->{'macro_name'} ($state->{'macro_depth'} braces missing)", $line_nr);
line_error (sprintf(__("\@%s missing close brace"), $state->{'macro_name'}), $line_nr);
while ($state->{'macro_name'})
{
close_macro_arg($state, '', $line_nr);
}
}
elsif ($state->{'verb'})
{
# warning in next pass
#line_warn ("closing \@verb", $line_nr);
$stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'};
delete $state->{'verb'};
}
elsif ($state->{'raw'})
{
line_error (sprintf(__("Expected \@end %s"), $state->{'raw'}), $line_nr);
my $style = pop @$stack;
add_prev ($text, $stack, $style->{'text'} . "\@end $state->{'raw'}");
delete $state->{'raw'};
}
my $stack_level = $#$stack + 1;
while ($stack_level--)
{
my $style = pop(@$stack);
# would be better in close_stack_structure
#line_warn ("closing \@-command $style->{'style'}", $line_nr) if ($style->{'style'} ne '');
close_style_texi($style, $text, $stack, $state, 1);
}
#$stack = [ ];
}
sub close_stack_structure($$$$;$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
my $close_only_item = shift;
$close_only_item = 0 if (!defined($close_only_item));
return undef unless (@$stack or $state->{'raw'});
#print STDERR "close_stack_structure ($close_only_item)\n";
#dump_stack ($text, $stack, $state);
my $stack_level = $#$stack + 1;
my $string = '';
if ($state->{'verb'})
{
$stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'};
#$string .= $state->{'verb'};
}
while ($stack_level--)
{
last if ($close_only_item and defined($stack->[-1]->{'format'}));
my $top_stack = pop @$stack;
if ($top_stack->{'format'})
{
my $format = $top_stack->{'format'};
if ($format eq 'index_item')
{
enter_table_index_entry($text, $stack, $state, $line_nr);
}
elsif (!defined($format_type{$format}) or ($format_type{$format} ne 'fake'))
{
end_format_structure($format_type{$format}, $text, $stack, $state, $line_nr, "\n");
}
}
elsif (defined($top_stack->{'style'}))
{
add_prev($text, $stack,
close_structure_command($top_stack, $state, 1, $line_nr));
}
}
#$stack = [ ];
}
# This is used in pass 2 and 3.
sub open_region($$)
{
my $command = shift;
my $state = shift;
if (!exists($state->{'region_lines'}))
{
# FIXME 'format' is badly choosen 'region_name' would be much better
$state->{'region_lines'}->{'format'} = $command;
$state->{'region_lines'}->{'number'} = 1;
$state->{'region_lines'}->{'kept_place'} = $state->{'place'};
$state->{'place'} = $no_element_associated_place;
$state->{'region'} = $command;
$state->{'multiple_pass'}++;
$state->{'region_pass'} = 1;
}
else
{
$state->{'region_lines'}->{'number'}++;
}
}
# close region like @insertcopying, titlepage...
# restore $state and delete the structure
# This is used in pass 2 and 3.
sub close_region($)
{
my $state = shift;
$state->{'place'} = $state->{'region_lines'}->{'kept_place'};
$state->{'multiple_pass'}--;
delete $state->{'region_lines'}->{'number'};
delete $state->{'region_lines'}->{'format'};
delete $state->{'region_lines'}->{'kept_place'};
delete $state->{'region_lines'};
delete $state->{'region'};
delete $state->{'region_pass'};
}
# close the stack, closing @-commands and formats left open.
# if a $format is given if $format is encountered the closing stops
sub close_stack($$$$;$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $line_nr = shift;
my $format = shift;
#print STDERR "sub_close_stack\n";
if (@$stack)
{
my $stack_level = $#$stack + 1;
#debugging
#my $print_format = 'NO FORMAT';
#$print_format = $format if ($format);
#msg_debug ("Close_stack: format $print_format", $line_nr);
while ($stack_level--)
{
if ($stack->[$stack_level]->{'format'})
{
my $stack_format = $stack->[$stack_level]->{'format'};
last if (defined($format) and $stack_format eq $format);
# We silently close paragraphs, preformatted sections and fake formats
if ($stack_format eq 'paragraph')
{
my $paragraph = pop @$stack;
add_prev ($text, $stack, do_paragraph($paragraph->{'text'}, $state, $stack));
}
elsif ($stack_format eq 'preformatted')
{
my $paragraph = pop @$stack;
add_prev ($text, $stack, do_preformatted($paragraph->{'text'}, $state, $stack));
}
else
{
if ($fake_format{$stack_format})
{
warn "# Closing a fake format `$stack_format'\n" if ($T2H_VERBOSE);
}
elsif ($stack_format ne 'center')
{ # we don't warn for center
line_error (sprintf(__("No matching `%cend %s'"), ord('@'), $stack_format), $line_nr);
#dump_stack ($text, $stack, $state);
}
if ($state->{'keep_texi'})
{
add_prev($text, $stack, "\@end $stack_format");
}
elsif (!$state->{'remove_texi'})
{
end_format($text, $stack, $state, $stack_format, $line_nr)
unless ($format_type{$stack_format} eq 'fake');
}
}
}
else
{
my $style = $stack->[$stack_level]->{'style'};
########################## debug
if (!defined($style))
{
print STDERR "Bug: style not defined, on stack\n";
dump_stack ($text, $stack, $state); # bug
}
########################## end debug
my $located_line_nr = $line_nr;
# use the beginning of the @-command for the error message
# line number if available.
$located_line_nr = $stack->[$stack_level]->{'line_nr'} if (defined($stack->[$stack_level]->{'line_nr'}));
line_error (sprintf(__("%c%s missing close brace"), ord('@'), $style), $located_line_nr);
my ($result, $command) = close_style_command($text, $stack, $state, $line_nr, '');
add_prev($text, $stack, $result) if (defined($result));
}
}
}
# This tries to avoid cases where the command_stack is not empty
# for a good reason, for example when doing a @def formatting the
# outside command_stack is preserved. Also when expanding for
# example @titleplage or @copying.
# FIXME sort out which cases it is.
return if ($format or (defined($state->{'multiple_pass'}) and $state->{'multiple_pass'} > 0) or $state->{'no_paragraph'});
# The pending style commands are cleared here; And are closed next.
delete $state->{'paragraph_macros'};
# go through the command_stack and warn for each opened style format
# and remove it. Those should be there because there is an opened style
# that was stopped by a paragraph
my @command_stack = @{$state->{'command_stack'}};
@{$state->{'command_stack'}} = ();
while (@command_stack)
{
my $latest_command = pop @command_stack;
if (defined($style_type{$latest_command}) and $style_type{$latest_command} ne 'special')
{
line_error (sprintf(__("%c%s missing close brace"), ord('@'), $latest_command), $line_nr);
}
else
{
unshift @{$state->{'command_stack'}}, $latest_command;
}
}
}
# given a stack and a list of formats, return true if the stack contains
# these formats, first on top
sub stack_order($@)
{
my $stack = shift;
my $stack_level = $#$stack + 1;
while (@_)
{
my $format = shift;
while ($stack_level--)
{
if ($stack->[$stack_level]->{'format'})
{
if ($stack->[$stack_level]->{'format'} eq $format)
{
$format = undef;
last;
}
else
{
return 0;
}
}
}
return 0 if ($format);
}
return 1;
}
sub top_format($)
{
my $stack = shift;
my $stack_level = $#$stack + 1;
while ($stack_level--)
{
if ($stack->[$stack_level]->{'format'} and !$fake_format{$stack->[$stack_level]->{'format'}})
{
return $stack->[$stack_level];
}
}
return undef;
}
sub close_paragraph($$$$;$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
my $reason = shift;
my $line_nr = shift;
my $no_preformatted_closing = shift;
#print STDERR "CLOSE_PARAGRAPH\n";
#dump_stack($text, $stack, $state);
# close until the first format,
# duplicate stack of styles not closed
my $new_stack;
my $stack_level = $#$stack + 1;
# In general close_paragraph is called because of a end of line, or
# a format is opened or closed, or there is a @tab or @item and other
# similar cases. In most cases there is a paragraph to be closed or
# there are no style opened since most @-commands cause paragraph
# opening and those that don't should not lead to a style opening.
#
# But in term or in @index (and maybe @node, @section, @ref), if
# there is a command opened it won't be closed, since it is in
# 'no_paragraph'. But @-commands that trigger close_paragraph should not
# be called when in those no_paragraph settings.
if ($state->{'no_paragraph'})
{ # This plays the role of "Multiline command %c%s used improperly"
line_error(sprintf(__("%s should not appear in %s"), $reason, $state->{'no_paragraph_stack'}->[-1]), $line_nr);
}
while ($stack_level--)
{
last if ($stack->[$stack_level]->{'format'});
my $style = $stack->[$stack_level]->{'style'};
# the !exists($style_type{$style}) condition catches the unknown
# @-commands: by default they are considered as style commands
if (!$state->{'no_paragraph'})
{
if (!exists($style_type{$style}) or $style_type{$style} eq 'style')
{
unshift @$new_stack, { 'style' => $style, 'text' => '', 'no_open' => 1, 'arg_nr' => 0 };
}
elsif (($style_type{$style} eq 'simple_style') or ($style_type{$style} eq 'accent'))
{
}
else
{
# it shouldn't be possible to have 'special' styles, like
# images, footnotes, xrefs, anchors, as
# close_paragraph shouldn't be called with keep_texi
# and when the arguments are expanded, there is a
# substitute_line or similar with a new stack.
msg_debug("BUG: special $style while closing paragraph", $line_nr);
}
}
# if not in a paragraph, the command is simply closed, and not recorded
# in new_stack.
my ($result, $command) = close_style_command($text, $stack, $state, $line_nr, '', (!$state->{'no_paragraph'}));
add_prev($text, $stack, $result) if (defined($result));
}
if (!$state->{'paragraph_context'} and !$state->{'preformatted'} and defined($new_stack) and scalar(@$new_stack))
{ # in that case the $new_stack isn't recorded in $state->{'paragraph_macros'}
# and therefore, it is lost
msg_debug ("closing paragraph, but not in paragraph/preformatted, and new_stack not empty", $line_nr);
dump_stack($text, $stack, $state);
}
my $top_stack = top_stack($stack);
if ($top_stack and !defined($top_stack->{'format'}))
{ #debug
msg_debug("Bug: no format on top stack", $line_nr);
dump_stack($text, $stack, $state);
}
if ($top_stack and ($top_stack->{'format'} eq 'paragraph'))
{
my $paragraph = pop @$stack;
add_prev($text, $stack, do_paragraph($paragraph->{'text'}, $state, $stack));
$state->{'paragraph_macros'} = $new_stack;
return 1;
}
elsif ($top_stack and ($top_stack->{'format'} eq 'preformatted') and !$no_preformatted_closing)
{
my $paragraph = pop @$stack;
add_prev($text, $stack, do_preformatted($paragraph->{'text'}, $state, $stack));
$state->{'paragraph_macros'} = $new_stack;
return 1;
}
return;
}
sub abort_empty_preformatted($$)
{
my $stack = shift;
my $state = shift;
if (@$stack and $stack->[-1]->{'format'}
and ($stack->[-1]->{'format'} eq 'preformatted')
and ($stack->[-1]->{'text'} !~ /\S/))
{
if (defined($Texi2HTML::Config::empty_preformatted))
{
return if (&$Texi2HTML::Config::empty_preformatted($stack->[-1]->{'text'}));
}
pop @$stack;
}
}
# for debugging
sub dump_stack($$$)
{
my $text = shift;
my $stack = shift;
my $state = shift;
if (defined($$text))
{
print STDERR "text: $$text\n";
}
else
{
print STDERR "text: UNDEF\n";
}
my $in_remove = 0;
my $in_simple_format = 0;
my $in_keep = 0;
$in_keep = 1 if ($state->{'keep_texi'});
if (!$in_keep)
{
$in_simple_format = 1 if ($state->{'simple_format'});
$in_remove = 1 if ($state->{'remove_texi'} and !$in_simple_format);
}
print STDERR "state[$state](k${in_keep}s${in_simple_format}r${in_remove}): ";
foreach my $key (keys(%$state))
{
my $value = 'UNDEF';
$value = $state->{$key} if (defined($state->{$key}));
print STDERR "$key: $value " if (!ref($value));
}
print STDERR "\n";
my $stack_level = $#$stack + 1;
while ($stack_level--)
{
print STDERR " $stack_level-> ";
foreach my $key (keys(%{$stack->[$stack_level]}))
{
my $value = 'UNDEF';
$value = $stack->[$stack_level]->{$key} if
(defined($stack->[$stack_level]->{$key}));
print STDERR "$key: $value ";
}
print STDERR "\n";
}
if (defined($state->{'command_stack'}))
{
print STDERR "command_stack: ";
foreach my $style (@{$state->{'command_stack'}})
{
print STDERR "($style) ";
}
print STDERR "\n";
}
if (defined($state->{'region_lines'}))
{
print STDERR "region_lines($state->{'region_lines'}->{'number'}): $state->{'region_lines'}->{'format'}\n";
}
if (defined($state->{'paragraph_macros'}))
{
print STDERR "paragraph_macros: ";
foreach my $style (@{$state->{'paragraph_macros'}})
{
print STDERR "($style->{'style'})";
}
print STDERR "\n";
}
if (defined($state->{'preformatted_stack'}))
{
print STDERR "preformatted_stack: ";
foreach my $preformatted_style (@{$state->{'preformatted_stack'}})
{
if ($preformatted_style eq '')
{
print STDERR ".";
next;
}
my $pre_style = '';
$pre_style = $preformatted_style->{'pre_style'} if (exists $preformatted_style->{'pre_style'});
my $class = '';
$class = $preformatted_style->{'class'} if (exists $preformatted_style->{'class'});
my $style = '';
$style = $preformatted_style->{'style'} if (exists $preformatted_style->{'style'});
print STDERR "($pre_style, $class,$style)";
}
print STDERR "\n";
}
if (defined($state->{'text_macro_stack'}) and @{$state->{'text_macro_stack'}})
{
print STDERR "text_macro_stack: (@{$state->{'text_macro_stack'}})\n";
}
}
# for debugging
sub print_elements($)
{
my $elements = shift;
foreach my $elem(@$elements)
{
if ($elem->{'node'})
{
print STDERR "node-> $elem ";
}
else
{
print STDERR "chap=> $elem ";
}
foreach my $key (keys(%$elem))
{
my $value = "UNDEF";
$value = $elem->{$key} if (defined($elem->{$key}));
print STDERR "$key: $value ";
}
print STDERR "\n";
}
}
# for debugging
sub context_string(;$$$)
{
my $state = shift;
my $line_nr = shift;
my $message = shift;
$state = $Texi2HTML::THISDOC{'state'}
if (!defined($state) and defined($Texi2HTML::THISDOC{'state'}));
$line_nr = $Texi2HTML::THISDOC{'line_nr'}
if (!defined($line_nr) and defined($Texi2HTML::THISDOC{'line_nr'}));
my $result = "Pass $global_pass";
my $line_info = ', no line information';
$line_info = ' ' .format_line_number($line_nr) if (defined($line_nr));
$result .= $line_info;
if (!defined($state))
{
$result .= ', no state information';
}
else
{
$result .= ", context $state->{'context'}" if defined($state->{'context'});
my $expand = '';
if ($state->{'keep_texi'})
{
$expand .= ' no expansion';
}
if ($state->{'remove_texi'})
{
$expand .= ' raw';
}
if ($state->{'preformatted'})
{
$expand .= ' preformatted';
}
if ($state->{'code_style'})
{
$expand .= " 'code'";
}
if ($state->{'simple_format'})
{
$expand .= ' simple';
}
$expand = ' normal' if (!$expand);
$result .= ',' . $expand;
if ($state->{'expansion'})
{
$result .= ", \@$state->{'expansion'}";
}
if ($state->{'region'})
{
$result .= ", region $state->{'region'}";
}
if ($state->{'outside_document'})
{
$result .= "; out";
}
if ($state->{'inside_document'})
{
$result .= "; in";
}
if ($state->{'multiple_pass'})
{
$result .= "; multiple $state->{'multiple_pass'}";
}
if ($state->{'new_state'})
{
$result .= "; new";
}
if ($state->{'duplicated'})
{
$result .= "; duplicated";
}
}
$result .= "(in @{$Texi2HTML::THISDOC{'command_stack'}})"
if (defined ($Texi2HTML::THISDOC{'command_stack'}) and @{$Texi2HTML::THISDOC{'command_stack'}});
$result .= ' ' .$message if ($message);
return $result;
}
my @states_stack = ();
sub push_state($)
{
my $new_state = shift;
push @states_stack, $new_state;
$Texi2HTML::THISDOC{'state'} = $new_state;
}
sub pop_state()
{
pop @states_stack;
if (@states_stack)
{
$Texi2HTML::THISDOC{'state'} = $states_stack[-1];
}
else
{
$Texi2HTML::THISDOC{'state'} = undef;
}
}
sub substitute_line($$;$$)
{
my $line = shift;
my $context_string = shift;
my $state = shift;
my $line_nr = shift;
$state = {} if (!defined($state));
$state->{'no_paragraph'} = 1;
if (($state->{'inside_document'} or $state->{'outside_document'}) and (!$state->{'duplicated'} and !$state->{'new_state'}))
{
msg_debug("substitute_line with main state in: ".var_to_str($context_string), $line_nr);
}
push @{$state->{'no_paragraph_stack'}}, $context_string;
# this is usefull when called from &$I, and also for image files
return simple_format($state, [ $line_nr ], $context_string, $line) if ($state->{'simple_format'});
return substitute_text($state, [ $line_nr ], $context_string, $line);
}
sub substitute_text($$$@)
{
my $state = shift;
my $line_nrs = shift;
my $context = shift;
my @stack = ();
my $text = '';
my $result = '';
my $line_nr;
if ($state->{'structure'})
{
initialise_state_structure($state);
}
elsif ($state->{'texi'})
{ # only in arg_expansion
initialise_state_texi($state);
msg_bug("substitute_text, 'texi' true but not 'arg_expansion'") if (!$state->{'arg_expansion'});
}
else
{
#print STDERR "FILL_STATE substitute_text ($state->{'preformatted'}): @_\n";
if (($state->{'inside_document'} or $state->{'outside_document'}) and (!$state->{'duplicated'} and !$state->{'new_state'}))
{
msg_debug("substitute_text with main state in: ".var_to_str($context), $line_nr);
}
fill_state($state);
$state->{'context'} = $context;
}
$state->{'spool'} = [];
#print STDERR "SUBST_TEXT ".var_to_str($context)."\n";
push_state($state);
my $line_nrs_kept = $Texi2HTML::THISDOC{'line_nr'};
$Texi2HTML::THISDOC{'line_nr'} = undef;
while (@_ or @{$state->{'spool'}} or $state->{'in_deff_line'})
{
my $line;
if ($line_nrs and @{$line_nrs})
{
$line_nr = shift @{$line_nrs};
$Texi2HTML::THISDOC{'line_nr'} = $line_nr;
}
if (@{$state->{'spool'}})
{
$line = shift @{$state->{'spool'}};
}
else
{
$line = shift @_;
}
# msg_debug ("SUBSTITUTE_TEXT $line", $line_nr) if (defined($line_nr));
if ($state->{'in_deff_line'})
{
if (defined($line))
{
$line = $state->{'in_deff_line'} . $line;
}
else
{
$line = $state->{'in_deff_line'};
}
delete $state->{'in_deff_line'};
}
else
{
next unless (defined($line));
}
#{ my $p_line = $line; chomp($p_line); print STDERR "SUBST_TEXT $p_line\n"; }
if ($state->{'structure'})
{
scan_structure ($line, \$text, \@stack, $state);
}
elsif ($state->{'texi'})
{
scan_texi ($line, \$text, \@stack, $state);
}
else
{
set_line_nr_in_stack($state, \@stack, $line_nr);
scan_line($line, \$text, \@stack, $state, $line_nr);
}
next if (@stack);
$result .= $text;
$text = '';
}
if ($line_nrs and @{$line_nrs})
{
$line_nr = shift @{$line_nrs};
$Texi2HTML::THISDOC{'line_nr'} = $line_nr;
}
# close stack in substitute_text
if ($state->{'texi'})
{
close_stack_texi(\$text, \@stack, $state, $line_nr);
}
elsif ($state->{'structure'})
{
close_stack_structure(\$text, \@stack, $state, $line_nr);
}
else
{
close_stack(\$text, \@stack, $state, $line_nr);
}
#print STDERR "SUBST_TEXT end\n";
pop_state();
$Texi2HTML::THISDOC{'line_nr'} = $line_nrs_kept;
return $result . $text;
}
sub print_lines($;$)
{
my ($fh, $lines) = @_;
$lines = $Texi2HTML::THIS_SECTION unless $lines;
my @cnt;
my $cnt;
for my $line (@$lines)
{
print $fh $line;
if (defined($Texi2HTML::Config::WORDS_IN_PAGE) and (Texi2HTML::Config::get_conf('SPLIT') eq 'node'))
{
@cnt = split(/\W*\s+\W*/, $line);
$cnt += scalar(@cnt);
}
}
return $cnt;
}
sub do_index_entry_label($$$$;$)
{
my $command = shift;
my $state = shift;
my $line_nr = shift;
my $entry_texi = shift;
# this is only needed for definitions since the whole line is parsed to
# reuse get_deff_index.
my $line = shift;
my $prefix = index_entry_command_prefix($command, $line, $line_nr);
my $index_name = $index_prefix_to_name{$prefix};
msg_debug("do_index_entry_label($command): Undefined entry_texi", $line_nr)
if (!defined($entry_texi));
$entry_texi = trim_comment_spaces($entry_texi, "index label in \@$command", $line_nr);
# index entries are not entered in special regions
my $region = 'document';
$region = $state->{'region'} if (defined($state->{'region'}));
my $entry;
# Can be within a @caption expanded within a listoffloat. In that
# case the 2 conditions on state are not set.
if (defined($state->{'region'}) or !defined($state->{'expansion'}))
{
# index entry on a line that is not searched for index entries, like
# a @def* line
if (!defined($Texi2HTML::THISDOC{'index_entries'}->{$region}) or !defined($Texi2HTML::THISDOC{'index_entries'}->{$region}->{$entry_texi}))
{
line_warn(sprintf(__("Index entry not caught: `%s' in %s"), $entry_texi, $region), $line_nr);
}
else
{
my $entry_ref = $Texi2HTML::THISDOC{'index_entries'}->{$region}->{$entry_texi};
# ============================ debug
if (!defined($entry_ref->{'entries'}))
{
msg_debug("BUG, not defined: {'index_entries'}->{$region}->{$entry_texi}->{'entries'}", $line_nr);
}
# ============================ end debug
if (scalar(@{$entry_ref->{'entries'}}) > 1)
{
if (!defined($entry_ref->{'index'}))
{
$entry_ref->{'index'} = 0;
}
$entry = $entry_ref->{'entries'}->[$entry_ref->{'index'}];
$entry_ref->{'index'}++;
}
else
{
$entry = $entry_ref->{'entries'}->[0];
}
$entry->{'seen_in_output'} = 1 if (!$state->{'outside_document'});
############################################# debug
# verify that the old way of getting index entries (in an array) is
# synchronized with the document
if (!$state->{'region'})
{
my $entry_from_array = shift @index_labels;
if ($entry_from_array ne $entry)
{
msg_debug ("entry `$entry->{'texi'}' ne entry_from_array `$entry_from_array->{'texi'}'", $line_nr);
}
if (!defined($entry_from_array))
{
mesg_debug ("Not enough index entries !", $line_nr);
}
}
############################################# end debug
}
}
if (!defined($entry))
{
# this can happen for listoffloats and caption without being a user
# error. Well, in fact, it could be argued that it is indeed a user
# error, putting an index entry in a snippet that can be expanded
# more than once and is not strictly associated with a node/section.
#print STDERR "Entry for index $index_name not gathered in usual places ($region)\n";
$entry = {
'command' => $command,
'texi' => $entry_texi,
'entry' => $entry_texi,
'prefix' => $prefix,
'index_name' => $index_name,
};
$entry->{'key'} = sorted_line($entry_texi);
$entry->{'entry'} = '@code{'.$entry->{'entry'}.'}'
if (defined($index_name) and
defined($index_names{$index_name}->{'prefixes'}) and
$index_names{$index_name}->{'prefixes'}->{$prefix}
and $entry->{'key'} =~ /\S/);
}
###################################### debug
else
{
if ($entry->{'prefix'} ne $prefix)
{
msg_debug ("prefix in entry $entry->{'prefix'} ne $prefix from $command", $line_nr);
}
}
if ($command ne $entry->{'command'})
{
# happened with bad texinfo with a line like
# @deffn func aaaa args @defvr c--ategory d--efvr_name
# now this case is caught above by "Index entry not caught:
msg_debug ("($region) Waiting for index cmd \@$entry->{'command'} got \@$command", $line_nr);
}
if ($entry->{'texi'} ne $entry_texi)
{
msg_debug ("Waiting for index `$entry->{'texi'}', got `$entry_texi'", $line_nr);
}
my $id = 'no id';
$id = $entry->{'id'} if (defined($entry->{'id'}));
print STDERR "(index($index_name) $command) [$entry->{'entry'}] $id\n"
if ($T2H_DEBUG & $DEBUG_INDEX);
###################################### end debug
#return (undef,'','') if ($state->{'region'});
if ($entry->{'key'} =~ /^\s*$/)
{
line_warn(sprintf(__("Empty index entry for \@%s"), $command), $entry->{'line_nr'});
}
my $formatted_entry = substitute_line($entry->{'entry'}, "\@$command", prepare_state_multiple_pass("${command}_index", $state),$entry->{'line_nr'});
my $formatted_entry_reference = substitute_line($entry->{'texi'}, "\@$command", prepare_state_multiple_pass("${command}_index", $state));
return ($entry, $formatted_entry, &$Texi2HTML::Config::index_entry_label ($entry->{'id'}, $state->{'preformatted'}, $formatted_entry,
$index_name,
$command, $entry->{'texi'}, $formatted_entry_reference,
(!$entry->{'seen_in_output'} and defined($entry->{'region'})),$entry));
}
# decompose a decimal number on a given base. The algorithm looks like
# the division with growing powers (division suivant les puissances
# croissantes) ?
sub decompose($$)
{
my $number = shift;
my $base = shift;
my @result = ();
return (0) if ($number == 0);
my $power = 1;
my $remaining = $number;
while ($remaining)
{
my $factor = $remaining % ($base ** $power);
$remaining -= $factor;
push (@result, $factor / ($base ** ($power - 1)));
$power++;
}
return @result;
}
# process a css file
sub process_css_file ($$)
{
my $fh =shift;
my $file = shift;
my $in_rules = 0;
my $in_comment = 0;
my $in_import = 0;
my $in_string = 0;
my $rules = [];
my $imports = [];
my $line_nr = 0;
while (my $line = <$fh>)
{
$line_nr++;
#print STDERR "Line: $line";
if ($in_rules)
{
push @$rules, $line;
next;
}
my $text = '';
while (1)
{
#sleep 1;
#print STDERR "${text}!in_comment $in_comment in_rules $in_rules in_import $in_import in_string $in_string: $line";
if ($in_comment)
{
if ($line =~ s/^(.*?\*\/)//)
{
$text .= $1;
$in_comment = 0;
}
else
{
push @$imports, $text . $line;
last;
}
}
elsif (!$in_string and $line =~ s/^\///)
{ # what do '\' do here ?
if ($line =~ s/^\*//)
{
$text .= '/*';
$in_comment = 1;
}
else
{
push (@$imports, $text. "\n") if ($text ne '');
push (@$rules, '/' . $line);
$in_rules = 1;
last;
}
}
elsif (!$in_string and $in_import and $line =~ s/^([\"\'])//)
{ # strings outside of import start rules
$text .= "$1";
$in_string = quotemeta("$1");
}
elsif ($in_string and $line =~ s/^(\\$in_string)//)
{
$text .= $1;
}
elsif ($in_string and $line =~ s/^($in_string)//)
{
$text .= $1;
$in_string = 0;
}
elsif ((! $in_string and !$in_import) and ($line =~ s/^([\\]?\@import)$// or $line =~ s/^([\\]?\@import\s+)//))
{
$text .= $1;
$in_import = 1;
}
elsif (!$in_string and $in_import and $line =~ s/^\;//)
{
$text .= ';';
$in_import = 0;
}
elsif (($in_import or $in_string) and $line =~ s/^(.)//)
{
$text .= $1;
}
elsif (!$in_import and $line =~ s/^([^\s])//)
{
push (@$imports, $text. "\n") if ($text ne '');
push (@$rules, $1 . $line);
$in_rules = 1;
last;
}
elsif ($line =~ s/^(\s)//)
{
$text .= $1;
}
elsif ($line eq '')
{
push (@$imports, $text);
last;
}
}
}
#file_line_warn (__("string not closed in css file"), $file) if ($in_string);
#file_line_warn (__("--css-file ended in comment"), $file) if ($in_comment);
#file_line_warn (__("\@import not finished in css file"), $file) if ($in_import and !$in_comment and !$in_string);
warn (sprintf(__("%s:%d: string not closed in css file"), $file, $line_nr)) if ($in_string);
warn (sprintf(__("%s:%d: --css-file ended in comment"), $file, $line_nr)) if ($in_comment);
warn (sprintf(__("%s:%d \@import not finished in css file"), $file, $line_nr)) if ($in_import and !$in_comment and !$in_string);
return ($imports, $rules);
}
sub collect_all_css_files()
{
my @css_import_lines;
my @css_rule_lines;
# process css files
return ([],[]) if ($Texi2HTML::Config::NO_CSS);
foreach my $file (@Texi2HTML::Config::CSS_FILES)
{
my $css_file_fh;
my $css_file;
if ($file eq '-')
{
$css_file_fh = \*STDIN;
$css_file = '-';
}
else
{
$css_file = locate_include_file ($file);
unless (defined($css_file))
{
document_warn ("css file $file not found");
next;
}
unless (open (CSSFILE, "$css_file"))
{
warn (sprintf(__("%s: could not open --css-file %s: %s\n"), $real_command_name, $css_file, $!));
next;
}
$css_file_fh = \*CSSFILE;
}
my ($import_lines, $rules_lines);
($import_lines, $rules_lines) = process_css_file ($css_file_fh, $css_file);
push @css_import_lines, @$import_lines;
push @css_rule_lines, @$rules_lines;
}
if ($T2H_DEBUG & $DEBUG_USER)
{
if (@css_import_lines)
{
print STDERR "# css import lines\n";
foreach my $line (@css_import_lines)
{
print STDERR "$line";
}
}
if (@css_rule_lines)
{
print STDERR "# css rule lines\n";
foreach my $line (@css_rule_lines)
{
print STDERR "$line";
}
}
}
return (\@css_import_lines, \@css_rule_lines);
}
sub init_with_file_name($)
{
my $base_file = shift;
set_docu_names($base_file, $Texi2HTML::THISDOC{'input_file_number'});
foreach my $handler(@Texi2HTML::Config::command_handler_init)
{
&$handler;
}
}
#######################################################################
#
# Main processing, process all the files given on the command line
#
#######################################################################
my @input_files = @ARGV;
# use STDIN if not a tty, like makeinfo does
@input_files = ('-') if (!scalar(@input_files) and !-t STDIN);
die sprintf(__("%s: missing file argument.\n"), $real_command_name) .$T2H_FAILURE_TEXT unless (scalar(@input_files) >= 1);
my $file_number = 0;
# main processing
while(@input_files)
{
my $input_file_arg = shift(@input_files);
%Texi2HTML::THISDOC = ();
$Texi2HTML::THIS_ELEMENT = undef;
# Otherwise Texi2HTML::THISDOC wouldn't be set in case there was no call
# to set_conf.
foreach my $global_conf_vars('SPLIT', 'SPLIT_SIZE')
{
$Texi2HTML::THISDOC{$global_conf_vars} = Texi2HTML::Config::get_conf($global_conf_vars);
}
foreach my $global_key (keys(%Texi2HTML::GLOBAL))
{
$Texi2HTML::THISDOC{$global_key} = $Texi2HTML::GLOBAL{$global_key};
}
my $input_file_name;
# try to concatenate with different suffixes. The last suffix is ''
# such that the plain file name is checked.
foreach my $suffix (@Texi2HTML::Config::INPUT_FILE_SUFFIXES)
{
$input_file_name = $input_file_arg.$suffix if (-e $input_file_arg.$suffix);
}
# in case no file was found, still set the file name
$input_file_name = $input_file_arg if (!defined($input_file_name));
$Texi2HTML::THISDOC{'input_file_name'} = $input_file_name;
$Texi2HTML::THISDOC{'input_file_number'} = $file_number;
$Texi2HTML::THISDOC{'input_directory'} = '.';
if ($input_file_name =~ /(.*\/)/)
{
$Texi2HTML::THISDOC{'input_directory'} = $1;
}
my $input_file_base = $input_file_name;
$input_file_base =~ s/\.te?x(i|info)?$//;
@{$Texi2HTML::TOC_LINES} = (); # table of contents
@{$Texi2HTML::OVERVIEW} = (); # short table of contents
# this could be done here, but perl warns that
# `"Texi2HTML::TITLEPAGE" used only once' and it is reset in
# &$Texi2HTML::Config::titlepage anyway
# $Texi2HTML::TITLEPAGE = undef;
@{$Texi2HTML::THIS_SECTION} = ();
# the reference to these hashes may be used before this point (for example
# see makeinfo.init), so they should be kept as is and the values undef
# but the key should not be deleted because the ref is on the key.
foreach my $hash (\%Texi2HTML::HREF, \%Texi2HTML::NAME, \%Texi2HTML::NODE,
\%Texi2HTML::NO_TEXI, \%Texi2HTML::SIMPLE_TEXT)
{
foreach my $key (keys(%$hash))
{
$hash->{$key} = undef;
}
}
%region_lines = ();
%region_line_nrs = ();
foreach my $region (@special_regions)
{
$region_lines{$region} = [];
$region_line_nrs{$region} = [];
}
@created_directories = ();
$docu_dir = undef; # directory of the document
$docu_name = undef; # basename of the document
$docu_rdir = undef; # directory for the output
$docu_toc = undef; # document's table of contents
$docu_stoc = undef; # document's short toc
$docu_foot = undef; # document's footnotes
$docu_about = undef; # about this document
$docu_top = undef; # document top
$docu_doc = undef; # document (or document top of split)
$docu_frame = undef; # main frame file
$docu_toc_frame = undef; # toc frame file
$path_to_working_dir = undef; # relative path leading to the working
# directory from the document directory
$docu_doc_file = undef;
$docu_toc_file = undef;
$docu_stoc_file = undef;
$docu_foot_file = undef;
$docu_about_file = undef;
$docu_top_file = undef;
$docu_frame_file = undef;
$docu_toc_frame_file = undef;
$global_pass = '0';
# done before any processing, this is not necessarily
# the case with command_handler_init
foreach my $handler(@Texi2HTML::Config::command_handler_setup)
{
&$handler;
}
if (!$Texi2HTML::Config::USE_SETFILENAME)
{
init_with_file_name ($input_file_base);
}
# FIXME when to do that?
($Texi2HTML::THISDOC{'css_import_lines'}, $Texi2HTML::THISDOC{'css_rule_lines'})
= collect_all_css_files();
texinfo_initialization(0);
print STDERR "# reading from $input_file_name\n" if $T2H_VERBOSE;
$macros = undef; # macros. reference on a hash
%info_enclose = (); # macros defined with definfoenclose
@floats = (); # floats list
%floats = (); # floats by style
%nodes = (); # nodes hash. The key is the texi node name
%cross_reference_nodes = (); # normalized node names arrays
$global_pass = '1';
my ($texi_lines, $first_texi_lines, $lines_numbers)
= pass_texi($input_file_name);
if ($Texi2HTML::Config::USE_SETFILENAME and !defined($docu_name))
{
init_with_file_name ($input_file_base);
}
$global_pass = '1 expand macros';
Texi2HTML::Config::t2h_default_set_out_encoding();
dump_texi($texi_lines, 'texi', $lines_numbers) if ($T2H_DEBUG & $DEBUG_TEXI);
if (defined($Texi2HTML::Config::MACRO_EXPAND))
{
my @texi_lines = (@$first_texi_lines, @$texi_lines);
dump_texi(\@texi_lines, '', undef, $Texi2HTML::Config::MACRO_EXPAND);
}
%content_element = ();
foreach my $command('contents', 'shortcontents')
{
$all_content_elements{$command} = [];
foreach my $key (keys(%{$reference_content_element{$command}}))
{
$content_element{$command}->{$key} = $reference_content_element{$command}->{$key};
}
}
%sec2level = %reference_sec2level;
$element_before_anything =
{
'before_anything' => 1,
'place' => [],
'texi' => 'VIRTUAL ELEMENT BEFORE ANYTHING',
};
$footnote_element =
{
'id' => $Texi2HTML::Config::misc_pages_targets{'Footnotes'},
'target' => $Texi2HTML::Config::misc_pages_targets{'Footnotes'},
'file' => $docu_foot,
'footnote' => 1,
'place' => [],
};
%region_initial_state = ();
foreach my $region (@special_regions)
{
$region_initial_state{$region} = { };
}
# to determine if a command has to be processed the following are interesting
# (and can be faked):
# 'region': the name of the special region we are processing
# 'region_pass': the number of passes in that specific region (both outside
# of the main document, and in the main document)
# 'multiple_pass': the number of pass in the formatting of the region in the
# main document
# It is set to 0 the first time the region is seen, before
# it will be -1, for example when doing the
# copying_comment, the titlepage... before starting with
# the document itself.
# 'outside_document': set to 1 if outside of the main document formatting
foreach my $key (keys(%region_initial_state))
{
$region_initial_state{$key}->{'multiple_pass'} = -1;
$region_initial_state{$key}->{'region_pass'} = 0;
$region_initial_state{$key}->{'num_head'} = 0;
$region_initial_state{$key}->{'foot_num'} = 0;
$region_initial_state{$key}->{'relative_foot_num'} = 0;
$region_initial_state{$key}->{'region'} = $key;
}
@opened_files = (); # all the files opened by the program to remove
# them if FORCE is not set and an error occured
texinfo_initialization(1);
$no_element_associated_place = [];
$document_idx_num = 0;
$document_sec_num = 0;
$document_head_num = 0;
$document_anchor_num = 0;
@nodes_list = (); # nodes in document reading order
# each member is a reference on a hash
@sections_list = (); # sections in reading order
# each member is a reference on a hash
@all_elements = (); # sectioning elements (nodes and sections)
# in reading order. Each member is a reference
# on a hash which also appears in %nodes,
# @sections_list @nodes_list, @elements_list
@elements_list = (); # all the resulting elements in document order
%sections = (); # sections hash. The key is the section number
%headings = (); # headings hash. The key is the heading number
$section_top = undef; # @top section
$element_top = undef; # Top element
$node_top = undef; # Top node
$node_first = undef; # First node
$element_index = undef; # element with first index
$element_chapter_index = undef; # chapter with first index
$element_first = undef; # first element
$element_last = undef; # last element
%special_commands = (); # hash for the commands specially handled
# by the user
@index_labels = (); # array corresponding with @?index commands
# constructed during pass_texi, used to
# put labels in pass_text
# right now it is only used for debugging
# purposes.
@unknown_index_index_entries = (); # holds index entries not associated
# with any index
%{$Texi2HTML::THISDOC{'index_entries_array'}} = (); # holds the index
# entries in order of appearance in the document
# for each index name.
%{$Texi2HTML::THISDOC{'index_letters_array'}} = (); # holds the sorted
# index letters for each index name. The sorted
# letters hold the sorted index entries
$global_pass = 2;
my ($doc_lines, $doc_numbers) = pass_structure($texi_lines, $lines_numbers);
foreach my $handler(@Texi2HTML::Config::command_handler_names)
{
&$handler;
}
if ($T2H_DEBUG & $DEBUG_TEXI)
{
dump_texi($doc_lines, 'first', $doc_numbers);
if (defined($Texi2HTML::Config::MACRO_EXPAND and $Texi2HTML::Config::DUMP_TEXI))
{
my @all_doc_lines = (@$first_texi_lines, @$doc_lines);
#push (@$doc_lines, "\@bye\n");
dump_texi(\@all_doc_lines, '', undef, $Texi2HTML::Config::MACRO_EXPAND . ".first");
}
}
next if ($Texi2HTML::Config::DUMP_TEXI);
foreach my $style (keys(%special_commands))
{
$special_commands{$style}->{'max'} = $special_commands{$style}->{'count'};
}
%files = (); # keys are files. This is used to avoid reusing an already
# used file name
%printed_indices = (); # value is true for an index name not empty and
# printed
$global_pass = '2 prepare indices';
prepare_indices();
$global_pass = '2 element directions';
rearrange_elements();
do_names();
$global_pass = '2-3 user functions';
#Texi2HTML::LaTeX2HTML::latex2html();
foreach my $handler(@Texi2HTML::Config::command_handler_process)
{
&$handler;
}
# maybe do that later to have more elements ready?
&$Texi2HTML::Config::toc_body(\@sections_list);
&$Texi2HTML::Config::css_lines($Texi2HTML::THISDOC{'css_import_lines'},
$Texi2HTML::THISDOC{'css_rule_lines'});
$global_head_num = 0; # heading index. it is global for the main doc,
# and taken from the state if in multiple_pass.
$global_foot_num = 0;
$global_relative_foot_num = 0;
@foot_lines = (); # footnotes
$copying_comment = ''; # comment constructed from text between
# @copying and @end copying with licence
%acronyms_like = (); # acronyms or similar commands associated texts
# the key are the commands, the values are
# hash references associating shorthands to
# texts.
@states_stack = ();
pass_text($doc_lines, $doc_numbers);
print STDERR "BUG: " . scalar(@index_labels) . " index entries pending\n"
if (scalar(@index_labels));
foreach my $special (keys(%special_commands))
{
my $count = $special_commands{$special}->{'count'};
if (($count != 0) and $T2H_VERBOSE)
{
document_warn ("$count special \@$special were not processed.\n");
}
}
if ($Texi2HTML::Config::IDX_SUMMARY)
{
foreach my $entry (keys(%index_names))
{
do_index_summary_file($entry, $docu_name);
}
}
if (defined($Texi2HTML::Config::INTERNAL_LINKS))
{
my $FH = open_out($Texi2HTML::Config::INTERNAL_LINKS);
&$Texi2HTML::Config::internal_links($FH, \@elements_list, $Texi2HTML::THISDOC{'index_letters_array'});
close ($FH);
}
do_node_files() if ($Texi2HTML::Config::NODE_FILES);
#l2h_FinishFromHtml() if ($Texi2HTML::Config::L2H);
#l2h_Finish() if($Texi2HTML::Config::L2H);
#Texi2HTML::LaTeX2HTML::finish();
foreach my $handler(@Texi2HTML::Config::command_handler_finish)
{
&$handler;
}
&$Texi2HTML::Config::finish_out();
print STDERR "# File ($file_number) $input_file_name processed\n" if $T2H_VERBOSE;
$file_number++;
}
print STDERR "# that's all folks\n" if $T2H_VERBOSE;
exit(0);
##############################################################################
# These next few lines are legal in both Perl and nroff.
.00 ; # finish .ig
'di \" finish diversion--previous line must be blank
.nr nl 0-1 \" fake up transition to first page again
.nr % 0 \" start at page 1
'; __END__ ############# From here on it's a standard manual page ############
.so /usr/local/man/man1/texi2html.1
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to texi2html CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / asir-doc