* build-aux/texi2html: Moved to here from libtextstyle/build-aux/texi2html.
* libtextstyle/autogen.sh: Copy texi2html.
* gettext-runtime/libasprintf/texi2html: Remove file.
* gettext-runtime/libasprintf/Makefile.am (TEXI2HTML): Use build-aux/texi2html.
(EXTRA_DIST): Remove texi2html.
* gettext-tools/doc/texi2html: Remove file.
* gettext-tools/doc/Makefile.am (TEXI2HTML): Use build-aux/texi2html.
(EXTRA_DIST): Remove texi2html.
* Makefile.am (EXTRA_DIST): Add build-aux/texi2html.
(distcheck-hook): Update.
EXTRA_DIST = \
$(changelog_etc) DEPENDENCIES PACKAGING HACKING ChangeLog.0 autogen.sh \
- build-aux/ac-help.sed build-aux/git-version-gen \
+ build-aux/ac-help.sed build-aux/git-version-gen build-aux/texi2html \
m4/fixautomake.m4 m4/woe32-dll.m4 \
m4/libtool.m4
test "`sed 1,16d $(srcdir)/gettext-runtime/intl/xsize.h | md5sum`" = "`sed 1,16d $(srcdir)/gettext-tools/gnulib-lib/xsize.h | md5sum`"
cmp -s $(srcdir)/gettext-runtime/man/help2man $(srcdir)/gettext-tools/man/help2man
cmp -s $(srcdir)/gettext-runtime/man/x-to-1.in $(srcdir)/gettext-tools/man/x-to-1.in
- cmp -s $(srcdir)/gettext-runtime/libasprintf/texi2html $(srcdir)/gettext-tools/doc/texi2html
cmp -s $(srcdir)/gettext-tools/examples/hello-java-awt/m4/TestAWT.java $(srcdir)/gettext-tools/examples/hello-java-swing/m4/TestAWT.java
cmp -s $(srcdir)/gettext-tools/examples/hello-java-awt/m4/TestAWT.class $(srcdir)/gettext-tools/examples/hello-java-swing/m4/TestAWT.class
test "`sed 1,15d $(srcdir)/gnulib-local/lib/alloca.in.h | md5sum`" = "`sed 1,15d $(srcdir)/gettext-runtime/libasprintf/alloca.in.h | md5sum`"
# Documentation in HTML format.
-TEXI2HTML = @PERL@ $(srcdir)/texi2html
+TEXI2HTML = @PERL@ $(top_srcdir)/../../build-aux/texi2html
HTMLS = autosprintf_all.html
uninstall-html:
$(RM) $(DESTDIR)$(htmldir)/autosprintf.html
-EXTRA_DIST += texi2html autosprintf_all.html
+EXTRA_DIST += autosprintf_all.html
# Windows support.
EXTRA_DIST += \
iso-639.sed iso-639-2.sed iso-3166.sed \
- ISO_639 ISO_639-2 ISO_3166 ISO_3166_de \
- texi2html
+ ISO_639 ISO_639-2 ISO_3166 ISO_3166_de
iso-639.texi: ISO_639 iso-639.sed
$(SED) -f $(srcdir)/iso-639.sed $(srcdir)/ISO_639 > iso-639.tmp
# Documentation in HTML format.
-TEXI2HTML = @PERL@ $(srcdir)/texi2html
+TEXI2HTML = @PERL@ $(top_srcdir)/../build-aux/texi2html
html-monolithic: gettext.html
html-split: gettext_toc.html
+++ /dev/null
-#! /usr/bin/perl -- # perl
-'di ';
-'ig 00 ';
-#+##############################################################################
-#
-# texi2html: Program to transform Texinfo documents to HTML
-#
-# Copyright (C) 1999-2005 Patrice Dumas <dumas@centre-cired.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
-#
-#-##############################################################################
-# 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 a relative path back to the current working directory
-use File::Spec;
-
-#
-# 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;
-
-#++##########################################################################
-#
-# NOTE FOR DEBUGGING THIS SCRIPT:
-# You can run 'perl texi2html.pl' directly, provided you have
-# the environment variable T2H_HOME set to the directory containing
-# the texi2html.init, T2h_i18n.pm, translations.pl, l2h.init,
-# T2h_l2h.pm files
-#
-#--##########################################################################
-
-# CVS version:
-# $Id: texi2html.pl,v 1.182 2007/05/07 22:56:02 pertusus Exp $
-
-# Homepage:
-my $T2H_HOMEPAGE = "https://www.nongnu.org/texi2html/";
-
-# Authors (appears in comments):
-my $T2H_AUTHORS = <<EOT;
-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 = '1.78a';
-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 $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 '@' . 'datadir@')
-{
- $pkgdatadir = eval '"${prefix}/share/texi2html"';
- $datadir = eval '"${prefix}/share"';
-}
-else
-{
- $pkgdatadir = "/usr/local/share/texi2html";
- $datadir = "/usr/local/share";
-}
-
-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 texi2html init files
-my @texi2html_config_dirs = ('./');
-push @texi2html_config_dirs, "$ENV{'HOME'}/.texi2html/" if (defined($ENV{'HOME'}));
-push @texi2html_config_dirs, "$sysconfdir/texi2html/" if (defined($sysconfdir));
-push @texi2html_config_dirs, "$pkgdatadir" if (defined($pkgdatadir));
-
-# 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));
-
-
-#+++########################################################################
-# #
-# 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 $ERROR = "***"; # prefix for errors
-my $WARN = "**"; # prefix for warnings
-
-my $VARRE = '[\w\-]+'; # RE for a variable name
-my $NODERE = '[^:]+'; # RE for node names
-
-my $MAX_LEVEL = 4;
-my $MIN_LEVEL = 1;
-
-#+++###########################################################################
-# #
-# 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;
-
-
-sub load($)
-{
- my $file = shift;
- eval { require($file) ;};
- if ($@ ne '')
- {
- print STDERR "error loading $file: $@\n";
- return 0;
- }
- return 1;
-}
-
-# customization options variables
-
-use vars qw(
-$DEBUG
-$PREFIX
-$VERBOSE
-$SUBDIR
-$IDX_SUMMARY
-$SPLIT
-$SHORT_REF
-@EXPAND
-$EXPAND
-$TOP
-$DOCTYPE
-$FRAMESET_DOCTYPE
-$CHECK
-$TEST
-$DUMP_TEXI
-$MACRO_EXPAND
-$USE_GLOSSARY
-$INVISIBLE_MARK
-$USE_ISO
-$TOP_FILE
-$TOC_FILE
-$FRAMES
-$SHOW_MENU
-$NUMBER_SECTIONS
-$USE_NODES
-$USE_UNICODE
-$USE_UNIDECODE
-$TRANSLITERATE_NODE
-$NODE_FILES
-$NODE_NAME_IN_MENU
-$AVOID_MENU_REDUNDANCY
-$SECTION_NAVIGATION
-$SHORTEXTN
-$EXTENSION
-$OUT
-$NOVALIDATE
-$DEF_TABLE
-$LANG
-$DO_CONTENTS
-$DO_SCONTENTS
-$SEPARATED_FOOTNOTES
-$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
-$INLINE_CONTENTS
-);
-
-# customization variables
-# ENCODING is deprecated
-use vars qw(
-$ENCODING
-
-$ENCODING_NAME
-$DOCUMENT_ENCODING
-$OUT_ENCODING
-$IN_ENCODING
-$DEFAULT_ENCODING
-$MENU_PRE_STYLE
-$CENTER_IMAGE
-$EXAMPLE_INDENT_CELL
-$SMALL_EXAMPLE_INDENT_CELL
-$SMALL_FONT_SIZE
-$SMALL_RULE
-$DEFAULT_RULE
-$MIDDLE_RULE
-$BIG_RULE
-$TOP_HEADING
-$INDEX_CHAPTER
-$SPLIT_INDEX
-$HREF_DIR_INSTEAD_FILE
-$USE_MENU_DIRECTIONS
-$AFTER_BODY_OPEN
-$PRE_BODY_CLOSE
-$EXTRA_HEAD
-$VERTICAL_HEAD_NAVIGATION
-$WORDS_IN_PAGE
-$ICONS
-$UNNUMBERED_SYMBOL_IN_MENU
-$SIMPLE_MENU
-$MENU_SYMBOL
-$OPEN_QUOTE_SYMBOL
-$CLOSE_QUOTE_SYMBOL
-$TOC_LIST_STYLE
-$TOC_LIST_ATTRIBUTE
-$TOP_NODE_FILE
-$TOP_NODE_UP
-$NODE_FILE_EXTENSION
-$BEFORE_OVERVIEW
-$AFTER_OVERVIEW
-$BEFORE_TOC_LINES
-$AFTER_TOC_LINES
-$NEW_CROSSREF_STYLE
-$USER
-$USE_NUMERIC_ENTITY
-$DATE
-%ACTIVE_ICONS
-%NAVIGATION_TEXT
-%PASSIVE_ICONS
-%BUTTONS_NAME
-%BUTTONS_GOTO
-%BUTTONS_EXAMPLE
-@CHAPTER_BUTTONS
-@MISC_BUTTONS
-@SECTION_BUTTONS
-@SECTION_FOOTER_BUTTONS
-@NODE_FOOTER_BUTTONS
-@IMAGE_EXTENSIONS
-);
-
-# 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_page_head
-$print_page_foot
-$print_head_navigation
-$print_foot_navigation
-$button_icon_img
-$print_navigation
-$about_body
-$print_frame
-$print_toc_frame
-$toc_body
-$titlepage
-$css_lines
-$print_redirection_page
-$init_out
-$finish_out
-$node_file_name
-$element_file_name
-$inline_contents
-
-$protect_text
-$anchor
-$def_item
-$def
-$menu
-$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
-$raw
-$raw_no_texi
-$heading
-$paragraph
-$preformatted
-$foot_line_and_ref
-$foot_section
-$address
-$image
-$image_files
-$index_entry_label
-$index_entry
-$index_letter
-$print_index
-$index_summary
-$summary_letter
-$complex_format
-$cartouche
-$sp
-$definition_category
-$table_list
-$copying_comment
-$index_summary_file_entry
-$index_summary_file_end
-$index_summary_file_begin
-$style
-$format
-$normal_text
-$empty_line
-$unknown
-$unknown_style
-$float
-$caption_shortcaption
-$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
-
-$PRE_ABOUT
-$AFTER_ABOUT
-);
-
-# hash which entries might be redefined by the user
-use vars qw(
-$complex_format_map
-%accent_map
-%def_map
-%format_map
-%simple_map
-%simple_map_pre
-%simple_map_texi
-%style_map
-%style_map_pre
-%style_map_texi
-%simple_format_simple_map_texi
-%simple_format_style_map_texi
-%simple_format_texi_map
-%command_type
-%paragraph_style
-%things_map
-%pre_map
-%texi_map
-%unicode_map
-%unicode_diacritical
-%transliterate_map
-%transliterate_accent_map
-%no_transliterate_map
-%ascii_character_map
-%ascii_simple_map
-%ascii_things_map
-%numeric_entity_map
-%perl_charset_to_html
-%iso_symbols
-%misc_command
-%css_map
-%format_in_paragraph
-%special_list_commands
-%accent_letters
-%unicode_accents
-%special_accents
-@command_handler_init
-@command_handler_process
-@command_handler_finish
-%command_handler
-);
-
-# needed in this namespace for translations
-$I = \&Texi2HTML::I18n::get_string;
-
-#
-# 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).
-#
-
-$toc_body = \&T2H_GPL_toc_body;
-$style = \&T2H_GPL_style;
-$format = \&T2H_GPL_format;
-
-sub T2H_GPL_toc_body($)
-{
- my $elements_list = shift;
- return unless ($DO_CONTENTS or $DO_SCONTENTS or $FRAMES);
- my $current_level = 0;
- my $ul_style = $NUMBER_SECTIONS ? $TOC_LIST_ATTRIBUTE : '';
- foreach my $element (@$elements_list)
- {
- next if ($element->{'top'} or $element->{'index_page'});
- 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<ul${ul_style}>\n";
- $ind = ' ' x $current_level;
- push(@{$Texi2HTML::TOC_LINES}, $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(@{$Texi2HTML::TOC_LINES}, "$line\n");
-
- }
- }
- else
- {
- push(@{$Texi2HTML::TOC_LINES}, "</li>\n");
- }
- my $file = '';
- $file = $element->{'file'} if ($SPLIT);
- my $text = $element->{'text'};
- #$text = $element->{'name'} unless ($NUMBER_SECTIONS);
- my $entry = "<li>" . &$anchor ($element->{'tocid'}, "$file#$element->{'id'}",$text);
- push (@{$Texi2HTML::TOC_LINES}, $ind . $entry);
- push(@{$Texi2HTML::OVERVIEW}, $entry. "</li>\n") if ($level == 1);
- }
- while (0 < $current_level)
- {
- $current_level--;
- my $ind = ' ' x $current_level;
- push(@{$Texi2HTML::TOC_LINES}, "</li>\n$ind</ul>\n");
- }
- @{$Texi2HTML::TOC_LINES} = () unless ($DO_CONTENTS);
- if (@{$Texi2HTML::TOC_LINES})
- {
- unshift @{$Texi2HTML::TOC_LINES}, $BEFORE_TOC_LINES;
- push @{$Texi2HTML::TOC_LINES}, $AFTER_TOC_LINES;
- }
- @{$Texi2HTML::OVERVIEW} = () unless ($DO_SCONTENTS or $FRAMES);
- if (@{$Texi2HTML::OVERVIEW})
- {
- unshift @{$Texi2HTML::OVERVIEW}, "<ul${ul_style}>\n";
- push @{$Texi2HTML::OVERVIEW}, "</ul>\n";
- unshift @{$Texi2HTML::OVERVIEW}, $BEFORE_OVERVIEW;
- push @{$Texi2HTML::OVERVIEW}, $AFTER_OVERVIEW;
- }
-}
-
-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 $do_quotes = 0;
- my $use_attribute = 0;
- my $use_begin_end = 0;
- if (ref($style) eq 'HASH')
- {
- #print STDERR "GPL_STYLE $command\n";
- #print STDERR " @$args\n";
- $do_quotes = $style->{'quote'};
- if ((@{$style->{'args'}} == 1) and defined($style->{'attribute'}))
- {
- $style = $style->{'attribute'};
- $use_attribute = 1;
- $text = $args->[0];
- }
- elsif (defined($style->{'function'}))
- {
- $text = &{$style->{'function'}}($command, $args, $style_stack, $state, $line_nr);
- }
- }
- 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)
- { # good style
- my $attribute_text = '';
- if ($style =~ /^(\w+)(\s+.*)/)
- {
- $style = $1;
- $attribute_text = $2;
- }
-# $text = "<${style}$attribute_text>$text</$style>" ;
- $text = "<${style}$attribute_text>" . "$text" if (!$no_open);
- $text .= "</$style>" if (!$no_close);
- 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 ($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";
-}
-
-# leave this within comments, and keep the require statement
-# This way, you can directly run texi2html.pl, if
-# $ENV{T2H_HOME}/texi2html.init exists.
-
-# @INIT@
-# -*-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.116 2007/05/07 22:56:02 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/texi2htmlrc
-# and then by values set in $HOME/texi2htmlrc.
-#
-# 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.
-
-# -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 https://www.xml.com/axml/target.html#NT-ExternalID
-$DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html401/loose.dtd">';
-
-# -frameset-doctype
-# 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/html401/frameset.dtd">';
-
-# -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 of test.sh.
-$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 = ('html');
-
-# -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 special symbols
-# (like copyright, etc).
-$USE_ISO = 1;
-
-# -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 = (".");
-@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 = ();
-
-# --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 | -nomenu
-# if the value is true the Texinfo menus are shown.
-$SHOW_MENU = 1;
-
-# -number | -nonumber
-# 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;
-
-# -use-nodes
-# if this is set the nodes are used as sectionning elements.
-# Otherwise the nodes are incorporated in sections.
-$USE_NODES = 0;
-
-# -node-files
-# if this is set one file per node is generated, which can be a target for
-# cross manual references.
-$NODE_FILES = 0;
-
-# -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 sectionning 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 = '';
-
-# -sec-nav|-nosec-nav
-# 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.
-#
-# If the document is split at sections this is ignored.
-#
-# 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.
-$SECTION_NAVIGATION = 1;
-
-# -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).
-$SEPARATED_FOOTNOTES = 1;
-
-# -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 = '';
-
-# -o filename
-# If this is set a monolithic document is outputted into $filename.
-$OUT = '';
-
-# -no-validate
-# suppress node cross-reference validation
-$NOVALIDATE = 0;
-
-# -short-ref
-# if this is set cross-references are given without section numbers.
-$SHORT_REF = '';
-
-# -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 = '';
-
-# -lang
-# use &$I('my string') if you want to have translations of 'my string'
-# and provide the translations in $LANGUAGES->{$LANG} 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.
-# Default's to 'en' if not set or no @documentlanguage is specified.
-$LANG = 'en';
-
-# -ignore-preamble-text
-# If this is set the text before @node and sectionning 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 = '';
-
-# -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 texi2html).
-# cf texinfo manual for more info.
-# - means STDIN
-@CSS_FILES = ();
-
-######################
-# 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.
-$L2H_SKIP = '';
-
-# -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
-#
-##############################################################################
-
-# If true do table of contents even if there is no @content
-$DO_CONTENTS = 0;
-
-# If true do short table of contents even if there is no @shortcontent
-$DO_SCONTENTS = 0;
-
-# if set, output the contents where the command is located
-$INLINE_CONTENTS = 1;
-
-# if this variable is true, numeric entities are used when there is no
-# corresponding textual entity.
-$USE_NUMERIC_ENTITY = 1;
-
-# if set, then use node names in menu entries, instead of section names
-$NODE_NAME_IN_MENU = 0;
-
-# new style for crossrefs
-$NEW_CROSSREF_STYLE = 1;
-
-# transliterate node names for external refs (and internal if NODE_FILES)
-$TRANSLITERATE_NODE = 1;
-
-# 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 = 1;
-
-# 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 = '<td> </td>';
-
-# same as above, only for @small
-$SMALL_EXAMPLE_INDENT_CELL = '<td> </td>';
-
-# font size for @small
-$SMALL_FONT_SIZE = '-1';
-
-# horizontal rules
-$SMALL_RULE = '<hr size="1">';
-$DEFAULT_RULE = '<hr>';
-$MIDDLE_RULE = '<hr size="2">';
-$BIG_RULE = '';
-
-# 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 = '';
-
-# if set and $SPLIT is set, then split index pages at the next letter
-# after they have more than that many entries
-$SPLIT_INDEX = 100;
-
-# 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;
-
-$OPEN_QUOTE_SYMBOL = "\`";
-$CLOSE_QUOTE_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 = "html";
-
-# extension
-$EXTENSION = "html";
-
-# file name used for Top node when NODE_FILES is true
-$TOP_NODE_FILE = "index";
-
-# 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';
-
-# This controls the ul style for toc
-$TOC_LIST_STYLE = 'list-style: none';
-$TOC_LIST_ATTRIBUTE = ' class="toc"';
-
-# 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";
-
-# 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 the information given by menus to complete the node directions
-$USE_MENU_DIRECTIONS = 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 =
- (
- 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward',
- ' ', ' ', ' ', ' ',
- 'Top', 'Contents', 'Index', 'About',
- );
-
-# buttons for misc stuff
-@MISC_BUTTONS = ('Top', 'Contents', 'Index', 'About');
-
-# buttons for chapter file footers
-# (and headers but only if SECTION_NAVIGATION is false)
-@CHAPTER_BUTTONS =
- (
- 'FastBack', 'FastForward', ' ',
- ' ', ' ', ' ', ' ',
- 'Top', 'Contents', 'Index', 'About',
- );
-
-# buttons for section file footers
-@SECTION_FOOTER_BUTTONS =
- (
- 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward'
- );
-
-@NODE_FOOTER_BUTTONS =
- (
- 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward',
- ' ', ' ', ' ', ' ',
- 'Top', 'Contents', 'Index', 'About',
-# 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward'
- );
-
-$ICONS = 0;
-
-# 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', '',
- ' ', ''
- );
-
-# 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', '',
- );
-
-@IMAGE_EXTENSIONS = ('png','jpg','jpeg','gif');
-
-$init_out = \&t2h_default_init_out;
-$finish_out = \&t2h_default_finish_out;
-
-# We have to do this dynamically because of internationalization and because
-# in body $LANG could be used.
-sub t2h_default_init_out()
-{
-# Names of text as alternative for icons
-# FIXME maybe get those in simple_format?
- %NAVIGATION_TEXT =
- (
- 'Top', &$I('Top'),
- 'Contents', &$I('Contents'),
- 'Overview', &$I('Overview'),
- 'Index', &$I('Index'),
- ' ', ' ',
- 'This', &$I('current'),
- 'Back', ' < ',
- 'FastBack', ' << ',
- 'Prev', &$I('Prev'),
- 'Up', &$I(' Up '),
- 'Next', &$I('Next'),
- 'NodeUp', &$I('Node up'),
- 'NodeNext', &$I('Next node'),
- 'NodePrev', &$I('Previous node'),
- 'Following', &$I('Following node'),
- 'Forward', ' > ',
- 'FastForward', ' >> ',
- 'About', ' ? ',
- 'First', ' |< ',
- 'Last', ' >| '
- );
-
- %BUTTONS_GOTO =
- (
- 'Top', &$I('Cover (top) of document'),
- 'Contents', &$I('Table of contents'),
- 'Overview', &$I('Short table of contents'),
- 'Index', &$I('Index'),
- 'This', &$I('Current section'),
- 'Back', &$I('Previous section in reading order'),
- 'FastBack', &$I('Beginning of this chapter or previous chapter'),
- 'Prev', &$I('Previous section on same level'),
- 'Up', &$I('Up section'),
- 'Next', &$I('Next section on same level'),
- 'NodeUp', &$I('Up node'),
- 'NodeNext', &$I('Next node'),
- 'NodePrev', &$I('Previous node'),
- 'Following', &$I('Node following in node reading order'),
- 'Forward', &$I('Next section in reading order'),
- 'FastForward', &$I('Next chapter'),
- 'About' , &$I('About (help)'),
- 'First', &$I('First section in reading order'),
- 'Last', &$I('Last section in reading order'),
- );
-
- %BUTTONS_NAME =
- (
- 'Top', &$I('Top'),
- 'Contents', &$I('Contents'),
- 'Overview', &$I('Overview'),
- 'Index', &$I('Index'),
- ' ', ' ',
- 'This', &$I('This'),
- 'Back', &$I('Back'),
- 'FastBack', &$I('FastBack'),
- 'Prev', &$I('Prev'),
- 'Up', &$I('Up'),
- 'Next', &$I('Next'),
- 'NodeUp', &$I('NodeUp'),
- 'NodeNext', &$I('NodeNext'),
- 'NodePrev', &$I('NodePrev'),
- 'Following', &$I('Following'),
- 'Forward', &$I('Forward'),
- 'FastForward', &$I('FastForward'),
- 'About', &$I('About'),
- 'First', &$I('First'),
- 'Last', &$I('Last')
- );
-
- # Set the default body text, inserted between <body ... >
- $BODYTEXT = 'lang="' . $LANG . '" bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000"' unless (defined($BODYTEXT));
- if (!defined($EXTERNAL_CROSSREF_SPLIT))
- {
- if ($SPLIT)
- {
- $EXTERNAL_CROSSREF_SPLIT = 1;
- }
- else
- {
- $EXTERNAL_CROSSREF_SPLIT = 0;
- }
- }
-
- $ENCODING_NAME = $ENCODING if (!defined($ENCODING_NAME) and
- defined($ENCODING));
-
- if (!defined($OUT_ENCODING) and (defined($ENCODING_NAME)))
- {
- $OUT_ENCODING = main::encoding_alias ($ENCODING_NAME);
- $OUT_ENCODING = $ENCODING_NAME if (!defined($OUT_ENCODING));
- }
- if (!defined($OUT_ENCODING) and (defined($IN_ENCODING)))
- {
- $OUT_ENCODING = $IN_ENCODING;
- }
- if (!defined($OUT_ENCODING) and (defined($DOCUMENT_ENCODING)))
- {
- $OUT_ENCODING = main::encoding_alias ($DOCUMENT_ENCODING);
- $OUT_ENCODING = $DOCUMENT_ENCODING if (!defined($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($IN_ENCODING) and defined($perl_charset_to_html{$IN_ENCODING}))
- {
- $ENCODING_NAME = $perl_charset_to_html{$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($IN_ENCODING))
- {
- $ENCODING_NAME = $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';
- }
- }
- my $out_encoding = $OUT_ENCODING;
- $out_encoding = 'UNDEF' if (!defined($out_encoding));
- my $in_encoding = $IN_ENCODING;
- $in_encoding = 'UNDEF' if (!defined($in_encoding));
- my $document_encoding = $DOCUMENT_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);
-
- if ($SIMPLE_MENU and !defined($complex_format_map->{'menu'}))
- {
- $complex_format_map->{'menu'} = { 'begin' => q{''} , 'end' => q{''},
- 'pre_style' => "$MENU_PRE_STYLE", 'class' => 'menu-preformatted' };
- }
-
- return $OUT_ENCODING;
-};
-
-sub t2h_default_finish_out()
-{
-}
-
-#######################################################################
-#
-# Values guessed if not set here, set in init_out
-#
-#######################################################################
-
-$BODYTEXT = undef;
-
-# default used in init_out for the setting of the ENCODING_NAME variable
-$DEFAULT_ENCODING = 'utf8';
-
-# In file encoding. The @documentencoding overrides 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;
-
-# if undef set to @documentdescription. If there is no @documentdescription,
-# set in page_head
-$DOCUMENT_DESCRIPTION = undef;
-
-# if undef set 1 if SPLIT, to 0 otherwise
-$EXTERNAL_CROSSREF_SPLIT = undef;
-
-$USER = 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, 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 sectionning 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 @setttile
-# $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} -- 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{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_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::THIS_HEADER -- lines preceding navigation panel 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 = \&T2H_DEFAULT_print_section;
-$end_section = \&T2H_DEFAULT_end_section;
-$one_section = \&T2H_DEFAULT_one_section;
-$print_Top_header = \&T2H_DEFAULT_print_Top_header;
-$print_Top_footer = \&T2H_DEFAULT_print_Top_footer;
-$print_Top = \&T2H_DEFAULT_print_Top;
-$print_Toc = \&T2H_DEFAULT_print_Toc;
-$print_Overview = \&T2H_DEFAULT_print_Overview;
-$print_Footnotes = \&T2H_DEFAULT_print_Footnotes;
-$print_About = \&T2H_DEFAULT_print_About;
-$print_misc_header = \&T2H_DEFAULT_print_misc_header;
-$print_misc_footer = \&T2H_DEFAULT_print_misc_footer;
-$print_misc = \&T2H_DEFAULT_print_misc;
-$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_head = \&T2H_DEFAULT_print_page_head;
-$print_page_foot = \&T2H_DEFAULT_print_page_foot;
-$print_head_navigation = \&T2H_DEFAULT_print_head_navigation;
-$print_foot_navigation = \&T2H_DEFAULT_print_foot_navigation;
-$button_icon_img = \&T2H_DEFAULT_button_icon_img;
-$print_navigation = \&T2H_DEFAULT_print_navigation;
-$about_body = \&T2H_DEFAULT_about_body;
-$print_frame = \&T2H_DEFAULT_print_frame;
-$print_toc_frame = \&T2H_DEFAULT_print_toc_frame;
-#$toc_body = \&T2H_DEFAULT_toc_body;
-$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;
-
-########################################################################
-# Layout for html for every sections
-#
-sub T2H_DEFAULT_print_section
-{
- my $fh = shift;
- my $first_in_page = shift;
- my $previous_is_top = shift;
- my $buttons = \@SECTION_BUTTONS;
-
- if ($first_in_page and $SECTION_NAVIGATION)
- {
- &$print_head_navigation($fh, $buttons);
- }
- else
- { # got to do this here, as it isn't done in print_head_navigation
- main::print_lines($fh, $Texi2HTML::THIS_HEADER);
- &$print_navigation($fh, $buttons) if ($SECTION_NAVIGATION);
- }
- my $nw = main::print_lines($fh);
- if (defined $SPLIT
- and (($SPLIT eq 'node') && $SECTION_NAVIGATION))
- {
- &$print_foot_navigation($fh);
- print $fh "$SMALL_RULE\n";
- &$print_navigation($fh, \@NODE_FOOTER_BUTTONS) if (!defined($WORDS_IN_PAGE) or (defined ($nw)
- and $nw >= $WORDS_IN_PAGE));
- }
-}
-
-sub T2H_DEFAULT_one_section($)
-{
- my $fh = shift;
- main::print_lines($fh, $Texi2HTML::THIS_HEADER);
- main::print_lines($fh);
- print $fh "$SMALL_RULE\n";
- &$print_foot_navigation($fh);
- &$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.
-#
-# If you enclose everything in @ifnothtml, then title, subtitle,
-# author and overview is printed
-# Texi2HTML::HREF of Next, Prev, Up, Forward, Back are not defined
-# if $T2H_SPLIT then Top page is in its own html file
-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 $buttons = \@MISC_BUTTONS;
- &$print_foot_navigation($fh);
- print $fh "$SMALL_RULE\n";
- if ($end_page)
- {
- &$print_navigation($fh, $buttons);
- &$print_page_foot($fh);
- }
-}
-sub T2H_DEFAULT_print_Top($$)
-{
- my $fh = shift;
- my $has_top_heading = shift;
-
- # for redefining navigation buttons use:
- # my $buttons = [...];
- # as it is, 'Top', 'Contents', 'Index', 'About' are printed
- my $buttons = \@MISC_BUTTONS;
- &$print_head_navigation($fh, $buttons) if ($SPLIT or $SECTION_NAVIGATION);
- my $nw;
- if (@$Texi2HTML::THIS_SECTION)
- {
- # if top-level node has content, then print it with extra header
- #print $fh "<h1>$Texi2HTML::NAME{Top}</h1>\n"
- print $fh "<h1 class=\"settitle\">$Texi2HTML::NAME{Top}</h1>\n"
- unless ($has_top_heading);
- $nw = main::print_lines($fh, $Texi2HTML::THIS_SECTION);
- }
- else
- {
- # top-level node is fully enclosed in @ifnothtml
- # print fulltitle, subtitle, author, Overview or table of contents
- print $fh $Texi2HTML::TITLEPAGE;
- if (@{$Texi2HTML::OVERVIEW} and !$Texi2HTML::THISDOC{'setshortcontentsaftertitlepage'})
- {
- print $fh '<h2> ' . $Texi2HTML::NAME{'Overview'} . "</h2>\n" . "<blockquote\n";
- my $nw = main::print_lines($fh, $Texi2HTML::OVERVIEW);
- print $fh "</blockquote>\n";
- }
- elsif (@{$Texi2HTML::TOC_LINES} and !$Texi2HTML::THISDOC{'setcontentsaftertitlepage'})
- {
- print $fh '<h1> ' . $Texi2HTML::NAME{'Contents'} . "</h1>\n";
- my $nw = main::print_lines($fh, $Texi2HTML::TOC_LINES);
- }
- }
-}
-
-###################################################################
-# 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 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
-{
- # if there is no section navigation and it is not split, the
- # navigation information is useless
- return &$print_misc(@_) if ($SPLIT or $SECTION_NAVIGATION);
-}
-
-sub T2H_DEFAULT_print_misc_header
-{
- my $fh = shift;
- my $buttons = shift;
- &$print_page_head($fh) if $SPLIT;
- &$print_head_navigation($fh, $buttons) if ($SPLIT or $SECTION_NAVIGATION);
-}
-
-sub T2H_DEFAULT_print_misc_footer
-{
- my $fh = shift;
- my $buttons = shift;
- my $nwords = shift;
- &$print_foot_navigation($fh, $buttons);
- print $fh "$SMALL_RULE\n";
- if ($SPLIT)
- {
- &$print_navigation($fh, $buttons);# if ($SPLIT ne 'node');
- &$print_page_foot($fh);
- }
-}
-
-sub T2H_DEFAULT_print_misc
-{
- my $fh = shift;
- my $buttons = \@MISC_BUTTONS;
- &$print_misc_header($fh, $buttons);
- print $fh "<h1>$Texi2HTML::NAME{This}</h1>\n";
- main::print_lines($fh);
- &$print_misc_footer($fh, $buttons);
-}
-##################################################################
-# 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 $buttons = \@SECTION_FOOTER_BUTTONS;
- &$end_section ($fh, 1);
- &$print_navigation($fh, $buttons);
-}
-
-###################################################################
-# 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 T2H_DEFAULT_print_chapter_header
-{
- # nothing to do there, by default, the navigation panel
- # is the section navigation panel
- if (! $SECTION_NAVIGATION)
- { # in this case print_navigation is called here.
- my $fh = shift;
- my $buttons = \@CHAPTER_BUTTONS;
- &$print_head_navigation($fh, $buttons); #do that instead ?
- #&$print_head_navigation($fh, $buttons); # FIXME VERTICAL_HEAD_NAVIGATION ?
- print $fh "\n$MIDDLE_RULE\n";
- }
-}
-
-sub T2H_DEFAULT_print_chapter_footer
-{
- my $fh = shift;
- my $buttons = \@CHAPTER_BUTTONS;
- &$print_foot_navigation($fh);
- print $fh "$BIG_RULE\n";
- &$print_navigation($fh, $buttons);
-}
-
-sub T2H_DEFAULT_print_section_header
-{
- # nothing to do there, by default
- if (! $SECTION_NAVIGATION)
- { # 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 T2H_DEFAULT_print_page_head($)
-{
- my $fh = shift;
- my $longtitle = "$Texi2HTML::THISDOC{'title_simple_format'}";
- $longtitle .= ": $Texi2HTML::SIMPLE_TEXT{'This'}" if (defined ($Texi2HTML::SIMPLE_TEXT{'This'}) and ($Texi2HTML::SIMPLE_TEXT{'This'} !~ /^\s*$/) and $SPLIT);
- my $description = $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=$ENCODING_NAME\">" if (defined($ENCODING_NAME) and ($ENCODING_NAME ne ''));
- print $fh <<EOT;
-$DOCTYPE
-<html>
-$Texi2HTML::THISDOC{'copying'}<!-- 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}">
-$encoding
-$CSS_LINES
-$EXTRA_HEAD
-</head>
-
-<body $BODYTEXT>
-$AFTER_BODY_OPEN
-EOT
-}
-
-sub program_string()
-{
- my $user = $Texi2HTML::THISDOC{'user'};
- my $date = $Texi2HTML::THISDOC{'today'};
- $user = '' if (!defined($user));
- $date = '' if (!defined($date));
- if (($user ne '') and ($date ne ''))
- {
- return &$I('This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.', {
- 'user' => $user, 'date' => $date, 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program' => $Texi2HTML::THISDOC{'program'} });
- }
- elsif ($user ne '')
- {
- return &$I('This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.', {
- 'user' => $user, 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program' => $Texi2HTML::THISDOC{'program'} });
- }
- elsif ($date ne '')
- {
- return &$I('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'} });
- }
- return &$I('This document was generated using @uref{%{program_homepage}, @emph{%{program}}}.', {
- 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program'
-=> $Texi2HTML::THISDOC{'program'} });
-}
-
-sub T2H_DEFAULT_end_section($$)
-{
- my $fh = shift;
- my $end_foot_navigation = shift;
- &$print_foot_navigation($fh) if ($end_foot_navigation);
- print $fh "$BIG_RULE\n";
-}
-
-sub T2H_DEFAULT_print_page_foot($)
-{
- my $fh = shift;
- my $program_string = program_string();
- print $fh <<EOT;
-<p>
- <font size="-1">
- $program_string
- </font>
- <br>
-$PRE_BODY_CLOSE
-</p>
-</body>
-</html>
-EOT
-}
-
-###################################################################
-# Layout of navigation panel
-
-sub T2H_DEFAULT_print_head_navigation($$)
-{
- my $fh = shift;
- my $buttons = shift;
- if ($VERTICAL_HEAD_NAVIGATION)
- {
- print $fh <<EOT;
-<table border="0" cellpadding="0" cellspacing="0">
-<tr valign="top">
-<td align="left">
-EOT
- }
- main::print_lines($fh, $Texi2HTML::THIS_HEADER);
- &$print_navigation($fh, $buttons, $VERTICAL_HEAD_NAVIGATION);
- if ($VERTICAL_HEAD_NAVIGATION)
- {
- print $fh <<EOT;
-</td>
-<td align="left">
-EOT
- }
- elsif (defined $SPLIT
- and ($SPLIT eq 'node'))
- {
- print $fh "$SMALL_RULE\n";
- }
-}
-
-sub T2H_DEFAULT_print_foot_navigation
-{
- my $fh = shift;
- if ($VERTICAL_HEAD_NAVIGATION)
- {
- print $fh <<EOT;
-</td>
-</tr>
-</table>
-EOT
- }
-}
-
-######################################################################
-# navigation panel
-#
-# how to create IMG tag
-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 qq{<img src="$icon" border="0" alt="$alt" align="middle">};
-}
-
-sub T2H_DEFAULT_print_navigation
-{
- my $fh = shift;
- my $buttons = shift;
- my $vertical = shift;
- my $spacing = 1;
- print $fh '<table cellpadding="', $spacing, '" cellspacing="', $spacing,
- "\" border=\"0\">\n";
-
- print $fh "<tr>" unless $vertical;
- for my $button (@$buttons)
- {
- print $fh qq{<tr valign="top" align="left">\n} if $vertical;
- print $fh qq{<td valign="middle" align="left">};
-
- if (ref($button) eq 'CODE')
- {
- &$button($fh, $vertical);
- }
- elsif (ref($button) eq 'SCALAR')
- {
- print $fh "$$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})
- {
- print $fh "" .
- &$anchor('',
- $Texi2HTML::HREF{$button_href},
- $$text
- )
- ;
- }
- else
- {
- print $fh $$text;
- }
- }
- }
- elsif ($button eq ' ')
- { # handle space button
- print $fh
- ($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 ($ICONS && $ACTIVE_ICONS{$button})
- { # use icon
- print $fh '' .
- &$anchor('',
- $Texi2HTML::HREF{$button},
- &$button_icon_img($BUTTONS_NAME{$button},
- $ACTIVE_ICONS{$button},
- $Texi2HTML::SIMPLE_TEXT{$button}),
- $btitle
- );
- }
- else
- { # use text
- print $fh
- '[' .
- &$anchor('',
- $Texi2HTML::HREF{$button},
- $NAVIGATION_TEXT{$button},
- $btitle
- ) .
- ']';
- }
- }
- else
- { # button is passive
- print $fh
- $ICONS && $PASSIVE_ICONS{$button} ?
- &$button_icon_img($BUTTONS_NAME{$button},
- $PASSIVE_ICONS{$button},
- $Texi2HTML::SIMPLE_TEXT{$button}) :
-
- "[" . $NAVIGATION_TEXT{$button} . "]";
- }
- print $fh "</td>\n";
- print $fh "</tr>\n" if $vertical;
- }
- print $fh "</tr>" unless $vertical;
- print $fh "</table>\n";
-}
-
-######################################################################
-# Frames: this is from "Richard Y. Kim" <ryk@coho.net>
-# Should be improved to be more conforming to other _print* functions
-# FIXME pass toc_file and main_file as args or in $Texi2HTML::THISDOC ?
-
-sub T2H_DEFAULT_print_frame
-{
- my $fh = shift;
- my $toc_file = shift;
- my $main_file = shift;
- print $fh <<EOT;
-$FRAMESET_DOCTYPE
-<html>
-<head><title>$Texi2HTML::THISDOC{title}</title></head>
-<frameset cols="140,*">
- <frame name="toc" src="$toc_file">
- <frame name="main" src="$main_file">
-</frameset>
-</html>
-EOT
-}
-
-sub T2H_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";
-}
-
-# 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
-# 'index_page': true if the element is an index page added because of index
-# splitting
-# '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:
-# $NUMBER_SECTIONS
-# $TOC_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
-# $DO_CONTENTS
-# $DO_SCONTENTS
-
-sub T2H_DEFAULT_toc_body($)
-{
-}
-
-sub T2H_DEFAULT_inline_contents($$$)
-{
- my $fh = shift;
- my $command = shift;
- my $element = shift;
- my $name;
- my $lines;
-
- my $result = undef;
-
- if ($command eq 'contents')
- {
- $name = $Texi2HTML::NAME{'Contents'};
- $lines = $Texi2HTML::TOC_LINES;
- }
- else
- {
- $name = $Texi2HTML::NAME{'Overview'};
- $lines = $Texi2HTML::OVERVIEW;
- }
- if (@{$lines})
- {
- $result = [ "".&$anchor($element->{'id'})."\n",
- "<h1>$name</h1>\n" ];
- push @$result, @$lines;
- }
-
- 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))));
- $CSS_LINES = "<style type=\"text/css\">\n<!--\n";
- $CSS_LINES .= join('',@$import_lines) . "\n" if (@$import_lines);
- foreach my $css_rule (sort(keys(%css_map)))
- {
- next unless ($css_map{$css_rule});
- $CSS_LINES .= "$css_rule {$css_map{$css_rule}}\n";
- }
- $CSS_LINES .= join('',@$rule_lines) . "\n" if (@$rule_lines);
- $CSS_LINES .= "-->\n</style>\n";
-}
-
-######################################################################
-# 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',
- );
-
-sub T2H_DEFAULT_about_body
-{
- my $about = "<p>\n";
- if (ref($PRE_ABOUT) eq 'CODE')
- {
- $about .= &$PRE_ABOUT();
- }
- else
- {
- $about .= $PRE_ABOUT;
- }
- $about .= <<EOT;
-</p>
-<p>
-EOT
- $about .= &$I(' The buttons in the navigation panels have the following meaning:') . "\n";
- $about .= <<EOT;
-</p>
-<table border="1">
- <tr>
-EOT
- $about .= ' <th> ' . &$I('Button') . " </th>\n" .
-' <th> ' . &$I('Name') . " </th>\n" .
-' <th> ' . &$I('Go to') . " </th>\n" .
-' <th> ' . &$I('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 .= &$I(' 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. ' . &$I('Section One') . "\n" .
-" <ul>\n" .
-' <li>1.1 ' . &$I('Subsection One-One') . "\n";
- $about .= <<EOT;
- <ul>
- <li>...</li>
- </ul>
- </li>
-EOT
- $about .= ' <li>1.2 ' . &$I('Subsection One-Two') . "\n" .
-" <ul>\n" .
-' <li>1.2.1 ' . &$I('Subsubsection One-Two-One') . "</li>\n" .
-' <li>1.2.2 ' . &$I('Subsubsection One-Two-Two') . "</li>\n" .
-' <li>1.2.3 ' . &$I('Subsubsection One-Two-Three') . " \n"
-.
-' <strong><== ' . &$I('Current Position') . " </strong></li>\n" .
-' <li>1.2.4 ' . &$I('Subsubsection One-Two-Four') . "</li>\n" .
-" </ul>\n" .
-" </li>\n" .
-' <li>1.3 ' . &$I('Subsection One-Three') . "\n";
- $about .= <<EOT;
- <ul>
- <li>...</li>
- </ul>
- </li>
-EOT
- $about .= ' <li>1.4 ' . &$I('Subsection One-Four') . "</li>\n";
- $about .= <<EOT;
- </ul>
- </li>
-</ul>
-$AFTER_ABOUT
-EOT
- return $about;
-}
-
-sub T2H_DEFAULT_titlepage()
-{
- my $result = '';
- if (@{$Texi2HTML::THISDOC{'titles'}}
- or @{$Texi2HTML::THISDOC{'subtitles'}}
- or @{$Texi2HTML::THISDOC{'authors'}})
- {
- $result = "<div align=\"center\">\n";
- foreach my $title (@{$Texi2HTML::THISDOC{'titles'}})
- {
- $result .= '<h1>' . $title . "</h1>\n";
- }
- foreach my $subtitle (@{$Texi2HTML::THISDOC{'subtitles'}})
- {
- $result .= '<h2>' . $subtitle . "</h2>\n";
- }
- foreach my $author (@{$Texi2HTML::THISDOC{'authors'}})
- {
- $result .= '<strong> ' . $author . " </strong><br>\n";
- }
- $result .= "</div>\n$DEFAULT_RULE\n";
- }
-
- $Texi2HTML::TITLEPAGE = $result . $Texi2HTML::TITLEPAGE;
-
- if ($Texi2HTML::THISDOC{'setcontentsaftertitlepage'} 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 @{$Texi2HTML::THISDOC{'inline_contents'}->{'shortcontents'}})
- {
- foreach my $line(@{$Texi2HTML::THISDOC{'inline_contents'}->{'shortcontents'}})
- {
- $Texi2HTML::TITLEPAGE .= $line;
- }
- $Texi2HTML::TITLEPAGE .= "$DEFAULT_RULE\n";
- }
-}
-
-# FIXME Honor DOCUMENT_DESCRIPTION?
-sub T2H_DEFAULT_print_redirection_page($)
-{
- my $fh = shift;
- my $longtitle = "$Texi2HTML::THISDOC{'title_simple_format'}";
- $longtitle .= ": $Texi2HTML::SIMPLE_TEXT{'This'}" if exists $Texi2HTML::SIMPLE_TEXT{'This'};
- my $description = $longtitle;
- my $encoding = '';
- $encoding = "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$ENCODING_NAME\">" if (defined($ENCODING_NAME) and ($ENCODING_NAME ne ''));
- my $href = &$anchor('', $Texi2HTML::HREF{'This'}, $Texi2HTML::NAME{'This'});
- my $string = &$I('The node you are looking for is at %{href}.',
- { 'href' => $href });
- print $fh <<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_LINES
-<meta http-equiv="Refresh" content="2; url=$Texi2HTML::HREF{'This'}">
-$EXTRA_HEAD
-</head>
-
-<body $BODYTEXT>
-$AFTER_BODY_OPEN
-<p>$string</p>
-</body>
-EOT
-}
-
-sub T2H_DEFAULT_node_file_name($$)
-{
- my $node = shift;
- my $type = shift;
- return undef if ($node->{'external_node'} or $node->{'index_page'}
- 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_NODE)
- {
- $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).
-
-
-#
-# 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',
- '=', '',
- );
-
-#
-# texinfo "simple things" (@foo) to HTML ones
-#
-%simple_map = (
- "*", "<br>", # HTML+
- ' ', ' ',
- "\t", ' ',
- "\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)
- '-', '', # hyphenation hint
- '|', '', # used in formatting commands @evenfooting and friends
- '/', '',
- # spacing commands
- ':', '',
- '!', '!',
- '?', '?',
- '.', '.',
- '@', '@',
- '}', '}',
- '{', '{',
- );
-
-# this map is used in preformatted text
-%simple_map_pre = %simple_map;
-$simple_map_pre{'*'} = "\n";
-
-#
-# texinfo "things" (@foo{}) to HTML ones
-#
-%things_map = (
- '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' => '<small class="dots">...</small>',
- 'enddots' => '<small class="enddots">....</small>',
- 'equiv' => '==',
-# FIXME i18n
- 'error' => 'error-->',
- 'expansion' => '==>',
- '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' => 'ß',
- 'l' => 'ł',
- 'L' => 'Ł',
- 'exclamdown' => '¡',
- 'questiondown' => '¿',
- 'pounds' => '£',
- 'ordf' => 'ª',
- 'ordm' => 'º',
- 'comma' => ',',
- 'euro' => '€',
- 'tie' => ' ',
- );
-
-# This map is used in preformatted environments
-%pre_map = %things_map;
-$pre_map{'dots'} = '...';
-$pre_map{'enddots'} = '....';
-#$pre_map{'br'} = "\n";
-
-# ascii representation of @-commands
-%ascii_simple_map = (
- "*", "\n", # HTML+
- ' ', ' ',
- "\t", "\t",
- "\n", "\n",
- '-', '', # hyphenation hint
- '|', '', # used in formatting commands @evenfooting and friends
- '/', '',
- ':', '',
- '!', '!',
- '?', '?',
- '.', '.',
- '@', '@',
- '}', '}',
- '{', '{',
-);
-
-%ascii_things_map = (
- 'TeX' => 'TeX',
- 'LaTeX' => 'LaTeX',
- 'bullet' => '*',
- 'copyright' => '(C)',
- 'registeredsymbol' => '(R)',
- 'dots' => '...',
- 'enddots' => '....',
- 'equiv' => '==',
-# FIXME i18n
- 'error' => 'error-->',
- 'expansion' => '==>',
- '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',
- 'exclamdown' => '?',
- 'questiondown' => '!',
- 'pounds' => '#',
- 'ordf' => 'a',
- 'ordm' => 'o',
- 'comma' => ',',
- 'euro' => 'Euro',
- 'tie' => ' ',
-);
-
-#
-# This map is used when texi elements are removed and replaced
-# by simple text
-#
-%simple_map_texi = (
- "*", "",
- " ", " ",
- "\t", " ",
- "-", "-", # soft hyphen
- "\n", "\n",
- "|", "",
- # spacing commands
- ":", "",
- "!", "!",
- "?", "?",
- ".", ".",
- "-", "",
- '@', '@',
- '}', '}',
- '{', '{',
- );
-
-# text replacing macros when texi commands are removed and plain text is
-# produced
-%texi_map = (
- 'TeX', 'TeX',
- 'LaTeX', 'LaTeX',
- 'bullet', '*',
- 'copyright', 'C',
- 'registeredsymbol', 'R',
- 'dots', '...',
- 'enddots', '....',
- 'equiv', '==',
- 'error', 'error-->',
- 'expansion', '==>',
- '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',
- 'exclamdown', '! upside-down',
- #'exclamdown', '¡',
- 'questiondown', '? upside-down',
- #'questiondown', '¿',
- 'pounds', 'pound sterling',
- #'pounds', '£'
- 'ordf' => 'a',
- 'ordm' => 'o',
- 'comma' => ',',
- 'euro' => 'Euro',
- 'tie' => ' ',
- );
-
-# 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',
- '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',
- 'l' => '0142',
- 'L' => '0141',
- 'exclamdown' => '00A1',
- 'questiondown' => '00BF',
- 'pounds' => '00A3',
- 'ordf' => '00AA',
- 'ordm' => '00BA',
- 'comma' => '002C',
- 'euro' => '20AC',
- 'tie' => '',
-# 'tie' => '0020',
- );
-
-%transliterate_map = (
- '00C5' => 'AA',
- '00E5' => 'aa',
- '00D8' => 'OE',
- '00F8' => 'oe',
- '00E6' => 'ae',
- '0153' => 'oe',
- '00C6' => 'AE',
- '0152' => 'OE',
- '00DF' => 'ss',
- '0141' => 'L',
- '0142' => 'l',
- '00D0' => 'DH',
- '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 ?
- );
-
-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',
-);
-
-# symbols used for the commands if $USE_ISO is true.
-%iso_symbols = (
- 'equiv' => '≡',
- 'dots' => '…',
- 'bullet' => '•',
- 'result' => '⇒',
- 'expansion' => '→',
- 'point' => '∗',
- "'" => '’',
- '`' => '‘',
- );
-
-# 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',
- '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', '',
- );
-
-# default is {'args' => ['normal'], 'attribute' => ''},
-%style_map = (
- 'asis', {},
- 'b', {'attribute' => 'b'},
- 'cite', {'attribute' => 'cite'},
- 'code', {'args' => ['code'], 'attribute' => 'code'},
- 'command', {'args' => ['code'], 'attribute' => 'code'},
- 'ctrl', {'function' => \&t2h_default_ctrl,'type' => 'simple_type'},
- 'dfn', {'attribute' => 'em'},
- 'dmn', {},
- 'email', {'args' => ['code', 'normal'],
- 'function' => \&t2h_default_email,
- 'type' => 'simple_type'},
- #'email', {'args' => ['normal', 'normal'],
- # 'function' => \&t2h_default_email},
- 'emph', {'attribute' => 'em'},
- 'env', {'args' => ['code'], 'attribute' => 'code'},
- 'file', {'args' => ['code'], 'attribute' => 'tt', 'quote' => '"'},
- 'i', {'attribute' => 'i'},
- 'slanted', {'attribute' => 'i'},
- 'sansserif', {'attribute' => 'span class="sansserif"'},
- 'kbd', {'args' => ['code'], 'attribute' => 'kbd'},
- 'key', {'begin' => '<', 'end' => '>'},
- 'math', {'attribute' => 'em'},
- 'option', {'args' => ['code'], 'attribute' => 'samp', 'quote' => '"'},
- 'r', {'attribute' => 'span class="roman"'},
- 'samp', {'args' => ['code'], 'attribute' => 'samp', 'quote' => '"'},
-# 'sc', {'function' => \&t2h_default_sc},
- 'sc', {'attribute' => 'small'},
- 'strong', {'attribute' => 'strong'},
- 't', {'attribute' => 'tt'},
- 'uref', {'function' => \&t2h_default_uref,
- 'args' => ['code', 'normal', 'normal'],
- 'type' => 'simple_type' },
- #'uref', {'function' => \&t2h_default_uref,
- # 'args' => ['normal', 'normal', 'normal']},
- 'url', {'function' => \&t2h_default_uref,
- 'args' => ['code', 'normal', 'normal'],
- 'type' => 'simple_type'},
- 'indicateurl', {'args' => ['code'], 'begin' => '<<code>', 'end' => '</code>>','type' => 'simple_type'},
- 'var', {'attribute' => 'var'},
- 'verb', {'args' => ['code'], 'attribute' => 'tt'},
- 'titlefont', {'function' => \&t2h_default_titlefont,
- 'type' => 'simple_type'},
- 'w', {'type' => 'simple_type'},
- );
-
-%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';
- }
-}
-
-%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'
-);
-
-%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',
- },
-);
-
-%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}}));
- }
-}
-
-%special_accents = (
- 'ringaccent' => 'aA',
- "'" => 'aeiouyAEIOUY',
- ',' => 'cC',
- '^' => 'aeiouAEIOU',
- '`' => 'aeiouAEIOU',
- '~' => 'nNaoAO',
- '"' => 'aeiouyAEIOU',
-);
-
-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_ascii_accent };
-}
-
-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 "&${text}cedil;" if (($accent eq ',') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/));
- return ascii_accents($text, $accent);
-}
-
-sub t2h_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');
- return "&${text}cedil;" if (($accent eq ',') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/));
-# 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);
-}
-
-sub ascii_accents($$)
-{
- my $text = shift;
- my $accent = shift;
- return $text if ($accent eq 'dotless');
- return $text . $accent if (defined($accent_map{$accent}));
- 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 ',');
-}
-
-sub default_sc($$)
-{
- return '<small>' . uc($_[0]) . '</small>';
-}
-
-# now unused, upcasing is done in normal_text
-sub t2h_default_sc($$$)
-{
- shift;
- my $args = shift;
- return '<small>' . uc($args->[0]) . '</small>';
-}
-
-sub default_ctrl($$)
-{
- return "^$_[0]";
-}
-
-sub t2h_default_ctrl($$$)
-{
- shift;
- my $args = shift;
- return "^$args->[0]";
-}
-
-sub default_sc_pre($$)
-{
- return uc($_[0]);
-}
-
-# now unused, upcasing is done in normal_text
-sub t2h_default_sc_pre($$$)
-{
- shift;
- my $args = shift;
- return uc($args->[0]);
-}
-
-sub default_titlefont($$)
-{
- return "<h1 class=\"titlefont\">$_[0]</h1>" if ($_[0] =~ /\S/);
- return '';
-}
-
-# Avoid adding h1 if the text is empty
-sub t2h_default_titlefont($$$)
-{
- shift;
- my $args = shift;
- return "<h1 class=\"titlefont\">$args->[0]</h1>" if ($args->[0] =~ /\S/);
- return '';
-}
-
-# 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 =~ s/\s*$//;
- #$url =~ s/^\s*//;
- $url = main::normalise_space($url);
- return '' unless ($url =~ /\S/);
- return &$anchor('', $url, $url);
-}
-
-sub default_url ($$)
-{
- my $url = shift;
- my $command = shift;
- $url =~ s/\s*$//;
- $url =~ s/^\s*//;
- return '' unless ($url =~ /\S/);
- return &$anchor('', $url, $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));
- $text = $url unless ($text);
- return $text if ($url eq '');
- return &$anchor('', $url, $text);
-}
-
-sub t2h_default_uref($$)
-{
- shift;
- my $args = shift;
- my $url = shift @$args;
- my $text = shift @$args;
- my $replacement = shift @$args;
- #$url =~ s/\s*$//;
- #$url =~ s/^\s*//;
- $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 default_email($$)
-{
- my $arg = shift;
- my $command = shift;
- my ($mail, $text);
- ($mail, $text) = split /,\s*/, $arg;
- $mail =~ s/\s*$//;
- $mail =~ s/^\s*//;
- $text = $mail unless ($text);
- return $text if ($mail eq '');
- return &$anchor('', "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);
- #$mail =~ s/\s*$//;
- #$mail =~ s/^\s*//;
- $text = $mail unless (defined($text) and ($text ne ''));
- $text = main::normalise_space($text);
- return $text if ($mail eq '');
- return &$anchor('', "mailto:$mail", $text);
-}
-
-sub t2h_default_ascii_accent($$$$)
-{
- my $accent = shift;
- my $args = shift;
-
- my $text = $args->[0];
- return ascii_accents($text, $accent);
-}
-
-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);
- #$mail =~ s/\s*$//;
- #$mail =~ s/^\s*//;
- return $text if (defined($text) and ($text ne ''));
- return $mail;
-}
-
-sub t2h_default_no_texi_image($$$$)
-{
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- $text = main::normalise_space($text);
- my @args = split (/\s*,\s*/, $text);
- return $args[0];
-}
-
-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_pre{$command} = {};
- $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";
-
- foreach my $key (keys(%{$style_map{$command}}))
- {
- $style_map_pre{$command}->{$key} = $style_map{$command}->{$key};
- }
-}
-
-#$style_map_pre{'sc'}->{'function'} = \&t2h_default_sc_pre;
-$style_map_pre{'sc'} = {};
-$style_map_pre{'titlefont'} = {};
-
-#$style_map_texi{'sc'}->{'function'} = \&t2h_default_sc_pre;
-$style_map_texi{'sc'} = {};
-$style_map_texi{'email'}->{'function'} = \&t2h_default_no_texi_email;
-
-####### special styles. You shouldn't need to change them
-my %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'], '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'],
- '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 = ();
-
-foreach my $command (keys(%style_map_texi))
-{
- #$simple_format_style_map_texi{$command} = {};
- foreach my $key (keys (%{$style_map_texi{$command}}))
- {
- #print STDERR "$command, $key, $style_map_texi{$command}->{$key}\n";
- $simple_format_style_map_texi{$command}->{$key} =
- $style_map_texi{$command}->{$key};
- }
- $simple_format_style_map_texi{$command} = {} if (!defined($simple_format_style_map_texi{$command}));
-}
-
-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;
-}
-
-%format_map = (
-# 'quotation' => 'blockquote',
- # lists
-# 'itemize' => 'ul',
- 'enumerate' => 'ol',
- 'multitable' => 'table',
- 'table' => 'dl compact="compact"',
- 'vtable' => 'dl compact="compact"',
- 'ftable' => 'dl compact="compact"',
- 'group' => '',
- );
-
-%special_list_commands = (
- 'table' => {},
- 'vtable' => {},
- 'ftable' => {},
- 'itemize' => { 'bullet' => '' }
- );
-#
-# texinfo format to align attribute of paragraphs
-#
-
-%paragraph_style = (
- 'center' => 'center',
- 'flushleft' => 'left',
- 'flushright' => 'right',
- );
-
-# an eval of these $complex_format_map->{what}->{'begin'} yields beginning
-# an eval of these $complex_format_map->{what}->{'end'} yields end
-# $EXAMPLE_INDENT_CELL and SMALL_EXAMPLE_INDENT_CELL can be usefull here
-$complex_format_map =
-{
- 'example' =>
- {
- 'begin' => q{"<table><tr>$EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{"</td></tr></table>\n"},
- },
- 'smallexample' =>
- {
- 'begin' => q{"<table><tr>$SMALL_EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{"</td></tr></table>\n"},
- },
- 'display' =>
- {
- 'begin' => q{"<table><tr>$EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{"</td></tr></table>\n"},
- },
- 'smalldisplay' =>
- {
- 'begin' => q{"<table><tr>$SMALL_EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{"</td></tr></table>\n"},
- }
-};
-
-# format shouldn't narrow the margins
-
-$complex_format_map->{'lisp'} = $complex_format_map->{'example'};
-$complex_format_map->{'smalllisp'} = $complex_format_map->{'smallexample'};
-$complex_format_map->{'format'} = $complex_format_map->{'display'};
-$complex_format_map->{'smallformat'} = $complex_format_map->{'smalldisplay'};
-
-%def_map = (
- # basic commands
- 'deffn', [ 'f', 'category', 'name', 'arg' ],
- 'defvr', [ 'v', 'category', 'name' ],
- 'deftypefn', [ 'f', 'category', 'type', 'name', 'arg' ],
- 'deftypeop', [ 'f', 'category', 'class' , 'type', 'name', 'arg' ],
- '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', 'arg' ],
- # 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',
- );
-
-# 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
-# 'texi' if true it is some texinfo code and @value and @macros are expanded
-# 'keep' if true the args and the macro are kept, otherwise the macro
-# args and skipped stuffs are removed
-%misc_command = (
- # 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' => 'space'}, # no arg
- 'bye' => {'skip' => 'line'}, # no arg
- # comments
- 'comment' => {'arg' => 'line'},
- 'c' => {'arg' => 'line'},
- # in preamble
- 'novalidate' => {}, # no arg
- 'dircategory'=> {'skip' => 'line'}, # line. Position with regard
- # with direntry is significant
- 'pagesizes' => {'skip' => 'line', 'arg' => 2}, # can have 2 args
- # or one? 200mm,150mm 11.5in
- 'finalout' => {}, # 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}, # on off
- '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
- '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'},
- '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},
- 'syncodeindex' => {'skip' => 'linespace', 'arg' => 2},
- # args are index identifiers
- 'synindex' => {'skip' => 'linespace', 'arg' => 2},
- 'defindex' => {'skip' => 'line', 'arg' => 1}, # one identifier arg
- 'defcodeindex' => {'skip' => 'line', 'arg' => 1}, # one identifier arg
- 'documentlanguage' => {'skip' => 'whitespace', 'arg' => 1},
- # language code arg
- 'kbdinputstyle' => {'skip' => 'whitespace', 'arg' => 1}, # code
- #example distinct
- 'sp' => {'skip' => 'whitespace', '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}, # makeinfo ignore the whole line
- # ???
- 'filbreak' => {},
- # obsolete @-commands
- 'quote-arg' => {},
- 'allow-recursion' => {},
- );
-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', 'space', # 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,
- );
-
-%format_in_paragraph = (
- 'group' => 1,
- 'html' => 1,
-);
-# map mapping css specification to style
-
-%css_map =
- (
- 'ul.toc' => "$TOC_LIST_STYLE",
- 'pre.menu-comment' => "$MENU_PRE_STYLE",
- 'pre.menu-preformatted' => "$MENU_PRE_STYLE",
- 'a.summary-letter' => 'text-decoration: none',
- '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;'
- );
-
-$css_map{'pre.format'} = $css_map{'pre.display'};
-$css_map{'pre.smallformat'} = $css_map{'pre.smalldisplay'};
-$css_map{'pre.smalllisp'} = $css_map{'pre.smallexample'};
-
-# 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_init = ();
-@command_handler_process = ();
-@command_handler_finish = ();
-
-# 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 = \&t2h_default_menu;
-$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;
-$external_ref = \&t2h_default_external_ref;
-$external_href = \&t2h_default_external_href;
-$internal_ref = \&t2h_default_internal_ref;
-$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;
-$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;
-$address = \&t2h_default_address;
-$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_letter = \&t2h_default_index_letter;
-$print_index = \&t2h_default_print_index;
-$protect_text = \&t2h_default_protect_text;
-$normal_text = \&t2h_default_normal_text;
-$complex_format = \&t2h_default_complex_format;
-$cartouche = \&t2h_default_cartouche;
-$sp = \&t2h_default_sp;
-$definition_category = \&t2h_default_definition_category;
-$copying_comment = \&t2h_default_copying_comment;
-$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;
-$unknown = \&t2h_default_unknown;
-$unknown_style = \&t2h_default_unknown_style;
-$caption_shortcaption = \&t2h_caption_shortcaption;
-$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;
-$quotation_prepend_text = \&t2h_default_quotation_prepend_text;
-$paragraph_style_command = \&t2h_default_paragraph_style_command;
-$heading_texi = \&t2h_default_heading_texi;
-$index_element_heading_texi = \&t2h_default_index_element_heading_texi;
-
-# 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 '');
- my $beginning = eval "$complex_format_map->{$name}->{'begin'}";
- if ($@ ne '')
- {
- print STDERR "$ERROR Evaluation of $complex_format_map->{$name}->{'begin'}: $@";
- $beginning = '';
-
- }
- my $end = eval "$complex_format_map->{$name}->{'end'}";
- if ($@ ne '')
- {
- print STDERR "$ERROR Evaluation of $complex_format_map->{$name}->{'end'}: $@";
- $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 $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 ($result, $result_text, $message);
- return (0, undef, undef);
-}
-
-sub t2h_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 = &$I('%{style} %{number}', { 'style' => $style, 'number' => $nr});
- }
- else
- {
- $style = $nr;
- }
- }
-
- if (defined($float->{'caption_texi'}))
- {
- @$caption_lines = @{$float->{'caption_texi'}};
- if (defined($style))
- {
- $caption_lines->[0] = '@strong{' . &$I('%{style}: %{caption_first_line}', { 'style' => $style, 'caption_first_line' => $caption_lines->[0] });
- }
- else
- {
- $caption_lines->[0] = '@strong{' . $caption_lines->[0];
- }
- push @$caption_lines, "}\n";
- }
- elsif (defined($style))
- {
- $caption_lines->[0] = '@strong{' . $style . '}' . "\n";
- }
- if (defined($float->{'shortcaption_texi'}))
- {
- @$shortcaption_lines = @{$float->{'shortcaption_texi'}};
- if (defined($style))
- {
- $shortcaption_lines->[0] = '@strong{' . &$I('%{style}: %{shortcaption_first_line}', { 'style' => $style, 'shortcaption_first_line' => $shortcaption_lines->[0] });
- }
- else
- {
- $shortcaption_lines->[0] = '@strong{' . $shortcaption_lines->[0];
- }
- push @$shortcaption_lines, "}\n";
- }
- elsif (defined($style))
- {
- $shortcaption_lines->[0] = '@strong{' . $style . '}' . "\n";
- }
- return ($caption_lines, $shortcaption_lines);
-}
-
-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 '<div class="float">' . "$label\n" . $text . '</div>' . $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'};
- if (defined($float->{'nr'}))
- {
- my $nr = $float->{'nr'};
- if ($style ne '')
- {
- $style = &$I('%{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'}} ];
- }
- elsif (defined($float->{'caption_texi'}))
- {
- return [ @{$float->{'caption_texi'}} ];
- }
- return [ ];
-}
-
-sub t2h_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 t2h_default_listoffloats($$$)
-{
- my $style_texi = shift;
- my $style = shift;
- my $float_entries = shift;
-
- my $result = "<dl class=\"listoffloats\">\n" ;
- foreach my $float_entry (@$float_entries)
- {
- $result .= $float_entry;
- }
- return $result . "</dl>\n";
-}
-
-# This function is used to protect characters which are special in html
-# in inline text: &, ", <, and >.
-#
-# argument:
-# text to be protected
-sub t2h_default_protect_text($)
-{
- my $text = shift;
- $text =~ s/&/&/g;
- $text =~ s/</</g;
- $text =~ s/>/>/g;
- $text =~ s/\"/"/g;
- return $text;
-}
-
-
-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 $text = shift;
- my $in_raw_text = shift;
- my $in_preformatted = shift;
- my $in_code = shift;
- my $style_stack = shift;
- $text = uc($text) if (in_small_caps($style_stack));
- $text = &$protect_text($text) unless($in_raw_text);
- 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 ?
- {
- $text =~ s/``/"/g;
- $text =~ s/''/"/g;
- }
- else
- {
- $text =~ s/``/"/g;
- $text =~ s/''/"/g;
- }
- # temporary reuse '' to store --- !....
- # FIXME won't '---' be handled wrongly?
- # FIXME really do that in raw text?
- $text =~ s/---/''/g;
- $text =~ s/--/-/g;
- $text =~ s/''/--/g;
- }
- }
- 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 t2h_default_anchor($;$$$)
-{
- my $name = shift;
- my $href = shift;
- my $text = shift;
- my $attributes = shift;
-#print STDERR "!$name!$href!$text!$attributes!\n";
- if (!defined($attributes) or ($attributes !~ /\S/))
- {
- $attributes = '';
- }
- else
- {
- $attributes = ' ' . $attributes;
- }
- $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 "<a ${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 t2h_default_def_item($)
-{
- my $text = shift;
- if ($text =~ /\S/)
- {
- if (! $DEF_TABLE)
- {
- return '<dd>' . $text . '</dd>';
- }
- else
- {
- return '<tr><td colspan="2">' . $text . '</td></tr>';
- }
- }
- return '';
-}
-
-sub t2h_default_definition_category($$$)
-{
- my $name = shift;
- my $class = shift;
- my $style = shift;
- return ($name) if (!defined($class) or $class =~ /^\s*$/);
- if ($style eq 'f')
- {
- return &$I('%{name} on %{class}', { 'name' => $name, 'class' => $class });
- }
- elsif ($style eq 'v')
- {
- return &$I('%{name} of %{class}', { 'name' => $name, 'class' => $class });
- }
- else
- {
- return $name;
- }
-}
-
-# 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;
- 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 t2h_default_menu($)
-{
- my $text = shift;
- if ($text =~ /\S/)
- {
- return "<table class=\"menu\" border=\"0\" cellspacing=\"0\">\n"
- . $text . "</table>\n";
- }
-}
-
-# a simple menu entry ref in case we aren't in a standard menu context
-sub t2h_default_simple_menu_link($$$$$$)
-{
- my $entry = shift;
- my $preformatted = shift;
- my $href = shift;
- my $node = shift;
- my $name = shift;
- my $ending = shift;
- $ending = '' if (!defined($ending));
- if (($entry eq '') or $NODE_NAME_IN_MENU or $preformatted)
- {
- $name .= ':' if ($name ne '');
- $entry = "$MENU_SYMBOL$name$node";
- }
- $entry = &$anchor('', $href, $entry) if ($href);
- $entry .= $ending if ($preformatted);
- $entry .= ' ' unless $preformatted;
- return $entry;
-}
-
-# 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 $name = shift;
- my $ending = shift;
-#print STDERR "MENU_LINK\n";
- if (($entry eq '') or $NODE_NAME_IN_MENU or $state->{'preformatted'})
- {
- $name .= ':' if ($name ne '');
- $entry = "$MENU_SYMBOL$name$node";
- }
- $entry = &$anchor ('', $href, $entry) if (defined($href));
- return $entry if ($SIMPLE_MENU);
- if ($state->{'preformatted'})
- {
- return '<tr><td>' . main::do_preformatted($entry . $ending, $state);
- }
- return "<tr><td align=\"left\" valign=\"top\">$entry</td><td> </td>";
-}
-
-sub 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, 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.
-sub t2h_default_menu_description($$$)
-{
- my $text = shift;
- my $state = shift;
- my $element_text = shift;
- return $text if ($SIMPLE_MENU);
-#print STDERR "MENU_DESCRIPTION element_text!$element_text, text!$text\n";
- if ($state->{'preformatted'})
- {
- return main::do_preformatted($text, $state) . '</td></tr>';
- }
- elsif ($AVOID_MENU_REDUNDANCY)
- {
- $text = '' if (simplify_text($element_text) eq simplify_text($text));
- }
- return "<td align=\"left\" valign=\"top\">$text</td></tr>\n";
-}
-
-# a menu comment (between menu lines)
-# formats the container of a menu comment. A menu comment is any text
-# appearing between menu lines, either separated by an empty line from
-# the preceding menu entry, or a text beginning at the first character
-# of the line (text not at the very beginning of the line is considered to
-# be the continuation of a menu entry description text).
-#
-# The text itself is considered to be in a preformatted environment
-# with name 'menu-commment' and with style $MENU_PRE_STYLE.
-#
-# argument
-# text contained in the menu comment.
-sub t2h_default_menu_comment($)
-{
- my $text = shift;
- return $text if ($SIMPLE_MENU);
- if ($text =~ /\S/)
- {
- return "<tr><th colspan=\"3\" align=\"left\" valign=\"top\">$text</th></tr>";
- }
- return '';
-}
-
-# 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'
-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 = $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;
- if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file}))
- {
- if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file}->{'split'}))
- {
- $target_split = 1;
- $href_split = $Texi2HTML::THISDOC{'htmlxref'}->{$file}->{'split'}->{'href'};
- }
- if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file}->{'mono'}))
- {
- $target_mono = 1;
- $href_mono = $Texi2HTML::THISDOC{'htmlxref'}->{$file}->{'mono'}->{'href'};
- }
- }
-
- if ((not $target_mono) and (not $target_split))
- { # nothing specified for that manual, use default
- $target_split = $default_target_split;
- }
- elsif ($target_split and $target_mono)
- { # depends on the splitting of the manual
- $target_split = $SPLIT;
- }
- elsif ($target_mono)
- { # only mono specified
- $target_split = 0;
- }
-
- if ($target_split)
- {
- if (defined($href_split))
- {
- $file = "$href_split";
- }
- elsif (defined($EXTERNAL_DIR))
- {
- $file = "$EXTERNAL_DIR/$file";
- }
- elsif ($SPLIT)
- {
- $file = "../$file";
- }
- $file .= "/";
- }
- else
- {# target not split
- if (defined($href_mono))
- {
- $file = "$href_mono";
- }
- else
- {
- if (defined($EXTERNAL_DIR))
- {
- $file = "$EXTERNAL_DIR/$file";
- }
- elsif ($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)
- {
- return $file . $TOP_NODE_FILE . '.' . $NODE_FILE_EXTENSION . '#Top';
- # or ?
- #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 if ($node =~ /^top$/i);
- 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.
-# node and file name formatted according to the convention used in info
-# '(file)node' and no node means the Top node.
-# href linking to the html page containing the referenced node. A typical
-# use for this href is a href attribute in an <a> element
-# an optionnal cross reference name
-sub t2h_default_external_ref($$$$$$)
-{
- my $type = shift;
- my $section = shift;
- my $book = shift;
- my $file_node = shift;
- my $href = shift;
- my $cross_ref = shift;
-
- $file_node = "$cross_ref: $file_node" if (($file_node ne '') and ($cross_ref ne ''));
- $file_node = &$anchor('', $href, $file_node) if ($file_node ne '');
-
- # Yes, this is ugly, but this helps internationalization
- if ($type eq 'pxref')
- {
- if (($book ne '') and ($file_node ne ''))
- {
- return &$I('see %{node_file_href} section `%{section}\' in @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('see %{node_file_href} @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book });
- }
- elsif ($book ne '')
- {
- return &$I('see section `%{section}\' in @cite{%{book}}', { 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('see @cite{%{book}}', { 'book' => $book });
- }
- elsif ($file_node ne '')
- {
- return &$I('see %{node_file_href}', { 'node_file_href' => $file_node });
- }
- }
- if ($type eq 'xref')
- {
- if (($book ne '') and ($file_node ne ''))
- {
- return &$I('See %{node_file_href} section `%{section}\' in @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('See %{node_file_href} @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book });
- }
- elsif ($book ne '')
- {
- return &$I('See section `%{section}\' in @cite{%{book}}', { 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('See @cite{%{book}}', { 'book' => $book });
- }
- elsif ($file_node ne '')
- {
- return &$I('See %{node_file_href}', { 'node_file_href' => $file_node });
- }
- }
- if ($type eq 'ref')
- {
- if (($book ne '') and ($file_node ne ''))
- {
- return &$I('%{node_file_href} section `%{section}\' in @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('%{node_file_href} @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book });
- }
- elsif ($book ne '')
- {
- return &$I('section `%{section}\' in @cite{%{book}}', { 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('@cite{%{book}}', { 'book' => $book });
- }
- elsif ($file_node ne '')
- {
- return &$I('%{node_file_href}', { 'node_file_href' => $file_node });
- }
- }
- 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;
-
- if (! $SHORT_REF)
- {
- $name = &$anchor('', $href, $name);
- if ($type eq 'pxref')
- {
- return &$I('see section %{reference_name}', { 'reference_name' => $name }) if ($is_section);
- return &$I('see %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'xref')
- {
- return &$I('See section %{reference_name}', { 'reference_name' => $name }) if ($is_section);
- return &$I('See %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'ref')
- {
- return &$I('%{reference_name}', { 'reference_name' => $name });
- }
- }
- else
- {
- $name = &$anchor('', $href, $short_name);
- if ($type eq 'pxref')
- {
- return &$I('see %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'xref')
- {
- return &$I('See %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'ref')
- {
- return &$I('%{reference_name}', { 'reference_name' => $name });
- }
- }
- return '';
-}
-
-sub teletyped_in_stack($)
-{
- my $stack = shift;
- foreach my $element(reverse(@$stack))
- {
- if ($complex_format_map->{$element})
- {
- if (!$complex_format_map->{$element}->{'pre_style'})
- {
- return 1;
- }
- else
- {
- return 0;
- }
- }
- }
- return 0;
-}
-
-# 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 $formatted_command = shift;
- my $style_stack = shift;
- #print STDERR "-> $format (@$style_stack)\n";
- $formatted_command = '' if (!defined($formatted_command) or
- exists($special_list_commands{$format}->{$command}));
- if (teletyped_in_stack($style_stack))
- {
- $text .= '</tt>';
- $formatted_command = '<tt>' . $formatted_command;
- }
- $text .= "\n" . $index_label if (defined($index_label));
- return '<dt>' . $formatted_command . $text . '</dt>' . "\n";
-}
-
-# format text on the line following the @item line (in table, vtable and ftable)
-sub t2h_default_table_line($)
-{
- my $text = shift;
-
- if ($text =~ /\S/)
- {
- return '<dd>' . $text . '</dd>' . "\n";
- }
- return '';
-}
-
-# row in multitable
-sub t2h_default_row($$)
-{
- my $text = shift;
- my $macro = shift;
-
- if ($text =~ /\S/)
- {
- if ($macro eq 'headitem')
- {
- return '<thead><tr>' . $text . '</tr></thead>' . "\n";
- }
- return '<tr>' . $text . '</tr>' . "\n";
- }
- return '';
-}
-
-# cell in multitable
-sub t2h_default_cell($$)
-{
- my $text = shift;
- my $row_macro = shift;
-
- if ($row_macro eq 'headitem')
- {
- return '<th>' . $text . '</th>';
- }
- return '<td>' . $text . '</td>';
-}
-
-# 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;
-
- $formatted_command = '' if (!defined($formatted_command) or
- exists($special_list_commands{$format}->{$command}));
- if ($text =~ /\S/)
- {
- return '<li>' . $formatted_command . $text . '</li>';
- }
- return '';
-}
-
-sub t2h_default_table_list($$$$$$)
-{
- my $format = shift;
- my $text = shift;
- my $command = shift;
- my $formatted_command = shift;
- my $item_nr = shift;
- my $enumerate_style = shift;
- my $number = shift;
- $formatted_command = '' if (!defined($formatted_command) or
- exists($special_list_commands{$format}->{$command}));
- if ($format eq 'itemize')
- {
- return "<ul>\n" . $text . "</ul>\n" if ($command eq 'bullet');
- return "<ul$TOC_LIST_ATTRIBUTE>\n" . $text . "</ul>\n";
- }
-}
-
-# an html comment
-sub t2h_default_comment($)
-{
- my $text = shift;
- $text =~ s/--+/-/go;
- return '<!-- ' . $text . ' -->' . "\n";
-}
-
-sub t2h_collect_styles($)
-{
- my $stack = shift;
- my @result = ();
- foreach my $style (reverse(@$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 t2h_get_attribute($;$)
-{
- my $command = shift;
- my $map_ref = shift;
- $map_ref = \%style_map if (!defined($map_ref));
- return '' unless (defined($map_ref->{$command}));
- if ((ref($map_ref->{$command}) eq 'HASH')
- and exists($map_ref->{$command}->{'attribute'}))
- {
- return $map_ref->{$command}->{'attribute'};
- }
- elsif ($map_ref->{$command} !~ /^&/)
- {
- my $attribute = $map_ref->{$command};
- $attribute =~ s/^\"//;
- return $attribute;
- }
- return '';
-}
-
-sub t2h_begin_style($$;$)
-{
- my $command = shift;
- my $text = shift;
- my $map_ref = shift;
- my $attribute = t2h_get_attribute($command,$map_ref);
- $attribute = "<$attribute>" if ($attribute ne '');
- return $attribute.$text;
-}
-
-sub t2h_end_style($$;$)
-{
- my $command = shift;
- my $text = shift;
- my $map_ref = shift;
- my $attribute = t2h_get_attribute($command,$map_ref);
- if ($attribute =~ /^(\w+)/)
- {
- $attribute = $1;
- }
- $attribute = "</$attribute>" if ($attribute ne '');
- return $text.$attribute;
-}
-
-# 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*$/);
- foreach my $style(t2h_collect_styles($command_stack_at_begin))
- {
- $text = t2h_begin_style($style, $text);
- }
- foreach my $style(t2h_collect_styles($command_stack_at_end))
- {
- $text = t2h_end_style($style, $text);
- }
- 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 $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 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 '');
- $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++;
- }
- foreach my $style(t2h_collect_styles($command_stack_at_begin))
- {
- $text = t2h_begin_style($style, $text, \%style_map_pre);
- }
- foreach my $style(t2h_collect_styles($command_stack_at_end))
- {
- $text = t2h_end_style($style, $text, \%style_map_pre);
- }
- return "<pre class=\"$class\">".$text."</pre>";
-}
-
-# This function formats a heading for an element
-#
-# argument:
-# an element. It is a hash reference for a node or a sectionning command.
-# 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 sectionning element name, raisesections and lowersections
-# taken into account
-sub t2h_default_heading($)
-{
- my $element = shift;
- my $level = 3;
- if (!$element->{'node'})
- {
- $level = $element->{'level'};
- }
- $level = 1 if ($level == 0);
- my $text = $element->{'text'};
- return '' if ($text !~ /\S/);
- my $class = $element->{'tag_level'};
- $class = 'unnumbered' if ($class eq 'top');
- if (defined($element->{'tocid'}) and $TOC_LINKS)
- {
- $text = &$anchor ('', "$Texi2HTML::THISDOC{'toc_file'}#$element->{'tocid'}", $text);
- }
- my $align = '';
- $align = ' align="center"' if ($element->{'tag'} eq 'centerchap');
- return "<h$level class=\"$class\"$align> $text </h$level>\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;
- if ($style eq 'verbatim' or $style eq 'tex')
- {
- return "<pre class=\"$style\">" . &$protect_text($text) . '</pre>';
- }
- elsif ($style eq 'html')
- {
- return $text;
- }
- else
- {
- warn "$WARN (bug) unknown style $style\n";
- return &$protect_text($text);
- }
-}
-
-# raw environment when removing texi (in comments)
-sub t2h_default_raw_no_texi($$)
-{
- my $style = shift;
- my $text = shift;
- return $text;
-}
-
-# 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 $state = shift;
-
- unshift (@$lines, '<h3>' .
- &$anchor($footnote_id, $document_file . "#$place_id",
- "($number_in_doc)")
- . "</h3>\n");
- 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 t2h_default_foot_section($)
-{
- my $lines = shift;
- unshift (@$lines, "<div class=\"footnote\">\n" ,"$DEFAULT_RULE\n", "<h3>" . &$I('Footnotes') . "</h3>\n");
- push (@$lines, "</div>\n");
- return $lines;
-}
-
-sub t2h_default_image_files($$)
-{
- my $base = shift;
- my $extension = shift;
- my @files = ();
- return @files if (!defined($base) or ($base eq ''));
- push @files,"$base.$extension" if (defined($extension) and ($extension ne ''));
- foreach my $ext (@IMAGE_EXTENSIONS)
- {
- push @files, "$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;
-
- if (!defined($file_path) or $file_path eq '')
- {
- if (defined($extension) and $extension ne '')
- {
- $file = "$base.$extension";
- }
- else
- {
- $file = "$base.jpg";
- }
- main::echo_warn ("no image file for $base, (using $file)");
- }
- $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\">";
-}
-
-# address put in footer describing when was generated and who did the manual
-sub t2h_default_address($$)
-{
- my $user = shift;
- my $date = shift;
- $user = '' if (!defined($user));
- $date = '' if (!defined($date));
- if (($user ne '') and ($date ne ''))
- {
- return &$I('by @emph{%{user}} on @emph{%{date}}', { 'user' => $user,
- 'date' => $date });
- }
- elsif ($user ne '')
- {
- return &$I('by @emph{%{user}}', { 'user' => $user });
- }
- elsif ($date ne '')
- {
- return &$I('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
-# FIXME document the remaining
-sub t2h_default_index_entry_label($$)
-{
- my $identifier = shift;
- my $preformatted = shift;
-
- return '' if (!defined($identifier) or ($identifier !~ /\S/));
- my $label = &$anchor($identifier);
- return $label . "\n" if (!$preformatted);
- return $label;
-}
-
-# process definition commands line @deffn for example
-sub t2h_default_def_line($$$$$)
-{
- my $category = shift;
- my $name = shift;
- my $type = shift;
- my $arguments = shift;
- my $index_label = shift;
- $index_label = '' if (!defined($index_label));
- $category = '' if (!defined($category) or ($category =~ /^\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 = '<i>' . $arguments . '</i>';
- }
- my $type_name = '';
- $type_name = " $type" if ($type ne '');
- $type_name .= ' <b>' . $name . '</b>' if ($name ne '');
- $type_name .= $arguments . "\n";
- if (! $DEF_TABLE)
- {
- return '<dt>'. '<u>' . $category . ':</u>' . $type_name . $index_label . "</dt>\n";
- }
- else
- {
-
- return "<tr>\n<td align=\"left\">" . $type_name .
- "</td>\n<td align=\"right\">" . $category . $index_label . "</td>\n" . "</tr>\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 "<table class=\"cartouche\" border=\"1\"><tr><td>\n" . $text . "</td></tr></table>\n";
- }
- return '';
-}
-
-# 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;
- 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;
- 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;
- close (IDXFILE);
-}
-
-sub t2h_default_sp($$)
-{
- my $number = shift;
- my $preformatted = shift;
- return "<br>\n" x $number if (!$preformatted);
- 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;
-
- my $attribute = $command;
- my $opening = "<$attribute>";
- if (defined($explanation_simply_formatted))
- {
- $opening = "<$attribute title=\"$explanation_simply_formatted\">";
- }
- if ($with_explanation)
- {
- return &$I('%{acronym_like} (%{explanation})', {'acronym_like' => $opening . $acronym_text . "</$attribute>", 'explanation' => $explanation_text})
- }
- else
- {
- return $opening . $acronym_text . "</$attribute>";
- }
-}
-
-sub t2h_default_quotation_prepend_text($)
-{
- my $text = shift;
- return undef if (!defined($text) or $text =~ /^$/);
-# FIXME if there is a @ protecting the end of line the result is
-# @b{some text @:}
-# It is likely not to be what was intended
- chomp($text);
- return &$I('@b{%{quotation_arg}:} ', {'quotation_arg' => $text}, {'keep_texi' => 1});
-}
-
-sub t2h_default_quotation($$$)
-{
- my $text = shift;
- my $argument_text = shift;
- my $argument_text_texi = shift;
-# my $argument_style_texi = shift;
-# my $argument_style_id = shift;
-# if (defined($argument_text))
-# {
-# return '<blockquote>' . &$I('%{style}:%{quotation}',
-# {'style' => $argument_text, 'quotation' => $text}) . '</blockquote>' ;
-# }
- return '<blockquote>' . $text . "</blockquote>\n";
-}
-
-# 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 "<table border=\"0\" class=\"index-$name\">\n" .
- "<tr><td></td><th align=\"left\">" . &$I('Index Entry') . "</th><th align=\"left\"> " . &$I('Section') . "</th></tr>\n"
- . "<tr><td colspan=\"3\"> $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 t2h_default_index_letter($$$)
-{
- my $letter = shift;
- my $id = shift;
- my $text = shift;
- return '<tr><th>' . &$anchor($id,'',&$protect_text($letter)) .
- "</th><td></td><td></td></tr>\n" . $text .
- "<tr><td colspan=\"3\"> $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 t2h_default_index_entry($$$$)
-{
- my $text_href = shift;
- my $entry = shift;
- my $element_href = shift;
- my $element_text = shift;
-
- return '<tr><td></td><td valign="top">' . &$anchor('', $text_href, $entry)
- . '</td><td valign="top">' . &$anchor('', $element_href, $element_text)
- . "</td></tr>\n";
-}
-
-
-sub t2h_default_copying_comment($)
-{
- my $copying_lines = shift;
- my $text = &$comment(main::remove_texi(@$copying_lines));
- return $text;
-}
-# 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 t2h_default_summary_letter($$$)
-{
- my $letter = shift;
- my $file = shift;
- my $identifier = shift;
- return &$anchor('', $file . '#' . $identifier, '<b>' . &$protect_text($letter) . '</b>', 'class="summary-letter"');
-}
-
-# 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 = '';
- $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\">" . &$I('Jump to') .": </th><td>" .
- $nonalpha_text . $join . $alpha_text . "</td></tr></table>\n";
-}
-
-# 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 =~ s/\s*$//;
- $texi =~ s/^\s*//;
- 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";
-}
-
-1;
-
-require "$ENV{T2H_HOME}/texi2html.init"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/texi2html.init" && -r "$ENV{T2H_HOME}/texi2html.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 $ENV{T2H_HOME}/translations.pl exists.
-#
-# @T2H_TRANSLATIONS_FILE@
-$LANGUAGES->{'de'} = {
- ' 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 ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => '@"Uber dieses Dokument',
- 'April' => 'April',
- 'August' => 'August',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Cover (top) of document' => '',
- 'Current Position' => '',
- 'Current section' => '',
- 'December' => 'Dezember',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => 'Februar',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => 'Fu@ss{}noten',
- 'Forward' => '',
- 'From 1.2.3 go to' => '',
- 'Go to' => '',
- 'Index' => 'Index',
- 'Index Entry' => '',
- 'January' => 'Januar',
- 'July' => 'Juli',
- 'Jump to' => '',
- 'June' => 'Juni',
- 'Last' => '',
- 'Last section in reading order' => '',
- 'March' => 'M@"arz',
- 'May' => 'Mai',
- 'Menu:' => '',
- 'Name' => '',
- 'Next' => '',
- 'Next chapter' => '',
- 'Next node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => 'November',
- 'October' => 'Oktober',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => 'September',
- 'Short Table of Contents' => 'Kurzes Inhaltsverzeichniss',
- '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' => '',
- 'T2H_today' => '',
- 'Table of Contents' => 'Inhaltsverzeichniss',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- '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' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'current' => '',
- 'on @emph{%{date}}' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'de'} = {
- 'See' => 'Siehe',
- 'section' => 'Abschnitt',
- 'see' => 'siehe'
- };
-
-
-$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 ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => '',
- 'April' => '',
- 'August' => '',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Cover (top) of document' => '',
- 'Current Position' => '',
- 'Current section' => '',
- 'December' => '',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => '',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => '',
- 'Forward' => '',
- '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 node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => '',
- 'October' => '',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- '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' => '',
- 'T2H_today' => '%s, %d %d',
- 'Table of Contents' => '',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- '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' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'current' => '',
- 'on @emph{%{date}}' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'en'} = {};
-
-
-$LANGUAGES->{'es'} = {
- ' 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 ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => '',
- 'April' => 'abril',
- 'August' => 'agosto',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Cover (top) of document' => '',
- 'Current Position' => '',
- 'Current section' => '',
- 'December' => 'diciembre',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => 'febrero',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => '',
- 'Forward' => '',
- 'From 1.2.3 go to' => '',
- 'Go to' => '',
- 'Index' => 'Index',
- 'Index Entry' => '',
- 'January' => 'enero',
- 'July' => 'julio',
- 'Jump to' => '',
- 'June' => 'junio',
- 'Last' => '',
- 'Last section in reading order' => '',
- 'March' => 'marzo',
- 'May' => 'mayo',
- 'Menu:' => '',
- 'Name' => '',
- 'Next' => '',
- 'Next chapter' => '',
- 'Next node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => 'noviembre',
- 'October' => 'octubre',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => 'septiembre',
- 'Short Table of Contents' => 'Resumen del Contenido',
- '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' => '',
- 'T2H_today' => '',
- 'Table of Contents' => '@\'{@dotless{I}}ndice General',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- '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' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'current' => '',
- 'on @emph{%{date}}' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'es'} = {
- 'See' => 'V@\'ease',
- 'section' => 'secci@\'on',
- 'see' => 'v@\'ase'
- };
-
-
-$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 section un-deux-trois } dans un document dont la structure est :',
- ' Up ' => 'Plus haut',
- '%{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}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '%{node_file_href} section `%{section}\' dans @cite{%{book}}',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- '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',
- '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 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',
- '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 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',
- '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',
- 'Overview:' => 'Vue d\'ensemble@ :',
- 'Prev' => '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 %{node_file_href}' => 'Voir %{node_file_href}',
- 'See %{node_file_href} @cite{%{book}}' => 'Voir %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'Voir @cite{%{book}}',
- 'See section %{reference_name}' => 'Voir la section %{reference_name}',
- 'See section `%{section}\' in @cite{%{book}}' => 'Voir la section `%{section}\' dans @cite{%{book}}',
- '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',
- 'T2H_today' => 'le %2$d %1$s %3$d',
- '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 by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} @emph{%{date}} en utilisant @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} en utilisant @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated on @i{%{date}} using @uref{%{program_homepage}, @i{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e @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' => '',
- 'Untitled Document' => 'Document sans titre',
- 'Up' => 'Monter',
- 'Up node' => 'N@oe{}ud au dessus',
- 'Up section' => 'Section sup@\'erieure',
- 'by @emph{%{user}}' => 'par @emph{%{user}}',
- 'by @emph{%{user}} on @emph{%{date}}' => 'par @emph{%{user}} @emph{%{date}}',
- 'current' => 'courante',
- 'on @emph{%{date}}' => '@emph{%{date}}',
- 'section `%{section}\' in @cite{%{book}}' => 'section `%{section}\' dans @cite{%{book}}',
- 'see %{node_file_href}' => 'voir %{node_file_href}',
- 'see %{node_file_href} @cite{%{book}}' => 'voir %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'voir @cite{%{book}}',
- 'see section %{reference_name}' => 'voir la section %{reference_name}',
- 'see section `%{section}\' in @cite{%{book}}' => 'voir la section `%{section}\' dans @cite{{book}}',
- 'unknown' => 'inconnu'
- };
-
-$T2H_OBSOLETE_STRINGS->{'fr'} = {
- ' This document was generated %{who_and_when_generated} using %{program_homepage_href}.' => ' Ce document a été généré %{who_and_when_generated} en utilisant %{program_homepage_href}.',
- ' 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:' => ' Dans cet exemple on est à <strong> Sous section un-deux-trois </strong> dans un document dont la structure est :',
- '%{node_file_href} section `%{section}\' in <cite>%{book}</cite>' => '%{node_file_href} section `%{section}\' dans <cite>%{book}</cite>',
- 'See' => 'Voir',
- 'See %{node_file_href} <cite>%{book}</cite>' => 'Voir %{node_file_href} <cite>%{book}</cite>',
- 'See %{node_file_href} section `%{section}\' in <cite>%{book}</cite>' => 'Voir %{node_file_href} section `%{section}\' dans <cite>%{book}</cite>',
- 'See <cite>%{book}</cite>' => 'Voir <cite>%{book}</cite>',
- 'See section `%{section}\' in <cite>%{book}</cite>' => 'Voir la section `%{section}\' dans <cite>%{book}</cite>',
- 'This document was generated by <i>%{user}</i> on <i>%{date}</i> using %{program_homepage_href}.' => 'Ce document a été généré par <i>%{user}</i> <i>%{date}</i> en utilisant %{program_homepage_href}.',
- 'This document was generated by <i>%{user}</i> using %{program_homepage_href}.' => 'Ce document a été généré par <i>%{user}</i> en utilisant %{program_homepage_href}.',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} @emph{%{date}} en utilisant %{program_homepage_href}.',
- 'This document was generated by @emph{%{user}} using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} en utilisant %{program_homepage_href}.',
- 'This document was generated on <i>%{date}</i> using %{program_homepage_href}.' => 'Ce document a été généré <i>%{date}</i> en utilisant %{program_homepage_href}.',
- 'This document was generated on @emph{%{date}} using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e @emph{%{date}} en utilisant %{program_homepage_href}.',
- 'This document was generated on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e @emph{%{date}} en utilisant @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e en utilisant %{program_homepage_href}.',
- 'about (help)' => '@`a propos (page d\'aide)',
- 'about (this page)' => 'a propos (cette page)',
- 'beginning of this chapter or previous chapter' => 'd@\'ebut de ce chapitre ou chapitre pr@\'ec@\'edent',
- 'by <i>%{user}</i>' => 'par <i>%{user}</i>',
- 'by <i>%{user}</i> on <i>%{date}</i>' => 'par <i>%{user}</i> <i>%{date}</i>',
- 'concept index' => 'index',
- 'cover (top) of document' => 'couverture (top) du document',
- 'current section' => 'section actuelle',
- 'first section in reading order' => 'premi@`e section dans l\'ordre de lecture',
- 'following node' => 'node suivant',
- 'index' => 'index',
- 'last section in reading order' => 'derni@`ere section dans l\'ordre de lecture',
- 'next chapter' => 'chapitre suivant',
- 'next node' => 'node suivant',
- 'next section in reading order' => 'section suivante dans l\'ordre de lecture',
- 'next section on same level' => 'section suivante au m@^eme niveau',
- 'node following in node reading order' => 'node suivant dans l\'ordre des nodes',
- 'node up' => 'node au dessus',
- 'on <i>%{date}</i>' => '<i>%{date}</i>',
- 'previous node' => 'node 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',
- 'section `%{section}\' in <cite>%{book}</cite>' => 'section `%{section}\' dans <cite>%{book}</cite>',
- 'see' => 'voir',
- 'see %{node_file_href} <cite>%{book}</cite>' => 'voir %{node_file_href} <cite>%{book}</cite>',
- 'see %{node_file_href} section `%{section}\' in <cite>%{book}</cite>' => 'voir %{node_file_href} section `%{section}\' dans <cite>%{book}</cite>',
- 'see <cite>%{book}</cite>' => 'voir <cite>%{book}</cite>',
- 'see section `%{section}\' in <cite>%{book}</cite>' => 'voir la section `%{section}\' dans <cite>%{book}</cite>',
- 'short table of contents' => 'table des mati@`eres r@\'esum@\'ee',
- 'table of contents' => 'table des mati@`eres',
- 'up node' => 'node au dessus',
- 'up section' => 'section sup@\'erieure'
- };
-
-
-$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 ' => '上',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '%{year}年%{month}月%{day}日',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => 'この文書について',
- 'April' => '4月',
- 'August' => '8月',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => 'ボタン',
- 'Contents' => '目次',
- 'Cover (top) of document' => '',
- 'Current Position' => '現在位置',
- 'Current section' => '',
- 'December' => '12月',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => '2月',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => '脚注',
- 'Forward' => '',
- '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 node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => '11月',
- 'October' => '10月',
- 'Overview' => '概要',
- 'Overview:' => '概要:',
- 'Prev' => '前',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '項',
- 'Section One' => '第1項',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => '9月',
- 'Short Table of Contents' => '簡略化した目次',
- 'Short table of contents' => '',
- 'Subsection One-Four' => '第1.4項',
- 'Subsection One-One' => '第1.1項',
- 'Subsection One-Three' => '第1.3項',
- 'Subsection One-Two' => '第1.2項',
- 'Subsubsection One-Two-Four' => '第1.2.4項',
- 'Subsubsection One-Two-One' => '第1.2.1項',
- 'Subsubsection One-Two-Three' => '第1.2.3項',
- 'Subsubsection One-Two-Two' => '第1.2.2項',
- 'T2H_today' => '%s, %d %d',
- 'Table of Contents' => '目次',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'この文書は@emph{%{user}}によって@emph{%{date}}に@uref{%{program_homepage}, @emph{%{program}}}を用いて生成されました。',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'この文書は@emph{%{user}}によって@uref{%{program_homepage}, @emph{%{program}}}を用いて生成されました。',
- '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' => '',
- 'by @emph{%{user}}' => '@emph{%{user}}',
- 'by @emph{%{user}} on @emph{%{date}}' => '@emph{%{user}}, @emph{%{date}',
- 'current' => '現在位置',
- 'on @emph{%{date}}' => '@emph{%{date}}',
- 'section `%{section}\' in @cite{%{book}}' => '@cite{%{book}}の `%{section}\' ',
- 'see %{node_file_href}' => '%{node_file_href}参照',
- 'see %{node_file_href} @cite{%{book}}' => '%{node_file_href} @cite{%{book}}参照',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => '不明'
- };
-
-$T2H_OBSOLETE_STRINGS->{'ja'} = {
- 'about (help)' => '使用法 (ヘルプ)',
- 'beginning of this chapter or previous chapter' => 'この章または前の章の冒頭',
- 'cover (top) of document' => '文書の表紙 (トップ)',
- 'current section' => '現在の節',
- 'first section in reading order' => '文書順で前の項',
- 'following node' => '次の節',
- 'index' => '見出し',
- 'last section in reading order' => '文書順で最後の項',
- 'next chapter' => '次の章',
- 'next node' => '次の節',
- 'next section in reading order' => '文書順で次の項',
- 'next section on same level' => '同じ階層にある次の項',
- 'node following in node reading order' => '文書順で次の節',
- 'node up' => '上の節へ',
- 'previous node' => '前の節',
- 'previous section in reading order' => '文書順で前の節',
- 'previous section on same level' => '同じ階層にある前の項',
- 'short table of contents' => '簡略化した目次',
- 'table of contents' => '文書の目次',
- 'up node' => '上の節',
- 'up section' => '上の項'
- };
-
-
-$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 ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => 'No translation available!',
- 'April' => 'April',
- 'August' => 'Augustus',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Cover (top) of document' => '',
- 'Current Position' => '',
- 'Current section' => '',
- 'December' => 'December',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => 'Februari',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => 'No translation available!',
- 'Forward' => '',
- '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 node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => 'November',
- 'October' => 'Oktober',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- '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' => '',
- 'T2H_today' => '',
- 'Table of Contents' => 'Inhoudsopgave',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- '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' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'current' => '',
- 'on @emph{%{date}}' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'nl'} = {
- 'See' => 'Zie',
- 'section' => 'sectie',
- 'see' => 'zie'
- };
-
-
-$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 ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => 'No translation available!',
- 'April' => 'april',
- 'August' => 'august',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Cover (top) of document' => '',
- 'Current Position' => '',
- 'Current section' => '',
- 'December' => 'desember',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => 'februar',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => 'No translation available!',
- 'Forward' => '',
- '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 node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => 'november',
- 'October' => 'oktober',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- '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' => '',
- 'T2H_today' => '',
- 'Table of Contents' => 'Innholdsfortegnelse',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- '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' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'current' => '',
- 'on @emph{%{date}}' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'no'} = {
- 'See' => 'Se',
- 'section' => 'avsnitt',
- 'see' => 'se'
- };
-
-
-$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 ',
- '%{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}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '%{node_file_href} se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => 'Sobre',
- 'About (help)' => 'Sobre (ajuda)',
- 'About This Document' => 'Sobre Esse Documento',
- 'April' => 'Abril',
- 'August' => 'Agosto',
- 'Back' => 'Volta',
- '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 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',
- '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 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',
- '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',
- 'Overview:' => 'Vis@~ao geral:',
- 'Prev' => 'Pr@\'evio',
- '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 %{node_file_href}' => 'Veja %{node_file_href}',
- 'See %{node_file_href} @cite{%{book}}' => 'Veja %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'Veja @cite{%{book}}',
- 'See section %{reference_name}' => 'Veja se@,{c}@~ao %{reference_name}',
- 'See section `%{section}\' in @cite{%{book}}' => 'Veja se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- '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',
- 'T2H_today' => '',
- '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 by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Esse documento foi gereado por @emph{%{user}} em @emph{%{date}} usando @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Esse documento foi gerado por @emph{%{user}} usando @uref{%{program_homepage}, @emph{%{program}}}.',
- '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',
- 'by @emph{%{user}}' => 'por @emph{%{user}}',
- 'by @emph{%{user}} on @emph{%{date}}' => 'por @emph{%{user}} em @emph{%{date}}',
- 'current' => 'atual',
- 'on @emph{%{date}}' => 'em @emph{%{date}}',
- 'section `%{section}\' in @cite{%{book}}' => 'se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- 'see %{node_file_href}' => 'veja %{node_file_href}',
- 'see %{node_file_href} @cite{%{book}}' => 'veja %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'veja @cite{%{book}}',
- 'see section %{reference_name}' => 'veja se@,{c}@~ao %{reference_name}',
- 'see section `%{section}\' in @cite{%{book}}' => 'veja se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- 'unknown' => 'desconhecido'
- };
-
-$T2H_OBSOLETE_STRINGS->{'pt'} = {
- 'See' => 'Veja',
- 'about (help)' => 'sobre (ajuda)',
- 'beginning of this chapter or previous chapter' => 'come@,{c}o desse cap@\'itulo ou cap@\'itulo anterior',
- 'cover (top) of document' => 'in@\'icio (topo) do documento',
- 'current section' => 'se@,{c}@~ao atual',
- 'first section in reading order' => 'primeira se@,{c}@~ao na ordem de leitura',
- 'following node' => 'nodo seguinte',
- 'index' => '@\'indice',
- 'last section in reading order' => '@\'ultima se@,{c}@~ao na ordem de leitura',
- 'next chapter' => 'pr@\'oximo cap@\'itulo',
- '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',
- 'node following in node reading order' => 'nodo seguinte na ordem de leitura de nodos',
- 'node up' => 'nodo acima',
- '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',
- 'see' => 'veja',
- 'short table of contents' => 'breve sum@\'ario',
- 'table of contents' => 'sum@\'ario',
- 'up node' => 'nodo acima',
- 'up section' => 'se@,{c}@~ao acima'
- };
-
-
-$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 ',
- '%{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}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '%{node_file_href} se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => 'Sobre',
- 'About (help)' => 'Sobre (ajuda)',
- 'About This Document' => 'Sobre Esse Documento',
- 'April' => 'Abril',
- 'August' => 'Agosto',
- 'Back' => 'Volta',
- '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 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',
- '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 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',
- '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',
- 'Overview:' => 'Vis@~ao geral:',
- 'Prev' => 'Pr@\'evio',
- '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 %{node_file_href}' => 'Veja %{node_file_href}',
- 'See %{node_file_href} @cite{%{book}}' => 'Veja %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'Veja @cite{%{book}}',
- 'See section %{reference_name}' => 'Veja se@,{c}@~ao %{reference_name}',
- 'See section `%{section}\' in @cite{%{book}}' => 'Veja se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- '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',
- 'T2H_today' => '',
- '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 by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Esse documento foi gereado por @emph{%{user}} em @emph{%{date}} usando @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Esse documento foi gerado por @emph{%{user}} usando @uref{%{program_homepage}, @emph{%{program}}}.',
- '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',
- 'by @emph{%{user}}' => 'por @emph{%{user}}',
- 'by @emph{%{user}} on @emph{%{date}}' => 'por @emph{%{user}} em @emph{%{date}}',
- 'current' => 'atual',
- 'on @emph{%{date}}' => 'em @emph{%{date}}',
- 'section `%{section}\' in @cite{%{book}}' => 'se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- 'see %{node_file_href}' => 'veja %{node_file_href}',
- 'see %{node_file_href} @cite{%{book}}' => 'veja %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'veja @cite{%{book}}',
- 'see section %{reference_name}' => 'veja se@,{c}@~ao %{reference_name}',
- 'see section `%{section}\' in @cite{%{book}}' => 'veja se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- 'unknown' => 'desconhecido'
- };
-
-$T2H_OBSOLETE_STRINGS->{'pt_BR'} = {
- 'See' => 'Veja',
- 'about (help)' => 'sobre (ajuda)',
- 'beginning of this chapter or previous chapter' => 'come@,{c}o desse cap@\'itulo ou cap@\'itulo anterior',
- 'cover (top) of document' => 'in@\'icio (topo) do documento',
- 'current section' => 'se@,{c}@~ao atual',
- 'first section in reading order' => 'primeira se@,{c}@~ao na ordem de leitura',
- 'following node' => 'nodo seguinte',
- 'index' => '@\'indice',
- 'last section in reading order' => '@\'ultima se@,{c}@~ao na ordem de leitura',
- 'next chapter' => 'pr@\'oximo cap@\'itulo',
- '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',
- 'node following in node reading order' => 'nodo seguinte na ordem de leitura de nodos',
- 'node up' => 'nodo acima',
- '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',
- 'see' => 'veja',
- 'short table of contents' => 'breve sum@\'ario',
- 'table of contents' => 'sum@\'ario',
- 'up node' => 'nodo acima',
- 'up section' => 'se@,{c}@~ao acima'
- };
-
-
-
-require "$ENV{T2H_HOME}/$translation_file"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/$translation_file" && -r "$ENV{T2H_HOME}/$translation_file");
-
-# 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 (\%style_map, \%style_map_pre, \%style_map_texi, \%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";
- }
-}
-
-#
-# Some functions used to override normal formatting functions in specific
-# cases. The user shouldn't want to change them, but can use them.
-#
-
-# 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 $style_stack = 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;
- }
- return Unicode::Normalize::NFC($text);
-}
-
-# 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 $style_stack = shift;
-
- $text = uc($text) if (in_small_caps($style_stack));
- return $text if ($USE_UNICODE);
-
- # if there is no unicode support, we do all the transformations here
- my $result = '';
- 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
- { # wild guess that should work for latin1
- $result .= '_' . '00' . lc(sprintf("%02x",ord($1)));
- }
- }
- else
- {
- print STDERR "Bug: unknown character in cross ref (likely in infinite loop)\n";
- 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
-
-use vars qw(
-%value
-);
-
-# 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
-%predefined_index
-%valid_index
-%sec2level
-%code_style_map
-%region_lines
-%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.
-
-#+++############################################################################
-# #
-# Initialization #
-# 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 $ENV{T2H_HOME}/texi2html.init
-# 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.5 2006/04/17 23:11:09 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");
- $self->{'opt'}->{$_} = ${$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 ${$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. '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 "$ENV{T2H_HOME}/MySimple.pm"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/MySimple.pm" && -r "$ENV{T2H_HOME}/MySimple.pm");
-
-#+++########################################################################
-# #
-# Initialization #
-# 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 $ENV{T2H_HOME}/T2h_i18n.pm
-# exists.
-
-# @T2H_I18N@
-#+##############################################################################
-#
-# T2h_i18n.pm: Internationalization for texi2html
-#
-# Copyright (C) 1999-2005 Patrice Dumas <dumas@centre-cired.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;
- }
-}
-
-
-my @MONTH_NAMES =
- (
- 'January', 'February', 'March', 'April', 'May',
- 'June', 'July', 'August', 'September', 'October',
- 'November', '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;
- # obachman: Let's do it as the Americans do
- #return($MONTH_NAMES->{$lang}[$mon] . ", " . $mday . " " . $year);
- #return(sprintf(&$I('T2H_today'), (get_string($MONTH_NAMES[$mon]), $mday, $year)));
- return &$I('%{month}, %{day} %{year}', { 'month' => get_string($MONTH_NAMES[$mon]),
- 'day' => $mday, 'year' => $year });
-}
-
-my $error_no_en = 0;
-sub get_string($;$$)
-{
- my $string = shift;
- my $arguments = shift;
- my $state = shift;
- 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
- {
- print STDERR "i18n: missing string $string\n" unless (exists ($T2H_LANGUAGES->{'en'}->{$string}));
- if (defined ($T2H_LANGUAGES->{$language}->{$string}) and
- ($T2H_LANGUAGES->{$language}->{$string} ne ''))
- {
- $string = $T2H_LANGUAGES->{$language}->{$string};
- }
- elsif (defined ($T2H_LANGUAGES->{'en'}->{$string}) and
- ($T2H_LANGUAGES->{'en'}->{$string} ne ''))
- {
- $string = $T2H_LANGUAGES->{'en'}->{$string};
- }
- }
- return main::substitute_line($string, $state) unless (defined($arguments) or !keys(%$arguments));
- # 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 %@{arg@}
- my $result = '';
- if (!$state->{'keep_texi'})
- {
- while ($string)
- {
- if ($string =~ s/^([^%]*)%//)
- {
- $result .= $1 if (defined($1));
- $result .= '%';
- if ($string =~ s/^%//)
- {
- $result .= '%';
- }
- elsif ($string =~ /^\{(\w+)\}/ and exists($arguments->{$1}))
- {
- $string =~ s/^\{(\w+)\}//;
- $result .= "\@\{$1\@\}";
- }
- else
- {
- $result .= '%';
- }
- next;
- }
- else
- {
- $result .= $string;
- last;
- }
- }
- $string = main::substitute_line($result, $state);
- }
- # now we substitute the arguments
- $result = '';
- while ($string)
- {
- if ($string =~ s/^([^%]*)%//)
- {
- $result .= $1 if (defined($1));
- if ($string =~ s/^%//)
- {
- $result .= '%';
- }
- elsif ($string =~ /^\{(\w+)\}/ and exists($arguments->{$1}))
- {
- $string =~ s/^\{(\w+)\}//;
- $result .= $arguments->{$1};
- }
- else
- {
- $result .= '%';
- }
- next;
- }
- else
- {
- $result .= $string;
- last;
- }
- }
- return $result;
-}
-
-1;
-require "$ENV{T2H_HOME}/T2h_i18n.pm"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/T2h_i18n.pm" && -r "$ENV{T2H_HOME}/T2h_i18n.pm");
-
-
-#########################################################################
-#
-# latex2html stuff
-#
-#---######################################################################
-
-{
-# 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 <dumas@centre-cired.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) ToLatex: Put "latex" code into a latex file
-# 2) ToHtml: Use latex2html to generate corresponding html code and images
-# 3) FromHtml: Extract generated code and images from latex2html run
-#
-
-# init l2h defaults for files and names
-
-# global variable used for caching
-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;
-my $docu_ext;
-my $ERROR = '***';
-
-##########################
-#
-# 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()
-{
- $docu_name = $Texi2HTML::THISDOC{'file_base_name'};
- $docu_rdir = $Texi2HTML::THISDOC{'out_dir'};
- $docu_ext = $Texi2HTML::THISDOC{'extension'};
- $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"))
- {
- warn "$ERROR l2h: Can't open latex file '$l2h_latex_file' for writing: $!\n";
- $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();
- $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;
- 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";
- 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";
- 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 =~ /\./)
- {
- warn "$ERROR Warning l2h: l2h_tmp dir contains a dot. Use /tmp, instead\n";
- $dotbug = 1;
- }
- }
- else
- {
- if (cwd() =~ /\./)
- {
- warn "$ERROR Warning l2h: current dir contains a dot. Use /tmp as l2h_tmp dir \n";
- $dotbug = 1;
- }
- }
- # fix it, if necessary and hope that it works
- $Texi2HTML::Config::L2H_TMP = "/tmp" 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 ? " -dir $docu_rdir" : " -no_subdir");
- # use l2h_tmp, if specified
- $call .= " -tmp $Texi2HTML::Config::L2H_TMP" if ($Texi2HTML::Config::L2H_TMP);
- # use a given html version if specified
- $call .= " -html_version $Texi2HTML::Config::L2H_HTML_VERSION" if ($Texi2HTML::Config::L2H_HTML_VERSION);
- # 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))
- {
- warn "$ERROR l2h: '${call}' did not succeed\n";
- 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.
-my %l2h_img; # associate src file to destination file
- # such that files are not copied twice
-my $image_count = 1;
-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 =~ /.*\.(.*)$/ && $1 ne $docu_ext)
- {
- $ext = ".$1";
- }
- else
- {
- warn "$ERROR: L2h image $src has invalid extension\n";
- next;
- }
- while (-e "$docu_rdir${docu_name}_${image_count}$ext")
- {
- $image_count++;
- }
- $dest = "${docu_name}_${image_count}$ext";
-# FIXME this isn't portable. + error condition not checked.
- system("cp -f $docu_rdir$src $docu_rdir$dest");
- $l2h_img{$src} = $dest;
-# FIXME error condition not checked
- unlink "$docu_rdir$src" unless ($debug);
- }
- $content =~ s/SRC="$src"/SRC="$dest"/g;
- }
- return $content;
-}
-
-my $extract_error_count = 0;
-my $invalid_counter_count = 0;
-
-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"))
- {
- warn "$ERROR l2h: Can't open $l2h_html_file for reading\n";
- 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.
- warn "$ERROR l2h(BUG): l2h_end $l2h_name $count not found\n";
- close(L2H_HTML);
- return 0;
- }
- }
- }
-
- # Not the same number of converted elements and retrieved elements
- if ($latex_converted_count != $html_converted_count)
- {
- warn "$ERROR l2h(BUG): waiting for $latex_converted_count elements found $html_converted_count\n";
- }
-
- warn "# l2h: Got $html_converted_count of $latex_count html contents\n"
- if ($verbose);
-
- close(L2H_HTML);
- return 1;
-}
-
-my $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;
- my $count = $global_count{"${style}_$counter"};
- ################################## begin debug section (incorrect counts)
- if (!defined($count))
- {
- # counter is undefined
- $invalid_counter_count++;
- warn "$ERROR l2h(BUG): undefined count for ${style}_$counter\n";
- 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++;
- warn "$ERROR l2h(BUG): Request of $count content which is out of valide range [0,$latex_count)\n";
- 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, once simple_format
- # may happen for anything else than lines
- 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++;
- warn "$ERROR l2h(BUG): can't extract content $count from html\n";
- # try simple (ordinary) substitution (without l2h)
- $result .= "<!-- l2h: ". __LINE__ . " use texi2html -->" if ($debug);
- $result .= main::substitute_text({}, $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, second pass and beginning of third pass
-#
-sub latex2html()
-{
- return unless($status);
- return unless ($status = finish_to_latex());
- return unless ($status = to_html());
- return unless ($status = init_from_html());
-}
-
-
-##############################
-# stuff for l2h caching
-#
-
-# 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";
- warn("$ERROR l2h Error: could not load $docu_rdir$l2h_cache_file: $@\n")
- 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"))
- {
- warn "$ERROR l2h Error: could not open $docu_rdir$l2h_cache_file for writing: $!\n";
- 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 "$ENV{T2H_HOME}/T2h_l2h.pm"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/T2h_l2h.pm" && -r "$ENV{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 $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 ###############################################
-$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;
-
-#
-# pre-defined indices
-#
-
-my %index_prefix_to_name = ();
-
-%index_names =
-(
- 'cp' => { 'prefix' => ['cp','c']},
- 'fn' => { 'prefix' => ['fn', 'f'], code => 1},
- 'vr' => { 'prefix' => ['vr', 'v'], code => 1},
- 'ky' => { 'prefix' => ['ky', 'k'], code => 1},
- 'pg' => { 'prefix' => ['pg', 'p'], code => 1},
- 'tp' => { 'prefix' => ['tp', 't'], code => 1}
-);
-
-foreach my $name(keys(%index_names))
-{
- foreach my $prefix (@{$index_names{$name}->{'prefix'}})
- {
- $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' );
-$::simple_map_ref = \%Texi2HTML::Config::simple_map;
-$::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_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;
-
-# 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
-#
-%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 sectionning command.
-# The value is a ref on an array containing at each index the corresponding
-# sectionning command name.
-my %level2sec;
-{
- my $sections = [ ];
- my $appendices = [ ];
- my $unnumbered = [ ];
- my $headings = [ ];
- foreach my $command (keys (%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}->[$sec2level{$command}] = $command;
- }
-}
-
-# this are synonyms
-$sec2level{'appendixsection'} = 2;
-# sec2level{'majorheading'} is also 1 and not 0
-$sec2level{'majorheading'} = 1;
-$sec2level{'chapheading'} = 1;
-$sec2level{'centerchap'} = 1;
-
-# sction to level hash not taking into account raise and lower sections
-my %reference_sec2level = %sec2level;
-
-# regions treated especially. The text for these regions is collected in the
-# corresponding array
-%region_lines = (
- 'titlepage' => [ ],
- 'documentdescription' => [ ],
- 'copying' => [ ],
-);
-
-# those macros aren't considered as beginning a paragraph
-my %no_line_macros = (
- 'macro' => 1,
- 'unmacro' => 1,
- 'rmacro' => 1,
- 'set' => 1,
- 'clear' => 1,
- 'titlefont' => 1,
- 'include' => 1,
- 'copying' => 1,
- 'end copying' => 1,
- 'tab' => 1,
- 'item' => 1,
- 'itemx' => 1,
- '*' => 1,
- 'float' => 1,
- 'end float' => 1,
- 'caption' => 1,
- 'shortcaption' => 1,
-);
-
-foreach my $key (keys(%Texi2HTML::Config::misc_command))
-{
- $no_line_macros{$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';
-}
-foreach my $complex_format (keys(%$Texi2HTML::Config::complex_format_map))
-{
- $format_type{$complex_format} = 'complex_format';
-}
-foreach my $table (('table', 'ftable', 'vtable', 'multitable'))
-{
- $format_type{$table} = 'table';
-}
-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{'cartouche'} = 'cartouche';
-
-$format_type{'float'} = 'float';
-
-$format_type{'quotation'} = 'quotation';
-
-$format_type{'group'} = 'group';
-
-foreach my $key (keys(%format_type))
-{
- $no_line_macros{$key} = 1;
- $no_line_macros{"end $key"} = 1;
-}
-
-foreach my $macro (keys(%Texi2HTML::Config::format_in_paragraph))
-{
- $no_line_macros{$macro} = 1;
- $no_line_macros{"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',
- 'menu_preformatted' => 'menu',
- );
-
-foreach my $key (keys(%fake_format))
-{
- $format_type{$key} = 'fake';
-}
-
-# raw formats which are expanded especially
-my @raw_regions = ('html', 'verbatim', 'tex', 'xml', 'docbook');
-
-# regions expanded or not depending on the value of this hash
-my %text_macros = (
- 'iftex' => 0,
- 'ignore' => 0,
- 'menu' => 0,
- 'ifplaintext' => 0,
- 'ifinfo' => 0,
- 'ifxml' => 0,
- 'ifhtml' => 0,
- 'ifdocbook' => 0,
- 'html' => 0,
- 'tex' => 0,
- 'xml' => 0,
- 'titlepage' => 1,
- 'documentdescription' => 1,
- 'copying' => 1,
- 'ifnothtml' => 1,
- 'ifnottex' => 1,
- 'ifnotplaintext' => 1,
- 'ifnotinfo' => 1,
- 'ifnotxml' => 1,
- 'ifnotdocbook' => 1,
- 'direntry' => 0,
- 'verbatim' => 'raw',
- 'ifclear' => 'value',
- 'ifset' => 'value' ,
- );
-
-foreach my $key (keys(%text_macros))
-{
- unless ($text_macros{$key} eq 'raw')
- {
- $no_line_macros{$key} = 1;
- $no_line_macros{"end $key"} = 1;
- }
-}
-
-# 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 #
-# #
-#---############################################################################
-
-#
-# flush stdout and stderr after every write
-#
-select(STDERR);
-$| = 1;
-select(STDOUT);
-$| = 1;
-
-my $I = \&Texi2HTML::I18n::get_string;
-
-my $T2H_USER; # user running the script
-my $documentdescription; # text in @documentdescription
-
-# shorthand for Texi2HTML::Config::VERBOSE
-my $T2H_VERBOSE;
-my $T2H_DEBUG;
-
-sub echo_warn($;$);
-#print STDERR "" . &$I('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_dirs.
-sub locate_init_file($;$$)
-{
- my $file = shift;
- my $all_files = shift;
- my $directories = shift;
-
- $directories = \@texi2html_config_dirs if !defined($directories);
-
- 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);
- return (Texi2HTML::Config::load($file));
- }
- else
- {
- print STDERR "$ERROR Error: can't read init file $init_file\n";
- return 0;
- }
-}
-
-my $cmd_line_lang = 0; # 1 if lang was succesfully set by the command line
- # in that case @documentlanguage is ignored.
-my $lang_set = 0; # 1 if lang was set
-
-#
-# called on -lang
-sub set_document_language ($;$$)
-{
- my $lang = shift;
- my $from_command_line = shift;
- my $line_nr = shift;
- my @files = locate_init_file("$i18n_dir/$lang", 1);
- foreach my $file (@files)
- {
- Texi2HTML::Config::load($file);
- }
- if (Texi2HTML::I18n::set_language($lang))
- {
- print STDERR "# using '$lang' as document language\n" if ($T2H_VERBOSE);
- $Texi2HTML::Config::LANG = $lang;
- $lang_set = 1;
- $cmd_line_lang = 1 if ($from_command_line);
- if (!$Texi2HTML::Config::TEST)
- {
- print STDERR "# Setting date in $Texi2HTML::Config::LANG\n" if ($T2H_DEBUG);
- $Texi2HTML::THISDOC{'today'} = Texi2HTML::I18n::pretty_date($Texi2HTML::Config::LANG); # 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'};
- }
- else
- {
- echo_error ("Language specs for '$lang' do not exists. Reverting to '$Texi2HTML::Config::LANG'", $line_nr);
- }
-}
-
-# used to manage expanded sections from the command line
-sub set_expansion($$)
-{
- my $region = shift;
- my $set = shift;
- $set = 1 if (!defined($set));
- if ($set)
- {
- push (@Texi2HTML::Config::EXPAND, $region) unless (grep {$_ eq $region} @Texi2HTML::Config::EXPAND);
- }
- else
- {
- @Texi2HTML::Config::EXPAND = grep {$_ ne $region} @Texi2HTML::Config::EXPAND;
- }
-}
-
-
-# find the encoding alias.
-# with encoding support (USE_UNICODE), may return undef if no alias was found
-sub encoding_alias($)
-{
- my $encoding = shift;
- return $encoding if (!defined($encoding) or $encoding eq '');
- if ($Texi2HTML::Config::USE_UNICODE)
- {
- if (! Encode::resolve_alias($encoding))
- {
- echo_warn("Encoding $encoding unknown");
- return undef;
- }
- print STDERR "# Using encoding " . Encode::resolve_alias($encoding) . "\n"
- if ($T2H_VERBOSE);
- return Encode::resolve_alias($encoding);
- }
- else
- {
- echo_warn("No alias searched for encoding");
- return $encoding;
- }
-}
-
-# setup hashes used for html manual cross references in texinfo
-my %cross_ref_texi_map = %Texi2HTML::Config::texi_map;
-
-$cross_ref_texi_map{'enddots'} = '...';
-
-my %cross_ref_simple_map_texi = %Texi2HTML::Config::simple_map_texi;
-my %cross_ref_style_map_texi = ();
-my %cross_transliterate_style_map_texi = ();
-
-my %cross_transliterate_texi_map = %cross_ref_texi_map;
-
-foreach my $command (keys(%Texi2HTML::Config::style_map_texi))
-{
- $cross_ref_style_map_texi{$command} = {};
- $cross_transliterate_style_map_texi{$command} = {};
- foreach my $key (keys (%{$Texi2HTML::Config::style_map_texi{$command}}))
- {
-#print STDERR "$command, $key, $style_map_texi{$command}->{$key}\n";
- $cross_ref_style_map_texi{$command}->{$key} =
- $Texi2HTML::Config::style_map_texi{$command}->{$key};
- $cross_transliterate_style_map_texi{$command}->{$key} =
- $Texi2HTML::Config::style_map_texi{$command}->{$key};
- }
-}
-
-$cross_ref_simple_map_texi{"\n"} = ' ';
-$cross_ref_simple_map_texi{"*"} = ' ';
-
-my %nodes = (); # nodes hash. The key is the texi node name
-my %cross_reference_nodes = (); # normalized node names arrays
-
-# This function is used to construct link names from node names as
-# specified for texinfo
-sub cross_manual_links()
-{
- print STDERR "# Doing ".scalar(keys(%nodes))." cross manual links\n"
- if ($T2H_DEBUG);
- my $normal_text_kept = $Texi2HTML::Config::normal_text;
- $::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;
- $Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text;
-
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- #print STDERR "CROSS_MANUAL:$key,$node\n";
- next if ($node->{'index_page'});
- 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 ($Texi2HTML::Config::USE_UNICODE)
- {
- $node->{'cross_manual_target'} = Unicode::Normalize::NFC($node->{'cross_manual_target'});
- if ($Texi2HTML::Config::TRANSLITERATE_NODE 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})
- {
- $node_seen = $other_node;
- last if ($nodes{$other_node}->{'seen'})
- }
- echo_error("Node equivalent with `$node->{'texi'}' allready used `$node_seen'");
- push @{$other_node_array}, $node->{'texi'};
- }
- else
- {
- push @{$cross_reference_nodes{$node->{'cross_manual_target'}}}, $node->{'texi'};
- }
- }
- }
- }
-
-
- if ($Texi2HTML::Config::TRANSLITERATE_NODE 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;
-
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- next if ($node->{'index_page'});
- if (defined($node->{'texi'}))
- {
- $node->{'cross_manual_file'} = remove_texi($node->{'texi'});
- $node->{'cross_manual_file'} = unicode_to_protected(unicode_to_transliterate($node->{'cross_manual_file'})) if ($Texi2HTML::Config::USE_UNICODE);
- }
- }
- }
-
- $Texi2HTML::Config::normal_text = $normal_text_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;
-}
-
-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)
- {
- if (exists($Texi2HTML::Config::ascii_character_map{$1}))
- {
- $result .= '_' . lc($Texi2HTML::Config::ascii_character_map{$1});
- }
- else
- {
- $result .= '_' . lc(sprintf("%04x",ord($1)));
- }
- }
- 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;
- my $result = '';
- while ($text ne '')
- {
- if ($text =~ s/^([A-Za-z0-9 ]+)//o)
- {
- $result .= $1;
- }
- elsif ($text =~ s/^(.)//o)
- {
- if (exists($Texi2HTML::Config::ascii_character_map{$1}))
- {
- $result .= $1;
- }
- elsif (exists($Texi2HTML::Config::transliterate_map{uc(sprintf("%04x",ord($1)))}))
- {
- $result .= $Texi2HTML::Config::transliterate_map{uc(sprintf("%04x",ord($1)))};
- }
- elsif (exists($Texi2HTML::Config::unicode_diacritical{uc(sprintf("%04x",ord($1)))}))
- {
- $result .= '';
- }
- else
- {
- if ($Texi2HTML::Config::USE_UNIDECODE)
- {
- $result .= unidecode($1);
- }
- else
- {
- $result .= $1;
- }
- }
- }
- else
- {
- print STDERR "Bug: unknown character in cross ref transliteration (likely in infinite loop)\n";
- sleep 1;
- }
- }
- return $result;
-}
-
-# 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";
- $::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 ($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;
- $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;
- $::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);
-}
-
-# 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 => \$Texi2HTML::Config::DOCTYPE,
- 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'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::MACRO_EXPAND,
- verbose => 'output macro expanded source in <file>',
-};
-
-$T2H_OPTIONS -> {'expand'} =
-{
- type => '=s',
- linkage => sub {set_expansion($_[1], 1);},
- verbose => 'Expand info|tex|none section of texinfo source',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'no-expand'} =
-{
- type => '=s',
- linkage => sub {set_expansion ($_[1], 0);},
- verbose => 'Don\'t expand the given section of texinfo source',
-};
-
-$T2H_OPTIONS -> {'noexpand'} =
-{
- type => '=s',
- linkage => $T2H_OPTIONS->{'no-expand'}->{'linkage'},
- verbose => $T2H_OPTIONS->{'no-expand'}->{'verbose'},
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'ifhtml'} =
-{
- type => '!',
- linkage => sub { set_expansion('html', $_[1]); },
- verbose => "expand ifhtml and html sections",
-};
-
-$T2H_OPTIONS -> {'ifinfo'} =
-{
- type => '!',
- linkage => sub { set_expansion('info', $_[1]); },
- verbose => "expand ifinfo",
-};
-
-$T2H_OPTIONS -> {'ifxml'} =
-{
- type => '!',
- linkage => sub { set_expansion('xml', $_[1]); },
- verbose => "expand ifxml and xml sections",
-};
-
-$T2H_OPTIONS -> {'ifdocbook'} =
-{
- type => '!',
- linkage => sub { set_expansion('docbook', $_[1]); },
- verbose => "expand ifdocbook and docbook sections",
-};
-
-$T2H_OPTIONS -> {'iftex'} =
-{
- type => '!',
- linkage => sub { set_expansion('tex', $_[1]); },
- verbose => "expand iftex and tex sections",
-};
-
-$T2H_OPTIONS -> {'ifplaintext'} =
-{
- type => '!',
- linkage => sub { set_expansion('plaintext', $_[1]); },
- verbose => "expand ifplaintext sections",
-};
-
-$T2H_OPTIONS -> {'invisible'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::INVISIBLE_MARK,
- verbose => 'use text in invisble anchor',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'iso'} =
-{
- type => 'iso',
- linkage => \$Texi2HTML::Config::USE_ISO,
- verbose => 'if set, ISO8859 characters are used for special symbols (like copyright, etc)',
- 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'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::NUMBER_SECTIONS,
- verbose => 'use numbered sections',
-};
-
-$T2H_OPTIONS -> {'use-nodes'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::USE_NODES,
- verbose => 'use nodes for sectionning',
-};
-
-$T2H_OPTIONS -> {'node-files'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::NODE_FILES,
- verbose => 'produce one file per node for cross references'
-};
-
-$T2H_OPTIONS -> {'separated-footnotes'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SEPARATED_FOOTNOTES,
- verbose => 'footnotes on a separated page',
- noHelp => 1,
-};
-
-$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 -> {'sec-nav'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SECTION_NAVIGATION,
- verbose => 'output navigation panels 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'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::OUT,
- verbose => 'output goes to $s (directory if split)',
-};
-
-$T2H_OPTIONS -> {'no-validate'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::NOVALIDATE,
- verbose => 'suppress node cross-reference validation',
-};
-
-$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'} =
-{
- type => '!',
- linkage=> \$Texi2HTML::Config::VERBOSE,
- verbose => 'print progress info to stdout',
-};
-
-$T2H_OPTIONS -> {'lang'} =
-{
- type => '=s',
- linkage => sub {set_document_language($_[1], 1)},
- verbose => 'use $s as document language (ISO 639 encoding)',
-};
-
-$T2H_OPTIONS -> {'ignore-preamble-text'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::IGNORE_PREAMBLE_TEXT,
- verbose => 'if set, ignore the text before @node and sectionning 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{$_[1]} = 1;},
- verbose => 'equivalent to Texinfo "@set $s 1"',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'U'} =
-{
- type => '=s',
- linkage => sub {delete $value{$_[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'
-};
-
-##
-## obsolete cmd line options
-##
-my $T2H_OBSOLETE_OPTIONS;
-
-$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 -> {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 => \$Texi2HTML::Config::SECTION_NAVIGATION,
- verbose => 'obsolete, use "-sec-nav" 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::SECTION_NAVIGATION = 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 "-expand info" instead',
- noHelp => 2,
-};
-$T2H_OBSOLETE_OPTIONS -> {expandtex} =
-{
- type => '!',
- linkage => sub {push @Texi2HTML::Config::EXPAND, 'tex';},
- verbose => 'obsolete, use "-expand tex" instead',
- noHelp => 2,
-};
-$T2H_OBSOLETE_OPTIONS -> {monolithic} =
-{
- type => '!',
- linkage => sub {$Texi2HTML::Config::SPLIT = '';},
- verbose => 'obsolete, use "-split no" 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 => \$Texi2HTML::Config::SECTION_NAVIGATION,
- verbose => 'obsolete, use --sec-nav instead',
- noHelp => 2,
-};
-
-$T2H_OBSOLETE_OPTIONS -> {verbose} =
-{
- type => '!',
- linkage=> \$Texi2HTML::Config::VERBOSE,
- verbose => 'obsolete, use -Verbose instead',
- noHelp => 2
-};
-
-# read initialzation from $sysconfdir/texi2htmlrc or $HOME/.texi2htmlrc
-# (this is obsolete)
-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);
-}
-
-#
-# %value hold texinfo variables, see also -D, -U, @set and @clear.
-# we predefine html (the output format) and texi2html (the translator)
-%value =
- (
- 'html' => 1,
- 'texi2html' => $THISVERSION,
- );
-
-#+++############################################################################
-# #
-# parse command-line options
-# #
-#---############################################################################
-
-
-my $T2H_USAGE_TEXT = <<EOT;
-Usage: texi2html [OPTIONS] TEXINFO-FILE
-Translates Texinfo source documentation to HTML.
-EOT
-my $T2H_FAILURE_TEXT = <<EOT;
-Try 'texi2html --help' for usage instructions.
-EOT
-
-my $options = new Getopt::MySimple;
-
-$T2H_OPTIONS -> {'help'} =
-{
- 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;
-
-# 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;
- }
-}
-
-#
-# 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);
- }
-}
-
-# $T2H_DEBUG and $T2H_VERBOSE are shorthands
-$T2H_DEBUG = $Texi2HTML::Config::DEBUG;
-$T2H_VERBOSE = $Texi2HTML::Config::VERBOSE;
-
-$Texi2HTML::THISDOC{'debug_l2h'} = 0;
-$Texi2HTML::THISDOC{'debug_l2h'} = 1 if ($T2H_DEBUG & $DEBUG_L2H);
-
-
-#+++############################################################################
-# #
-# evaluation of cmd line options
-# #
-#---############################################################################
-
-# 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 $simple ('ctrl', 'w', 'url','uref','indicateurl','email')
-#{
-# $style_type{$simple} = 'simple_style';
-#}
-foreach my $special ('footnote', 'ref', 'xref', 'pxref', 'inforef', 'anchor', 'image')
-{
- 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);
-
-unshift @texi2html_config_dirs, @Texi2HTML::Config::CONF_DIRS;
-# correct %text_macros based on command line and init
-# variables
-$text_macros{'menu'} = 1 if ($Texi2HTML::Config::SHOW_MENU);
-
-foreach my $expanded (@Texi2HTML::Config::EXPAND)
-{
- $text_macros{"if$expanded"} = 1 if (exists($text_macros{"if$expanded"}));
- next unless (exists($text_macros{$expanded}));
- if (grep {$_ eq $expanded} @raw_regions)
- {
- $text_macros{$expanded} = 'raw';
- }
- else
- {
- $text_macros{$expanded} = 1;
- }
-}
-
-# handle ifnot regions
-foreach my $region (keys (%text_macros))
-{
- next if ($region =~ /^ifnot/);
- if ($text_macros{$region} and $region =~ /^if(\w+)$/)
- {
- $text_macros{"ifnot$1"} = 0;
- }
-}
-
-if ($T2H_VERBOSE)
-{
- print STDERR "# Expanded: ";
- foreach my $text_macro (keys(%text_macros))
- {
- print STDERR "$text_macro " if ($text_macros{$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 = '1';
-}
-
-# no user provided nor configured, run time test
-if ($Texi2HTML::Config::USE_UNICODE eq '@' .'USE_UNICODE@')
-{
- $Texi2HTML::Config::USE_UNICODE = 1;
- eval {
- require Encode;
- require Unicode::Normalize;
- Encode->import('encode');
- };
- $Texi2HTML::Config::USE_UNICODE = 0 if ($@);
-}
-elsif ($Texi2HTML::Config::USE_UNICODE)
-{# user provided or set by configure
- require Encode;
- require Unicode::Normalize;
- Encode->import('encode');
-}
-
-# no user provided USE_UNIDECODE, use configure provided
-if (!defined($Texi2HTML::Config::USE_UNIDECODE))
-{
- $Texi2HTML::Config::USE_UNIDECODE = '0';
-}
-
-# no user provided nor configured, run time test
-if ($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 ($@);
-}
-elsif ($Texi2HTML::Config::USE_UNIDECODE)
-{# user provided or set by configure
- 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)
- {
- $cross_ref_texi_map{$key} = chr(hex($Texi2HTML::Config::unicode_map{$key}));
- if (($Texi2HTML::Config::TRANSLITERATE_NODE and !$Texi2HTML::Config::USE_UNIDECODE)
- and (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_ref_texi_map{$key} = '_' . lc($Texi2HTML::Config::unicode_map{$key});
- if ($Texi2HTML::Config::TRANSLITERATE_NODE)
- {
- 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_NODE
- and ! $Texi2HTML::Config::USE_UNIDECODE)
-{
- 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;
- }
- if ($Texi2HTML::Config::TRANSLITERATE_NODE and
- !($Texi2HTML::Config::USE_UNICODE and $Texi2HTML::Config::USE_UNIDECODE))
- {
- $cross_transliterate_style_map_texi{$key}->{'function'} = \&Texi2HTML::Config::t2h_transliterate_cross_manual_accent;
- }
- }
-}
-
-#
-# file name business
-#
-
-
-my $docu_dir; # directory of the document
-my $docu_name; # basename of the document
-my $docu_rdir; # directory for the output
-my $docu_ext = $Texi2HTML::Config::EXTENSION; # extension
-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)
-
-die "Need exactly one file to translate\n$T2H_FAILURE_TEXT" unless @ARGV == 1;
-my $docu = shift(@ARGV);
-if ($docu =~ /(.*\/)/)
-{
- chop($docu_dir = $1);
- $docu_name = $docu;
- $docu_name =~ s/.*\///;
-}
-else
-{
- $docu_dir = '.';
- $docu_name = $docu;
-}
-unshift(@Texi2HTML::Config::INCLUDE_DIRS, $docu_dir);
-unshift(@Texi2HTML::Config::INCLUDE_DIRS, @Texi2HTML::Config::PREPEND_DIRS);
-$docu_name =~ s/\.te?x(i|info)?$//;
-$docu_name = $Texi2HTML::Config::PREFIX if $Texi2HTML::Config::PREFIX;
-
-# 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 = '';
-}
-
-# Something like backward compatibility
-if ($Texi2HTML::Config::SPLIT and $Texi2HTML::Config::SUBDIR)
-{
- $Texi2HTML::Config::OUT = $Texi2HTML::Config::SUBDIR;
-}
-
-# subdir
-
-die "output to STDOUT and split or frames incompatible\n"
- if (($Texi2HTML::Config::SPLIT or $Texi2HTML::Config::FRAMES) and ($Texi2HTML::Config::OUT eq '-'));
-
-if ($Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT eq ''))
-{
- $Texi2HTML::Config::OUT = $docu_name;
-}
-
-if ($Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT eq '.'))
-{# This is to avoid trouble with latex2html
- $Texi2HTML::Config::OUT = '';
-}
-
-$docu_rdir = '';
-
-if ($Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT ne ''))
-{
- $Texi2HTML::Config::OUT =~ s|/*$||;
- $docu_rdir = "$Texi2HTML::Config::OUT/";
- unless (-d $Texi2HTML::Config::OUT)
- {
- if ( mkdir($Texi2HTML::Config::OUT, oct(755)))
- {
- print STDERR "# created directory $Texi2HTML::Config::OUT\n" if ($T2H_VERBOSE);
- }
- else
- {
- die "$ERROR can't create directory $Texi2HTML::Config::OUT\n";
- }
- }
- print STDERR "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE);
-}
-elsif (! $Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT ne ''))
-{
- if ($Texi2HTML::Config::OUT =~ m|(.*)/|)
- {# there is a leading directories
- $docu_rdir = "$1/";
- unless (-d $docu_rdir)
- {
- if ( mkdir($docu_rdir, oct(755)))
- {
- print STDERR "# created directory $docu_rdir\n" if ($T2H_VERBOSE);
- }
- else
- {
- die "$ERROR can't create directory $docu_rdir\n";
- }
- }
- 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);
- $docu_rdir = '';
- }
-}
-
-# 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 '');
- die "$ERROR $docu_rdir not writable\n";
-}
-
-# relative path leading to the working directory from the document directory
-my $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 = ();
- 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));
- $path_to_working_dir =~ s|.*/||;
- $path_to_working_dir .= '/' unless($path_to_working_dir eq '');
-}
-
-# extension
-if ($Texi2HTML::Config::SHORTEXTN)
-{
- $docu_ext = "htm";
-}
-
-$docu_doc = $docu_name . ($docu_ext ? ".$docu_ext" : ""); # document's contents
-if ($Texi2HTML::Config::SPLIT)
-{
- $docu_top = $Texi2HTML::Config::TOP_FILE || $docu_doc;
-
- 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));
- $docu_toc = $Texi2HTML::Config::TOC_FILE || $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
-{
- if ($Texi2HTML::Config::OUT)
- {
- $docu_doc = $Texi2HTML::Config::OUT;
- $docu_doc =~ s|.*/||;
- }
- if (defined $Texi2HTML::Config::element_file_name)
- {
- my $docu_name = &$Texi2HTML::Config::element_file_name
- (undef, "doc", $docu_name);
- $docu_top = $docu_name if (defined($docu_name));
- }
- $docu_toc = $docu_foot = $docu_stoc = $docu_about = $docu_top = $docu_doc;
-}
-
-# Note that file extension has already been added here.
-
-# 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{'extension'} = $docu_ext;
-# FIXME document that
-$Texi2HTML::THISDOC{'out_dir'} = $docu_rdir;
-$Texi2HTML::THISDOC{'file_base_name'} = $docu_name;
-
-
-my $docu_doc_file = "$docu_rdir$docu_doc";
-my $docu_toc_file = "$docu_rdir$docu_toc";
-my $docu_stoc_file = "$docu_rdir$docu_stoc";
-my $docu_foot_file = "$docu_rdir$docu_foot";
-my $docu_about_file = "$docu_rdir$docu_about";
-my $docu_top_file = "$docu_rdir$docu_top";
-
-my $docu_frame_file = "$docu_rdir${docu_name}_frame";
-$docu_frame_file .= ".$docu_ext" if $docu_ext;
-my $docu_toc_frame_file = "$docu_rdir${docu_name}_toc_frame";
-$docu_toc_frame_file .= ".$docu_ext" if $docu_ext;
-
-#
-# _foo: internal variables to track @foo
-#
-foreach my $key ('_author', '_title', '_subtitle', '_shorttitlepage',
- '_settitle', '_setfilename', '_shorttitle', '_titlefont')
-{
- $value{$key} = ''; # prevent -w warnings
-}
-my $index; # ref on a hash for the index entries
-my %indices = (); # hash of indices names containing
- #[ $pages, $entries ] (page indices and
- # raw index entries)
-my @index_labels = (); # array corresponding with @?index commands
- # constructed during pass_texi, used to
- # put labels in pass_text
-#
-# initial counters
-#
-my $foot_num = 0;
-my $relative_foot_num = 0;
-my $idx_num = 0;
-my $sec_num = 0;
-my $anchor_num = 0;
-
-#
-# can I use ISO8859 characters? (HTML+)
-#
-if ($Texi2HTML::Config::USE_ISO)
-{
- foreach my $thing (keys(%Texi2HTML::Config::iso_symbols))
- {
- next unless exists ($::things_map_ref->{$thing});
- $::things_map_ref->{$thing} = $Texi2HTML::Config::iso_symbols{$thing};
- $::pre_map_ref->{$thing} = $Texi2HTML::Config::iso_symbols{$thing};
- $Texi2HTML::Config::simple_format_texi_map{$thing} = $Texi2HTML::Config::iso_symbols{$thing};
- }
- # we don't override the user defined quote, but beware that this works
- # only if the hardcoded defaults, '`' and "'" match with the defaults
- # in the default init file
- $Texi2HTML::Config::OPEN_QUOTE_SYMBOL = $Texi2HTML::Config::iso_symbols{'`'}
- if (exists($Texi2HTML::Config::iso_symbols{'`'}) and ($Texi2HTML::Config::OPEN_QUOTE_SYMBOL eq '`'));
- $Texi2HTML::Config::CLOSE_QUOTE_SYMBOL = $Texi2HTML::Config::iso_symbols{"'"}
- if (exists($Texi2HTML::Config::iso_symbols{"'"}) and ($Texi2HTML::Config::CLOSE_QUOTE_SYMBOL eq "'"));
-}
-
-
-
-# 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 = [];
- while (<$fh>)
- {
- #print STDERR "Line: $_";
- if ($in_rules)
- {
- push @$rules, $_;
- 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: $_";
- if ($in_comment)
- {
- if (s/^(.*?\*\/)//)
- {
- $text .= $1;
- $in_comment = 0;
- }
- else
- {
- push @$imports, $text . $_;
- last;
- }
- }
- elsif (!$in_string and s/^\///)
- { # what do '\' do here ?
- if (s/^\*//)
- {
- $text .= '/*';
- $in_comment = 1;
- }
- else
- {
- push (@$imports, $text. "\n") if ($text ne '');
- push (@$rules, '/' . $_);
- $in_rules = 1;
- last;
- }
- }
- elsif (!$in_string and $in_import and s/^([\"\'])//)
- { # strings outside of import start rules
- $text .= "$1";
- $in_string = quotemeta("$1");
- }
- elsif ($in_string and s/^(\\$in_string)//)
- {
- $text .= $1;
- }
- elsif ($in_string and s/^($in_string)//)
- {
- $text .= $1;
- $in_string = 0;
- }
- elsif ((! $in_string and !$in_import) and (s/^([\\]?\@import)$// or s/^([\\]?\@import\s+)//))
- {
- $text .= $1;
- $in_import = 1;
- }
- elsif (!$in_string and $in_import and s/^\;//)
- {
- $text .= ';';
- $in_import = 0;
- }
- elsif (($in_import or $in_string) and s/^(.)//)
- {
- $text .= $1;
- }
- elsif (!$in_import and s/^([^\s])//)
- {
- push (@$imports, $text. "\n") if ($text ne '');
- push (@$rules, $1 . $_);
- $in_rules = 1;
- last;
- }
- elsif (s/^(\s)//)
- {
- $text .= $1;
- }
- elsif ($_ eq '')
- {
- push (@$imports, $text);
- last;
- }
- }
- }
- warn "$WARN string not closed in css file $file\n" if ($in_string);
- warn "$WARN comment not closed in css file $file\n" if ($in_comment);
- warn "$WARN \@import not finished in css file $file\n" if ($in_import and !$in_comment and !$in_string);
- return ($imports, $rules);
-}
-
-
-
-# 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))
- {
- warn "Cannot open html refs config file ${file}: $!";
- next;
- }
- while (<HTMLXREF>)
- {
- my $line = $_;
- s/[#]\s.*//;
- s/^\s*//;
- next if /^\s*$/;
- my @htmlxref = split /\s+/;
- my $manual = shift @htmlxref;
- my $split_or_mono = shift @htmlxref;
- if (!defined($split_or_mono) or ($split_or_mono ne 'split' and $split_or_mono ne 'mono'))
- {
- echo_warn("Bad line in $file: $line");
- next;
- }
- my $href = shift @htmlxref;
- next if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split_or_mono}) and exists($Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split_or_mono}->{'href'}));
-
- if (defined($href))
- {
- $href =~ s/\/*$// if ($split_or_mono eq 'split');
- $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split_or_mono}->{'href'} = $href;
- }
- else
- {
- $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split_or_mono} = {};
- }
- }
- close (HTMLXREF);
-}
-
-if ($T2H_DEBUG)
-{
- foreach my $manual (keys(%{$Texi2HTML::THISDOC{'htmlxref'}}))
- {
- foreach my $split ('split', 'mono')
- {
- my $href = 'NO';
- next unless (exists($Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split}));
- $href = $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split}->{'href'} if
- exists($Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split}->{'href'});
- print STDERR "$manual: $split, href: $href\n";
- }
- }
-}
-
-print STDERR "# reading from $docu\n" if $T2H_VERBOSE;
-
-#+++###########################################################################
-# #
-# Pass texi: read source, handle variable, ignored text, #
-# #
-#---###########################################################################
-
-my @fhs = (); # hold the file handles to read
-my $input_spool; # spooled lines to read
-my @lines = (); # whole document
-my @lines_numbers = (); # line number, originating file associated with
- # whole document
-my $macros; # macros. reference on a hash
-my %info_enclose; # macros defined with definfoenclose
-my $texi_line_number = { 'file_name' => '', 'line_nr' => 0, 'macro' => '' };
-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'}));
-}
-
-my @first_lines = ();
-
-sub pass_texi()
-{
- my $first_lines = 1; # is it the first lines
- my $state = {};
- # holds the informations about the context
- # to pass it down to the functions
- initialise_state_texi($state);
- my @stack;
- my $text;
- INPUT_LINE: while (defined($_ = next_line($texi_line_number)))
- {
- #
- # remove the lines preceding \input or an @-command
- #
- if ($first_lines)
- {
- if (/^\\input/)
- {
- push @first_lines, $_;
- $first_lines = 0;
- next;
- }
- if (/^\s*\@/)
- {
- $first_lines = 0;
- }
- else
- {
- push @first_lines, $_;
- next;
- }
- }
- #print STDERR "PASS_TEXI($texi_line_number->{'line_nr'})$_";
- my $chomped_line = $_;
- if (scan_texi ($_, \$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_structure(\$text, \@stack, $state, $texi_line_number);
- #dump_stack(\$text, \@stack, $state);
- }
- next if (@stack);
- $_ = $text;
- $text = '';
- if (!defined($_))
- {# FIXME: remove the error message if it is reported too often
- print STDERR "# \$_ undefined after scan_texi. This may be a bug, or not.\n";
- print STDERR "# Report (with texinfo file) if you want, otherwise ignore that message.\n";
- next unless ($state->{'bye'});
- }
- push @lines, split_lines($_);
- 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_structure(\$text, \@stack, $state, $texi_line_number);
- push @lines, split_lines($text);
- print STDERR "# end of pass texi\n" if $T2H_VERBOSE;
-}
-
-# return the line after preserving things according to misc_command map.
-sub preserve_command($$)
-{
- my $line = shift;
- my $macro = shift;
- my $text = '';
- my $args = '';
- my $skip_spec = '';
- my $arg_spec = '';
-
- $skip_spec = $Texi2HTML::Config::misc_command{$macro}->{'skip'}
- if (defined($Texi2HTML::Config::misc_command{$macro}->{'skip'}));
- $arg_spec = $Texi2HTML::Config::misc_command{$macro}->{'arg'}
- if (defined($Texi2HTML::Config::misc_command{$macro}->{'arg'}));
-
- if ($arg_spec eq 'line')
- {
- $text .= $line;
- $args .= $line;
- $line = '';
- }
- elsif ($arg_spec)
- {
- my $arg_nr = $Texi2HTML::Config::misc_command{$macro}->{'arg'};
- while ($arg_nr)
- {
- $line =~ s/(\s+\S*)//o;
- $text .= $1 if defined($1);
- $args .= $1 if defined($1);
- $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);
-}
-
-#+++###########################################################################
-# #
-# Pass structure: parse document structure #
-# #
-#---###########################################################################
-
-# This is a virtual element for things appearing before @node and
-# sectionning commands
-my $element_before_anything =
-{
- 'before_anything' => 1,
- 'place' => [],
- 'texi' => 'VIRTUAL ELEMENT BEFORE ANYTHING',
-};
-
-# This is a place for index entries, anchors and so on appearing in
-# copying or documentdescription
-my $region_place = [];
-
-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->{'sectionning_base'} = 0; # current base sectionning level
- $state->{'table_stack'} = [ "no table" ]; # a stack of opened tables/lists
- if (exists($state->{'region_lines'}) and !defined($state->{'region_lines'}))
- {
- delete ($state->{'region_lines'});
- print STDERR "Bug: state->{'region_lines'} exists but undef.\n";
- }
-}
-
-my @doc_lines = (); # whole document
-my @doc_numbers = (); # whole document line numbers and file names
-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 = (); # sectionning 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
- # headings are there, although they are not elements
-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
-
-# This is a virtual element used to have the right hrefs for index entries
-# and anchors in footnotes
-my $footnote_element =
-{
- 'id' => 'SEC_Foot',
- 'file' => $docu_foot,
- 'footnote' => 1,
- 'element' => 1,
- 'place' => [],
-};
-
-my %content_element =
-(
- 'contents' => { 'id' => 'SEC_Contents', 'contents' => 1, 'texi' => '_contents' },
- 'shortcontents' => { 'id' => 'SEC_Overview', 'shortcontents' => 1, 'texi' => '_shortcontents' },
-);
-
-#my $do_contents; # do table of contents if true
-#my $do_scontents; # do short table of contents if true
-my $novalidate = $Texi2HTML::Config::NOVALIDATE; # @novalidate appeared
-
-sub pass_structure()
-{
- my $state = {};
- # holds the informations about the context
- # to pass it down to the functions
- initialise_state_structure($state);
- $state->{'element'} = $element_before_anything;
- $state->{'place'} = $element_before_anything->{'place'};
- my @stack;
- my $text;
- my $line_nr;
-
- while (@lines)
- {
- $_ = shift @lines;
- my $chomped_line = $_;
- if (!chomp($chomped_line) and @lines)
- {
- $lines[0] = $_ . $lines[0];
- next;
- }
- $line_nr = shift (@lines_numbers);
- #print STDERR "PASS_STRUCTURE: $_";
- if (!$state->{'raw'} and !$state->{'verb'})
- {
- my $tag = '';
- if (/^\s*\@(\w+)\b/)
- {
- $tag = $1;
- }
-
- #
- # analyze the tag
- #
- if ($tag and $tag eq 'node' or defined($sec2level{$tag}) or $tag eq 'printindex')
- {
- $_ = substitute_texi_line($_);
- if ($tag eq 'node' or defined($sec2level{$tag}))
- {# in pass structure node shouldn't appear in formats
- close_stack_texi_structure(\$text, \@stack, $state, $line_nr);
- if (exists($state->{'region_lines'}))
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}}, split_lines($text);
- close_region($state);
- }
- else
- {
- push @doc_lines, split_lines($text);
- }
- $text = '';
- }
- if ($tag eq 'node')
- {
- my $node_ref;
- my $auto_directions;
- $auto_directions = 1 unless (/,/o);
- my ($node, $node_next, $node_prev, $node_up) = split(/,/, $_);
- $node =~ s/^\@node\s+// if ($node);
- if ($node)
- {
- $node = normalise_space($node);
- if (exists($nodes{$node}) and defined($nodes{$node})
- and $nodes{$node}->{'seen'})
- {
- echo_error ("Duplicate node found: $node", $line_nr);
- next;
- }
- else
- {
- if (exists($nodes{$node}) and defined($nodes{$node}))
- { # node appeared in a menu
- $node_ref = $nodes{$node};
- }
- else
- {
- my $first;
- $first = 1 if (!defined($node_ref));
- $node_ref = {};
- $node_first = $node_ref if ($first);
- $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'} = [];
- merge_element_before_anything($node_ref);
- $node_ref->{'index_names'} = [];
- $state->{'place'} = $node_ref->{'current_place'};
- $state->{'element'} = $node_ref;
- $state->{'after_element'} = 1;
- $state->{'node_ref'} = $node_ref;
- # 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
- echo_warn ("Top node allready exists", $line_nr);
- #warn "$WARN Top node allready exists\n";
- }
- }
- unless (@nodes_list)
- {
- $node_ref->{'first'} = 1;
- }
- push (@nodes_list, $node_ref);
- push @all_elements, $node_ref;
- }
- }
- else
- {
- echo_error ("Node is undefined: $_ (eg. \@node NODE-NAME, NEXT, PREVIOUS, UP)", $line_nr);
- next;
- }
-
- if ($node_next)
- {
- $node_ref->{'node_next'} = normalise_node($node_next);
- }
- if ($node_prev)
- {
- $node_ref->{'node_prev'} = normalise_node($node_prev);
- }
- if ($node_up)
- {
- $node_ref->{'node_up'} = normalise_node($node_up);
- }
- }
- elsif (defined($sec2level{$tag}))
- { # section or heading
- if (/^\@$tag\s*(.*)$/)
- {
- my $name = normalise_space($1);
- $name = '' if (!defined($name));
- my $level = $sec2level{$tag};
- $state->{'after_element'} = 1;
- my ($docid, $num);
- if($tag ne 'top')
- {
- $sec_num++;
- $num = $sec_num;
- $docid = "SEC$sec_num";
- }
- else
- {
- $num = 0;
- $docid = "SEC_Top";
- }
- if ($tag !~ /heading/)
- {
- my $section_ref = { 'texi' => $name,
- 'level' => $level,
- 'tag' => $tag,
- 'sec_num' => $num,
- 'section' => 1,
- 'id' => $docid,
- 'seen' => 1,
- 'index_names' => [],
- 'current_place' => [],
- 'place' => []
- };
-
- if ($tag eq 'top')
- {
- $section_ref->{'top'} = 1;
- $section_ref->{'number'} = '';
- $sections{0} = $section_ref;
- $section_top = $section_ref;
- }
- $sections{$num} = $section_ref;
- merge_element_before_anything($section_ref);
- if ($state->{'node_ref'} and !exists($state->{'node_ref'}->{'with_section'}))
- {
- my $node_ref = $state->{'node_ref'};
- $section_ref->{'node_ref'} = $node_ref;
- $section_ref->{'titlefont'} = $node_ref->{'titlefont'};
- $node_ref->{'with_section'} = $section_ref;
- $node_ref->{'top'} = 1 if ($tag eq 'top');
- }
- if (! $name and $level)
- {
- echo_warn ("$tag without name", $line_nr);
- }
- push @sections_list, $section_ref;
- push @all_elements, $section_ref;
- $state->{'element'} = $section_ref;
- $state->{'place'} = $section_ref->{'current_place'};
- 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($level) ref $section_ref, num,id $num,$docid\n $name\n"
- if $T2H_DEBUG & $DEBUG_ELEMENTS;
- }
- else
- {
- my $section_ref = { 'texi' => $name,
- 'level' => $level,
- 'heading' => 1,
- 'tag' => $tag,
- 'tag_level' => $tag,
- 'sec_num' => $sec_num,
- 'id' => $docid,
- 'number' => '' };
- $state->{'element'} = $section_ref;
- push @{$state->{'place'}}, $section_ref;
- $sections{$sec_num} = $section_ref;
- }
- }
- }
- elsif (/^\@printindex\s+(\w+)/)
- {
- unless (@all_elements)
- {
- echo_warn ("Printindex before document beginning: \@printindex $1", $line_nr);
- next;
- }
- delete $state->{'after_element'};
- # $element_index is the first element with index
- $element_index = $all_elements[-1] unless (defined($element_index));
- # associate the index to the element such that the page
- # number is right
- my $placed_elements = [];
- push @{$all_elements[-1]->{'index_names'}}, { 'name' => $1, 'place' => $placed_elements };
- $state->{'place'} = $placed_elements;
- }
- if (exists($state->{'region_lines'}))
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}}, $_;
- }
- else
- {
- push @doc_lines, $_;
- push @doc_numbers, $line_nr;
- }
- next;
- }
- }
- if (scan_structure ($_, \$text, \@stack, $state, $line_nr) and !(exists($state->{'region_lines'})))
- {
- push (@doc_numbers, $line_nr);
- }
- next if (@stack);
- $_ = $text;
- $text = '';
- next if (!defined($_));
- if ($state->{'region_lines'})
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}}, split_lines($_);
- }
- else
- {
- push @doc_lines, split_lines($_);
- }
- }
- if (@stack)
- {# close stack at the end of pass structure
- close_stack_texi_structure(\$text, \@stack, $state, $line_nr);
- if ($text)
- {
- if (exists($state->{'region_lines'}))
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}},
- split_lines($text);
- }
- else
- {
- push @doc_lines, split_lines($text);
- }
- }
- }
- echo_warn ("At end of document, $state->{'region_lines'}->{'number'} $state->{'region_lines'}->{'format'} not closed") if (exists($state->{'region_lines'}));
- print STDERR "# end of pass structure\n" if $T2H_VERBOSE;
-}
-
-# 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 = ();
- my $i = 0;
- while ($line)
- {
- $result[$i] = '';
- $line =~ s/^(.*)//;
- $result[$i] .= $1;
- $result[$i] .= "\n" if ($line =~ s/^\n//);
- #print STDERR "$i: $result[$i]";
- $i++;
- }
- return @result;
-}
-
-# handle misc commands and misc command args
-sub misc_command_structure($$$$)
-{
- my $line = shift;
- my $macro = shift;
- my $state = shift;
- my $line_nr = shift;
- my $text;
- my $args;
-
- if ($macro eq 'lowersections')
- {
- my ($sec, $level);
- while (($sec, $level) = each %sec2level)
- {
- $sec2level{$sec} = $level + 1;
- }
- $state->{'sectionning_base'}--;
- }
- elsif ($macro eq 'raisesections')
- {
- my ($sec, $level);
- while (($sec, $level) = each %sec2level)
- {
- $sec2level{$sec} = $level - 1;
- }
- $state->{'sectionning_base'}++;
- }
- elsif (($macro eq 'contents') or ($macro eq 'summarycontents') or ($macro eq 'shortcontents'))
- {
- if ($macro eq 'contents')
- {
- $Texi2HTML::Config::DO_CONTENTS = 1;
- }
- else
- {
- $macro = 'shortcontents';
- $Texi2HTML::Config::DO_SCONTENTS = 1;
- }
- push @{$state->{'place'}}, $content_element{$macro};
- }
- elsif ($macro eq 'detailmenu')
- {
- $state->{'detailmenu'}++;
- }
- elsif ($macro eq 'novalidate')
- {
- $novalidate = 1;
- $Texi2HTML::THISDOC{$macro} = 1;
- }
- elsif (grep {$_ eq $macro} ('settitle','setfilename','shortitle','shorttitlepage')
- and ($line =~ /^\s+(.*)$/))
- {
- $value{"_$macro"} = substitute_texi_line($1);
- }
- elsif (grep {$_ eq $macro} ('author','subtitle','title')
- and ($line =~ /^\s+(.*)$/))
- {
- $value{"_$macro"} .= substitute_texi_line($1)."\n";
- push @{$Texi2HTML::THISDOC{"${macro}s"}}, substitute_texi_line($1);
- }
- elsif ($macro eq 'synindex' || $macro eq 'syncodeindex')
- {
- if ($line =~ /^\s+(\w+)\s+(\w+)/)
- {
- my $index_from = $1;
- my $index_to = $2;
- echo_error ("unknown from index name $index_from in \@$macro", $line_nr)
- unless $index_names{$index_from};
- echo_error ("unknown to index name $index_to in \@$macro", $line_nr)
- unless $index_names{$index_to};
- if ($index_names{$index_from} and $index_names{$index_to})
- {
- if ($macro eq 'syncodeindex')
- {
- $index_names{$index_to}->{'associated_indices_code'}->{$index_from} = 1;
- }
- else
- {
- $index_names{$index_to}->{'associated_indices'}->{$index_from} = 1;
- }
- push @{$Texi2HTML::THISDOC{$macro}}, [$index_from,$index_to];
- }
- }
- else
- {
- echo_error ("Bad $macro line: $line", $line_nr);
- }
- }
- elsif ($macro eq 'defindex' || $macro eq 'defcodeindex')
- {
- if ($line =~ /^\s+(\w+)\s*$/)
- {
- my $name = $1;
- if ($forbidden_index_name{$name})
- {
- echo_error("Reserved index name $name", $line_nr);
- }
- else
- {
- @{$index_names{$name}->{'prefix'}} = ($name);
- $index_names{$name}->{'code'} = 1 if $macro eq 'defcodeindex';
- $index_prefix_to_name{$name} = $name;
- push @{$Texi2HTML::THISDOC{$macro}}, $name;
- }
- }
- else
- {# makeinfo don't warn and even accepts index with empty name
- # and index with numbers only. I reported it on the mailing list
- # this should be fixed in future makeinfo versions.
- echo_error ("Bad $macro line: $line", $line_nr);
- }
- }
- elsif ($macro eq 'documentlanguage')
- {
- if ($line =~ /\s+(\w+)/)
- {
- my $lang = $1;
- set_document_language($lang, 0, $line_nr) if (!$cmd_line_lang && $lang);
- # warning, this is not the language of the document but the one that
- # appear in the texinfo...
- $Texi2HTML::THISDOC{$macro} = $lang;
- }
- }
- elsif ($macro eq 'kbdinputstyle')
- {# makeinfo ignores that with --html. I reported it and it should be
- # fixed in future makeinfo releases
- if ($line =~ /\s+([a-z]+)/)
- {
- if ($1 eq 'code')
- {
- $::style_map_ref->{'kbd'} = $::style_map_ref->{'code'};
- $::style_map_pre_ref->{'kbd'} = $::style_map_pre_ref->{'code'};
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- elsif ($1 eq 'example')
- {
- $::style_map_pre_ref->{'kbd'} = $::style_map_pre_ref->{'code'};
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- elsif ($1 ne 'distinct')
- {
- echo_error ("Unknown argument for \@$macro: $1", $line_nr);
- }
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'paragraphindent')
- {
- if ($line =~ /\s+([0-9]+)/)
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- elsif (($line =~ /\s+(none)[^\w\-]/) or ($line =~ /\s+(asis)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'firstparagraphindent')
- {
- if (($line =~ /\s+(none)[^\w\-]/) or ($line =~ /\s+(insert)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'exampleindent')
- {
- if ($line =~ /^\s+([0-9]+)/)
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- elsif ($line =~ /^\s+(asis)[^\w\-]/)
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'frenchspacing')
- {
- if (($line =~ /^\s+(on)[^\w\-]/) or ($line =~ /^\s+(off)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'footnotestyle')
- {
- if (($line =~ /^\s+(end)[^\w\-]/) or ($line =~ /^\s+(separate)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro 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{$macro} = $possible_arg;
- last;
- }
- }
- unless ($valid_arg)
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'setchapternewpage')
- {
- if (($line =~ /^\s+(on)[^\w\-]/) or ($line =~ /^\s+(off)[^\w\-]/)
- or ($line =~ /^\s+(odd)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'setcontentsaftertitlepage' or $macro eq 'setshortcontentsaftertitlepage')
- {
- $Texi2HTML::THISDOC{$macro} = 1;
- my $tag = 'contents';
- $tag = 'shortcontents' if ($macro ne 'setcontentsaftertitlepage');
- $content_element{$tag}->{'aftertitlepage'} = 1;
- }
- elsif (grep {$macro eq $_} ('everyheading', 'everyfooting',
- 'evenheading', 'evenfooting', 'oddheading', 'oddfooting'))
- {
- my $arg = $line;
- $arg =~ s/^\s+//;
- $Texi2HTML::THISDOC{$macro} = $arg;
- }
- elsif ($macro eq 'need')
- {
- unless (($line =~ /^\s+([0-9]+(\.[0-9]*)?)[^\w\-]/) or
- ($line =~ /^\s+(\.[0-9]+)[^\w\-]/))
- {
- echo_warn ("Bad \@$macro", $line_nr);
- }
- }
-
- ($text, $line, $args) = preserve_command($line, $macro);
- return ($text, $line);
-}
-
-# return the line after removing things according to misc_command map.
-# if the skipped macro has an effect it is done here
-# this is used during pass_text
-sub misc_command_text($$$$$$)
-{
- my $line = shift;
- my $macro = shift;
- my $stack = shift;
- my $state = shift;
- my $text = shift;
- my $line_nr = shift;
- my ($skipped, $remaining, $args);
- # if it is true the command args are kept so the user can modify how
- # they are skipped and handle them as unknown @-commands
- my $keep = $Texi2HTML::Config::misc_command{$macro}->{'keep'};
-
- if ($macro eq 'detailmenu')
- {
- $state->{'detailmenu'}++;
- }
- elsif ($macro eq 'sp')
- {
- my $sp_number;
- if ($line =~ /^\s+(\d+)\s/)
- {
- $sp_number = $1;
- }
- elsif ($line =~ /(\s*)$/)
- {
- $sp_number = '';
- }
- else
- {
- echo_error ("\@$macro needs a numeric arg or no arg", $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($macro eq 'verbatiminclude' and !$keep)
- {
- if ($line =~ /\s+(.+)/)
- {
- my $arg = $1;
- my $file = locate_include_file($arg);
- if (defined($file))
- {
- if (!open(VERBINCLUDE, $file))
- {
- echo_warn ("Can't read file $file: $!",$line_nr);
- }
- else
- {
- my $verb_text = '';
- while (my $line = <VERBINCLUDE>)
- {
- $verb_text .= $line;
- }
-
- if ($state->{'remove_texi'})
- {
- add_prev ($text, $stack, &$Texi2HTML::Config::raw_no_texi('verbatim', $verb_text));
- }
- else
- {
- add_prev($text, $stack, &$Texi2HTML::Config::raw('verbatim', $verb_text));
- }
- close VERBINCLUDE;
- }
- }
- else
- {
- echo_error ("Can't find $arg, skipping", $line_nr);
- }
- }
- else
- {
- echo_error ("Bad \@$macro line: $_", $line_nr);
- }
- }
- elsif ($macro eq 'indent' or $macro eq 'noindent')
- {
- $state->{'paragraph_indent'} = $macro;
- }
- ($remaining, $skipped, $args) = preserve_command($line, $macro);
- return ($skipped) if ($keep);
- return $remaining if ($remaining ne '');
- return undef;
-}
-
-# merge the things appearing before the first @node or sectionning 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;
- 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'})
- {
- $node_menu_ref->{'menu_up'} = $state->{'node_ref'};
- $node_menu_ref->{'menu_up_hash'}->{$state->{'node_ref'}->{'texi'}} = 1;
- }
- else
- {
- echo_warn ("menu entry without previous node: $node", $line_nr) unless ($node =~ /\(.+\)/);
- }
- 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'})
- {
- $state->{'node_ref'}->{'menu_child'} = $node_menu_ref;
- }
- $state->{'prev_menu_node'} = $node_menu_ref;
-}
-
-sub equivalent_nodes($)
-{
- my $name = shift;
-#print STDERR "equivalent_nodes $name\n";
- my $node = normalise_node($name);
- $name = cross_manual_line($node);
- my @equivalent_nodes = ();
- if (exists($cross_reference_nodes{$name}))
- {
- @equivalent_nodes = grep {$_ ne $node} @{$cross_reference_nodes{$name}};
- }
- return @equivalent_nodes;
-}
-
-my %files = (); # keys are files. This is used to avoid reusing an allready
- # used file name
-my %empty_indices = (); # value is true for an index name key if the index
- # is empty
-my %printed_indices = (); # value is true for an index name not empty and
- # printed
-
-# 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 to modify also the headings
- foreach my $section (values(%sections))
- {
- my $level = $section->{'level'};
- if ($level > $MAX_LEVEL)
- {
- $section->{'level'} = $MAX_LEVEL;
- }
- elsif ($level < $MIN_LEVEL and !$section->{'top'})
- {
- $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 sectionning 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
-
- 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'}));
- ########################### end debug
- next if ($section->{'top'});
- print STDERR "Bug level undef for ($section) $section->{'texi'}\n" if (!defined($section->{'level'}));
- $section->{'toplevel'} = 1 if ($section->{'level'} == $toplevel);
- # undef things under that section level
- for (my $level = $section->{'level'} + 1; $level < $MAX_LEVEL + 1 ; $level++)
- {
- $previous_numbers[$level] = undef;
- $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);
- }
- if (!defined($previous_numbers[$section->{'level'}]) and !$number_set)
- {
- if ($section->{'tag'} =~ /unnumbered/)
- {
- $previous_numbers[$section->{'level'}] = undef;
- }
- else
- {
- $previous_numbers[$section->{'level'}] = 1;
- }
- }
- elsif ($section->{'tag'} !~ /unnumbered/ and !$number_set)
- {
- $previous_numbers[$section->{'level'}]++;
- }
- # construct the section number
- $section->{'number'} = '';
-
- unless ($section->{'tag'} =~ /unnumbered/)
- {
- 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));
- $section->{'number'} = "$toplevel_number.$section->{'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
- if ($section->{'level'} == $toplevel)
- {
- $section->{'sectionup'} = undef;
- }
- else
- {
- my $level = $section->{'level'} - 1;
- while (!defined($previous_sections[$level]) and ($level >= 0))
- {
- $level--;
- }
- if ($level >= 0)
- {
- $section->{'sectionup'} = $previous_sections[$level];
- # 'child' is the first child
- $section->{'sectionup'}->{'child'} = $section unless ($section->{'sectionprev'});
- push @{$section->{'sectionup'}->{'section_childs'}}, $section;
- }
- else
- {
- $section->{'sectionup'} = undef;
- }
- }
- $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', 'node_next', 'node_up');
- # 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 (@node_directions)
- {
- if (defined($node->{$direction}) and !ref($node->{$direction})
- and ($node->{$direction} ne ''))
- {
- if ($nodes{$node->{$direction}} and $nodes{$node->{$direction}}->{'seen'})
- {
- $node->{$direction} = $nodes{$node->{$direction}};
- }
- elsif (($node->{$direction} =~ /^\(.*\)/) or $novalidate)
- { # ref to an external node
- if (exists($nodes{$node->{$direction}}))
- {
- $node->{$direction} = $nodes{$node->{$direction}};
- }
- else
- {
- # FIXME if {'seen'} this is a node appearing in the
- # document and a node like `(file)node'. What to
- # do then ?
- my $node_ref = { 'texi' => $node->{$direction} };
- $node_ref->{'external_node'} = 1 if ($node->{$direction} =~ /^\(.*\)/);
- $nodes{$node->{$direction}} = $node_ref;
- $node->{$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();
-
- # 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 (@node_directions)
- {
- if (defined($node->{$direction}) and !ref($node->{$direction})
- and ($node->{$direction} ne ''))
- {
- echo_warn ("$direction `$node->{$direction}' for `$node->{'texi'}' not found");
- 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))
- {
- echo_warn (" ---> but equivalent node `$node_seen' found");
- $node->{$direction} = $nodes{$node_seen};
- }
- else
- {
- delete $node->{$direction};
- }
- }
- }
- }
-
- # find section preceding and following top
- my $section_before_top; # section preceding the top node
- my $section_after_top; # section following the top node
- if ($node_top)
- {
- my $previous_is_top = 0;
- foreach my $element (@all_elements)
- {
- if ($element eq $node_top)
- {
- $previous_is_top = 1;
- next;
- }
- if ($previous_is_top)
- {
- if ($element->{'section'})
- {
- $section_after_top = $element;
- last;
- }
- next;
- }
- $section_before_top = $element if ($element->{'section'});
- }
- }
- print STDERR "# section before Top: $section_before_top->{'texi'}\n"
- if ($section_before_top and ($T2H_DEBUG & $DEBUG_ELEMENTS));
- print STDERR "# section after Top: $section_after_top->{'texi'}\n"
- if ($section_after_top and ($T2H_DEBUG & $DEBUG_ELEMENTS));
-
- print STDERR "# Build the elements list\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- if (!$Texi2HTML::Config::USE_NODES)
- {
- #the only sectionning elements are sections
- @elements_list = @sections_list;
- # if there is no section we use nodes...
- if (!@elements_list)
- {
- print STDERR "# no section\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- @elements_list = @all_elements;
- }
- elsif (!$section_top and $node_top and !$node_top->{'with_section'})
- { # special case for the top node if it isn't associated with
- # a section. The top node element is inserted between the
- # $section_before_top and the $section_after_top
- print STDERR "# Top not associated with a section\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- $node_top->{'top_as_section'} = 1;
- $node_top->{'section_ref'} = $node_top;
- my @old_element_lists = @elements_list;
- @elements_list = ();
- while (@old_element_lists)
- {
- my $section = shift @old_element_lists;
- if ($section_before_top and ($section eq $section_before_top))
- {
- push @elements_list, $section;
- push @elements_list, $node_top;
- last;
- }
- elsif ($section_after_top and ($section eq $section_after_top))
- {
- push @elements_list, $node_top;
- push @elements_list, $section;
- last;
- }
- push @elements_list, $section;
- }
- push @elements_list, @old_element_lists;
- }
-
- foreach my $element (@elements_list)
- {
- print STDERR "# new section element $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- }
- }
- else
- {
- # elements are sections if possible, and node if no section associated
- foreach my $element(@all_elements)
- {
- if ($element->{'node'})
- {
- if (!defined($element->{'with_section'}))
- {
- $element->{'toc_level'} = $MIN_LEVEL if (!defined($element->{'toc_level'}));
- print STDERR "# new node element ($element) $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- push @elements_list, $element;
- }
- }
- else
- {
- print STDERR "# new section element ($element) $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- push @elements_list, $element;
- }
- }
- }
-
- # nodes are attached to the section preceding them if not allready
- # associated with a section
- # here we don't set @{$element->{'nodes'}} since it may be changed
- # below if split by indices. Therefore we only set
- # @{$element->{'all_elements'}} with all the elements associated
- # with an element output, in the right order
- print STDERR "# Find the section associated with each node\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $current_section = $sections_list[0];
- $current_section = $node_top if ($node_top and $node_top->{'top_as_section'} and !$section_before_top);
- foreach my $element (@all_elements)
- {
- if ($element->{'node'} and !$element->{'top_as_section'})
- {
- if ($element->{'with_section'})
- { # the node is associated with a section
- $element->{'section_ref'} = $element->{'with_section'};
- push @{$element->{'section_ref'}->{'all_elements'}}, $element, $element->{'section_ref'};
- # first index is section if the first index is associated with that node
- $element_index = $element->{'section_ref'} if ($element_index and ($element_index eq $element));
- }
- elsif (defined($current_section))
- {# node appearing after a section, but not before another section,
- # or appearing before any section
- $element->{'section_ref'} = $current_section;
- $element->{'toc_level'} = $current_section->{'toc_level'};
- push @{$current_section->{'node_childs'}}, $element;
- if ($Texi2HTML::Config::USE_NODES)
- { # the node is an element itself
- push @{$element->{'all_elements'}}, $element;
- }
- else
- {
- push @{$current_section->{'all_elements'}}, $element;
- # first index is section if the first index is associated with that node
- $element_index = $current_section if ($element_index and ($element_index eq $element));
- }
- }
- else
- { # seems like there are only nodes in the documents
- $element->{'toc_level'} = $MIN_LEVEL;
- push @{$element->{'all_elements'}}, $element;
- }
- }
- else
- {
- $current_section = $element;
- if ($element->{'node'})
- { # Top node not associated with a section
- $element->{'toc_level'} = $MIN_LEVEL;
- push @{$element->{'section_ref'}->{'all_elements'}}, $element;
- }
- elsif (!$element->{'node_ref'})
- { # a section not preceded by a node
- push @{$element->{'all_elements'}}, $element;
- }
- }
- }
-
- # find first, last and top elements
- $element_first = $elements_list[0];
- print STDERR "# element first: $element_first->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- print STDERR "# top node: $node_top->{'texi'}\n" if (defined($node_top) and
- ($T2H_DEBUG & $DEBUG_ELEMENTS));
- # element top is the element with @top.
- $element_top = $section_top;
- # If the top node is associated with a section it is the top_element
- # otherwise element top may be the top node
- $element_top = $node_top if (!defined($element_top) and defined($node_top));
- # If there is no @top section no top node the first node is the top element
- $element_top = $element_first unless (defined($element_top));
- $element_top->{'top'} = 1 if ($element_top->{'node'});
- print STDERR "# element top: $element_top->{'texi'}\n" if ($element_top and
- ($T2H_DEBUG & $DEBUG_ELEMENTS));
-
- # It is the last element before indices split, which may add new
- # elements
- $element_last = $elements_list[-1];
-
- 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
- if (!$node->{'first'} and !$node->{'top'} and !$node->{'menu_up'} and ($node->{'texi'} !~ /^top$/i) 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}->{'first'} or $nodes{$equivalent_node}->{'menu_up'})
- {
- $found = 1;
- last;
- }
- }
- unless ($found)
- {
- warn "$WARN `$node->{'texi'}' doesn't appear in menus\n";
- }
- }
-
- # use values deduced from menus to complete missing up, next, prev
- # or from sectionning commands if automatic sectionning
- if ($node->{'node_up'})
- {
- $node->{'nodeup'} = $node->{'node_up'};
- }
- elsif ($node->{'automatic_directions'} and $node->{'section_ref'})
- {
- if (defined($node_top) and ($node eq $node_top))
- { # 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 (defined($node->{'section_ref'}->{'sectionup'}))
- {
- $node->{'nodeup'} = get_node($node->{'section_ref'}->{'sectionup'});
- }
- elsif ($node->{'section_ref'}->{'toplevel'} and ($node->{'section_ref'} ne $element_top))
- {
- $node->{'nodeup'} = get_node($element_top);
- }
- print STDERR "# Deducing from section node_up $node->{'nodeup'}->{'texi'} for $node->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS and defined($node->{'nodeup'}));
- }
-
- if (!$node->{'nodeup'} and $node->{'menu_up'} and $Texi2HTML::Config::USE_MENU_DIRECTIONS)
- { # makeinfo don't do that
- $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'}}))
- {
- print STDERR "$WARN `$node->{'nodeup'}->{'texi'}' is up for `$node->{'texi'}', but has no menu entry for this node\n" if ($Texi2HTML::Config::SHOW_MENU);
- push @{$node->{'up_not_in_menu'}}, $node->{'nodeup'}->{'texi'};
- }
- }
-
- # Find next node
- if ($node->{'node_next'})
- {
- $node->{'nodenext'} = $node->{'node_next'};
- }
- elsif ($node->{'texi'} eq 'Top')
- { # special case as said in the texinfo manual
- $node->{'nodenext'} = $node->{'menu_child'} if ($node->{'menu_child'});
- }
- elsif ($node->{'automatic_directions'})
- {
- if (defined($node->{'section_ref'}))
- {
- my $next;
- my $section = $node->{'section_ref'};
- if (defined($section->{'sectionnext'}))
- {
- $next = get_node($section->{'sectionnext'})
- }
- else
- {
- while (defined($section->{'sectionup'}) and !defined($section->{'sectionnext'}))
- {
- $section = $section->{'sectionup'};
- }
- if (defined($section->{'sectionnext'}))
- {
- $next = get_node($section->{'sectionnext'});
- }
- }
- $node->{'nodenext'} = $next;
- }
- }
- # next we try menus. makeinfo don't do that
- if (!defined($node->{'nodenext'}) and $node->{'menu_next'}
- and $Texi2HTML::Config::USE_MENU_DIRECTIONS)
- {
- $node->{'nodenext'} = $node->{'menu_next'};
- }
- # Find prev node
- if ($node->{'node_prev'})
- {
- $node->{'nodeprev'} = $node->{'node_prev'};
- }
- elsif ($node->{'automatic_directions'})
- {
- if (defined($node->{'section_ref'}))
- {
- my $section = $node->{'section_ref'};
- if (defined($section->{'sectionprev'}))
- {
- $node->{'nodeprev'} = get_node($section->{'sectionprev'});
- }
- elsif (defined($section->{'sectionup'}))
- {
- $node->{'nodeprev'} = get_node($section->{'sectionup'});
- }
- }
- }
- # next we try menus. makeinfo don't do that
- if (!defined($node->{'nodeprev'}) and $node->{'menu_prev'} and $Texi2HTML::Config::USE_MENU_DIRECTIONS)
- {
- $node->{'nodeprev'} = $node->{'menu_prev'};
- }
- # the prev node is the parent node
- elsif (!defined($node->{'nodeprev'}) and $node->{'menu_up'} and $Texi2HTML::Config::USE_MENU_DIRECTIONS)
- {
- $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->{'section_ref'}) and defined($node->{'section_ref'}->{'child'}))
- {
- $node->{'following'} = get_node($node->{'section_ref'}->{'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;
- }
- }
- }
-
- if (defined($node->{'section_ref'}))
- {
- my $section = $node->{'section_ref'};
- foreach my $direction ('sectionnext', 'sectionprev', 'sectionup')
- {
- $node->{$direction} = $section->{$direction}
- if (defined($section->{$direction}));
- }
- # this is a node appearing within a section but not associated
- # with that section. We consider that it is below that section.
- $node->{'sectionup'} = $section
- if (grep {$node eq $_} @{$section->{'node_childs'}});
- }
- # 'up' is used in .init files. Maybe should go away.
- 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++;
- }
-
- print STDERR "# find forward and back\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $prev;
- foreach my $element (@elements_list)
- {
- $element->{'element'} = 1;
- # complete the up for toplevel elements now that element_top is defined
- print STDERR "# fwd and back for $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- # at that point no node may be toplevel, only sections.
- if ($element->{'toplevel'} and ($element ne $element_top))
- {
- $element->{'sectionup'} = $element_top;
- $element->{'up'} = $element_top;
- }
- if ($prev)
- {
- $element->{'back'} = $prev;
- $prev->{'forward'} = $element;
- $prev = $element;
- }
- else
- {
- $prev = $element;
- }
- # If the element is not a node, then all the node directions are copied
- # if there is an associated node
- if (defined($element->{'node_ref'}))
- {
- $element->{'nodenext'} = $element->{'node_ref'}->{'nodenext'};
- $element->{'nodeprev'} = $element->{'node_ref'}->{'nodeprev'};
- $element->{'menu_next'} = $element->{'node_ref'}->{'menu_next'};
- $element->{'menu_prev'} = $element->{'node_ref'}->{'menu_prev'};
- $element->{'menu_child'} = $element->{'node_ref'}->{'menu_child'};
- $element->{'menu_up'} = $element->{'node_ref'}->{'menu_up'};
- $element->{'nodeup'} = $element->{'node_ref'}->{'nodeup'};
- $element->{'following'} = $element->{'node_ref'}->{'following'};
- }
- elsif (! $element->{'node'})
- { # the section has no node associated. Find the node directions using
- # sections
- if (defined($element->{'sectionnext'}))
- {
- $element->{'nodenext'} = get_node($element->{'sectionnext'});
- }
- if (defined($element->{'sectionprev'}))
- {
- $element->{'nodeprev'} = get_node($element->{'sectionprev'});
- }
- if (defined($element->{'up'}))
- {
- $element->{'nodeup'} = get_node($element->{'up'});
- }
- if ($element->{'child'})
- {
- $element->{'following'} = get_node($element->{'child'});
- }
- elsif ($element->{'sectionnext'})
- {
- $element->{'following'} = get_node($element->{'sectionnext'});
- }
- elsif ($element->{'up'})
- {
- my $up = $element;
- while ($up->{'up'} and !$element->{'following'})
- {
- print STDERR "# Going up, searching next section from $up->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- $up = $up->{'up'};
- if ($up->{'sectionnext'})
- {
- $element->{'following'} = get_node ($up->{'sectionnext'});
- }
- # avoid infinite loop if the top is up for itself
- last if ($up->{'toplevel'} or $up->{'top'});
- }
- }
- }
- }
-
- my @new_elements = ();
- print STDERR "# preparing indices\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
-
- while(@elements_list)
- {
- my $element = shift @elements_list;
- # current_element is the last element which can hold text. It is
- # initialized to a fake element
- my $current_element = { 'holder' => 1, 'texi' => 'HOLDER',
- 'place' => [], 'indices' => [] };
- # $back, $forward and $sectionnext are kept because $element
- # is in @{$element->{'all_elements'}}, so it is possible that
- # those directions get changed.
- # back is set to find back and forward
- my $back = $element->{'back'} if defined($element->{'back'});
- my $forward = $element->{'forward'};
- my $sectionnext = $element->{'sectionnext'};
- my $index_num = 0;
- my @waiting_elements = (); # elements (nodes) not used for sectionning
- # waiting to be associated with an element
- foreach my $checked_element(@{$element->{'all_elements'}})
- {
- if ($checked_element->{'element'})
- { # this is the element, we must add it
- push @new_elements, $checked_element;
- if ($current_element->{'holder'})
- { # no previous element added
- push @{$checked_element->{'place'}}, @{$current_element->{'place'}};
- foreach my $index(@{$current_element->{'indices'}})
- {
- push @{$checked_element->{'indices'}}, [ { 'element' => $checked_element, 'page' => $index->[0]->{'page'}, 'name' => $index->[0]->{'name'} } ] ;
- }
- }
- else
- {
- $current_element->{'sectionnext'} = $checked_element;
- $current_element->{'following'} = $checked_element;
- $checked_element->{'sectionprev'} = $current_element;
- }
- $current_element = $checked_element;
- $checked_element->{'back'} = $back;
- $back->{'forward'} = $checked_element if (defined($back));
- $back = $checked_element;
- push @{$checked_element->{'nodes'}}, @waiting_elements;
- @waiting_elements = ();
- }
- elsif ($current_element->{'holder'})
- {
- push @waiting_elements, $checked_element;
- }
- else
- {
- push @{$current_element->{'nodes'}}, $checked_element;
- $checked_element->{'section_ref'} = $current_element;
- }
- push @{$current_element->{'place'}}, @{$checked_element->{'current_place'}};
- foreach my $index (@{$checked_element->{'index_names'}})
- {
- print STDERR "# Index in `$checked_element->{'texi'}': $index->{'name'}. Current is `$current_element->{'texi'}'\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- my ($pages, $entries) = get_index($index->{'name'});
- if (defined($pages))
- {
- my @pages = @$pages;
- my $first_page = shift @pages;
- ############################## begin debug section
- my $back_texi = 'NO_BACK';
- $back_texi = $back->{'texi'} if (defined($back));
- print STDERR "# Index first page (back `$back_texi', in `$current_element->{'texi'}')\n" if ($T2H_DEBUG & $DEBUG_INDEX);
- ############################## end debug section
- push @{$current_element->{'indices'}}, [ {'element' => $current_element, 'page' => $first_page, 'name' => $index->{'name'} } ];
- if (@pages)
- {# index is split accross more than one page
- if ($current_element->{'holder'})
- { # the current element isn't an element which is
- # normally outputted. We add a real element.
- # we are in a node of a section but the element
- # is split by the index, thus we must add
- # a new element which will contain the text
- # between the beginning of the element and the index
- # WARNING the added element is like a section, and
- # indeed it is a 'section_ref' and 'sectionup'
- # for other nodes, it has 'nodes'
- # (see below and above).
- # But it is also a node. It may have a 'with_section'
- # and have a 'section_ref'
- # it may be considered 'node_ref' for a section.
- # and the Texi2HTML::NODE is relative to this
- # added element.
-
- push @new_elements, $checked_element;
- print STDERR "# Add `$checked_element->{'texi'}' before index page for `$element->{'texi'}'\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- echo_warn("Add `$checked_element->{'texi'}' for indicing");
- $checked_element->{'element'} = 1;
- $checked_element->{'level'} = $element->{'level'};
- $checked_element->{'toc_level'} = $element->{'toc_level'};
- $checked_element->{'toplevel'} = $element->{'toplevel'};
- if ($element->{'top'})
- {
- $checked_element->{'toplevel'} = 1;
- $checked_element->{'top'} = 1;
- }
- $checked_element->{'up'} = $element->{'up'};
- $checked_element->{'sectionup'} = $element->{'sectionup'};
- $checked_element->{'element_added'} = 1;
- print STDERR "Bug: checked element wasn't seen" if
- (!$checked_element->{'seen'});
- $element->{'sectionprev'}->{'sectionnext'} = $checked_element if (exists($element->{'sectionprev'}));
- push @{$checked_element->{'place'}}, @{$current_element->{'place'}};
- foreach my $index(@{$current_element->{'indices'}})
- {
- push @{$checked_element->{'indices'}}, [ { 'element' => $checked_element, 'page' => $index->[0]->{'page'}, 'name' => $index->[0]->{'name'} } ] ;
- }
- foreach my $waiting_element (@waiting_elements)
- {
- next if ($waiting_element eq $checked_element);
- $waiting_element->{'section_ref'} = $checked_element;
- $waiting_element->{'sectionup'} = $checked_element;
- push @{$checked_element->{'nodes'}}, $waiting_element;
- }
- @waiting_elements = ();
- $checked_element->{'back'} = $back;
- $back->{'forward'} = $checked_element if (defined($back));
- $current_element = $checked_element;
- $back = $checked_element;
- }
- my $index_page;
- while(@pages)
- {
- print STDERR "# New page (back `$back->{'texi'}', current `$current_element->{'texi'}')\n" if ($T2H_DEBUG & $DEBUG_INDEX);
- $index_num++;
- my $page = shift @pages;
- $index_page = { 'index_page' => 1,
- 'texi' => "NOT REALLY USED: $current_element->{'texi'}' index $index->{'name'} page $index_num",
- 'level' => $element->{'level'},
- 'tag' => $element->{'tag'},
- 'tag_level' => $element->{'tag_level'},
- 'toplevel' => $element->{'toplevel'},
- 'top' => $element->{'top'},
- 'up' => $element->{'up'},
- 'sectionup' => $element->{'sectionup'},
- 'back' => $back,
- 'prev' => $back,
- 'sectionnext' => $sectionnext,
- 'following' => $current_element->{'following'},
- 'nodeup' => $current_element->{'nodeup'},
- 'nodenext' => $current_element->{'nodenext'},
- 'nodeprev' => $back,
- 'place' => [],
- 'seen' => 1,
- 'page' => $page
- };
- # the index page is associated with the new element
- # if there is one, the element otherwise
- if ($checked_element->{'element_added'})
- {
- $index_page->{'original_index_element'} = $checked_element;
- }
- else
- {
- $index_page->{'original_index_element'} = $element;
- }
- $index_page->{'node'} = 1 if ($element->{'node'});
- while ($nodes{$index_page->{'texi'}})
- {
- $nodes{$index_page->{'texi'}} .= ' ';
- }
- $nodes{$index_page->{'texi'}} = $index_page;
- push @{$current_element->{'indices'}->[-1]}, {'element' => $index_page, 'page' => $page, 'name' => $index->{'name'} };
- push @new_elements, $index_page;
- $back->{'forward'} = $index_page;
- $back->{'nodenext'} = $index_page;
- $back->{'sectionnext'} = $index_page unless ($back->{'top'});
- $back->{'following'} = $index_page;
- $back = $index_page;
- $index_page->{'toplevel'} = 1 if ($element->{'top'});
- }
- $current_element = $index_page;
- }
- }
- else
- {
- print STDERR "# Empty index: $index->{'name'}\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- $empty_indices{$index->{'name'}} = 1;
- }
- push @{$current_element->{'place'}}, @{$index->{'place'}};
- }
- }
- if ($forward and ($current_element ne $element))
- {
- $current_element->{'forward'} = $forward;
- $forward->{'back'} = $current_element;
- }
- next if ($current_element eq $element or !$element->{'toplevel'});
- # reparent the elements below $element to the last index page
- print STDERR "# Reparent for `$element->{'texi'}':\n" if ($T2H_DEBUG & $DEBUG_INDEX);
- foreach my $reparented(@{$element->{'section_childs'}},@{$element->{'node_childs'}})
- {
- $reparented->{'sectionup'} = $current_element;
- print STDERR " reparented: $reparented->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- }
- }
- @elements_list = @new_elements;
-
- print STDERR "# find fastback and fastforward\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- foreach my $element (@elements_list)
- {
- my $up = get_top($element);
- next unless (defined($up));
- $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
- $element->{'fastforward'} = $up->{'sectionnext'} if (exists ($up->{'sectionnext'}));
- # 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.
- # It is the section associated with the node except if USE_NODES
- unless ($Texi2HTML::Config::USE_NODES)
- {
- foreach my $node(@nodes_list)
- {
- if ($node->{'with_section'})
- {
- $node->{'reference_element'} = $node->{'with_section'};
- }
- }
- }
-
- my $index_nr = 0;
- # convert directions in direction with first letter in all caps, to be
- # consistent with the convention used in the .init file.
- # find id for nodes and indices
- foreach my $element (@elements_list)
- {
- $element->{'this'} = $element;
- foreach my $direction (@element_directions)
- {
- my $direction_no_caps = $direction;
- $direction_no_caps =~ tr/A-Z/a-z/;
- $element->{$direction} = $element->{$direction_no_caps};
- }
- if ($element->{'index_page'})
- {
- $element->{'id'} = "INDEX" . $index_nr;
- $index_nr++;
- }
- }
-
- print STDERR "# find float id\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- foreach my $float (@floats)
- {
- $float->{'style_id'} = cross_manual_line(normalise_space($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->{'number'} ne '')
- {
- $float->{'chapter_nr'} = $up->{'number'};
- $float->{'nr'} = $float->{'chapter_nr'} . $float_style->{'nr_in_chapter'};
- }
- else
- {
- $float->{'nr'} = $float->{'absolute_nr'};
- }
- }
-
- if ($Texi2HTML::Config::NEW_CROSSREF_STYLE)
- {
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- next if ($node->{'external_node'} or $node->{'index_page'});
- $node->{'id'} = node_to_id($node->{'cross_manual_target'});
- }
- }
-
- # Find node file names and file names for nodes considered as elements
- my $node_as_top;
- if ($node_top)
- {
- $node_as_top = $node_top;
- }
- elsif ($element_top->{'node_ref'})
- {
- $node_as_top = $element_top->{'node_ref'};
- }
- else
- {
- $node_as_top = $node_first;
- }
- if ($node_as_top)
- {
- my $node_file;
- $node_file = &$Texi2HTML::Config::node_file_name($node_as_top,'top');
- $node_as_top->{'node_file'} = $node_file if (defined($node_file));
- }
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- next if (defined($node_as_top) and ($node eq $node_as_top));
- my $node_file = &$Texi2HTML::Config::node_file_name($node,'');
- $node->{'node_file'} = $node_file if (defined($node_file));
- }
-
- print STDERR "# 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::SPLIT)
- {
- my $cut_section = $toplevel;
- my $doc_nr = -1;
- if ($Texi2HTML::Config::SPLIT eq 'section')
- {
- $cut_section = 2 if ($toplevel <= 2);
- }
- my $previous_file;
- foreach my $element (@elements_list)
- {
- print STDERR "# Splitting ($Texi2HTML::Config::SPLIT:$cut_section) $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $new_file = 0;
- if (
- ($Texi2HTML::Config::SPLIT eq 'node') or
- (
- defined($element->{'level'}) and ($element->{'level'} <= $cut_section)
- )
- )
- {
- $new_file = 1;
- $doc_nr++;
- }
- $doc_nr = 0 if ($doc_nr < 0); # happens if first elements are nodes
- $element->{'doc_nr'} = $doc_nr;
- my $is_top = '';
- $element->{'file'} = "${docu_name}_$doc_nr"
- . ($docu_ext ? ".$docu_ext" : "");
- if ($element->{'top'} or (defined($element->{'node_ref'}) and $element->{'node_ref'} eq $element_top))
- { # the top elements
- $is_top = "top";
- $element->{'file'} = $docu_top;
- }
- elsif ($Texi2HTML::Config::NODE_FILES)
- {
- if ($new_file)
- {
- my $node = get_node($element) unless(exists($element->{'node_ref'})
- and $element->{'node_ref'}->{'element_added'});
- if ($node and defined($node->{'node_file'}))
- {
- $element->{'file'} = $node->{'node_file'};
- }
- $previous_file = $element->{'file'};
- }
- elsif($previous_file)
- {
- $element->{'file'} = $previous_file;
- }
- }
- if (defined($Texi2HTML::Config::element_file_name))
- {
- my $filename =
- &$Texi2HTML::Config::element_file_name ($element, $is_top, $docu_name);
- $element->{'file'} = $filename if (defined($filename));
- }
- print STDERR "# add_file $element->{'file'} for $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- add_file($element->{'file'});
- foreach my $place(@{$element->{'place'}})
- {
- $place->{'file'} = $element->{'file'};
- $place->{'id'} = $element->{'id'} unless defined($place->{'id'});
- }
- if ($element->{'nodes'})
- {
- foreach my $node (@{$element->{'nodes'}})
- {
- $node->{'doc_nr'} = $element->{'doc_nr'};
- $node->{'file'} = $element->{'file'};
- }
- }
- }
- }
- else
- { # not split
- add_file($docu_doc);
- foreach my $element(@elements_list)
- {
- $element->{'file'} = $docu_doc;
- $element->{'doc_nr'} = 0;
- foreach my $place(@{$element->{'place'}})
- {
- $place->{'file'} = $element->{'file'};
- $place->{'id'} = $element->{'id'} unless defined($place->{'id'});
- }
- }
- foreach my $node(@nodes_list)
- {
- $node->{'file'} = $docu_doc;
- $node->{'doc_nr'} = 0;
- }
- }
- # correct the id and file for the things placed in footnotes
- foreach my $place(@{$footnote_element->{'place'}})
- {
- $place->{'file'} = $footnote_element->{'file'};
- $place->{'id'} = $footnote_element->{'id'} unless defined($place->{'id'});
- }
- # if setcontentsaftertitlepage is set, the contents should be associated
- # with the titlepage. That's wat is done there.
- push @$region_place, $content_element{'contents'}
- if ($Texi2HTML::Config::DO_CONTENTS and $Texi2HTML::THISDOC{'setcontentsaftertitlepage'});
- push @$region_place, $content_element{'shortcontents'}
- if ($Texi2HTML::Config::DO_SCONTENTS and $Texi2HTML::THISDOC{'setshortcontentsaftertitlepage'});
- # correct the id and file for the things placed in regions (copying...)
- foreach my $place(@$region_place)
- {
-#print STDERR "entry $place->{'entry'} texi $place->{'texi'}\n";
- $place->{'file'} = $element_top->{'file'};
- $place->{'id'} = $element_top->{'id'} unless defined($place->{'id'});
- $place->{'element'} = $element_top if (exists($place->{'element'}));
- }
- foreach my $content_type(keys(%content_element))
- {
- if (!defined($content_element{$content_type}->{'file'}))
- {
- print STDERR "# No content $content_type\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- $content_element{$content_type} = undef;
- }
- }
-
- ########################### debug prints
- foreach my $file (keys(%files))
- {
- last unless ($T2H_DEBUG & $DEBUG_ELEMENTS);
- print STDERR "$file: counter $files{$file}->{'counter'}\n";
- }
- foreach my $element ((@elements_list, $footnote_element))
- {
- last unless ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $is_toplevel = 'not toplevel';
- $is_toplevel = 'toplevel' if ($element->{'toplevel'});
- print STDERR "$element ";
- if ($element->{'index_page'})
- {
- print STDERR "index($element->{'id'}, $is_toplevel, doc_nr $element->{'doc_nr'}($element->{'file'})): $element->{'texi'}\n";
- }
- elsif ($element->{'node'})
- {
- print STDERR "node($element->{'id'}, toc_level $element->{'toc_level'}, $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'}));
- }
- 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 " 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 " 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 " n: $element->{'sectionnext'}->{'texi'}\n" if (defined($element->{'sectionnext'}));
- 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'}));
- 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";
- }
- }
- if (defined($element->{'nodes'}))
- {
- print STDERR " nodes: $element->{'nodes'} (@{$element->{'nodes'}})\n";
- foreach my $node (@{$element->{'nodes'}})
- {
- my $beginning = " ";
- $beginning = " *" if ($node->{'with_section'});
- my $file = $node->{'file'};
- $file = "file undef" if (! defined($node->{'file'}));
- print STDERR "${beginning}$node->{'texi'} $file\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'})
- {
- 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'}\n";
- }
- elsif ($place->{'anchor'})
- {
- print STDERR " anchor: $place->{'texi'}\n";
- }
- elsif ($place->{'float'})
- {
- if (defined($place->{'texi'}))
- {
- print STDERR " float($place): $place->{'texi'}\n";
- }
- else
- {
- print STDERR " float($place): NO LABEL\n";
- }
- }
- elsif ($place->{'contents'})
- {
- print STDERR " contents\n";
- }
- elsif ($place->{'shortcontents'})
- {
- print STDERR " shortcontents\n";
- }
- else
- {
- print STDERR " heading: $place->{'texi'}\n";
- }
- }
- if ($element->{'indices'})
- {
- print STDERR " indices: $element->{'indices'}\n";
- foreach my $index(@{$element->{'indices'}})
- {
- print STDERR " $index: ";
- foreach my $page (@$index)
- {
- print STDERR "'$page->{'element'}->{'texi'}'($page->{'name'}): $page->{'page'} ";
- }
- print STDERR "\n";
- }
- }
- }
- ########################### end debug prints
-}
-
-sub add_file($)
-{
- my $file = shift;
- if ($files{$file})
- {
- $files{$file}->{'counter'}++;
- }
- else
- {
- $files{$file} = {
- #'type' => 'section',
- 'counter' => 1,
- 'relative_foot_num' => 1,
- 'foot_lines' => []
- };
- }
-}
-
-# find parent element which is a top element, or a node within the top section
-sub get_top($)
-{
- my $element = shift;
- my $up = $element;
- while (!$up->{'toplevel'} and !$up->{'top'})
- {
- $up = $up->{'sectionup'};
- if (!defined($up))
- {
- # 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;
- }
- }
- return $up;
-}
-
-sub get_node($)
-{
- my $element = shift;
- return undef if (!defined($element));
- return $element if ($element->{'node'});
- return $element->{'node_ref'} if ($element->{'node_ref'});
- return $element;
-}
-# get the html names from the texi for all elements
-sub do_names()
-{
- print STDERR "# Doing ". scalar(keys(%nodes)) . " nodes, ".
- scalar(keys(%sections)) . " sections 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.
- foreach my $node (keys(%nodes))
- {
- next if ($nodes{$node}->{'index_page'}); # some nodes are index pages.
- my $texi = &$Texi2HTML::Config::heading_texi($nodes{$node}->{'tag'},
- $nodes{$node}->{'texi'}, undef);
- $nodes{$node}->{'text'} = substitute_line ($texi);
- $nodes{$node}->{'text_nonumber'} = $nodes{$node}->{'text'};
- # backward compatibility
- $nodes{$node}->{'name'} = $nodes{$node}->{'text_nonumber'};
- $nodes{$node}->{'no_texi'} = remove_texi($texi);
- $nodes{$node}->{'simple_format'} = simple_format(undef, $texi);
- $nodes{$node}->{'heading_texi'} = $texi;
- # FIXME : what to do if $nodes{$node}->{'external_node'} and
- # $nodes{$node}->{'seen'}
- }
- foreach my $number (keys(%sections))
- {
- my $section = $sections{$number};
- #$section->{'name'} = substitute_line($section->{'texi'});
- my $texi = &$Texi2HTML::Config::heading_texi($section->{'tag'}, $section->{'texi'}, $section->{'number'});
- $section->{'text'} = substitute_line($texi);
- $section->{'text_nonumber'} = substitute_line($section->{'texi'});
- # backward compatibility
- $section->{'name'} = $section->{'text_nonumber'};
- $section->{'no_texi'} = remove_texi($texi);
- $section->{'simple_format'} = simple_format(undef,$texi);
- $section->{'heading_texi'} = $texi;
- }
- my $tocnr = 1;
- foreach my $element (@elements_list)
- {
- if (!$element->{'top'} and !$element->{'index_page'})
- { # for link back to table of contents
- # FIXME do it for top too?
- $element->{'tocid'} = 'TOC' . $tocnr;
- $tocnr++;
- }
- next if (defined($element->{'text'}));
- if ($element->{'index_page'})
- {
- my $page = $element->{'page'};
- my $original_element = $element->{'original_index_element'};
- my $texi = &$Texi2HTML::Config::index_element_heading_texi(
- $original_element->{'heading_texi'},
- $original_element->{'tag'},
- $original_element->{'texi'},
- $original_element->{'number'},
- $page->{'first_letter'}, $page->{'last_letter'});
- $element->{'heading_texi'} = $texi;
- $element->{'text'} = substitute_line($texi);
- $element->{'no_texi'} = remove_texi($texi);
- $element->{'simple_format'} = simple_format(undef,$texi);
- }
- }
- print STDERR "# Names done\n" if ($T2H_DEBUG);
-}
-
-@{$Texi2HTML::TOC_LINES} = (); # table of contents
-@{$Texi2HTML::OVERVIEW} = (); # short table of contents
-
-
-
-#+++############################################################################
-# #
-# Stuff related to Index generation #
-# #
-#---############################################################################
-
-# called during pass_structure
-sub enter_index_entry($$$$$$$)
-{
- my $prefix = shift;
- my $line_nr = shift;
- my $key = shift;
- my $place = shift;
- my $element = shift;
- my $use_section_id = shift;
- my $command = shift;
- unless ($index_prefix_to_name{$prefix})
- {
- echo_error ("Undefined index command: ${prefix}index", $line_nr);
- $key = '';
- }
- if (!exists($element->{'tag'}) and !$element->{'footnote'})
- {
- echo_warn ("Index entry before document: \@${prefix}index $key", $line_nr);
- }
- $key =~ s/\s+$//;
- $key =~ s/^\s*//;
- my $entry = $key;
- # The $key is mostly usefull for alphabetical sorting
- $key = remove_texi($key);
- my $id = '';
- # don't add a specific index target if after a section or the index
- # entry is in @copying or the like
- unless ($use_section_id or ($place eq $region_place))
- {
- $id = 'IDX' . ++$idx_num;
- }
- my $index_entry = {
- 'entry' => $entry,
- 'element' => $element,
- 'prefix' => $prefix,
- 'label' => $id,
- 'command' => $command
- };
-
- print STDERR "# enter \@$command ${prefix}index '$key' with id $id ($index_entry)\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- if ($key =~ /^\s*$/)
- {
- echo_warn("Empty index entry for \@$command",$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
- push @index_labels, $index_entry unless ($place eq $region_place);
- return;
- }
- while (exists $index->{$prefix}->{$key})
- {
- $key .= ' ';
- }
- $index->{$prefix}->{$key} = $index_entry;
- push @$place, $index_entry;
- # 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
- push @index_labels, $index_entry unless ($place eq $region_place);
-}
-
-# sort according to cmp if both $a and $b are alphabetical or non alphabetical,
-# otherwise the alphabetical is ranked first
-sub by_alpha
-{
- if ($a =~ /^[A-Za-z]/)
- {
- if ($b =~ /^[A-Za-z]/)
- {
- return lc($a) cmp lc($b);
- }
- else
- {
- return 1;
- }
- }
- elsif ($b =~ /^[A-Za-z]/)
- {
- return -1;
- }
- else
- {
- return lc($a) cmp lc($b);
- }
-}
-
-# returns an array of index entries pages splitted by letters
-# each page has the following members:
-# 'first_letter' first letter on that page
-# 'last_letter' last letter on that page
-# 'letters' ref on an array with all the letters for that page
-# 'entries_by_letter' ref on a hash. Each key is a letter, with value a ref
-# on arrays of index entries beginning with this letter
-sub get_index_pages($)
-{
- my $entries = shift;
- my (@letters);
- my ($entries_by_letter, $pages, $page) = ({}, [], {});
- my @keys = sort by_alpha keys %$entries;
-
- # each index entry is placed according to its first letter in
- # entries_by_letter
- for my $key (@keys)
- {
- push @{$entries_by_letter->{uc(substr($key,0, 1))}} , $entries->{$key};
- }
- @letters = sort by_alpha keys %$entries_by_letter;
- $Texi2HTML::Config::SPLIT_INDEX = 0 unless $Texi2HTML::Config::SPLIT;
-
- if ($Texi2HTML::Config::SPLIT_INDEX and $Texi2HTML::Config::SPLIT_INDEX =~ /^\d+$/)
- {
- my $i = 0;
- my ($prev_letter);
- foreach my $letter (@letters)
- {
- if ($i > $Texi2HTML::Config::SPLIT_INDEX)
- {
- $page->{'last_letter'} = $prev_letter;
- push @$pages, $page;
- $i=0;
- }
- if ($i == 0)
- {
- $page = {};
- $page->{'letters'} = [];
- $page->{'entries_by_letter'} = {};
- $page->{'first_letter'} = $letter;
- }
- push @{$page->{'letters'}}, $letter;
- $page->{'entries_by_letter'}->{$letter} = [@{$entries_by_letter->{$letter}}];
- $i += scalar(@{$entries_by_letter->{$letter}});
- $prev_letter = $letter;
- }
- $page->{'last_letter'} = $letters[$#letters];
- push @$pages, $page;
- }
- else
- {
- warn "$WARN Bad Texi2HTML::Config::SPLIT_INDEX: $Texi2HTML::Config::SPLIT_INDEX\n" if ($Texi2HTML::Config::SPLIT_INDEX);
- $page->{'first_letter'} = $letters[0];
- $page->{'last_letter'} = $letters[$#letters];
- $page->{'letters'} = \@letters;
- $page->{'entries_by_letter'} = $entries_by_letter;
- push @$pages, $page;
- return $pages;
- }
- return $pages;
-}
-
-# return the page and the entries. Cache the result in %indices.
-sub get_index($;$)
-{
- my $index_name = shift;
- my $line_nr = shift;
-
- return (@{$indices{$index_name}}) if ($indices{$index_name});
-
- unless (exists($index_names{$index_name}))
- {
- echo_error ("Bad index name: $index_name", $line_nr);
- return;
- }
- # add the index name itself to the index names searched for index
- # prefixes. Only those found associated by synindex or syncodeindex are
- # allready there (unless this code has allready been called).
- if ($index_names{$index_name}->{'code'})
- {
- $index_names{$index_name}->{'associated_indices_code'}->{$index_name} = 1;
- }
- else
- {
- $index_names{$index_name}->{'associated_indices'}->{$index_name} = 1;
- }
-
- # find all the index names associated with the prefixes and then
- # all the entries associated with each prefix
- my $entries = {};
- foreach my $associated_indice(keys %{$index_names{$index_name}->{'associated_indices'}})
- {
- foreach my $prefix(@{$index_names{$associated_indice}->{'prefix'}})
- {
- foreach my $key (keys %{$index->{$prefix}})
- {
- $entries->{$key} = $index->{$prefix}->{$key};
- }
- }
- }
-
- foreach my $associated_indice (keys %{$index_names{$index_name}->{'associated_indices_code'}})
- {
- unless (exists ($index_names{$index_name}->{'associated_indices'}->{$associated_indice}))
- {
- foreach my $prefix (@{$index_names{$associated_indice}->{'prefix'}})
- {
- foreach my $key (keys (%{$index->{$prefix}}))
- {
- $entries->{$key} = $index->{$prefix}->{$key};
- # use @code for code style index entry
- $entries->{$key}->{'entry'} = "\@code{$entries->{$key}->{entry}}";
- }
- }
- }
- }
-
- return unless %$entries;
- my $pages = get_index_pages($entries);
- $indices{$index_name} = [ $pages, $entries ];
- return ($pages, $entries);
-}
-
-my @foot_lines = (); # footnotes
-my $copying_comment = ''; # comment constructed from text between
- # @copying and @end copying with licence
-my $to_encoding; # out file encoding
-my %acronyms_like = (); # acronyms or similar commands associated texts
- # the key are the commands, the values are
- # hash references associating shorthands to
- # texts.
-
-sub initialise_state($)
-{
- my $state = shift;
- $state->{'preformatted'} = 0 unless exists($state->{'preformatted'});
- $state->{'code_style'} = 0 unless exists($state->{'code_style'});
- $state->{'keep_texi'} = 0 unless exists($state->{'keep_texi'});
- $state->{'keep_nr'} = 0 unless exists($state->{'keep_nr'});
- $state->{'detailmenu'} = 0 unless exists($state->{'detailmenu'}); # number of opened detailed menus
- $state->{'table_list_stack'} = [ {'format' => "noformat"} ] unless exists($state->{'table_list_stack'});
- $state->{'paragraph_style'} = [ '' ] unless exists($state->{'paragraph_style'});
- $state->{'preformatted_stack'} = [ '' ] unless exists($state->{'preformatted_stack'});
- $state->{'menu'} = 0 unless exists($state->{'menu'});
- $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
- $state->{'element'} = $elements_list[0] unless (exists($state->{'element'}) and !$state->{'element'}->{'before_anything'});
-}
-
-sub pass_text()
-{
- my %state;
- initialise_state(\%state);
- my @stack;
- my $text;
- my $doc_nr;
- my $in_doc = 0;
- my $element;
- my @text =();
- my @section_lines = ();
- my @head_lines = ();
- my $one_section = 1 if (@elements_list == 1);
-
- if (@elements_list == 0)
- {
- warn "$WARN empty document\n";
- exit (0);
- }
-
- # We set titlefont only if the titlefont appeared in the top element
- if (defined($element_top->{'titlefont'}))
- {
- $value{'_titlefont'} = $element_top->{'titlefont'};
- }
-
- # prepare %Texi2HTML::THISDOC
-# $Texi2HTML::THISDOC{'settitle_texi'} = $value{'_settitle'};
- $Texi2HTML::THISDOC{'fulltitle_texi'} = '';
- $Texi2HTML::THISDOC{'title_texi'} = '';
- foreach my $possible_fulltitle (('_title', '_settitle', '_shorttitlepage', '_titlefont'))
- {
- if ($value{$possible_fulltitle} ne '')
- {
- $Texi2HTML::THISDOC{'fulltitle_texi'} = $value{$possible_fulltitle};
- last;
- }
- }
- foreach my $possible_title_texi ($value{'_settitle'}, $Texi2HTML::THISDOC{'fulltitle_texi'})
- {
- if ($possible_title_texi ne '')
- {
- $Texi2HTML::THISDOC{'title_texi'} = $possible_title_texi;
- last;
- }
- }
-# $Texi2HTML::THISDOC{'fulltitle_texi'} = $value{'_title'} || $value{'_settitle'} || $value{'_shorttitlepage'} || $value{'_titlefont'};
-# $Texi2HTML::THISDOC{'title_texi'} = $value{'_title'} || $value{'_settitle'} || $value{'_shorttitlepage'} || $value{'_titlefont'};
- foreach my $texi_cmd (('shorttitlepage', 'settitle', 'author',
- 'titlefont', 'subtitle', 'shorttitle'))
- {
- $Texi2HTML::THISDOC{$texi_cmd . '_texi'} = $value{'_' . $texi_cmd};
- }
- foreach my $doc_thing (('shorttitlepage', 'settitle', 'author',
- 'titlefont', 'subtitle', 'shorttitle', 'fulltitle', 'title'))
- {
- my $thing_texi = $Texi2HTML::THISDOC{$doc_thing . '_texi'};
- $Texi2HTML::THISDOC{$doc_thing} = substitute_line($thing_texi);
- $Texi2HTML::THISDOC{$doc_thing . '_no_texi'} =
- remove_texi($thing_texi);
- $Texi2HTML::THISDOC{$doc_thing . '_simple_format'} =
- simple_format(undef, $thing_texi);
- }
-
- # find Top name
- my $element_top_text = '';
- my $top_no_texi = '';
- my $top_simple_format = '';
- my $top_name;
- if ($element_top and $element_top->{'text'} and (!$node_top or ($element_top ne $node_top)))
- {
- $element_top_text = $element_top->{'text'};
- $top_no_texi = $element_top->{'no_texi'};
- $top_simple_format = $element_top->{'simple_format'};
- }
- foreach my $possible_top_name ($Texi2HTML::Config::TOP_HEADING,
- $element_top_text, $Texi2HTML::THISDOC{'title'},
- $Texi2HTML::THISDOC{'shorttitle'}, &$I('Top'))
- {
- if (defined($possible_top_name) and $possible_top_name ne '')
- {
- $top_name = $possible_top_name;
- last;
- }
- }
- foreach my $possible_top_no_texi ($Texi2HTML::Config::TOP_HEADING,
- $top_no_texi, $Texi2HTML::THISDOC{'title_no_texi'},
- $Texi2HTML::THISDOC{'shorttitle_no_texi'},
- &$I('Top',{},{'remove_texi' => 1}))
- {
- if (defined($possible_top_no_texi) and $possible_top_no_texi ne '')
- {
- $top_no_texi = $possible_top_no_texi;
- last;
- }
- }
-
- foreach my $possible_top_simple_format ($top_simple_format,
- $Texi2HTML::THISDOC{'title_simple_format'},
- $Texi2HTML::THISDOC{'shorttitle_simple_format'},
- &$I('Top',{}, {'simple_format' => 1}))
- {
- if (defined($possible_top_simple_format) and $possible_top_simple_format ne '')
- {
- $top_simple_format = $possible_top_simple_format;
- last;
- }
- }
-
-
-# my $top_name = $Texi2HTML::Config::TOP_HEADING || $element_top_text || $Texi2HTML::THISDOC{'title'} || $Texi2HTML::THISDOC{'shorttitle'} || &$I('Top');
-
- if ($Texi2HTML::THISDOC{'fulltitle_texi'} eq '')
- {
- $Texi2HTML::THISDOC{'fulltitle_texi'} = &$I('Untitled Document',{},
- {'keep_texi' => 1});
- }
- $Texi2HTML::THISDOC{'title_texi'} = $Texi2HTML::THISDOC{'settitle_texi'};
- $Texi2HTML::THISDOC{'title_texi'} = $Texi2HTML::THISDOC{'fulltitle_texi'}
- if ($Texi2HTML::THISDOC{'title_texi'} eq '');
-
- foreach my $doc_thing (('fulltitle', 'title'))
- {
- my $thing_texi = $Texi2HTML::THISDOC{$doc_thing . '_texi'};
- $Texi2HTML::THISDOC{$doc_thing} = substitute_line($thing_texi);
- $Texi2HTML::THISDOC{$doc_thing . '_no_texi'} =
- remove_texi($thing_texi);
- $Texi2HTML::THISDOC{$doc_thing . '_simple_format'} =
- simple_format(undef, $thing_texi);
- }
-
- for my $key (keys %Texi2HTML::THISDOC)
- {
- next if (ref($Texi2HTML::THISDOC{$key}));
-print STDERR "!!$key\n" if (!defined($Texi2HTML::THISDOC{$key}));
- $Texi2HTML::THISDOC{$key} =~ s/\s*$//;
- }
- $Texi2HTML::THISDOC{'program'} = $THISPROG;
- $Texi2HTML::THISDOC{'program_homepage'} = $T2H_HOMEPAGE;
- $Texi2HTML::THISDOC{'program_authors'} = $T2H_AUTHORS;
- $Texi2HTML::THISDOC{'user'} = $T2H_USER;
- $Texi2HTML::THISDOC{'user'} = $Texi2HTML::Config::USER if (defined($Texi2HTML::Config::USER));
-# $Texi2HTML::THISDOC{'documentdescription'} = $documentdescription;
- $Texi2HTML::THISDOC{'copying'} = $copying_comment;
- $Texi2HTML::THISDOC{'destination_directory'} = $docu_rdir;
- $Texi2HTML::THISDOC{'authors'} = [] if (!defined($Texi2HTML::THISDOC{'authors'}));
- $Texi2HTML::THISDOC{'subtitles'} = [] if (!defined($Texi2HTML::THISDOC{'subtitles'}));
- $Texi2HTML::THISDOC{'titles'} = [] if (!defined($Texi2HTML::THISDOC{'titles'}));
- foreach my $element (('authors', 'subtitles', 'titles'))
- {
- my $i;
- for ($i = 0; $i < $#{$Texi2HTML::THISDOC{$element}} + 1; $i++)
- {
- chomp ($Texi2HTML::THISDOC{$element}->[$i]);
- $Texi2HTML::THISDOC{$element}->[$i] = substitute_line($Texi2HTML::THISDOC{$element}->[$i]);
- #print STDERR "$element:$i: $Texi2HTML::THISDOC{$element}->[$i]\n";
- }
- }
- # prepare TOC, OVERVIEW...
- my ($toc_file, $stoc_file, $foot_file, $about_file);
- # if not split the references are to the same file
- $toc_file = $stoc_file = $foot_file = $about_file = '';
- if ($Texi2HTML::Config::SPLIT)
- {
- $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'}));
- }
- $foot_file = $docu_foot;
- $about_file = $docu_about;
- }
- $Texi2HTML::THISDOC{'toc_file'} = $toc_file;
- $Texi2HTML::HREF{'Contents'} = $toc_file.'#'.$content_element{'contents'}->{'id'} if @{$Texi2HTML::TOC_LINES};
- $Texi2HTML::HREF{'Overview'} = $stoc_file.'#'.$content_element{'shortcontents'}->{'id'} if @{$Texi2HTML::OVERVIEW};
- $Texi2HTML::HREF{'Footnotes'} = $foot_file. '#SEC_Foot';
- $Texi2HTML::HREF{'About'} = $about_file . '#SEC_About' unless ($one_section or (not $Texi2HTML::Config::SPLIT and not $Texi2HTML::Config::SECTION_NAVIGATION));
-
- $Texi2HTML::NAME{'First'} = $element_first->{'text'};
- $Texi2HTML::NAME{'Last'} = $element_last->{'text'};
- $Texi2HTML::NAME{'About'} = &$I('About This Document');
- $Texi2HTML::NAME{'Contents'} = &$I('Table of Contents');
- $Texi2HTML::NAME{'Overview'} = &$I('Short Table of Contents');
- $Texi2HTML::NAME{'Top'} = $top_name;
- $Texi2HTML::NAME{'Footnotes'} = &$I('Footnotes');
- $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{'About'} = &$I('About This Document', {}, {'remove_texi' => 1} );
- $Texi2HTML::NO_TEXI{'Contents'} = &$I('Table of Contents', {}, {'remove_texi' => 1} );
- $Texi2HTML::NO_TEXI{'Overview'} = &$I('Short Table of Contents', {}, {'remove_texi' => 1} );
- $Texi2HTML::NO_TEXI{'Top'} = $top_no_texi;
- $Texi2HTML::NO_TEXI{'Footnotes'} = &$I('Footnotes', {}, {'remove_texi' => 1} );
- $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{'About'} = &$I('About This Document', {}, {'simple_format' => 1});
- $Texi2HTML::SIMPLE_TEXT{'Contents'} = &$I('Table of Contents',{}, {'simple_format' => 1});
- $Texi2HTML::SIMPLE_TEXT{'Overview'} = &$I('Short Table of Contents', {}, {'simple_format' => 1});
- $Texi2HTML::SIMPLE_TEXT{'Top'} = $top_simple_format;
- $Texi2HTML::SIMPLE_TEXT{'Footnotes'} = &$I('Footnotes', {},{'simple_format' => 1});
-
- $Texi2HTML::SIMPLE_TEXT{'Index'} = $element_chapter_index->{'simple_format'} if (defined($element_chapter_index));
- # must be after toc_body, but before titlepage
- for my $element_tag ('contents', 'shortcontents')
- {
- my $toc_lines = &$Texi2HTML::Config::inline_contents(undef, $element_tag, $content_element{$element_tag});
- @{$Texi2HTML::THISDOC{'inline_contents'}->{$element_tag}} = @$toc_lines if (defined($toc_lines));
- }
- $Texi2HTML::TITLEPAGE = '';
- $Texi2HTML::TITLEPAGE = substitute_text({}, @{$region_lines{'titlepage'}})
- if (@{$region_lines{'titlepage'}});
- &$Texi2HTML::Config::titlepage();
-
- &$Texi2HTML::Config::init_out();
- $to_encoding = $Texi2HTML::Config::OUT_ENCODING;
-
- ############################################################################
- # 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);
- }
-
- ############################################################################
- #
- #
-
- my $FH;
- my $index_pages;
- my $index_pages_nr;
- my $index_nr = 0;
- my $line_nr;
- my $first_section = 0; # 1 if it is the first section of a page
- while (@doc_lines)
- {
- unless ($index_pages)
- { # not in a index split over sections
- $_ = shift @doc_lines;
- my $chomped_line = $_;
- if (!chomp($chomped_line) and @doc_lines)
- { # if the line has no end of line it is concatenated with the next
- $doc_lines[0] = $_ . $doc_lines[0];
- next;
- }
- $line_nr = shift (@doc_numbers);
- #print STDERR "$line_nr->{'file_name'}($line_nr->{'macro'},$line_nr->{'line_nr'}) $_" if ($line_nr);
- }
- #print STDERR "PASS_TEXT: $_";
- #dump_stack(\$text, \@stack, \%state);
- if (!$state{'raw'} and !$state{'verb'})
- {
- my $tag = '';
- $tag = $1 if (/^\@(\w+)/ and !$index_pages);
-
- if (($tag eq 'node') or defined($sec2level{$tag}) or $index_pages)
- {
- if (@stack or (defined($text) and $text ne ''))
- {# 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);
- push @section_lines, $text;
- $text = '';
- }
- $sec_num++ if ($sec2level{$tag});
- my $new_element;
- my $current_element;
- if ($tag =~ /heading/)
- {# handle headings, they are not in element lists
- $current_element = $sections{$sec_num};
- #print STDERR "HEADING $_";
- if (! $element)
- {
- $new_element = shift @elements_list;
- }
- else
- {
- push (@section_lines, &$Texi2HTML::Config::anchor($current_element->{'id'}) . "\n");
- push @section_lines, &$Texi2HTML::Config::heading($current_element);
- next;
- }
- }
- elsif (!$index_pages)
- {# handle node and structuring elements
- $current_element = shift (@all_elements);
- ########################## begin debug section
- 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 ": $_" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- ########################## end debug section
-
- # The element begins a new section if there is no previous
- # or it is an element and not the current one or the
- # associated section (in case of node) is not the current
- # one
- if (!$element
- or ($current_element->{'element'} and ($current_element ne $element))
- or ($current_element->{'section_ref'} and ($current_element->{'section_ref'} ne $element)))
- {
- $new_element = shift @elements_list;
- }
- ########################### begin debug
- my $section_element = $new_element;
- $section_element = $element unless ($section_element);
- if (!$current_element->{'node'} and !$current_element->{'index_page'} and ($section_element ne $current_element))
- {
- print STDERR "NODE: $element->{'texi'}\n" if ($element->{'node'});
- warn "elements_list and all_elements not in sync (elements $section_element->{'texi'}, all $current_element->{'texi'}): $_";
- }
- ########################### end debug
- }
- else
- { # this is a new index section
- $new_element = $index_pages->[$index_pages_nr]->{'element'};
- $current_element = $index_pages->[$index_pages_nr]->{'element'};
- print STDERR "New index page '$new_element->{'texi'}' nr: $index_pages_nr\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $list_element = shift @elements_list;
- die "element in index_pages $new_element->{'texi'} and in list $list_element->{'texi'} differs\n" unless ($list_element eq $new_element);
- }
- if ($new_element)
- {
- $index_nr = 0;
- my $old = 'NO_OLD';
- $old = $element->{'texi'} if (defined($element));
- print STDERR "NEW: $new_element->{'texi'}, OLD: $old\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- # print the element that just finished
- $Texi2HTML::THIS_SECTION = \@section_lines;
- $Texi2HTML::THIS_HEADER = \@head_lines;
- if ($element)
- {
- finish_element($FH, $element, $new_element, $first_section);
- $first_section = 0;
- @section_lines = ();
- @head_lines = ();
- }
- else
- {
- print STDERR "# Writing elements:" if ($T2H_VERBOSE);
- if ($Texi2HTML::Config::IGNORE_PREAMBLE_TEXT)
- {
- @section_lines = ();
- @head_lines = ();
- }
- # remove empty line at the beginning of @section_lines
- shift @section_lines while (@section_lines and ($section_lines[0] =~ /^\s*$/));
- }
- # begin new element
- my $previous_file;
- $previous_file = $element->{'file'} if (defined($element));
- $element = $new_element;
- $state{'element'} = $element;
- $Texi2HTML::THIS_ELEMENT = $element;
- #print STDERR "Doing hrefs for $element->{'texi'} First ";
- $Texi2HTML::HREF{'First'} = href($element_first, $element->{'file'});
- #print STDERR "Last ";
- $Texi2HTML::HREF{'Last'} = href($element_last, $element->{'file'});
- #print STDERR "Index ";
- $Texi2HTML::HREF{'Index'} = href($element_chapter_index, $element->{'file'}) if (defined($element_chapter_index));
- #print STDERR "Top ";
- $Texi2HTML::HREF{'Top'} = href($element_top, $element->{'file'});
- if ($Texi2HTML::Config::INLINE_CONTENTS)
- {
- $Texi2HTML::HREF{'Contents'} = href($content_element{'contents'}, $element->{'file'});
- $Texi2HTML::HREF{'Overview'} = href($content_element{'shortcontents'}, $element->{'file'});
- }
- foreach my $direction (@element_directions)
- {
- my $elem = $element->{$direction};
- $Texi2HTML::NODE{$direction} = undef;
- $Texi2HTML::HREF{$direction} = undef;
- next unless (defined($elem));
- #print STDERR "$direction ";
- if ($elem->{'node'} or $elem->{'external_node'} or $elem->{'index_page'} or !$elem->{'seen'})
- {
- $Texi2HTML::NODE{$direction} = $elem->{'text'};
- }
- elsif ($elem->{'node_ref'})
- {
- $Texi2HTML::NODE{$direction} = $elem->{'node_ref'}->{'text'};
- }
- if (!$elem->{'seen'})
- {
- $Texi2HTML::HREF{$direction} = do_external_href($elem->{'texi'});
- }
- else
- {
- $Texi2HTML::HREF{$direction} = href($elem, $element->{'file'});
- }
- $Texi2HTML::NAME{$direction} = $elem->{'text'};
- $Texi2HTML::NO_TEXI{$direction} = $elem->{'no_texi'};
- $Texi2HTML::SIMPLE_TEXT{$direction} = $elem->{'simple_format'};
- #print STDERR "$direction ($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 $element->{'texi'}\n";
- $files{$element->{'file'}}->{'counter'}--;
- if (!defined($previous_file) or ($element->{'file'} ne $previous_file))
- {
- my $file = $element->{'file'};
- print STDERR "\n" if ($T2H_VERBOSE and !$T2H_DEBUG);
- print STDERR "# Writing to $docu_rdir$file " if $T2H_VERBOSE;
- my $do_page_head = 0;
- if ($files{$file}->{'filehandle'})
- {
- $FH = $files{$file}->{'filehandle'};
- }
- else
- {
- $FH = open_out("$docu_rdir$file");
-#print STDERR "OPEN $docu_rdir$file, $FH". scalar($FH)."\n";
- $files{$file}->{'filehandle'} = $FH;
- $do_page_head = 1;
- }
- if ($element->{'top'})
- {
- &$Texi2HTML::Config::print_Top_header($FH, $do_page_head);
- }
- else
- {
- &$Texi2HTML::Config::print_page_head($FH) if ($do_page_head);
- &$Texi2HTML::Config::print_chapter_header($FH) if $Texi2HTML::Config::SPLIT eq 'chapter';
- &$Texi2HTML::Config::print_section_header($FH) if $Texi2HTML::Config::SPLIT eq 'section';
- }
- $first_section = 1;
- }
- print STDERR "." if ($T2H_VERBOSE);
- print STDERR "\n" if ($T2H_DEBUG);
- }
- my $label = &$Texi2HTML::Config::anchor($current_element->{'id'}) . "\n";
- if (@section_lines)
- {
- push (@section_lines, $label);
- }
- else
- {
- push @head_lines, $label;
- }
- if ($index_pages)
- {
- push @section_lines, &$Texi2HTML::Config::heading($element);
- #print STDERR "Do index page $index_pages_nr\n";
- my $page = do_index_page($index_pages, $index_pages_nr);
- push @section_lines, $page;
- if (defined ($index_pages->[$index_pages_nr + 1]))
- {
- $index_pages_nr++;
- }
- else
- {
- $index_pages = undef;
- }
- next;
- }
- push @section_lines, &$Texi2HTML::Config::heading($current_element) if ($current_element->{'element'} and !$current_element->{'top'});
- next;
- }
- elsif ($tag eq 'printindex')
- {
- s/\s+(\w+)\s*//;
- my $name = $1;
- close_paragraph(\$text, \@stack, \%state);
- next if (!$index_names{$name} or $empty_indices{$name});
- $printed_indices{$name} = 1;
- print STDERR "print index $name($index_nr) in `$element->{'texi'}', element->{'indices'}: $element->{'indices'},\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS or $T2H_DEBUG & $DEBUG_INDEX);
- print STDERR "element->{'indices'}->[index_nr]: $element->{'indices'}->[$index_nr] (@{$element->{'indices'}->[$index_nr]})\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS or $T2H_DEBUG & $DEBUG_INDEX);
- $index_pages = $element->{'indices'}->[$index_nr] if (@{$element->{'indices'}->[$index_nr]} > 1);
- $index_pages_nr = 0;
- add_prev(\$text, \@stack, do_index_page($element->{'indices'}->[$index_nr], 0));
- $index_pages_nr++;
- $index_nr++;
- begin_paragraph (\@stack, \%state) if ($state{'preformatted'});
- next if (@stack);
- push @section_lines, $text;
- $text = '';
- next;
- }
- elsif (($tag eq 'contents') or ($tag eq 'summarycontents') or ($tag eq 'shortcontents'))
- {
- my $element_tag = $tag;
- $element_tag = 'shortcontents' if ($element_tag ne 'contents');
- if ($Texi2HTML::Config::INLINE_CONTENTS and !$content_element{$element_tag}->{'aftertitlepage'})
- {
- if (@stack or (defined($text) and $text ne ''))
- {# in pass text contents shouldn't appear in formats
- close_stack(\$text, \@stack, \%state, $line_nr);
- push @section_lines, $text;
- $text = '';
- }
- my $toc_lines = &$Texi2HTML::Config::inline_contents($FH, $tag, $content_element{$element_tag});
- push (@section_lines, @$toc_lines) if (defined($toc_lines)) ;
- }
- next;
- }
- }
- scan_line($_, \$text, \@stack, \%state, $line_nr);
- #print STDERR "after scan_line: $_";
- #dump_stack(\$text, \@stack, \%state);
- next if (@stack);
- if ($text ne '' )
- {
- push @section_lines, $text;
- $text = '';
- }
- }
- if (@stack)
- {# close stack at the end of pass text
- close_stack(\$text, \@stack, \%state, $line_nr);
- }
- if (defined($text))
- {
- push @section_lines, $text;
- }
- print STDERR "\n" if ($T2H_VERBOSE);
-
- $Texi2HTML::THIS_SECTION = \@section_lines;
- # if no sections, then simply print document as is
- if ($one_section)
- {
- if (@foot_lines)
- {
- &$Texi2HTML::Config::foot_section (\@foot_lines);
- push @section_lines, @foot_lines;
- }
- $Texi2HTML::THIS_HEADER = \@head_lines;
- if ($element->{'top'})
- {
- print STDERR "Bug: `$element->{'texi'}' level undef\n" if (!$element->{'node'} and !defined($element->{'level'}));
- $element->{'level'} = 1 if (!defined($element->{'level'}));
- $element->{'node'} = 0; # otherwise Texi2HTML::Config::heading may uses the node level
- $element->{'text'} = $Texi2HTML::NAME{'Top'};
- print STDERR "[Top]" if ($T2H_VERBOSE);
- unless ($element->{'titlefont'} or $element->{'index_page'})
- {
- unshift @section_lines, &$Texi2HTML::Config::heading($element);
- }
- }
- print STDERR "# Write the section $element->{'texi'}\n" if ($T2H_VERBOSE);
- &$Texi2HTML::Config::one_section($FH);
- close_out($FH);
- return;
- }
-
- finish_element ($FH, $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;
- }
- if (@foot_lines)
- {
- print STDERR "# writing Footnotes in $docu_foot_file\n" if $T2H_VERBOSE;
- $FH = open_out ($docu_foot_file)
- if $Texi2HTML::Config::SPLIT;
- $Texi2HTML::HREF{'This'} = $Texi2HTML::HREF{'Footnotes'};
- $Texi2HTML::HREF{'Footnotes'} = '#' . $footnote_element->{'id'};
- $Texi2HTML::NAME{'This'} = $Texi2HTML::NAME{'Footnotes'};
- $Texi2HTML::NO_TEXI{'This'} = $Texi2HTML::NO_TEXI{'Footnotes'};
- $Texi2HTML::SIMPLE_TEXT{'This'} = $Texi2HTML::SIMPLE_TEXT{'Footnotes'};
- $Texi2HTML::THIS_SECTION = \@foot_lines;
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor($footnote_element->{'id'}) . "\n" ];
- &$Texi2HTML::Config::print_Footnotes($FH);
- close_out($FH, $docu_foot_file)
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{'Footnotes'} = $Texi2HTML::HREF{'This'};
- }
-
- if (@{$Texi2HTML::TOC_LINES} and !$Texi2HTML::Config::INLINE_CONTENTS)
- {
- print STDERR "# writing Toc in $docu_toc_file\n" if $T2H_VERBOSE;
- $FH = open_out ($docu_toc_file)
- if $Texi2HTML::Config::SPLIT;
- $Texi2HTML::HREF{'This'} = $Texi2HTML::HREF{'Contents'};
- $Texi2HTML::HREF{'Contents'} = "#SEC_Contents";
- $Texi2HTML::NAME{'This'} = $Texi2HTML::NAME{'Contents'};
- $Texi2HTML::NO_TEXI{'This'} = $Texi2HTML::NO_TEXI{'Contents'};
- $Texi2HTML::SIMPLE_TEXT{'This'} = $Texi2HTML::SIMPLE_TEXT{'Contents'};
- $Texi2HTML::THIS_SECTION = $Texi2HTML::TOC_LINES;
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor("SEC_Contents") . "\n" ];
- &$Texi2HTML::Config::print_Toc($FH);
- close_out($FH, $docu_toc_file)
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{'Contents'} = $Texi2HTML::HREF{'This'};
- }
-
- if (@{$Texi2HTML::OVERVIEW} and !$Texi2HTML::Config::INLINE_CONTENTS)
- {
- print STDERR "# writing Overview in $docu_stoc_file\n" if $T2H_VERBOSE;
- $FH = open_out ($docu_stoc_file)
- if $Texi2HTML::Config::SPLIT;
- $Texi2HTML::HREF{This} = $Texi2HTML::HREF{Overview};
- $Texi2HTML::HREF{Overview} = "#SEC_Overview";
- $Texi2HTML::NAME{This} = $Texi2HTML::NAME{Overview};
- $Texi2HTML::NO_TEXI{This} = $Texi2HTML::NO_TEXI{Overview};
- $Texi2HTML::SIMPLE_TEXT{This} = $Texi2HTML::SIMPLE_TEXT{Overview};
- $Texi2HTML::THIS_SECTION = $Texi2HTML::OVERVIEW;
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor("SEC_Overview") . "\n" ];
- &$Texi2HTML::Config::print_Overview($FH);
- close_out($FH,$docu_stoc_file)
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{Overview} = $Texi2HTML::HREF{This};
- }
- my $about_body;
- if ($about_body = &$Texi2HTML::Config::about_body())
- {
- print STDERR "# writing About in $docu_about_file\n" if $T2H_VERBOSE;
- $FH = open_out ($docu_about_file)
- if $Texi2HTML::Config::SPLIT;
-
- $Texi2HTML::HREF{This} = $Texi2HTML::HREF{About};
- $Texi2HTML::HREF{About} = "#SEC_About";
- $Texi2HTML::NAME{This} = $Texi2HTML::NAME{About};
- $Texi2HTML::NO_TEXI{This} = $Texi2HTML::NO_TEXI{About};
- $Texi2HTML::SIMPLE_TEXT{This} = $Texi2HTML::SIMPLE_TEXT{About};
- $Texi2HTML::THIS_SECTION = [$about_body];
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor("SEC_About") . "\n" ];
- &$Texi2HTML::Config::print_About($FH);
- close_out($FH, $docu_stoc_file)
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{About} = $Texi2HTML::HREF{This};
- }
-
- unless ($Texi2HTML::Config::SPLIT)
- {
- &$Texi2HTML::Config::print_page_foot($FH);
- close_out ($FH);
- }
-}
-
-# 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::SPLIT and scalar(@foot_lines)
- and !$Texi2HTML::Config::SEPARATED_FOOTNOTES
- 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'}
- = $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)
- {
- $relative_foot_num =
- $files{$new_element->{'file'}}->{'relative_foot_num'};
- }
- @foot_lines = ();
- }
- if ($element->{'top'})
- {
- my $top_file = $docu_top_file;
- #print STDERR "TOP $element->{'texi'}, @section_lines\n";
- print STDERR "[Top]" if ($T2H_VERBOSE);
- $Texi2HTML::HREF{'Top'} = href($element_top, $element->{'file'});
- &$Texi2HTML::Config::print_Top($FH, ($element->{'titlefont'} or $element->{'index_page'}));
- my $end_page = 0;
- if ($Texi2HTML::Config::SPLIT)
- {
- if (!$files{$element->{'file'}}->{'counter'})
- {
- $end_page = 1;
- }
- }
- &$Texi2HTML::Config::print_Top_footer($FH, $end_page);
- close_out($FH, $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);
- if (defined($new_element) and ($new_element->{'file'} ne $element->{'file'}))
- {
- if (!$files{$element->{'file'}}->{'counter'})
- {
- &$Texi2HTML::Config::print_chapter_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'chapter');
- &$Texi2HTML::Config::print_section_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'section');
- #print STDERR "Close file after $element->{'texi'}\n";
- &$Texi2HTML::Config::print_page_foot($FH);
- close_out($FH);
- }
- else
- {
- print STDERR "counter $files{$element->{'file'}}->{'counter'} ne 0, file $element->{'file'}\n" if ($T2H_DEBUG);
- }
- }
- elsif (!defined($new_element))
- {
- if ($Texi2HTML::Config::SPLIT)
- { # end of last splitted section
- &$Texi2HTML::Config::print_chapter_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'chapter');
- &$Texi2HTML::Config::print_section_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'section');
- &$Texi2HTML::Config::print_page_foot($FH);
- close_out($FH);
- }
- else
- {
- &$Texi2HTML::Config::end_section($FH, 1);
- }
- }
- elsif ($new_element->{'top'})
- {
- &$Texi2HTML::Config::end_section($FH, 1);
- }
- else
- {
- &$Texi2HTML::Config::end_section($FH);
- }
- }
-}
-
-# 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::SPLIT);
- if (!$redirection_file)
- {
- print STDERR "Bug: file for redirection for `$node->{'texi'}' don't exist\n" unless ($novalidate);
- 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'};
- $Texi2HTML::HREF{'This'} = "$node->{'file'}#$node->{'id'}";
- my $NODEFILE = open_out ($file);
- &$Texi2HTML::Config::print_redirection_page ($NODEFILE);
- close $NODEFILE || die "$ERROR: Can't close $file: $!\n";
- }
-}
-
-#+++############################################################################
-# #
-# Low level functions #
-# #
-#---############################################################################
-
-sub locate_include_file($)
-{
- my $file = shift;
-
- # APA: Don't implicitely search ., to conform with the docs!
- # return $file if (-e $file && -r $file);
- 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;
- local *FH;
- if (open(*FH, "<$name"))
- {
- if (defined($Texi2HTML::Config::IN_ENCODING) and $Texi2HTML::Config::USE_UNICODE)
- {
- binmode(*FH, ":encoding($Texi2HTML::Config::IN_ENCODING)");
- }
- my $file = { 'fh' => *FH,
- 'input_spool' => { 'spool' => [],
- 'macro' => '' },
- 'name' => $name,
- 'line_nr' => 0 };
- unshift(@fhs, $file);
- $input_spool = $file->{'input_spool'};
- $line_number->{'file_name'} = $name;
- $line_number->{'line_nr'} = 1;
- }
- else
- {
- warn "$ERROR Can't read file $name: $!\n";
- }
-}
-
-sub open_out($)
-{
- my $file = shift;
- local *FILE;
- if ($file eq '-')
- {
- binmode(STDOUT, ":encoding($to_encoding)") if (defined($to_encoding) and $Texi2HTML::Config::USE_UNICODE);
- return \*STDOUT;
- }
-
- unless (open(FILE, ">$file"))
- {
- die "$ERROR Can't open $file for writing: $!\n";
- }
- if (defined($to_encoding) and $Texi2HTML::Config::USE_UNICODE)
- {
- if ($to_encoding eq 'utf8' or $to_encoding eq 'utf-8-strict')
- {
- binmode(FILE, ':utf8');
- }
- else
- {
- binmode(FILE, ':bytes');
- }
- binmode(FILE, ":encoding($to_encoding)");
- }
- return *FILE;
-}
-
-# FIXME not used when split
-sub close_out($;$)
-{
- my $FH = shift;
- my $file = shift;
- $file = '' if (!defined($file));
- return if ($Texi2HTML::Config::OUT eq '');
- close ($FH) || die "$ERROR: Error occurred when closing $file: $!\n";
-}
-
-sub next_line($)
-{
- my $line_number = shift;
- while (@fhs)
- {
- my $file = $fhs[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);
- }
- 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'};
- return($line) if (defined($line));
- no strict "refs";
- close($fh);
- use strict "refs";
- shift(@fhs);
- }
- return(undef);
-}
-
-# echo a warning
-sub echo_warn($;$)
-{
- my $text = shift;
- chomp ($text);
- my $line_number = shift;
- warn "$WARN $text " . format_line_number($line_number) . "\n";
-}
-
-sub echo_error($;$)
-{
- my $text = shift;
- chomp ($text);
- my $line_number = shift;
- warn "$ERROR $text " . format_line_number($line_number) . "\n";
-}
-
-sub format_line_number($)
-{
- my $line_number = shift;
- my $macro_text = '';
- #$line_number = undef;
- return '' unless (defined($line_number));
- $macro_text = " in $line_number->{'macro'}" if ($line_number->{'macro'} ne '');
- my $file_text = '(';
- $file_text = "(in $line_number->{'file_name'} " if ($line_number->{'file_name'} ne $docu);
- return "${file_text}l. $line_number->{'line_nr'}" . $macro_text . ')';
-}
-
-# 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));
- unless (open(DMPTEXI, ">$file"))
- {
- warn "Can't open $file for writing: $!\n";
- }
- print STDERR "# Dump texi\n" if ($T2H_VERBOSE);
- my $index = 0;
- foreach my $line (@$lines)
- {
- my $number_information = '';
- my $chomped_line = $line;
- $number_information = "$numbers->[$index]->{'file_name'}($numbers->[$index]->{'macro'},$numbers->[$index]->{'line_nr'}) " if (defined($numbers));
- print DMPTEXI "${number_information}$line";
- $index++ if (chomp($chomped_line));
- }
- close DMPTEXI;
-}
-
-# 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-]*)([\s\{\}\@])/ or $line =~ /^\s*\@([a-zA-Z][\w-]*)$/)
- {
- return ($1);
- }
- return '';
-}
-
-sub top_stack($)
-{
- my $stack = shift;
- return undef unless(@$stack);
- return $stack->[-1];
-}
-
-# return the next element with balanced {}
-sub next_bracketed($$)
-{
- my $line = shift;
- my $line_nr = shift;
- my $opened_braces = 0;
- my $result = '';
- my $spaces;
- 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 =~ s/\s*$//;
- 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)
- {
- echo_error("too much '}' in specification", $line_nr);
- $opened_braces = 0;
- next;
- }
- $result .= $brace;
- return ($result, $line, $spaces) if ($opened_braces == 0);
- }
- }
- if ($opened_braces)
- {
- echo_error("'{' not closed in specification", $line_nr);
- return ($result . ( '}' x $opened_braces), '', $spaces);
- }
- print STDERR "BUG: at the end of next_bracketed\n";
- return undef;
-}
-
-# 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;
- return '' unless defined($element);
- my $href = '';
- print STDERR "Bug: $element->{'texi'}, id undef\n" if (!defined($element->{'id'}));
- print STDERR "Bug: $element->{'texi'}, file undef\n" if (!defined($element->{'file'}));
-#foreach my $key (keys(%{$element}))
-#{
-# my $value = 'UNDEF'; $value = $element->{$key} if defined($element->{$key});
-# print STDERR "$key: $value\n";
-#}print STDERR "\n";
- $href .= $element->{'file'} if (defined($element->{'file'}) and $file ne $element->{'file'});
- $href .= "#$element->{'id'}" if (defined($element->{'id'}));
- return $href;
-}
-
-sub normalise_space($)
-{
- return undef unless (defined ($_[0]));
- my $text = shift;
- $text =~ s/\s+/ /go;
- $text =~ s/ $//;
- $text =~ s/^ //;
- return $text;
-}
-
-sub normalise_node($)
-{
- return undef unless (defined ($_[0]));
- my $text = shift;
- $text = normalise_space($text);
- $text =~ s/^top$/Top/i;
- return $text;
-}
-
-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;
-
- return '' if ($state->{'multiple_pass'});
- $anchor = normalise_node($anchor);
- if (!exists($nodes{$anchor}) or !defined($nodes{$anchor}->{'id'}))
- {
- print STDERR "Bug: unknown anchor `$anchor'\n";
- }
- return &$Texi2HTML::Config::anchor($nodes{$anchor}->{'id'});
-}
-
-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'}));
- $term = 1 if ($format->{'term'}); #This should never happen
-
- 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 ($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 (exists($::style_map_ref->{$paragraph_command}) and
- !exists($Texi2HTML::Config::special_list_commands{$format}->{$paragraph_command}))
- {
- if ($format eq 'itemize')
- {
- chomp ($text);
- $text = do_simple($paragraph_command, $text, $state, [$text]);
- $text = $text . "\n";
- }
- }
- elsif (exists($::things_map_ref->{$paragraph_command}))
- {
- $paragraph_command_formatted = do_simple($paragraph_command, '', $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 ($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 (exists($::style_map_ref->{$leading_command}) and
- !exists($Texi2HTML::Config::special_list_commands{$format}->{$leading_command}) and ($style_type{$leading_command} eq 'style'))
- {
- $text = do_simple($leading_command, $text, $state,[$text]) if ($format eq 'itemize');
- }
- elsif (exists($::things_map_ref->{$leading_command}))
- {
- $leading_command_formatted = do_simple($leading_command, '', $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_NODE)
- {
- $node_file = $nodes{$texi_node}->{'cross_manual_file'};
- }
- }
- else
- {
- if ($Texi2HTML::Config::TRANSLITERATE_NODE)
- {
- ($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_NODE);
- }
- 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 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 $no_line_macros{$next_tag} or
- (($next_tag =~ /^(\w+?)index$/) and ($1 ne 'print')) or
- (($line =~ /^\@end\s+(\w+)/) and $no_line_macros{"end $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})
- or (!no_paragraph($state,$text_following)))
- {
- begin_paragraph($stack, $state);
- }
-}
-
-# handle raw formatting, ignored regions...
-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 ($text_macros{$type} eq 'raw')
- {
- $state->{'raw'} = $type;
- #print STDERR "RAW\n";
- if ($state->{'raw'})
- {
- push @$stack, { 'style' => $type, 'text' => '' };
- }
- }
- elsif ($text_macros{$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_ifvalue = 0;
- if ($type eq 'ifclear')
- {
- if (defined($value{$2}))
- {
- $open_ifvalue = 1;
- }
- else
- {
- push @{$state->{'text_macro_stack'}}, $type;
- }
- }
- elsif ($type eq 'ifset')
- {
- unless (defined($value{$2}))
- {
- $open_ifvalue = 1;
- }
- else
- {
- push @{$state->{'text_macro_stack'}}, $type;
- }
- }
- if ($open_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 inside an
- if ($type eq $state->{'ifvalue'})
- {
- $state->{'ifvalue_inside'}++;
- return ($line,'');
- }
- echo_error ("Bad $type line: $line", $line_nr) unless ($state->{'ignored'});
- }
- }
- elsif (not $text_macros{$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, currently only tex, 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 do_insertcopying($)
-{
- my $state = shift;
- return '' unless @{$region_lines{'copying'}};
- my $insert_copying_state = duplicate_state($state);
- $insert_copying_state->{'multiple_pass'} = 1;
- return substitute_text($insert_copying_state, @{$region_lines{'copying'}});
-}
-
-sub get_deff_index($$$)
-{
- my $tag = shift;
- my $line = shift;
- my $line_nr = shift;
-
- $tag =~ s/x$//;
- my ($style, $category, $name, $type, $class, $arguments);
- ($style, $category, $name, $type, $class, $arguments) = parse_def($tag, $line, $line_nr);
- $name = &$Texi2HTML::Config::definition_category($name, $class, $style);
- 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 $tag = $command;
-
- if (!ref ($Texi2HTML::Config::def_map{$tag}))
- {
- # substitute shortcuts for definition commands
- my $substituted = $Texi2HTML::Config::def_map{$tag};
- $substituted =~ s/(\w+)//;
- $tag = $1;
- $line = $substituted . $line;
- }
-#print STDERR "PARSE_DEF($command,$tag) $line";
- my ($category, $name, $type, $class, $arguments);
- my @args = @{$Texi2HTML::Config::def_map{$tag}};
- my $style = shift @args;
- while (@args)
- {
- my $arg = shift @args;
- if (defined($arg))
- {
- # backward compatibility, it was possible to have a { in front.
- $arg =~ s/^\{//;
- my $item;
- my $spaces;
- ($item, $line,$spaces) = next_bracketed($line, $line_nr);
- last if (!defined($item));
- $item =~ s/^\{(.*)\}$/$1/ if ($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;
- }
- elsif ($arg eq 'arg')
- {
- $line = $spaces . $item . $line;
- }
- }
- else
- {
- last;
- }
- }
-#print STDERR "PARSE_DEF (style $style, category $category, name $name, type $type, class $class, line $line)\n";
- return ($style, $category, $name, $type, $class, $line);
-}
-
-sub begin_deff_item($$;$)
-{
- my $stack = shift;
- my $state = shift;
- my $no_paragraph = shift;
- #print STDERR "DEF push deff_item for $state->{'deff'}\n";
- push @$stack, { 'format' => 'deff_item', 'text' => '', 'deff_line' => $state->{'deff_line'}};
- # there is no paragraph when a new deff just follows the deff we are
- # opening
- begin_paragraph($stack, $state)
- if ($state->{'preformatted'} and !$no_paragraph);
- delete($state->{'deff_line'});
- #dump_stack(undef, $stack, $state);
-}
-
-sub begin_paragraph($$)
-{
- my $stack = shift;
- my $state = shift;
-
- my $command = 1;
- my $top_format = top_format($stack);
- if (defined($top_format))
- {
- $command = $top_format;
- }
- else
- {
- $command = { };
- }
- $command->{'stack_at_beginning'} = [ @{$state->{'command_stack'}} ];
- if ($state->{'preformatted'})
- {
- push @$stack, {'format' => 'preformatted', 'text' => '' };
- $state->{'preformatted_context'} = $command;
- push @$stack, @{$state->{'paragraph_macros'}} if $state->{'paragraph_macros'};
- delete $state->{'paragraph_macros'};
- return;
- }
- $state->{'paragraph_context'} = $command;
- $state->{'paragraph_nr'}++;
- push @$stack, {'format' => 'paragraph', 'text' => '' };
- # 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 = 'asis';
- # macro_regexp
- if (($line =~ /^\s*\@([A-Za-z][\w-]*)(\{\})?$/ or $line =~ /^\s*\@([A-Za-z][\w-]*)(\{\})?\s/) and ($::things_map_ref->{$1} or defined($::style_map_ref->{$1})))
- {
- # macro_regexp
- $line =~ s/^\s*\@([A-Za-z][\w-]*)(\{\})?\s*//;
- $command = $1;
- }
- return ('', $command) if ($line =~ /^\s*$/);
- chomp $line;
- $line = substitute_text ({'keep_nr' => 1, 'keep_texi' => 1, 'check_item' => $tag}, $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;
- if ($line =~ s/^\s+\@columnfractions\s+//)
- {
- my @fractions = split /\s+/, $line;
- $table_width = $#fractions + 1;
- while (@fractions)
- {
- my $fraction = shift @fractions;
- unless ($fraction =~ /^(\d*\.\d+)|(\d+)\.?$/)
- {
- echo_error ("column fraction not a number: $fraction", $line_nr);
- #warn "$ERROR column fraction not a number: $fraction";
- }
- }
- }
- else
- {
- my $element;
- my $line_orig = $line;
- while ($line !~ /^\s*$/)
- {
- my $spaces;
- ($element, $line, $spaces) = next_bracketed($line, $line_nr);
- if ($element =~ /^\{/)
- {
- $table_width++;
- }
- else
- {
- echo_error ("garbage in multitable specification: $element", $line_nr);
- }
- }
- }
- return ($table_width);
-}
-
-sub end_format($$$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $format = shift;
- my $line_nr = shift;
- #print STDERR "END FORMAT $format\n";
- #dump_stack($text, $stack, $state);
- #sleep 1;
- if ($format_type{$format} eq 'menu')
- {
- $state->{'menu'}--;
- close_menu($text, $stack, $state, $line_nr);
- }
- if (($format_type{$format} eq 'list') or ($format_type{$format} eq 'table'))
- { # those functions return if they detect an inapropriate context
- add_item($text, $stack, $state, $line_nr, '', 1); # handle lists
- add_term($text, $stack, $state, $line_nr, 1); # handle table
- add_line($text, $stack, $state, $line_nr, 1); # handle table
- add_row($text, $stack, $state, $line_nr); # handle multitable
- }
-
- #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;
-
- 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 (defined($Texi2HTML::Config::def_map{$format}))
- {
- close_stack($text, $stack, $state, $line_nr, undef, 'deff_item')
- unless ($format_ref->{'format'} eq 'deff_item');
- add_prev($text, $stack, &$Texi2HTML::Config::def_item($format_ref->{'text'}));
- $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;
- echo_warn ("Waiting for \@end $format_ref->{'format'}, found \@end $format", $line_nr);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::def($format_ref->{'text'}));
- }
- elsif ($format_type{$format} eq 'cartouche')
- {
- add_prev($text, $stack, &$Texi2HTML::Config::cartouche($format_ref->{'text'},$state->{'command_stack'}));
- }
- elsif ($format eq 'float')
- {
- unless (defined($state->{'float'}))
- {
- print STDERR "Bug: state->{'float'} not defined in float\n";
- next;
- }
- my ($caption_lines, $shortcaption_lines) = &$Texi2HTML::Config::caption_shortcaption($state->{'float'});
- my ($caption_text, $shortcaption_text);
- $caption_text = substitute_text(duplicate_state($state), @$caption_lines) if (defined($caption_lines));
- $shortcaption_text = substitute_text(duplicate_state($state), @$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'};
- }
- elsif (exists ($Texi2HTML::Config::complex_format_map->{$format}))
- {
- $state->{'preformatted'}--;
- pop @{$state->{'preformatted_stack'}};
- # debug
- if (!defined($Texi2HTML::Config::complex_format_map->{$format_ref->{'format'}}->{'begin'}))
- {
- print STDERR "Bug undef $format_ref->{'format'}" . "->{'begin'} (for $format...)\n";
- dump_stack ($text, $stack, $state);
- }
- #print STDERR "before $format\n";
- #dump_stack ($text, $stack, $state);
- 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'))
- {
- #print STDERR "CLOSE $format ($format_ref->{'format'})\n$format_ref->{'text'}\n";
- pop @{$state->{'table_list_stack'}};
- #dump_stack($text, $stack, $state);
- if ($format_ref->{'format'} ne $format)
- { # for example vtable closing a table. Cannot be known
- # before if in a cell
- $format_mismatch = 1;
- echo_warn ("Waiting for \@end $format_ref->{'format'}, found \@end $format ", $line_nr);
- }
- if ($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'}));
- }
- 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'}));
- }
- }
- elsif ($format_type{$format} eq 'menu')
- {
- # it should be short-circuited if $Texi2HTML::Config::SIMPLE_MENU
- if ($state->{'preformatted'})
- {
- # end the fake complex format
- $state->{'preformatted'}--;
- pop @{$state->{'preformatted_stack'}};
- pop @$stack;
- }
- add_prev($text, $stack, &$Texi2HTML::Config::menu($format_ref->{'text'}));
- }
- elsif ($format eq 'quotation')
- {
- my $quotation_args = pop @{$state->{'quotation_stack'}};
- #add_prev($text, $stack, &$Texi2HTML::Config::quotation($format_ref->{'text'}, $quotation_args->{'text'}, $quotation_args->{'style_texi'}, $quotation_args->{'style_id'}));
- add_prev($text, $stack, &$Texi2HTML::Config::quotation($format_ref->{'text'}, $quotation_args->{'text'}, $quotation_args->{'text_texi'}));
- }
- elsif ($Texi2HTML::Config::paragraph_style{$format})
- {
- if ($state->{'paragraph_style'}->[-1] eq $format)
- {
- pop @{$state->{'paragraph_style'}};
- }
- add_prev($text, $stack, &$Texi2HTML::Config::paragraph_style_command($format_ref->{'format'},$format_ref->{'text'}));
- }
- elsif (exists($Texi2HTML::Config::format_map{$format}))
- {
- add_prev($text, $stack, end_simple_format($format_ref->{'format'}, $format_ref->{'text'}));
- }
- else
- {
- echo_warn("Unknown format $format", $line_nr);
- }
- # 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)
- {
- print STDERR "Bug: removed_from_stack $removed_from_stack ne format $format\n";
- }
-}
-
-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'});
- return (&$Texi2HTML::Config::normal_text($text, $remove_texi, $state->{'preformatted'}, $state->{'code_style'},$state->{'command_stack'}));
-}
-
-sub end_simple_format($$)
-{
- my $tag = shift;
- my $text = shift;
-
- my $element = $Texi2HTML::Config::format_map{$tag};
- return &$Texi2HTML::Config::format($tag, $element, $text);
-}
-
-sub close_menu($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- if ($state->{'menu_comment'})
- {
- #print STDERR "close MENU_COMMENT\n";
- #dump_stack($text, $stack, $state);
- close_stack($text, $stack, $state, $line_nr, undef, 'menu_comment');
- # close_paragraph isn't needed in most cases, but a preformatted may
- # appear after close_stack if we closed a format, as formats reopen
- # preformatted. However it is empty and close_paragraph will remove it
- close_paragraph($text, $stack, $state);
- my $menu_comment = pop @$stack;
- if (!$menu_comment->{'format'} or $menu_comment->{'format'} ne 'menu_comment')
- {
- warn "Bug waiting for menu_comment, got $menu_comment->{'format'}\n";
- dump_stack($text, $stack, $state);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::menu_comment($menu_comment->{'text'}));
- unless ($Texi2HTML::Config::SIMPLE_MENU)
- {
- pop @{$state->{'preformatted_stack'}};
- $state->{'preformatted'}--;
- }
- $state->{'menu_comment'}--;
- }
- if ($state->{'menu_entry'})
- {
- close_stack($text, $stack,$state, $line_nr, undef, 'menu_description');
- my $descr = pop(@$stack);
- print STDERR "# close_menu: close description\n" if ($T2H_DEBUG & $DEBUG_MENU);
- add_prev($text, $stack, do_menu_description($descr->{'text'}, $state));
- delete $state->{'menu_entry'};
- }
-}
-
-# Format menu link
-sub do_menu_link($$;$)
-{
- my $state = shift;
- my $line_nr = shift;
- my $simple = shift;
- my $menu_entry = $state->{'menu_entry'};
- my $file = $state->{'element'}->{'file'};
- my $node_name = normalise_node($menu_entry->{'node'});
-
- my $substitution_state = duplicate_state($state);
- my $name = substitute_line($menu_entry->{'name'}, $substitution_state);
- my $node_formatted = substitute_line($menu_entry->{'node'}, $substitution_state);
-
- my $entry = '';
- my $href;
- my $element = $nodes{$node_name};
-
- # menu points to an unknown node
- if (!$element->{'seen'})
- {
- if ($menu_entry->{'node'} =~ /^\s*\(.*\)/o or $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
- {
- echo_error ("Unknown node in menu entry `$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))
- {
- echo_warn (" ---> but equivalent node `$node_seen' found");
- $element = $nodes{$node_seen};
- }
- }
- }
-
- # the original node or an equivalent node was seen
- if ($element->{'seen'})
- {
- if ($element->{'reference_element'})
- {
- $element = $element->{'reference_element'};
- }
-
- #print STDERR "SUBHREF in menu for `$element->{'texi'}'\n";
- $href = href($element, $file);
- 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, $substitution_state, $href, $node_formatted, $name, $menu_entry->{'ending'}) unless ($simple);
- return &$Texi2HTML::Config::simple_menu_link($entry, $state->{'preformatted'}, $href, $node_formatted, $name, $menu_entry->{'ending'});
-}
-
-sub do_menu_description($$)
-{
- my $descr = shift;
- my $state = shift;
- my $menu_entry = $state->{'menu_entry'};
-
- my $element = $menu_entry->{'menu_reference_element'};
-
- return &$Texi2HTML::Config::menu_description($descr, duplicate_state($state),$element->{'text_nonumber'});
-}
-
-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;
- #print STDERR "DO_XREF: $macro\n";
- my $j = 0;
- for ($j = 0; $j <= $#$args; $j++)
- {
- $args[$j] = normalise_space($args[$j]);
- # print STDERR " ($j)$args[$j]\n";
- }
- $args[0] = '' if (!defined($args[0]));
- my $node_texi = normalise_node($args[0]);
- # a ref to a node in an info manual
- if ($args[0] =~ s/^\(([^\)]+)\)\s*//)
- {
- if ($macro eq 'inforef')
- {
- $args[2] = $1 unless ($args[2]);
- }
- else
- {
- $args[3] = $1 unless ($args[3]);
- }
- }
- if (($macro ne 'inforef') and $args[3])
- {
- $node_texi = "($args[3])" . normalise_node($args[0]);
- }
-
- if ($macro eq 'inforef')
- {
- if ((@args < 1) or ($args[0] eq ''))
- {
- echo_error ("Need a node name for \@$macro", $line_nr);
- return '';
- }
- if (@args > 3)
- {
- echo_warn ("Too much arguments for \@$macro", $line_nr);
- }
- $args[2] = '' if (!defined($args[2]));
- $args[1] = '' if (!defined($args[1]));
- $node_texi = "($args[2])$args[0]";
- }
-
- my $i;
- my $new_state = duplicate_state($state);
- $new_state->{'keep_texi'} = 0;
- $new_state->{'keep_nr'} = 0;
- for ($i = 0; $i < 5; $i++)
- {
- $args[$i] = substitute_line($args[$i], $new_state);
- }
- #print STDERR "(@args)\n";
-
- if (($macro eq 'inforef') or ($args[3] ne '') or ($args[4] ne ''))
- {# external ref
- if ($macro eq 'inforef')
- {
- $macro = 'xref';
- $args[3] = $args[2];
- }
- my $href = '';
- my $node_file = '';
- if ($args[3] ne '')
- {
- $href = do_external_href($node_texi);
- $node_file = "($args[3])$args[0]";
- }
- my $section = '';
- if ($args[4] ne '')
- {
- $section = $args[0];
- if ($args[2] ne '')
- {
- $section = $args[2];
- }
- }
- $result = &$Texi2HTML::Config::external_ref($macro, $section, $args[4], $node_file, $href, $args[1]);
- }
- else
- {
- my $element = $nodes{$node_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
- {
- echo_warn ("\@$macro not in text (in anchor, node, section...)", $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::SPLIT);
- }
- #print STDERR "SUBHREF in ref to node `$node_texi': $_";
- my $href = href($element, $file);
- my $section = $args[2];
- $section = $args[1] if ($section eq '');
- my $name = $section;
- my $short_name = $section;
- if ($section 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 = $args[0];
- }
- $result = &$Texi2HTML::Config::internal_ref ($macro, $href, $short_name, $name, $element->{'section'});
- }
- else
- {
- if (($node_texi eq '') or !$novalidate)
- {
- echo_error ("Undefined node `$node_texi' in \@$macro", $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, '', '', $args[0], do_external_href($node_texi), $args[1]);
- }
- }
- }
- 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 =~ s/^\s*//;
- $explanation =~ s/\s*$//;
- $explanation = undef if ($explanation eq '');
- }
- $acronym_texi =~ s/^\s*//;
- $acronym_texi =~ s/\s*$//;
-
- 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/ $//;
- my $simple_format_state = duplicate_state($state);
- $explanation_simple_format = simple_format($simple_format_state,$text);
- $explanation_text = substitute_line($text, duplicate_state($state));
- }
- return &$Texi2HTML::Config::acronym_like($command, $acronym_texi, substitute_line($acronym_texi, duplicate_state($state)),
- $with_explanation, $explanation_lines, $explanation_text, $explanation_simple_format);
-}
-
-sub do_caption_shortcaption($$$$$)
-{
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- if (!exists($state->{'float'}))
- {
-#dump_stack(\"", [], $state);
- echo_error("\@$command outside of float", $line_nr);
- return '';
- }
- my $float = $state->{'float'};
- my @texi_lines = map {$_ = $_."\n"} split (/\n/, $text);
- $float->{"${command}_texi"} = \@texi_lines;
- return '';
-}
-
-# 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 @args = @$args;
- my $style_texi = shift @args;
- my $label_texi = shift @args;
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- $style_texi = undef if (defined($style_texi) and $style_texi=~/^\s*$/);
- $label_texi = undef if (defined($label_texi) and $label_texi=~/^\s*$/);
- 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)};
- #print STDERR "float: $state->{'float'}, $state->{'float'}->{'texi'}\n";
- }
- 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'} = normalise_space($style_texi);
- $state->{'float'}->{'style_id'} =
- cross_manual_line($state->{'float'}->{'style_texi'});
- $state->{'float'}->{'style'} = substitute_line($style_texi);
- }
- #print STDERR "float: (no label) $state->{'float'}\n";
- }
- return '';
-}
-
-sub do_quotation_line($$$$$)
-{
- my $command = 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 = substitute_line($text_texi, duplicate_state($state));
- $text =~ s/\s*$//;
- }
- my $quotation_args = { 'text' => $text, 'text_texi' => $text_texi };
- push @{$state->{'quotation_stack'}}, $quotation_args;
- $state->{'prepend_text'} = &$Texi2HTML::Config::quotation_prepend_text($text_texi);
- return '';
-}
-
-sub do_def_line($$$$$)
-{
- my $command = shift;
- my $args = shift;
- my @args = @$args;
- my $arguments = shift @args;
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- $state->{'deff_line'}->{'arguments'} = $arguments;
- return '';
-}
-
-sub do_footnote($$$$)
-{
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- $text .= "\n";
- $foot_num++;
- $relative_foot_num++;
- my $docid = "DOCF$foot_num";
- my $footid = "FOOT$foot_num";
- my $from_file = '';
- if ($state->{'element'} and $Texi2HTML::Config::SPLIT and $Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $from_file = $state->{'element'}->{'file'};
- }
- my %state;
- initialise_state(\%state);
- if ($Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $state{'element'} = $footnote_element;
- }
- else
- {
- $state{'element'} = $state->{'element'};
- }
- my $file = '';
- $file = $docu_foot if ($Texi2HTML::Config::SPLIT and $Texi2HTML::Config::SEPARATED_FOOTNOTES);
-
- # FIXME use split_lines ? It seems to work like it is now ?
- my @lines = substitute_text(\%state, 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, $file, \@lines, $state);
- push(@foot_lines, @{$foot_lines});
- return $foot_label;
-}
-
-sub do_image($$$$)
-{
- # replace images
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
- $text =~ s/\s+/ /gos; # remove useless spaces and newlines
- my @args = split (/\s*,\s*/, $text);
- my $base = $args[0];
- if ($base eq '')
- {
- echo_error ("no file argument for \@image", $line_nr);
- #warn "$ERROR no file argument for \@image\n";
- return '';
- }
- $args[4] = '' if (!defined($args[4]));
- $args[3] = '' if (!defined($args[3]));
- my $image;
- my $file_name;
- my @file_names = &$Texi2HTML::Config::image_files($base,$args[4]);
-# $image = locate_include_file("$base.$args[4]") if ($args[4] ne '');
- foreach my $file (@file_names)
- {
- if ($image = locate_include_file($file))
- {
- $file_name = $file;
- last;
- }
- }
- $image = '' if (!defined($image));
-
- my $alt;
- if ($args[3] =~ /\S/)
- {
- # makeinfo don't do that. Maybe it should be remove_texi or
- # simple_format... The raw alt is also given in argument
- $alt = do_text($args[3]);
- $alt = $alt if ($alt =~ /\S/);
- }
- return &$Texi2HTML::Config::image($path_to_working_dir . $image, $base,
- $state->{'preformatted'}, $file_name, $alt, $args[1], $args[2],
- $args[3], $args[4], $path_to_working_dir, $image);
-}
-
-sub duplicate_state($)
-{
- my $state = shift;
- my $new_state = { 'element' => $state->{'element'},
- 'preformatted' => $state->{'preformatted'},
- 'code_style' => $state->{'code_style'},
- 'keep_texi' => $state->{'keep_texi'},
- 'keep_nr' => $state->{'keep_nr'},
- 'preformatted_stack' => $state->{'preformatted_stack'},
- 'multiple_pass' => $state->{'multiple_pass'},
-# this is needed for preformatted
- 'command_stack' => [ @{$state->{'command_stack'}} ],
- 'preformatted_context' =>
- {'stack_at_beginning' => [ @{$state->{'command_stack'}} ] }
- };
- 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'});
- 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}, 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;
-
- die "Bug end_line not defined" if (!defined($end_line));
-
- 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);
- }
- echo_error ("too much arguments for macro $name", $line_nr) if (defined($args->[$i + 1]));
- my $result = '';
- while ($macrobody)
- {
- 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
- {
- warn "$ERROR \\ not followed by \\ or an arg but by $arg in macro\n";
- $result .= '\\' . $arg;
- }
- }
- next;
- }
- $result .= $macrobody;
- last;
- }
- my @result = split(/^/m, $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'})
- {
- unshift @{$state->{'spool'}}, (@result, $end_line);
- }
- else
- {
- unshift @{$input_spool->{'spool'}}, (@result, $end_line);
- $input_spool->{'macro'} = $name if ($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 ($pages, $entries) = get_index($name);
- &$Texi2HTML::Config::index_summary_file_begin ($name, $printed_indices{$name});
- print STDERR "# writing $name index summary\n" if $T2H_VERBOSE;
-
- foreach my $key (sort keys %$entries)
- {
- my $entry = $entries->{$key};
- my $indexed_element = $entry->{'element'};
- my $entry_element = $indexed_element;
- # notice that we use the section associated with a node even when
- # there is no with_section, i.e. when there is another node preceding
- # the sectionning command.
- # However when it is the Top node, we use the node instead.
- # (for the Top node, 'top_as_section' is true)
- $entry_element = $entry_element->{'section_ref'} if ($entry_element->{'section_ref'} and !$entry_element->{'top_as_section'});
- 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->{'label'})
- {
- $origin_href .= '#' . $entry->{'label'};
- }
- else
- {
- # If the $indexed_element element and the $index entry are on
- # the same
- # file the real element is prefered. If they aren't on the same file
- # the entry id is choosed as it means that the real element
- # and the index entry are separated by a printindex.
- print STDERR "id undef ($entry) entry: $entry->{'entry'}, label: $indexed_element->{'text'}\n" if (!defined($entry->{'id'}));
- if ($entry->{'file'} eq $indexed_element->{'file'})
- {
- $origin_href .= '#' . $indexed_element->{'id'};
- }
- else
- {
- $origin_href .= '#' . $entry->{'id'} ;
- }
- }
- &$Texi2HTML::Config::index_summary_file_entry ($name,
- $key, $origin_href,
- substitute_line($entry->{'entry'}), $entry->{'entry'},
- href($entry_element, ''),
- $entry_element->{'text'},
- $printed_indices{$name});
- }
- &$Texi2HTML::Config::index_summary_file_end ($name, $printed_indices{$name});
-}
-
-sub do_index_page($$;$)
-{
- my $index_elements = shift;
- my $nr = shift;
- my $page = shift;
- my $index_element = $index_elements->[$nr];
- my $summary = do_index_summary($index_element->{'element'}, $index_elements);
- my $entries = do_index_entries($index_element->{'element'}, $index_element->{'page'}, $index_element->{'name'});
- return $summary . $entries . $summary;
-}
-
-sub do_index_summary($$)
-{
- my $element = shift;
- my $index_elements = shift;
-
- my @letters;
- my @symbols;
-
- for my $index_element_item (@$index_elements)
- {
- my $index_element = $index_element_item->{'element'};
- my $file = '';
- $file .= $index_element->{'file'} if ($index_element->{'file'} ne $element->{'file'});
- my $index = 0;
- for my $letter (@{$index_element_item->{'page'}->{'letters'}})
- {
- if ($letter =~ /^[A-Za-z]/)
- {
- push @letters, &$Texi2HTML::Config::summary_letter($letter, $file, "$index_element->{'id'}" . "_$index");
- }
- else
- {
- push @symbols, &$Texi2HTML::Config::summary_letter($letter, $file, "$index_element->{'id'}" . "_$index");
- }
- $index++;
- }
- }
- return &$Texi2HTML::Config::index_summary(\@letters, \@symbols);
-}
-
-sub do_index_entries($$$)
-{
- my $element = shift;
- my $page = shift;
- my $name = shift;
-
- my $letters = '';
- my $index = 0;
- foreach my $letter (@{$page->{'letters'}})
- {
- my $entries = '';
- foreach my $entry (@{$page->{'entries_by_letter'}->{$letter}})
- {
- my $indexed_element = $entry->{'element'};
- my $entry_element = $indexed_element;
- # notice that we use the section associated with a node even when
- # there is no with_section, i.e. when there is another node preceding
- # the sectionning command.
- # However when it is the Top node, we use the node instead.
- # (for the Top node, 'top_as_section' is true)
- $entry_element = $entry_element->{'section_ref'} if ($entry_element->{'section_ref'} and !$entry_element->{'top_as_section'});
- my $origin_href = '';
- $origin_href = $entry->{'file'} if ($Texi2HTML::Config::SPLIT and $entry->{'file'} ne $element->{'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->{'label'})
- {
- $origin_href .= '#' . $entry->{'label'};
- }
- else
- {
- # If the $indexed_element element and the $index entry are
- # in the same file the indexed_element is prefered. If they
- # aren't in the same file the entry id is choosed as it means
- # that the indexed_element element and the index entry are
- # separated by a printindex.
- print STDERR "id undef ($entry) entry: $entry->{'entry'}, label: $indexed_element->{'text'}\n" if (!defined($entry->{'id'}));
- if ($entry->{'file'} eq $indexed_element->{'file'})
- {
- $origin_href .= '#' . $indexed_element->{'id'};
- }
- else
- {
- $origin_href .= '#' . $entry->{'id'} ;
- }
- }
- #print STDERR "SUBHREF in index entry `$entry->{'entry'}' for `$entry_element->{'texi'}'\n";
- $entries .= &$Texi2HTML::Config::index_entry ($origin_href,
- substitute_line($entry->{'entry'}),
- href($entry_element, $element->{'file'}),
- $entry_element->{'text'});
- }
- $letters .= &$Texi2HTML::Config::index_letter ($letter, "$element->{'id'}" . "_$index", $entries);
- $index++;
- }
- return &$Texi2HTML::Config::print_index($letters, $name);
-}
-
-# 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}, @_);
-}
-
-# Same as remove texi but protect text and use special maps for @-commands
-sub simple_format($@)
-{
- my $state = shift;
- $state = {} if (!defined($state));
- $state->{'remove_texi'} = 1;
- $state->{'simple_format'} = 1;
- # WARNING currently it is only used for lines. It may change in the future.
- $state->{'no_paragraph'} = 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, @_);
- $::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 enter_table_index_entry($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- if ($state->{'item'} and ($state->{'table_stack'}->[-1] =~ /^(v|f)table$/))
- {
- my $index = $1;
- my $macro = $state->{'item'};
- delete $state->{'item'};
- close_stack($text, $stack, $state, $line_nr, undef, 'index_item');
- my $item = pop @$stack;
- my $element = $state->{'element'};
- $element = $state->{'node_ref'} unless ($element);
- enter_index_entry($index, $line_nr, $item->{'text'},
- $state->{'place'}, $element, 0, $state->{'table_stack'}->[-1]);
- add_prev($text, $stack, "\@$macro" . $item->{'text'});
- }
-}
-
-sub scan_texi($$$$;$)
-{
- 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");
- local $_ = $line;
-
- while(1)
- {
- # scan_texi
- #print STDERR "WHILE:$_";
- #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 (s/^([^\\\@]*\\)//)
- {# protected character or @end macro
- $state->{'macro'}->{'body'} .= $1 unless ($state->{'ignored'});
- if (s/^\\//)
- {
- $state->{'macro'}->{'body'} .= '\\' unless ($state->{'ignored'});
- next;
- }
- # I believe it is correct, although makeinfo don't do that.
- elsif (s/^(\@end\sr?macro)$//o or s/^(\@end\sr?macro\s)//o
- or s/^(\@r?macro\s+\w+\s*.*)//o)
- {
- $state->{'macro'}->{'body'} .= $1 unless ($state->{'ignored'});
- next;
- }
- }
- #if (s/^(.*?)\@end\sr?macro$//o or s/^(.*?)\@end\sr?macro\s+//o)
- if (s/^(\@end\sr?macro)$//o or s/^(\@end\sr?macro\s+)//o)
- {
- $state->{'macro_inside'}--;
- next if ($state->{'ignored'});
- if ($state->{'macro_inside'})
- {
- $state->{'macro'}->{'body'} .= $1;
- next;
- }
- chomp $state->{'macro'}->{'body'};
- print STDERR "# end macro def. Body:\n$state->{'macro'}->{'body'}"
- if ($T2H_DEBUG & $DEBUG_MACROS);
- delete $state->{'macro'};
- return if (/^\s*$/);
- next;
- }
- elsif(/^(\@r?macro\s+\w+\s*.*)/)
- {
- $state->{'macro'}->{'body'} .= $_ unless ($state->{'ignored'});
- $state->{'macro_inside'}++;
- return;
- }
- elsif (s/^\@(.)//)
- {
- $state->{'macro'}->{'body'} .= '@' . $1 unless ($state->{'ignored'});
- next;
- }
- elsif (s/^\@//)
- {
- $state->{'macro'}->{'body'} .= '@' unless ($state->{'ignored'});
- next;
- }
- else
- {
- s/([^\@\\]*)//;
- if ($state->{'ignored'})
- {
- return if (/^$/);
- next;
- }
- $state->{'macro'}->{'body'} .= $1 if (defined($1));
- if (/^$/)
- {
- $state->{'macro'}->{'body'} .= $_;
- return;
- }
- 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
- s/^\s*//o;
- }
- if (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 (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);
- s/^\s*//o;
- push @{$state->{'macro_args'}}, '';
- }
- }
- elsif ($2 eq '}')
- { # balanced } ends the macro call, otherwise it is in the arg
- $state->{'macro_depth'}--;
- if ($state->{'macro_depth'} == 0)
- {
- print STDERR "# expanding macro $state->{'macro_name'}\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- $_ = expand_macro($state->{'macro_name'}, $state->{'macro_args'}, $_, $line_nr, $state);
- delete $state->{'macro_name'};
- delete $state->{'macro_depth'};
- delete $state->{'macro_args'};
- return;
- }
- else
- {
- print STDERR "# macro call: closing }\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- add_text('}', \$state->{'macro_args'}->[-1]);
- }
- }
- 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] .= $_;
- 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: $_";
- dump_stack($text, $stack, $state);
- exit 1;
- }
-
- if (s/^(.*?)(\@end\s$tag)$// or s/^(.*?)(\@end\s$tag\s)//)
- {# we add it even if 'ignored', it'll be discarded when there is
- # the @end
- add_prev ($text, $stack, $1);
- my $end = $2;
- my $style = pop @$stack;
- if ($style->{'text'} !~ /^\s*$/ or $state->{'arg_expansion'})
- # FIXME if 'arg_expansion' and also 'ignored' is true,
- # theoretically we should keep
- # what is in the raw format however
- # it will be removed later anyway
- {# ARG_EXPANSION
- my $after_macro = '';
- $after_macro = ' ' unless (/^\s*$/);
- add_prev ($text, $stack, $style->{'text'} . $end . $after_macro) 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, $_);
- 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 (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, $_);
- last;
- }
- }
- # In ignored region
- if ($state->{'ignored'})
- {
- #print STDERR "IGNORED(ifvalue($state->{'ifvalue_inside'})): $state->{'ignored'}\n";
- if (/^.*?\@end(\s+)([a-zA-Z]\w+)/)
- {
- if ($2 eq $state->{'ignored'})
- {
- s/^(.*?\@end)(\s+)([a-zA-Z]\w+)//;
- my $end_ignore = $1.$2.$3;
- 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);
- # 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 /^\s*$/o;
- next;
- }
- }
- add_prev ($text, $stack, $_) 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 (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 ((($end_tag eq 'menu') and $text_macros{'menu'}) 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 (/^\s*$/);
- }
- }
- elsif ($text_macros{$end_tag})
- {
- echo_error ("\@end $end_tag without corresponding element", $line_nr);
- }
- else
- {# ARG_EXPANSION
- add_prev($text, $stack, "\@end${space}$end_tag");
- }
- next;
- }
- # macro_regexp
- elsif (s/^([^{}@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/])//o or s/^([^{}@]*)\@([a-zA-Z][\w-]*)([\s\{\}\@])/$3/o or s/^([^{}@]*)\@([a-zA-Z][\w-]*)$//o)
- {# ARG_EXPANSION
- add_prev($text, $stack, $1) unless $state->{'ignored'};
- my $macro = $2;
- #print STDERR "MACRO $macro\n";
- # handle skipped @-commands
- $state->{'bye'} = 1 if ($macro eq 'bye' and !$state->{'ignored'} and !$state->{'arg_expansion'});
- if (defined($Texi2HTML::Config::misc_command{$macro}) and
- !$Texi2HTML::Config::misc_command{$macro}->{'texi'}
- and $macro ne 'documentencoding')
- {# ARG_EXPANSION
- my ($line, $args);
- ($_, $line, $args) = preserve_command($_, $macro);
- add_prev ($text, $stack, "\@$macro" . $line) unless $state->{'ignored'};
- }
- # 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
-
- # track variables
- elsif($macro eq 'set' or $macro eq 'clear')
- {
- if ($macro eq 'set')
- {
- if (s/^(\s+)($VARRE)(\s+)(.*)$//o)
- {
- if ($state->{'arg_expansion'})
- {
- my $line = "\@$macro" . $1.$2.$3;
- $line .= $4 if (defined($4));
- add_prev($text, $stack, $line);
- next;
- }
- next if $state->{'ignored'};
- $value{$2} = $4;
- }
- else
- {
- echo_warn ("Missing argument for \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'clear')
- {
- if (s/^(\s+)($VARRE)//o)
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" . $1 . $2);
- next;
- }
- next if $state->{'ignored'};
- delete $value{$2};
- }
- else
- {
- echo_warn ("Missing argument for \@$macro", $line_nr);
- }
- }
- return if (/^\s*$/);
- }
- elsif ($macro =~ /^r?macro$/)
- { #FIXME what to do if 'arg_expansion' is true (ie within another
- # macro call arguments?
- if (/^\s+(\w[\w-]*)\s*(.*)/)
- {
- my $name = $1;
- unless ($state->{'ignored'})
- {
- if (exists($macros->{$name}))
- {
- echo_warn ("macro `$name' allready defined " .
- format_line_number($macros->{$name}->{'line_nr'}) . " redefined", $line_nr);
- }
-
- }
- $state->{'macro_inside'} = 1;
- next if ($state->{'ignored'});
- # if in 'arg_expansion' we really want to take into account
- # that we are in an ignored ifclear.
- my @args = ();
- @args = split(/\s*,\s*/ , $1)
- if ($2 =~ /^\s*{\s*(.*?)\s*}\s*/);
- # keep the context information of the definition
- $macros->{$name}->{'line_nr'} = { 'file_name' => $line_nr->{'file_name'},
- 'line_nr' => $line_nr->{'line_nr'}, 'macro' => $line_nr->{'macro'} } if (defined($line_nr));
- $macros->{$name}->{'args'} = \@args;
- my $arg_index = 0;
- my $debug_msg = '';
- foreach my $arg (@args)
- { # when expanding macros, the argument index is retrieved
- # with args_index
- $macros->{$name}->{'args_index'}->{$arg} = $arg_index;
- $debug_msg .= "$arg($arg_index) ";
- $arg_index++;
- }
- $macros->{$name}->{'body'} = '';
- $state->{'macro'} = $macros->{$name};
- print STDERR "# macro def $name: $debug_msg\n"
- if ($T2H_DEBUG & $DEBUG_MACROS);
- }
- else
- {# it means we have a macro without a name
- echo_error ("Macro definition without macro name $_", $line_nr)
- unless ($state->{'ignored'});
- }
- return;
- }
- elsif (defined($text_macros{$macro}))
- {
- my $tag;
- ($_, $tag) = do_text_macro($macro, $_, $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 $macro_kept;
- if ((($state->{'raw'} or (($macro eq 'menu') and $text_macros{'menu'}) or (exists($region_lines{$macro}))) and !$state->{'ignored'}) or $state->{'arg_expansion'})
- {
- add_prev($text, $stack, $tag);
- $macro_kept = 1;
- }
- #dump_stack ($text, $stack, $state);
- next if $macro_kept;
- return if (/^\s*$/);
- }
- elsif ($macro eq 'documentencoding')
- {
- my $spaces = '';
- my $encoding = '';
- if (s/(\s+)([0-9\w\-]+)//)
- {
- $spaces = $1;
- $encoding = $2;
- next if ($state->{'ignored'});
- if (!$state->{'arg_expansion'} and !$state->{'ignored'})
- {
- $Texi2HTML::Config::DOCUMENT_ENCODING = $encoding;
- my $from_encoding = encoding_alias($encoding);
- $Texi2HTML::Config::IN_ENCODING = $from_encoding if
- defined($from_encoding);
- if (defined($from_encoding) and $Texi2HTML::Config::USE_UNICODE)
- {
- foreach my $file (@fhs)
- {
- binmode($file->{'fh'}, ":encoding($from_encoding)");
- }
- }
- }
- }# ARG_EXPANSION
- add_prev($text, $stack, "\@$macro" . $spaces . $encoding) unless ($state->{'ignored'});
- }
- elsif ($macro eq 'definfoenclose')
- {
- # FIXME if 'ignored' or 'arg_expansion' maybe we could parse
- # the args anyway and don't take away the whole line?
-
- # as in the makeinfo doc 'definfoenclose' may override
- # texinfo @-commands like @i. It is what we do here.
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" . $_);
- return;
- }
- return if ($state->{'ignored'});
- if (s/^\s+([a-z]+)\s*,\s*([^\s]+)\s*,\s*([^\s]+)//)
- {
- $info_enclose{$1} = [ $2, $3 ];
- }
- else
- {
- echo_error("Bad \@$macro", $line_nr);
- }
- return if (/^\s*$/);
- s/^\s*//;
- }
- elsif ($macro eq 'include')
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" . $_);
- return;
- }
- return if ($state->{'ignored'});
- #if (s/^\s+([\/\w.+-]+)//o)
- if (s/^(\s+)(.*)//o)
- {
- my $file_name = $2;
- $file_name =~ s/\s*$//;
- my $file = locate_include_file($file_name);
- if (defined($file))
- {
- open_file($file, $line_nr);
- print STDERR "# including $file\n" if $T2H_VERBOSE;
- }
- else
- {
- echo_error ("Can't find $file_name, skipping", $line_nr);
- }
- }
- else
- {
- echo_error ("Bad include line: $_", $line_nr);
- return;
- }
- return;
- }
- elsif ($macro eq 'value')
- {
- if (s/^{($VARRE)}//)
- {
- my $value = $1;
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" .'{'. $value .'}');
- next;
- }
- next if ($state->{'ignored'});
- my $expansion = "No value for $value";
- $expansion = $value{$value} if (defined($value{$value}));
- $_ = $expansion . $_;
- }
- else
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro");
- next;
- }
- next if ($state->{'ignored'});
- echo_error ("bad \@value macro", $line_nr);
- }
- }
- elsif ($macro eq 'unmacro')
- { #FIXME with 'arg_expansion' should it be passed unmodified ?
- if ($state->{'ignored'})
- {
- s/^\s+(\w+)//;
- }
- else
- {
- delete $macros->{$1} if (s/^\s+(\w+)//);
- }
- return if (/^\s*$/);
- s/^\s*//;
- }
- elsif (exists($macros->{$macro}))
- {# 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->{$macro}->{'args'};
- # we remove any space/new line before the argument
- if (s/^\s*{\s*//)
- { # the macro has args
- $state->{'macro_args'} = [ "" ];
- $state->{'macro_name'} = $macro;
- $state->{'macro_depth'} = 1;
- }
- elsif (($#$ref >= 1) or ($#$ref <0))
- { # no brace -> no arg
- $_ = expand_macro ($macro, [], $_, $line_nr, $state);
- return;
- }
- else
- { # macro with one arg on the line
- chomp $_;
- $_ = expand_macro ($macro, [$_], "\n", $line_nr, $state);
- return;
- }
- }
- elsif ($macro eq ',')
- {# the @, causes problems when `,' separates things (in @node, @ref)
- $_ = "\@m_cedilla" . $_;
- } # handling of @, must be done before handling of {
- elsif (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 ($macro eq 'verb')
- {
- if (/^$/)
- {
- echo_error ("without associated character", $line_nr);
- #warn "$ERROR verb at end of line";
- }
- else
- {
- s/^(.)//;
- $state->{'verb'} = $1;
- }
- }
- push (@$stack, { 'style' => $macro, 'text' => '' });
- }
- else
- {
- add_prev($text, $stack, "\@$macro") unless($state->{'ignored'});
- }
- next;
- }
- #elsif(s/^([^{}@]*)\@(.)//o)
- elsif(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 . "\@$2") unless($state->{'ignored'});
- next;
- }
- elsif (s/^([^{}]*)([{}])//o)
- {
- # in ignored section we cannot be sure that there is an @-command
- # allready 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;
- my $result;
- 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'} . '}';
- }
- 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 ($state->{'close_stack'} or $state->{'arg_expansion'});
- }
- if ($state->{'ignored'})
- {# ARG_EXPANSION
- print STDERR "# Popped `$style->{'style'}' in ifset/ifclear\n" if ($T2H_DEBUG);
- next;
- }
- add_prev ($text, $stack, $result);
- #print STDERR "MACRO end $style->{'style'} remaining: $_";
- 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 $_";
- add_prev($text, $stack, $_) unless($state->{'ignored'});
- last;
- }
- }
- return undef if ($state->{'ignored'});
- return 1;
-}
-
-sub close_structure_command($$$$)
-{
- my $cmd_ref = shift;
- my $state = shift;
- my $unclosed_commands = shift;
- my $line_nr = shift;
- my $result;
-
- if ($cmd_ref->{'style'} eq 'anchor')
- {
- my $anchor = $cmd_ref->{'text'};
- $anchor = normalise_node($anchor);
- if ($nodes{$anchor})
- {
- echo_error ("Duplicate node for anchor found: $anchor", $line_nr);
- return '';
- }
- $anchor_num++;
- $nodes{$anchor} = { 'anchor' => 1, 'seen' => 1, 'texi' => $anchor, 'id' => 'ANC' . $anchor_num};
- push @{$state->{'place'}}, $nodes{$anchor};
- }
- elsif ($cmd_ref->{'style'} eq 'footnote')
- {
- if ($Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $state->{'element'} = $state->{'footnote_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->{'element'}->{'titlefont'} = $cmd_ref->{'text'} unless ((exists($state->{'region_lines'}) and ($state->{'region_lines'}->{'format'} eq 'titlepage')) or defined($state->{'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
- echo_error("Closing specially handled \@-command $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 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");
- local $_ = $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 /^\*/o)
- {
- # new menu entry
- delete ($state->{'after_element'});
- my $menu_line = $_;
- my $node;
- if (/^\*\s+($NODERE)::/)
- {
- $node = $1;
- }
- elsif (/^\*\s+([^:]+):\s*([^\t,\.\n]+)[\t,\.\n]/)
- {
- #$name = $1;
- $node = $2;
- }
- if ($node)
- {
- menu_entry_texi(normalise_node($node), $state, $line_nr);
- }
- }
- unless (no_line($_))
- {
- delete $state->{'after_element'};
- }
- }
-
- while(1)
- {
- # scan structure
- #print STDERR "WHILE (s):$_";
- #dump_stack($text, $stack, $state);
-
- # 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: $_";
- dump_stack($text, $stack, $state);
- exit 1;
- }
- ################# end debug
- if (s/^(.*?)\@end\s$tag$// or s/^(.*?)\@end\s$tag\s//)
- {
- add_prev ($text, $stack, $1);
- 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
- {
- my $after_macro = '';
- $after_macro = ' ' unless (/^\s*$/);
- add_prev ($text, $stack, $style->{'text'} . "\@end $tag" . $after_macro);
- }
- unless (no_line($_))
- {
- delete ($state->{'after_element'});
- }
- next;
- }
- else
- {
- add_prev ($text, $stack, $_);
- return if (defined($Texi2HTML::Config::command_handler{$tag}));
- last;
- }
- }
-
- if (defined($state->{'verb'}))
- {
- my $char = quotemeta($state->{'verb'});
- if (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, $_);
- last;
- }
- }
-
- unless (no_line($_))
- {
- delete $state->{'after_element'};
- }
- # macro_regexp
- if (s/^([^{}@]*)\@end\s+([a-zA-Z][\w-]*)//)
- {
- add_prev($text, $stack, $1);
- my $end_tag = $2;
- #print STDERR "END STRUCTURE $end_tag\n";
- $state->{'detailmenu'}-- if ($end_tag eq 'detailmenu' and $state->{'detailmenu'});
- 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'}"
- if ( $end_tag ne $state->{'region_lines'}->{'format'});
- $state->{'region_lines'}->{'number'}--;
- if ($state->{'region_lines'}->{'number'} == 0)
- {
- close_region($state);
- }
- #dump_stack($text, $stack, $state);
- }
- if ($end_tag eq 'menu')
- {
- add_prev($text, $stack, "\@end $end_tag");
- $state->{'menu'}--;
- }
- else
- {
- #print STDERR "End $end_tag\n";
- #dump_stack($text, $stack, $state);
- return if (/^\s*$/);
- }
- }
- elsif ($text_macros{$end_tag})
- {
- echo_error ("\@end $end_tag without corresponding element", $line_nr);
- #dump_stack($text, $stack, $state);
- }
- 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");
- }
- next;
- }
- #elsif (s/^([^{}@]*)\@([a-zA-Z]\w*|["'~\@\}\{,\.!\?\s\*\-\^`=:\/])//o)
- # macro_regexp
- elsif (s/^([^{}@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/])//o or s/^([^{}@]*)\@([a-zA-Z][\w-]*)([\s\{\}\@])/$3/o or s/^([^{}@]*)\@([a-zA-Z][\w-]*)$//o)
- {
- add_prev($text, $stack, $1);
- my $macro = $2;
- #print STDERR "MACRO $macro\n";
- if (defined($Texi2HTML::Config::misc_command{$macro}))
- {
- my $line;
- ($_, $line) = misc_command_structure($_, $macro, $state,
- $line_nr);
- add_prev ($text, $stack, "\@$macro".$line);
- next;
- }
-
- if ($macro =~ /^(\w+?)index/ and ($1 ne 'print') and ($1 ne 'syncode') and ($1 ne 'syn') and ($1 ne 'def') and ($1 ne 'defcode'))
- {
- my $index_prefix = $1;
- my $key = $_;
- $key =~ s/^\s*//;
- $_ = substitute_texi_line($_);
- enter_index_entry($index_prefix, $line_nr, $key, $state->{'place'}, $state->{'element'}, $state->{'after_element'}, $macro);
- add_prev ($text, $stack, "\@$macro" . $_);
- last;
- }
- elsif (defined($text_macros{$macro}))
- {
- #print STDERR "TEXT_MACRO: $macro\n";
- if ($text_macros{$macro} eq 'raw')
- {
- $state->{'raw'} = $macro;
- #print STDERR "RAW\n";
- }
- elsif ($format_type{$macro} and $format_type{$macro} eq 'menu')
- {
- $state->{'menu'}++;
- delete ($state->{'prev_menu_node'});
- 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))
- {
- echo_error("\@$macro not allowed within $state->{'region_lines'}->{'format'}", $line_nr);
- next;
- }
- if (!exists($state->{'region_lines'}))
- {
- $state->{'region_lines'}->{'format'} = $macro;
- $state->{'region_lines'}->{'number'} = 1;
- $state->{'region_lines'}->{'after_element'} = 1 if ($state->{'after_element'});
- $state->{'region_lines'}->{'kept_place'} = $state->{'place'};
- $state->{'place'} = $region_place;
- }
- else
- {
- $state->{'region_lines'}->{'number'}++;
- }
- push @{$state->{'text_macro_stack'}}, $macro;
- }
- # if it is a raw formatting command or a menu command
- # we must keep it for later
- my $macro_kept;
- if (($state->{'raw'} and (!defined($Texi2HTML::Config::command_handler{$macro}))) or ($macro eq 'menu'))
- {
- 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 (/^\s*$/);
- }
- elsif ($macro eq 'float')
- {
- my ($style_texi, $label_texi) = split(/,/, $_);
- $style_texi = normalise_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
- $label_texi = normalise_node($label_texi);
- if (exists($nodes{$label_texi}) and defined($nodes{$label_texi})
- and $nodes{$label_texi}->{'seen'})
- {
- echo_error ("Duplicate label found: $label_texi", $line_nr);
- while ($_ =~ /,/)
- {
- $_ =~ s/,.*$//;
- }
- }
- else
- {
- 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;
-#print STDERR "FLOAT: $float $float->{'texi'}, place $state->{'place'}\n";
- push @{$state->{'place'}}, $float;
- $float->{'element'} = $state->{'element'};
- $state->{'float'} = $float;
- $float->{'style_texi'} = $style_texi;
- push @floats, $float;
- }
- }
- add_prev($text, $stack, "\@$macro" . $_);
- last;
- }
- elsif (defined($Texi2HTML::Config::def_map{$macro}))
- {
- #We must enter the index entries
- my ($prefix, $entry, $argument) = get_deff_index($macro, $_, $line_nr);
- # 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, $state->{'place'},
- $state->{'element'}, 0, $idx_macro) if ($prefix);
- s/(.*)//;
- add_prev($text, $stack, "\@$macro" . $1);
- # the text is discarded but we must handle correctly bad
- # texinfo with 2 @def-like commands on the same line
- substitute_text({'structure' => 1, 'place' => $state->{'place'} },($argument));
- }
- 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' => "" };
- }
- else
- {
- add_prev($text, $stack, "\@$macro");
- }
- }
- elsif ($format_type{$macro} and ($format_type{$macro} eq 'table' or $format_type{$macro} eq 'list'))
- { # 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 (s/^{//)
- {
- if ($macro eq 'verb')
- {
- if (/^$/)
- {
- # We allready warned in pass texi
- #warn "$ERROR verb at end of line";
- }
- else
- {
- s/^(.)//;
- $state->{'verb'} = $1;
- }
- }
- elsif ($macro eq 'footnote' and $Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $state->{'footnote_element'} = $state->{'element'};
- $state->{'footnote_place'} = $state->{'place'};
- $state->{'element'} = $footnote_element;
- $state->{'place'} = $footnote_element->{'place'};
- }
- push (@$stack, { 'style' => $macro, 'text' => '' });
- }
- else
- {
- add_prev($text, $stack, "\@$macro");
- }
- next;
- }
- #elsif(s/^([^{}@]*)\@(.)//o)
- elsif(s/^([^{}@]*)\@([^\s\}\{\@]*)//o)
- {
- add_prev($text, $stack, $1 . "\@$2");
- next;
- }
- elsif (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
- #warn "$ERROR '}' without opening '{' line: $line";
- #echo_error ("'}' without opening '{' line: $line", $line_nr);
- add_prev ($text, $stack, '}');
- }
- }
- }
- else
- {
- #print STDERR "END_LINE $_";
- add_prev($text, $stack, $_);
- enter_table_index_entry($text, $stack, $state, $line_nr);
- last;
- }
- }
- return 1;
-}
-
-sub scan_line($$$$;$)
-{
- 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");
- local $_ = $line;
- #print STDERR "SCAN_LINE (@{$state->{'command_stack'}}): $line";
- #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....)
- if (defined($state->{'prepend_text'}))
- {
- $_ = $state->{'prepend_text'} . $_;
- $state->{'prepend_text'} = undef;
- delete $state->{'prepend_text'};
- }
-
- unless ($state->{'end_of_line_protected'} and $state->{'deff_line'})
- { # end of lines are really protected only for @def*
- if (!$state->{'raw'} and !$state->{'verb'} and $state->{'menu'})
- { # new menu entry
- my ($node, $name, $ending);
- if (s/^\*(\s+$NODERE)(::)//o)
- {
- $node = $1;
- $ending = $2;
- }
- elsif (s/^\*(\s+[^:]+):(\s*[^\t,\.\n]+)([\t,\.\n])//o)
- {
- $name = $1;
- $node = $2;
- $ending = $3;
- }
- if ($node)
- {
- my $top_stack = top_stack($stack);
- if ($top_stack and $top_stack->{'format'} and
- (
- ($top_stack->{'format'} eq 'menu_description') or
- ($top_stack->{'format'} eq 'menu') or
- (($top_stack->{'format'} eq 'preformatted') and (stack_order($stack, 'preformatted', 'menu_comment'))) or
- ($top_stack->{'format'} eq 'menu_preformatted') or
- ($top_stack->{'format'} eq 'menu_comment')
- )
- )
- { # we are in a normal menu state.
- close_menu($text, $stack, $state, $line_nr);
- $new_menu_entry = 1;
- $state->{'menu_entry'} = { 'name' => $name, 'node' => $node,
- 'ending' => $ending };
- add_prev ($text, $stack, do_menu_link($state, $line_nr));
- print STDERR "# New menu entry: $node\n" if ($T2H_DEBUG & $DEBUG_MENU);
- push @$stack, {'format' => 'menu_description', 'text' => ''};
- }
- else
- { # we are within a macro or a format. In that case we use
- # a simplified formatting of menu which should be right whatever
- # the context
- my $menu_entry = $state->{'menu_entry'};
- $state->{'menu_entry'} = { 'name' => $name, 'node' => $node,
- 'ending' => $ending };
- add_prev ($text, $stack, do_menu_link($state, $line_nr, 1));
- $state->{'menu_entry'} = $menu_entry;
- }
- }
- }
- # we're in a menu entry description
- if ($state->{'menu_entry'} and !$new_menu_entry)
- {
- my $top_stack = top_stack($stack);
- if (/^\s+\S.*$/ or (!$top_stack->{'format'} or ($top_stack->{'format'} ne 'menu_description')))
- { # description continues
- $menu_description_in_format = 1 if ($top_stack->{'format'} and ($top_stack->{'format'} ne 'menu_description'));
- print STDERR "# Description continues\n" if ($T2H_DEBUG & $DEBUG_MENU);
- }
- else
- { # enter menu comment after menu entry
- ################################ begin debug
- if (!$top_stack->{'format'} or ($top_stack->{'format'} ne 'menu_description'))
- {
- print STDERR "Bug: begin menu comment but previous isn't menu_description\n";
- dump_stack ($text, $stack, $state);
- }
- print STDERR "# Menu comment begins\n" if ($T2H_DEBUG & $DEBUG_MENU);
- ################################ end debug
- my $descr = pop(@$stack);
-
- add_prev ($text, $stack, do_menu_description($descr->{'text'}, $state));
- delete $state->{'menu_entry'};
- unless (/^\s*\@end\s+menu\b/)
- {
- $state->{'menu_comment'}++;
- push @$stack, {'format' => 'menu_comment', 'text' => ''};
- unless ($Texi2HTML::Config::SIMPLE_MENU)
- {
- push @{$state->{'preformatted_stack'}}, {'pre_style' => $Texi2HTML::Config::MENU_PRE_STYLE, 'class' => 'menu-comment' };
- $state->{'preformatted'}++;
- begin_paragraph($stack, $state);
- }
- }
- }
- }
- if (($state->{'menu_entry'} and !$menu_description_in_format) or $state->{'raw'} or $state->{'preformatted'} or $state->{'no_paragraph'} or $state->{'keep_texi'} or $state->{'remove_texi'})
- { # empty lines are left unmodified
- if (/^\s*$/)
- {
- add_prev($text, $stack, $_);
- return;
- }
- elsif (!$state->{'raw'})
- {
- my $next_tag = next_tag($_);
- if ($state->{'deff_line'} and !defined($Texi2HTML::Config::def_map{$next_tag}))
- {
- begin_deff_item($stack, $state);
- }
- }
- }
- else
- {
- if (/^\s*$/)
- {
- if ($state->{'paragraph_context'})
- { # An empty line ends a paragraph
- close_paragraph($text, $stack, $state, $line_nr);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::empty_line($_,$state));
- return 1;
- }
- else
- {
- #print STDERR "a line not empty and not in no paragraph format\n";
- my $next_tag = next_tag($_);
- if ($state->{'deff_line'} and !defined($Texi2HTML::Config::def_map{$next_tag}))
- { # finish opening the deff, as this is not a deff tag, it can't be
- # a deff macro with x
- begin_deff_item($stack, $state);
- }
- if (!no_paragraph($state,$_))
- { # open a paragraph, unless the line begins with a macro that
- # shouldn't trigger a paragraph opening
- begin_paragraph($stack, $state);
- }
- }
- }
- }
- delete $state->{'end_of_line_protected'}
- if ($state->{'end_of_line_protected'});
-
- while(1)
- {
- # scan_line
- #print STDERR "WHILE (l): $_|";
- #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 (s/^(.*?)\@end\s$state->{'raw'}$// or s/^(.*?)\@end\s$state->{'raw'}\s+//)
- # don't protect html, it is done by Texi2HTML::Config::raw if needed
- {
- print STDERR "# end raw $state->{'raw'}\n" if ($T2H_DEBUG & $DEBUG_FORMATS);
- add_prev ($text, $stack, $1);
- 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'}));
- }
- }
- 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 (/^\s*$/);
- }
- delete $state->{'raw'};
- next;
- }
- else
- {
- print STDERR "#within raw $state->{'raw'}:$_" if ($T2H_DEBUG & $DEBUG_FORMATS);
- add_prev ($text, $stack, $_);
- last;
- }
- }
-
- # we are within a @verb
- if (defined($state->{'verb'}))
- {
- my $char = quotemeta($state->{'verb'});
- if (s/^(.*?)$char\}/\}/)
- {
- if ($state->{'keep_texi'})
- {
- add_prev($text, $stack, $1 . $state->{'verb'});
- $stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'};
- }
- elsif ($state->{'remove_texi'})
- {
- add_prev($text, $stack, $1);
- }
- else
- {
- add_prev($text, $stack, do_text($1, $state));
- }
- delete $state->{'verb'};
- next;
- }
- else
- {
- add_prev($text, $stack, $_);
- last;
- }
- }
-
- # a special case for @ followed by an end of line in deff
- # FIXME this is similar with makeinfo, but shouldn't that
- # be done for @floats and @quotations too? and @item, @center?
- # this piece of code is required, to avoid the 'cmd_line' to be
- # closed below
- if ($state->{'end_of_line_protected'} and $state->{'deff_line'})
- {
- print STDERR "Bug: 'end_of_line_protected' with text following: $_\n"
- unless /^$/;
- return;
- }
-
- # We handle now the end tags
- # macro_regexp
- if ($state->{'keep_texi'} and s/^([^{}@]*)\@end\s+([a-zA-Z][\w-]*)//)
- {
- my $end_tag = $2;
- add_prev($text, $stack, $1 . "\@end $end_tag");
- next;
- }
- # macro_regexp
- elsif ($state->{'remove_texi'} and s/^([^{}@]*)\@end\s+([a-zA-Z][\w-]*)//)
- {
- add_prev($text, $stack, $1);
- next;
- }
- # macro_regexp
- if (s/^([^{}@,]*)\@end\s+([a-zA-Z][\w-]*)\s//o or s/^([^{}@,]*)\@end\s+([a-zA-Z][\w-]*)$//o)
- {
- add_prev($text, $stack, do_text($1, $state));
- my $end_tag = $2;
- #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)
- $state->{'detailmenu'}-- if ($end_tag eq 'detailmenu' and $state->{'detailmenu'});
- # FIXME handle below (look for misc_command) to let the user
- # keep that end tag. On the other hand it is only used for
- # end detailmenu, so maybe it should just go and detailmenu
- # could be handled like a normal format. Last there could be
- # something similar than what is done for other misc_commands.
- next if (defined($Texi2HTML::Config::misc_command{"end $end_tag"}));
- my $top_stack = top_stack($stack);
- if (!$top_stack)
- {
- echo_error ("\@end $end_tag without corresponding opening", $line_nr);
- add_prev($text, $stack, "\@end $end_tag");
- next;
- }
-
- if (!$format_type{$end_tag})
- {
- echo_warn ("Unknown \@end $end_tag", $line_nr);
- #warn "$ERROR Unknown \@end $end_tag\n";
- add_prev($text, $stack, "\@end $end_tag");
- next;
- }
- unless ($Texi2HTML::Config::format_in_paragraph{$end_tag})
- { # If the $end_tag is wrong we may be keeping paragraph
- # for a format with paragraphs on the stack
- close_paragraph($text, $stack, $state, $line_nr);
- }
-
- $top_stack = top_stack($stack);
- if (!$top_stack or (!defined($top_stack->{'format'})))
- {
- echo_error ("\@end $end_tag without corresponding opening element", $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_preformatted') or
- ($top_stack->{'format'} eq 'menu_comment') or
- ($top_stack->{'format'} eq 'menu_description')
- )
- ) or
- (
- ($end_tag eq 'multitable') and
- (
- ($top_stack->{'format'} eq 'cell') or
- ($top_stack->{'format'} eq 'null')
- )
- ) or
- (
- ($format_type{$end_tag} eq 'list' ) and
- ($top_stack->{'format'} eq 'item')
- ) or
- (
- (
- ($format_type{$end_tag} eq 'table') and
- ($end_tag ne 'multitable')
- ) 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')
- ) or
- (
- ($end_tag eq 'row') and
- ($top_stack->{'format'} eq 'cell')
- )
- )
- {
- # 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.
- close_paragraph($text, $stack, $state, $line_nr);
- $top_stack = top_stack($stack);
- if (!$top_stack or (!defined($top_stack->{'format'})))
- {
- echo_error ("\@end $end_tag without corresponding opening element", $line_nr);
- add_prev($text, $stack, "\@end $end_tag");
- 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');
- echo_error ("waiting for end of $waited_format, found \@end $end_tag", $line_nr);
- close_stack($text, $stack, $state, $line_nr, undef, $end_tag);
- # 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);
- 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}) and $format_type{$end_tag} ne 'fake')
- {
- end_format($text, $stack, $state, $end_tag, $line_nr);
- begin_paragraph_after_command($state,$stack,$end_tag,$_);
- }
- else
- { # this is a fake format, ie a format used internally, inside
- # a real format. We do nothing, hoping the real format will
- # get closed, closing the fake internal formats
- #print STDERR "FAKE \@end $end_tag\n";
- }
- next;
- }
- # This is a macro
- #elsif (s/^([^{}@]*)\@([a-zA-Z]\w*|["'~\@\}\{,\.!\?\s\*\-\^`=:\/])//o)
- # macro_regexp
- elsif (s/^([^{},@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/])//o or s/^([^{}@,]*)\@([a-zA-Z][\w-]*)([\s\{\}\@])/$3/o or s/^([^{},@]*)\@([a-zA-Z][\w-]*)$//o)
- {
- add_prev($text, $stack, do_text($1, $state));
- my $macro = $2;
- #print STDERR "MACRO $macro\n";
- #print STDERR "LINE $_";
- #dump_stack ($text, $stack, $state);
- # This is a macro added by close_stack to mark paragraph end
- if ($macro eq 'end_paragraph')
- {
- s/^\{\}//;
- my $top_stack = top_stack($stack);
- #################################### debug
- if (!$top_stack or !$top_stack->{'format'}
- or ($top_stack->{'format'} ne 'paragraph'))
- {
- print STDERR "Bug: end_paragraph but no paragraph to end\n";
- dump_stack ($text, $stack, $state);
- next;
- }
- #################################### end debug
- s/^\s//;
- my $paragraph = pop @$stack;
- add_prev ($text, $stack, do_paragraph($paragraph->{'text'}, $state));
- next;
- }
- # Handle macro added by close_stack to mark preformatted region end
- elsif ($macro eq 'end_preformatted')
- {
- #print STDERR "END_PREFORMATTED\n";
- s/^\{\}//;
- my $top_stack = top_stack($stack);
- #################################### debug
- if (!$top_stack or !$top_stack->{'format'}
- or ($top_stack->{'format'} ne 'preformatted'))
- {
- print STDERR "Bug: end_preformatted but no preformatted to end\n";
- dump_stack ($text, $stack, $state);
- next;
- }
- #################################### end debug
- my $paragraph = pop @$stack;
- s/^\s//;
- add_prev ($text, $stack, do_preformatted($paragraph->{'text'}, $state));
- next;
- }
- if (defined($Texi2HTML::Config::misc_command{$macro}))
- {
- # 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 ($macro ne 'c' and $macro ne 'comment')))
- {
- my ($line, $args);
- ($_, $line, $args) = preserve_command($_, $macro);
- add_prev($text, $stack, "\@$macro". $line);
- next;
- }
-
- # Handle the misc command
- $_ = misc_command_text($_, $macro, $stack, $state, $text, $line_nr);
- return unless (defined($_));
- unless ($Texi2HTML::Config::misc_command{$macro}->{'keep'})
- {
- begin_paragraph($stack, $state) if
- (!no_paragraph($state,$_));
- next;
- }
- }
- if ($macro eq 'listoffloats')
- {
- if ($state->{'keep_texi'})
- {
- if (s/(.*)//o)
- {
- add_prev($text, $stack, "\@$macro" . $1);
- }
- next;
- }
- return undef if ($state->{'remove_texi'});
-
- if (s/^(\s+)(.*)//o)
- {
- my $arg = $2;
- my $style_id = cross_manual_line(normalise_space($arg));
- my $style = substitute_line (&$Texi2HTML::Config::listoffloats_style($arg));
- if (exists ($floats{$style_id}))
- {
- close_paragraph($text, $stack, $state, $line_nr);
- my @listoffloats_entries = ();
- foreach my $float (@{$floats{$style_id}->{'floats'}})
- {
- my $float_style = substitute_line(&$Texi2HTML::Config::listoffloats_float_style($arg, $float));
- my $caption_lines = &$Texi2HTML::Config::listoffloats_caption($float);
- # we set 'multiple_pass' such that index entries
- # and anchors are not handled one more time;
- # the caption has allready been formatted,
- # and these have been handled at the right place
- my $caption = substitute_text({ 'multiple_pass' => 1 }, @$caption_lines);
- push @listoffloats_entries, &$Texi2HTML::Config::listoffloats_entry($arg, $float, $float_style, $caption, href($float, $state->{'element'}->{'file'}));
- }
- add_prev($text, $stack, &$Texi2HTML::Config::listoffloats($arg, $style, \@listoffloats_entries));
- }
- else
- {
- echo_warn ("Unknown float style $arg", $line_nr);
- }
- }
- else
- {
- echo_error ("Bad \@$macro line: $_", $line_nr);
- }
- return undef;
- }
- # 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 s/^{//)
- {
- if ($macro eq 'verb')
- {
- if (/^$/)
- {
- # Allready warned
- #warn "$ERROR verb at end of line";
- }
- else
- {
- s/^(.)//;
- $state->{'verb'} = $1;
- }
- }
- elsif ($macro eq 'm_cedilla' and !$state->{'keep_texi'})
- {
- $macro = ',';
- }
- # currently if remove_texi and anchor/ref/footnote
- # the text within the command is ignored
- # see t2h_remove_command in texi2html.init
- push (@$stack, { 'style' => $macro, 'text' => '', 'arg_nr' => 0 });
- $state->{'no_paragraph'}++ if ($no_paragraph_macro{$macro});
- open_arg($macro, 0, $state);
- if (defined($style_type{$macro}) and (($style_type{$macro} eq 'style') or ($style_type{$macro} eq 'accent')))
- {
- push (@{$state->{'command_stack'}}, $macro);
- #print STDERR "# Stacked $macro (@{$state->{'command_stack'}})\n" if ($T2H_DEBUG);
- }
- 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'))
- {
- echo_error("\@$macro on \@$state->{'check_item'} line", $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}))
- {
- add_prev($text, $stack, "\@$macro" . $_);
- $_ = '';
- next;
- }
- # @ at the end of line may protect the end of line even when
- # keeping texi
- if ($macro eq "\n")
- {
- $state->{'end_of_line_protected'} = 1;
- #print STDERR "PROTECTING END OF LINE\n";
- }
-
- add_prev($text, $stack, "\@$macro");
- if ($text_macros{$macro} and $text_macros{$macro} eq 'raw')
- {
- $state->{'raw'} = $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 ($text_macros{$macro} and $text_macros{$macro} eq 'raw')
- {
- if (!$Texi2HTML::Config::format_in_paragraph{$macro})
- { # close paragraph before verbatim (and tex if !L2H)
- close_paragraph($text, $stack, $state, $line_nr);
- }
- $state->{'raw'} = $macro;
- push (@$stack, {'style' => $macro, 'text' => ''});
- return if (/^\s*$/);
- next;
- }
- my $simple_macro = 1;
- # An accent macro
- if (exists($Texi2HTML::Config::accent_map{$macro}))
- {
- push (@{$state->{'command_stack'}}, $macro);
- if (s/^(\S)//o)
- {
- add_prev($text, $stack, do_simple($macro, $1, $state, [ $1 ], $line_nr));
- }
- else
- { # The accent is at end of line
- 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})
- {
- echo_warn ("$macro requires {}", $line_nr);
- add_prev($text, $stack, do_simple($macro, '', $state));
- }
- # an @-command like @command
- elsif (defined($::simple_map_ref->{$macro}))
- {
- add_prev($text, $stack, do_simple($macro, '', $state));
- }
- else
- {
- $simple_macro = 0;
- }
- if ($simple_macro)
- {# if the macro didn't triggered a paragraph start it might now
- begin_paragraph($stack, $state) if
- ($no_line_macros{$macro} and !no_paragraph($state,$_));
- next;
- }
- # the following macros are modified or ignored if we are
- # removing texi, and they are not handled like macros in text
- if ($state->{'remove_texi'})
- {
- # handle specially some macros
- if ((($macro =~ /^(\w+?)index$/) and ($1 ne 'print')) or
- ($macro eq 'itemize') or ($macro =~ /^(|v|f)table$/)
- or ($macro eq 'multitable') or ($macro eq 'quotation'))
- {
- return;
- }
- elsif ($macro eq 'enumerate')
- {
- my $spec;
- ($_, $spec) = parse_enumerate ($_);
- return if (/^\s*$/);
- next;
- }
- elsif (defined($Texi2HTML::Config::def_map{$macro}))
- {
- my ($style, $category, $name, $type, $class, $arguments);
- ($style, $category, $name, $type, $class, $arguments) = parse_def($macro, $_, $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;
- }
-
- # ignore other macros
- next;
- }
-
- # handle the other macros, in the context of some normal text
- if (($macro =~ /^(\w+?)index$/) and ($1 ne 'print'))
- {
- add_prev($text, $stack, do_index_entry_label($macro,$state,$line_nr));
- return;
- }
- if ($macro eq 'insertcopying')
- {
- close_paragraph($text, $stack, $state, $line_nr);
- add_prev($text, $stack, do_insertcopying($state));
- # 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: $_";
- #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, $line_nr);
- # these functions return the format if in the right context
- my $format;
- if ($format = add_item($text, $stack, $state, $line_nr, $_))
- { # handle lists
- }
- elsif ($format = add_term($text, $stack, $state, $line_nr))
- {# handle table @item line
- }
- elsif ($format = add_line($text, $stack, $state, $line_nr))
- {# handle table text
- }
- if ($format)
- {
- if (defined($format->{'prepended'}))
- {
- $_ = $format->{'prepended'} . ' ' . $_ if ($format->{'prepended'} ne '');
- }
- if (defined($format->{'command'}))
- {
- open_arg($format->{'command'},0, $state);
- }
- next;
- }
- $format = add_row ($text, $stack, $state, $line_nr); # handle multitable
- unless ($format)
- {
- echo_warn ("\@$macro outside of table or list", $line_nr);
- next;
- }
- push @$stack, {'format' => 'row', 'text' => '', 'item_cmd' => $macro };
- if ($format->{'max_columns'})
- {
- push @$stack, {'format' => 'cell', 'text' => ''};
- $format->{'cell'} = 1;
-
- begin_paragraph_after_command($state,$stack,$macro,$_);
- }
- else
- {
- echo_warn ("\@$macro in empty multitable", $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, $line_nr);
- my $format = add_cell ($text, $stack, $state);
- #print STDERR "tab, $format->{'cell'}, max $format->{'max_columns'}\n";
- if (!$format)
- {
- echo_warn ("\@$macro outside of multitable", $line_nr);
- }
- elsif (!$format->{'max_columns'})
- {
- echo_warn ("\@$macro in empty multitable", $line_nr);
- push @$stack, {'format' => 'null', 'text' => ''};
- next;
- }
- elsif ($format->{'cell'} > $format->{'max_columns'})
- {
- echo_warn ("too much \@$macro (multitable has only $format->{'max_columns'} column(s))", $line_nr);
- push @$stack, {'format' => 'null', 'text' => ''};
- next;
- }
- else
- {
- push @$stack, {'format' => 'cell', 'text' => ''};
- }
- begin_paragraph_after_command($state,$stack,$macro,$_);
- next;
- }
- # Macro opening a format (table, list, deff, example...)
- if ($format_type{$macro} and ($format_type{$macro} ne 'fake'))
- {
- unless ($Texi2HTML::Config::format_in_paragraph{$macro})
- {
- close_paragraph($text, $stack, $state, $line_nr);
- }
- push (@{$state->{'command_stack'}}, $macro);
- if ($format_type{$macro} eq 'menu')
- {
- close_menu($text, $stack, $state, $line_nr);
- $state->{'menu'}++;
- }
- # A deff like macro
- if (defined($Texi2HTML::Config::def_map{$macro}))
- {
- my $top_format = top_format($stack);
- if (defined($top_format) and ("$top_format->{'format'}x" eq $macro))
- {
- # 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;
- if (!$state->{'deff_line'})
- {# DEFx macro within a DEF paragraph
- close_stack($text, $stack, $state, $line_nr, undef, 'deff_item');
- my $format_ref = pop @$stack;
- add_prev($text, $stack, &$Texi2HTML::Config::def_item($format_ref->{'text'}));
- }
- #print STDERR "DEFx $macro\n";
- }
- else
- {
- # The previous @def command isn't the same @def
- # command. We begin the item for the previous @def
- # command and immediately open the new one.
- begin_deff_item($stack, $state, 1) if ($state->{'deff_line'});
- $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";
- push @$stack, { 'format' => $macro, 'text' => '' };
- }
- #print STDERR "BEGIN_DEFF $macro\n";
- #dump_stack ($text, $stack, $state);
- $state->{'deff_line'}->{'command'} = $macro;
- my ($style, $category, $name, $type, $class, $arguments);
- ($style, $category, $name, $type, $class, $_) = parse_def($macro, $_, $line_nr);
- #print STDERR "AFTER parse_def $_";
- # duplicate_state?
- $state->{'deff_line'}->{'style'} = $style;
- $state->{'deff_line'}->{'category'} = substitute_line($category) if (defined($category));
- $state->{'deff_line'}->{'category'} = '' if (!defined($category));
- # FIXME -- --- ''... are transformed to entities by
- # makeinfo. It may be wrong.
- $state->{'deff_line'}->{'name'} = substitute_line($name) if (defined($name));
- $state->{'deff_line'}->{'name'} = '' if (!defined($name));
- $state->{'deff_line'}->{'type'} = substitute_line($type) if (defined($type));
- $state->{'deff_line'}->{'class'} = substitute_line($class) if (defined($class));
- # the remaining of the line (the argument)
- #print STDERR "DEFF: open_cmd_line do_def_line $_";
- open_cmd_line($stack, $state, ['keep'], \&do_def_line);
- next;
- }
- elsif (exists ($Texi2HTML::Config::complex_format_map->{$macro}))
- { # handle menu if SIMPLE_MENU. see texi2html.init
- $state->{'preformatted'}++;
- my $complex_format = $Texi2HTML::Config::complex_format_map->{$macro};
- my $format = { 'format' => $macro, 'text' => '', 'pre_style' => $complex_format->{'pre_style'} };
- my $class = $macro;
- $class = $complex_format->{'class'} if (defined($complex_format->{'class'}));
- push @{$state->{'preformatted_stack'}}, {'pre_style' =>$complex_format->{'pre_style'}, 'class' => $class };
- push @$stack, $format;
- unless ($Texi2HTML::Config::format_in_paragraph{$macro})
- {
- begin_paragraph($stack, $state);
- }
- }
- elsif ($Texi2HTML::Config::paragraph_style{$macro})
- {
- push (@$stack, { 'format' => $macro, 'text' => '' });
- begin_paragraph_after_command($state,$stack,$macro,$_);
- 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. For example
- # @center @samp{something @center end of samp}
- # results to samp being kept in the 'command_stack'
-
- # we keep the end of line for @center, to
- # avoid the return in case there is only spaces
- # which occurs for all the format commmands followed by
- # spaces only
- next;
- }
- }
- 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'})
- {
- # Start a fake complex format in order to have a given pre style
- $state->{'preformatted'}++;
- push @$stack, { 'format' => 'menu_preformatted', 'text' => '', 'pre_style' => $Texi2HTML::Config::MENU_PRE_STYLE };
- push @{$state->{'preformatted_stack'}}, {'pre_style' => $Texi2HTML::Config::MENU_PRE_STYLE, 'class' => 'menu-preformatted' };
- }
- }
- elsif (($format_type{$macro} eq 'list') or ($format_type{$macro} eq 'table'))
- {
- my $format;
- #print STDERR "LIST_TABLE $macro\n";
- #dump_stack($text, $stack, $state);
- if (($macro eq 'itemize') or ($macro =~ /^(|v|f)table$/))
- {
- my $command;
- my $prepended;
- ($prepended, $command) = parse_format_command($_,$macro);
- $format = { 'format' => $macro, 'text' => '', 'command' => $command, 'prepended' => $prepended, 'term' => 0 };
- $_ = '';
- }
- elsif ($macro eq 'enumerate')
- {
- my $spec;
- ($_, $spec) = parse_enumerate ($_);
- $spec = 1 if (!defined($spec));
- $format = { 'format' => $macro, 'text' => '', 'spec' => $spec, 'item_nr' => 0 };
- }
- elsif ($macro eq 'multitable')
- {
- my $max_columns = parse_multitable ($_, $line_nr);
- if (!$max_columns)
- {
- echo_warn ("empty multitable", $line_nr);
- $max_columns = 0;
- }
- $format = { 'format' => $macro, 'text' => '', 'max_columns' => $max_columns, 'cell' => 1 };
- }
- $format->{'first'} = 1;
- $format->{'paragraph_number'} = 0;
- push @$stack, $format;
- push @{$state->{'table_list_stack'}}, $format;
- if ($macro =~ /^(|v|f)table$/)
- {
- push @$stack, { 'format' => 'line', 'text' => ''};
- }
- elsif ($macro eq 'multitable')
- {
- if ($format->{'max_columns'})
- {
- push @$stack, { 'format' => 'row', 'text' => '', 'item_cmd' => $macro };
- push @$stack, { 'format' => 'cell', 'text' => ''};
- }
- else
- {
- # multitable without row... We use the special null
- # format which content is ignored
- push @$stack, { 'format' => 'null', 'text' => ''};
- push @$stack, { 'format' => 'null', 'text' => ''};
- }
- }
- if ($format_type{$macro} eq 'list')
- {
- push @$stack, { 'format' => 'item', 'text' => ''};
- }
- begin_paragraph_after_command($state,$stack,$macro,$_)
- if ($macro ne 'multitable');
- return if ($format_type{$macro} eq 'table' or $macro eq 'itemize');
- }
- elsif ($macro eq 'float' or $macro eq 'quotation')
- {
- push @$stack, {'format' => $macro, 'text' => '' };
- if ($macro eq 'float')
- {
- open_cmd_line($stack, $state, ['keep','keep'], \&do_float_line);
- }
- elsif ($macro eq 'quotation')
- {
- open_cmd_line($stack, $state, ['keep'], \&do_quotation_line);
- }
- #dump_stack($text, $stack, $state);
- next;
- }
- # 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' => '' };
- begin_paragraph_after_command($state,$stack,$macro,$_);
- }
- return if (/^\s*$/);
- next;
- }
- $_ = do_unknown ($macro, $_, $text, $stack, $state, $line_nr);
- next;
- }
- elsif(s/^([^{}@,]*)\@([^\s\}\{\@]*)//o)
- { # A macro with a character which shouldn't appear in macro name
- add_prev($text, $stack, do_text($1, $state));
- $_ = do_unknown ($2, $_, $text, $stack, $state, $line_nr);
- next;
- }
- elsif (s/^([^{},]*)([{}])//o or (@$stack and
- defined($stack->[-1]->{'style'}) and
- ($stack->[-1]->{'style'} eq 'cmd_line') and /^([^{},]*)$/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));
- unless ($state->{'keep_texi'} or $state->{'remove_texi'})
- {
- echo_error ("'{' without macro. Before: $_", $line_nr);
- }
- }
- elsif (defined($brace) and ($brace eq '}') and
- (!@$stack or (!defined($stack->[-1]->{'style'}))
- # a non empty stack, but with 'cmd_line' as first item on the stack
- # is like an empty stack
- or ($stack->[-1]->{'style'} eq 'cmd_line')))
- {
- if ($state->{'keep_texi'})
- {
- add_prev($text, $stack, '}');
- }
- else
- {
- echo_error("'}' without opening '{' before: $_", $line_nr);
- }
- }
- else
- { # A @-command{ ...} is closed
- my $style = pop @$stack;
- my $command = $style->{'style'};
- my $result;
- if (ref($::style_map_ref->{$command}) eq 'HASH')
- {
- push (@{$style->{'args'}}, $style->{'text'});
- $style->{'fulltext'} .= $style->{'text'};
- #my $number = 0;
- #foreach my $arg(@{$style->{'args'}})
- #{
- #print STDERR " $number: $arg\n";
- # $number++;
- #}
- $style->{'text'} = $style->{'fulltext'};
- $state->{'keep_texi'} = 0 if (
- ($::style_map_ref->{$command}->{'args'}->[$style->{'arg_nr'}] eq 'keep')
- and ($state->{'keep_nr'} == 1));
- }
- $state->{'no_paragraph'}-- if ($no_paragraph_macro{$command});
- if ($command)
- {
- $style->{'no_close'} = 1 if ($state->{'no_close'});
- if ($::style_map_ref->{$command} and (defined($style_type{$command})) and ((!$style->{'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)
- {
- print STDERR "Bug: $style_command on 'command_stack', not $command\n";
- push @$stack, $style;
- push @{$state->{'command_stack'}}, $style_command;
- print STDERR "Stacks before pop top:\n";
- dump_stack($text, $stack, $state);
- pop @$stack;
- }
- }
- if ($state->{'keep_texi'})
- { # don't expand @-commands in anchor, refs...
- close_arg ($command, $style->{'arg_nr'}, $state);
- $result = '@' . $command . '{' . $style->{'text'} . '}';
- }
- else
- {
- $result = do_simple($command, $style->{'text'}, $state, $style->{'args'}, $line_nr, $style->{'no_open'}, $style->{'no_close'});
- if ($state->{'code_style'} < 0)
- {
- echo_error ("Bug: negative code_style: $state->{'code_style'}, line:$_", $line_nr);
- }
- }
- }
- else
- {
- print STDERR "Bug: empty style in pass_text\n";
- }
- add_prev($text, $stack, $result);
- if ($command eq 'cmd_line')
- {
- if ($state->{'deff_line'})
- {
-#print STDERR "DO DEFF $state->{'deff_line'}->{'command'} $state->{'deff_line'}->{'arguments'}\n";
- my $command = $state->{'deff_line'}->{'command'};
- my $def_style = $state->{'deff_line'}->{'style'};
- my $category = $state->{'deff_line'}->{'category'};
- my $class = $state->{'deff_line'}->{'class'};
- my $type = $state->{'deff_line'}->{'type'};
- my $name = $state->{'deff_line'}->{'name'};
- #my $arguments = $state->{'deff'}->{'arguments'};
- my $arguments;
- $arguments = substitute_line($state->{'deff_line'}->{'arguments'}) if (defined($state->{'deff_line'}->{'arguments'}));
-
- $category = &$Texi2HTML::Config::definition_category($category, $class, $def_style);
- my $index_label = do_index_entry_label($command, $state,$line_nr);
- add_prev($text, $stack, &$Texi2HTML::Config::def_line($category, $name, $type, $arguments, $index_label));
- }
- elsif ($state->{'preformatted'})
- { # inconditionally begin a preformatted section for
- # non @def* commands (currently @float and @quotation)
- # for @def* it is done in begin_deff_item
- begin_paragraph($stack, $state);
- }
- $state->{'no_paragraph'}--;
- return;
- }
- }
- }
- elsif (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($_, $state));
- #print STDERR "END LINE:$_!!!\n";
- #dump_stack($text, $stack, $state);
-
- # @item line is closed by end of line
- add_term($text, $stack, $state, $line_nr);
-
- # @center 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).
-
- # 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;
- unless ($Texi2HTML::Config::format_in_paragraph{'center'})
- {
- close_paragraph($text, $stack, $state, $line_nr);
- }
- close_stack($text, $stack, $state, $line_nr, undef, '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');
- $_ = '';
- next;
- }
- last;
- }
- }
- return 1;
-}
-
-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 'code' and !$state->{'keep_texi'})
- {
- $state->{'code_style'}++;
- }
- elsif ($arg eq 'keep')
- {
- $state->{'keep_nr'}++;
- $state->{'keep_texi'} = 1;
- }
- }
- 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 'code' and !$state->{'keep_texi'})
- {
- $state->{'code_style'}--;
- }
- elsif ($arg eq 'keep')
- {
- $state->{'keep_nr'}--;
- $state->{'keep_texi'} = 0 if ($state->{'keep_nr'} == 0);
- }
-#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
-sub open_cmd_line($$$$)
-{
- 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'}++;
- 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 $end = shift;
- return unless (exists ($state->{'table_list_stack'}));
- my $format = $state->{'table_list_stack'}->[-1];
- return unless (($format_type{$format->{'format'}} eq 'table') and ($format->{'format'} ne 'multitable' ) and $format->{'term'});
- #print STDERR "ADD_TERM\n";
- # we set 'term' = 0 early such that if we encounter an end of line
- # during close_stack we don't try to do the term once more
- $state->{'table_list_stack'}->[-1]->{'term'} = 0;
- # it is the first paragraph for the term.
- $format->{'paragraph_number'} = 0;
-
- #dump_stack($text, $stack, $state);
- close_stack($text, $stack, $state, $line_nr, undef, 'term');
- my $term = pop @$stack;
- my $command_formatted;
- chomp ($term->{'text'});
- if (exists($::style_map_ref->{$format->{'command'}}) and
- !exists($Texi2HTML::Config::special_list_commands{$format->{'format'}}->{$format->{'command'}}) and ($style_type{$format->{'command'}} eq 'style'))
- {
- my $leading_spaces = '';
- my $trailing_spaces = '';
- $term->{'text'} =~ s/^(\s*)//o;
- $leading_spaces = $1 if (defined($1));
- $term->{'text'} =~ s/(\s*)$//o;
- $trailing_spaces = $1 if (defined($1));
- $term->{'text'} = do_simple($format->{'command'}, $term->{'text'}, $state, [$term->{'text'}]);
- $term->{'text'} = $leading_spaces. $term->{'text'} .$trailing_spaces;
- }
- elsif (exists($::things_map_ref->{$format->{'command'}}))
- {
- $command_formatted = do_simple($format->{'command'}, '', $state);
- }
- my $index_label;
- if ($format->{'format'} =~ /^(f|v)/o)
- {
- $index_label = do_index_entry_label($format->{'format'}, $state,$line_nr);
- print STDERR "Bug: no index entry for $text" unless defined($index_label);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::table_item($term->{'text'}, $index_label,$format->{'format'},$format->{'command'}, $command_formatted,$state->{'command_stack'}));
- unless ($end)
- {
- push (@$stack, { 'format' => 'line', 'text' => '' });
- begin_paragraph($stack, $state) if ($state->{'preformatted'});
- }
- return $format;
-}
-
-sub add_row($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $format = $state->{'table_list_stack'}->[-1];
- return unless ($format->{'format'} eq 'multitable');
- if ($format->{'cell'} > $format->{'max_columns'})
- {
- close_stack($text, $stack, $state, $line_nr, undef, 'null');
- pop @$stack;
- }
- unless ($format->{'max_columns'})
- { # empty multitable
- pop @$stack; # pop 'row'
- return $format;
- }
- if ($format->{'first'})
- { # first row
- $format->{'first'} = 0;
- #dump_stack($text, $stack, $state);
- #if ($stack->[-1]->{'format'} and ($stack->[-1]->{'format'} eq 'paragraph') and ($stack->[-1]->{'text'} =~ /^\s*$/) and ($format->{'cell'} == 1))
- if ($stack->[-1]->{'format'} and ($stack->[-1]->{'format'} eq 'cell') and ($stack->[-1]->{'text'} =~ /^\s*$/) and ($format->{'cell'} == 1))
- {
- pop @$stack;
- pop @$stack;
- #pop @$stack;
- return $format;
- }
- }
- add_cell($text, $stack, $state);
- my $row = pop @$stack;
- add_prev($text, $stack, &$Texi2HTML::Config::row($row->{'text'}, $row->{'item_cmd'}));
- return $format;
-}
-
-sub add_cell($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $format = $state->{'table_list_stack'}->[-1];
- return unless ($format->{'format'} eq 'multitable');
- if ($format->{'cell'} <= $format->{'max_columns'})
- {
- close_stack($text, $stack, $state, $line_nr, undef, 'cell');
- my $cell = pop @$stack;
- my $row = top_stack($stack);
- print STDERR "Bug: top_stack of cell not a row\n" if (!defined($row) or !defined($row->{'format'}) or ($row->{'format'} ne 'row'));
- add_prev($text, $stack, &$Texi2HTML::Config::cell($cell->{'text'}, $row->{'item_cmd'}));
- $format->{'cell'}++;
- }
- return $format;
-}
-
-sub add_line($$$$;$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $end = shift;
- my $format = $state->{'table_list_stack'}->[-1];
- return unless ($format_type{$format->{'format'}} eq 'table' and ($format->{'format'} ne 'multitable') and ($format->{'term'} == 0));
- #print STDERR "ADD_LINE\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 abort the empty preformatted regions.
- abort_empty_preformatted($stack, $state) if ($format->{'first'});
- close_stack($text, $stack, $state, $line_nr, undef, 'line');
- my $line = pop @$stack;
- $format->{'paragraph_number'} = 0;
- my $first = 0;
- $first = 1 if ($format->{'first'});
- if ($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.
- add_prev($text, $stack, &$Texi2HTML::Config::table_line($line->{'text'})) if ($line->{'text'} =~ /\S/o);
- }
- else
- {
- add_prev($text, $stack, &$Texi2HTML::Config::table_line($line->{'text'}));
- }
- unless($end)
- {
- push (@$stack, { 'format' => 'term', 'text' => '' });
- }
- $format->{'term'} = 1;
- return $format;
-}
-
-# finish @enumerate or @itemize @item
-sub add_item($$$$;$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $line = shift;
- my $end = shift;
- my $format = $state->{'table_list_stack'}->[-1];
- return unless ($format_type{$format->{'format'}} eq 'list');
- #print STDERR "ADD_ITEM: \n";
- # as in pre the end of line are kept, we must explicitely abort empty
- # preformatted, close_stack doesn't do that.
- abort_empty_preformatted($stack, $state) if ($format->{'first'});
- close_stack($text, $stack, $state, $line_nr, undef, 'item');
- $format->{'paragraph_number'} = 0;
- if ($format->{'format'} eq 'enumerate')
- {
- $format->{'number'} = '';
- my $spec = $format->{'spec'};
- $format->{'item_nr'}++;
- if ($spec =~ /^[0-9]$/)
- {
- $format->{'number'} = $spec + $format->{'item_nr'} - 1;
- }
- 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'} - 1, 26);
- foreach my $ord (@letter_ords)
- {# WARNING 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'};
- }
- }
- }
-
- #dump_stack ($text, $stack, $state);
- my $item = pop @$stack;
- # 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 exists($::things_map_ref->{$format->{'command'}}))
- {
- $formatted_command = do_simple($format->{'command'}, '', $state);
- }
- #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'}));
- }
- if ($format->{'first'})
- {
- $format->{'first'} = 0;
- }
-
- # Now prepare the new item
- unless($end)
- {
- push (@$stack, { 'format' => 'item', 'text' => '' });
- begin_paragraph($stack, $state) unless (!$state->{'preformatted'} and no_line($line));
- }
- return $format;
-}
-
-# format ``simple'' macros, that is macros without arg or style macros
-sub do_simple($$$;$$$$)
-{
- 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 $arg_nr = 0;
- $arg_nr = @$args - 1 if (defined($args));
-
-#print STDERR "DO_SIMPLE $macro $arg_nr $args @$args\n" if (defined($args));
- if (defined($::simple_map_ref->{$macro}))
- {
- # \n may in certain circumstances, protect end of lines
- if ($macro eq "\n")
- {
- $state->{'end_of_line_protected'} = 1;
- #print STDERR "PROTECTING END OF LINE\n";
- }
- if ($state->{'keep_texi'})
- {
- return "\@$macro";
- }
- elsif ($state->{'remove_texi'})
- {
-#print STDERR "DO_SIMPLE remove_texi $macro\n";
- return $::simple_map_texi_ref->{$macro};
- }
- elsif ($state->{'preformatted'})
- {
- return $::simple_map_pre_ref->{$macro};
- }
- else
- {
- return $::simple_map_ref->{$macro};
- }
- }
- if (defined($::things_map_ref->{$macro}))
- {
- my $result;
- if ($state->{'keep_texi'})
- {
- $result = "\@$macro" . '{}';
- }
- elsif ($state->{'remove_texi'})
- {
- $result = $::texi_map_ref->{$macro};
-#print STDERR "DO_SIMPLE remove_texi texi_map $macro\n";
- }
- elsif ($state->{'preformatted'})
- {
- $result = $::pre_map_ref->{$macro};
- }
- else
- {
- $result = $::things_map_ref->{$macro};
- }
- return $result . $text;
- }
- elsif (defined($::style_map_ref->{$macro}))
- {
- if ($state->{'keep_texi'})
- {
- return "\@$macro" . '{' . $text . '}';
- }
- else
- {
- 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_ascii_accent;
- $style = $::style_map_texi_ref->{$macro};
- }
- elsif ($state->{'preformatted'})
- {
- $style = $::style_map_pre_ref->{$macro};
- }
- else
- {
- $style = $::style_map_ref->{$macro};
- }
- if (defined($style))
- { # known style
- $result = &$Texi2HTML::Config::style($style, $macro, $text, $args, $no_close, $no_open, $line_nr, $state, $state->{'command_stack'});
- }
- if (!$no_close)
- {
- close_arg($macro,$arg_nr, $state);
- }
- return $result;
- }
- }
- elsif ($macro =~ /^special_(\w+)_(\d+)$/o)
- {
- my $style = $1;
- my $count = $2;
- print STDERR "Bug? text in \@$macro not empty.\n" if ($text ne '');
- if ($state->{'keep_texi'})
- {# text should be empty
- return "\@$macro" . '{' . $text . '}';
- }
- 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'};
- if (($count != $struct_count) and $T2H_DEBUG)
- {
- print STDERR "count $count in \@special $style and structure $struct_count differ\n";
- }
- $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);
- if ($done)
- {
- echo_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
- echo_warn ("Unknown command with braces `\@$macro'", $line_nr);
- $result = do_text("\@$macro") . "{";
- }
- $result .= $text;
- $result .= '}' unless ($no_close);
- }
- return $result;
-}
-
-sub do_unknown($$$$$$)
-{
- my $macro = shift;
- my $line = shift;
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- #print STDERR "do_unknown: $macro ::: $line";
- my ($result_line, $result, $result_text, $message) = &$Texi2HTML::Config::unknown($macro, $line,$stack,$state);
- if ($result)
- {
- add_prev ($text, $stack, $result_text) if (defined($result_text));
- echo_warn($message, $line_nr) if (defined($message));
- return $result_line;
- }
- else
- {
- echo_warn ("Unknown command `\@$macro' (left as is)", $line_nr);
- add_prev ($text, $stack, do_text("\@$macro"));
- 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) . "";
- }
- #if (!defined($stack) or (ref($stack) ne "ARRAY"))
- #{
- # $string = $stack;
- # $stack = [];
- #}
-
- return if (!defined($string));
- if (@$stack)
- {
- $stack->[-1]->{'text'} .= $string;
- return;
- }
-
- if (!defined($$text))
- {
- $$text = $string;
- }
- else
- {
- $$text .= $string;
- }
-}
-
-sub close_stack_texi_structure($$$$)
-{
- 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'});
-
- #print STDERR "close_stack_texi_structure\n";
- #dump_stack ($text, $stack, $state);
- my $stack_level = $#$stack + 1;
- my $string = '';
-
- if ($state->{'ignored'})
- {
- $string .= "\@end $state->{'ignored'} ";
- echo_warn ("closing $state->{'ignored'}", $line_nr);
- }
- if ($state->{'texi'})
- {
- if ($state->{'macro'})
- {
- $string .= "\@end macro ";
- echo_warn ("closing macro", $line_nr);
- }
- elsif ($state->{'macro_name'})
- {
- $string .= ('}' x $state->{'macro_depth'}) . " ";
- echo_warn ("closing $state->{'macro_name'} ($state->{'macro_depth'} braces missing)", $line_nr);
- }
- elsif ($state->{'verb'})
- {
- echo_warn ("closing \@verb", $line_nr);
- $string .= $state->{'verb'} . '}';
- }
- elsif ($state->{'raw'})
- {
- echo_warn ("closing \@$state->{'raw'} raw format", $line_nr);
- $string .= "\@end $state->{'raw'} ";
- }
- if ($string ne '')
- {
- #print STDERR "close_stack scan_texi ($string)\n";
- scan_texi ($string, $text, $stack, $state, $line_nr);
- $string = '';
- }
- }
- elsif ($state->{'verb'})
- {
- $string .= $state->{'verb'};
- }
-
- while ($stack_level--)
- {
- my $stack_text = $stack->[$stack_level]->{'text'};
- $stack_text = '' if (!defined($stack_text));
- if ($stack->[$stack_level]->{'format'})
- {
- my $format = $stack->[$stack_level]->{'format'};
- if ($format eq 'index_item')
- {
- enter_table_index_entry($text, $stack, $state, $line_nr);
- next;
- }
- elsif (!defined($format_type{$format}) or ($format_type{$format} ne 'fake'))
- {
- $stack_text = "\@$format\n" . $stack_text;
- }
- }
- elsif (defined($stack->[$stack_level]->{'style'}))
- {
- if ($state->{'structure'})
- {
- $stack_text = close_structure_command($stack->[$stack_level],
- $state,1,$line_nr)
- }
- else
- {
- my $style = $stack->[$stack_level]->{'style'};
- if ($style ne '')
- {
- $stack_text = "\@$style\{" . $stack_text;
- }
- else
- {# this is a lone opened brace. We readd it there.
- $stack_text = "\{" . $stack_text;
- }
- }
- }
- pop @$stack;
- add_prev($text, $stack, $stack_text);
- }
- $stack = [ ];
-
- $state->{'close_stack'} = 1;
- if ($string ne '')
- {
- if ($state->{'texi'})
- {
- #print STDERR "scan_texi in close_stack ($string)\n";
- scan_texi($string, $text, $stack, $state, $line_nr);
- }
- elsif ($state->{'structure'})
- {
- #print STDERR "scan_structure in close_stack ($string)\n";
- scan_structure($string, $text, $stack, $state, $line_nr);
- }
- }
- delete $state->{'close_stack'};
-}
-
-# close region like @insertcopying, titlepage...
-# restore $state->{'after_element'} and delete the structure
-sub close_region($)
-{
- my $state = shift;
- $state->{'after_element'} = 1;
- delete $state->{'after_element'} unless
- ($state->{'region_lines'}->{'after_element'});
- $state->{'place'} = $state->{'region_lines'}->{'kept_place'};
- delete $state->{'region_lines'}->{'number'};
- delete $state->{'region_lines'}->{'format'};
- delete $state->{'region_lines'}->{'after_element'};
- delete $state->{'region_lines'}->{'kept_place'};
- delete $state->{'region_lines'};
-}
-
-# close the stack, closing macros and formats left open.
-# the precise behavior of the function depends on $close_paragraph:
-# undef -> close everything
-# defined -> remove empty paragraphs, close until the first format or
-# paragraph. don't close styles, duplicate stack of styles not closed
-
-# if a $format is given the stack is closed according to $close_paragraph but
-# if $format is encountered the closing stops
-
-sub close_stack($$$$;$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $close_paragraph = shift;
- my $format = shift;
- my $new_stack;
-
- #print STDERR "sub_close_stack\n";
- return $new_stack unless (@$stack);
-
- my $stack_level = $#$stack + 1;
- my $string = '';
- my $verb = '';
-
- if ($state->{'verb'})
- {
- $string .= $state->{'verb'};
- $verb = $state->{'verb'};
- }
-
- #debugging
- #my $print_format = 'NO FORMAT';
- #$print_format = $format if ($format);
- #my $print_close_paragraph = 'close everything';
- #$print_close_paragraph = 'close paragraph without duplicating' if (defined($close_paragraph));
- #$print_close_paragraph = $close_paragraph if ($close_paragraph);
- #print STDERR "Close_stack: format $print_format, close_paragraph: $print_close_paragraph\n";
-
- while ($stack_level--)
- {
- if ($stack->[$stack_level]->{'format'})
- {
- my $stack_format = $stack->[$stack_level]->{'format'};
- last if (defined($close_paragraph) or (defined($format) and $stack_format eq $format));
- # We silently close paragraphs, preformatted sections and fake formats
- if ($stack_format eq 'paragraph')
- {
- $string .= "\@end_paragraph{}";
- }
- elsif ($stack_format eq 'preformatted')
- {
- $string .= "\@end_preformatted{}";
- }
- 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, but add an @end center
- echo_warn ("closing `$stack_format'", $line_nr);
- #dump_stack ($text, $stack, $state);
- }
- $string .= "\@end $stack_format ";
- }
- }
- else
- {
- my $style = $stack->[$stack_level]->{'style'};
- # FIXME images, footnotes, xrefs, anchors with $close_paragraphs?
- # seems that it is not possible, as it is triggered by
- # close_paragraph which shouldn't be called with keep_texi
- # and when the arguments are expanded, there is a
- # substitute_line or similar with a new stack.
- if ($close_paragraph)
- { #duplicate the stack
- # the !exists($style_type{$style}) condition catches the unknown
- # @-commands: by default they are considered as style commands
- if ((exists($style_type{$style}) and ($style_type{$style} eq 'style')) or (!exists($style_type{$style})))
- {
- push @$new_stack, { 'style' => $style, 'text' => '', 'no_open' => 1, 'arg_nr' => 0 };
- $string .= '}';
- }
- elsif (($style_type{$style} eq 'simple_style') or ($style_type{$style} eq 'accent'))
- {
- $string .= '}';
- }
- else
- {
- print STDERR "$style while closing paragraph\n";
- }
- }
- else
- {
- dump_stack ($text, $stack, $state) if (!defined($style)); # bug
- $string .= '}';
- echo_warn ("closing \@-command $style", $line_nr) if ($style);
- }
- }
- }
- $state->{'no_close'} = 1 if ($close_paragraph);
- $state->{'close_stack'} = 1;
- if ($string ne '')
- {
- #print STDERR "scan_line in CLOSE_STACK ($string)\n";
- #dump_stack ($text, $stack, $state);
- scan_line($string, $text, $stack, $state, $line_nr);
- }
- delete $state->{'no_close'};
- delete $state->{'close_stack'};
- $state->{'verb'} = $verb if (($verb ne '') and $close_paragraph);
- # cancel paragraph states and command_stack
- # FIXME this seems to be unusefull, see formatting/center.texi
- unless (defined($close_paragraph) or defined($format))
- {
- $state->{'paragraph_style'} = [ '' ];
- $state->{'command_stack'} = [ '' ];
- }
- return $new_stack;
-}
-
-# 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 $line_nr = shift;
- #my $macro = shift;
- #print STDERR "CLOSE_PARAGRAPH\n";
- #dump_stack($text, $stack, $state);
- my $new_stack = close_stack($text, $stack, $state, $line_nr, 1);
- my $top_stack = top_stack($stack);
- if ($top_stack and !defined($top_stack->{'format'}))
- { #debug
- print STDERR "Bug: no format on top stack\n";
- 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));
- $state->{'paragraph_macros'} = $new_stack;
- return 1;
- }
- elsif ($top_stack and ($top_stack->{'format'} eq 'preformatted'))
- {
- my $paragraph = pop @$stack;
- add_prev($text, $stack, do_preformatted($paragraph->{'text'}, $state));
- $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/))
- {
- 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(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->{'table_list_stack'}))
- {
- print STDERR "table_list_stack: ";
- foreach my $format (@{$state->{'table_list_stack'}})
- {
- print STDERR "$format->{'format'} ";
- }
- 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->{'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";
- }
-}
-
-sub substitute_line($;$)
-{
- my $line = shift;
- my $state = shift;
- $state = {} if (!defined($state));
- $state->{'no_paragraph'} = 1;
- # this is usefull when called from &$I
- return simple_format($state, $line) if ($state->{'simple_format'});
- return substitute_text($state, $line);
-}
-
-sub substitute_text($@)
-{
- my $state = shift;
- my @stack = ();
- my $text = '';
- my $result = '';
- if ($state->{'structure'})
- {
- initialise_state_structure($state);
- }
- elsif ($state->{'texi'})
- {
- initialise_state_texi($state);
- }
- else
- {
- initialise_state($state);
- }
- $state->{'spool'} = [];
- #print STDERR "SUBST_TEXT begin\n";
-
- while (@_ or @{$state->{'spool'}})
- {
- my $line;
- if (@{$state->{'spool'}})
- {
- $line = shift @{$state->{'spool'}};
- }
- else
- {
- $line = shift @_;
- }
- next unless (defined($line));
- if ($state->{'structure'})
- {
- scan_structure ($line, \$text, \@stack, $state);
- }
- elsif ($state->{'texi'})
- {
- scan_texi ($line, \$text, \@stack, $state);
- }
- else
- {
- scan_line($line, \$text, \@stack, $state);
- }
- next if (@stack);
- $result .= $text;
- $text = '';
- }
- # FIXME could we have the line number ?
- # close stack in substitute_text
- if ($state->{'texi'} or $state->{'structure'})
- {
- close_stack_texi_structure(\$text, \@stack, $state, undef);
- }
- else
- {
- close_stack(\$text, \@stack, $state, undef);
- }
- #print STDERR "SUBST_TEXT end\n";
- return $result . $text;
-}
-
-# this function does the second pass formatting. It is not obvious that
-# it is usefull as in that pass the collected things
-sub substitute_texi_line($)
-{
- my $text = shift;
- return $text if $text =~ /^\s*$/;
- #print STDERR "substitute_texi_line $text\n";
- my @text = substitute_text({'structure' => 1}, $text);
- my @result = ();
- while (@text)
- {
- push @result, split (/\n/, shift (@text));
- }
- return '' unless (@result);
- my $result = shift @result;
- return $result . "\n" unless (@result);
- foreach my $line (@result)
- {
- chomp $line;
- $result .= ' ' . $line;
- }
- return $result . "\n";
-}
-
-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::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;
- return '' if ($state->{'multiple_pass'});
- my $entry = shift @index_labels;
- if (!defined($entry))
- {
- echo_warn ("Not enough index entries !", $line_nr);
- return '';
- }
- if ($command ne $entry->{'command'})
- {
- # happens with bad texinfo with a line like
- # @deffn func aaaa args @defvr c--ategory d--efvr_name
- echo_warn ("Waiting for index cmd \@$entry->{'command'}, got \@$command", $line_nr);
- }
-
- print STDERR "[(index $command) $entry->{'entry'} $entry->{'label'}]\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- return &$Texi2HTML::Config::index_entry_label ($entry->{'label'}, $state->{'preformatted'}, substitute_line($entry->{'entry'}),
- $index_prefix_to_name{$prefix},
- $command);
-}
-
-# 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;
-}
-
-# main processing is called here
-set_document_language('en') unless ($lang_set);
-# APA: There's got to be a better way:
-$T2H_USER = &$I('unknown');
-
-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
- $T2H_USER = 'a tester';
- $THISPROG = 'texi2html';
- setlocale( LC_ALL, "C" );
-}
-else
-{
- # the eval prevents this from breaking on system which do not have
- # a proper getpwuid implemented
- eval { ($T2H_USER = (getpwuid ($<))[6]) =~ s/,.*//;}; # Who am i
- # APA: Provide Windows NT workaround until getpwuid gets
- # implemented there.
- $T2H_USER = $ENV{'USERNAME'} unless defined $T2H_USER;
-}
-
-open_file($docu, $texi_line_number);
-#Texi2HTML::LaTeX2HTML::init() if ($Texi2HTML::Config::L2H);
-if ($Texi2HTML::Config::L2H)
-{
- push @Texi2HTML::Config::command_handler_init, \&Texi2HTML::LaTeX2HTML::init;
- push @Texi2HTML::Config::command_handler_process, \&Texi2HTML::LaTeX2HTML::latex2html;
- 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
- };
-}
-foreach my $handler(@Texi2HTML::Config::command_handler_init)
-{
- &$handler;
-}
-
-my @css_import_lines;
-my @css_rule_lines;
-
-# process css files
-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_init_file ($file);
- unless (defined($css_file))
- {
- warn "css file $file not found\n";
- next;
- }
- unless (open (CSSFILE, "$css_file"))
- {
- warn "Cannot open ${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;
-}
-
-$Texi2HTML::THISDOC{'css_import_lines'} = \@css_import_lines;
-$Texi2HTML::THISDOC{'css_lines'} = \@css_rule_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";
- }
- }
-}
-
-pass_texi();
-dump_texi(\@lines, 'texi', \@lines_numbers) if ($T2H_DEBUG & $DEBUG_TEXI);
-if (defined($Texi2HTML::Config::MACRO_EXPAND))
-{
- my @texi_lines = (@first_lines, @lines);
- dump_texi(\@texi_lines, '', undef, $Texi2HTML::Config::MACRO_EXPAND);
-}
-pass_structure();
-if ($T2H_DEBUG & $DEBUG_TEXI)
-{
- dump_texi(\@doc_lines, 'first', \@doc_numbers);
- if (defined($Texi2HTML::Config::MACRO_EXPAND and $Texi2HTML::Config::DUMP_TEXI))
- {
- unshift (@doc_lines, @first_lines);
- push (@doc_lines, "\@bye\n");
- dump_texi(\@doc_lines, '', undef, $Texi2HTML::Config::MACRO_EXPAND . ".first");
- }
-}
-exit(0) if ($Texi2HTML::Config::DUMP_TEXI or defined($Texi2HTML::Config::MACRO_EXPAND));
-
-foreach my $style (keys(%special_commands))
-{
- $special_commands{$style}->{'max'} = $special_commands{$style}->{'count'};
-}
-
-rearrange_elements();
-do_names();
-
-#Texi2HTML::LaTeX2HTML::latex2html();
-foreach my $handler(@Texi2HTML::Config::command_handler_process)
-{
- &$handler;
-}
-
-if (@{$region_lines{'documentdescription'}} and (!defined($Texi2HTML::Config::DOCUMENT_DESCRIPTION)))
-{
- my $documentdescription = remove_texi(@{$region_lines{'documentdescription'}});
- my @documentdescription = split (/\n/, $documentdescription);
- $Texi2HTML::Config::DOCUMENT_DESCRIPTION = shift @documentdescription;
- chomp $Texi2HTML::Config::DOCUMENT_DESCRIPTION;
- foreach my $line (@documentdescription)
- {
- chomp $line;
- $Texi2HTML::Config::DOCUMENT_DESCRIPTION .= ' ' . $line;
- }
-}
-# do copyright notice inserted in comment at the beginning of the files
-if (@{$region_lines{'copying'}})
-{
- $copying_comment = &$Texi2HTML::Config::copying_comment($region_lines{'copying'});
-}
-&$Texi2HTML::Config::toc_body(\@elements_list);
-$sec_num = 0;
-
-
-&$Texi2HTML::Config::css_lines(\@css_import_lines, \@css_rule_lines);
-
-pass_text();
-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)
- {
- echo_warn ("$count special \@$special were not processed.\n");
- }
-}
-if ($Texi2HTML::Config::IDX_SUMMARY)
-{
- foreach my $entry (keys(%index_names))
- {
- do_index_summary_file($entry) unless ($empty_indices{$entry});
- }
-}
-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 "# 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 ${prefix}/man/man1/texi2html.1
/build-aux/ltmain.sh
/build-aux/run-test
/build-aux/test-driver.diff
+/build-aux/texi2html
/build-aux/texinfo.tex
/lib/declared.sh
/lib/exported.sh.in
cp -p ../m4/lt*.m4 m4/
cp -p ../m4/woe32-dll.m4 m4/
cp -p ../build-aux/ltmain.sh build-aux/
+cp -p ../build-aux/texi2html build-aux/
cp -p ../gettext-tools/m4/exported.m4 m4/
cp -p ../gettext-tools/libgettextpo/exported.sh.in lib/
+++ /dev/null
-#! /usr/bin/perl -- # perl
-'di ';
-'ig 00 ';
-#+##############################################################################
-#
-# texi2html: Program to transform Texinfo documents to HTML
-#
-# Copyright (C) 1999-2005 Patrice Dumas <dumas@centre-cired.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
-#
-#-##############################################################################
-# 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 a relative path back to the current working directory
-use File::Spec;
-
-#
-# 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;
-
-#++##########################################################################
-#
-# NOTE FOR DEBUGGING THIS SCRIPT:
-# You can run 'perl texi2html.pl' directly, provided you have
-# the environment variable T2H_HOME set to the directory containing
-# the texi2html.init, T2h_i18n.pm, translations.pl, l2h.init,
-# T2h_l2h.pm files
-#
-#--##########################################################################
-
-# CVS version:
-# $Id: texi2html.pl,v 1.182 2007/05/07 22:56:02 pertusus Exp $
-
-# Homepage:
-my $T2H_HOMEPAGE = "https://www.nongnu.org/texi2html/";
-
-# Authors (appears in comments):
-my $T2H_AUTHORS = <<EOT;
-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 = '1.78a';
-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 $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 '@' . 'datadir@')
-{
- $pkgdatadir = eval '"${prefix}/share/texi2html"';
- $datadir = eval '"${prefix}/share"';
-}
-else
-{
- $pkgdatadir = "/usr/local/share/texi2html";
- $datadir = "/usr/local/share";
-}
-
-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 texi2html init files
-my @texi2html_config_dirs = ('./');
-push @texi2html_config_dirs, "$ENV{'HOME'}/.texi2html/" if (defined($ENV{'HOME'}));
-push @texi2html_config_dirs, "$sysconfdir/texi2html/" if (defined($sysconfdir));
-push @texi2html_config_dirs, "$pkgdatadir" if (defined($pkgdatadir));
-
-# 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));
-
-
-#+++########################################################################
-# #
-# 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 $ERROR = "***"; # prefix for errors
-my $WARN = "**"; # prefix for warnings
-
-my $VARRE = '[\w\-]+'; # RE for a variable name
-my $NODERE = '[^:]+'; # RE for node names
-
-my $MAX_LEVEL = 4;
-my $MIN_LEVEL = 1;
-
-#+++###########################################################################
-# #
-# 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;
-
-
-sub load($)
-{
- my $file = shift;
- eval { require($file) ;};
- if ($@ ne '')
- {
- print STDERR "error loading $file: $@\n";
- return 0;
- }
- return 1;
-}
-
-# customization options variables
-
-use vars qw(
-$DEBUG
-$PREFIX
-$VERBOSE
-$SUBDIR
-$IDX_SUMMARY
-$SPLIT
-$SHORT_REF
-@EXPAND
-$EXPAND
-$TOP
-$DOCTYPE
-$FRAMESET_DOCTYPE
-$CHECK
-$TEST
-$DUMP_TEXI
-$MACRO_EXPAND
-$USE_GLOSSARY
-$INVISIBLE_MARK
-$USE_ISO
-$TOP_FILE
-$TOC_FILE
-$FRAMES
-$SHOW_MENU
-$NUMBER_SECTIONS
-$USE_NODES
-$USE_UNICODE
-$USE_UNIDECODE
-$TRANSLITERATE_NODE
-$NODE_FILES
-$NODE_NAME_IN_MENU
-$AVOID_MENU_REDUNDANCY
-$SECTION_NAVIGATION
-$SHORTEXTN
-$EXTENSION
-$OUT
-$NOVALIDATE
-$DEF_TABLE
-$LANG
-$DO_CONTENTS
-$DO_SCONTENTS
-$SEPARATED_FOOTNOTES
-$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
-$INLINE_CONTENTS
-);
-
-# customization variables
-# ENCODING is deprecated
-use vars qw(
-$ENCODING
-
-$ENCODING_NAME
-$DOCUMENT_ENCODING
-$OUT_ENCODING
-$IN_ENCODING
-$DEFAULT_ENCODING
-$MENU_PRE_STYLE
-$CENTER_IMAGE
-$EXAMPLE_INDENT_CELL
-$SMALL_EXAMPLE_INDENT_CELL
-$SMALL_FONT_SIZE
-$SMALL_RULE
-$DEFAULT_RULE
-$MIDDLE_RULE
-$BIG_RULE
-$TOP_HEADING
-$INDEX_CHAPTER
-$SPLIT_INDEX
-$HREF_DIR_INSTEAD_FILE
-$USE_MENU_DIRECTIONS
-$AFTER_BODY_OPEN
-$PRE_BODY_CLOSE
-$EXTRA_HEAD
-$VERTICAL_HEAD_NAVIGATION
-$WORDS_IN_PAGE
-$ICONS
-$UNNUMBERED_SYMBOL_IN_MENU
-$SIMPLE_MENU
-$MENU_SYMBOL
-$OPEN_QUOTE_SYMBOL
-$CLOSE_QUOTE_SYMBOL
-$TOC_LIST_STYLE
-$TOC_LIST_ATTRIBUTE
-$TOP_NODE_FILE
-$TOP_NODE_UP
-$NODE_FILE_EXTENSION
-$BEFORE_OVERVIEW
-$AFTER_OVERVIEW
-$BEFORE_TOC_LINES
-$AFTER_TOC_LINES
-$NEW_CROSSREF_STYLE
-$USER
-$USE_NUMERIC_ENTITY
-$DATE
-%ACTIVE_ICONS
-%NAVIGATION_TEXT
-%PASSIVE_ICONS
-%BUTTONS_NAME
-%BUTTONS_GOTO
-%BUTTONS_EXAMPLE
-@CHAPTER_BUTTONS
-@MISC_BUTTONS
-@SECTION_BUTTONS
-@SECTION_FOOTER_BUTTONS
-@NODE_FOOTER_BUTTONS
-@IMAGE_EXTENSIONS
-);
-
-# 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_page_head
-$print_page_foot
-$print_head_navigation
-$print_foot_navigation
-$button_icon_img
-$print_navigation
-$about_body
-$print_frame
-$print_toc_frame
-$toc_body
-$titlepage
-$css_lines
-$print_redirection_page
-$init_out
-$finish_out
-$node_file_name
-$element_file_name
-$inline_contents
-
-$protect_text
-$anchor
-$def_item
-$def
-$menu
-$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
-$raw
-$raw_no_texi
-$heading
-$paragraph
-$preformatted
-$foot_line_and_ref
-$foot_section
-$address
-$image
-$image_files
-$index_entry_label
-$index_entry
-$index_letter
-$print_index
-$index_summary
-$summary_letter
-$complex_format
-$cartouche
-$sp
-$definition_category
-$table_list
-$copying_comment
-$index_summary_file_entry
-$index_summary_file_end
-$index_summary_file_begin
-$style
-$format
-$normal_text
-$empty_line
-$unknown
-$unknown_style
-$float
-$caption_shortcaption
-$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
-
-$PRE_ABOUT
-$AFTER_ABOUT
-);
-
-# hash which entries might be redefined by the user
-use vars qw(
-$complex_format_map
-%accent_map
-%def_map
-%format_map
-%simple_map
-%simple_map_pre
-%simple_map_texi
-%style_map
-%style_map_pre
-%style_map_texi
-%simple_format_simple_map_texi
-%simple_format_style_map_texi
-%simple_format_texi_map
-%command_type
-%paragraph_style
-%things_map
-%pre_map
-%texi_map
-%unicode_map
-%unicode_diacritical
-%transliterate_map
-%transliterate_accent_map
-%no_transliterate_map
-%ascii_character_map
-%ascii_simple_map
-%ascii_things_map
-%numeric_entity_map
-%perl_charset_to_html
-%iso_symbols
-%misc_command
-%css_map
-%format_in_paragraph
-%special_list_commands
-%accent_letters
-%unicode_accents
-%special_accents
-@command_handler_init
-@command_handler_process
-@command_handler_finish
-%command_handler
-);
-
-# needed in this namespace for translations
-$I = \&Texi2HTML::I18n::get_string;
-
-#
-# 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).
-#
-
-$toc_body = \&T2H_GPL_toc_body;
-$style = \&T2H_GPL_style;
-$format = \&T2H_GPL_format;
-
-sub T2H_GPL_toc_body($)
-{
- my $elements_list = shift;
- return unless ($DO_CONTENTS or $DO_SCONTENTS or $FRAMES);
- my $current_level = 0;
- my $ul_style = $NUMBER_SECTIONS ? $TOC_LIST_ATTRIBUTE : '';
- foreach my $element (@$elements_list)
- {
- next if ($element->{'top'} or $element->{'index_page'});
- 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<ul${ul_style}>\n";
- $ind = ' ' x $current_level;
- push(@{$Texi2HTML::TOC_LINES}, $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(@{$Texi2HTML::TOC_LINES}, "$line\n");
-
- }
- }
- else
- {
- push(@{$Texi2HTML::TOC_LINES}, "</li>\n");
- }
- my $file = '';
- $file = $element->{'file'} if ($SPLIT);
- my $text = $element->{'text'};
- #$text = $element->{'name'} unless ($NUMBER_SECTIONS);
- my $entry = "<li>" . &$anchor ($element->{'tocid'}, "$file#$element->{'id'}",$text);
- push (@{$Texi2HTML::TOC_LINES}, $ind . $entry);
- push(@{$Texi2HTML::OVERVIEW}, $entry. "</li>\n") if ($level == 1);
- }
- while (0 < $current_level)
- {
- $current_level--;
- my $ind = ' ' x $current_level;
- push(@{$Texi2HTML::TOC_LINES}, "</li>\n$ind</ul>\n");
- }
- @{$Texi2HTML::TOC_LINES} = () unless ($DO_CONTENTS);
- if (@{$Texi2HTML::TOC_LINES})
- {
- unshift @{$Texi2HTML::TOC_LINES}, $BEFORE_TOC_LINES;
- push @{$Texi2HTML::TOC_LINES}, $AFTER_TOC_LINES;
- }
- @{$Texi2HTML::OVERVIEW} = () unless ($DO_SCONTENTS or $FRAMES);
- if (@{$Texi2HTML::OVERVIEW})
- {
- unshift @{$Texi2HTML::OVERVIEW}, "<ul${ul_style}>\n";
- push @{$Texi2HTML::OVERVIEW}, "</ul>\n";
- unshift @{$Texi2HTML::OVERVIEW}, $BEFORE_OVERVIEW;
- push @{$Texi2HTML::OVERVIEW}, $AFTER_OVERVIEW;
- }
-}
-
-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 $do_quotes = 0;
- my $use_attribute = 0;
- my $use_begin_end = 0;
- if (ref($style) eq 'HASH')
- {
- #print STDERR "GPL_STYLE $command\n";
- #print STDERR " @$args\n";
- $do_quotes = $style->{'quote'};
- if ((@{$style->{'args'}} == 1) and defined($style->{'attribute'}))
- {
- $style = $style->{'attribute'};
- $use_attribute = 1;
- $text = $args->[0];
- }
- elsif (defined($style->{'function'}))
- {
- $text = &{$style->{'function'}}($command, $args, $style_stack, $state, $line_nr);
- }
- }
- 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)
- { # good style
- my $attribute_text = '';
- if ($style =~ /^(\w+)(\s+.*)/)
- {
- $style = $1;
- $attribute_text = $2;
- }
-# $text = "<${style}$attribute_text>$text</$style>" ;
- $text = "<${style}$attribute_text>" . "$text" if (!$no_open);
- $text .= "</$style>" if (!$no_close);
- 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 ($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";
-}
-
-# leave this within comments, and keep the require statement
-# This way, you can directly run texi2html.pl, if
-# $ENV{T2H_HOME}/texi2html.init exists.
-
-# @INIT@
-# -*-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.116 2007/05/07 22:56:02 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/texi2htmlrc
-# and then by values set in $HOME/texi2htmlrc.
-#
-# 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.
-
-# -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 https://www.xml.com/axml/target.html#NT-ExternalID
-$DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html401/loose.dtd">';
-
-# -frameset-doctype
-# 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/html401/frameset.dtd">';
-
-# -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 of test.sh.
-$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 = ('html');
-
-# -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 special symbols
-# (like copyright, etc).
-$USE_ISO = 1;
-
-# -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 = (".");
-@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 = ();
-
-# --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 | -nomenu
-# if the value is true the Texinfo menus are shown.
-$SHOW_MENU = 1;
-
-# -number | -nonumber
-# 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;
-
-# -use-nodes
-# if this is set the nodes are used as sectionning elements.
-# Otherwise the nodes are incorporated in sections.
-$USE_NODES = 0;
-
-# -node-files
-# if this is set one file per node is generated, which can be a target for
-# cross manual references.
-$NODE_FILES = 0;
-
-# -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 sectionning 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 = '';
-
-# -sec-nav|-nosec-nav
-# 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.
-#
-# If the document is split at sections this is ignored.
-#
-# 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.
-$SECTION_NAVIGATION = 1;
-
-# -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).
-$SEPARATED_FOOTNOTES = 1;
-
-# -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 = '';
-
-# -o filename
-# If this is set a monolithic document is outputted into $filename.
-$OUT = '';
-
-# -no-validate
-# suppress node cross-reference validation
-$NOVALIDATE = 0;
-
-# -short-ref
-# if this is set cross-references are given without section numbers.
-$SHORT_REF = '';
-
-# -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 = '';
-
-# -lang
-# use &$I('my string') if you want to have translations of 'my string'
-# and provide the translations in $LANGUAGES->{$LANG} 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.
-# Default's to 'en' if not set or no @documentlanguage is specified.
-$LANG = 'en';
-
-# -ignore-preamble-text
-# If this is set the text before @node and sectionning 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 = '';
-
-# -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 texi2html).
-# cf texinfo manual for more info.
-# - means STDIN
-@CSS_FILES = ();
-
-######################
-# 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.
-$L2H_SKIP = '';
-
-# -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
-#
-##############################################################################
-
-# If true do table of contents even if there is no @content
-$DO_CONTENTS = 0;
-
-# If true do short table of contents even if there is no @shortcontent
-$DO_SCONTENTS = 0;
-
-# if set, output the contents where the command is located
-$INLINE_CONTENTS = 1;
-
-# if this variable is true, numeric entities are used when there is no
-# corresponding textual entity.
-$USE_NUMERIC_ENTITY = 1;
-
-# if set, then use node names in menu entries, instead of section names
-$NODE_NAME_IN_MENU = 0;
-
-# new style for crossrefs
-$NEW_CROSSREF_STYLE = 1;
-
-# transliterate node names for external refs (and internal if NODE_FILES)
-$TRANSLITERATE_NODE = 1;
-
-# 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 = 1;
-
-# 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 = '<td> </td>';
-
-# same as above, only for @small
-$SMALL_EXAMPLE_INDENT_CELL = '<td> </td>';
-
-# font size for @small
-$SMALL_FONT_SIZE = '-1';
-
-# horizontal rules
-$SMALL_RULE = '<hr size="1">';
-$DEFAULT_RULE = '<hr>';
-$MIDDLE_RULE = '<hr size="2">';
-$BIG_RULE = '';
-
-# 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 = '';
-
-# if set and $SPLIT is set, then split index pages at the next letter
-# after they have more than that many entries
-$SPLIT_INDEX = 100;
-
-# 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;
-
-$OPEN_QUOTE_SYMBOL = "\`";
-$CLOSE_QUOTE_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 = "html";
-
-# extension
-$EXTENSION = "html";
-
-# file name used for Top node when NODE_FILES is true
-$TOP_NODE_FILE = "index";
-
-# 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';
-
-# This controls the ul style for toc
-$TOC_LIST_STYLE = 'list-style: none';
-$TOC_LIST_ATTRIBUTE = ' class="toc"';
-
-# 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";
-
-# 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 the information given by menus to complete the node directions
-$USE_MENU_DIRECTIONS = 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 =
- (
- 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward',
- ' ', ' ', ' ', ' ',
- 'Top', 'Contents', 'Index', 'About',
- );
-
-# buttons for misc stuff
-@MISC_BUTTONS = ('Top', 'Contents', 'Index', 'About');
-
-# buttons for chapter file footers
-# (and headers but only if SECTION_NAVIGATION is false)
-@CHAPTER_BUTTONS =
- (
- 'FastBack', 'FastForward', ' ',
- ' ', ' ', ' ', ' ',
- 'Top', 'Contents', 'Index', 'About',
- );
-
-# buttons for section file footers
-@SECTION_FOOTER_BUTTONS =
- (
- 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward'
- );
-
-@NODE_FOOTER_BUTTONS =
- (
- 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward',
- ' ', ' ', ' ', ' ',
- 'Top', 'Contents', 'Index', 'About',
-# 'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward'
- );
-
-$ICONS = 0;
-
-# 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', '',
- ' ', ''
- );
-
-# 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', '',
- );
-
-@IMAGE_EXTENSIONS = ('png','jpg','jpeg','gif');
-
-$init_out = \&t2h_default_init_out;
-$finish_out = \&t2h_default_finish_out;
-
-# We have to do this dynamically because of internationalization and because
-# in body $LANG could be used.
-sub t2h_default_init_out()
-{
-# Names of text as alternative for icons
-# FIXME maybe get those in simple_format?
- %NAVIGATION_TEXT =
- (
- 'Top', &$I('Top'),
- 'Contents', &$I('Contents'),
- 'Overview', &$I('Overview'),
- 'Index', &$I('Index'),
- ' ', ' ',
- 'This', &$I('current'),
- 'Back', ' < ',
- 'FastBack', ' << ',
- 'Prev', &$I('Prev'),
- 'Up', &$I(' Up '),
- 'Next', &$I('Next'),
- 'NodeUp', &$I('Node up'),
- 'NodeNext', &$I('Next node'),
- 'NodePrev', &$I('Previous node'),
- 'Following', &$I('Following node'),
- 'Forward', ' > ',
- 'FastForward', ' >> ',
- 'About', ' ? ',
- 'First', ' |< ',
- 'Last', ' >| '
- );
-
- %BUTTONS_GOTO =
- (
- 'Top', &$I('Cover (top) of document'),
- 'Contents', &$I('Table of contents'),
- 'Overview', &$I('Short table of contents'),
- 'Index', &$I('Index'),
- 'This', &$I('Current section'),
- 'Back', &$I('Previous section in reading order'),
- 'FastBack', &$I('Beginning of this chapter or previous chapter'),
- 'Prev', &$I('Previous section on same level'),
- 'Up', &$I('Up section'),
- 'Next', &$I('Next section on same level'),
- 'NodeUp', &$I('Up node'),
- 'NodeNext', &$I('Next node'),
- 'NodePrev', &$I('Previous node'),
- 'Following', &$I('Node following in node reading order'),
- 'Forward', &$I('Next section in reading order'),
- 'FastForward', &$I('Next chapter'),
- 'About' , &$I('About (help)'),
- 'First', &$I('First section in reading order'),
- 'Last', &$I('Last section in reading order'),
- );
-
- %BUTTONS_NAME =
- (
- 'Top', &$I('Top'),
- 'Contents', &$I('Contents'),
- 'Overview', &$I('Overview'),
- 'Index', &$I('Index'),
- ' ', ' ',
- 'This', &$I('This'),
- 'Back', &$I('Back'),
- 'FastBack', &$I('FastBack'),
- 'Prev', &$I('Prev'),
- 'Up', &$I('Up'),
- 'Next', &$I('Next'),
- 'NodeUp', &$I('NodeUp'),
- 'NodeNext', &$I('NodeNext'),
- 'NodePrev', &$I('NodePrev'),
- 'Following', &$I('Following'),
- 'Forward', &$I('Forward'),
- 'FastForward', &$I('FastForward'),
- 'About', &$I('About'),
- 'First', &$I('First'),
- 'Last', &$I('Last')
- );
-
- # Set the default body text, inserted between <body ... >
- $BODYTEXT = 'lang="' . $LANG . '" bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000"' unless (defined($BODYTEXT));
- if (!defined($EXTERNAL_CROSSREF_SPLIT))
- {
- if ($SPLIT)
- {
- $EXTERNAL_CROSSREF_SPLIT = 1;
- }
- else
- {
- $EXTERNAL_CROSSREF_SPLIT = 0;
- }
- }
-
- $ENCODING_NAME = $ENCODING if (!defined($ENCODING_NAME) and
- defined($ENCODING));
-
- if (!defined($OUT_ENCODING) and (defined($ENCODING_NAME)))
- {
- $OUT_ENCODING = main::encoding_alias ($ENCODING_NAME);
- $OUT_ENCODING = $ENCODING_NAME if (!defined($OUT_ENCODING));
- }
- if (!defined($OUT_ENCODING) and (defined($IN_ENCODING)))
- {
- $OUT_ENCODING = $IN_ENCODING;
- }
- if (!defined($OUT_ENCODING) and (defined($DOCUMENT_ENCODING)))
- {
- $OUT_ENCODING = main::encoding_alias ($DOCUMENT_ENCODING);
- $OUT_ENCODING = $DOCUMENT_ENCODING if (!defined($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($IN_ENCODING) and defined($perl_charset_to_html{$IN_ENCODING}))
- {
- $ENCODING_NAME = $perl_charset_to_html{$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($IN_ENCODING))
- {
- $ENCODING_NAME = $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';
- }
- }
- my $out_encoding = $OUT_ENCODING;
- $out_encoding = 'UNDEF' if (!defined($out_encoding));
- my $in_encoding = $IN_ENCODING;
- $in_encoding = 'UNDEF' if (!defined($in_encoding));
- my $document_encoding = $DOCUMENT_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);
-
- if ($SIMPLE_MENU and !defined($complex_format_map->{'menu'}))
- {
- $complex_format_map->{'menu'} = { 'begin' => q{''} , 'end' => q{''},
- 'pre_style' => "$MENU_PRE_STYLE", 'class' => 'menu-preformatted' };
- }
-
- return $OUT_ENCODING;
-};
-
-sub t2h_default_finish_out()
-{
-}
-
-#######################################################################
-#
-# Values guessed if not set here, set in init_out
-#
-#######################################################################
-
-$BODYTEXT = undef;
-
-# default used in init_out for the setting of the ENCODING_NAME variable
-$DEFAULT_ENCODING = 'utf8';
-
-# In file encoding. The @documentencoding overrides 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;
-
-# if undef set to @documentdescription. If there is no @documentdescription,
-# set in page_head
-$DOCUMENT_DESCRIPTION = undef;
-
-# if undef set 1 if SPLIT, to 0 otherwise
-$EXTERNAL_CROSSREF_SPLIT = undef;
-
-$USER = 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, 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 sectionning 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 @setttile
-# $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} -- 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{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_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::THIS_HEADER -- lines preceding navigation panel 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 = \&T2H_DEFAULT_print_section;
-$end_section = \&T2H_DEFAULT_end_section;
-$one_section = \&T2H_DEFAULT_one_section;
-$print_Top_header = \&T2H_DEFAULT_print_Top_header;
-$print_Top_footer = \&T2H_DEFAULT_print_Top_footer;
-$print_Top = \&T2H_DEFAULT_print_Top;
-$print_Toc = \&T2H_DEFAULT_print_Toc;
-$print_Overview = \&T2H_DEFAULT_print_Overview;
-$print_Footnotes = \&T2H_DEFAULT_print_Footnotes;
-$print_About = \&T2H_DEFAULT_print_About;
-$print_misc_header = \&T2H_DEFAULT_print_misc_header;
-$print_misc_footer = \&T2H_DEFAULT_print_misc_footer;
-$print_misc = \&T2H_DEFAULT_print_misc;
-$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_head = \&T2H_DEFAULT_print_page_head;
-$print_page_foot = \&T2H_DEFAULT_print_page_foot;
-$print_head_navigation = \&T2H_DEFAULT_print_head_navigation;
-$print_foot_navigation = \&T2H_DEFAULT_print_foot_navigation;
-$button_icon_img = \&T2H_DEFAULT_button_icon_img;
-$print_navigation = \&T2H_DEFAULT_print_navigation;
-$about_body = \&T2H_DEFAULT_about_body;
-$print_frame = \&T2H_DEFAULT_print_frame;
-$print_toc_frame = \&T2H_DEFAULT_print_toc_frame;
-#$toc_body = \&T2H_DEFAULT_toc_body;
-$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;
-
-########################################################################
-# Layout for html for every sections
-#
-sub T2H_DEFAULT_print_section
-{
- my $fh = shift;
- my $first_in_page = shift;
- my $previous_is_top = shift;
- my $buttons = \@SECTION_BUTTONS;
-
- if ($first_in_page and $SECTION_NAVIGATION)
- {
- &$print_head_navigation($fh, $buttons);
- }
- else
- { # got to do this here, as it isn't done in print_head_navigation
- main::print_lines($fh, $Texi2HTML::THIS_HEADER);
- &$print_navigation($fh, $buttons) if ($SECTION_NAVIGATION);
- }
- my $nw = main::print_lines($fh);
- if (defined $SPLIT
- and (($SPLIT eq 'node') && $SECTION_NAVIGATION))
- {
- &$print_foot_navigation($fh);
- print $fh "$SMALL_RULE\n";
- &$print_navigation($fh, \@NODE_FOOTER_BUTTONS) if (!defined($WORDS_IN_PAGE) or (defined ($nw)
- and $nw >= $WORDS_IN_PAGE));
- }
-}
-
-sub T2H_DEFAULT_one_section($)
-{
- my $fh = shift;
- main::print_lines($fh, $Texi2HTML::THIS_HEADER);
- main::print_lines($fh);
- print $fh "$SMALL_RULE\n";
- &$print_foot_navigation($fh);
- &$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.
-#
-# If you enclose everything in @ifnothtml, then title, subtitle,
-# author and overview is printed
-# Texi2HTML::HREF of Next, Prev, Up, Forward, Back are not defined
-# if $T2H_SPLIT then Top page is in its own html file
-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 $buttons = \@MISC_BUTTONS;
- &$print_foot_navigation($fh);
- print $fh "$SMALL_RULE\n";
- if ($end_page)
- {
- &$print_navigation($fh, $buttons);
- &$print_page_foot($fh);
- }
-}
-sub T2H_DEFAULT_print_Top($$)
-{
- my $fh = shift;
- my $has_top_heading = shift;
-
- # for redefining navigation buttons use:
- # my $buttons = [...];
- # as it is, 'Top', 'Contents', 'Index', 'About' are printed
- my $buttons = \@MISC_BUTTONS;
- &$print_head_navigation($fh, $buttons) if ($SPLIT or $SECTION_NAVIGATION);
- my $nw;
- if (@$Texi2HTML::THIS_SECTION)
- {
- # if top-level node has content, then print it with extra header
- #print $fh "<h1>$Texi2HTML::NAME{Top}</h1>\n"
- print $fh "<h1 class=\"settitle\">$Texi2HTML::NAME{Top}</h1>\n"
- unless ($has_top_heading);
- $nw = main::print_lines($fh, $Texi2HTML::THIS_SECTION);
- }
- else
- {
- # top-level node is fully enclosed in @ifnothtml
- # print fulltitle, subtitle, author, Overview or table of contents
- print $fh $Texi2HTML::TITLEPAGE;
- if (@{$Texi2HTML::OVERVIEW} and !$Texi2HTML::THISDOC{'setshortcontentsaftertitlepage'})
- {
- print $fh '<h2> ' . $Texi2HTML::NAME{'Overview'} . "</h2>\n" . "<blockquote\n";
- my $nw = main::print_lines($fh, $Texi2HTML::OVERVIEW);
- print $fh "</blockquote>\n";
- }
- elsif (@{$Texi2HTML::TOC_LINES} and !$Texi2HTML::THISDOC{'setcontentsaftertitlepage'})
- {
- print $fh '<h1> ' . $Texi2HTML::NAME{'Contents'} . "</h1>\n";
- my $nw = main::print_lines($fh, $Texi2HTML::TOC_LINES);
- }
- }
-}
-
-###################################################################
-# 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 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
-{
- # if there is no section navigation and it is not split, the
- # navigation information is useless
- return &$print_misc(@_) if ($SPLIT or $SECTION_NAVIGATION);
-}
-
-sub T2H_DEFAULT_print_misc_header
-{
- my $fh = shift;
- my $buttons = shift;
- &$print_page_head($fh) if $SPLIT;
- &$print_head_navigation($fh, $buttons) if ($SPLIT or $SECTION_NAVIGATION);
-}
-
-sub T2H_DEFAULT_print_misc_footer
-{
- my $fh = shift;
- my $buttons = shift;
- my $nwords = shift;
- &$print_foot_navigation($fh, $buttons);
- print $fh "$SMALL_RULE\n";
- if ($SPLIT)
- {
- &$print_navigation($fh, $buttons);# if ($SPLIT ne 'node');
- &$print_page_foot($fh);
- }
-}
-
-sub T2H_DEFAULT_print_misc
-{
- my $fh = shift;
- my $buttons = \@MISC_BUTTONS;
- &$print_misc_header($fh, $buttons);
- print $fh "<h1>$Texi2HTML::NAME{This}</h1>\n";
- main::print_lines($fh);
- &$print_misc_footer($fh, $buttons);
-}
-##################################################################
-# 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 $buttons = \@SECTION_FOOTER_BUTTONS;
- &$end_section ($fh, 1);
- &$print_navigation($fh, $buttons);
-}
-
-###################################################################
-# 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 T2H_DEFAULT_print_chapter_header
-{
- # nothing to do there, by default, the navigation panel
- # is the section navigation panel
- if (! $SECTION_NAVIGATION)
- { # in this case print_navigation is called here.
- my $fh = shift;
- my $buttons = \@CHAPTER_BUTTONS;
- &$print_head_navigation($fh, $buttons); #do that instead ?
- #&$print_head_navigation($fh, $buttons); # FIXME VERTICAL_HEAD_NAVIGATION ?
- print $fh "\n$MIDDLE_RULE\n";
- }
-}
-
-sub T2H_DEFAULT_print_chapter_footer
-{
- my $fh = shift;
- my $buttons = \@CHAPTER_BUTTONS;
- &$print_foot_navigation($fh);
- print $fh "$BIG_RULE\n";
- &$print_navigation($fh, $buttons);
-}
-
-sub T2H_DEFAULT_print_section_header
-{
- # nothing to do there, by default
- if (! $SECTION_NAVIGATION)
- { # 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 T2H_DEFAULT_print_page_head($)
-{
- my $fh = shift;
- my $longtitle = "$Texi2HTML::THISDOC{'title_simple_format'}";
- $longtitle .= ": $Texi2HTML::SIMPLE_TEXT{'This'}" if (defined ($Texi2HTML::SIMPLE_TEXT{'This'}) and ($Texi2HTML::SIMPLE_TEXT{'This'} !~ /^\s*$/) and $SPLIT);
- my $description = $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=$ENCODING_NAME\">" if (defined($ENCODING_NAME) and ($ENCODING_NAME ne ''));
- print $fh <<EOT;
-$DOCTYPE
-<html>
-$Texi2HTML::THISDOC{'copying'}<!-- 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}">
-$encoding
-$CSS_LINES
-$EXTRA_HEAD
-</head>
-
-<body $BODYTEXT>
-$AFTER_BODY_OPEN
-EOT
-}
-
-sub program_string()
-{
- my $user = $Texi2HTML::THISDOC{'user'};
- my $date = $Texi2HTML::THISDOC{'today'};
- $user = '' if (!defined($user));
- $date = '' if (!defined($date));
- if (($user ne '') and ($date ne ''))
- {
- return &$I('This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.', {
- 'user' => $user, 'date' => $date, 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program' => $Texi2HTML::THISDOC{'program'} });
- }
- elsif ($user ne '')
- {
- return &$I('This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.', {
- 'user' => $user, 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program' => $Texi2HTML::THISDOC{'program'} });
- }
- elsif ($date ne '')
- {
- return &$I('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'} });
- }
- return &$I('This document was generated using @uref{%{program_homepage}, @emph{%{program}}}.', {
- 'program_homepage' => $Texi2HTML::THISDOC{'program_homepage'}, 'program'
-=> $Texi2HTML::THISDOC{'program'} });
-}
-
-sub T2H_DEFAULT_end_section($$)
-{
- my $fh = shift;
- my $end_foot_navigation = shift;
- &$print_foot_navigation($fh) if ($end_foot_navigation);
- print $fh "$BIG_RULE\n";
-}
-
-sub T2H_DEFAULT_print_page_foot($)
-{
- my $fh = shift;
- my $program_string = program_string();
- print $fh <<EOT;
-<p>
- <font size="-1">
- $program_string
- </font>
- <br>
-$PRE_BODY_CLOSE
-</p>
-</body>
-</html>
-EOT
-}
-
-###################################################################
-# Layout of navigation panel
-
-sub T2H_DEFAULT_print_head_navigation($$)
-{
- my $fh = shift;
- my $buttons = shift;
- if ($VERTICAL_HEAD_NAVIGATION)
- {
- print $fh <<EOT;
-<table border="0" cellpadding="0" cellspacing="0">
-<tr valign="top">
-<td align="left">
-EOT
- }
- main::print_lines($fh, $Texi2HTML::THIS_HEADER);
- &$print_navigation($fh, $buttons, $VERTICAL_HEAD_NAVIGATION);
- if ($VERTICAL_HEAD_NAVIGATION)
- {
- print $fh <<EOT;
-</td>
-<td align="left">
-EOT
- }
- elsif (defined $SPLIT
- and ($SPLIT eq 'node'))
- {
- print $fh "$SMALL_RULE\n";
- }
-}
-
-sub T2H_DEFAULT_print_foot_navigation
-{
- my $fh = shift;
- if ($VERTICAL_HEAD_NAVIGATION)
- {
- print $fh <<EOT;
-</td>
-</tr>
-</table>
-EOT
- }
-}
-
-######################################################################
-# navigation panel
-#
-# how to create IMG tag
-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 qq{<img src="$icon" border="0" alt="$alt" align="middle">};
-}
-
-sub T2H_DEFAULT_print_navigation
-{
- my $fh = shift;
- my $buttons = shift;
- my $vertical = shift;
- my $spacing = 1;
- print $fh '<table cellpadding="', $spacing, '" cellspacing="', $spacing,
- "\" border=\"0\">\n";
-
- print $fh "<tr>" unless $vertical;
- for my $button (@$buttons)
- {
- print $fh qq{<tr valign="top" align="left">\n} if $vertical;
- print $fh qq{<td valign="middle" align="left">};
-
- if (ref($button) eq 'CODE')
- {
- &$button($fh, $vertical);
- }
- elsif (ref($button) eq 'SCALAR')
- {
- print $fh "$$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})
- {
- print $fh "" .
- &$anchor('',
- $Texi2HTML::HREF{$button_href},
- $$text
- )
- ;
- }
- else
- {
- print $fh $$text;
- }
- }
- }
- elsif ($button eq ' ')
- { # handle space button
- print $fh
- ($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 ($ICONS && $ACTIVE_ICONS{$button})
- { # use icon
- print $fh '' .
- &$anchor('',
- $Texi2HTML::HREF{$button},
- &$button_icon_img($BUTTONS_NAME{$button},
- $ACTIVE_ICONS{$button},
- $Texi2HTML::SIMPLE_TEXT{$button}),
- $btitle
- );
- }
- else
- { # use text
- print $fh
- '[' .
- &$anchor('',
- $Texi2HTML::HREF{$button},
- $NAVIGATION_TEXT{$button},
- $btitle
- ) .
- ']';
- }
- }
- else
- { # button is passive
- print $fh
- $ICONS && $PASSIVE_ICONS{$button} ?
- &$button_icon_img($BUTTONS_NAME{$button},
- $PASSIVE_ICONS{$button},
- $Texi2HTML::SIMPLE_TEXT{$button}) :
-
- "[" . $NAVIGATION_TEXT{$button} . "]";
- }
- print $fh "</td>\n";
- print $fh "</tr>\n" if $vertical;
- }
- print $fh "</tr>" unless $vertical;
- print $fh "</table>\n";
-}
-
-######################################################################
-# Frames: this is from "Richard Y. Kim" <ryk@coho.net>
-# Should be improved to be more conforming to other _print* functions
-# FIXME pass toc_file and main_file as args or in $Texi2HTML::THISDOC ?
-
-sub T2H_DEFAULT_print_frame
-{
- my $fh = shift;
- my $toc_file = shift;
- my $main_file = shift;
- print $fh <<EOT;
-$FRAMESET_DOCTYPE
-<html>
-<head><title>$Texi2HTML::THISDOC{title}</title></head>
-<frameset cols="140,*">
- <frame name="toc" src="$toc_file">
- <frame name="main" src="$main_file">
-</frameset>
-</html>
-EOT
-}
-
-sub T2H_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";
-}
-
-# 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
-# 'index_page': true if the element is an index page added because of index
-# splitting
-# '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:
-# $NUMBER_SECTIONS
-# $TOC_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
-# $DO_CONTENTS
-# $DO_SCONTENTS
-
-sub T2H_DEFAULT_toc_body($)
-{
-}
-
-sub T2H_DEFAULT_inline_contents($$$)
-{
- my $fh = shift;
- my $command = shift;
- my $element = shift;
- my $name;
- my $lines;
-
- my $result = undef;
-
- if ($command eq 'contents')
- {
- $name = $Texi2HTML::NAME{'Contents'};
- $lines = $Texi2HTML::TOC_LINES;
- }
- else
- {
- $name = $Texi2HTML::NAME{'Overview'};
- $lines = $Texi2HTML::OVERVIEW;
- }
- if (@{$lines})
- {
- $result = [ "".&$anchor($element->{'id'})."\n",
- "<h1>$name</h1>\n" ];
- push @$result, @$lines;
- }
-
- 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))));
- $CSS_LINES = "<style type=\"text/css\">\n<!--\n";
- $CSS_LINES .= join('',@$import_lines) . "\n" if (@$import_lines);
- foreach my $css_rule (sort(keys(%css_map)))
- {
- next unless ($css_map{$css_rule});
- $CSS_LINES .= "$css_rule {$css_map{$css_rule}}\n";
- }
- $CSS_LINES .= join('',@$rule_lines) . "\n" if (@$rule_lines);
- $CSS_LINES .= "-->\n</style>\n";
-}
-
-######################################################################
-# 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',
- );
-
-sub T2H_DEFAULT_about_body
-{
- my $about = "<p>\n";
- if (ref($PRE_ABOUT) eq 'CODE')
- {
- $about .= &$PRE_ABOUT();
- }
- else
- {
- $about .= $PRE_ABOUT;
- }
- $about .= <<EOT;
-</p>
-<p>
-EOT
- $about .= &$I(' The buttons in the navigation panels have the following meaning:') . "\n";
- $about .= <<EOT;
-</p>
-<table border="1">
- <tr>
-EOT
- $about .= ' <th> ' . &$I('Button') . " </th>\n" .
-' <th> ' . &$I('Name') . " </th>\n" .
-' <th> ' . &$I('Go to') . " </th>\n" .
-' <th> ' . &$I('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 .= &$I(' 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. ' . &$I('Section One') . "\n" .
-" <ul>\n" .
-' <li>1.1 ' . &$I('Subsection One-One') . "\n";
- $about .= <<EOT;
- <ul>
- <li>...</li>
- </ul>
- </li>
-EOT
- $about .= ' <li>1.2 ' . &$I('Subsection One-Two') . "\n" .
-" <ul>\n" .
-' <li>1.2.1 ' . &$I('Subsubsection One-Two-One') . "</li>\n" .
-' <li>1.2.2 ' . &$I('Subsubsection One-Two-Two') . "</li>\n" .
-' <li>1.2.3 ' . &$I('Subsubsection One-Two-Three') . " \n"
-.
-' <strong><== ' . &$I('Current Position') . " </strong></li>\n" .
-' <li>1.2.4 ' . &$I('Subsubsection One-Two-Four') . "</li>\n" .
-" </ul>\n" .
-" </li>\n" .
-' <li>1.3 ' . &$I('Subsection One-Three') . "\n";
- $about .= <<EOT;
- <ul>
- <li>...</li>
- </ul>
- </li>
-EOT
- $about .= ' <li>1.4 ' . &$I('Subsection One-Four') . "</li>\n";
- $about .= <<EOT;
- </ul>
- </li>
-</ul>
-$AFTER_ABOUT
-EOT
- return $about;
-}
-
-sub T2H_DEFAULT_titlepage()
-{
- my $result = '';
- if (@{$Texi2HTML::THISDOC{'titles'}}
- or @{$Texi2HTML::THISDOC{'subtitles'}}
- or @{$Texi2HTML::THISDOC{'authors'}})
- {
- $result = "<div align=\"center\">\n";
- foreach my $title (@{$Texi2HTML::THISDOC{'titles'}})
- {
- $result .= '<h1>' . $title . "</h1>\n";
- }
- foreach my $subtitle (@{$Texi2HTML::THISDOC{'subtitles'}})
- {
- $result .= '<h2>' . $subtitle . "</h2>\n";
- }
- foreach my $author (@{$Texi2HTML::THISDOC{'authors'}})
- {
- $result .= '<strong> ' . $author . " </strong><br>\n";
- }
- $result .= "</div>\n$DEFAULT_RULE\n";
- }
-
- $Texi2HTML::TITLEPAGE = $result . $Texi2HTML::TITLEPAGE;
-
- if ($Texi2HTML::THISDOC{'setcontentsaftertitlepage'} 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 @{$Texi2HTML::THISDOC{'inline_contents'}->{'shortcontents'}})
- {
- foreach my $line(@{$Texi2HTML::THISDOC{'inline_contents'}->{'shortcontents'}})
- {
- $Texi2HTML::TITLEPAGE .= $line;
- }
- $Texi2HTML::TITLEPAGE .= "$DEFAULT_RULE\n";
- }
-}
-
-# FIXME Honor DOCUMENT_DESCRIPTION?
-sub T2H_DEFAULT_print_redirection_page($)
-{
- my $fh = shift;
- my $longtitle = "$Texi2HTML::THISDOC{'title_simple_format'}";
- $longtitle .= ": $Texi2HTML::SIMPLE_TEXT{'This'}" if exists $Texi2HTML::SIMPLE_TEXT{'This'};
- my $description = $longtitle;
- my $encoding = '';
- $encoding = "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$ENCODING_NAME\">" if (defined($ENCODING_NAME) and ($ENCODING_NAME ne ''));
- my $href = &$anchor('', $Texi2HTML::HREF{'This'}, $Texi2HTML::NAME{'This'});
- my $string = &$I('The node you are looking for is at %{href}.',
- { 'href' => $href });
- print $fh <<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_LINES
-<meta http-equiv="Refresh" content="2; url=$Texi2HTML::HREF{'This'}">
-$EXTRA_HEAD
-</head>
-
-<body $BODYTEXT>
-$AFTER_BODY_OPEN
-<p>$string</p>
-</body>
-EOT
-}
-
-sub T2H_DEFAULT_node_file_name($$)
-{
- my $node = shift;
- my $type = shift;
- return undef if ($node->{'external_node'} or $node->{'index_page'}
- 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_NODE)
- {
- $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).
-
-
-#
-# 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',
- '=', '',
- );
-
-#
-# texinfo "simple things" (@foo) to HTML ones
-#
-%simple_map = (
- "*", "<br>", # HTML+
- ' ', ' ',
- "\t", ' ',
- "\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)
- '-', '', # hyphenation hint
- '|', '', # used in formatting commands @evenfooting and friends
- '/', '',
- # spacing commands
- ':', '',
- '!', '!',
- '?', '?',
- '.', '.',
- '@', '@',
- '}', '}',
- '{', '{',
- );
-
-# this map is used in preformatted text
-%simple_map_pre = %simple_map;
-$simple_map_pre{'*'} = "\n";
-
-#
-# texinfo "things" (@foo{}) to HTML ones
-#
-%things_map = (
- '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' => '<small class="dots">...</small>',
- 'enddots' => '<small class="enddots">....</small>',
- 'equiv' => '==',
-# FIXME i18n
- 'error' => 'error-->',
- 'expansion' => '==>',
- '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' => 'ß',
- 'l' => 'ł',
- 'L' => 'Ł',
- 'exclamdown' => '¡',
- 'questiondown' => '¿',
- 'pounds' => '£',
- 'ordf' => 'ª',
- 'ordm' => 'º',
- 'comma' => ',',
- 'euro' => '€',
- 'tie' => ' ',
- );
-
-# This map is used in preformatted environments
-%pre_map = %things_map;
-$pre_map{'dots'} = '...';
-$pre_map{'enddots'} = '....';
-#$pre_map{'br'} = "\n";
-
-# ascii representation of @-commands
-%ascii_simple_map = (
- "*", "\n", # HTML+
- ' ', ' ',
- "\t", "\t",
- "\n", "\n",
- '-', '', # hyphenation hint
- '|', '', # used in formatting commands @evenfooting and friends
- '/', '',
- ':', '',
- '!', '!',
- '?', '?',
- '.', '.',
- '@', '@',
- '}', '}',
- '{', '{',
-);
-
-%ascii_things_map = (
- 'TeX' => 'TeX',
- 'LaTeX' => 'LaTeX',
- 'bullet' => '*',
- 'copyright' => '(C)',
- 'registeredsymbol' => '(R)',
- 'dots' => '...',
- 'enddots' => '....',
- 'equiv' => '==',
-# FIXME i18n
- 'error' => 'error-->',
- 'expansion' => '==>',
- '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',
- 'exclamdown' => '?',
- 'questiondown' => '!',
- 'pounds' => '#',
- 'ordf' => 'a',
- 'ordm' => 'o',
- 'comma' => ',',
- 'euro' => 'Euro',
- 'tie' => ' ',
-);
-
-#
-# This map is used when texi elements are removed and replaced
-# by simple text
-#
-%simple_map_texi = (
- "*", "",
- " ", " ",
- "\t", " ",
- "-", "-", # soft hyphen
- "\n", "\n",
- "|", "",
- # spacing commands
- ":", "",
- "!", "!",
- "?", "?",
- ".", ".",
- "-", "",
- '@', '@',
- '}', '}',
- '{', '{',
- );
-
-# text replacing macros when texi commands are removed and plain text is
-# produced
-%texi_map = (
- 'TeX', 'TeX',
- 'LaTeX', 'LaTeX',
- 'bullet', '*',
- 'copyright', 'C',
- 'registeredsymbol', 'R',
- 'dots', '...',
- 'enddots', '....',
- 'equiv', '==',
- 'error', 'error-->',
- 'expansion', '==>',
- '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',
- 'exclamdown', '! upside-down',
- #'exclamdown', '¡',
- 'questiondown', '? upside-down',
- #'questiondown', '¿',
- 'pounds', 'pound sterling',
- #'pounds', '£'
- 'ordf' => 'a',
- 'ordm' => 'o',
- 'comma' => ',',
- 'euro' => 'Euro',
- 'tie' => ' ',
- );
-
-# 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',
- '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',
- 'l' => '0142',
- 'L' => '0141',
- 'exclamdown' => '00A1',
- 'questiondown' => '00BF',
- 'pounds' => '00A3',
- 'ordf' => '00AA',
- 'ordm' => '00BA',
- 'comma' => '002C',
- 'euro' => '20AC',
- 'tie' => '',
-# 'tie' => '0020',
- );
-
-%transliterate_map = (
- '00C5' => 'AA',
- '00E5' => 'aa',
- '00D8' => 'OE',
- '00F8' => 'oe',
- '00E6' => 'ae',
- '0153' => 'oe',
- '00C6' => 'AE',
- '0152' => 'OE',
- '00DF' => 'ss',
- '0141' => 'L',
- '0142' => 'l',
- '00D0' => 'DH',
- '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 ?
- );
-
-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',
-);
-
-# symbols used for the commands if $USE_ISO is true.
-%iso_symbols = (
- 'equiv' => '≡',
- 'dots' => '…',
- 'bullet' => '•',
- 'result' => '⇒',
- 'expansion' => '→',
- 'point' => '∗',
- "'" => '’',
- '`' => '‘',
- );
-
-# 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',
- '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', '',
- );
-
-# default is {'args' => ['normal'], 'attribute' => ''},
-%style_map = (
- 'asis', {},
- 'b', {'attribute' => 'b'},
- 'cite', {'attribute' => 'cite'},
- 'code', {'args' => ['code'], 'attribute' => 'code'},
- 'command', {'args' => ['code'], 'attribute' => 'code'},
- 'ctrl', {'function' => \&t2h_default_ctrl,'type' => 'simple_type'},
- 'dfn', {'attribute' => 'em'},
- 'dmn', {},
- 'email', {'args' => ['code', 'normal'],
- 'function' => \&t2h_default_email,
- 'type' => 'simple_type'},
- #'email', {'args' => ['normal', 'normal'],
- # 'function' => \&t2h_default_email},
- 'emph', {'attribute' => 'em'},
- 'env', {'args' => ['code'], 'attribute' => 'code'},
- 'file', {'args' => ['code'], 'attribute' => 'tt', 'quote' => '"'},
- 'i', {'attribute' => 'i'},
- 'slanted', {'attribute' => 'i'},
- 'sansserif', {'attribute' => 'span class="sansserif"'},
- 'kbd', {'args' => ['code'], 'attribute' => 'kbd'},
- 'key', {'begin' => '<', 'end' => '>'},
- 'math', {'attribute' => 'em'},
- 'option', {'args' => ['code'], 'attribute' => 'samp', 'quote' => '"'},
- 'r', {'attribute' => 'span class="roman"'},
- 'samp', {'args' => ['code'], 'attribute' => 'samp', 'quote' => '"'},
-# 'sc', {'function' => \&t2h_default_sc},
- 'sc', {'attribute' => 'small'},
- 'strong', {'attribute' => 'strong'},
- 't', {'attribute' => 'tt'},
- 'uref', {'function' => \&t2h_default_uref,
- 'args' => ['code', 'normal', 'normal'],
- 'type' => 'simple_type' },
- #'uref', {'function' => \&t2h_default_uref,
- # 'args' => ['normal', 'normal', 'normal']},
- 'url', {'function' => \&t2h_default_uref,
- 'args' => ['code', 'normal', 'normal'],
- 'type' => 'simple_type'},
- 'indicateurl', {'args' => ['code'], 'begin' => '<<code>', 'end' => '</code>>','type' => 'simple_type'},
- 'var', {'attribute' => 'var'},
- 'verb', {'args' => ['code'], 'attribute' => 'tt'},
- 'titlefont', {'function' => \&t2h_default_titlefont,
- 'type' => 'simple_type'},
- 'w', {'type' => 'simple_type'},
- );
-
-%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';
- }
-}
-
-%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'
-);
-
-%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',
- },
-);
-
-%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}}));
- }
-}
-
-%special_accents = (
- 'ringaccent' => 'aA',
- "'" => 'aeiouyAEIOUY',
- ',' => 'cC',
- '^' => 'aeiouAEIOU',
- '`' => 'aeiouAEIOU',
- '~' => 'nNaoAO',
- '"' => 'aeiouyAEIOU',
-);
-
-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_ascii_accent };
-}
-
-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 "&${text}cedil;" if (($accent eq ',') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/));
- return ascii_accents($text, $accent);
-}
-
-sub t2h_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');
- return "&${text}cedil;" if (($accent eq ',') and (defined($special_accents{$accent})) and ($text =~ /^[$special_accents{$accent}]$/));
-# 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);
-}
-
-sub ascii_accents($$)
-{
- my $text = shift;
- my $accent = shift;
- return $text if ($accent eq 'dotless');
- return $text . $accent if (defined($accent_map{$accent}));
- 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 ',');
-}
-
-sub default_sc($$)
-{
- return '<small>' . uc($_[0]) . '</small>';
-}
-
-# now unused, upcasing is done in normal_text
-sub t2h_default_sc($$$)
-{
- shift;
- my $args = shift;
- return '<small>' . uc($args->[0]) . '</small>';
-}
-
-sub default_ctrl($$)
-{
- return "^$_[0]";
-}
-
-sub t2h_default_ctrl($$$)
-{
- shift;
- my $args = shift;
- return "^$args->[0]";
-}
-
-sub default_sc_pre($$)
-{
- return uc($_[0]);
-}
-
-# now unused, upcasing is done in normal_text
-sub t2h_default_sc_pre($$$)
-{
- shift;
- my $args = shift;
- return uc($args->[0]);
-}
-
-sub default_titlefont($$)
-{
- return "<h1 class=\"titlefont\">$_[0]</h1>" if ($_[0] =~ /\S/);
- return '';
-}
-
-# Avoid adding h1 if the text is empty
-sub t2h_default_titlefont($$$)
-{
- shift;
- my $args = shift;
- return "<h1 class=\"titlefont\">$args->[0]</h1>" if ($args->[0] =~ /\S/);
- return '';
-}
-
-# 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 =~ s/\s*$//;
- #$url =~ s/^\s*//;
- $url = main::normalise_space($url);
- return '' unless ($url =~ /\S/);
- return &$anchor('', $url, $url);
-}
-
-sub default_url ($$)
-{
- my $url = shift;
- my $command = shift;
- $url =~ s/\s*$//;
- $url =~ s/^\s*//;
- return '' unless ($url =~ /\S/);
- return &$anchor('', $url, $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));
- $text = $url unless ($text);
- return $text if ($url eq '');
- return &$anchor('', $url, $text);
-}
-
-sub t2h_default_uref($$)
-{
- shift;
- my $args = shift;
- my $url = shift @$args;
- my $text = shift @$args;
- my $replacement = shift @$args;
- #$url =~ s/\s*$//;
- #$url =~ s/^\s*//;
- $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 default_email($$)
-{
- my $arg = shift;
- my $command = shift;
- my ($mail, $text);
- ($mail, $text) = split /,\s*/, $arg;
- $mail =~ s/\s*$//;
- $mail =~ s/^\s*//;
- $text = $mail unless ($text);
- return $text if ($mail eq '');
- return &$anchor('', "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);
- #$mail =~ s/\s*$//;
- #$mail =~ s/^\s*//;
- $text = $mail unless (defined($text) and ($text ne ''));
- $text = main::normalise_space($text);
- return $text if ($mail eq '');
- return &$anchor('', "mailto:$mail", $text);
-}
-
-sub t2h_default_ascii_accent($$$$)
-{
- my $accent = shift;
- my $args = shift;
-
- my $text = $args->[0];
- return ascii_accents($text, $accent);
-}
-
-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);
- #$mail =~ s/\s*$//;
- #$mail =~ s/^\s*//;
- return $text if (defined($text) and ($text ne ''));
- return $mail;
-}
-
-sub t2h_default_no_texi_image($$$$)
-{
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- $text = main::normalise_space($text);
- my @args = split (/\s*,\s*/, $text);
- return $args[0];
-}
-
-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_pre{$command} = {};
- $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";
-
- foreach my $key (keys(%{$style_map{$command}}))
- {
- $style_map_pre{$command}->{$key} = $style_map{$command}->{$key};
- }
-}
-
-#$style_map_pre{'sc'}->{'function'} = \&t2h_default_sc_pre;
-$style_map_pre{'sc'} = {};
-$style_map_pre{'titlefont'} = {};
-
-#$style_map_texi{'sc'}->{'function'} = \&t2h_default_sc_pre;
-$style_map_texi{'sc'} = {};
-$style_map_texi{'email'}->{'function'} = \&t2h_default_no_texi_email;
-
-####### special styles. You shouldn't need to change them
-my %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'], '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'],
- '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 = ();
-
-foreach my $command (keys(%style_map_texi))
-{
- #$simple_format_style_map_texi{$command} = {};
- foreach my $key (keys (%{$style_map_texi{$command}}))
- {
- #print STDERR "$command, $key, $style_map_texi{$command}->{$key}\n";
- $simple_format_style_map_texi{$command}->{$key} =
- $style_map_texi{$command}->{$key};
- }
- $simple_format_style_map_texi{$command} = {} if (!defined($simple_format_style_map_texi{$command}));
-}
-
-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;
-}
-
-%format_map = (
-# 'quotation' => 'blockquote',
- # lists
-# 'itemize' => 'ul',
- 'enumerate' => 'ol',
- 'multitable' => 'table',
- 'table' => 'dl compact="compact"',
- 'vtable' => 'dl compact="compact"',
- 'ftable' => 'dl compact="compact"',
- 'group' => '',
- );
-
-%special_list_commands = (
- 'table' => {},
- 'vtable' => {},
- 'ftable' => {},
- 'itemize' => { 'bullet' => '' }
- );
-#
-# texinfo format to align attribute of paragraphs
-#
-
-%paragraph_style = (
- 'center' => 'center',
- 'flushleft' => 'left',
- 'flushright' => 'right',
- );
-
-# an eval of these $complex_format_map->{what}->{'begin'} yields beginning
-# an eval of these $complex_format_map->{what}->{'end'} yields end
-# $EXAMPLE_INDENT_CELL and SMALL_EXAMPLE_INDENT_CELL can be usefull here
-$complex_format_map =
-{
- 'example' =>
- {
- 'begin' => q{"<table><tr>$EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{"</td></tr></table>\n"},
- },
- 'smallexample' =>
- {
- 'begin' => q{"<table><tr>$SMALL_EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{"</td></tr></table>\n"},
- },
- 'display' =>
- {
- 'begin' => q{"<table><tr>$EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{"</td></tr></table>\n"},
- },
- 'smalldisplay' =>
- {
- 'begin' => q{"<table><tr>$SMALL_EXAMPLE_INDENT_CELL<td>"},
- 'end' => q{"</td></tr></table>\n"},
- }
-};
-
-# format shouldn't narrow the margins
-
-$complex_format_map->{'lisp'} = $complex_format_map->{'example'};
-$complex_format_map->{'smalllisp'} = $complex_format_map->{'smallexample'};
-$complex_format_map->{'format'} = $complex_format_map->{'display'};
-$complex_format_map->{'smallformat'} = $complex_format_map->{'smalldisplay'};
-
-%def_map = (
- # basic commands
- 'deffn', [ 'f', 'category', 'name', 'arg' ],
- 'defvr', [ 'v', 'category', 'name' ],
- 'deftypefn', [ 'f', 'category', 'type', 'name', 'arg' ],
- 'deftypeop', [ 'f', 'category', 'class' , 'type', 'name', 'arg' ],
- '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', 'arg' ],
- # 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',
- );
-
-# 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
-# 'texi' if true it is some texinfo code and @value and @macros are expanded
-# 'keep' if true the args and the macro are kept, otherwise the macro
-# args and skipped stuffs are removed
-%misc_command = (
- # 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' => 'space'}, # no arg
- 'bye' => {'skip' => 'line'}, # no arg
- # comments
- 'comment' => {'arg' => 'line'},
- 'c' => {'arg' => 'line'},
- # in preamble
- 'novalidate' => {}, # no arg
- 'dircategory'=> {'skip' => 'line'}, # line. Position with regard
- # with direntry is significant
- 'pagesizes' => {'skip' => 'line', 'arg' => 2}, # can have 2 args
- # or one? 200mm,150mm 11.5in
- 'finalout' => {}, # 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}, # on off
- '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
- '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'},
- '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},
- 'syncodeindex' => {'skip' => 'linespace', 'arg' => 2},
- # args are index identifiers
- 'synindex' => {'skip' => 'linespace', 'arg' => 2},
- 'defindex' => {'skip' => 'line', 'arg' => 1}, # one identifier arg
- 'defcodeindex' => {'skip' => 'line', 'arg' => 1}, # one identifier arg
- 'documentlanguage' => {'skip' => 'whitespace', 'arg' => 1},
- # language code arg
- 'kbdinputstyle' => {'skip' => 'whitespace', 'arg' => 1}, # code
- #example distinct
- 'sp' => {'skip' => 'whitespace', '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}, # makeinfo ignore the whole line
- # ???
- 'filbreak' => {},
- # obsolete @-commands
- 'quote-arg' => {},
- 'allow-recursion' => {},
- );
-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', 'space', # 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,
- );
-
-%format_in_paragraph = (
- 'group' => 1,
- 'html' => 1,
-);
-# map mapping css specification to style
-
-%css_map =
- (
- 'ul.toc' => "$TOC_LIST_STYLE",
- 'pre.menu-comment' => "$MENU_PRE_STYLE",
- 'pre.menu-preformatted' => "$MENU_PRE_STYLE",
- 'a.summary-letter' => 'text-decoration: none',
- '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;'
- );
-
-$css_map{'pre.format'} = $css_map{'pre.display'};
-$css_map{'pre.smallformat'} = $css_map{'pre.smalldisplay'};
-$css_map{'pre.smalllisp'} = $css_map{'pre.smallexample'};
-
-# 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_init = ();
-@command_handler_process = ();
-@command_handler_finish = ();
-
-# 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 = \&t2h_default_menu;
-$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;
-$external_ref = \&t2h_default_external_ref;
-$external_href = \&t2h_default_external_href;
-$internal_ref = \&t2h_default_internal_ref;
-$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;
-$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;
-$address = \&t2h_default_address;
-$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_letter = \&t2h_default_index_letter;
-$print_index = \&t2h_default_print_index;
-$protect_text = \&t2h_default_protect_text;
-$normal_text = \&t2h_default_normal_text;
-$complex_format = \&t2h_default_complex_format;
-$cartouche = \&t2h_default_cartouche;
-$sp = \&t2h_default_sp;
-$definition_category = \&t2h_default_definition_category;
-$copying_comment = \&t2h_default_copying_comment;
-$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;
-$unknown = \&t2h_default_unknown;
-$unknown_style = \&t2h_default_unknown_style;
-$caption_shortcaption = \&t2h_caption_shortcaption;
-$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;
-$quotation_prepend_text = \&t2h_default_quotation_prepend_text;
-$paragraph_style_command = \&t2h_default_paragraph_style_command;
-$heading_texi = \&t2h_default_heading_texi;
-$index_element_heading_texi = \&t2h_default_index_element_heading_texi;
-
-# 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 '');
- my $beginning = eval "$complex_format_map->{$name}->{'begin'}";
- if ($@ ne '')
- {
- print STDERR "$ERROR Evaluation of $complex_format_map->{$name}->{'begin'}: $@";
- $beginning = '';
-
- }
- my $end = eval "$complex_format_map->{$name}->{'end'}";
- if ($@ ne '')
- {
- print STDERR "$ERROR Evaluation of $complex_format_map->{$name}->{'end'}: $@";
- $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 $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 ($result, $result_text, $message);
- return (0, undef, undef);
-}
-
-sub t2h_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 = &$I('%{style} %{number}', { 'style' => $style, 'number' => $nr});
- }
- else
- {
- $style = $nr;
- }
- }
-
- if (defined($float->{'caption_texi'}))
- {
- @$caption_lines = @{$float->{'caption_texi'}};
- if (defined($style))
- {
- $caption_lines->[0] = '@strong{' . &$I('%{style}: %{caption_first_line}', { 'style' => $style, 'caption_first_line' => $caption_lines->[0] });
- }
- else
- {
- $caption_lines->[0] = '@strong{' . $caption_lines->[0];
- }
- push @$caption_lines, "}\n";
- }
- elsif (defined($style))
- {
- $caption_lines->[0] = '@strong{' . $style . '}' . "\n";
- }
- if (defined($float->{'shortcaption_texi'}))
- {
- @$shortcaption_lines = @{$float->{'shortcaption_texi'}};
- if (defined($style))
- {
- $shortcaption_lines->[0] = '@strong{' . &$I('%{style}: %{shortcaption_first_line}', { 'style' => $style, 'shortcaption_first_line' => $shortcaption_lines->[0] });
- }
- else
- {
- $shortcaption_lines->[0] = '@strong{' . $shortcaption_lines->[0];
- }
- push @$shortcaption_lines, "}\n";
- }
- elsif (defined($style))
- {
- $shortcaption_lines->[0] = '@strong{' . $style . '}' . "\n";
- }
- return ($caption_lines, $shortcaption_lines);
-}
-
-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 '<div class="float">' . "$label\n" . $text . '</div>' . $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'};
- if (defined($float->{'nr'}))
- {
- my $nr = $float->{'nr'};
- if ($style ne '')
- {
- $style = &$I('%{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'}} ];
- }
- elsif (defined($float->{'caption_texi'}))
- {
- return [ @{$float->{'caption_texi'}} ];
- }
- return [ ];
-}
-
-sub t2h_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 t2h_default_listoffloats($$$)
-{
- my $style_texi = shift;
- my $style = shift;
- my $float_entries = shift;
-
- my $result = "<dl class=\"listoffloats\">\n" ;
- foreach my $float_entry (@$float_entries)
- {
- $result .= $float_entry;
- }
- return $result . "</dl>\n";
-}
-
-# This function is used to protect characters which are special in html
-# in inline text: &, ", <, and >.
-#
-# argument:
-# text to be protected
-sub t2h_default_protect_text($)
-{
- my $text = shift;
- $text =~ s/&/&/g;
- $text =~ s/</</g;
- $text =~ s/>/>/g;
- $text =~ s/\"/"/g;
- return $text;
-}
-
-
-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 $text = shift;
- my $in_raw_text = shift;
- my $in_preformatted = shift;
- my $in_code = shift;
- my $style_stack = shift;
- $text = uc($text) if (in_small_caps($style_stack));
- $text = &$protect_text($text) unless($in_raw_text);
- 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 ?
- {
- $text =~ s/``/"/g;
- $text =~ s/''/"/g;
- }
- else
- {
- $text =~ s/``/"/g;
- $text =~ s/''/"/g;
- }
- # temporary reuse '' to store --- !....
- # FIXME won't '---' be handled wrongly?
- # FIXME really do that in raw text?
- $text =~ s/---/''/g;
- $text =~ s/--/-/g;
- $text =~ s/''/--/g;
- }
- }
- 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 t2h_default_anchor($;$$$)
-{
- my $name = shift;
- my $href = shift;
- my $text = shift;
- my $attributes = shift;
-#print STDERR "!$name!$href!$text!$attributes!\n";
- if (!defined($attributes) or ($attributes !~ /\S/))
- {
- $attributes = '';
- }
- else
- {
- $attributes = ' ' . $attributes;
- }
- $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 "<a ${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 t2h_default_def_item($)
-{
- my $text = shift;
- if ($text =~ /\S/)
- {
- if (! $DEF_TABLE)
- {
- return '<dd>' . $text . '</dd>';
- }
- else
- {
- return '<tr><td colspan="2">' . $text . '</td></tr>';
- }
- }
- return '';
-}
-
-sub t2h_default_definition_category($$$)
-{
- my $name = shift;
- my $class = shift;
- my $style = shift;
- return ($name) if (!defined($class) or $class =~ /^\s*$/);
- if ($style eq 'f')
- {
- return &$I('%{name} on %{class}', { 'name' => $name, 'class' => $class });
- }
- elsif ($style eq 'v')
- {
- return &$I('%{name} of %{class}', { 'name' => $name, 'class' => $class });
- }
- else
- {
- return $name;
- }
-}
-
-# 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;
- 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 t2h_default_menu($)
-{
- my $text = shift;
- if ($text =~ /\S/)
- {
- return "<table class=\"menu\" border=\"0\" cellspacing=\"0\">\n"
- . $text . "</table>\n";
- }
-}
-
-# a simple menu entry ref in case we aren't in a standard menu context
-sub t2h_default_simple_menu_link($$$$$$)
-{
- my $entry = shift;
- my $preformatted = shift;
- my $href = shift;
- my $node = shift;
- my $name = shift;
- my $ending = shift;
- $ending = '' if (!defined($ending));
- if (($entry eq '') or $NODE_NAME_IN_MENU or $preformatted)
- {
- $name .= ':' if ($name ne '');
- $entry = "$MENU_SYMBOL$name$node";
- }
- $entry = &$anchor('', $href, $entry) if ($href);
- $entry .= $ending if ($preformatted);
- $entry .= ' ' unless $preformatted;
- return $entry;
-}
-
-# 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 $name = shift;
- my $ending = shift;
-#print STDERR "MENU_LINK\n";
- if (($entry eq '') or $NODE_NAME_IN_MENU or $state->{'preformatted'})
- {
- $name .= ':' if ($name ne '');
- $entry = "$MENU_SYMBOL$name$node";
- }
- $entry = &$anchor ('', $href, $entry) if (defined($href));
- return $entry if ($SIMPLE_MENU);
- if ($state->{'preformatted'})
- {
- return '<tr><td>' . main::do_preformatted($entry . $ending, $state);
- }
- return "<tr><td align=\"left\" valign=\"top\">$entry</td><td> </td>";
-}
-
-sub 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, 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.
-sub t2h_default_menu_description($$$)
-{
- my $text = shift;
- my $state = shift;
- my $element_text = shift;
- return $text if ($SIMPLE_MENU);
-#print STDERR "MENU_DESCRIPTION element_text!$element_text, text!$text\n";
- if ($state->{'preformatted'})
- {
- return main::do_preformatted($text, $state) . '</td></tr>';
- }
- elsif ($AVOID_MENU_REDUNDANCY)
- {
- $text = '' if (simplify_text($element_text) eq simplify_text($text));
- }
- return "<td align=\"left\" valign=\"top\">$text</td></tr>\n";
-}
-
-# a menu comment (between menu lines)
-# formats the container of a menu comment. A menu comment is any text
-# appearing between menu lines, either separated by an empty line from
-# the preceding menu entry, or a text beginning at the first character
-# of the line (text not at the very beginning of the line is considered to
-# be the continuation of a menu entry description text).
-#
-# The text itself is considered to be in a preformatted environment
-# with name 'menu-commment' and with style $MENU_PRE_STYLE.
-#
-# argument
-# text contained in the menu comment.
-sub t2h_default_menu_comment($)
-{
- my $text = shift;
- return $text if ($SIMPLE_MENU);
- if ($text =~ /\S/)
- {
- return "<tr><th colspan=\"3\" align=\"left\" valign=\"top\">$text</th></tr>";
- }
- return '';
-}
-
-# 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'
-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 = $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;
- if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file}))
- {
- if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file}->{'split'}))
- {
- $target_split = 1;
- $href_split = $Texi2HTML::THISDOC{'htmlxref'}->{$file}->{'split'}->{'href'};
- }
- if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$file}->{'mono'}))
- {
- $target_mono = 1;
- $href_mono = $Texi2HTML::THISDOC{'htmlxref'}->{$file}->{'mono'}->{'href'};
- }
- }
-
- if ((not $target_mono) and (not $target_split))
- { # nothing specified for that manual, use default
- $target_split = $default_target_split;
- }
- elsif ($target_split and $target_mono)
- { # depends on the splitting of the manual
- $target_split = $SPLIT;
- }
- elsif ($target_mono)
- { # only mono specified
- $target_split = 0;
- }
-
- if ($target_split)
- {
- if (defined($href_split))
- {
- $file = "$href_split";
- }
- elsif (defined($EXTERNAL_DIR))
- {
- $file = "$EXTERNAL_DIR/$file";
- }
- elsif ($SPLIT)
- {
- $file = "../$file";
- }
- $file .= "/";
- }
- else
- {# target not split
- if (defined($href_mono))
- {
- $file = "$href_mono";
- }
- else
- {
- if (defined($EXTERNAL_DIR))
- {
- $file = "$EXTERNAL_DIR/$file";
- }
- elsif ($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)
- {
- return $file . $TOP_NODE_FILE . '.' . $NODE_FILE_EXTENSION . '#Top';
- # or ?
- #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 if ($node =~ /^top$/i);
- 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.
-# node and file name formatted according to the convention used in info
-# '(file)node' and no node means the Top node.
-# href linking to the html page containing the referenced node. A typical
-# use for this href is a href attribute in an <a> element
-# an optionnal cross reference name
-sub t2h_default_external_ref($$$$$$)
-{
- my $type = shift;
- my $section = shift;
- my $book = shift;
- my $file_node = shift;
- my $href = shift;
- my $cross_ref = shift;
-
- $file_node = "$cross_ref: $file_node" if (($file_node ne '') and ($cross_ref ne ''));
- $file_node = &$anchor('', $href, $file_node) if ($file_node ne '');
-
- # Yes, this is ugly, but this helps internationalization
- if ($type eq 'pxref')
- {
- if (($book ne '') and ($file_node ne ''))
- {
- return &$I('see %{node_file_href} section `%{section}\' in @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('see %{node_file_href} @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book });
- }
- elsif ($book ne '')
- {
- return &$I('see section `%{section}\' in @cite{%{book}}', { 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('see @cite{%{book}}', { 'book' => $book });
- }
- elsif ($file_node ne '')
- {
- return &$I('see %{node_file_href}', { 'node_file_href' => $file_node });
- }
- }
- if ($type eq 'xref')
- {
- if (($book ne '') and ($file_node ne ''))
- {
- return &$I('See %{node_file_href} section `%{section}\' in @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('See %{node_file_href} @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book });
- }
- elsif ($book ne '')
- {
- return &$I('See section `%{section}\' in @cite{%{book}}', { 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('See @cite{%{book}}', { 'book' => $book });
- }
- elsif ($file_node ne '')
- {
- return &$I('See %{node_file_href}', { 'node_file_href' => $file_node });
- }
- }
- if ($type eq 'ref')
- {
- if (($book ne '') and ($file_node ne ''))
- {
- return &$I('%{node_file_href} section `%{section}\' in @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('%{node_file_href} @cite{%{book}}', { 'node_file_href' => $file_node, 'book' => $book });
- }
- elsif ($book ne '')
- {
- return &$I('section `%{section}\' in @cite{%{book}}', { 'book' => $book, 'section' => $section }) if ($section ne '');
- return &$I('@cite{%{book}}', { 'book' => $book });
- }
- elsif ($file_node ne '')
- {
- return &$I('%{node_file_href}', { 'node_file_href' => $file_node });
- }
- }
- 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;
-
- if (! $SHORT_REF)
- {
- $name = &$anchor('', $href, $name);
- if ($type eq 'pxref')
- {
- return &$I('see section %{reference_name}', { 'reference_name' => $name }) if ($is_section);
- return &$I('see %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'xref')
- {
- return &$I('See section %{reference_name}', { 'reference_name' => $name }) if ($is_section);
- return &$I('See %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'ref')
- {
- return &$I('%{reference_name}', { 'reference_name' => $name });
- }
- }
- else
- {
- $name = &$anchor('', $href, $short_name);
- if ($type eq 'pxref')
- {
- return &$I('see %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'xref')
- {
- return &$I('See %{reference_name}', { 'reference_name' => $name });
- }
- elsif ($type eq 'ref')
- {
- return &$I('%{reference_name}', { 'reference_name' => $name });
- }
- }
- return '';
-}
-
-sub teletyped_in_stack($)
-{
- my $stack = shift;
- foreach my $element(reverse(@$stack))
- {
- if ($complex_format_map->{$element})
- {
- if (!$complex_format_map->{$element}->{'pre_style'})
- {
- return 1;
- }
- else
- {
- return 0;
- }
- }
- }
- return 0;
-}
-
-# 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 $formatted_command = shift;
- my $style_stack = shift;
- #print STDERR "-> $format (@$style_stack)\n";
- $formatted_command = '' if (!defined($formatted_command) or
- exists($special_list_commands{$format}->{$command}));
- if (teletyped_in_stack($style_stack))
- {
- $text .= '</tt>';
- $formatted_command = '<tt>' . $formatted_command;
- }
- $text .= "\n" . $index_label if (defined($index_label));
- return '<dt>' . $formatted_command . $text . '</dt>' . "\n";
-}
-
-# format text on the line following the @item line (in table, vtable and ftable)
-sub t2h_default_table_line($)
-{
- my $text = shift;
-
- if ($text =~ /\S/)
- {
- return '<dd>' . $text . '</dd>' . "\n";
- }
- return '';
-}
-
-# row in multitable
-sub t2h_default_row($$)
-{
- my $text = shift;
- my $macro = shift;
-
- if ($text =~ /\S/)
- {
- if ($macro eq 'headitem')
- {
- return '<thead><tr>' . $text . '</tr></thead>' . "\n";
- }
- return '<tr>' . $text . '</tr>' . "\n";
- }
- return '';
-}
-
-# cell in multitable
-sub t2h_default_cell($$)
-{
- my $text = shift;
- my $row_macro = shift;
-
- if ($row_macro eq 'headitem')
- {
- return '<th>' . $text . '</th>';
- }
- return '<td>' . $text . '</td>';
-}
-
-# 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;
-
- $formatted_command = '' if (!defined($formatted_command) or
- exists($special_list_commands{$format}->{$command}));
- if ($text =~ /\S/)
- {
- return '<li>' . $formatted_command . $text . '</li>';
- }
- return '';
-}
-
-sub t2h_default_table_list($$$$$$)
-{
- my $format = shift;
- my $text = shift;
- my $command = shift;
- my $formatted_command = shift;
- my $item_nr = shift;
- my $enumerate_style = shift;
- my $number = shift;
- $formatted_command = '' if (!defined($formatted_command) or
- exists($special_list_commands{$format}->{$command}));
- if ($format eq 'itemize')
- {
- return "<ul>\n" . $text . "</ul>\n" if ($command eq 'bullet');
- return "<ul$TOC_LIST_ATTRIBUTE>\n" . $text . "</ul>\n";
- }
-}
-
-# an html comment
-sub t2h_default_comment($)
-{
- my $text = shift;
- $text =~ s/--+/-/go;
- return '<!-- ' . $text . ' -->' . "\n";
-}
-
-sub t2h_collect_styles($)
-{
- my $stack = shift;
- my @result = ();
- foreach my $style (reverse(@$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 t2h_get_attribute($;$)
-{
- my $command = shift;
- my $map_ref = shift;
- $map_ref = \%style_map if (!defined($map_ref));
- return '' unless (defined($map_ref->{$command}));
- if ((ref($map_ref->{$command}) eq 'HASH')
- and exists($map_ref->{$command}->{'attribute'}))
- {
- return $map_ref->{$command}->{'attribute'};
- }
- elsif ($map_ref->{$command} !~ /^&/)
- {
- my $attribute = $map_ref->{$command};
- $attribute =~ s/^\"//;
- return $attribute;
- }
- return '';
-}
-
-sub t2h_begin_style($$;$)
-{
- my $command = shift;
- my $text = shift;
- my $map_ref = shift;
- my $attribute = t2h_get_attribute($command,$map_ref);
- $attribute = "<$attribute>" if ($attribute ne '');
- return $attribute.$text;
-}
-
-sub t2h_end_style($$;$)
-{
- my $command = shift;
- my $text = shift;
- my $map_ref = shift;
- my $attribute = t2h_get_attribute($command,$map_ref);
- if ($attribute =~ /^(\w+)/)
- {
- $attribute = $1;
- }
- $attribute = "</$attribute>" if ($attribute ne '');
- return $text.$attribute;
-}
-
-# 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*$/);
- foreach my $style(t2h_collect_styles($command_stack_at_begin))
- {
- $text = t2h_begin_style($style, $text);
- }
- foreach my $style(t2h_collect_styles($command_stack_at_end))
- {
- $text = t2h_end_style($style, $text);
- }
- 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 $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 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 '');
- $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++;
- }
- foreach my $style(t2h_collect_styles($command_stack_at_begin))
- {
- $text = t2h_begin_style($style, $text, \%style_map_pre);
- }
- foreach my $style(t2h_collect_styles($command_stack_at_end))
- {
- $text = t2h_end_style($style, $text, \%style_map_pre);
- }
- return "<pre class=\"$class\">".$text."</pre>";
-}
-
-# This function formats a heading for an element
-#
-# argument:
-# an element. It is a hash reference for a node or a sectionning command.
-# 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 sectionning element name, raisesections and lowersections
-# taken into account
-sub t2h_default_heading($)
-{
- my $element = shift;
- my $level = 3;
- if (!$element->{'node'})
- {
- $level = $element->{'level'};
- }
- $level = 1 if ($level == 0);
- my $text = $element->{'text'};
- return '' if ($text !~ /\S/);
- my $class = $element->{'tag_level'};
- $class = 'unnumbered' if ($class eq 'top');
- if (defined($element->{'tocid'}) and $TOC_LINKS)
- {
- $text = &$anchor ('', "$Texi2HTML::THISDOC{'toc_file'}#$element->{'tocid'}", $text);
- }
- my $align = '';
- $align = ' align="center"' if ($element->{'tag'} eq 'centerchap');
- return "<h$level class=\"$class\"$align> $text </h$level>\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;
- if ($style eq 'verbatim' or $style eq 'tex')
- {
- return "<pre class=\"$style\">" . &$protect_text($text) . '</pre>';
- }
- elsif ($style eq 'html')
- {
- return $text;
- }
- else
- {
- warn "$WARN (bug) unknown style $style\n";
- return &$protect_text($text);
- }
-}
-
-# raw environment when removing texi (in comments)
-sub t2h_default_raw_no_texi($$)
-{
- my $style = shift;
- my $text = shift;
- return $text;
-}
-
-# 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 $state = shift;
-
- unshift (@$lines, '<h3>' .
- &$anchor($footnote_id, $document_file . "#$place_id",
- "($number_in_doc)")
- . "</h3>\n");
- 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 t2h_default_foot_section($)
-{
- my $lines = shift;
- unshift (@$lines, "<div class=\"footnote\">\n" ,"$DEFAULT_RULE\n", "<h3>" . &$I('Footnotes') . "</h3>\n");
- push (@$lines, "</div>\n");
- return $lines;
-}
-
-sub t2h_default_image_files($$)
-{
- my $base = shift;
- my $extension = shift;
- my @files = ();
- return @files if (!defined($base) or ($base eq ''));
- push @files,"$base.$extension" if (defined($extension) and ($extension ne ''));
- foreach my $ext (@IMAGE_EXTENSIONS)
- {
- push @files, "$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;
-
- if (!defined($file_path) or $file_path eq '')
- {
- if (defined($extension) and $extension ne '')
- {
- $file = "$base.$extension";
- }
- else
- {
- $file = "$base.jpg";
- }
- main::echo_warn ("no image file for $base, (using $file)");
- }
- $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\">";
-}
-
-# address put in footer describing when was generated and who did the manual
-sub t2h_default_address($$)
-{
- my $user = shift;
- my $date = shift;
- $user = '' if (!defined($user));
- $date = '' if (!defined($date));
- if (($user ne '') and ($date ne ''))
- {
- return &$I('by @emph{%{user}} on @emph{%{date}}', { 'user' => $user,
- 'date' => $date });
- }
- elsif ($user ne '')
- {
- return &$I('by @emph{%{user}}', { 'user' => $user });
- }
- elsif ($date ne '')
- {
- return &$I('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
-# FIXME document the remaining
-sub t2h_default_index_entry_label($$)
-{
- my $identifier = shift;
- my $preformatted = shift;
-
- return '' if (!defined($identifier) or ($identifier !~ /\S/));
- my $label = &$anchor($identifier);
- return $label . "\n" if (!$preformatted);
- return $label;
-}
-
-# process definition commands line @deffn for example
-sub t2h_default_def_line($$$$$)
-{
- my $category = shift;
- my $name = shift;
- my $type = shift;
- my $arguments = shift;
- my $index_label = shift;
- $index_label = '' if (!defined($index_label));
- $category = '' if (!defined($category) or ($category =~ /^\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 = '<i>' . $arguments . '</i>';
- }
- my $type_name = '';
- $type_name = " $type" if ($type ne '');
- $type_name .= ' <b>' . $name . '</b>' if ($name ne '');
- $type_name .= $arguments . "\n";
- if (! $DEF_TABLE)
- {
- return '<dt>'. '<u>' . $category . ':</u>' . $type_name . $index_label . "</dt>\n";
- }
- else
- {
-
- return "<tr>\n<td align=\"left\">" . $type_name .
- "</td>\n<td align=\"right\">" . $category . $index_label . "</td>\n" . "</tr>\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 "<table class=\"cartouche\" border=\"1\"><tr><td>\n" . $text . "</td></tr></table>\n";
- }
- return '';
-}
-
-# 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;
- 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;
- 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;
- close (IDXFILE);
-}
-
-sub t2h_default_sp($$)
-{
- my $number = shift;
- my $preformatted = shift;
- return "<br>\n" x $number if (!$preformatted);
- 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;
-
- my $attribute = $command;
- my $opening = "<$attribute>";
- if (defined($explanation_simply_formatted))
- {
- $opening = "<$attribute title=\"$explanation_simply_formatted\">";
- }
- if ($with_explanation)
- {
- return &$I('%{acronym_like} (%{explanation})', {'acronym_like' => $opening . $acronym_text . "</$attribute>", 'explanation' => $explanation_text})
- }
- else
- {
- return $opening . $acronym_text . "</$attribute>";
- }
-}
-
-sub t2h_default_quotation_prepend_text($)
-{
- my $text = shift;
- return undef if (!defined($text) or $text =~ /^$/);
-# FIXME if there is a @ protecting the end of line the result is
-# @b{some text @:}
-# It is likely not to be what was intended
- chomp($text);
- return &$I('@b{%{quotation_arg}:} ', {'quotation_arg' => $text}, {'keep_texi' => 1});
-}
-
-sub t2h_default_quotation($$$)
-{
- my $text = shift;
- my $argument_text = shift;
- my $argument_text_texi = shift;
-# my $argument_style_texi = shift;
-# my $argument_style_id = shift;
-# if (defined($argument_text))
-# {
-# return '<blockquote>' . &$I('%{style}:%{quotation}',
-# {'style' => $argument_text, 'quotation' => $text}) . '</blockquote>' ;
-# }
- return '<blockquote>' . $text . "</blockquote>\n";
-}
-
-# 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 "<table border=\"0\" class=\"index-$name\">\n" .
- "<tr><td></td><th align=\"left\">" . &$I('Index Entry') . "</th><th align=\"left\"> " . &$I('Section') . "</th></tr>\n"
- . "<tr><td colspan=\"3\"> $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 t2h_default_index_letter($$$)
-{
- my $letter = shift;
- my $id = shift;
- my $text = shift;
- return '<tr><th>' . &$anchor($id,'',&$protect_text($letter)) .
- "</th><td></td><td></td></tr>\n" . $text .
- "<tr><td colspan=\"3\"> $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 t2h_default_index_entry($$$$)
-{
- my $text_href = shift;
- my $entry = shift;
- my $element_href = shift;
- my $element_text = shift;
-
- return '<tr><td></td><td valign="top">' . &$anchor('', $text_href, $entry)
- . '</td><td valign="top">' . &$anchor('', $element_href, $element_text)
- . "</td></tr>\n";
-}
-
-
-sub t2h_default_copying_comment($)
-{
- my $copying_lines = shift;
- my $text = &$comment(main::remove_texi(@$copying_lines));
- return $text;
-}
-# 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 t2h_default_summary_letter($$$)
-{
- my $letter = shift;
- my $file = shift;
- my $identifier = shift;
- return &$anchor('', $file . '#' . $identifier, '<b>' . &$protect_text($letter) . '</b>', 'class="summary-letter"');
-}
-
-# 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 = '';
- $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\">" . &$I('Jump to') .": </th><td>" .
- $nonalpha_text . $join . $alpha_text . "</td></tr></table>\n";
-}
-
-# 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 =~ s/\s*$//;
- $texi =~ s/^\s*//;
- 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";
-}
-
-1;
-
-require "$ENV{T2H_HOME}/texi2html.init"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/texi2html.init" && -r "$ENV{T2H_HOME}/texi2html.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 $ENV{T2H_HOME}/translations.pl exists.
-#
-# @T2H_TRANSLATIONS_FILE@
-$LANGUAGES->{'de'} = {
- ' 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 ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => '@"Uber dieses Dokument',
- 'April' => 'April',
- 'August' => 'August',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Cover (top) of document' => '',
- 'Current Position' => '',
- 'Current section' => '',
- 'December' => 'Dezember',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => 'Februar',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => 'Fu@ss{}noten',
- 'Forward' => '',
- 'From 1.2.3 go to' => '',
- 'Go to' => '',
- 'Index' => 'Index',
- 'Index Entry' => '',
- 'January' => 'Januar',
- 'July' => 'Juli',
- 'Jump to' => '',
- 'June' => 'Juni',
- 'Last' => '',
- 'Last section in reading order' => '',
- 'March' => 'M@"arz',
- 'May' => 'Mai',
- 'Menu:' => '',
- 'Name' => '',
- 'Next' => '',
- 'Next chapter' => '',
- 'Next node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => 'November',
- 'October' => 'Oktober',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => 'September',
- 'Short Table of Contents' => 'Kurzes Inhaltsverzeichniss',
- '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' => '',
- 'T2H_today' => '',
- 'Table of Contents' => 'Inhaltsverzeichniss',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- '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' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'current' => '',
- 'on @emph{%{date}}' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'de'} = {
- 'See' => 'Siehe',
- 'section' => 'Abschnitt',
- 'see' => 'siehe'
- };
-
-
-$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 ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => '',
- 'April' => '',
- 'August' => '',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Cover (top) of document' => '',
- 'Current Position' => '',
- 'Current section' => '',
- 'December' => '',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => '',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => '',
- 'Forward' => '',
- '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 node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => '',
- 'October' => '',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- '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' => '',
- 'T2H_today' => '%s, %d %d',
- 'Table of Contents' => '',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- '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' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'current' => '',
- 'on @emph{%{date}}' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'en'} = {};
-
-
-$LANGUAGES->{'es'} = {
- ' 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 ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => '',
- 'April' => 'abril',
- 'August' => 'agosto',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Cover (top) of document' => '',
- 'Current Position' => '',
- 'Current section' => '',
- 'December' => 'diciembre',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => 'febrero',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => '',
- 'Forward' => '',
- 'From 1.2.3 go to' => '',
- 'Go to' => '',
- 'Index' => 'Index',
- 'Index Entry' => '',
- 'January' => 'enero',
- 'July' => 'julio',
- 'Jump to' => '',
- 'June' => 'junio',
- 'Last' => '',
- 'Last section in reading order' => '',
- 'March' => 'marzo',
- 'May' => 'mayo',
- 'Menu:' => '',
- 'Name' => '',
- 'Next' => '',
- 'Next chapter' => '',
- 'Next node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => 'noviembre',
- 'October' => 'octubre',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => 'septiembre',
- 'Short Table of Contents' => 'Resumen del Contenido',
- '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' => '',
- 'T2H_today' => '',
- 'Table of Contents' => '@\'{@dotless{I}}ndice General',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- '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' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'current' => '',
- 'on @emph{%{date}}' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'es'} = {
- 'See' => 'V@\'ease',
- 'section' => 'secci@\'on',
- 'see' => 'v@\'ase'
- };
-
-
-$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 section un-deux-trois } dans un document dont la structure est :',
- ' Up ' => 'Plus haut',
- '%{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}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '%{node_file_href} section `%{section}\' dans @cite{%{book}}',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- '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',
- '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 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',
- '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 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',
- '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',
- 'Overview:' => 'Vue d\'ensemble@ :',
- 'Prev' => '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 %{node_file_href}' => 'Voir %{node_file_href}',
- 'See %{node_file_href} @cite{%{book}}' => 'Voir %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'Voir @cite{%{book}}',
- 'See section %{reference_name}' => 'Voir la section %{reference_name}',
- 'See section `%{section}\' in @cite{%{book}}' => 'Voir la section `%{section}\' dans @cite{%{book}}',
- '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',
- 'T2H_today' => 'le %2$d %1$s %3$d',
- '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 by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} @emph{%{date}} en utilisant @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} en utilisant @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated on @i{%{date}} using @uref{%{program_homepage}, @i{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e @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' => '',
- 'Untitled Document' => 'Document sans titre',
- 'Up' => 'Monter',
- 'Up node' => 'N@oe{}ud au dessus',
- 'Up section' => 'Section sup@\'erieure',
- 'by @emph{%{user}}' => 'par @emph{%{user}}',
- 'by @emph{%{user}} on @emph{%{date}}' => 'par @emph{%{user}} @emph{%{date}}',
- 'current' => 'courante',
- 'on @emph{%{date}}' => '@emph{%{date}}',
- 'section `%{section}\' in @cite{%{book}}' => 'section `%{section}\' dans @cite{%{book}}',
- 'see %{node_file_href}' => 'voir %{node_file_href}',
- 'see %{node_file_href} @cite{%{book}}' => 'voir %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'voir @cite{%{book}}',
- 'see section %{reference_name}' => 'voir la section %{reference_name}',
- 'see section `%{section}\' in @cite{%{book}}' => 'voir la section `%{section}\' dans @cite{{book}}',
- 'unknown' => 'inconnu'
- };
-
-$T2H_OBSOLETE_STRINGS->{'fr'} = {
- ' This document was generated %{who_and_when_generated} using %{program_homepage_href}.' => ' Ce document a été généré %{who_and_when_generated} en utilisant %{program_homepage_href}.',
- ' 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:' => ' Dans cet exemple on est à <strong> Sous section un-deux-trois </strong> dans un document dont la structure est :',
- '%{node_file_href} section `%{section}\' in <cite>%{book}</cite>' => '%{node_file_href} section `%{section}\' dans <cite>%{book}</cite>',
- 'See' => 'Voir',
- 'See %{node_file_href} <cite>%{book}</cite>' => 'Voir %{node_file_href} <cite>%{book}</cite>',
- 'See %{node_file_href} section `%{section}\' in <cite>%{book}</cite>' => 'Voir %{node_file_href} section `%{section}\' dans <cite>%{book}</cite>',
- 'See <cite>%{book}</cite>' => 'Voir <cite>%{book}</cite>',
- 'See section `%{section}\' in <cite>%{book}</cite>' => 'Voir la section `%{section}\' dans <cite>%{book}</cite>',
- 'This document was generated by <i>%{user}</i> on <i>%{date}</i> using %{program_homepage_href}.' => 'Ce document a été généré par <i>%{user}</i> <i>%{date}</i> en utilisant %{program_homepage_href}.',
- 'This document was generated by <i>%{user}</i> using %{program_homepage_href}.' => 'Ce document a été généré par <i>%{user}</i> en utilisant %{program_homepage_href}.',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} @emph{%{date}} en utilisant %{program_homepage_href}.',
- 'This document was generated by @emph{%{user}} using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e par @emph{%{user}} en utilisant %{program_homepage_href}.',
- 'This document was generated on <i>%{date}</i> using %{program_homepage_href}.' => 'Ce document a été généré <i>%{date}</i> en utilisant %{program_homepage_href}.',
- 'This document was generated on @emph{%{date}} using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e @emph{%{date}} en utilisant %{program_homepage_href}.',
- 'This document was generated on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e @emph{%{date}} en utilisant @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated using %{program_homepage_href}.' => 'Ce document a @\'et@\'e g@\'en@\'er@\'e en utilisant %{program_homepage_href}.',
- 'about (help)' => '@`a propos (page d\'aide)',
- 'about (this page)' => 'a propos (cette page)',
- 'beginning of this chapter or previous chapter' => 'd@\'ebut de ce chapitre ou chapitre pr@\'ec@\'edent',
- 'by <i>%{user}</i>' => 'par <i>%{user}</i>',
- 'by <i>%{user}</i> on <i>%{date}</i>' => 'par <i>%{user}</i> <i>%{date}</i>',
- 'concept index' => 'index',
- 'cover (top) of document' => 'couverture (top) du document',
- 'current section' => 'section actuelle',
- 'first section in reading order' => 'premi@`e section dans l\'ordre de lecture',
- 'following node' => 'node suivant',
- 'index' => 'index',
- 'last section in reading order' => 'derni@`ere section dans l\'ordre de lecture',
- 'next chapter' => 'chapitre suivant',
- 'next node' => 'node suivant',
- 'next section in reading order' => 'section suivante dans l\'ordre de lecture',
- 'next section on same level' => 'section suivante au m@^eme niveau',
- 'node following in node reading order' => 'node suivant dans l\'ordre des nodes',
- 'node up' => 'node au dessus',
- 'on <i>%{date}</i>' => '<i>%{date}</i>',
- 'previous node' => 'node 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',
- 'section `%{section}\' in <cite>%{book}</cite>' => 'section `%{section}\' dans <cite>%{book}</cite>',
- 'see' => 'voir',
- 'see %{node_file_href} <cite>%{book}</cite>' => 'voir %{node_file_href} <cite>%{book}</cite>',
- 'see %{node_file_href} section `%{section}\' in <cite>%{book}</cite>' => 'voir %{node_file_href} section `%{section}\' dans <cite>%{book}</cite>',
- 'see <cite>%{book}</cite>' => 'voir <cite>%{book}</cite>',
- 'see section `%{section}\' in <cite>%{book}</cite>' => 'voir la section `%{section}\' dans <cite>%{book}</cite>',
- 'short table of contents' => 'table des mati@`eres r@\'esum@\'ee',
- 'table of contents' => 'table des mati@`eres',
- 'up node' => 'node au dessus',
- 'up section' => 'section sup@\'erieure'
- };
-
-
-$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 ' => '上',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '%{year}年%{month}月%{day}日',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => 'この文書について',
- 'April' => '4月',
- 'August' => '8月',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => 'ボタン',
- 'Contents' => '目次',
- 'Cover (top) of document' => '',
- 'Current Position' => '現在位置',
- 'Current section' => '',
- 'December' => '12月',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => '2月',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => '脚注',
- 'Forward' => '',
- '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 node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => '11月',
- 'October' => '10月',
- 'Overview' => '概要',
- 'Overview:' => '概要:',
- 'Prev' => '前',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '項',
- 'Section One' => '第1項',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- 'September' => '9月',
- 'Short Table of Contents' => '簡略化した目次',
- 'Short table of contents' => '',
- 'Subsection One-Four' => '第1.4項',
- 'Subsection One-One' => '第1.1項',
- 'Subsection One-Three' => '第1.3項',
- 'Subsection One-Two' => '第1.2項',
- 'Subsubsection One-Two-Four' => '第1.2.4項',
- 'Subsubsection One-Two-One' => '第1.2.1項',
- 'Subsubsection One-Two-Three' => '第1.2.3項',
- 'Subsubsection One-Two-Two' => '第1.2.2項',
- 'T2H_today' => '%s, %d %d',
- 'Table of Contents' => '目次',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'この文書は@emph{%{user}}によって@emph{%{date}}に@uref{%{program_homepage}, @emph{%{program}}}を用いて生成されました。',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'この文書は@emph{%{user}}によって@uref{%{program_homepage}, @emph{%{program}}}を用いて生成されました。',
- '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' => '',
- 'by @emph{%{user}}' => '@emph{%{user}}',
- 'by @emph{%{user}} on @emph{%{date}}' => '@emph{%{user}}, @emph{%{date}',
- 'current' => '現在位置',
- 'on @emph{%{date}}' => '@emph{%{date}}',
- 'section `%{section}\' in @cite{%{book}}' => '@cite{%{book}}の `%{section}\' ',
- 'see %{node_file_href}' => '%{node_file_href}参照',
- 'see %{node_file_href} @cite{%{book}}' => '%{node_file_href} @cite{%{book}}参照',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => '不明'
- };
-
-$T2H_OBSOLETE_STRINGS->{'ja'} = {
- 'about (help)' => '使用法 (ヘルプ)',
- 'beginning of this chapter or previous chapter' => 'この章または前の章の冒頭',
- 'cover (top) of document' => '文書の表紙 (トップ)',
- 'current section' => '現在の節',
- 'first section in reading order' => '文書順で前の項',
- 'following node' => '次の節',
- 'index' => '見出し',
- 'last section in reading order' => '文書順で最後の項',
- 'next chapter' => '次の章',
- 'next node' => '次の節',
- 'next section in reading order' => '文書順で次の項',
- 'next section on same level' => '同じ階層にある次の項',
- 'node following in node reading order' => '文書順で次の節',
- 'node up' => '上の節へ',
- 'previous node' => '前の節',
- 'previous section in reading order' => '文書順で前の節',
- 'previous section on same level' => '同じ階層にある前の項',
- 'short table of contents' => '簡略化した目次',
- 'table of contents' => '文書の目次',
- 'up node' => '上の節',
- 'up section' => '上の項'
- };
-
-
-$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 ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => 'No translation available!',
- 'April' => 'April',
- 'August' => 'Augustus',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Cover (top) of document' => '',
- 'Current Position' => '',
- 'Current section' => '',
- 'December' => 'December',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => 'Februari',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => 'No translation available!',
- 'Forward' => '',
- '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 node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => 'November',
- 'October' => 'Oktober',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- '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' => '',
- 'T2H_today' => '',
- 'Table of Contents' => 'Inhoudsopgave',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- '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' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'current' => '',
- 'on @emph{%{date}}' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'nl'} = {
- 'See' => 'Zie',
- 'section' => 'sectie',
- 'see' => 'zie'
- };
-
-
-$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 ' => '',
- '%{acronym_like} (%{explanation})' => '',
- '%{month}, %{day} %{year}' => '',
- '%{name} of %{class}' => '',
- '%{name} on %{class}' => '',
- '%{node_file_href}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => '',
- 'About (help)' => '',
- 'About This Document' => 'No translation available!',
- 'April' => 'april',
- 'August' => 'august',
- 'Back' => '',
- 'Beginning of this chapter or previous chapter' => '',
- 'Button' => '',
- 'Contents' => '',
- 'Cover (top) of document' => '',
- 'Current Position' => '',
- 'Current section' => '',
- 'December' => 'desember',
- 'FastBack' => '',
- 'FastForward' => '',
- 'February' => 'februar',
- 'First' => '',
- 'First section in reading order' => '',
- 'Following' => '',
- 'Following node' => '',
- 'Footnotes' => 'No translation available!',
- 'Forward' => '',
- '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 node' => '',
- 'Next section in reading order' => '',
- 'Next section on same level' => '',
- 'Node following in node reading order' => '',
- 'Node up' => '',
- 'NodeNext' => '',
- 'NodePrev' => '',
- 'NodeUp' => '',
- 'November' => 'november',
- 'October' => 'oktober',
- 'Overview' => '',
- 'Overview:' => '',
- 'Prev' => '',
- 'Previous node' => '',
- 'Previous section in reading order' => '',
- 'Previous section on same level' => '',
- 'Section' => '',
- 'Section One' => '',
- 'See %{node_file_href}' => '',
- 'See %{node_file_href} @cite{%{book}}' => '',
- 'See %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'See %{reference_name}' => '',
- 'See @cite{%{book}}' => '',
- 'See section %{reference_name}' => '',
- 'See section `%{section}\' in @cite{%{book}}' => '',
- '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' => '',
- 'T2H_today' => '',
- 'Table of Contents' => 'Innholdsfortegnelse',
- 'Table of contents' => '',
- 'The node you are looking for is at %{href}.' => '',
- 'This' => '',
- 'This document was generated by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => '',
- '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' => '',
- 'by @emph{%{user}}' => '',
- 'by @emph{%{user}} on @emph{%{date}}' => '',
- 'current' => '',
- 'on @emph{%{date}}' => '',
- 'section `%{section}\' in @cite{%{book}}' => '',
- 'see %{node_file_href}' => '',
- 'see %{node_file_href} @cite{%{book}}' => '',
- 'see %{node_file_href} section `%{section}\' in @cite{%{book}}' => '',
- 'see %{reference_name}' => '',
- 'see @cite{%{book}}' => '',
- 'see section %{reference_name}' => '',
- 'see section `%{section}\' in @cite{%{book}}' => '',
- 'unknown' => ''
- };
-
-$T2H_OBSOLETE_STRINGS->{'no'} = {
- 'See' => 'Se',
- 'section' => 'avsnitt',
- 'see' => 'se'
- };
-
-
-$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 ',
- '%{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}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '%{node_file_href} se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => 'Sobre',
- 'About (help)' => 'Sobre (ajuda)',
- 'About This Document' => 'Sobre Esse Documento',
- 'April' => 'Abril',
- 'August' => 'Agosto',
- 'Back' => 'Volta',
- '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 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',
- '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 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',
- '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',
- 'Overview:' => 'Vis@~ao geral:',
- 'Prev' => 'Pr@\'evio',
- '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 %{node_file_href}' => 'Veja %{node_file_href}',
- 'See %{node_file_href} @cite{%{book}}' => 'Veja %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'Veja @cite{%{book}}',
- 'See section %{reference_name}' => 'Veja se@,{c}@~ao %{reference_name}',
- 'See section `%{section}\' in @cite{%{book}}' => 'Veja se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- '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',
- 'T2H_today' => '',
- '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 by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Esse documento foi gereado por @emph{%{user}} em @emph{%{date}} usando @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Esse documento foi gerado por @emph{%{user}} usando @uref{%{program_homepage}, @emph{%{program}}}.',
- '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',
- 'by @emph{%{user}}' => 'por @emph{%{user}}',
- 'by @emph{%{user}} on @emph{%{date}}' => 'por @emph{%{user}} em @emph{%{date}}',
- 'current' => 'atual',
- 'on @emph{%{date}}' => 'em @emph{%{date}}',
- 'section `%{section}\' in @cite{%{book}}' => 'se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- 'see %{node_file_href}' => 'veja %{node_file_href}',
- 'see %{node_file_href} @cite{%{book}}' => 'veja %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'veja @cite{%{book}}',
- 'see section %{reference_name}' => 'veja se@,{c}@~ao %{reference_name}',
- 'see section `%{section}\' in @cite{%{book}}' => 'veja se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- 'unknown' => 'desconhecido'
- };
-
-$T2H_OBSOLETE_STRINGS->{'pt'} = {
- 'See' => 'Veja',
- 'about (help)' => 'sobre (ajuda)',
- 'beginning of this chapter or previous chapter' => 'come@,{c}o desse cap@\'itulo ou cap@\'itulo anterior',
- 'cover (top) of document' => 'in@\'icio (topo) do documento',
- 'current section' => 'se@,{c}@~ao atual',
- 'first section in reading order' => 'primeira se@,{c}@~ao na ordem de leitura',
- 'following node' => 'nodo seguinte',
- 'index' => '@\'indice',
- 'last section in reading order' => '@\'ultima se@,{c}@~ao na ordem de leitura',
- 'next chapter' => 'pr@\'oximo cap@\'itulo',
- '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',
- 'node following in node reading order' => 'nodo seguinte na ordem de leitura de nodos',
- 'node up' => 'nodo acima',
- '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',
- 'see' => 'veja',
- 'short table of contents' => 'breve sum@\'ario',
- 'table of contents' => 'sum@\'ario',
- 'up node' => 'nodo acima',
- 'up section' => 'se@,{c}@~ao acima'
- };
-
-
-$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 ',
- '%{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}' => '',
- '%{node_file_href} @cite{%{book}}' => '',
- '%{node_file_href} section `%{section}\' in @cite{%{book}}' => '%{node_file_href} se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- '%{reference_name}' => '',
- '%{style} %{number}' => '',
- '%{style}: %{caption_first_line}' => '',
- '%{style}: %{shortcaption_first_line}' => '',
- '@b{%{quotation_arg}:} ' => '',
- '@cite{%{book}}' => '',
- 'About' => 'Sobre',
- 'About (help)' => 'Sobre (ajuda)',
- 'About This Document' => 'Sobre Esse Documento',
- 'April' => 'Abril',
- 'August' => 'Agosto',
- 'Back' => 'Volta',
- '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 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',
- '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 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',
- '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',
- 'Overview:' => 'Vis@~ao geral:',
- 'Prev' => 'Pr@\'evio',
- '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 %{node_file_href}' => 'Veja %{node_file_href}',
- 'See %{node_file_href} @cite{%{book}}' => 'Veja %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'Veja @cite{%{book}}',
- 'See section %{reference_name}' => 'Veja se@,{c}@~ao %{reference_name}',
- 'See section `%{section}\' in @cite{%{book}}' => 'Veja se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- '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',
- 'T2H_today' => '',
- '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 by @emph{%{user}} on @emph{%{date}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Esse documento foi gereado por @emph{%{user}} em @emph{%{date}} usando @uref{%{program_homepage}, @emph{%{program}}}.',
- 'This document was generated by @emph{%{user}} using @uref{%{program_homepage}, @emph{%{program}}}.' => 'Esse documento foi gerado por @emph{%{user}} usando @uref{%{program_homepage}, @emph{%{program}}}.',
- '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',
- 'by @emph{%{user}}' => 'por @emph{%{user}}',
- 'by @emph{%{user}} on @emph{%{date}}' => 'por @emph{%{user}} em @emph{%{date}}',
- 'current' => 'atual',
- 'on @emph{%{date}}' => 'em @emph{%{date}}',
- 'section `%{section}\' in @cite{%{book}}' => 'se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- 'see %{node_file_href}' => 'veja %{node_file_href}',
- 'see %{node_file_href} @cite{%{book}}' => 'veja %{node_file_href} @cite{%{book}}',
- '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 @cite{%{book}}' => 'veja @cite{%{book}}',
- 'see section %{reference_name}' => 'veja se@,{c}@~ao %{reference_name}',
- 'see section `%{section}\' in @cite{%{book}}' => 'veja se@,{c}@~ao `%{section}\' em @cite{%{book}}',
- 'unknown' => 'desconhecido'
- };
-
-$T2H_OBSOLETE_STRINGS->{'pt_BR'} = {
- 'See' => 'Veja',
- 'about (help)' => 'sobre (ajuda)',
- 'beginning of this chapter or previous chapter' => 'come@,{c}o desse cap@\'itulo ou cap@\'itulo anterior',
- 'cover (top) of document' => 'in@\'icio (topo) do documento',
- 'current section' => 'se@,{c}@~ao atual',
- 'first section in reading order' => 'primeira se@,{c}@~ao na ordem de leitura',
- 'following node' => 'nodo seguinte',
- 'index' => '@\'indice',
- 'last section in reading order' => '@\'ultima se@,{c}@~ao na ordem de leitura',
- 'next chapter' => 'pr@\'oximo cap@\'itulo',
- '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',
- 'node following in node reading order' => 'nodo seguinte na ordem de leitura de nodos',
- 'node up' => 'nodo acima',
- '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',
- 'see' => 'veja',
- 'short table of contents' => 'breve sum@\'ario',
- 'table of contents' => 'sum@\'ario',
- 'up node' => 'nodo acima',
- 'up section' => 'se@,{c}@~ao acima'
- };
-
-
-
-require "$ENV{T2H_HOME}/$translation_file"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/$translation_file" && -r "$ENV{T2H_HOME}/$translation_file");
-
-# 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 (\%style_map, \%style_map_pre, \%style_map_texi, \%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";
- }
-}
-
-#
-# Some functions used to override normal formatting functions in specific
-# cases. The user shouldn't want to change them, but can use them.
-#
-
-# 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 $style_stack = 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;
- }
- return Unicode::Normalize::NFC($text);
-}
-
-# 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 $style_stack = shift;
-
- $text = uc($text) if (in_small_caps($style_stack));
- return $text if ($USE_UNICODE);
-
- # if there is no unicode support, we do all the transformations here
- my $result = '';
- 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
- { # wild guess that should work for latin1
- $result .= '_' . '00' . lc(sprintf("%02x",ord($1)));
- }
- }
- else
- {
- print STDERR "Bug: unknown character in cross ref (likely in infinite loop)\n";
- 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
-
-use vars qw(
-%value
-);
-
-# 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
-%predefined_index
-%valid_index
-%sec2level
-%code_style_map
-%region_lines
-%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.
-
-#+++############################################################################
-# #
-# Initialization #
-# 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 $ENV{T2H_HOME}/texi2html.init
-# 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.5 2006/04/17 23:11:09 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");
- $self->{'opt'}->{$_} = ${$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 ${$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. '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 "$ENV{T2H_HOME}/MySimple.pm"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/MySimple.pm" && -r "$ENV{T2H_HOME}/MySimple.pm");
-
-#+++########################################################################
-# #
-# Initialization #
-# 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 $ENV{T2H_HOME}/T2h_i18n.pm
-# exists.
-
-# @T2H_I18N@
-#+##############################################################################
-#
-# T2h_i18n.pm: Internationalization for texi2html
-#
-# Copyright (C) 1999-2005 Patrice Dumas <dumas@centre-cired.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;
- }
-}
-
-
-my @MONTH_NAMES =
- (
- 'January', 'February', 'March', 'April', 'May',
- 'June', 'July', 'August', 'September', 'October',
- 'November', '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;
- # obachman: Let's do it as the Americans do
- #return($MONTH_NAMES->{$lang}[$mon] . ", " . $mday . " " . $year);
- #return(sprintf(&$I('T2H_today'), (get_string($MONTH_NAMES[$mon]), $mday, $year)));
- return &$I('%{month}, %{day} %{year}', { 'month' => get_string($MONTH_NAMES[$mon]),
- 'day' => $mday, 'year' => $year });
-}
-
-my $error_no_en = 0;
-sub get_string($;$$)
-{
- my $string = shift;
- my $arguments = shift;
- my $state = shift;
- 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
- {
- print STDERR "i18n: missing string $string\n" unless (exists ($T2H_LANGUAGES->{'en'}->{$string}));
- if (defined ($T2H_LANGUAGES->{$language}->{$string}) and
- ($T2H_LANGUAGES->{$language}->{$string} ne ''))
- {
- $string = $T2H_LANGUAGES->{$language}->{$string};
- }
- elsif (defined ($T2H_LANGUAGES->{'en'}->{$string}) and
- ($T2H_LANGUAGES->{'en'}->{$string} ne ''))
- {
- $string = $T2H_LANGUAGES->{'en'}->{$string};
- }
- }
- return main::substitute_line($string, $state) unless (defined($arguments) or !keys(%$arguments));
- # 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 %@{arg@}
- my $result = '';
- if (!$state->{'keep_texi'})
- {
- while ($string)
- {
- if ($string =~ s/^([^%]*)%//)
- {
- $result .= $1 if (defined($1));
- $result .= '%';
- if ($string =~ s/^%//)
- {
- $result .= '%';
- }
- elsif ($string =~ /^\{(\w+)\}/ and exists($arguments->{$1}))
- {
- $string =~ s/^\{(\w+)\}//;
- $result .= "\@\{$1\@\}";
- }
- else
- {
- $result .= '%';
- }
- next;
- }
- else
- {
- $result .= $string;
- last;
- }
- }
- $string = main::substitute_line($result, $state);
- }
- # now we substitute the arguments
- $result = '';
- while ($string)
- {
- if ($string =~ s/^([^%]*)%//)
- {
- $result .= $1 if (defined($1));
- if ($string =~ s/^%//)
- {
- $result .= '%';
- }
- elsif ($string =~ /^\{(\w+)\}/ and exists($arguments->{$1}))
- {
- $string =~ s/^\{(\w+)\}//;
- $result .= $arguments->{$1};
- }
- else
- {
- $result .= '%';
- }
- next;
- }
- else
- {
- $result .= $string;
- last;
- }
- }
- return $result;
-}
-
-1;
-require "$ENV{T2H_HOME}/T2h_i18n.pm"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/T2h_i18n.pm" && -r "$ENV{T2H_HOME}/T2h_i18n.pm");
-
-
-#########################################################################
-#
-# latex2html stuff
-#
-#---######################################################################
-
-{
-# 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 <dumas@centre-cired.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) ToLatex: Put "latex" code into a latex file
-# 2) ToHtml: Use latex2html to generate corresponding html code and images
-# 3) FromHtml: Extract generated code and images from latex2html run
-#
-
-# init l2h defaults for files and names
-
-# global variable used for caching
-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;
-my $docu_ext;
-my $ERROR = '***';
-
-##########################
-#
-# 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()
-{
- $docu_name = $Texi2HTML::THISDOC{'file_base_name'};
- $docu_rdir = $Texi2HTML::THISDOC{'out_dir'};
- $docu_ext = $Texi2HTML::THISDOC{'extension'};
- $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"))
- {
- warn "$ERROR l2h: Can't open latex file '$l2h_latex_file' for writing: $!\n";
- $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();
- $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;
- 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";
- 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";
- 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 =~ /\./)
- {
- warn "$ERROR Warning l2h: l2h_tmp dir contains a dot. Use /tmp, instead\n";
- $dotbug = 1;
- }
- }
- else
- {
- if (cwd() =~ /\./)
- {
- warn "$ERROR Warning l2h: current dir contains a dot. Use /tmp as l2h_tmp dir \n";
- $dotbug = 1;
- }
- }
- # fix it, if necessary and hope that it works
- $Texi2HTML::Config::L2H_TMP = "/tmp" 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 ? " -dir $docu_rdir" : " -no_subdir");
- # use l2h_tmp, if specified
- $call .= " -tmp $Texi2HTML::Config::L2H_TMP" if ($Texi2HTML::Config::L2H_TMP);
- # use a given html version if specified
- $call .= " -html_version $Texi2HTML::Config::L2H_HTML_VERSION" if ($Texi2HTML::Config::L2H_HTML_VERSION);
- # 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))
- {
- warn "$ERROR l2h: '${call}' did not succeed\n";
- 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.
-my %l2h_img; # associate src file to destination file
- # such that files are not copied twice
-my $image_count = 1;
-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 =~ /.*\.(.*)$/ && $1 ne $docu_ext)
- {
- $ext = ".$1";
- }
- else
- {
- warn "$ERROR: L2h image $src has invalid extension\n";
- next;
- }
- while (-e "$docu_rdir${docu_name}_${image_count}$ext")
- {
- $image_count++;
- }
- $dest = "${docu_name}_${image_count}$ext";
-# FIXME this isn't portable. + error condition not checked.
- system("cp -f $docu_rdir$src $docu_rdir$dest");
- $l2h_img{$src} = $dest;
-# FIXME error condition not checked
- unlink "$docu_rdir$src" unless ($debug);
- }
- $content =~ s/SRC="$src"/SRC="$dest"/g;
- }
- return $content;
-}
-
-my $extract_error_count = 0;
-my $invalid_counter_count = 0;
-
-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"))
- {
- warn "$ERROR l2h: Can't open $l2h_html_file for reading\n";
- 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.
- warn "$ERROR l2h(BUG): l2h_end $l2h_name $count not found\n";
- close(L2H_HTML);
- return 0;
- }
- }
- }
-
- # Not the same number of converted elements and retrieved elements
- if ($latex_converted_count != $html_converted_count)
- {
- warn "$ERROR l2h(BUG): waiting for $latex_converted_count elements found $html_converted_count\n";
- }
-
- warn "# l2h: Got $html_converted_count of $latex_count html contents\n"
- if ($verbose);
-
- close(L2H_HTML);
- return 1;
-}
-
-my $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;
- my $count = $global_count{"${style}_$counter"};
- ################################## begin debug section (incorrect counts)
- if (!defined($count))
- {
- # counter is undefined
- $invalid_counter_count++;
- warn "$ERROR l2h(BUG): undefined count for ${style}_$counter\n";
- 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++;
- warn "$ERROR l2h(BUG): Request of $count content which is out of valide range [0,$latex_count)\n";
- 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, once simple_format
- # may happen for anything else than lines
- 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++;
- warn "$ERROR l2h(BUG): can't extract content $count from html\n";
- # try simple (ordinary) substitution (without l2h)
- $result .= "<!-- l2h: ". __LINE__ . " use texi2html -->" if ($debug);
- $result .= main::substitute_text({}, $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, second pass and beginning of third pass
-#
-sub latex2html()
-{
- return unless($status);
- return unless ($status = finish_to_latex());
- return unless ($status = to_html());
- return unless ($status = init_from_html());
-}
-
-
-##############################
-# stuff for l2h caching
-#
-
-# 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";
- warn("$ERROR l2h Error: could not load $docu_rdir$l2h_cache_file: $@\n")
- 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"))
- {
- warn "$ERROR l2h Error: could not open $docu_rdir$l2h_cache_file for writing: $!\n";
- 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 "$ENV{T2H_HOME}/T2h_l2h.pm"
- if ($0 =~ /\.pl$/ &&
- -e "$ENV{T2H_HOME}/T2h_l2h.pm" && -r "$ENV{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 $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 ###############################################
-$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;
-
-#
-# pre-defined indices
-#
-
-my %index_prefix_to_name = ();
-
-%index_names =
-(
- 'cp' => { 'prefix' => ['cp','c']},
- 'fn' => { 'prefix' => ['fn', 'f'], code => 1},
- 'vr' => { 'prefix' => ['vr', 'v'], code => 1},
- 'ky' => { 'prefix' => ['ky', 'k'], code => 1},
- 'pg' => { 'prefix' => ['pg', 'p'], code => 1},
- 'tp' => { 'prefix' => ['tp', 't'], code => 1}
-);
-
-foreach my $name(keys(%index_names))
-{
- foreach my $prefix (@{$index_names{$name}->{'prefix'}})
- {
- $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' );
-$::simple_map_ref = \%Texi2HTML::Config::simple_map;
-$::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_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;
-
-# 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
-#
-%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 sectionning command.
-# The value is a ref on an array containing at each index the corresponding
-# sectionning command name.
-my %level2sec;
-{
- my $sections = [ ];
- my $appendices = [ ];
- my $unnumbered = [ ];
- my $headings = [ ];
- foreach my $command (keys (%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}->[$sec2level{$command}] = $command;
- }
-}
-
-# this are synonyms
-$sec2level{'appendixsection'} = 2;
-# sec2level{'majorheading'} is also 1 and not 0
-$sec2level{'majorheading'} = 1;
-$sec2level{'chapheading'} = 1;
-$sec2level{'centerchap'} = 1;
-
-# sction to level hash not taking into account raise and lower sections
-my %reference_sec2level = %sec2level;
-
-# regions treated especially. The text for these regions is collected in the
-# corresponding array
-%region_lines = (
- 'titlepage' => [ ],
- 'documentdescription' => [ ],
- 'copying' => [ ],
-);
-
-# those macros aren't considered as beginning a paragraph
-my %no_line_macros = (
- 'macro' => 1,
- 'unmacro' => 1,
- 'rmacro' => 1,
- 'set' => 1,
- 'clear' => 1,
- 'titlefont' => 1,
- 'include' => 1,
- 'copying' => 1,
- 'end copying' => 1,
- 'tab' => 1,
- 'item' => 1,
- 'itemx' => 1,
- '*' => 1,
- 'float' => 1,
- 'end float' => 1,
- 'caption' => 1,
- 'shortcaption' => 1,
-);
-
-foreach my $key (keys(%Texi2HTML::Config::misc_command))
-{
- $no_line_macros{$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';
-}
-foreach my $complex_format (keys(%$Texi2HTML::Config::complex_format_map))
-{
- $format_type{$complex_format} = 'complex_format';
-}
-foreach my $table (('table', 'ftable', 'vtable', 'multitable'))
-{
- $format_type{$table} = 'table';
-}
-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{'cartouche'} = 'cartouche';
-
-$format_type{'float'} = 'float';
-
-$format_type{'quotation'} = 'quotation';
-
-$format_type{'group'} = 'group';
-
-foreach my $key (keys(%format_type))
-{
- $no_line_macros{$key} = 1;
- $no_line_macros{"end $key"} = 1;
-}
-
-foreach my $macro (keys(%Texi2HTML::Config::format_in_paragraph))
-{
- $no_line_macros{$macro} = 1;
- $no_line_macros{"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',
- 'menu_preformatted' => 'menu',
- );
-
-foreach my $key (keys(%fake_format))
-{
- $format_type{$key} = 'fake';
-}
-
-# raw formats which are expanded especially
-my @raw_regions = ('html', 'verbatim', 'tex', 'xml', 'docbook');
-
-# regions expanded or not depending on the value of this hash
-my %text_macros = (
- 'iftex' => 0,
- 'ignore' => 0,
- 'menu' => 0,
- 'ifplaintext' => 0,
- 'ifinfo' => 0,
- 'ifxml' => 0,
- 'ifhtml' => 0,
- 'ifdocbook' => 0,
- 'html' => 0,
- 'tex' => 0,
- 'xml' => 0,
- 'titlepage' => 1,
- 'documentdescription' => 1,
- 'copying' => 1,
- 'ifnothtml' => 1,
- 'ifnottex' => 1,
- 'ifnotplaintext' => 1,
- 'ifnotinfo' => 1,
- 'ifnotxml' => 1,
- 'ifnotdocbook' => 1,
- 'direntry' => 0,
- 'verbatim' => 'raw',
- 'ifclear' => 'value',
- 'ifset' => 'value' ,
- );
-
-foreach my $key (keys(%text_macros))
-{
- unless ($text_macros{$key} eq 'raw')
- {
- $no_line_macros{$key} = 1;
- $no_line_macros{"end $key"} = 1;
- }
-}
-
-# 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 #
-# #
-#---############################################################################
-
-#
-# flush stdout and stderr after every write
-#
-select(STDERR);
-$| = 1;
-select(STDOUT);
-$| = 1;
-
-my $I = \&Texi2HTML::I18n::get_string;
-
-my $T2H_USER; # user running the script
-my $documentdescription; # text in @documentdescription
-
-# shorthand for Texi2HTML::Config::VERBOSE
-my $T2H_VERBOSE;
-my $T2H_DEBUG;
-
-sub echo_warn($;$);
-#print STDERR "" . &$I('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_dirs.
-sub locate_init_file($;$$)
-{
- my $file = shift;
- my $all_files = shift;
- my $directories = shift;
-
- $directories = \@texi2html_config_dirs if !defined($directories);
-
- 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);
- return (Texi2HTML::Config::load($file));
- }
- else
- {
- print STDERR "$ERROR Error: can't read init file $init_file\n";
- return 0;
- }
-}
-
-my $cmd_line_lang = 0; # 1 if lang was succesfully set by the command line
- # in that case @documentlanguage is ignored.
-my $lang_set = 0; # 1 if lang was set
-
-#
-# called on -lang
-sub set_document_language ($;$$)
-{
- my $lang = shift;
- my $from_command_line = shift;
- my $line_nr = shift;
- my @files = locate_init_file("$i18n_dir/$lang", 1);
- foreach my $file (@files)
- {
- Texi2HTML::Config::load($file);
- }
- if (Texi2HTML::I18n::set_language($lang))
- {
- print STDERR "# using '$lang' as document language\n" if ($T2H_VERBOSE);
- $Texi2HTML::Config::LANG = $lang;
- $lang_set = 1;
- $cmd_line_lang = 1 if ($from_command_line);
- if (!$Texi2HTML::Config::TEST)
- {
- print STDERR "# Setting date in $Texi2HTML::Config::LANG\n" if ($T2H_DEBUG);
- $Texi2HTML::THISDOC{'today'} = Texi2HTML::I18n::pretty_date($Texi2HTML::Config::LANG); # 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'};
- }
- else
- {
- echo_error ("Language specs for '$lang' do not exists. Reverting to '$Texi2HTML::Config::LANG'", $line_nr);
- }
-}
-
-# used to manage expanded sections from the command line
-sub set_expansion($$)
-{
- my $region = shift;
- my $set = shift;
- $set = 1 if (!defined($set));
- if ($set)
- {
- push (@Texi2HTML::Config::EXPAND, $region) unless (grep {$_ eq $region} @Texi2HTML::Config::EXPAND);
- }
- else
- {
- @Texi2HTML::Config::EXPAND = grep {$_ ne $region} @Texi2HTML::Config::EXPAND;
- }
-}
-
-
-# find the encoding alias.
-# with encoding support (USE_UNICODE), may return undef if no alias was found
-sub encoding_alias($)
-{
- my $encoding = shift;
- return $encoding if (!defined($encoding) or $encoding eq '');
- if ($Texi2HTML::Config::USE_UNICODE)
- {
- if (! Encode::resolve_alias($encoding))
- {
- echo_warn("Encoding $encoding unknown");
- return undef;
- }
- print STDERR "# Using encoding " . Encode::resolve_alias($encoding) . "\n"
- if ($T2H_VERBOSE);
- return Encode::resolve_alias($encoding);
- }
- else
- {
- echo_warn("No alias searched for encoding");
- return $encoding;
- }
-}
-
-# setup hashes used for html manual cross references in texinfo
-my %cross_ref_texi_map = %Texi2HTML::Config::texi_map;
-
-$cross_ref_texi_map{'enddots'} = '...';
-
-my %cross_ref_simple_map_texi = %Texi2HTML::Config::simple_map_texi;
-my %cross_ref_style_map_texi = ();
-my %cross_transliterate_style_map_texi = ();
-
-my %cross_transliterate_texi_map = %cross_ref_texi_map;
-
-foreach my $command (keys(%Texi2HTML::Config::style_map_texi))
-{
- $cross_ref_style_map_texi{$command} = {};
- $cross_transliterate_style_map_texi{$command} = {};
- foreach my $key (keys (%{$Texi2HTML::Config::style_map_texi{$command}}))
- {
-#print STDERR "$command, $key, $style_map_texi{$command}->{$key}\n";
- $cross_ref_style_map_texi{$command}->{$key} =
- $Texi2HTML::Config::style_map_texi{$command}->{$key};
- $cross_transliterate_style_map_texi{$command}->{$key} =
- $Texi2HTML::Config::style_map_texi{$command}->{$key};
- }
-}
-
-$cross_ref_simple_map_texi{"\n"} = ' ';
-$cross_ref_simple_map_texi{"*"} = ' ';
-
-my %nodes = (); # nodes hash. The key is the texi node name
-my %cross_reference_nodes = (); # normalized node names arrays
-
-# This function is used to construct link names from node names as
-# specified for texinfo
-sub cross_manual_links()
-{
- print STDERR "# Doing ".scalar(keys(%nodes))." cross manual links\n"
- if ($T2H_DEBUG);
- my $normal_text_kept = $Texi2HTML::Config::normal_text;
- $::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;
- $Texi2HTML::Config::normal_text = \&Texi2HTML::Config::t2h_cross_manual_normal_text;
-
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- #print STDERR "CROSS_MANUAL:$key,$node\n";
- next if ($node->{'index_page'});
- 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 ($Texi2HTML::Config::USE_UNICODE)
- {
- $node->{'cross_manual_target'} = Unicode::Normalize::NFC($node->{'cross_manual_target'});
- if ($Texi2HTML::Config::TRANSLITERATE_NODE 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})
- {
- $node_seen = $other_node;
- last if ($nodes{$other_node}->{'seen'})
- }
- echo_error("Node equivalent with `$node->{'texi'}' allready used `$node_seen'");
- push @{$other_node_array}, $node->{'texi'};
- }
- else
- {
- push @{$cross_reference_nodes{$node->{'cross_manual_target'}}}, $node->{'texi'};
- }
- }
- }
- }
-
-
- if ($Texi2HTML::Config::TRANSLITERATE_NODE 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;
-
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- next if ($node->{'index_page'});
- if (defined($node->{'texi'}))
- {
- $node->{'cross_manual_file'} = remove_texi($node->{'texi'});
- $node->{'cross_manual_file'} = unicode_to_protected(unicode_to_transliterate($node->{'cross_manual_file'})) if ($Texi2HTML::Config::USE_UNICODE);
- }
- }
- }
-
- $Texi2HTML::Config::normal_text = $normal_text_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;
-}
-
-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)
- {
- if (exists($Texi2HTML::Config::ascii_character_map{$1}))
- {
- $result .= '_' . lc($Texi2HTML::Config::ascii_character_map{$1});
- }
- else
- {
- $result .= '_' . lc(sprintf("%04x",ord($1)));
- }
- }
- 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;
- my $result = '';
- while ($text ne '')
- {
- if ($text =~ s/^([A-Za-z0-9 ]+)//o)
- {
- $result .= $1;
- }
- elsif ($text =~ s/^(.)//o)
- {
- if (exists($Texi2HTML::Config::ascii_character_map{$1}))
- {
- $result .= $1;
- }
- elsif (exists($Texi2HTML::Config::transliterate_map{uc(sprintf("%04x",ord($1)))}))
- {
- $result .= $Texi2HTML::Config::transliterate_map{uc(sprintf("%04x",ord($1)))};
- }
- elsif (exists($Texi2HTML::Config::unicode_diacritical{uc(sprintf("%04x",ord($1)))}))
- {
- $result .= '';
- }
- else
- {
- if ($Texi2HTML::Config::USE_UNIDECODE)
- {
- $result .= unidecode($1);
- }
- else
- {
- $result .= $1;
- }
- }
- }
- else
- {
- print STDERR "Bug: unknown character in cross ref transliteration (likely in infinite loop)\n";
- sleep 1;
- }
- }
- return $result;
-}
-
-# 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";
- $::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 ($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;
- $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;
- $::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);
-}
-
-# 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 => \$Texi2HTML::Config::DOCTYPE,
- 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'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::MACRO_EXPAND,
- verbose => 'output macro expanded source in <file>',
-};
-
-$T2H_OPTIONS -> {'expand'} =
-{
- type => '=s',
- linkage => sub {set_expansion($_[1], 1);},
- verbose => 'Expand info|tex|none section of texinfo source',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'no-expand'} =
-{
- type => '=s',
- linkage => sub {set_expansion ($_[1], 0);},
- verbose => 'Don\'t expand the given section of texinfo source',
-};
-
-$T2H_OPTIONS -> {'noexpand'} =
-{
- type => '=s',
- linkage => $T2H_OPTIONS->{'no-expand'}->{'linkage'},
- verbose => $T2H_OPTIONS->{'no-expand'}->{'verbose'},
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'ifhtml'} =
-{
- type => '!',
- linkage => sub { set_expansion('html', $_[1]); },
- verbose => "expand ifhtml and html sections",
-};
-
-$T2H_OPTIONS -> {'ifinfo'} =
-{
- type => '!',
- linkage => sub { set_expansion('info', $_[1]); },
- verbose => "expand ifinfo",
-};
-
-$T2H_OPTIONS -> {'ifxml'} =
-{
- type => '!',
- linkage => sub { set_expansion('xml', $_[1]); },
- verbose => "expand ifxml and xml sections",
-};
-
-$T2H_OPTIONS -> {'ifdocbook'} =
-{
- type => '!',
- linkage => sub { set_expansion('docbook', $_[1]); },
- verbose => "expand ifdocbook and docbook sections",
-};
-
-$T2H_OPTIONS -> {'iftex'} =
-{
- type => '!',
- linkage => sub { set_expansion('tex', $_[1]); },
- verbose => "expand iftex and tex sections",
-};
-
-$T2H_OPTIONS -> {'ifplaintext'} =
-{
- type => '!',
- linkage => sub { set_expansion('plaintext', $_[1]); },
- verbose => "expand ifplaintext sections",
-};
-
-$T2H_OPTIONS -> {'invisible'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::INVISIBLE_MARK,
- verbose => 'use text in invisble anchor',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'iso'} =
-{
- type => 'iso',
- linkage => \$Texi2HTML::Config::USE_ISO,
- verbose => 'if set, ISO8859 characters are used for special symbols (like copyright, etc)',
- 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'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::NUMBER_SECTIONS,
- verbose => 'use numbered sections',
-};
-
-$T2H_OPTIONS -> {'use-nodes'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::USE_NODES,
- verbose => 'use nodes for sectionning',
-};
-
-$T2H_OPTIONS -> {'node-files'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::NODE_FILES,
- verbose => 'produce one file per node for cross references'
-};
-
-$T2H_OPTIONS -> {'separated-footnotes'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SEPARATED_FOOTNOTES,
- verbose => 'footnotes on a separated page',
- noHelp => 1,
-};
-
-$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 -> {'sec-nav'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::SECTION_NAVIGATION,
- verbose => 'output navigation panels 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'} =
-{
- type => '=s',
- linkage => \$Texi2HTML::Config::OUT,
- verbose => 'output goes to $s (directory if split)',
-};
-
-$T2H_OPTIONS -> {'no-validate'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::NOVALIDATE,
- verbose => 'suppress node cross-reference validation',
-};
-
-$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'} =
-{
- type => '!',
- linkage=> \$Texi2HTML::Config::VERBOSE,
- verbose => 'print progress info to stdout',
-};
-
-$T2H_OPTIONS -> {'lang'} =
-{
- type => '=s',
- linkage => sub {set_document_language($_[1], 1)},
- verbose => 'use $s as document language (ISO 639 encoding)',
-};
-
-$T2H_OPTIONS -> {'ignore-preamble-text'} =
-{
- type => '!',
- linkage => \$Texi2HTML::Config::IGNORE_PREAMBLE_TEXT,
- verbose => 'if set, ignore the text before @node and sectionning 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{$_[1]} = 1;},
- verbose => 'equivalent to Texinfo "@set $s 1"',
- noHelp => 1,
-};
-
-$T2H_OPTIONS -> {'U'} =
-{
- type => '=s',
- linkage => sub {delete $value{$_[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'
-};
-
-##
-## obsolete cmd line options
-##
-my $T2H_OBSOLETE_OPTIONS;
-
-$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 -> {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 => \$Texi2HTML::Config::SECTION_NAVIGATION,
- verbose => 'obsolete, use "-sec-nav" 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::SECTION_NAVIGATION = 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 "-expand info" instead',
- noHelp => 2,
-};
-$T2H_OBSOLETE_OPTIONS -> {expandtex} =
-{
- type => '!',
- linkage => sub {push @Texi2HTML::Config::EXPAND, 'tex';},
- verbose => 'obsolete, use "-expand tex" instead',
- noHelp => 2,
-};
-$T2H_OBSOLETE_OPTIONS -> {monolithic} =
-{
- type => '!',
- linkage => sub {$Texi2HTML::Config::SPLIT = '';},
- verbose => 'obsolete, use "-split no" 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 => \$Texi2HTML::Config::SECTION_NAVIGATION,
- verbose => 'obsolete, use --sec-nav instead',
- noHelp => 2,
-};
-
-$T2H_OBSOLETE_OPTIONS -> {verbose} =
-{
- type => '!',
- linkage=> \$Texi2HTML::Config::VERBOSE,
- verbose => 'obsolete, use -Verbose instead',
- noHelp => 2
-};
-
-# read initialzation from $sysconfdir/texi2htmlrc or $HOME/.texi2htmlrc
-# (this is obsolete)
-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);
-}
-
-#
-# %value hold texinfo variables, see also -D, -U, @set and @clear.
-# we predefine html (the output format) and texi2html (the translator)
-%value =
- (
- 'html' => 1,
- 'texi2html' => $THISVERSION,
- );
-
-#+++############################################################################
-# #
-# parse command-line options
-# #
-#---############################################################################
-
-
-my $T2H_USAGE_TEXT = <<EOT;
-Usage: texi2html [OPTIONS] TEXINFO-FILE
-Translates Texinfo source documentation to HTML.
-EOT
-my $T2H_FAILURE_TEXT = <<EOT;
-Try 'texi2html --help' for usage instructions.
-EOT
-
-my $options = new Getopt::MySimple;
-
-$T2H_OPTIONS -> {'help'} =
-{
- 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;
-
-# 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;
- }
-}
-
-#
-# 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);
- }
-}
-
-# $T2H_DEBUG and $T2H_VERBOSE are shorthands
-$T2H_DEBUG = $Texi2HTML::Config::DEBUG;
-$T2H_VERBOSE = $Texi2HTML::Config::VERBOSE;
-
-$Texi2HTML::THISDOC{'debug_l2h'} = 0;
-$Texi2HTML::THISDOC{'debug_l2h'} = 1 if ($T2H_DEBUG & $DEBUG_L2H);
-
-
-#+++############################################################################
-# #
-# evaluation of cmd line options
-# #
-#---############################################################################
-
-# 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 $simple ('ctrl', 'w', 'url','uref','indicateurl','email')
-#{
-# $style_type{$simple} = 'simple_style';
-#}
-foreach my $special ('footnote', 'ref', 'xref', 'pxref', 'inforef', 'anchor', 'image')
-{
- 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);
-
-unshift @texi2html_config_dirs, @Texi2HTML::Config::CONF_DIRS;
-# correct %text_macros based on command line and init
-# variables
-$text_macros{'menu'} = 1 if ($Texi2HTML::Config::SHOW_MENU);
-
-foreach my $expanded (@Texi2HTML::Config::EXPAND)
-{
- $text_macros{"if$expanded"} = 1 if (exists($text_macros{"if$expanded"}));
- next unless (exists($text_macros{$expanded}));
- if (grep {$_ eq $expanded} @raw_regions)
- {
- $text_macros{$expanded} = 'raw';
- }
- else
- {
- $text_macros{$expanded} = 1;
- }
-}
-
-# handle ifnot regions
-foreach my $region (keys (%text_macros))
-{
- next if ($region =~ /^ifnot/);
- if ($text_macros{$region} and $region =~ /^if(\w+)$/)
- {
- $text_macros{"ifnot$1"} = 0;
- }
-}
-
-if ($T2H_VERBOSE)
-{
- print STDERR "# Expanded: ";
- foreach my $text_macro (keys(%text_macros))
- {
- print STDERR "$text_macro " if ($text_macros{$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 = '1';
-}
-
-# no user provided nor configured, run time test
-if ($Texi2HTML::Config::USE_UNICODE eq '@' .'USE_UNICODE@')
-{
- $Texi2HTML::Config::USE_UNICODE = 1;
- eval {
- require Encode;
- require Unicode::Normalize;
- Encode->import('encode');
- };
- $Texi2HTML::Config::USE_UNICODE = 0 if ($@);
-}
-elsif ($Texi2HTML::Config::USE_UNICODE)
-{# user provided or set by configure
- require Encode;
- require Unicode::Normalize;
- Encode->import('encode');
-}
-
-# no user provided USE_UNIDECODE, use configure provided
-if (!defined($Texi2HTML::Config::USE_UNIDECODE))
-{
- $Texi2HTML::Config::USE_UNIDECODE = '0';
-}
-
-# no user provided nor configured, run time test
-if ($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 ($@);
-}
-elsif ($Texi2HTML::Config::USE_UNIDECODE)
-{# user provided or set by configure
- 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)
- {
- $cross_ref_texi_map{$key} = chr(hex($Texi2HTML::Config::unicode_map{$key}));
- if (($Texi2HTML::Config::TRANSLITERATE_NODE and !$Texi2HTML::Config::USE_UNIDECODE)
- and (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_ref_texi_map{$key} = '_' . lc($Texi2HTML::Config::unicode_map{$key});
- if ($Texi2HTML::Config::TRANSLITERATE_NODE)
- {
- 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_NODE
- and ! $Texi2HTML::Config::USE_UNIDECODE)
-{
- 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;
- }
- if ($Texi2HTML::Config::TRANSLITERATE_NODE and
- !($Texi2HTML::Config::USE_UNICODE and $Texi2HTML::Config::USE_UNIDECODE))
- {
- $cross_transliterate_style_map_texi{$key}->{'function'} = \&Texi2HTML::Config::t2h_transliterate_cross_manual_accent;
- }
- }
-}
-
-#
-# file name business
-#
-
-
-my $docu_dir; # directory of the document
-my $docu_name; # basename of the document
-my $docu_rdir; # directory for the output
-my $docu_ext = $Texi2HTML::Config::EXTENSION; # extension
-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)
-
-die "Need exactly one file to translate\n$T2H_FAILURE_TEXT" unless @ARGV == 1;
-my $docu = shift(@ARGV);
-if ($docu =~ /(.*\/)/)
-{
- chop($docu_dir = $1);
- $docu_name = $docu;
- $docu_name =~ s/.*\///;
-}
-else
-{
- $docu_dir = '.';
- $docu_name = $docu;
-}
-unshift(@Texi2HTML::Config::INCLUDE_DIRS, $docu_dir);
-unshift(@Texi2HTML::Config::INCLUDE_DIRS, @Texi2HTML::Config::PREPEND_DIRS);
-$docu_name =~ s/\.te?x(i|info)?$//;
-$docu_name = $Texi2HTML::Config::PREFIX if $Texi2HTML::Config::PREFIX;
-
-# 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 = '';
-}
-
-# Something like backward compatibility
-if ($Texi2HTML::Config::SPLIT and $Texi2HTML::Config::SUBDIR)
-{
- $Texi2HTML::Config::OUT = $Texi2HTML::Config::SUBDIR;
-}
-
-# subdir
-
-die "output to STDOUT and split or frames incompatible\n"
- if (($Texi2HTML::Config::SPLIT or $Texi2HTML::Config::FRAMES) and ($Texi2HTML::Config::OUT eq '-'));
-
-if ($Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT eq ''))
-{
- $Texi2HTML::Config::OUT = $docu_name;
-}
-
-if ($Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT eq '.'))
-{# This is to avoid trouble with latex2html
- $Texi2HTML::Config::OUT = '';
-}
-
-$docu_rdir = '';
-
-if ($Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT ne ''))
-{
- $Texi2HTML::Config::OUT =~ s|/*$||;
- $docu_rdir = "$Texi2HTML::Config::OUT/";
- unless (-d $Texi2HTML::Config::OUT)
- {
- if ( mkdir($Texi2HTML::Config::OUT, oct(755)))
- {
- print STDERR "# created directory $Texi2HTML::Config::OUT\n" if ($T2H_VERBOSE);
- }
- else
- {
- die "$ERROR can't create directory $Texi2HTML::Config::OUT\n";
- }
- }
- print STDERR "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE);
-}
-elsif (! $Texi2HTML::Config::SPLIT and ($Texi2HTML::Config::OUT ne ''))
-{
- if ($Texi2HTML::Config::OUT =~ m|(.*)/|)
- {# there is a leading directories
- $docu_rdir = "$1/";
- unless (-d $docu_rdir)
- {
- if ( mkdir($docu_rdir, oct(755)))
- {
- print STDERR "# created directory $docu_rdir\n" if ($T2H_VERBOSE);
- }
- else
- {
- die "$ERROR can't create directory $docu_rdir\n";
- }
- }
- 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);
- $docu_rdir = '';
- }
-}
-
-# 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 '');
- die "$ERROR $docu_rdir not writable\n";
-}
-
-# relative path leading to the working directory from the document directory
-my $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 = ();
- 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));
- $path_to_working_dir =~ s|.*/||;
- $path_to_working_dir .= '/' unless($path_to_working_dir eq '');
-}
-
-# extension
-if ($Texi2HTML::Config::SHORTEXTN)
-{
- $docu_ext = "htm";
-}
-
-$docu_doc = $docu_name . ($docu_ext ? ".$docu_ext" : ""); # document's contents
-if ($Texi2HTML::Config::SPLIT)
-{
- $docu_top = $Texi2HTML::Config::TOP_FILE || $docu_doc;
-
- 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));
- $docu_toc = $Texi2HTML::Config::TOC_FILE || $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
-{
- if ($Texi2HTML::Config::OUT)
- {
- $docu_doc = $Texi2HTML::Config::OUT;
- $docu_doc =~ s|.*/||;
- }
- if (defined $Texi2HTML::Config::element_file_name)
- {
- my $docu_name = &$Texi2HTML::Config::element_file_name
- (undef, "doc", $docu_name);
- $docu_top = $docu_name if (defined($docu_name));
- }
- $docu_toc = $docu_foot = $docu_stoc = $docu_about = $docu_top = $docu_doc;
-}
-
-# Note that file extension has already been added here.
-
-# 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{'extension'} = $docu_ext;
-# FIXME document that
-$Texi2HTML::THISDOC{'out_dir'} = $docu_rdir;
-$Texi2HTML::THISDOC{'file_base_name'} = $docu_name;
-
-
-my $docu_doc_file = "$docu_rdir$docu_doc";
-my $docu_toc_file = "$docu_rdir$docu_toc";
-my $docu_stoc_file = "$docu_rdir$docu_stoc";
-my $docu_foot_file = "$docu_rdir$docu_foot";
-my $docu_about_file = "$docu_rdir$docu_about";
-my $docu_top_file = "$docu_rdir$docu_top";
-
-my $docu_frame_file = "$docu_rdir${docu_name}_frame";
-$docu_frame_file .= ".$docu_ext" if $docu_ext;
-my $docu_toc_frame_file = "$docu_rdir${docu_name}_toc_frame";
-$docu_toc_frame_file .= ".$docu_ext" if $docu_ext;
-
-#
-# _foo: internal variables to track @foo
-#
-foreach my $key ('_author', '_title', '_subtitle', '_shorttitlepage',
- '_settitle', '_setfilename', '_shorttitle', '_titlefont')
-{
- $value{$key} = ''; # prevent -w warnings
-}
-my $index; # ref on a hash for the index entries
-my %indices = (); # hash of indices names containing
- #[ $pages, $entries ] (page indices and
- # raw index entries)
-my @index_labels = (); # array corresponding with @?index commands
- # constructed during pass_texi, used to
- # put labels in pass_text
-#
-# initial counters
-#
-my $foot_num = 0;
-my $relative_foot_num = 0;
-my $idx_num = 0;
-my $sec_num = 0;
-my $anchor_num = 0;
-
-#
-# can I use ISO8859 characters? (HTML+)
-#
-if ($Texi2HTML::Config::USE_ISO)
-{
- foreach my $thing (keys(%Texi2HTML::Config::iso_symbols))
- {
- next unless exists ($::things_map_ref->{$thing});
- $::things_map_ref->{$thing} = $Texi2HTML::Config::iso_symbols{$thing};
- $::pre_map_ref->{$thing} = $Texi2HTML::Config::iso_symbols{$thing};
- $Texi2HTML::Config::simple_format_texi_map{$thing} = $Texi2HTML::Config::iso_symbols{$thing};
- }
- # we don't override the user defined quote, but beware that this works
- # only if the hardcoded defaults, '`' and "'" match with the defaults
- # in the default init file
- $Texi2HTML::Config::OPEN_QUOTE_SYMBOL = $Texi2HTML::Config::iso_symbols{'`'}
- if (exists($Texi2HTML::Config::iso_symbols{'`'}) and ($Texi2HTML::Config::OPEN_QUOTE_SYMBOL eq '`'));
- $Texi2HTML::Config::CLOSE_QUOTE_SYMBOL = $Texi2HTML::Config::iso_symbols{"'"}
- if (exists($Texi2HTML::Config::iso_symbols{"'"}) and ($Texi2HTML::Config::CLOSE_QUOTE_SYMBOL eq "'"));
-}
-
-
-
-# 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 = [];
- while (<$fh>)
- {
- #print STDERR "Line: $_";
- if ($in_rules)
- {
- push @$rules, $_;
- 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: $_";
- if ($in_comment)
- {
- if (s/^(.*?\*\/)//)
- {
- $text .= $1;
- $in_comment = 0;
- }
- else
- {
- push @$imports, $text . $_;
- last;
- }
- }
- elsif (!$in_string and s/^\///)
- { # what do '\' do here ?
- if (s/^\*//)
- {
- $text .= '/*';
- $in_comment = 1;
- }
- else
- {
- push (@$imports, $text. "\n") if ($text ne '');
- push (@$rules, '/' . $_);
- $in_rules = 1;
- last;
- }
- }
- elsif (!$in_string and $in_import and s/^([\"\'])//)
- { # strings outside of import start rules
- $text .= "$1";
- $in_string = quotemeta("$1");
- }
- elsif ($in_string and s/^(\\$in_string)//)
- {
- $text .= $1;
- }
- elsif ($in_string and s/^($in_string)//)
- {
- $text .= $1;
- $in_string = 0;
- }
- elsif ((! $in_string and !$in_import) and (s/^([\\]?\@import)$// or s/^([\\]?\@import\s+)//))
- {
- $text .= $1;
- $in_import = 1;
- }
- elsif (!$in_string and $in_import and s/^\;//)
- {
- $text .= ';';
- $in_import = 0;
- }
- elsif (($in_import or $in_string) and s/^(.)//)
- {
- $text .= $1;
- }
- elsif (!$in_import and s/^([^\s])//)
- {
- push (@$imports, $text. "\n") if ($text ne '');
- push (@$rules, $1 . $_);
- $in_rules = 1;
- last;
- }
- elsif (s/^(\s)//)
- {
- $text .= $1;
- }
- elsif ($_ eq '')
- {
- push (@$imports, $text);
- last;
- }
- }
- }
- warn "$WARN string not closed in css file $file\n" if ($in_string);
- warn "$WARN comment not closed in css file $file\n" if ($in_comment);
- warn "$WARN \@import not finished in css file $file\n" if ($in_import and !$in_comment and !$in_string);
- return ($imports, $rules);
-}
-
-
-
-# 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))
- {
- warn "Cannot open html refs config file ${file}: $!";
- next;
- }
- while (<HTMLXREF>)
- {
- my $line = $_;
- s/[#]\s.*//;
- s/^\s*//;
- next if /^\s*$/;
- my @htmlxref = split /\s+/;
- my $manual = shift @htmlxref;
- my $split_or_mono = shift @htmlxref;
- if (!defined($split_or_mono) or ($split_or_mono ne 'split' and $split_or_mono ne 'mono'))
- {
- echo_warn("Bad line in $file: $line");
- next;
- }
- my $href = shift @htmlxref;
- next if (exists($Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split_or_mono}) and exists($Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split_or_mono}->{'href'}));
-
- if (defined($href))
- {
- $href =~ s/\/*$// if ($split_or_mono eq 'split');
- $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split_or_mono}->{'href'} = $href;
- }
- else
- {
- $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split_or_mono} = {};
- }
- }
- close (HTMLXREF);
-}
-
-if ($T2H_DEBUG)
-{
- foreach my $manual (keys(%{$Texi2HTML::THISDOC{'htmlxref'}}))
- {
- foreach my $split ('split', 'mono')
- {
- my $href = 'NO';
- next unless (exists($Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split}));
- $href = $Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split}->{'href'} if
- exists($Texi2HTML::THISDOC{'htmlxref'}->{$manual}->{$split}->{'href'});
- print STDERR "$manual: $split, href: $href\n";
- }
- }
-}
-
-print STDERR "# reading from $docu\n" if $T2H_VERBOSE;
-
-#+++###########################################################################
-# #
-# Pass texi: read source, handle variable, ignored text, #
-# #
-#---###########################################################################
-
-my @fhs = (); # hold the file handles to read
-my $input_spool; # spooled lines to read
-my @lines = (); # whole document
-my @lines_numbers = (); # line number, originating file associated with
- # whole document
-my $macros; # macros. reference on a hash
-my %info_enclose; # macros defined with definfoenclose
-my $texi_line_number = { 'file_name' => '', 'line_nr' => 0, 'macro' => '' };
-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'}));
-}
-
-my @first_lines = ();
-
-sub pass_texi()
-{
- my $first_lines = 1; # is it the first lines
- my $state = {};
- # holds the informations about the context
- # to pass it down to the functions
- initialise_state_texi($state);
- my @stack;
- my $text;
- INPUT_LINE: while (defined($_ = next_line($texi_line_number)))
- {
- #
- # remove the lines preceding \input or an @-command
- #
- if ($first_lines)
- {
- if (/^\\input/)
- {
- push @first_lines, $_;
- $first_lines = 0;
- next;
- }
- if (/^\s*\@/)
- {
- $first_lines = 0;
- }
- else
- {
- push @first_lines, $_;
- next;
- }
- }
- #print STDERR "PASS_TEXI($texi_line_number->{'line_nr'})$_";
- my $chomped_line = $_;
- if (scan_texi ($_, \$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_structure(\$text, \@stack, $state, $texi_line_number);
- #dump_stack(\$text, \@stack, $state);
- }
- next if (@stack);
- $_ = $text;
- $text = '';
- if (!defined($_))
- {# FIXME: remove the error message if it is reported too often
- print STDERR "# \$_ undefined after scan_texi. This may be a bug, or not.\n";
- print STDERR "# Report (with texinfo file) if you want, otherwise ignore that message.\n";
- next unless ($state->{'bye'});
- }
- push @lines, split_lines($_);
- 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_structure(\$text, \@stack, $state, $texi_line_number);
- push @lines, split_lines($text);
- print STDERR "# end of pass texi\n" if $T2H_VERBOSE;
-}
-
-# return the line after preserving things according to misc_command map.
-sub preserve_command($$)
-{
- my $line = shift;
- my $macro = shift;
- my $text = '';
- my $args = '';
- my $skip_spec = '';
- my $arg_spec = '';
-
- $skip_spec = $Texi2HTML::Config::misc_command{$macro}->{'skip'}
- if (defined($Texi2HTML::Config::misc_command{$macro}->{'skip'}));
- $arg_spec = $Texi2HTML::Config::misc_command{$macro}->{'arg'}
- if (defined($Texi2HTML::Config::misc_command{$macro}->{'arg'}));
-
- if ($arg_spec eq 'line')
- {
- $text .= $line;
- $args .= $line;
- $line = '';
- }
- elsif ($arg_spec)
- {
- my $arg_nr = $Texi2HTML::Config::misc_command{$macro}->{'arg'};
- while ($arg_nr)
- {
- $line =~ s/(\s+\S*)//o;
- $text .= $1 if defined($1);
- $args .= $1 if defined($1);
- $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);
-}
-
-#+++###########################################################################
-# #
-# Pass structure: parse document structure #
-# #
-#---###########################################################################
-
-# This is a virtual element for things appearing before @node and
-# sectionning commands
-my $element_before_anything =
-{
- 'before_anything' => 1,
- 'place' => [],
- 'texi' => 'VIRTUAL ELEMENT BEFORE ANYTHING',
-};
-
-# This is a place for index entries, anchors and so on appearing in
-# copying or documentdescription
-my $region_place = [];
-
-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->{'sectionning_base'} = 0; # current base sectionning level
- $state->{'table_stack'} = [ "no table" ]; # a stack of opened tables/lists
- if (exists($state->{'region_lines'}) and !defined($state->{'region_lines'}))
- {
- delete ($state->{'region_lines'});
- print STDERR "Bug: state->{'region_lines'} exists but undef.\n";
- }
-}
-
-my @doc_lines = (); # whole document
-my @doc_numbers = (); # whole document line numbers and file names
-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 = (); # sectionning 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
- # headings are there, although they are not elements
-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
-
-# This is a virtual element used to have the right hrefs for index entries
-# and anchors in footnotes
-my $footnote_element =
-{
- 'id' => 'SEC_Foot',
- 'file' => $docu_foot,
- 'footnote' => 1,
- 'element' => 1,
- 'place' => [],
-};
-
-my %content_element =
-(
- 'contents' => { 'id' => 'SEC_Contents', 'contents' => 1, 'texi' => '_contents' },
- 'shortcontents' => { 'id' => 'SEC_Overview', 'shortcontents' => 1, 'texi' => '_shortcontents' },
-);
-
-#my $do_contents; # do table of contents if true
-#my $do_scontents; # do short table of contents if true
-my $novalidate = $Texi2HTML::Config::NOVALIDATE; # @novalidate appeared
-
-sub pass_structure()
-{
- my $state = {};
- # holds the informations about the context
- # to pass it down to the functions
- initialise_state_structure($state);
- $state->{'element'} = $element_before_anything;
- $state->{'place'} = $element_before_anything->{'place'};
- my @stack;
- my $text;
- my $line_nr;
-
- while (@lines)
- {
- $_ = shift @lines;
- my $chomped_line = $_;
- if (!chomp($chomped_line) and @lines)
- {
- $lines[0] = $_ . $lines[0];
- next;
- }
- $line_nr = shift (@lines_numbers);
- #print STDERR "PASS_STRUCTURE: $_";
- if (!$state->{'raw'} and !$state->{'verb'})
- {
- my $tag = '';
- if (/^\s*\@(\w+)\b/)
- {
- $tag = $1;
- }
-
- #
- # analyze the tag
- #
- if ($tag and $tag eq 'node' or defined($sec2level{$tag}) or $tag eq 'printindex')
- {
- $_ = substitute_texi_line($_);
- if ($tag eq 'node' or defined($sec2level{$tag}))
- {# in pass structure node shouldn't appear in formats
- close_stack_texi_structure(\$text, \@stack, $state, $line_nr);
- if (exists($state->{'region_lines'}))
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}}, split_lines($text);
- close_region($state);
- }
- else
- {
- push @doc_lines, split_lines($text);
- }
- $text = '';
- }
- if ($tag eq 'node')
- {
- my $node_ref;
- my $auto_directions;
- $auto_directions = 1 unless (/,/o);
- my ($node, $node_next, $node_prev, $node_up) = split(/,/, $_);
- $node =~ s/^\@node\s+// if ($node);
- if ($node)
- {
- $node = normalise_space($node);
- if (exists($nodes{$node}) and defined($nodes{$node})
- and $nodes{$node}->{'seen'})
- {
- echo_error ("Duplicate node found: $node", $line_nr);
- next;
- }
- else
- {
- if (exists($nodes{$node}) and defined($nodes{$node}))
- { # node appeared in a menu
- $node_ref = $nodes{$node};
- }
- else
- {
- my $first;
- $first = 1 if (!defined($node_ref));
- $node_ref = {};
- $node_first = $node_ref if ($first);
- $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'} = [];
- merge_element_before_anything($node_ref);
- $node_ref->{'index_names'} = [];
- $state->{'place'} = $node_ref->{'current_place'};
- $state->{'element'} = $node_ref;
- $state->{'after_element'} = 1;
- $state->{'node_ref'} = $node_ref;
- # 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
- echo_warn ("Top node allready exists", $line_nr);
- #warn "$WARN Top node allready exists\n";
- }
- }
- unless (@nodes_list)
- {
- $node_ref->{'first'} = 1;
- }
- push (@nodes_list, $node_ref);
- push @all_elements, $node_ref;
- }
- }
- else
- {
- echo_error ("Node is undefined: $_ (eg. \@node NODE-NAME, NEXT, PREVIOUS, UP)", $line_nr);
- next;
- }
-
- if ($node_next)
- {
- $node_ref->{'node_next'} = normalise_node($node_next);
- }
- if ($node_prev)
- {
- $node_ref->{'node_prev'} = normalise_node($node_prev);
- }
- if ($node_up)
- {
- $node_ref->{'node_up'} = normalise_node($node_up);
- }
- }
- elsif (defined($sec2level{$tag}))
- { # section or heading
- if (/^\@$tag\s*(.*)$/)
- {
- my $name = normalise_space($1);
- $name = '' if (!defined($name));
- my $level = $sec2level{$tag};
- $state->{'after_element'} = 1;
- my ($docid, $num);
- if($tag ne 'top')
- {
- $sec_num++;
- $num = $sec_num;
- $docid = "SEC$sec_num";
- }
- else
- {
- $num = 0;
- $docid = "SEC_Top";
- }
- if ($tag !~ /heading/)
- {
- my $section_ref = { 'texi' => $name,
- 'level' => $level,
- 'tag' => $tag,
- 'sec_num' => $num,
- 'section' => 1,
- 'id' => $docid,
- 'seen' => 1,
- 'index_names' => [],
- 'current_place' => [],
- 'place' => []
- };
-
- if ($tag eq 'top')
- {
- $section_ref->{'top'} = 1;
- $section_ref->{'number'} = '';
- $sections{0} = $section_ref;
- $section_top = $section_ref;
- }
- $sections{$num} = $section_ref;
- merge_element_before_anything($section_ref);
- if ($state->{'node_ref'} and !exists($state->{'node_ref'}->{'with_section'}))
- {
- my $node_ref = $state->{'node_ref'};
- $section_ref->{'node_ref'} = $node_ref;
- $section_ref->{'titlefont'} = $node_ref->{'titlefont'};
- $node_ref->{'with_section'} = $section_ref;
- $node_ref->{'top'} = 1 if ($tag eq 'top');
- }
- if (! $name and $level)
- {
- echo_warn ("$tag without name", $line_nr);
- }
- push @sections_list, $section_ref;
- push @all_elements, $section_ref;
- $state->{'element'} = $section_ref;
- $state->{'place'} = $section_ref->{'current_place'};
- 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($level) ref $section_ref, num,id $num,$docid\n $name\n"
- if $T2H_DEBUG & $DEBUG_ELEMENTS;
- }
- else
- {
- my $section_ref = { 'texi' => $name,
- 'level' => $level,
- 'heading' => 1,
- 'tag' => $tag,
- 'tag_level' => $tag,
- 'sec_num' => $sec_num,
- 'id' => $docid,
- 'number' => '' };
- $state->{'element'} = $section_ref;
- push @{$state->{'place'}}, $section_ref;
- $sections{$sec_num} = $section_ref;
- }
- }
- }
- elsif (/^\@printindex\s+(\w+)/)
- {
- unless (@all_elements)
- {
- echo_warn ("Printindex before document beginning: \@printindex $1", $line_nr);
- next;
- }
- delete $state->{'after_element'};
- # $element_index is the first element with index
- $element_index = $all_elements[-1] unless (defined($element_index));
- # associate the index to the element such that the page
- # number is right
- my $placed_elements = [];
- push @{$all_elements[-1]->{'index_names'}}, { 'name' => $1, 'place' => $placed_elements };
- $state->{'place'} = $placed_elements;
- }
- if (exists($state->{'region_lines'}))
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}}, $_;
- }
- else
- {
- push @doc_lines, $_;
- push @doc_numbers, $line_nr;
- }
- next;
- }
- }
- if (scan_structure ($_, \$text, \@stack, $state, $line_nr) and !(exists($state->{'region_lines'})))
- {
- push (@doc_numbers, $line_nr);
- }
- next if (@stack);
- $_ = $text;
- $text = '';
- next if (!defined($_));
- if ($state->{'region_lines'})
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}}, split_lines($_);
- }
- else
- {
- push @doc_lines, split_lines($_);
- }
- }
- if (@stack)
- {# close stack at the end of pass structure
- close_stack_texi_structure(\$text, \@stack, $state, $line_nr);
- if ($text)
- {
- if (exists($state->{'region_lines'}))
- {
- push @{$region_lines{$state->{'region_lines'}->{'format'}}},
- split_lines($text);
- }
- else
- {
- push @doc_lines, split_lines($text);
- }
- }
- }
- echo_warn ("At end of document, $state->{'region_lines'}->{'number'} $state->{'region_lines'}->{'format'} not closed") if (exists($state->{'region_lines'}));
- print STDERR "# end of pass structure\n" if $T2H_VERBOSE;
-}
-
-# 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 = ();
- my $i = 0;
- while ($line)
- {
- $result[$i] = '';
- $line =~ s/^(.*)//;
- $result[$i] .= $1;
- $result[$i] .= "\n" if ($line =~ s/^\n//);
- #print STDERR "$i: $result[$i]";
- $i++;
- }
- return @result;
-}
-
-# handle misc commands and misc command args
-sub misc_command_structure($$$$)
-{
- my $line = shift;
- my $macro = shift;
- my $state = shift;
- my $line_nr = shift;
- my $text;
- my $args;
-
- if ($macro eq 'lowersections')
- {
- my ($sec, $level);
- while (($sec, $level) = each %sec2level)
- {
- $sec2level{$sec} = $level + 1;
- }
- $state->{'sectionning_base'}--;
- }
- elsif ($macro eq 'raisesections')
- {
- my ($sec, $level);
- while (($sec, $level) = each %sec2level)
- {
- $sec2level{$sec} = $level - 1;
- }
- $state->{'sectionning_base'}++;
- }
- elsif (($macro eq 'contents') or ($macro eq 'summarycontents') or ($macro eq 'shortcontents'))
- {
- if ($macro eq 'contents')
- {
- $Texi2HTML::Config::DO_CONTENTS = 1;
- }
- else
- {
- $macro = 'shortcontents';
- $Texi2HTML::Config::DO_SCONTENTS = 1;
- }
- push @{$state->{'place'}}, $content_element{$macro};
- }
- elsif ($macro eq 'detailmenu')
- {
- $state->{'detailmenu'}++;
- }
- elsif ($macro eq 'novalidate')
- {
- $novalidate = 1;
- $Texi2HTML::THISDOC{$macro} = 1;
- }
- elsif (grep {$_ eq $macro} ('settitle','setfilename','shortitle','shorttitlepage')
- and ($line =~ /^\s+(.*)$/))
- {
- $value{"_$macro"} = substitute_texi_line($1);
- }
- elsif (grep {$_ eq $macro} ('author','subtitle','title')
- and ($line =~ /^\s+(.*)$/))
- {
- $value{"_$macro"} .= substitute_texi_line($1)."\n";
- push @{$Texi2HTML::THISDOC{"${macro}s"}}, substitute_texi_line($1);
- }
- elsif ($macro eq 'synindex' || $macro eq 'syncodeindex')
- {
- if ($line =~ /^\s+(\w+)\s+(\w+)/)
- {
- my $index_from = $1;
- my $index_to = $2;
- echo_error ("unknown from index name $index_from in \@$macro", $line_nr)
- unless $index_names{$index_from};
- echo_error ("unknown to index name $index_to in \@$macro", $line_nr)
- unless $index_names{$index_to};
- if ($index_names{$index_from} and $index_names{$index_to})
- {
- if ($macro eq 'syncodeindex')
- {
- $index_names{$index_to}->{'associated_indices_code'}->{$index_from} = 1;
- }
- else
- {
- $index_names{$index_to}->{'associated_indices'}->{$index_from} = 1;
- }
- push @{$Texi2HTML::THISDOC{$macro}}, [$index_from,$index_to];
- }
- }
- else
- {
- echo_error ("Bad $macro line: $line", $line_nr);
- }
- }
- elsif ($macro eq 'defindex' || $macro eq 'defcodeindex')
- {
- if ($line =~ /^\s+(\w+)\s*$/)
- {
- my $name = $1;
- if ($forbidden_index_name{$name})
- {
- echo_error("Reserved index name $name", $line_nr);
- }
- else
- {
- @{$index_names{$name}->{'prefix'}} = ($name);
- $index_names{$name}->{'code'} = 1 if $macro eq 'defcodeindex';
- $index_prefix_to_name{$name} = $name;
- push @{$Texi2HTML::THISDOC{$macro}}, $name;
- }
- }
- else
- {# makeinfo don't warn and even accepts index with empty name
- # and index with numbers only. I reported it on the mailing list
- # this should be fixed in future makeinfo versions.
- echo_error ("Bad $macro line: $line", $line_nr);
- }
- }
- elsif ($macro eq 'documentlanguage')
- {
- if ($line =~ /\s+(\w+)/)
- {
- my $lang = $1;
- set_document_language($lang, 0, $line_nr) if (!$cmd_line_lang && $lang);
- # warning, this is not the language of the document but the one that
- # appear in the texinfo...
- $Texi2HTML::THISDOC{$macro} = $lang;
- }
- }
- elsif ($macro eq 'kbdinputstyle')
- {# makeinfo ignores that with --html. I reported it and it should be
- # fixed in future makeinfo releases
- if ($line =~ /\s+([a-z]+)/)
- {
- if ($1 eq 'code')
- {
- $::style_map_ref->{'kbd'} = $::style_map_ref->{'code'};
- $::style_map_pre_ref->{'kbd'} = $::style_map_pre_ref->{'code'};
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- elsif ($1 eq 'example')
- {
- $::style_map_pre_ref->{'kbd'} = $::style_map_pre_ref->{'code'};
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- elsif ($1 ne 'distinct')
- {
- echo_error ("Unknown argument for \@$macro: $1", $line_nr);
- }
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'paragraphindent')
- {
- if ($line =~ /\s+([0-9]+)/)
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- elsif (($line =~ /\s+(none)[^\w\-]/) or ($line =~ /\s+(asis)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'firstparagraphindent')
- {
- if (($line =~ /\s+(none)[^\w\-]/) or ($line =~ /\s+(insert)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'exampleindent')
- {
- if ($line =~ /^\s+([0-9]+)/)
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- elsif ($line =~ /^\s+(asis)[^\w\-]/)
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'frenchspacing')
- {
- if (($line =~ /^\s+(on)[^\w\-]/) or ($line =~ /^\s+(off)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'footnotestyle')
- {
- if (($line =~ /^\s+(end)[^\w\-]/) or ($line =~ /^\s+(separate)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro 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{$macro} = $possible_arg;
- last;
- }
- }
- unless ($valid_arg)
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'setchapternewpage')
- {
- if (($line =~ /^\s+(on)[^\w\-]/) or ($line =~ /^\s+(off)[^\w\-]/)
- or ($line =~ /^\s+(odd)[^\w\-]/))
- {
- $Texi2HTML::THISDOC{$macro} = $1;
- }
- else
- {
- echo_error ("Bad \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'setcontentsaftertitlepage' or $macro eq 'setshortcontentsaftertitlepage')
- {
- $Texi2HTML::THISDOC{$macro} = 1;
- my $tag = 'contents';
- $tag = 'shortcontents' if ($macro ne 'setcontentsaftertitlepage');
- $content_element{$tag}->{'aftertitlepage'} = 1;
- }
- elsif (grep {$macro eq $_} ('everyheading', 'everyfooting',
- 'evenheading', 'evenfooting', 'oddheading', 'oddfooting'))
- {
- my $arg = $line;
- $arg =~ s/^\s+//;
- $Texi2HTML::THISDOC{$macro} = $arg;
- }
- elsif ($macro eq 'need')
- {
- unless (($line =~ /^\s+([0-9]+(\.[0-9]*)?)[^\w\-]/) or
- ($line =~ /^\s+(\.[0-9]+)[^\w\-]/))
- {
- echo_warn ("Bad \@$macro", $line_nr);
- }
- }
-
- ($text, $line, $args) = preserve_command($line, $macro);
- return ($text, $line);
-}
-
-# return the line after removing things according to misc_command map.
-# if the skipped macro has an effect it is done here
-# this is used during pass_text
-sub misc_command_text($$$$$$)
-{
- my $line = shift;
- my $macro = shift;
- my $stack = shift;
- my $state = shift;
- my $text = shift;
- my $line_nr = shift;
- my ($skipped, $remaining, $args);
- # if it is true the command args are kept so the user can modify how
- # they are skipped and handle them as unknown @-commands
- my $keep = $Texi2HTML::Config::misc_command{$macro}->{'keep'};
-
- if ($macro eq 'detailmenu')
- {
- $state->{'detailmenu'}++;
- }
- elsif ($macro eq 'sp')
- {
- my $sp_number;
- if ($line =~ /^\s+(\d+)\s/)
- {
- $sp_number = $1;
- }
- elsif ($line =~ /(\s*)$/)
- {
- $sp_number = '';
- }
- else
- {
- echo_error ("\@$macro needs a numeric arg or no arg", $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($macro eq 'verbatiminclude' and !$keep)
- {
- if ($line =~ /\s+(.+)/)
- {
- my $arg = $1;
- my $file = locate_include_file($arg);
- if (defined($file))
- {
- if (!open(VERBINCLUDE, $file))
- {
- echo_warn ("Can't read file $file: $!",$line_nr);
- }
- else
- {
- my $verb_text = '';
- while (my $line = <VERBINCLUDE>)
- {
- $verb_text .= $line;
- }
-
- if ($state->{'remove_texi'})
- {
- add_prev ($text, $stack, &$Texi2HTML::Config::raw_no_texi('verbatim', $verb_text));
- }
- else
- {
- add_prev($text, $stack, &$Texi2HTML::Config::raw('verbatim', $verb_text));
- }
- close VERBINCLUDE;
- }
- }
- else
- {
- echo_error ("Can't find $arg, skipping", $line_nr);
- }
- }
- else
- {
- echo_error ("Bad \@$macro line: $_", $line_nr);
- }
- }
- elsif ($macro eq 'indent' or $macro eq 'noindent')
- {
- $state->{'paragraph_indent'} = $macro;
- }
- ($remaining, $skipped, $args) = preserve_command($line, $macro);
- return ($skipped) if ($keep);
- return $remaining if ($remaining ne '');
- return undef;
-}
-
-# merge the things appearing before the first @node or sectionning 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;
- 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'})
- {
- $node_menu_ref->{'menu_up'} = $state->{'node_ref'};
- $node_menu_ref->{'menu_up_hash'}->{$state->{'node_ref'}->{'texi'}} = 1;
- }
- else
- {
- echo_warn ("menu entry without previous node: $node", $line_nr) unless ($node =~ /\(.+\)/);
- }
- 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'})
- {
- $state->{'node_ref'}->{'menu_child'} = $node_menu_ref;
- }
- $state->{'prev_menu_node'} = $node_menu_ref;
-}
-
-sub equivalent_nodes($)
-{
- my $name = shift;
-#print STDERR "equivalent_nodes $name\n";
- my $node = normalise_node($name);
- $name = cross_manual_line($node);
- my @equivalent_nodes = ();
- if (exists($cross_reference_nodes{$name}))
- {
- @equivalent_nodes = grep {$_ ne $node} @{$cross_reference_nodes{$name}};
- }
- return @equivalent_nodes;
-}
-
-my %files = (); # keys are files. This is used to avoid reusing an allready
- # used file name
-my %empty_indices = (); # value is true for an index name key if the index
- # is empty
-my %printed_indices = (); # value is true for an index name not empty and
- # printed
-
-# 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 to modify also the headings
- foreach my $section (values(%sections))
- {
- my $level = $section->{'level'};
- if ($level > $MAX_LEVEL)
- {
- $section->{'level'} = $MAX_LEVEL;
- }
- elsif ($level < $MIN_LEVEL and !$section->{'top'})
- {
- $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 sectionning 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
-
- 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'}));
- ########################### end debug
- next if ($section->{'top'});
- print STDERR "Bug level undef for ($section) $section->{'texi'}\n" if (!defined($section->{'level'}));
- $section->{'toplevel'} = 1 if ($section->{'level'} == $toplevel);
- # undef things under that section level
- for (my $level = $section->{'level'} + 1; $level < $MAX_LEVEL + 1 ; $level++)
- {
- $previous_numbers[$level] = undef;
- $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);
- }
- if (!defined($previous_numbers[$section->{'level'}]) and !$number_set)
- {
- if ($section->{'tag'} =~ /unnumbered/)
- {
- $previous_numbers[$section->{'level'}] = undef;
- }
- else
- {
- $previous_numbers[$section->{'level'}] = 1;
- }
- }
- elsif ($section->{'tag'} !~ /unnumbered/ and !$number_set)
- {
- $previous_numbers[$section->{'level'}]++;
- }
- # construct the section number
- $section->{'number'} = '';
-
- unless ($section->{'tag'} =~ /unnumbered/)
- {
- 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));
- $section->{'number'} = "$toplevel_number.$section->{'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
- if ($section->{'level'} == $toplevel)
- {
- $section->{'sectionup'} = undef;
- }
- else
- {
- my $level = $section->{'level'} - 1;
- while (!defined($previous_sections[$level]) and ($level >= 0))
- {
- $level--;
- }
- if ($level >= 0)
- {
- $section->{'sectionup'} = $previous_sections[$level];
- # 'child' is the first child
- $section->{'sectionup'}->{'child'} = $section unless ($section->{'sectionprev'});
- push @{$section->{'sectionup'}->{'section_childs'}}, $section;
- }
- else
- {
- $section->{'sectionup'} = undef;
- }
- }
- $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', 'node_next', 'node_up');
- # 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 (@node_directions)
- {
- if (defined($node->{$direction}) and !ref($node->{$direction})
- and ($node->{$direction} ne ''))
- {
- if ($nodes{$node->{$direction}} and $nodes{$node->{$direction}}->{'seen'})
- {
- $node->{$direction} = $nodes{$node->{$direction}};
- }
- elsif (($node->{$direction} =~ /^\(.*\)/) or $novalidate)
- { # ref to an external node
- if (exists($nodes{$node->{$direction}}))
- {
- $node->{$direction} = $nodes{$node->{$direction}};
- }
- else
- {
- # FIXME if {'seen'} this is a node appearing in the
- # document and a node like `(file)node'. What to
- # do then ?
- my $node_ref = { 'texi' => $node->{$direction} };
- $node_ref->{'external_node'} = 1 if ($node->{$direction} =~ /^\(.*\)/);
- $nodes{$node->{$direction}} = $node_ref;
- $node->{$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();
-
- # 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 (@node_directions)
- {
- if (defined($node->{$direction}) and !ref($node->{$direction})
- and ($node->{$direction} ne ''))
- {
- echo_warn ("$direction `$node->{$direction}' for `$node->{'texi'}' not found");
- 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))
- {
- echo_warn (" ---> but equivalent node `$node_seen' found");
- $node->{$direction} = $nodes{$node_seen};
- }
- else
- {
- delete $node->{$direction};
- }
- }
- }
- }
-
- # find section preceding and following top
- my $section_before_top; # section preceding the top node
- my $section_after_top; # section following the top node
- if ($node_top)
- {
- my $previous_is_top = 0;
- foreach my $element (@all_elements)
- {
- if ($element eq $node_top)
- {
- $previous_is_top = 1;
- next;
- }
- if ($previous_is_top)
- {
- if ($element->{'section'})
- {
- $section_after_top = $element;
- last;
- }
- next;
- }
- $section_before_top = $element if ($element->{'section'});
- }
- }
- print STDERR "# section before Top: $section_before_top->{'texi'}\n"
- if ($section_before_top and ($T2H_DEBUG & $DEBUG_ELEMENTS));
- print STDERR "# section after Top: $section_after_top->{'texi'}\n"
- if ($section_after_top and ($T2H_DEBUG & $DEBUG_ELEMENTS));
-
- print STDERR "# Build the elements list\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- if (!$Texi2HTML::Config::USE_NODES)
- {
- #the only sectionning elements are sections
- @elements_list = @sections_list;
- # if there is no section we use nodes...
- if (!@elements_list)
- {
- print STDERR "# no section\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- @elements_list = @all_elements;
- }
- elsif (!$section_top and $node_top and !$node_top->{'with_section'})
- { # special case for the top node if it isn't associated with
- # a section. The top node element is inserted between the
- # $section_before_top and the $section_after_top
- print STDERR "# Top not associated with a section\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- $node_top->{'top_as_section'} = 1;
- $node_top->{'section_ref'} = $node_top;
- my @old_element_lists = @elements_list;
- @elements_list = ();
- while (@old_element_lists)
- {
- my $section = shift @old_element_lists;
- if ($section_before_top and ($section eq $section_before_top))
- {
- push @elements_list, $section;
- push @elements_list, $node_top;
- last;
- }
- elsif ($section_after_top and ($section eq $section_after_top))
- {
- push @elements_list, $node_top;
- push @elements_list, $section;
- last;
- }
- push @elements_list, $section;
- }
- push @elements_list, @old_element_lists;
- }
-
- foreach my $element (@elements_list)
- {
- print STDERR "# new section element $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- }
- }
- else
- {
- # elements are sections if possible, and node if no section associated
- foreach my $element(@all_elements)
- {
- if ($element->{'node'})
- {
- if (!defined($element->{'with_section'}))
- {
- $element->{'toc_level'} = $MIN_LEVEL if (!defined($element->{'toc_level'}));
- print STDERR "# new node element ($element) $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- push @elements_list, $element;
- }
- }
- else
- {
- print STDERR "# new section element ($element) $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- push @elements_list, $element;
- }
- }
- }
-
- # nodes are attached to the section preceding them if not allready
- # associated with a section
- # here we don't set @{$element->{'nodes'}} since it may be changed
- # below if split by indices. Therefore we only set
- # @{$element->{'all_elements'}} with all the elements associated
- # with an element output, in the right order
- print STDERR "# Find the section associated with each node\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $current_section = $sections_list[0];
- $current_section = $node_top if ($node_top and $node_top->{'top_as_section'} and !$section_before_top);
- foreach my $element (@all_elements)
- {
- if ($element->{'node'} and !$element->{'top_as_section'})
- {
- if ($element->{'with_section'})
- { # the node is associated with a section
- $element->{'section_ref'} = $element->{'with_section'};
- push @{$element->{'section_ref'}->{'all_elements'}}, $element, $element->{'section_ref'};
- # first index is section if the first index is associated with that node
- $element_index = $element->{'section_ref'} if ($element_index and ($element_index eq $element));
- }
- elsif (defined($current_section))
- {# node appearing after a section, but not before another section,
- # or appearing before any section
- $element->{'section_ref'} = $current_section;
- $element->{'toc_level'} = $current_section->{'toc_level'};
- push @{$current_section->{'node_childs'}}, $element;
- if ($Texi2HTML::Config::USE_NODES)
- { # the node is an element itself
- push @{$element->{'all_elements'}}, $element;
- }
- else
- {
- push @{$current_section->{'all_elements'}}, $element;
- # first index is section if the first index is associated with that node
- $element_index = $current_section if ($element_index and ($element_index eq $element));
- }
- }
- else
- { # seems like there are only nodes in the documents
- $element->{'toc_level'} = $MIN_LEVEL;
- push @{$element->{'all_elements'}}, $element;
- }
- }
- else
- {
- $current_section = $element;
- if ($element->{'node'})
- { # Top node not associated with a section
- $element->{'toc_level'} = $MIN_LEVEL;
- push @{$element->{'section_ref'}->{'all_elements'}}, $element;
- }
- elsif (!$element->{'node_ref'})
- { # a section not preceded by a node
- push @{$element->{'all_elements'}}, $element;
- }
- }
- }
-
- # find first, last and top elements
- $element_first = $elements_list[0];
- print STDERR "# element first: $element_first->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- print STDERR "# top node: $node_top->{'texi'}\n" if (defined($node_top) and
- ($T2H_DEBUG & $DEBUG_ELEMENTS));
- # element top is the element with @top.
- $element_top = $section_top;
- # If the top node is associated with a section it is the top_element
- # otherwise element top may be the top node
- $element_top = $node_top if (!defined($element_top) and defined($node_top));
- # If there is no @top section no top node the first node is the top element
- $element_top = $element_first unless (defined($element_top));
- $element_top->{'top'} = 1 if ($element_top->{'node'});
- print STDERR "# element top: $element_top->{'texi'}\n" if ($element_top and
- ($T2H_DEBUG & $DEBUG_ELEMENTS));
-
- # It is the last element before indices split, which may add new
- # elements
- $element_last = $elements_list[-1];
-
- 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
- if (!$node->{'first'} and !$node->{'top'} and !$node->{'menu_up'} and ($node->{'texi'} !~ /^top$/i) 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}->{'first'} or $nodes{$equivalent_node}->{'menu_up'})
- {
- $found = 1;
- last;
- }
- }
- unless ($found)
- {
- warn "$WARN `$node->{'texi'}' doesn't appear in menus\n";
- }
- }
-
- # use values deduced from menus to complete missing up, next, prev
- # or from sectionning commands if automatic sectionning
- if ($node->{'node_up'})
- {
- $node->{'nodeup'} = $node->{'node_up'};
- }
- elsif ($node->{'automatic_directions'} and $node->{'section_ref'})
- {
- if (defined($node_top) and ($node eq $node_top))
- { # 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 (defined($node->{'section_ref'}->{'sectionup'}))
- {
- $node->{'nodeup'} = get_node($node->{'section_ref'}->{'sectionup'});
- }
- elsif ($node->{'section_ref'}->{'toplevel'} and ($node->{'section_ref'} ne $element_top))
- {
- $node->{'nodeup'} = get_node($element_top);
- }
- print STDERR "# Deducing from section node_up $node->{'nodeup'}->{'texi'} for $node->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS and defined($node->{'nodeup'}));
- }
-
- if (!$node->{'nodeup'} and $node->{'menu_up'} and $Texi2HTML::Config::USE_MENU_DIRECTIONS)
- { # makeinfo don't do that
- $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'}}))
- {
- print STDERR "$WARN `$node->{'nodeup'}->{'texi'}' is up for `$node->{'texi'}', but has no menu entry for this node\n" if ($Texi2HTML::Config::SHOW_MENU);
- push @{$node->{'up_not_in_menu'}}, $node->{'nodeup'}->{'texi'};
- }
- }
-
- # Find next node
- if ($node->{'node_next'})
- {
- $node->{'nodenext'} = $node->{'node_next'};
- }
- elsif ($node->{'texi'} eq 'Top')
- { # special case as said in the texinfo manual
- $node->{'nodenext'} = $node->{'menu_child'} if ($node->{'menu_child'});
- }
- elsif ($node->{'automatic_directions'})
- {
- if (defined($node->{'section_ref'}))
- {
- my $next;
- my $section = $node->{'section_ref'};
- if (defined($section->{'sectionnext'}))
- {
- $next = get_node($section->{'sectionnext'})
- }
- else
- {
- while (defined($section->{'sectionup'}) and !defined($section->{'sectionnext'}))
- {
- $section = $section->{'sectionup'};
- }
- if (defined($section->{'sectionnext'}))
- {
- $next = get_node($section->{'sectionnext'});
- }
- }
- $node->{'nodenext'} = $next;
- }
- }
- # next we try menus. makeinfo don't do that
- if (!defined($node->{'nodenext'}) and $node->{'menu_next'}
- and $Texi2HTML::Config::USE_MENU_DIRECTIONS)
- {
- $node->{'nodenext'} = $node->{'menu_next'};
- }
- # Find prev node
- if ($node->{'node_prev'})
- {
- $node->{'nodeprev'} = $node->{'node_prev'};
- }
- elsif ($node->{'automatic_directions'})
- {
- if (defined($node->{'section_ref'}))
- {
- my $section = $node->{'section_ref'};
- if (defined($section->{'sectionprev'}))
- {
- $node->{'nodeprev'} = get_node($section->{'sectionprev'});
- }
- elsif (defined($section->{'sectionup'}))
- {
- $node->{'nodeprev'} = get_node($section->{'sectionup'});
- }
- }
- }
- # next we try menus. makeinfo don't do that
- if (!defined($node->{'nodeprev'}) and $node->{'menu_prev'} and $Texi2HTML::Config::USE_MENU_DIRECTIONS)
- {
- $node->{'nodeprev'} = $node->{'menu_prev'};
- }
- # the prev node is the parent node
- elsif (!defined($node->{'nodeprev'}) and $node->{'menu_up'} and $Texi2HTML::Config::USE_MENU_DIRECTIONS)
- {
- $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->{'section_ref'}) and defined($node->{'section_ref'}->{'child'}))
- {
- $node->{'following'} = get_node($node->{'section_ref'}->{'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;
- }
- }
- }
-
- if (defined($node->{'section_ref'}))
- {
- my $section = $node->{'section_ref'};
- foreach my $direction ('sectionnext', 'sectionprev', 'sectionup')
- {
- $node->{$direction} = $section->{$direction}
- if (defined($section->{$direction}));
- }
- # this is a node appearing within a section but not associated
- # with that section. We consider that it is below that section.
- $node->{'sectionup'} = $section
- if (grep {$node eq $_} @{$section->{'node_childs'}});
- }
- # 'up' is used in .init files. Maybe should go away.
- 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++;
- }
-
- print STDERR "# find forward and back\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $prev;
- foreach my $element (@elements_list)
- {
- $element->{'element'} = 1;
- # complete the up for toplevel elements now that element_top is defined
- print STDERR "# fwd and back for $element->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- # at that point no node may be toplevel, only sections.
- if ($element->{'toplevel'} and ($element ne $element_top))
- {
- $element->{'sectionup'} = $element_top;
- $element->{'up'} = $element_top;
- }
- if ($prev)
- {
- $element->{'back'} = $prev;
- $prev->{'forward'} = $element;
- $prev = $element;
- }
- else
- {
- $prev = $element;
- }
- # If the element is not a node, then all the node directions are copied
- # if there is an associated node
- if (defined($element->{'node_ref'}))
- {
- $element->{'nodenext'} = $element->{'node_ref'}->{'nodenext'};
- $element->{'nodeprev'} = $element->{'node_ref'}->{'nodeprev'};
- $element->{'menu_next'} = $element->{'node_ref'}->{'menu_next'};
- $element->{'menu_prev'} = $element->{'node_ref'}->{'menu_prev'};
- $element->{'menu_child'} = $element->{'node_ref'}->{'menu_child'};
- $element->{'menu_up'} = $element->{'node_ref'}->{'menu_up'};
- $element->{'nodeup'} = $element->{'node_ref'}->{'nodeup'};
- $element->{'following'} = $element->{'node_ref'}->{'following'};
- }
- elsif (! $element->{'node'})
- { # the section has no node associated. Find the node directions using
- # sections
- if (defined($element->{'sectionnext'}))
- {
- $element->{'nodenext'} = get_node($element->{'sectionnext'});
- }
- if (defined($element->{'sectionprev'}))
- {
- $element->{'nodeprev'} = get_node($element->{'sectionprev'});
- }
- if (defined($element->{'up'}))
- {
- $element->{'nodeup'} = get_node($element->{'up'});
- }
- if ($element->{'child'})
- {
- $element->{'following'} = get_node($element->{'child'});
- }
- elsif ($element->{'sectionnext'})
- {
- $element->{'following'} = get_node($element->{'sectionnext'});
- }
- elsif ($element->{'up'})
- {
- my $up = $element;
- while ($up->{'up'} and !$element->{'following'})
- {
- print STDERR "# Going up, searching next section from $up->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- $up = $up->{'up'};
- if ($up->{'sectionnext'})
- {
- $element->{'following'} = get_node ($up->{'sectionnext'});
- }
- # avoid infinite loop if the top is up for itself
- last if ($up->{'toplevel'} or $up->{'top'});
- }
- }
- }
- }
-
- my @new_elements = ();
- print STDERR "# preparing indices\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
-
- while(@elements_list)
- {
- my $element = shift @elements_list;
- # current_element is the last element which can hold text. It is
- # initialized to a fake element
- my $current_element = { 'holder' => 1, 'texi' => 'HOLDER',
- 'place' => [], 'indices' => [] };
- # $back, $forward and $sectionnext are kept because $element
- # is in @{$element->{'all_elements'}}, so it is possible that
- # those directions get changed.
- # back is set to find back and forward
- my $back = $element->{'back'} if defined($element->{'back'});
- my $forward = $element->{'forward'};
- my $sectionnext = $element->{'sectionnext'};
- my $index_num = 0;
- my @waiting_elements = (); # elements (nodes) not used for sectionning
- # waiting to be associated with an element
- foreach my $checked_element(@{$element->{'all_elements'}})
- {
- if ($checked_element->{'element'})
- { # this is the element, we must add it
- push @new_elements, $checked_element;
- if ($current_element->{'holder'})
- { # no previous element added
- push @{$checked_element->{'place'}}, @{$current_element->{'place'}};
- foreach my $index(@{$current_element->{'indices'}})
- {
- push @{$checked_element->{'indices'}}, [ { 'element' => $checked_element, 'page' => $index->[0]->{'page'}, 'name' => $index->[0]->{'name'} } ] ;
- }
- }
- else
- {
- $current_element->{'sectionnext'} = $checked_element;
- $current_element->{'following'} = $checked_element;
- $checked_element->{'sectionprev'} = $current_element;
- }
- $current_element = $checked_element;
- $checked_element->{'back'} = $back;
- $back->{'forward'} = $checked_element if (defined($back));
- $back = $checked_element;
- push @{$checked_element->{'nodes'}}, @waiting_elements;
- @waiting_elements = ();
- }
- elsif ($current_element->{'holder'})
- {
- push @waiting_elements, $checked_element;
- }
- else
- {
- push @{$current_element->{'nodes'}}, $checked_element;
- $checked_element->{'section_ref'} = $current_element;
- }
- push @{$current_element->{'place'}}, @{$checked_element->{'current_place'}};
- foreach my $index (@{$checked_element->{'index_names'}})
- {
- print STDERR "# Index in `$checked_element->{'texi'}': $index->{'name'}. Current is `$current_element->{'texi'}'\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- my ($pages, $entries) = get_index($index->{'name'});
- if (defined($pages))
- {
- my @pages = @$pages;
- my $first_page = shift @pages;
- ############################## begin debug section
- my $back_texi = 'NO_BACK';
- $back_texi = $back->{'texi'} if (defined($back));
- print STDERR "# Index first page (back `$back_texi', in `$current_element->{'texi'}')\n" if ($T2H_DEBUG & $DEBUG_INDEX);
- ############################## end debug section
- push @{$current_element->{'indices'}}, [ {'element' => $current_element, 'page' => $first_page, 'name' => $index->{'name'} } ];
- if (@pages)
- {# index is split accross more than one page
- if ($current_element->{'holder'})
- { # the current element isn't an element which is
- # normally outputted. We add a real element.
- # we are in a node of a section but the element
- # is split by the index, thus we must add
- # a new element which will contain the text
- # between the beginning of the element and the index
- # WARNING the added element is like a section, and
- # indeed it is a 'section_ref' and 'sectionup'
- # for other nodes, it has 'nodes'
- # (see below and above).
- # But it is also a node. It may have a 'with_section'
- # and have a 'section_ref'
- # it may be considered 'node_ref' for a section.
- # and the Texi2HTML::NODE is relative to this
- # added element.
-
- push @new_elements, $checked_element;
- print STDERR "# Add `$checked_element->{'texi'}' before index page for `$element->{'texi'}'\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- echo_warn("Add `$checked_element->{'texi'}' for indicing");
- $checked_element->{'element'} = 1;
- $checked_element->{'level'} = $element->{'level'};
- $checked_element->{'toc_level'} = $element->{'toc_level'};
- $checked_element->{'toplevel'} = $element->{'toplevel'};
- if ($element->{'top'})
- {
- $checked_element->{'toplevel'} = 1;
- $checked_element->{'top'} = 1;
- }
- $checked_element->{'up'} = $element->{'up'};
- $checked_element->{'sectionup'} = $element->{'sectionup'};
- $checked_element->{'element_added'} = 1;
- print STDERR "Bug: checked element wasn't seen" if
- (!$checked_element->{'seen'});
- $element->{'sectionprev'}->{'sectionnext'} = $checked_element if (exists($element->{'sectionprev'}));
- push @{$checked_element->{'place'}}, @{$current_element->{'place'}};
- foreach my $index(@{$current_element->{'indices'}})
- {
- push @{$checked_element->{'indices'}}, [ { 'element' => $checked_element, 'page' => $index->[0]->{'page'}, 'name' => $index->[0]->{'name'} } ] ;
- }
- foreach my $waiting_element (@waiting_elements)
- {
- next if ($waiting_element eq $checked_element);
- $waiting_element->{'section_ref'} = $checked_element;
- $waiting_element->{'sectionup'} = $checked_element;
- push @{$checked_element->{'nodes'}}, $waiting_element;
- }
- @waiting_elements = ();
- $checked_element->{'back'} = $back;
- $back->{'forward'} = $checked_element if (defined($back));
- $current_element = $checked_element;
- $back = $checked_element;
- }
- my $index_page;
- while(@pages)
- {
- print STDERR "# New page (back `$back->{'texi'}', current `$current_element->{'texi'}')\n" if ($T2H_DEBUG & $DEBUG_INDEX);
- $index_num++;
- my $page = shift @pages;
- $index_page = { 'index_page' => 1,
- 'texi' => "NOT REALLY USED: $current_element->{'texi'}' index $index->{'name'} page $index_num",
- 'level' => $element->{'level'},
- 'tag' => $element->{'tag'},
- 'tag_level' => $element->{'tag_level'},
- 'toplevel' => $element->{'toplevel'},
- 'top' => $element->{'top'},
- 'up' => $element->{'up'},
- 'sectionup' => $element->{'sectionup'},
- 'back' => $back,
- 'prev' => $back,
- 'sectionnext' => $sectionnext,
- 'following' => $current_element->{'following'},
- 'nodeup' => $current_element->{'nodeup'},
- 'nodenext' => $current_element->{'nodenext'},
- 'nodeprev' => $back,
- 'place' => [],
- 'seen' => 1,
- 'page' => $page
- };
- # the index page is associated with the new element
- # if there is one, the element otherwise
- if ($checked_element->{'element_added'})
- {
- $index_page->{'original_index_element'} = $checked_element;
- }
- else
- {
- $index_page->{'original_index_element'} = $element;
- }
- $index_page->{'node'} = 1 if ($element->{'node'});
- while ($nodes{$index_page->{'texi'}})
- {
- $nodes{$index_page->{'texi'}} .= ' ';
- }
- $nodes{$index_page->{'texi'}} = $index_page;
- push @{$current_element->{'indices'}->[-1]}, {'element' => $index_page, 'page' => $page, 'name' => $index->{'name'} };
- push @new_elements, $index_page;
- $back->{'forward'} = $index_page;
- $back->{'nodenext'} = $index_page;
- $back->{'sectionnext'} = $index_page unless ($back->{'top'});
- $back->{'following'} = $index_page;
- $back = $index_page;
- $index_page->{'toplevel'} = 1 if ($element->{'top'});
- }
- $current_element = $index_page;
- }
- }
- else
- {
- print STDERR "# Empty index: $index->{'name'}\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- $empty_indices{$index->{'name'}} = 1;
- }
- push @{$current_element->{'place'}}, @{$index->{'place'}};
- }
- }
- if ($forward and ($current_element ne $element))
- {
- $current_element->{'forward'} = $forward;
- $forward->{'back'} = $current_element;
- }
- next if ($current_element eq $element or !$element->{'toplevel'});
- # reparent the elements below $element to the last index page
- print STDERR "# Reparent for `$element->{'texi'}':\n" if ($T2H_DEBUG & $DEBUG_INDEX);
- foreach my $reparented(@{$element->{'section_childs'}},@{$element->{'node_childs'}})
- {
- $reparented->{'sectionup'} = $current_element;
- print STDERR " reparented: $reparented->{'texi'}\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- }
- }
- @elements_list = @new_elements;
-
- print STDERR "# find fastback and fastforward\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- foreach my $element (@elements_list)
- {
- my $up = get_top($element);
- next unless (defined($up));
- $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
- $element->{'fastforward'} = $up->{'sectionnext'} if (exists ($up->{'sectionnext'}));
- # 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.
- # It is the section associated with the node except if USE_NODES
- unless ($Texi2HTML::Config::USE_NODES)
- {
- foreach my $node(@nodes_list)
- {
- if ($node->{'with_section'})
- {
- $node->{'reference_element'} = $node->{'with_section'};
- }
- }
- }
-
- my $index_nr = 0;
- # convert directions in direction with first letter in all caps, to be
- # consistent with the convention used in the .init file.
- # find id for nodes and indices
- foreach my $element (@elements_list)
- {
- $element->{'this'} = $element;
- foreach my $direction (@element_directions)
- {
- my $direction_no_caps = $direction;
- $direction_no_caps =~ tr/A-Z/a-z/;
- $element->{$direction} = $element->{$direction_no_caps};
- }
- if ($element->{'index_page'})
- {
- $element->{'id'} = "INDEX" . $index_nr;
- $index_nr++;
- }
- }
-
- print STDERR "# find float id\n"
- if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- foreach my $float (@floats)
- {
- $float->{'style_id'} = cross_manual_line(normalise_space($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->{'number'} ne '')
- {
- $float->{'chapter_nr'} = $up->{'number'};
- $float->{'nr'} = $float->{'chapter_nr'} . $float_style->{'nr_in_chapter'};
- }
- else
- {
- $float->{'nr'} = $float->{'absolute_nr'};
- }
- }
-
- if ($Texi2HTML::Config::NEW_CROSSREF_STYLE)
- {
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- next if ($node->{'external_node'} or $node->{'index_page'});
- $node->{'id'} = node_to_id($node->{'cross_manual_target'});
- }
- }
-
- # Find node file names and file names for nodes considered as elements
- my $node_as_top;
- if ($node_top)
- {
- $node_as_top = $node_top;
- }
- elsif ($element_top->{'node_ref'})
- {
- $node_as_top = $element_top->{'node_ref'};
- }
- else
- {
- $node_as_top = $node_first;
- }
- if ($node_as_top)
- {
- my $node_file;
- $node_file = &$Texi2HTML::Config::node_file_name($node_as_top,'top');
- $node_as_top->{'node_file'} = $node_file if (defined($node_file));
- }
- foreach my $key (keys(%nodes))
- {
- my $node = $nodes{$key};
- next if (defined($node_as_top) and ($node eq $node_as_top));
- my $node_file = &$Texi2HTML::Config::node_file_name($node,'');
- $node->{'node_file'} = $node_file if (defined($node_file));
- }
-
- print STDERR "# 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::SPLIT)
- {
- my $cut_section = $toplevel;
- my $doc_nr = -1;
- if ($Texi2HTML::Config::SPLIT eq 'section')
- {
- $cut_section = 2 if ($toplevel <= 2);
- }
- my $previous_file;
- foreach my $element (@elements_list)
- {
- print STDERR "# Splitting ($Texi2HTML::Config::SPLIT:$cut_section) $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $new_file = 0;
- if (
- ($Texi2HTML::Config::SPLIT eq 'node') or
- (
- defined($element->{'level'}) and ($element->{'level'} <= $cut_section)
- )
- )
- {
- $new_file = 1;
- $doc_nr++;
- }
- $doc_nr = 0 if ($doc_nr < 0); # happens if first elements are nodes
- $element->{'doc_nr'} = $doc_nr;
- my $is_top = '';
- $element->{'file'} = "${docu_name}_$doc_nr"
- . ($docu_ext ? ".$docu_ext" : "");
- if ($element->{'top'} or (defined($element->{'node_ref'}) and $element->{'node_ref'} eq $element_top))
- { # the top elements
- $is_top = "top";
- $element->{'file'} = $docu_top;
- }
- elsif ($Texi2HTML::Config::NODE_FILES)
- {
- if ($new_file)
- {
- my $node = get_node($element) unless(exists($element->{'node_ref'})
- and $element->{'node_ref'}->{'element_added'});
- if ($node and defined($node->{'node_file'}))
- {
- $element->{'file'} = $node->{'node_file'};
- }
- $previous_file = $element->{'file'};
- }
- elsif($previous_file)
- {
- $element->{'file'} = $previous_file;
- }
- }
- if (defined($Texi2HTML::Config::element_file_name))
- {
- my $filename =
- &$Texi2HTML::Config::element_file_name ($element, $is_top, $docu_name);
- $element->{'file'} = $filename if (defined($filename));
- }
- print STDERR "# add_file $element->{'file'} for $element->{'texi'}\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- add_file($element->{'file'});
- foreach my $place(@{$element->{'place'}})
- {
- $place->{'file'} = $element->{'file'};
- $place->{'id'} = $element->{'id'} unless defined($place->{'id'});
- }
- if ($element->{'nodes'})
- {
- foreach my $node (@{$element->{'nodes'}})
- {
- $node->{'doc_nr'} = $element->{'doc_nr'};
- $node->{'file'} = $element->{'file'};
- }
- }
- }
- }
- else
- { # not split
- add_file($docu_doc);
- foreach my $element(@elements_list)
- {
- $element->{'file'} = $docu_doc;
- $element->{'doc_nr'} = 0;
- foreach my $place(@{$element->{'place'}})
- {
- $place->{'file'} = $element->{'file'};
- $place->{'id'} = $element->{'id'} unless defined($place->{'id'});
- }
- }
- foreach my $node(@nodes_list)
- {
- $node->{'file'} = $docu_doc;
- $node->{'doc_nr'} = 0;
- }
- }
- # correct the id and file for the things placed in footnotes
- foreach my $place(@{$footnote_element->{'place'}})
- {
- $place->{'file'} = $footnote_element->{'file'};
- $place->{'id'} = $footnote_element->{'id'} unless defined($place->{'id'});
- }
- # if setcontentsaftertitlepage is set, the contents should be associated
- # with the titlepage. That's wat is done there.
- push @$region_place, $content_element{'contents'}
- if ($Texi2HTML::Config::DO_CONTENTS and $Texi2HTML::THISDOC{'setcontentsaftertitlepage'});
- push @$region_place, $content_element{'shortcontents'}
- if ($Texi2HTML::Config::DO_SCONTENTS and $Texi2HTML::THISDOC{'setshortcontentsaftertitlepage'});
- # correct the id and file for the things placed in regions (copying...)
- foreach my $place(@$region_place)
- {
-#print STDERR "entry $place->{'entry'} texi $place->{'texi'}\n";
- $place->{'file'} = $element_top->{'file'};
- $place->{'id'} = $element_top->{'id'} unless defined($place->{'id'});
- $place->{'element'} = $element_top if (exists($place->{'element'}));
- }
- foreach my $content_type(keys(%content_element))
- {
- if (!defined($content_element{$content_type}->{'file'}))
- {
- print STDERR "# No content $content_type\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- $content_element{$content_type} = undef;
- }
- }
-
- ########################### debug prints
- foreach my $file (keys(%files))
- {
- last unless ($T2H_DEBUG & $DEBUG_ELEMENTS);
- print STDERR "$file: counter $files{$file}->{'counter'}\n";
- }
- foreach my $element ((@elements_list, $footnote_element))
- {
- last unless ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $is_toplevel = 'not toplevel';
- $is_toplevel = 'toplevel' if ($element->{'toplevel'});
- print STDERR "$element ";
- if ($element->{'index_page'})
- {
- print STDERR "index($element->{'id'}, $is_toplevel, doc_nr $element->{'doc_nr'}($element->{'file'})): $element->{'texi'}\n";
- }
- elsif ($element->{'node'})
- {
- print STDERR "node($element->{'id'}, toc_level $element->{'toc_level'}, $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'}));
- }
- 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 " 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 " 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 " n: $element->{'sectionnext'}->{'texi'}\n" if (defined($element->{'sectionnext'}));
- 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'}));
- 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";
- }
- }
- if (defined($element->{'nodes'}))
- {
- print STDERR " nodes: $element->{'nodes'} (@{$element->{'nodes'}})\n";
- foreach my $node (@{$element->{'nodes'}})
- {
- my $beginning = " ";
- $beginning = " *" if ($node->{'with_section'});
- my $file = $node->{'file'};
- $file = "file undef" if (! defined($node->{'file'}));
- print STDERR "${beginning}$node->{'texi'} $file\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'})
- {
- 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'}\n";
- }
- elsif ($place->{'anchor'})
- {
- print STDERR " anchor: $place->{'texi'}\n";
- }
- elsif ($place->{'float'})
- {
- if (defined($place->{'texi'}))
- {
- print STDERR " float($place): $place->{'texi'}\n";
- }
- else
- {
- print STDERR " float($place): NO LABEL\n";
- }
- }
- elsif ($place->{'contents'})
- {
- print STDERR " contents\n";
- }
- elsif ($place->{'shortcontents'})
- {
- print STDERR " shortcontents\n";
- }
- else
- {
- print STDERR " heading: $place->{'texi'}\n";
- }
- }
- if ($element->{'indices'})
- {
- print STDERR " indices: $element->{'indices'}\n";
- foreach my $index(@{$element->{'indices'}})
- {
- print STDERR " $index: ";
- foreach my $page (@$index)
- {
- print STDERR "'$page->{'element'}->{'texi'}'($page->{'name'}): $page->{'page'} ";
- }
- print STDERR "\n";
- }
- }
- }
- ########################### end debug prints
-}
-
-sub add_file($)
-{
- my $file = shift;
- if ($files{$file})
- {
- $files{$file}->{'counter'}++;
- }
- else
- {
- $files{$file} = {
- #'type' => 'section',
- 'counter' => 1,
- 'relative_foot_num' => 1,
- 'foot_lines' => []
- };
- }
-}
-
-# find parent element which is a top element, or a node within the top section
-sub get_top($)
-{
- my $element = shift;
- my $up = $element;
- while (!$up->{'toplevel'} and !$up->{'top'})
- {
- $up = $up->{'sectionup'};
- if (!defined($up))
- {
- # 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;
- }
- }
- return $up;
-}
-
-sub get_node($)
-{
- my $element = shift;
- return undef if (!defined($element));
- return $element if ($element->{'node'});
- return $element->{'node_ref'} if ($element->{'node_ref'});
- return $element;
-}
-# get the html names from the texi for all elements
-sub do_names()
-{
- print STDERR "# Doing ". scalar(keys(%nodes)) . " nodes, ".
- scalar(keys(%sections)) . " sections 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.
- foreach my $node (keys(%nodes))
- {
- next if ($nodes{$node}->{'index_page'}); # some nodes are index pages.
- my $texi = &$Texi2HTML::Config::heading_texi($nodes{$node}->{'tag'},
- $nodes{$node}->{'texi'}, undef);
- $nodes{$node}->{'text'} = substitute_line ($texi);
- $nodes{$node}->{'text_nonumber'} = $nodes{$node}->{'text'};
- # backward compatibility
- $nodes{$node}->{'name'} = $nodes{$node}->{'text_nonumber'};
- $nodes{$node}->{'no_texi'} = remove_texi($texi);
- $nodes{$node}->{'simple_format'} = simple_format(undef, $texi);
- $nodes{$node}->{'heading_texi'} = $texi;
- # FIXME : what to do if $nodes{$node}->{'external_node'} and
- # $nodes{$node}->{'seen'}
- }
- foreach my $number (keys(%sections))
- {
- my $section = $sections{$number};
- #$section->{'name'} = substitute_line($section->{'texi'});
- my $texi = &$Texi2HTML::Config::heading_texi($section->{'tag'}, $section->{'texi'}, $section->{'number'});
- $section->{'text'} = substitute_line($texi);
- $section->{'text_nonumber'} = substitute_line($section->{'texi'});
- # backward compatibility
- $section->{'name'} = $section->{'text_nonumber'};
- $section->{'no_texi'} = remove_texi($texi);
- $section->{'simple_format'} = simple_format(undef,$texi);
- $section->{'heading_texi'} = $texi;
- }
- my $tocnr = 1;
- foreach my $element (@elements_list)
- {
- if (!$element->{'top'} and !$element->{'index_page'})
- { # for link back to table of contents
- # FIXME do it for top too?
- $element->{'tocid'} = 'TOC' . $tocnr;
- $tocnr++;
- }
- next if (defined($element->{'text'}));
- if ($element->{'index_page'})
- {
- my $page = $element->{'page'};
- my $original_element = $element->{'original_index_element'};
- my $texi = &$Texi2HTML::Config::index_element_heading_texi(
- $original_element->{'heading_texi'},
- $original_element->{'tag'},
- $original_element->{'texi'},
- $original_element->{'number'},
- $page->{'first_letter'}, $page->{'last_letter'});
- $element->{'heading_texi'} = $texi;
- $element->{'text'} = substitute_line($texi);
- $element->{'no_texi'} = remove_texi($texi);
- $element->{'simple_format'} = simple_format(undef,$texi);
- }
- }
- print STDERR "# Names done\n" if ($T2H_DEBUG);
-}
-
-@{$Texi2HTML::TOC_LINES} = (); # table of contents
-@{$Texi2HTML::OVERVIEW} = (); # short table of contents
-
-
-
-#+++############################################################################
-# #
-# Stuff related to Index generation #
-# #
-#---############################################################################
-
-# called during pass_structure
-sub enter_index_entry($$$$$$$)
-{
- my $prefix = shift;
- my $line_nr = shift;
- my $key = shift;
- my $place = shift;
- my $element = shift;
- my $use_section_id = shift;
- my $command = shift;
- unless ($index_prefix_to_name{$prefix})
- {
- echo_error ("Undefined index command: ${prefix}index", $line_nr);
- $key = '';
- }
- if (!exists($element->{'tag'}) and !$element->{'footnote'})
- {
- echo_warn ("Index entry before document: \@${prefix}index $key", $line_nr);
- }
- $key =~ s/\s+$//;
- $key =~ s/^\s*//;
- my $entry = $key;
- # The $key is mostly usefull for alphabetical sorting
- $key = remove_texi($key);
- my $id = '';
- # don't add a specific index target if after a section or the index
- # entry is in @copying or the like
- unless ($use_section_id or ($place eq $region_place))
- {
- $id = 'IDX' . ++$idx_num;
- }
- my $index_entry = {
- 'entry' => $entry,
- 'element' => $element,
- 'prefix' => $prefix,
- 'label' => $id,
- 'command' => $command
- };
-
- print STDERR "# enter \@$command ${prefix}index '$key' with id $id ($index_entry)\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- if ($key =~ /^\s*$/)
- {
- echo_warn("Empty index entry for \@$command",$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
- push @index_labels, $index_entry unless ($place eq $region_place);
- return;
- }
- while (exists $index->{$prefix}->{$key})
- {
- $key .= ' ';
- }
- $index->{$prefix}->{$key} = $index_entry;
- push @$place, $index_entry;
- # 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
- push @index_labels, $index_entry unless ($place eq $region_place);
-}
-
-# sort according to cmp if both $a and $b are alphabetical or non alphabetical,
-# otherwise the alphabetical is ranked first
-sub by_alpha
-{
- if ($a =~ /^[A-Za-z]/)
- {
- if ($b =~ /^[A-Za-z]/)
- {
- return lc($a) cmp lc($b);
- }
- else
- {
- return 1;
- }
- }
- elsif ($b =~ /^[A-Za-z]/)
- {
- return -1;
- }
- else
- {
- return lc($a) cmp lc($b);
- }
-}
-
-# returns an array of index entries pages splitted by letters
-# each page has the following members:
-# 'first_letter' first letter on that page
-# 'last_letter' last letter on that page
-# 'letters' ref on an array with all the letters for that page
-# 'entries_by_letter' ref on a hash. Each key is a letter, with value a ref
-# on arrays of index entries beginning with this letter
-sub get_index_pages($)
-{
- my $entries = shift;
- my (@letters);
- my ($entries_by_letter, $pages, $page) = ({}, [], {});
- my @keys = sort by_alpha keys %$entries;
-
- # each index entry is placed according to its first letter in
- # entries_by_letter
- for my $key (@keys)
- {
- push @{$entries_by_letter->{uc(substr($key,0, 1))}} , $entries->{$key};
- }
- @letters = sort by_alpha keys %$entries_by_letter;
- $Texi2HTML::Config::SPLIT_INDEX = 0 unless $Texi2HTML::Config::SPLIT;
-
- if ($Texi2HTML::Config::SPLIT_INDEX and $Texi2HTML::Config::SPLIT_INDEX =~ /^\d+$/)
- {
- my $i = 0;
- my ($prev_letter);
- foreach my $letter (@letters)
- {
- if ($i > $Texi2HTML::Config::SPLIT_INDEX)
- {
- $page->{'last_letter'} = $prev_letter;
- push @$pages, $page;
- $i=0;
- }
- if ($i == 0)
- {
- $page = {};
- $page->{'letters'} = [];
- $page->{'entries_by_letter'} = {};
- $page->{'first_letter'} = $letter;
- }
- push @{$page->{'letters'}}, $letter;
- $page->{'entries_by_letter'}->{$letter} = [@{$entries_by_letter->{$letter}}];
- $i += scalar(@{$entries_by_letter->{$letter}});
- $prev_letter = $letter;
- }
- $page->{'last_letter'} = $letters[$#letters];
- push @$pages, $page;
- }
- else
- {
- warn "$WARN Bad Texi2HTML::Config::SPLIT_INDEX: $Texi2HTML::Config::SPLIT_INDEX\n" if ($Texi2HTML::Config::SPLIT_INDEX);
- $page->{'first_letter'} = $letters[0];
- $page->{'last_letter'} = $letters[$#letters];
- $page->{'letters'} = \@letters;
- $page->{'entries_by_letter'} = $entries_by_letter;
- push @$pages, $page;
- return $pages;
- }
- return $pages;
-}
-
-# return the page and the entries. Cache the result in %indices.
-sub get_index($;$)
-{
- my $index_name = shift;
- my $line_nr = shift;
-
- return (@{$indices{$index_name}}) if ($indices{$index_name});
-
- unless (exists($index_names{$index_name}))
- {
- echo_error ("Bad index name: $index_name", $line_nr);
- return;
- }
- # add the index name itself to the index names searched for index
- # prefixes. Only those found associated by synindex or syncodeindex are
- # allready there (unless this code has allready been called).
- if ($index_names{$index_name}->{'code'})
- {
- $index_names{$index_name}->{'associated_indices_code'}->{$index_name} = 1;
- }
- else
- {
- $index_names{$index_name}->{'associated_indices'}->{$index_name} = 1;
- }
-
- # find all the index names associated with the prefixes and then
- # all the entries associated with each prefix
- my $entries = {};
- foreach my $associated_indice(keys %{$index_names{$index_name}->{'associated_indices'}})
- {
- foreach my $prefix(@{$index_names{$associated_indice}->{'prefix'}})
- {
- foreach my $key (keys %{$index->{$prefix}})
- {
- $entries->{$key} = $index->{$prefix}->{$key};
- }
- }
- }
-
- foreach my $associated_indice (keys %{$index_names{$index_name}->{'associated_indices_code'}})
- {
- unless (exists ($index_names{$index_name}->{'associated_indices'}->{$associated_indice}))
- {
- foreach my $prefix (@{$index_names{$associated_indice}->{'prefix'}})
- {
- foreach my $key (keys (%{$index->{$prefix}}))
- {
- $entries->{$key} = $index->{$prefix}->{$key};
- # use @code for code style index entry
- $entries->{$key}->{'entry'} = "\@code{$entries->{$key}->{entry}}";
- }
- }
- }
- }
-
- return unless %$entries;
- my $pages = get_index_pages($entries);
- $indices{$index_name} = [ $pages, $entries ];
- return ($pages, $entries);
-}
-
-my @foot_lines = (); # footnotes
-my $copying_comment = ''; # comment constructed from text between
- # @copying and @end copying with licence
-my $to_encoding; # out file encoding
-my %acronyms_like = (); # acronyms or similar commands associated texts
- # the key are the commands, the values are
- # hash references associating shorthands to
- # texts.
-
-sub initialise_state($)
-{
- my $state = shift;
- $state->{'preformatted'} = 0 unless exists($state->{'preformatted'});
- $state->{'code_style'} = 0 unless exists($state->{'code_style'});
- $state->{'keep_texi'} = 0 unless exists($state->{'keep_texi'});
- $state->{'keep_nr'} = 0 unless exists($state->{'keep_nr'});
- $state->{'detailmenu'} = 0 unless exists($state->{'detailmenu'}); # number of opened detailed menus
- $state->{'table_list_stack'} = [ {'format' => "noformat"} ] unless exists($state->{'table_list_stack'});
- $state->{'paragraph_style'} = [ '' ] unless exists($state->{'paragraph_style'});
- $state->{'preformatted_stack'} = [ '' ] unless exists($state->{'preformatted_stack'});
- $state->{'menu'} = 0 unless exists($state->{'menu'});
- $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
- $state->{'element'} = $elements_list[0] unless (exists($state->{'element'}) and !$state->{'element'}->{'before_anything'});
-}
-
-sub pass_text()
-{
- my %state;
- initialise_state(\%state);
- my @stack;
- my $text;
- my $doc_nr;
- my $in_doc = 0;
- my $element;
- my @text =();
- my @section_lines = ();
- my @head_lines = ();
- my $one_section = 1 if (@elements_list == 1);
-
- if (@elements_list == 0)
- {
- warn "$WARN empty document\n";
- exit (0);
- }
-
- # We set titlefont only if the titlefont appeared in the top element
- if (defined($element_top->{'titlefont'}))
- {
- $value{'_titlefont'} = $element_top->{'titlefont'};
- }
-
- # prepare %Texi2HTML::THISDOC
-# $Texi2HTML::THISDOC{'settitle_texi'} = $value{'_settitle'};
- $Texi2HTML::THISDOC{'fulltitle_texi'} = '';
- $Texi2HTML::THISDOC{'title_texi'} = '';
- foreach my $possible_fulltitle (('_title', '_settitle', '_shorttitlepage', '_titlefont'))
- {
- if ($value{$possible_fulltitle} ne '')
- {
- $Texi2HTML::THISDOC{'fulltitle_texi'} = $value{$possible_fulltitle};
- last;
- }
- }
- foreach my $possible_title_texi ($value{'_settitle'}, $Texi2HTML::THISDOC{'fulltitle_texi'})
- {
- if ($possible_title_texi ne '')
- {
- $Texi2HTML::THISDOC{'title_texi'} = $possible_title_texi;
- last;
- }
- }
-# $Texi2HTML::THISDOC{'fulltitle_texi'} = $value{'_title'} || $value{'_settitle'} || $value{'_shorttitlepage'} || $value{'_titlefont'};
-# $Texi2HTML::THISDOC{'title_texi'} = $value{'_title'} || $value{'_settitle'} || $value{'_shorttitlepage'} || $value{'_titlefont'};
- foreach my $texi_cmd (('shorttitlepage', 'settitle', 'author',
- 'titlefont', 'subtitle', 'shorttitle'))
- {
- $Texi2HTML::THISDOC{$texi_cmd . '_texi'} = $value{'_' . $texi_cmd};
- }
- foreach my $doc_thing (('shorttitlepage', 'settitle', 'author',
- 'titlefont', 'subtitle', 'shorttitle', 'fulltitle', 'title'))
- {
- my $thing_texi = $Texi2HTML::THISDOC{$doc_thing . '_texi'};
- $Texi2HTML::THISDOC{$doc_thing} = substitute_line($thing_texi);
- $Texi2HTML::THISDOC{$doc_thing . '_no_texi'} =
- remove_texi($thing_texi);
- $Texi2HTML::THISDOC{$doc_thing . '_simple_format'} =
- simple_format(undef, $thing_texi);
- }
-
- # find Top name
- my $element_top_text = '';
- my $top_no_texi = '';
- my $top_simple_format = '';
- my $top_name;
- if ($element_top and $element_top->{'text'} and (!$node_top or ($element_top ne $node_top)))
- {
- $element_top_text = $element_top->{'text'};
- $top_no_texi = $element_top->{'no_texi'};
- $top_simple_format = $element_top->{'simple_format'};
- }
- foreach my $possible_top_name ($Texi2HTML::Config::TOP_HEADING,
- $element_top_text, $Texi2HTML::THISDOC{'title'},
- $Texi2HTML::THISDOC{'shorttitle'}, &$I('Top'))
- {
- if (defined($possible_top_name) and $possible_top_name ne '')
- {
- $top_name = $possible_top_name;
- last;
- }
- }
- foreach my $possible_top_no_texi ($Texi2HTML::Config::TOP_HEADING,
- $top_no_texi, $Texi2HTML::THISDOC{'title_no_texi'},
- $Texi2HTML::THISDOC{'shorttitle_no_texi'},
- &$I('Top',{},{'remove_texi' => 1}))
- {
- if (defined($possible_top_no_texi) and $possible_top_no_texi ne '')
- {
- $top_no_texi = $possible_top_no_texi;
- last;
- }
- }
-
- foreach my $possible_top_simple_format ($top_simple_format,
- $Texi2HTML::THISDOC{'title_simple_format'},
- $Texi2HTML::THISDOC{'shorttitle_simple_format'},
- &$I('Top',{}, {'simple_format' => 1}))
- {
- if (defined($possible_top_simple_format) and $possible_top_simple_format ne '')
- {
- $top_simple_format = $possible_top_simple_format;
- last;
- }
- }
-
-
-# my $top_name = $Texi2HTML::Config::TOP_HEADING || $element_top_text || $Texi2HTML::THISDOC{'title'} || $Texi2HTML::THISDOC{'shorttitle'} || &$I('Top');
-
- if ($Texi2HTML::THISDOC{'fulltitle_texi'} eq '')
- {
- $Texi2HTML::THISDOC{'fulltitle_texi'} = &$I('Untitled Document',{},
- {'keep_texi' => 1});
- }
- $Texi2HTML::THISDOC{'title_texi'} = $Texi2HTML::THISDOC{'settitle_texi'};
- $Texi2HTML::THISDOC{'title_texi'} = $Texi2HTML::THISDOC{'fulltitle_texi'}
- if ($Texi2HTML::THISDOC{'title_texi'} eq '');
-
- foreach my $doc_thing (('fulltitle', 'title'))
- {
- my $thing_texi = $Texi2HTML::THISDOC{$doc_thing . '_texi'};
- $Texi2HTML::THISDOC{$doc_thing} = substitute_line($thing_texi);
- $Texi2HTML::THISDOC{$doc_thing . '_no_texi'} =
- remove_texi($thing_texi);
- $Texi2HTML::THISDOC{$doc_thing . '_simple_format'} =
- simple_format(undef, $thing_texi);
- }
-
- for my $key (keys %Texi2HTML::THISDOC)
- {
- next if (ref($Texi2HTML::THISDOC{$key}));
-print STDERR "!!$key\n" if (!defined($Texi2HTML::THISDOC{$key}));
- $Texi2HTML::THISDOC{$key} =~ s/\s*$//;
- }
- $Texi2HTML::THISDOC{'program'} = $THISPROG;
- $Texi2HTML::THISDOC{'program_homepage'} = $T2H_HOMEPAGE;
- $Texi2HTML::THISDOC{'program_authors'} = $T2H_AUTHORS;
- $Texi2HTML::THISDOC{'user'} = $T2H_USER;
- $Texi2HTML::THISDOC{'user'} = $Texi2HTML::Config::USER if (defined($Texi2HTML::Config::USER));
-# $Texi2HTML::THISDOC{'documentdescription'} = $documentdescription;
- $Texi2HTML::THISDOC{'copying'} = $copying_comment;
- $Texi2HTML::THISDOC{'destination_directory'} = $docu_rdir;
- $Texi2HTML::THISDOC{'authors'} = [] if (!defined($Texi2HTML::THISDOC{'authors'}));
- $Texi2HTML::THISDOC{'subtitles'} = [] if (!defined($Texi2HTML::THISDOC{'subtitles'}));
- $Texi2HTML::THISDOC{'titles'} = [] if (!defined($Texi2HTML::THISDOC{'titles'}));
- foreach my $element (('authors', 'subtitles', 'titles'))
- {
- my $i;
- for ($i = 0; $i < $#{$Texi2HTML::THISDOC{$element}} + 1; $i++)
- {
- chomp ($Texi2HTML::THISDOC{$element}->[$i]);
- $Texi2HTML::THISDOC{$element}->[$i] = substitute_line($Texi2HTML::THISDOC{$element}->[$i]);
- #print STDERR "$element:$i: $Texi2HTML::THISDOC{$element}->[$i]\n";
- }
- }
- # prepare TOC, OVERVIEW...
- my ($toc_file, $stoc_file, $foot_file, $about_file);
- # if not split the references are to the same file
- $toc_file = $stoc_file = $foot_file = $about_file = '';
- if ($Texi2HTML::Config::SPLIT)
- {
- $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'}));
- }
- $foot_file = $docu_foot;
- $about_file = $docu_about;
- }
- $Texi2HTML::THISDOC{'toc_file'} = $toc_file;
- $Texi2HTML::HREF{'Contents'} = $toc_file.'#'.$content_element{'contents'}->{'id'} if @{$Texi2HTML::TOC_LINES};
- $Texi2HTML::HREF{'Overview'} = $stoc_file.'#'.$content_element{'shortcontents'}->{'id'} if @{$Texi2HTML::OVERVIEW};
- $Texi2HTML::HREF{'Footnotes'} = $foot_file. '#SEC_Foot';
- $Texi2HTML::HREF{'About'} = $about_file . '#SEC_About' unless ($one_section or (not $Texi2HTML::Config::SPLIT and not $Texi2HTML::Config::SECTION_NAVIGATION));
-
- $Texi2HTML::NAME{'First'} = $element_first->{'text'};
- $Texi2HTML::NAME{'Last'} = $element_last->{'text'};
- $Texi2HTML::NAME{'About'} = &$I('About This Document');
- $Texi2HTML::NAME{'Contents'} = &$I('Table of Contents');
- $Texi2HTML::NAME{'Overview'} = &$I('Short Table of Contents');
- $Texi2HTML::NAME{'Top'} = $top_name;
- $Texi2HTML::NAME{'Footnotes'} = &$I('Footnotes');
- $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{'About'} = &$I('About This Document', {}, {'remove_texi' => 1} );
- $Texi2HTML::NO_TEXI{'Contents'} = &$I('Table of Contents', {}, {'remove_texi' => 1} );
- $Texi2HTML::NO_TEXI{'Overview'} = &$I('Short Table of Contents', {}, {'remove_texi' => 1} );
- $Texi2HTML::NO_TEXI{'Top'} = $top_no_texi;
- $Texi2HTML::NO_TEXI{'Footnotes'} = &$I('Footnotes', {}, {'remove_texi' => 1} );
- $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{'About'} = &$I('About This Document', {}, {'simple_format' => 1});
- $Texi2HTML::SIMPLE_TEXT{'Contents'} = &$I('Table of Contents',{}, {'simple_format' => 1});
- $Texi2HTML::SIMPLE_TEXT{'Overview'} = &$I('Short Table of Contents', {}, {'simple_format' => 1});
- $Texi2HTML::SIMPLE_TEXT{'Top'} = $top_simple_format;
- $Texi2HTML::SIMPLE_TEXT{'Footnotes'} = &$I('Footnotes', {},{'simple_format' => 1});
-
- $Texi2HTML::SIMPLE_TEXT{'Index'} = $element_chapter_index->{'simple_format'} if (defined($element_chapter_index));
- # must be after toc_body, but before titlepage
- for my $element_tag ('contents', 'shortcontents')
- {
- my $toc_lines = &$Texi2HTML::Config::inline_contents(undef, $element_tag, $content_element{$element_tag});
- @{$Texi2HTML::THISDOC{'inline_contents'}->{$element_tag}} = @$toc_lines if (defined($toc_lines));
- }
- $Texi2HTML::TITLEPAGE = '';
- $Texi2HTML::TITLEPAGE = substitute_text({}, @{$region_lines{'titlepage'}})
- if (@{$region_lines{'titlepage'}});
- &$Texi2HTML::Config::titlepage();
-
- &$Texi2HTML::Config::init_out();
- $to_encoding = $Texi2HTML::Config::OUT_ENCODING;
-
- ############################################################################
- # 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);
- }
-
- ############################################################################
- #
- #
-
- my $FH;
- my $index_pages;
- my $index_pages_nr;
- my $index_nr = 0;
- my $line_nr;
- my $first_section = 0; # 1 if it is the first section of a page
- while (@doc_lines)
- {
- unless ($index_pages)
- { # not in a index split over sections
- $_ = shift @doc_lines;
- my $chomped_line = $_;
- if (!chomp($chomped_line) and @doc_lines)
- { # if the line has no end of line it is concatenated with the next
- $doc_lines[0] = $_ . $doc_lines[0];
- next;
- }
- $line_nr = shift (@doc_numbers);
- #print STDERR "$line_nr->{'file_name'}($line_nr->{'macro'},$line_nr->{'line_nr'}) $_" if ($line_nr);
- }
- #print STDERR "PASS_TEXT: $_";
- #dump_stack(\$text, \@stack, \%state);
- if (!$state{'raw'} and !$state{'verb'})
- {
- my $tag = '';
- $tag = $1 if (/^\@(\w+)/ and !$index_pages);
-
- if (($tag eq 'node') or defined($sec2level{$tag}) or $index_pages)
- {
- if (@stack or (defined($text) and $text ne ''))
- {# 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);
- push @section_lines, $text;
- $text = '';
- }
- $sec_num++ if ($sec2level{$tag});
- my $new_element;
- my $current_element;
- if ($tag =~ /heading/)
- {# handle headings, they are not in element lists
- $current_element = $sections{$sec_num};
- #print STDERR "HEADING $_";
- if (! $element)
- {
- $new_element = shift @elements_list;
- }
- else
- {
- push (@section_lines, &$Texi2HTML::Config::anchor($current_element->{'id'}) . "\n");
- push @section_lines, &$Texi2HTML::Config::heading($current_element);
- next;
- }
- }
- elsif (!$index_pages)
- {# handle node and structuring elements
- $current_element = shift (@all_elements);
- ########################## begin debug section
- 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 ": $_" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- ########################## end debug section
-
- # The element begins a new section if there is no previous
- # or it is an element and not the current one or the
- # associated section (in case of node) is not the current
- # one
- if (!$element
- or ($current_element->{'element'} and ($current_element ne $element))
- or ($current_element->{'section_ref'} and ($current_element->{'section_ref'} ne $element)))
- {
- $new_element = shift @elements_list;
- }
- ########################### begin debug
- my $section_element = $new_element;
- $section_element = $element unless ($section_element);
- if (!$current_element->{'node'} and !$current_element->{'index_page'} and ($section_element ne $current_element))
- {
- print STDERR "NODE: $element->{'texi'}\n" if ($element->{'node'});
- warn "elements_list and all_elements not in sync (elements $section_element->{'texi'}, all $current_element->{'texi'}): $_";
- }
- ########################### end debug
- }
- else
- { # this is a new index section
- $new_element = $index_pages->[$index_pages_nr]->{'element'};
- $current_element = $index_pages->[$index_pages_nr]->{'element'};
- print STDERR "New index page '$new_element->{'texi'}' nr: $index_pages_nr\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- my $list_element = shift @elements_list;
- die "element in index_pages $new_element->{'texi'} and in list $list_element->{'texi'} differs\n" unless ($list_element eq $new_element);
- }
- if ($new_element)
- {
- $index_nr = 0;
- my $old = 'NO_OLD';
- $old = $element->{'texi'} if (defined($element));
- print STDERR "NEW: $new_element->{'texi'}, OLD: $old\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
- # print the element that just finished
- $Texi2HTML::THIS_SECTION = \@section_lines;
- $Texi2HTML::THIS_HEADER = \@head_lines;
- if ($element)
- {
- finish_element($FH, $element, $new_element, $first_section);
- $first_section = 0;
- @section_lines = ();
- @head_lines = ();
- }
- else
- {
- print STDERR "# Writing elements:" if ($T2H_VERBOSE);
- if ($Texi2HTML::Config::IGNORE_PREAMBLE_TEXT)
- {
- @section_lines = ();
- @head_lines = ();
- }
- # remove empty line at the beginning of @section_lines
- shift @section_lines while (@section_lines and ($section_lines[0] =~ /^\s*$/));
- }
- # begin new element
- my $previous_file;
- $previous_file = $element->{'file'} if (defined($element));
- $element = $new_element;
- $state{'element'} = $element;
- $Texi2HTML::THIS_ELEMENT = $element;
- #print STDERR "Doing hrefs for $element->{'texi'} First ";
- $Texi2HTML::HREF{'First'} = href($element_first, $element->{'file'});
- #print STDERR "Last ";
- $Texi2HTML::HREF{'Last'} = href($element_last, $element->{'file'});
- #print STDERR "Index ";
- $Texi2HTML::HREF{'Index'} = href($element_chapter_index, $element->{'file'}) if (defined($element_chapter_index));
- #print STDERR "Top ";
- $Texi2HTML::HREF{'Top'} = href($element_top, $element->{'file'});
- if ($Texi2HTML::Config::INLINE_CONTENTS)
- {
- $Texi2HTML::HREF{'Contents'} = href($content_element{'contents'}, $element->{'file'});
- $Texi2HTML::HREF{'Overview'} = href($content_element{'shortcontents'}, $element->{'file'});
- }
- foreach my $direction (@element_directions)
- {
- my $elem = $element->{$direction};
- $Texi2HTML::NODE{$direction} = undef;
- $Texi2HTML::HREF{$direction} = undef;
- next unless (defined($elem));
- #print STDERR "$direction ";
- if ($elem->{'node'} or $elem->{'external_node'} or $elem->{'index_page'} or !$elem->{'seen'})
- {
- $Texi2HTML::NODE{$direction} = $elem->{'text'};
- }
- elsif ($elem->{'node_ref'})
- {
- $Texi2HTML::NODE{$direction} = $elem->{'node_ref'}->{'text'};
- }
- if (!$elem->{'seen'})
- {
- $Texi2HTML::HREF{$direction} = do_external_href($elem->{'texi'});
- }
- else
- {
- $Texi2HTML::HREF{$direction} = href($elem, $element->{'file'});
- }
- $Texi2HTML::NAME{$direction} = $elem->{'text'};
- $Texi2HTML::NO_TEXI{$direction} = $elem->{'no_texi'};
- $Texi2HTML::SIMPLE_TEXT{$direction} = $elem->{'simple_format'};
- #print STDERR "$direction ($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 $element->{'texi'}\n";
- $files{$element->{'file'}}->{'counter'}--;
- if (!defined($previous_file) or ($element->{'file'} ne $previous_file))
- {
- my $file = $element->{'file'};
- print STDERR "\n" if ($T2H_VERBOSE and !$T2H_DEBUG);
- print STDERR "# Writing to $docu_rdir$file " if $T2H_VERBOSE;
- my $do_page_head = 0;
- if ($files{$file}->{'filehandle'})
- {
- $FH = $files{$file}->{'filehandle'};
- }
- else
- {
- $FH = open_out("$docu_rdir$file");
-#print STDERR "OPEN $docu_rdir$file, $FH". scalar($FH)."\n";
- $files{$file}->{'filehandle'} = $FH;
- $do_page_head = 1;
- }
- if ($element->{'top'})
- {
- &$Texi2HTML::Config::print_Top_header($FH, $do_page_head);
- }
- else
- {
- &$Texi2HTML::Config::print_page_head($FH) if ($do_page_head);
- &$Texi2HTML::Config::print_chapter_header($FH) if $Texi2HTML::Config::SPLIT eq 'chapter';
- &$Texi2HTML::Config::print_section_header($FH) if $Texi2HTML::Config::SPLIT eq 'section';
- }
- $first_section = 1;
- }
- print STDERR "." if ($T2H_VERBOSE);
- print STDERR "\n" if ($T2H_DEBUG);
- }
- my $label = &$Texi2HTML::Config::anchor($current_element->{'id'}) . "\n";
- if (@section_lines)
- {
- push (@section_lines, $label);
- }
- else
- {
- push @head_lines, $label;
- }
- if ($index_pages)
- {
- push @section_lines, &$Texi2HTML::Config::heading($element);
- #print STDERR "Do index page $index_pages_nr\n";
- my $page = do_index_page($index_pages, $index_pages_nr);
- push @section_lines, $page;
- if (defined ($index_pages->[$index_pages_nr + 1]))
- {
- $index_pages_nr++;
- }
- else
- {
- $index_pages = undef;
- }
- next;
- }
- push @section_lines, &$Texi2HTML::Config::heading($current_element) if ($current_element->{'element'} and !$current_element->{'top'});
- next;
- }
- elsif ($tag eq 'printindex')
- {
- s/\s+(\w+)\s*//;
- my $name = $1;
- close_paragraph(\$text, \@stack, \%state);
- next if (!$index_names{$name} or $empty_indices{$name});
- $printed_indices{$name} = 1;
- print STDERR "print index $name($index_nr) in `$element->{'texi'}', element->{'indices'}: $element->{'indices'},\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS or $T2H_DEBUG & $DEBUG_INDEX);
- print STDERR "element->{'indices'}->[index_nr]: $element->{'indices'}->[$index_nr] (@{$element->{'indices'}->[$index_nr]})\n" if ($T2H_DEBUG & $DEBUG_ELEMENTS or $T2H_DEBUG & $DEBUG_INDEX);
- $index_pages = $element->{'indices'}->[$index_nr] if (@{$element->{'indices'}->[$index_nr]} > 1);
- $index_pages_nr = 0;
- add_prev(\$text, \@stack, do_index_page($element->{'indices'}->[$index_nr], 0));
- $index_pages_nr++;
- $index_nr++;
- begin_paragraph (\@stack, \%state) if ($state{'preformatted'});
- next if (@stack);
- push @section_lines, $text;
- $text = '';
- next;
- }
- elsif (($tag eq 'contents') or ($tag eq 'summarycontents') or ($tag eq 'shortcontents'))
- {
- my $element_tag = $tag;
- $element_tag = 'shortcontents' if ($element_tag ne 'contents');
- if ($Texi2HTML::Config::INLINE_CONTENTS and !$content_element{$element_tag}->{'aftertitlepage'})
- {
- if (@stack or (defined($text) and $text ne ''))
- {# in pass text contents shouldn't appear in formats
- close_stack(\$text, \@stack, \%state, $line_nr);
- push @section_lines, $text;
- $text = '';
- }
- my $toc_lines = &$Texi2HTML::Config::inline_contents($FH, $tag, $content_element{$element_tag});
- push (@section_lines, @$toc_lines) if (defined($toc_lines)) ;
- }
- next;
- }
- }
- scan_line($_, \$text, \@stack, \%state, $line_nr);
- #print STDERR "after scan_line: $_";
- #dump_stack(\$text, \@stack, \%state);
- next if (@stack);
- if ($text ne '' )
- {
- push @section_lines, $text;
- $text = '';
- }
- }
- if (@stack)
- {# close stack at the end of pass text
- close_stack(\$text, \@stack, \%state, $line_nr);
- }
- if (defined($text))
- {
- push @section_lines, $text;
- }
- print STDERR "\n" if ($T2H_VERBOSE);
-
- $Texi2HTML::THIS_SECTION = \@section_lines;
- # if no sections, then simply print document as is
- if ($one_section)
- {
- if (@foot_lines)
- {
- &$Texi2HTML::Config::foot_section (\@foot_lines);
- push @section_lines, @foot_lines;
- }
- $Texi2HTML::THIS_HEADER = \@head_lines;
- if ($element->{'top'})
- {
- print STDERR "Bug: `$element->{'texi'}' level undef\n" if (!$element->{'node'} and !defined($element->{'level'}));
- $element->{'level'} = 1 if (!defined($element->{'level'}));
- $element->{'node'} = 0; # otherwise Texi2HTML::Config::heading may uses the node level
- $element->{'text'} = $Texi2HTML::NAME{'Top'};
- print STDERR "[Top]" if ($T2H_VERBOSE);
- unless ($element->{'titlefont'} or $element->{'index_page'})
- {
- unshift @section_lines, &$Texi2HTML::Config::heading($element);
- }
- }
- print STDERR "# Write the section $element->{'texi'}\n" if ($T2H_VERBOSE);
- &$Texi2HTML::Config::one_section($FH);
- close_out($FH);
- return;
- }
-
- finish_element ($FH, $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;
- }
- if (@foot_lines)
- {
- print STDERR "# writing Footnotes in $docu_foot_file\n" if $T2H_VERBOSE;
- $FH = open_out ($docu_foot_file)
- if $Texi2HTML::Config::SPLIT;
- $Texi2HTML::HREF{'This'} = $Texi2HTML::HREF{'Footnotes'};
- $Texi2HTML::HREF{'Footnotes'} = '#' . $footnote_element->{'id'};
- $Texi2HTML::NAME{'This'} = $Texi2HTML::NAME{'Footnotes'};
- $Texi2HTML::NO_TEXI{'This'} = $Texi2HTML::NO_TEXI{'Footnotes'};
- $Texi2HTML::SIMPLE_TEXT{'This'} = $Texi2HTML::SIMPLE_TEXT{'Footnotes'};
- $Texi2HTML::THIS_SECTION = \@foot_lines;
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor($footnote_element->{'id'}) . "\n" ];
- &$Texi2HTML::Config::print_Footnotes($FH);
- close_out($FH, $docu_foot_file)
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{'Footnotes'} = $Texi2HTML::HREF{'This'};
- }
-
- if (@{$Texi2HTML::TOC_LINES} and !$Texi2HTML::Config::INLINE_CONTENTS)
- {
- print STDERR "# writing Toc in $docu_toc_file\n" if $T2H_VERBOSE;
- $FH = open_out ($docu_toc_file)
- if $Texi2HTML::Config::SPLIT;
- $Texi2HTML::HREF{'This'} = $Texi2HTML::HREF{'Contents'};
- $Texi2HTML::HREF{'Contents'} = "#SEC_Contents";
- $Texi2HTML::NAME{'This'} = $Texi2HTML::NAME{'Contents'};
- $Texi2HTML::NO_TEXI{'This'} = $Texi2HTML::NO_TEXI{'Contents'};
- $Texi2HTML::SIMPLE_TEXT{'This'} = $Texi2HTML::SIMPLE_TEXT{'Contents'};
- $Texi2HTML::THIS_SECTION = $Texi2HTML::TOC_LINES;
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor("SEC_Contents") . "\n" ];
- &$Texi2HTML::Config::print_Toc($FH);
- close_out($FH, $docu_toc_file)
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{'Contents'} = $Texi2HTML::HREF{'This'};
- }
-
- if (@{$Texi2HTML::OVERVIEW} and !$Texi2HTML::Config::INLINE_CONTENTS)
- {
- print STDERR "# writing Overview in $docu_stoc_file\n" if $T2H_VERBOSE;
- $FH = open_out ($docu_stoc_file)
- if $Texi2HTML::Config::SPLIT;
- $Texi2HTML::HREF{This} = $Texi2HTML::HREF{Overview};
- $Texi2HTML::HREF{Overview} = "#SEC_Overview";
- $Texi2HTML::NAME{This} = $Texi2HTML::NAME{Overview};
- $Texi2HTML::NO_TEXI{This} = $Texi2HTML::NO_TEXI{Overview};
- $Texi2HTML::SIMPLE_TEXT{This} = $Texi2HTML::SIMPLE_TEXT{Overview};
- $Texi2HTML::THIS_SECTION = $Texi2HTML::OVERVIEW;
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor("SEC_Overview") . "\n" ];
- &$Texi2HTML::Config::print_Overview($FH);
- close_out($FH,$docu_stoc_file)
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{Overview} = $Texi2HTML::HREF{This};
- }
- my $about_body;
- if ($about_body = &$Texi2HTML::Config::about_body())
- {
- print STDERR "# writing About in $docu_about_file\n" if $T2H_VERBOSE;
- $FH = open_out ($docu_about_file)
- if $Texi2HTML::Config::SPLIT;
-
- $Texi2HTML::HREF{This} = $Texi2HTML::HREF{About};
- $Texi2HTML::HREF{About} = "#SEC_About";
- $Texi2HTML::NAME{This} = $Texi2HTML::NAME{About};
- $Texi2HTML::NO_TEXI{This} = $Texi2HTML::NO_TEXI{About};
- $Texi2HTML::SIMPLE_TEXT{This} = $Texi2HTML::SIMPLE_TEXT{About};
- $Texi2HTML::THIS_SECTION = [$about_body];
- $Texi2HTML::THIS_HEADER = [ &$Texi2HTML::Config::anchor("SEC_About") . "\n" ];
- &$Texi2HTML::Config::print_About($FH);
- close_out($FH, $docu_stoc_file)
- if ($Texi2HTML::Config::SPLIT);
- $Texi2HTML::HREF{About} = $Texi2HTML::HREF{This};
- }
-
- unless ($Texi2HTML::Config::SPLIT)
- {
- &$Texi2HTML::Config::print_page_foot($FH);
- close_out ($FH);
- }
-}
-
-# 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::SPLIT and scalar(@foot_lines)
- and !$Texi2HTML::Config::SEPARATED_FOOTNOTES
- 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'}
- = $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)
- {
- $relative_foot_num =
- $files{$new_element->{'file'}}->{'relative_foot_num'};
- }
- @foot_lines = ();
- }
- if ($element->{'top'})
- {
- my $top_file = $docu_top_file;
- #print STDERR "TOP $element->{'texi'}, @section_lines\n";
- print STDERR "[Top]" if ($T2H_VERBOSE);
- $Texi2HTML::HREF{'Top'} = href($element_top, $element->{'file'});
- &$Texi2HTML::Config::print_Top($FH, ($element->{'titlefont'} or $element->{'index_page'}));
- my $end_page = 0;
- if ($Texi2HTML::Config::SPLIT)
- {
- if (!$files{$element->{'file'}}->{'counter'})
- {
- $end_page = 1;
- }
- }
- &$Texi2HTML::Config::print_Top_footer($FH, $end_page);
- close_out($FH, $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);
- if (defined($new_element) and ($new_element->{'file'} ne $element->{'file'}))
- {
- if (!$files{$element->{'file'}}->{'counter'})
- {
- &$Texi2HTML::Config::print_chapter_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'chapter');
- &$Texi2HTML::Config::print_section_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'section');
- #print STDERR "Close file after $element->{'texi'}\n";
- &$Texi2HTML::Config::print_page_foot($FH);
- close_out($FH);
- }
- else
- {
- print STDERR "counter $files{$element->{'file'}}->{'counter'} ne 0, file $element->{'file'}\n" if ($T2H_DEBUG);
- }
- }
- elsif (!defined($new_element))
- {
- if ($Texi2HTML::Config::SPLIT)
- { # end of last splitted section
- &$Texi2HTML::Config::print_chapter_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'chapter');
- &$Texi2HTML::Config::print_section_footer($FH) if ($Texi2HTML::Config::SPLIT eq 'section');
- &$Texi2HTML::Config::print_page_foot($FH);
- close_out($FH);
- }
- else
- {
- &$Texi2HTML::Config::end_section($FH, 1);
- }
- }
- elsif ($new_element->{'top'})
- {
- &$Texi2HTML::Config::end_section($FH, 1);
- }
- else
- {
- &$Texi2HTML::Config::end_section($FH);
- }
- }
-}
-
-# 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::SPLIT);
- if (!$redirection_file)
- {
- print STDERR "Bug: file for redirection for `$node->{'texi'}' don't exist\n" unless ($novalidate);
- 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'};
- $Texi2HTML::HREF{'This'} = "$node->{'file'}#$node->{'id'}";
- my $NODEFILE = open_out ($file);
- &$Texi2HTML::Config::print_redirection_page ($NODEFILE);
- close $NODEFILE || die "$ERROR: Can't close $file: $!\n";
- }
-}
-
-#+++############################################################################
-# #
-# Low level functions #
-# #
-#---############################################################################
-
-sub locate_include_file($)
-{
- my $file = shift;
-
- # APA: Don't implicitely search ., to conform with the docs!
- # return $file if (-e $file && -r $file);
- 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;
- local *FH;
- if (open(*FH, "<$name"))
- {
- if (defined($Texi2HTML::Config::IN_ENCODING) and $Texi2HTML::Config::USE_UNICODE)
- {
- binmode(*FH, ":encoding($Texi2HTML::Config::IN_ENCODING)");
- }
- my $file = { 'fh' => *FH,
- 'input_spool' => { 'spool' => [],
- 'macro' => '' },
- 'name' => $name,
- 'line_nr' => 0 };
- unshift(@fhs, $file);
- $input_spool = $file->{'input_spool'};
- $line_number->{'file_name'} = $name;
- $line_number->{'line_nr'} = 1;
- }
- else
- {
- warn "$ERROR Can't read file $name: $!\n";
- }
-}
-
-sub open_out($)
-{
- my $file = shift;
- local *FILE;
- if ($file eq '-')
- {
- binmode(STDOUT, ":encoding($to_encoding)") if (defined($to_encoding) and $Texi2HTML::Config::USE_UNICODE);
- return \*STDOUT;
- }
-
- unless (open(FILE, ">$file"))
- {
- die "$ERROR Can't open $file for writing: $!\n";
- }
- if (defined($to_encoding) and $Texi2HTML::Config::USE_UNICODE)
- {
- if ($to_encoding eq 'utf8' or $to_encoding eq 'utf-8-strict')
- {
- binmode(FILE, ':utf8');
- }
- else
- {
- binmode(FILE, ':bytes');
- }
- binmode(FILE, ":encoding($to_encoding)");
- }
- return *FILE;
-}
-
-# FIXME not used when split
-sub close_out($;$)
-{
- my $FH = shift;
- my $file = shift;
- $file = '' if (!defined($file));
- return if ($Texi2HTML::Config::OUT eq '');
- close ($FH) || die "$ERROR: Error occurred when closing $file: $!\n";
-}
-
-sub next_line($)
-{
- my $line_number = shift;
- while (@fhs)
- {
- my $file = $fhs[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);
- }
- 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'};
- return($line) if (defined($line));
- no strict "refs";
- close($fh);
- use strict "refs";
- shift(@fhs);
- }
- return(undef);
-}
-
-# echo a warning
-sub echo_warn($;$)
-{
- my $text = shift;
- chomp ($text);
- my $line_number = shift;
- warn "$WARN $text " . format_line_number($line_number) . "\n";
-}
-
-sub echo_error($;$)
-{
- my $text = shift;
- chomp ($text);
- my $line_number = shift;
- warn "$ERROR $text " . format_line_number($line_number) . "\n";
-}
-
-sub format_line_number($)
-{
- my $line_number = shift;
- my $macro_text = '';
- #$line_number = undef;
- return '' unless (defined($line_number));
- $macro_text = " in $line_number->{'macro'}" if ($line_number->{'macro'} ne '');
- my $file_text = '(';
- $file_text = "(in $line_number->{'file_name'} " if ($line_number->{'file_name'} ne $docu);
- return "${file_text}l. $line_number->{'line_nr'}" . $macro_text . ')';
-}
-
-# 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));
- unless (open(DMPTEXI, ">$file"))
- {
- warn "Can't open $file for writing: $!\n";
- }
- print STDERR "# Dump texi\n" if ($T2H_VERBOSE);
- my $index = 0;
- foreach my $line (@$lines)
- {
- my $number_information = '';
- my $chomped_line = $line;
- $number_information = "$numbers->[$index]->{'file_name'}($numbers->[$index]->{'macro'},$numbers->[$index]->{'line_nr'}) " if (defined($numbers));
- print DMPTEXI "${number_information}$line";
- $index++ if (chomp($chomped_line));
- }
- close DMPTEXI;
-}
-
-# 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-]*)([\s\{\}\@])/ or $line =~ /^\s*\@([a-zA-Z][\w-]*)$/)
- {
- return ($1);
- }
- return '';
-}
-
-sub top_stack($)
-{
- my $stack = shift;
- return undef unless(@$stack);
- return $stack->[-1];
-}
-
-# return the next element with balanced {}
-sub next_bracketed($$)
-{
- my $line = shift;
- my $line_nr = shift;
- my $opened_braces = 0;
- my $result = '';
- my $spaces;
- 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 =~ s/\s*$//;
- 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)
- {
- echo_error("too much '}' in specification", $line_nr);
- $opened_braces = 0;
- next;
- }
- $result .= $brace;
- return ($result, $line, $spaces) if ($opened_braces == 0);
- }
- }
- if ($opened_braces)
- {
- echo_error("'{' not closed in specification", $line_nr);
- return ($result . ( '}' x $opened_braces), '', $spaces);
- }
- print STDERR "BUG: at the end of next_bracketed\n";
- return undef;
-}
-
-# 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;
- return '' unless defined($element);
- my $href = '';
- print STDERR "Bug: $element->{'texi'}, id undef\n" if (!defined($element->{'id'}));
- print STDERR "Bug: $element->{'texi'}, file undef\n" if (!defined($element->{'file'}));
-#foreach my $key (keys(%{$element}))
-#{
-# my $value = 'UNDEF'; $value = $element->{$key} if defined($element->{$key});
-# print STDERR "$key: $value\n";
-#}print STDERR "\n";
- $href .= $element->{'file'} if (defined($element->{'file'}) and $file ne $element->{'file'});
- $href .= "#$element->{'id'}" if (defined($element->{'id'}));
- return $href;
-}
-
-sub normalise_space($)
-{
- return undef unless (defined ($_[0]));
- my $text = shift;
- $text =~ s/\s+/ /go;
- $text =~ s/ $//;
- $text =~ s/^ //;
- return $text;
-}
-
-sub normalise_node($)
-{
- return undef unless (defined ($_[0]));
- my $text = shift;
- $text = normalise_space($text);
- $text =~ s/^top$/Top/i;
- return $text;
-}
-
-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;
-
- return '' if ($state->{'multiple_pass'});
- $anchor = normalise_node($anchor);
- if (!exists($nodes{$anchor}) or !defined($nodes{$anchor}->{'id'}))
- {
- print STDERR "Bug: unknown anchor `$anchor'\n";
- }
- return &$Texi2HTML::Config::anchor($nodes{$anchor}->{'id'});
-}
-
-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'}));
- $term = 1 if ($format->{'term'}); #This should never happen
-
- 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 ($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 (exists($::style_map_ref->{$paragraph_command}) and
- !exists($Texi2HTML::Config::special_list_commands{$format}->{$paragraph_command}))
- {
- if ($format eq 'itemize')
- {
- chomp ($text);
- $text = do_simple($paragraph_command, $text, $state, [$text]);
- $text = $text . "\n";
- }
- }
- elsif (exists($::things_map_ref->{$paragraph_command}))
- {
- $paragraph_command_formatted = do_simple($paragraph_command, '', $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 ($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 (exists($::style_map_ref->{$leading_command}) and
- !exists($Texi2HTML::Config::special_list_commands{$format}->{$leading_command}) and ($style_type{$leading_command} eq 'style'))
- {
- $text = do_simple($leading_command, $text, $state,[$text]) if ($format eq 'itemize');
- }
- elsif (exists($::things_map_ref->{$leading_command}))
- {
- $leading_command_formatted = do_simple($leading_command, '', $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_NODE)
- {
- $node_file = $nodes{$texi_node}->{'cross_manual_file'};
- }
- }
- else
- {
- if ($Texi2HTML::Config::TRANSLITERATE_NODE)
- {
- ($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_NODE);
- }
- 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 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 $no_line_macros{$next_tag} or
- (($next_tag =~ /^(\w+?)index$/) and ($1 ne 'print')) or
- (($line =~ /^\@end\s+(\w+)/) and $no_line_macros{"end $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})
- or (!no_paragraph($state,$text_following)))
- {
- begin_paragraph($stack, $state);
- }
-}
-
-# handle raw formatting, ignored regions...
-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 ($text_macros{$type} eq 'raw')
- {
- $state->{'raw'} = $type;
- #print STDERR "RAW\n";
- if ($state->{'raw'})
- {
- push @$stack, { 'style' => $type, 'text' => '' };
- }
- }
- elsif ($text_macros{$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_ifvalue = 0;
- if ($type eq 'ifclear')
- {
- if (defined($value{$2}))
- {
- $open_ifvalue = 1;
- }
- else
- {
- push @{$state->{'text_macro_stack'}}, $type;
- }
- }
- elsif ($type eq 'ifset')
- {
- unless (defined($value{$2}))
- {
- $open_ifvalue = 1;
- }
- else
- {
- push @{$state->{'text_macro_stack'}}, $type;
- }
- }
- if ($open_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 inside an
- if ($type eq $state->{'ifvalue'})
- {
- $state->{'ifvalue_inside'}++;
- return ($line,'');
- }
- echo_error ("Bad $type line: $line", $line_nr) unless ($state->{'ignored'});
- }
- }
- elsif (not $text_macros{$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, currently only tex, 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 do_insertcopying($)
-{
- my $state = shift;
- return '' unless @{$region_lines{'copying'}};
- my $insert_copying_state = duplicate_state($state);
- $insert_copying_state->{'multiple_pass'} = 1;
- return substitute_text($insert_copying_state, @{$region_lines{'copying'}});
-}
-
-sub get_deff_index($$$)
-{
- my $tag = shift;
- my $line = shift;
- my $line_nr = shift;
-
- $tag =~ s/x$//;
- my ($style, $category, $name, $type, $class, $arguments);
- ($style, $category, $name, $type, $class, $arguments) = parse_def($tag, $line, $line_nr);
- $name = &$Texi2HTML::Config::definition_category($name, $class, $style);
- 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 $tag = $command;
-
- if (!ref ($Texi2HTML::Config::def_map{$tag}))
- {
- # substitute shortcuts for definition commands
- my $substituted = $Texi2HTML::Config::def_map{$tag};
- $substituted =~ s/(\w+)//;
- $tag = $1;
- $line = $substituted . $line;
- }
-#print STDERR "PARSE_DEF($command,$tag) $line";
- my ($category, $name, $type, $class, $arguments);
- my @args = @{$Texi2HTML::Config::def_map{$tag}};
- my $style = shift @args;
- while (@args)
- {
- my $arg = shift @args;
- if (defined($arg))
- {
- # backward compatibility, it was possible to have a { in front.
- $arg =~ s/^\{//;
- my $item;
- my $spaces;
- ($item, $line,$spaces) = next_bracketed($line, $line_nr);
- last if (!defined($item));
- $item =~ s/^\{(.*)\}$/$1/ if ($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;
- }
- elsif ($arg eq 'arg')
- {
- $line = $spaces . $item . $line;
- }
- }
- else
- {
- last;
- }
- }
-#print STDERR "PARSE_DEF (style $style, category $category, name $name, type $type, class $class, line $line)\n";
- return ($style, $category, $name, $type, $class, $line);
-}
-
-sub begin_deff_item($$;$)
-{
- my $stack = shift;
- my $state = shift;
- my $no_paragraph = shift;
- #print STDERR "DEF push deff_item for $state->{'deff'}\n";
- push @$stack, { 'format' => 'deff_item', 'text' => '', 'deff_line' => $state->{'deff_line'}};
- # there is no paragraph when a new deff just follows the deff we are
- # opening
- begin_paragraph($stack, $state)
- if ($state->{'preformatted'} and !$no_paragraph);
- delete($state->{'deff_line'});
- #dump_stack(undef, $stack, $state);
-}
-
-sub begin_paragraph($$)
-{
- my $stack = shift;
- my $state = shift;
-
- my $command = 1;
- my $top_format = top_format($stack);
- if (defined($top_format))
- {
- $command = $top_format;
- }
- else
- {
- $command = { };
- }
- $command->{'stack_at_beginning'} = [ @{$state->{'command_stack'}} ];
- if ($state->{'preformatted'})
- {
- push @$stack, {'format' => 'preformatted', 'text' => '' };
- $state->{'preformatted_context'} = $command;
- push @$stack, @{$state->{'paragraph_macros'}} if $state->{'paragraph_macros'};
- delete $state->{'paragraph_macros'};
- return;
- }
- $state->{'paragraph_context'} = $command;
- $state->{'paragraph_nr'}++;
- push @$stack, {'format' => 'paragraph', 'text' => '' };
- # 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 = 'asis';
- # macro_regexp
- if (($line =~ /^\s*\@([A-Za-z][\w-]*)(\{\})?$/ or $line =~ /^\s*\@([A-Za-z][\w-]*)(\{\})?\s/) and ($::things_map_ref->{$1} or defined($::style_map_ref->{$1})))
- {
- # macro_regexp
- $line =~ s/^\s*\@([A-Za-z][\w-]*)(\{\})?\s*//;
- $command = $1;
- }
- return ('', $command) if ($line =~ /^\s*$/);
- chomp $line;
- $line = substitute_text ({'keep_nr' => 1, 'keep_texi' => 1, 'check_item' => $tag}, $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;
- if ($line =~ s/^\s+\@columnfractions\s+//)
- {
- my @fractions = split /\s+/, $line;
- $table_width = $#fractions + 1;
- while (@fractions)
- {
- my $fraction = shift @fractions;
- unless ($fraction =~ /^(\d*\.\d+)|(\d+)\.?$/)
- {
- echo_error ("column fraction not a number: $fraction", $line_nr);
- #warn "$ERROR column fraction not a number: $fraction";
- }
- }
- }
- else
- {
- my $element;
- my $line_orig = $line;
- while ($line !~ /^\s*$/)
- {
- my $spaces;
- ($element, $line, $spaces) = next_bracketed($line, $line_nr);
- if ($element =~ /^\{/)
- {
- $table_width++;
- }
- else
- {
- echo_error ("garbage in multitable specification: $element", $line_nr);
- }
- }
- }
- return ($table_width);
-}
-
-sub end_format($$$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $format = shift;
- my $line_nr = shift;
- #print STDERR "END FORMAT $format\n";
- #dump_stack($text, $stack, $state);
- #sleep 1;
- if ($format_type{$format} eq 'menu')
- {
- $state->{'menu'}--;
- close_menu($text, $stack, $state, $line_nr);
- }
- if (($format_type{$format} eq 'list') or ($format_type{$format} eq 'table'))
- { # those functions return if they detect an inapropriate context
- add_item($text, $stack, $state, $line_nr, '', 1); # handle lists
- add_term($text, $stack, $state, $line_nr, 1); # handle table
- add_line($text, $stack, $state, $line_nr, 1); # handle table
- add_row($text, $stack, $state, $line_nr); # handle multitable
- }
-
- #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;
-
- 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 (defined($Texi2HTML::Config::def_map{$format}))
- {
- close_stack($text, $stack, $state, $line_nr, undef, 'deff_item')
- unless ($format_ref->{'format'} eq 'deff_item');
- add_prev($text, $stack, &$Texi2HTML::Config::def_item($format_ref->{'text'}));
- $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;
- echo_warn ("Waiting for \@end $format_ref->{'format'}, found \@end $format", $line_nr);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::def($format_ref->{'text'}));
- }
- elsif ($format_type{$format} eq 'cartouche')
- {
- add_prev($text, $stack, &$Texi2HTML::Config::cartouche($format_ref->{'text'},$state->{'command_stack'}));
- }
- elsif ($format eq 'float')
- {
- unless (defined($state->{'float'}))
- {
- print STDERR "Bug: state->{'float'} not defined in float\n";
- next;
- }
- my ($caption_lines, $shortcaption_lines) = &$Texi2HTML::Config::caption_shortcaption($state->{'float'});
- my ($caption_text, $shortcaption_text);
- $caption_text = substitute_text(duplicate_state($state), @$caption_lines) if (defined($caption_lines));
- $shortcaption_text = substitute_text(duplicate_state($state), @$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'};
- }
- elsif (exists ($Texi2HTML::Config::complex_format_map->{$format}))
- {
- $state->{'preformatted'}--;
- pop @{$state->{'preformatted_stack'}};
- # debug
- if (!defined($Texi2HTML::Config::complex_format_map->{$format_ref->{'format'}}->{'begin'}))
- {
- print STDERR "Bug undef $format_ref->{'format'}" . "->{'begin'} (for $format...)\n";
- dump_stack ($text, $stack, $state);
- }
- #print STDERR "before $format\n";
- #dump_stack ($text, $stack, $state);
- 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'))
- {
- #print STDERR "CLOSE $format ($format_ref->{'format'})\n$format_ref->{'text'}\n";
- pop @{$state->{'table_list_stack'}};
- #dump_stack($text, $stack, $state);
- if ($format_ref->{'format'} ne $format)
- { # for example vtable closing a table. Cannot be known
- # before if in a cell
- $format_mismatch = 1;
- echo_warn ("Waiting for \@end $format_ref->{'format'}, found \@end $format ", $line_nr);
- }
- if ($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'}));
- }
- 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'}));
- }
- }
- elsif ($format_type{$format} eq 'menu')
- {
- # it should be short-circuited if $Texi2HTML::Config::SIMPLE_MENU
- if ($state->{'preformatted'})
- {
- # end the fake complex format
- $state->{'preformatted'}--;
- pop @{$state->{'preformatted_stack'}};
- pop @$stack;
- }
- add_prev($text, $stack, &$Texi2HTML::Config::menu($format_ref->{'text'}));
- }
- elsif ($format eq 'quotation')
- {
- my $quotation_args = pop @{$state->{'quotation_stack'}};
- #add_prev($text, $stack, &$Texi2HTML::Config::quotation($format_ref->{'text'}, $quotation_args->{'text'}, $quotation_args->{'style_texi'}, $quotation_args->{'style_id'}));
- add_prev($text, $stack, &$Texi2HTML::Config::quotation($format_ref->{'text'}, $quotation_args->{'text'}, $quotation_args->{'text_texi'}));
- }
- elsif ($Texi2HTML::Config::paragraph_style{$format})
- {
- if ($state->{'paragraph_style'}->[-1] eq $format)
- {
- pop @{$state->{'paragraph_style'}};
- }
- add_prev($text, $stack, &$Texi2HTML::Config::paragraph_style_command($format_ref->{'format'},$format_ref->{'text'}));
- }
- elsif (exists($Texi2HTML::Config::format_map{$format}))
- {
- add_prev($text, $stack, end_simple_format($format_ref->{'format'}, $format_ref->{'text'}));
- }
- else
- {
- echo_warn("Unknown format $format", $line_nr);
- }
- # 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)
- {
- print STDERR "Bug: removed_from_stack $removed_from_stack ne format $format\n";
- }
-}
-
-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'});
- return (&$Texi2HTML::Config::normal_text($text, $remove_texi, $state->{'preformatted'}, $state->{'code_style'},$state->{'command_stack'}));
-}
-
-sub end_simple_format($$)
-{
- my $tag = shift;
- my $text = shift;
-
- my $element = $Texi2HTML::Config::format_map{$tag};
- return &$Texi2HTML::Config::format($tag, $element, $text);
-}
-
-sub close_menu($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- if ($state->{'menu_comment'})
- {
- #print STDERR "close MENU_COMMENT\n";
- #dump_stack($text, $stack, $state);
- close_stack($text, $stack, $state, $line_nr, undef, 'menu_comment');
- # close_paragraph isn't needed in most cases, but a preformatted may
- # appear after close_stack if we closed a format, as formats reopen
- # preformatted. However it is empty and close_paragraph will remove it
- close_paragraph($text, $stack, $state);
- my $menu_comment = pop @$stack;
- if (!$menu_comment->{'format'} or $menu_comment->{'format'} ne 'menu_comment')
- {
- warn "Bug waiting for menu_comment, got $menu_comment->{'format'}\n";
- dump_stack($text, $stack, $state);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::menu_comment($menu_comment->{'text'}));
- unless ($Texi2HTML::Config::SIMPLE_MENU)
- {
- pop @{$state->{'preformatted_stack'}};
- $state->{'preformatted'}--;
- }
- $state->{'menu_comment'}--;
- }
- if ($state->{'menu_entry'})
- {
- close_stack($text, $stack,$state, $line_nr, undef, 'menu_description');
- my $descr = pop(@$stack);
- print STDERR "# close_menu: close description\n" if ($T2H_DEBUG & $DEBUG_MENU);
- add_prev($text, $stack, do_menu_description($descr->{'text'}, $state));
- delete $state->{'menu_entry'};
- }
-}
-
-# Format menu link
-sub do_menu_link($$;$)
-{
- my $state = shift;
- my $line_nr = shift;
- my $simple = shift;
- my $menu_entry = $state->{'menu_entry'};
- my $file = $state->{'element'}->{'file'};
- my $node_name = normalise_node($menu_entry->{'node'});
-
- my $substitution_state = duplicate_state($state);
- my $name = substitute_line($menu_entry->{'name'}, $substitution_state);
- my $node_formatted = substitute_line($menu_entry->{'node'}, $substitution_state);
-
- my $entry = '';
- my $href;
- my $element = $nodes{$node_name};
-
- # menu points to an unknown node
- if (!$element->{'seen'})
- {
- if ($menu_entry->{'node'} =~ /^\s*\(.*\)/o or $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
- {
- echo_error ("Unknown node in menu entry `$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))
- {
- echo_warn (" ---> but equivalent node `$node_seen' found");
- $element = $nodes{$node_seen};
- }
- }
- }
-
- # the original node or an equivalent node was seen
- if ($element->{'seen'})
- {
- if ($element->{'reference_element'})
- {
- $element = $element->{'reference_element'};
- }
-
- #print STDERR "SUBHREF in menu for `$element->{'texi'}'\n";
- $href = href($element, $file);
- 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, $substitution_state, $href, $node_formatted, $name, $menu_entry->{'ending'}) unless ($simple);
- return &$Texi2HTML::Config::simple_menu_link($entry, $state->{'preformatted'}, $href, $node_formatted, $name, $menu_entry->{'ending'});
-}
-
-sub do_menu_description($$)
-{
- my $descr = shift;
- my $state = shift;
- my $menu_entry = $state->{'menu_entry'};
-
- my $element = $menu_entry->{'menu_reference_element'};
-
- return &$Texi2HTML::Config::menu_description($descr, duplicate_state($state),$element->{'text_nonumber'});
-}
-
-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;
- #print STDERR "DO_XREF: $macro\n";
- my $j = 0;
- for ($j = 0; $j <= $#$args; $j++)
- {
- $args[$j] = normalise_space($args[$j]);
- # print STDERR " ($j)$args[$j]\n";
- }
- $args[0] = '' if (!defined($args[0]));
- my $node_texi = normalise_node($args[0]);
- # a ref to a node in an info manual
- if ($args[0] =~ s/^\(([^\)]+)\)\s*//)
- {
- if ($macro eq 'inforef')
- {
- $args[2] = $1 unless ($args[2]);
- }
- else
- {
- $args[3] = $1 unless ($args[3]);
- }
- }
- if (($macro ne 'inforef') and $args[3])
- {
- $node_texi = "($args[3])" . normalise_node($args[0]);
- }
-
- if ($macro eq 'inforef')
- {
- if ((@args < 1) or ($args[0] eq ''))
- {
- echo_error ("Need a node name for \@$macro", $line_nr);
- return '';
- }
- if (@args > 3)
- {
- echo_warn ("Too much arguments for \@$macro", $line_nr);
- }
- $args[2] = '' if (!defined($args[2]));
- $args[1] = '' if (!defined($args[1]));
- $node_texi = "($args[2])$args[0]";
- }
-
- my $i;
- my $new_state = duplicate_state($state);
- $new_state->{'keep_texi'} = 0;
- $new_state->{'keep_nr'} = 0;
- for ($i = 0; $i < 5; $i++)
- {
- $args[$i] = substitute_line($args[$i], $new_state);
- }
- #print STDERR "(@args)\n";
-
- if (($macro eq 'inforef') or ($args[3] ne '') or ($args[4] ne ''))
- {# external ref
- if ($macro eq 'inforef')
- {
- $macro = 'xref';
- $args[3] = $args[2];
- }
- my $href = '';
- my $node_file = '';
- if ($args[3] ne '')
- {
- $href = do_external_href($node_texi);
- $node_file = "($args[3])$args[0]";
- }
- my $section = '';
- if ($args[4] ne '')
- {
- $section = $args[0];
- if ($args[2] ne '')
- {
- $section = $args[2];
- }
- }
- $result = &$Texi2HTML::Config::external_ref($macro, $section, $args[4], $node_file, $href, $args[1]);
- }
- else
- {
- my $element = $nodes{$node_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
- {
- echo_warn ("\@$macro not in text (in anchor, node, section...)", $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::SPLIT);
- }
- #print STDERR "SUBHREF in ref to node `$node_texi': $_";
- my $href = href($element, $file);
- my $section = $args[2];
- $section = $args[1] if ($section eq '');
- my $name = $section;
- my $short_name = $section;
- if ($section 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 = $args[0];
- }
- $result = &$Texi2HTML::Config::internal_ref ($macro, $href, $short_name, $name, $element->{'section'});
- }
- else
- {
- if (($node_texi eq '') or !$novalidate)
- {
- echo_error ("Undefined node `$node_texi' in \@$macro", $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, '', '', $args[0], do_external_href($node_texi), $args[1]);
- }
- }
- }
- 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 =~ s/^\s*//;
- $explanation =~ s/\s*$//;
- $explanation = undef if ($explanation eq '');
- }
- $acronym_texi =~ s/^\s*//;
- $acronym_texi =~ s/\s*$//;
-
- 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/ $//;
- my $simple_format_state = duplicate_state($state);
- $explanation_simple_format = simple_format($simple_format_state,$text);
- $explanation_text = substitute_line($text, duplicate_state($state));
- }
- return &$Texi2HTML::Config::acronym_like($command, $acronym_texi, substitute_line($acronym_texi, duplicate_state($state)),
- $with_explanation, $explanation_lines, $explanation_text, $explanation_simple_format);
-}
-
-sub do_caption_shortcaption($$$$$)
-{
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- if (!exists($state->{'float'}))
- {
-#dump_stack(\"", [], $state);
- echo_error("\@$command outside of float", $line_nr);
- return '';
- }
- my $float = $state->{'float'};
- my @texi_lines = map {$_ = $_."\n"} split (/\n/, $text);
- $float->{"${command}_texi"} = \@texi_lines;
- return '';
-}
-
-# 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 @args = @$args;
- my $style_texi = shift @args;
- my $label_texi = shift @args;
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- $style_texi = undef if (defined($style_texi) and $style_texi=~/^\s*$/);
- $label_texi = undef if (defined($label_texi) and $label_texi=~/^\s*$/);
- 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)};
- #print STDERR "float: $state->{'float'}, $state->{'float'}->{'texi'}\n";
- }
- 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'} = normalise_space($style_texi);
- $state->{'float'}->{'style_id'} =
- cross_manual_line($state->{'float'}->{'style_texi'});
- $state->{'float'}->{'style'} = substitute_line($style_texi);
- }
- #print STDERR "float: (no label) $state->{'float'}\n";
- }
- return '';
-}
-
-sub do_quotation_line($$$$$)
-{
- my $command = 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 = substitute_line($text_texi, duplicate_state($state));
- $text =~ s/\s*$//;
- }
- my $quotation_args = { 'text' => $text, 'text_texi' => $text_texi };
- push @{$state->{'quotation_stack'}}, $quotation_args;
- $state->{'prepend_text'} = &$Texi2HTML::Config::quotation_prepend_text($text_texi);
- return '';
-}
-
-sub do_def_line($$$$$)
-{
- my $command = shift;
- my $args = shift;
- my @args = @$args;
- my $arguments = shift @args;
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- $state->{'deff_line'}->{'arguments'} = $arguments;
- return '';
-}
-
-sub do_footnote($$$$)
-{
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
-
- $text .= "\n";
- $foot_num++;
- $relative_foot_num++;
- my $docid = "DOCF$foot_num";
- my $footid = "FOOT$foot_num";
- my $from_file = '';
- if ($state->{'element'} and $Texi2HTML::Config::SPLIT and $Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $from_file = $state->{'element'}->{'file'};
- }
- my %state;
- initialise_state(\%state);
- if ($Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $state{'element'} = $footnote_element;
- }
- else
- {
- $state{'element'} = $state->{'element'};
- }
- my $file = '';
- $file = $docu_foot if ($Texi2HTML::Config::SPLIT and $Texi2HTML::Config::SEPARATED_FOOTNOTES);
-
- # FIXME use split_lines ? It seems to work like it is now ?
- my @lines = substitute_text(\%state, 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, $file, \@lines, $state);
- push(@foot_lines, @{$foot_lines});
- return $foot_label;
-}
-
-sub do_image($$$$)
-{
- # replace images
- my $command = shift;
- my $args = shift;
- my $text = $args->[0];
- my $style_stack = shift;
- my $state = shift;
- my $line_nr = shift;
- $text =~ s/\s+/ /gos; # remove useless spaces and newlines
- my @args = split (/\s*,\s*/, $text);
- my $base = $args[0];
- if ($base eq '')
- {
- echo_error ("no file argument for \@image", $line_nr);
- #warn "$ERROR no file argument for \@image\n";
- return '';
- }
- $args[4] = '' if (!defined($args[4]));
- $args[3] = '' if (!defined($args[3]));
- my $image;
- my $file_name;
- my @file_names = &$Texi2HTML::Config::image_files($base,$args[4]);
-# $image = locate_include_file("$base.$args[4]") if ($args[4] ne '');
- foreach my $file (@file_names)
- {
- if ($image = locate_include_file($file))
- {
- $file_name = $file;
- last;
- }
- }
- $image = '' if (!defined($image));
-
- my $alt;
- if ($args[3] =~ /\S/)
- {
- # makeinfo don't do that. Maybe it should be remove_texi or
- # simple_format... The raw alt is also given in argument
- $alt = do_text($args[3]);
- $alt = $alt if ($alt =~ /\S/);
- }
- return &$Texi2HTML::Config::image($path_to_working_dir . $image, $base,
- $state->{'preformatted'}, $file_name, $alt, $args[1], $args[2],
- $args[3], $args[4], $path_to_working_dir, $image);
-}
-
-sub duplicate_state($)
-{
- my $state = shift;
- my $new_state = { 'element' => $state->{'element'},
- 'preformatted' => $state->{'preformatted'},
- 'code_style' => $state->{'code_style'},
- 'keep_texi' => $state->{'keep_texi'},
- 'keep_nr' => $state->{'keep_nr'},
- 'preformatted_stack' => $state->{'preformatted_stack'},
- 'multiple_pass' => $state->{'multiple_pass'},
-# this is needed for preformatted
- 'command_stack' => [ @{$state->{'command_stack'}} ],
- 'preformatted_context' =>
- {'stack_at_beginning' => [ @{$state->{'command_stack'}} ] }
- };
- 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'});
- 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}, 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;
-
- die "Bug end_line not defined" if (!defined($end_line));
-
- 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);
- }
- echo_error ("too much arguments for macro $name", $line_nr) if (defined($args->[$i + 1]));
- my $result = '';
- while ($macrobody)
- {
- 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
- {
- warn "$ERROR \\ not followed by \\ or an arg but by $arg in macro\n";
- $result .= '\\' . $arg;
- }
- }
- next;
- }
- $result .= $macrobody;
- last;
- }
- my @result = split(/^/m, $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'})
- {
- unshift @{$state->{'spool'}}, (@result, $end_line);
- }
- else
- {
- unshift @{$input_spool->{'spool'}}, (@result, $end_line);
- $input_spool->{'macro'} = $name if ($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 ($pages, $entries) = get_index($name);
- &$Texi2HTML::Config::index_summary_file_begin ($name, $printed_indices{$name});
- print STDERR "# writing $name index summary\n" if $T2H_VERBOSE;
-
- foreach my $key (sort keys %$entries)
- {
- my $entry = $entries->{$key};
- my $indexed_element = $entry->{'element'};
- my $entry_element = $indexed_element;
- # notice that we use the section associated with a node even when
- # there is no with_section, i.e. when there is another node preceding
- # the sectionning command.
- # However when it is the Top node, we use the node instead.
- # (for the Top node, 'top_as_section' is true)
- $entry_element = $entry_element->{'section_ref'} if ($entry_element->{'section_ref'} and !$entry_element->{'top_as_section'});
- 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->{'label'})
- {
- $origin_href .= '#' . $entry->{'label'};
- }
- else
- {
- # If the $indexed_element element and the $index entry are on
- # the same
- # file the real element is prefered. If they aren't on the same file
- # the entry id is choosed as it means that the real element
- # and the index entry are separated by a printindex.
- print STDERR "id undef ($entry) entry: $entry->{'entry'}, label: $indexed_element->{'text'}\n" if (!defined($entry->{'id'}));
- if ($entry->{'file'} eq $indexed_element->{'file'})
- {
- $origin_href .= '#' . $indexed_element->{'id'};
- }
- else
- {
- $origin_href .= '#' . $entry->{'id'} ;
- }
- }
- &$Texi2HTML::Config::index_summary_file_entry ($name,
- $key, $origin_href,
- substitute_line($entry->{'entry'}), $entry->{'entry'},
- href($entry_element, ''),
- $entry_element->{'text'},
- $printed_indices{$name});
- }
- &$Texi2HTML::Config::index_summary_file_end ($name, $printed_indices{$name});
-}
-
-sub do_index_page($$;$)
-{
- my $index_elements = shift;
- my $nr = shift;
- my $page = shift;
- my $index_element = $index_elements->[$nr];
- my $summary = do_index_summary($index_element->{'element'}, $index_elements);
- my $entries = do_index_entries($index_element->{'element'}, $index_element->{'page'}, $index_element->{'name'});
- return $summary . $entries . $summary;
-}
-
-sub do_index_summary($$)
-{
- my $element = shift;
- my $index_elements = shift;
-
- my @letters;
- my @symbols;
-
- for my $index_element_item (@$index_elements)
- {
- my $index_element = $index_element_item->{'element'};
- my $file = '';
- $file .= $index_element->{'file'} if ($index_element->{'file'} ne $element->{'file'});
- my $index = 0;
- for my $letter (@{$index_element_item->{'page'}->{'letters'}})
- {
- if ($letter =~ /^[A-Za-z]/)
- {
- push @letters, &$Texi2HTML::Config::summary_letter($letter, $file, "$index_element->{'id'}" . "_$index");
- }
- else
- {
- push @symbols, &$Texi2HTML::Config::summary_letter($letter, $file, "$index_element->{'id'}" . "_$index");
- }
- $index++;
- }
- }
- return &$Texi2HTML::Config::index_summary(\@letters, \@symbols);
-}
-
-sub do_index_entries($$$)
-{
- my $element = shift;
- my $page = shift;
- my $name = shift;
-
- my $letters = '';
- my $index = 0;
- foreach my $letter (@{$page->{'letters'}})
- {
- my $entries = '';
- foreach my $entry (@{$page->{'entries_by_letter'}->{$letter}})
- {
- my $indexed_element = $entry->{'element'};
- my $entry_element = $indexed_element;
- # notice that we use the section associated with a node even when
- # there is no with_section, i.e. when there is another node preceding
- # the sectionning command.
- # However when it is the Top node, we use the node instead.
- # (for the Top node, 'top_as_section' is true)
- $entry_element = $entry_element->{'section_ref'} if ($entry_element->{'section_ref'} and !$entry_element->{'top_as_section'});
- my $origin_href = '';
- $origin_href = $entry->{'file'} if ($Texi2HTML::Config::SPLIT and $entry->{'file'} ne $element->{'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->{'label'})
- {
- $origin_href .= '#' . $entry->{'label'};
- }
- else
- {
- # If the $indexed_element element and the $index entry are
- # in the same file the indexed_element is prefered. If they
- # aren't in the same file the entry id is choosed as it means
- # that the indexed_element element and the index entry are
- # separated by a printindex.
- print STDERR "id undef ($entry) entry: $entry->{'entry'}, label: $indexed_element->{'text'}\n" if (!defined($entry->{'id'}));
- if ($entry->{'file'} eq $indexed_element->{'file'})
- {
- $origin_href .= '#' . $indexed_element->{'id'};
- }
- else
- {
- $origin_href .= '#' . $entry->{'id'} ;
- }
- }
- #print STDERR "SUBHREF in index entry `$entry->{'entry'}' for `$entry_element->{'texi'}'\n";
- $entries .= &$Texi2HTML::Config::index_entry ($origin_href,
- substitute_line($entry->{'entry'}),
- href($entry_element, $element->{'file'}),
- $entry_element->{'text'});
- }
- $letters .= &$Texi2HTML::Config::index_letter ($letter, "$element->{'id'}" . "_$index", $entries);
- $index++;
- }
- return &$Texi2HTML::Config::print_index($letters, $name);
-}
-
-# 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}, @_);
-}
-
-# Same as remove texi but protect text and use special maps for @-commands
-sub simple_format($@)
-{
- my $state = shift;
- $state = {} if (!defined($state));
- $state->{'remove_texi'} = 1;
- $state->{'simple_format'} = 1;
- # WARNING currently it is only used for lines. It may change in the future.
- $state->{'no_paragraph'} = 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, @_);
- $::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 enter_table_index_entry($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- if ($state->{'item'} and ($state->{'table_stack'}->[-1] =~ /^(v|f)table$/))
- {
- my $index = $1;
- my $macro = $state->{'item'};
- delete $state->{'item'};
- close_stack($text, $stack, $state, $line_nr, undef, 'index_item');
- my $item = pop @$stack;
- my $element = $state->{'element'};
- $element = $state->{'node_ref'} unless ($element);
- enter_index_entry($index, $line_nr, $item->{'text'},
- $state->{'place'}, $element, 0, $state->{'table_stack'}->[-1]);
- add_prev($text, $stack, "\@$macro" . $item->{'text'});
- }
-}
-
-sub scan_texi($$$$;$)
-{
- 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");
- local $_ = $line;
-
- while(1)
- {
- # scan_texi
- #print STDERR "WHILE:$_";
- #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 (s/^([^\\\@]*\\)//)
- {# protected character or @end macro
- $state->{'macro'}->{'body'} .= $1 unless ($state->{'ignored'});
- if (s/^\\//)
- {
- $state->{'macro'}->{'body'} .= '\\' unless ($state->{'ignored'});
- next;
- }
- # I believe it is correct, although makeinfo don't do that.
- elsif (s/^(\@end\sr?macro)$//o or s/^(\@end\sr?macro\s)//o
- or s/^(\@r?macro\s+\w+\s*.*)//o)
- {
- $state->{'macro'}->{'body'} .= $1 unless ($state->{'ignored'});
- next;
- }
- }
- #if (s/^(.*?)\@end\sr?macro$//o or s/^(.*?)\@end\sr?macro\s+//o)
- if (s/^(\@end\sr?macro)$//o or s/^(\@end\sr?macro\s+)//o)
- {
- $state->{'macro_inside'}--;
- next if ($state->{'ignored'});
- if ($state->{'macro_inside'})
- {
- $state->{'macro'}->{'body'} .= $1;
- next;
- }
- chomp $state->{'macro'}->{'body'};
- print STDERR "# end macro def. Body:\n$state->{'macro'}->{'body'}"
- if ($T2H_DEBUG & $DEBUG_MACROS);
- delete $state->{'macro'};
- return if (/^\s*$/);
- next;
- }
- elsif(/^(\@r?macro\s+\w+\s*.*)/)
- {
- $state->{'macro'}->{'body'} .= $_ unless ($state->{'ignored'});
- $state->{'macro_inside'}++;
- return;
- }
- elsif (s/^\@(.)//)
- {
- $state->{'macro'}->{'body'} .= '@' . $1 unless ($state->{'ignored'});
- next;
- }
- elsif (s/^\@//)
- {
- $state->{'macro'}->{'body'} .= '@' unless ($state->{'ignored'});
- next;
- }
- else
- {
- s/([^\@\\]*)//;
- if ($state->{'ignored'})
- {
- return if (/^$/);
- next;
- }
- $state->{'macro'}->{'body'} .= $1 if (defined($1));
- if (/^$/)
- {
- $state->{'macro'}->{'body'} .= $_;
- return;
- }
- 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
- s/^\s*//o;
- }
- if (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 (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);
- s/^\s*//o;
- push @{$state->{'macro_args'}}, '';
- }
- }
- elsif ($2 eq '}')
- { # balanced } ends the macro call, otherwise it is in the arg
- $state->{'macro_depth'}--;
- if ($state->{'macro_depth'} == 0)
- {
- print STDERR "# expanding macro $state->{'macro_name'}\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- $_ = expand_macro($state->{'macro_name'}, $state->{'macro_args'}, $_, $line_nr, $state);
- delete $state->{'macro_name'};
- delete $state->{'macro_depth'};
- delete $state->{'macro_args'};
- return;
- }
- else
- {
- print STDERR "# macro call: closing }\n" if ($T2H_DEBUG & $DEBUG_MACROS);
- add_text('}', \$state->{'macro_args'}->[-1]);
- }
- }
- 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] .= $_;
- 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: $_";
- dump_stack($text, $stack, $state);
- exit 1;
- }
-
- if (s/^(.*?)(\@end\s$tag)$// or s/^(.*?)(\@end\s$tag\s)//)
- {# we add it even if 'ignored', it'll be discarded when there is
- # the @end
- add_prev ($text, $stack, $1);
- my $end = $2;
- my $style = pop @$stack;
- if ($style->{'text'} !~ /^\s*$/ or $state->{'arg_expansion'})
- # FIXME if 'arg_expansion' and also 'ignored' is true,
- # theoretically we should keep
- # what is in the raw format however
- # it will be removed later anyway
- {# ARG_EXPANSION
- my $after_macro = '';
- $after_macro = ' ' unless (/^\s*$/);
- add_prev ($text, $stack, $style->{'text'} . $end . $after_macro) 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, $_);
- 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 (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, $_);
- last;
- }
- }
- # In ignored region
- if ($state->{'ignored'})
- {
- #print STDERR "IGNORED(ifvalue($state->{'ifvalue_inside'})): $state->{'ignored'}\n";
- if (/^.*?\@end(\s+)([a-zA-Z]\w+)/)
- {
- if ($2 eq $state->{'ignored'})
- {
- s/^(.*?\@end)(\s+)([a-zA-Z]\w+)//;
- my $end_ignore = $1.$2.$3;
- 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);
- # 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 /^\s*$/o;
- next;
- }
- }
- add_prev ($text, $stack, $_) 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 (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 ((($end_tag eq 'menu') and $text_macros{'menu'}) 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 (/^\s*$/);
- }
- }
- elsif ($text_macros{$end_tag})
- {
- echo_error ("\@end $end_tag without corresponding element", $line_nr);
- }
- else
- {# ARG_EXPANSION
- add_prev($text, $stack, "\@end${space}$end_tag");
- }
- next;
- }
- # macro_regexp
- elsif (s/^([^{}@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/])//o or s/^([^{}@]*)\@([a-zA-Z][\w-]*)([\s\{\}\@])/$3/o or s/^([^{}@]*)\@([a-zA-Z][\w-]*)$//o)
- {# ARG_EXPANSION
- add_prev($text, $stack, $1) unless $state->{'ignored'};
- my $macro = $2;
- #print STDERR "MACRO $macro\n";
- # handle skipped @-commands
- $state->{'bye'} = 1 if ($macro eq 'bye' and !$state->{'ignored'} and !$state->{'arg_expansion'});
- if (defined($Texi2HTML::Config::misc_command{$macro}) and
- !$Texi2HTML::Config::misc_command{$macro}->{'texi'}
- and $macro ne 'documentencoding')
- {# ARG_EXPANSION
- my ($line, $args);
- ($_, $line, $args) = preserve_command($_, $macro);
- add_prev ($text, $stack, "\@$macro" . $line) unless $state->{'ignored'};
- }
- # 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
-
- # track variables
- elsif($macro eq 'set' or $macro eq 'clear')
- {
- if ($macro eq 'set')
- {
- if (s/^(\s+)($VARRE)(\s+)(.*)$//o)
- {
- if ($state->{'arg_expansion'})
- {
- my $line = "\@$macro" . $1.$2.$3;
- $line .= $4 if (defined($4));
- add_prev($text, $stack, $line);
- next;
- }
- next if $state->{'ignored'};
- $value{$2} = $4;
- }
- else
- {
- echo_warn ("Missing argument for \@$macro", $line_nr);
- }
- }
- elsif ($macro eq 'clear')
- {
- if (s/^(\s+)($VARRE)//o)
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" . $1 . $2);
- next;
- }
- next if $state->{'ignored'};
- delete $value{$2};
- }
- else
- {
- echo_warn ("Missing argument for \@$macro", $line_nr);
- }
- }
- return if (/^\s*$/);
- }
- elsif ($macro =~ /^r?macro$/)
- { #FIXME what to do if 'arg_expansion' is true (ie within another
- # macro call arguments?
- if (/^\s+(\w[\w-]*)\s*(.*)/)
- {
- my $name = $1;
- unless ($state->{'ignored'})
- {
- if (exists($macros->{$name}))
- {
- echo_warn ("macro `$name' allready defined " .
- format_line_number($macros->{$name}->{'line_nr'}) . " redefined", $line_nr);
- }
-
- }
- $state->{'macro_inside'} = 1;
- next if ($state->{'ignored'});
- # if in 'arg_expansion' we really want to take into account
- # that we are in an ignored ifclear.
- my @args = ();
- @args = split(/\s*,\s*/ , $1)
- if ($2 =~ /^\s*{\s*(.*?)\s*}\s*/);
- # keep the context information of the definition
- $macros->{$name}->{'line_nr'} = { 'file_name' => $line_nr->{'file_name'},
- 'line_nr' => $line_nr->{'line_nr'}, 'macro' => $line_nr->{'macro'} } if (defined($line_nr));
- $macros->{$name}->{'args'} = \@args;
- my $arg_index = 0;
- my $debug_msg = '';
- foreach my $arg (@args)
- { # when expanding macros, the argument index is retrieved
- # with args_index
- $macros->{$name}->{'args_index'}->{$arg} = $arg_index;
- $debug_msg .= "$arg($arg_index) ";
- $arg_index++;
- }
- $macros->{$name}->{'body'} = '';
- $state->{'macro'} = $macros->{$name};
- print STDERR "# macro def $name: $debug_msg\n"
- if ($T2H_DEBUG & $DEBUG_MACROS);
- }
- else
- {# it means we have a macro without a name
- echo_error ("Macro definition without macro name $_", $line_nr)
- unless ($state->{'ignored'});
- }
- return;
- }
- elsif (defined($text_macros{$macro}))
- {
- my $tag;
- ($_, $tag) = do_text_macro($macro, $_, $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 $macro_kept;
- if ((($state->{'raw'} or (($macro eq 'menu') and $text_macros{'menu'}) or (exists($region_lines{$macro}))) and !$state->{'ignored'}) or $state->{'arg_expansion'})
- {
- add_prev($text, $stack, $tag);
- $macro_kept = 1;
- }
- #dump_stack ($text, $stack, $state);
- next if $macro_kept;
- return if (/^\s*$/);
- }
- elsif ($macro eq 'documentencoding')
- {
- my $spaces = '';
- my $encoding = '';
- if (s/(\s+)([0-9\w\-]+)//)
- {
- $spaces = $1;
- $encoding = $2;
- next if ($state->{'ignored'});
- if (!$state->{'arg_expansion'} and !$state->{'ignored'})
- {
- $Texi2HTML::Config::DOCUMENT_ENCODING = $encoding;
- my $from_encoding = encoding_alias($encoding);
- $Texi2HTML::Config::IN_ENCODING = $from_encoding if
- defined($from_encoding);
- if (defined($from_encoding) and $Texi2HTML::Config::USE_UNICODE)
- {
- foreach my $file (@fhs)
- {
- binmode($file->{'fh'}, ":encoding($from_encoding)");
- }
- }
- }
- }# ARG_EXPANSION
- add_prev($text, $stack, "\@$macro" . $spaces . $encoding) unless ($state->{'ignored'});
- }
- elsif ($macro eq 'definfoenclose')
- {
- # FIXME if 'ignored' or 'arg_expansion' maybe we could parse
- # the args anyway and don't take away the whole line?
-
- # as in the makeinfo doc 'definfoenclose' may override
- # texinfo @-commands like @i. It is what we do here.
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" . $_);
- return;
- }
- return if ($state->{'ignored'});
- if (s/^\s+([a-z]+)\s*,\s*([^\s]+)\s*,\s*([^\s]+)//)
- {
- $info_enclose{$1} = [ $2, $3 ];
- }
- else
- {
- echo_error("Bad \@$macro", $line_nr);
- }
- return if (/^\s*$/);
- s/^\s*//;
- }
- elsif ($macro eq 'include')
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" . $_);
- return;
- }
- return if ($state->{'ignored'});
- #if (s/^\s+([\/\w.+-]+)//o)
- if (s/^(\s+)(.*)//o)
- {
- my $file_name = $2;
- $file_name =~ s/\s*$//;
- my $file = locate_include_file($file_name);
- if (defined($file))
- {
- open_file($file, $line_nr);
- print STDERR "# including $file\n" if $T2H_VERBOSE;
- }
- else
- {
- echo_error ("Can't find $file_name, skipping", $line_nr);
- }
- }
- else
- {
- echo_error ("Bad include line: $_", $line_nr);
- return;
- }
- return;
- }
- elsif ($macro eq 'value')
- {
- if (s/^{($VARRE)}//)
- {
- my $value = $1;
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro" .'{'. $value .'}');
- next;
- }
- next if ($state->{'ignored'});
- my $expansion = "No value for $value";
- $expansion = $value{$value} if (defined($value{$value}));
- $_ = $expansion . $_;
- }
- else
- {
- if ($state->{'arg_expansion'})
- {
- add_prev($text, $stack, "\@$macro");
- next;
- }
- next if ($state->{'ignored'});
- echo_error ("bad \@value macro", $line_nr);
- }
- }
- elsif ($macro eq 'unmacro')
- { #FIXME with 'arg_expansion' should it be passed unmodified ?
- if ($state->{'ignored'})
- {
- s/^\s+(\w+)//;
- }
- else
- {
- delete $macros->{$1} if (s/^\s+(\w+)//);
- }
- return if (/^\s*$/);
- s/^\s*//;
- }
- elsif (exists($macros->{$macro}))
- {# 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->{$macro}->{'args'};
- # we remove any space/new line before the argument
- if (s/^\s*{\s*//)
- { # the macro has args
- $state->{'macro_args'} = [ "" ];
- $state->{'macro_name'} = $macro;
- $state->{'macro_depth'} = 1;
- }
- elsif (($#$ref >= 1) or ($#$ref <0))
- { # no brace -> no arg
- $_ = expand_macro ($macro, [], $_, $line_nr, $state);
- return;
- }
- else
- { # macro with one arg on the line
- chomp $_;
- $_ = expand_macro ($macro, [$_], "\n", $line_nr, $state);
- return;
- }
- }
- elsif ($macro eq ',')
- {# the @, causes problems when `,' separates things (in @node, @ref)
- $_ = "\@m_cedilla" . $_;
- } # handling of @, must be done before handling of {
- elsif (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 ($macro eq 'verb')
- {
- if (/^$/)
- {
- echo_error ("without associated character", $line_nr);
- #warn "$ERROR verb at end of line";
- }
- else
- {
- s/^(.)//;
- $state->{'verb'} = $1;
- }
- }
- push (@$stack, { 'style' => $macro, 'text' => '' });
- }
- else
- {
- add_prev($text, $stack, "\@$macro") unless($state->{'ignored'});
- }
- next;
- }
- #elsif(s/^([^{}@]*)\@(.)//o)
- elsif(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 . "\@$2") unless($state->{'ignored'});
- next;
- }
- elsif (s/^([^{}]*)([{}])//o)
- {
- # in ignored section we cannot be sure that there is an @-command
- # allready 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;
- my $result;
- 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'} . '}';
- }
- 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 ($state->{'close_stack'} or $state->{'arg_expansion'});
- }
- if ($state->{'ignored'})
- {# ARG_EXPANSION
- print STDERR "# Popped `$style->{'style'}' in ifset/ifclear\n" if ($T2H_DEBUG);
- next;
- }
- add_prev ($text, $stack, $result);
- #print STDERR "MACRO end $style->{'style'} remaining: $_";
- 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 $_";
- add_prev($text, $stack, $_) unless($state->{'ignored'});
- last;
- }
- }
- return undef if ($state->{'ignored'});
- return 1;
-}
-
-sub close_structure_command($$$$)
-{
- my $cmd_ref = shift;
- my $state = shift;
- my $unclosed_commands = shift;
- my $line_nr = shift;
- my $result;
-
- if ($cmd_ref->{'style'} eq 'anchor')
- {
- my $anchor = $cmd_ref->{'text'};
- $anchor = normalise_node($anchor);
- if ($nodes{$anchor})
- {
- echo_error ("Duplicate node for anchor found: $anchor", $line_nr);
- return '';
- }
- $anchor_num++;
- $nodes{$anchor} = { 'anchor' => 1, 'seen' => 1, 'texi' => $anchor, 'id' => 'ANC' . $anchor_num};
- push @{$state->{'place'}}, $nodes{$anchor};
- }
- elsif ($cmd_ref->{'style'} eq 'footnote')
- {
- if ($Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $state->{'element'} = $state->{'footnote_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->{'element'}->{'titlefont'} = $cmd_ref->{'text'} unless ((exists($state->{'region_lines'}) and ($state->{'region_lines'}->{'format'} eq 'titlepage')) or defined($state->{'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
- echo_error("Closing specially handled \@-command $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 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");
- local $_ = $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 /^\*/o)
- {
- # new menu entry
- delete ($state->{'after_element'});
- my $menu_line = $_;
- my $node;
- if (/^\*\s+($NODERE)::/)
- {
- $node = $1;
- }
- elsif (/^\*\s+([^:]+):\s*([^\t,\.\n]+)[\t,\.\n]/)
- {
- #$name = $1;
- $node = $2;
- }
- if ($node)
- {
- menu_entry_texi(normalise_node($node), $state, $line_nr);
- }
- }
- unless (no_line($_))
- {
- delete $state->{'after_element'};
- }
- }
-
- while(1)
- {
- # scan structure
- #print STDERR "WHILE (s):$_";
- #dump_stack($text, $stack, $state);
-
- # 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: $_";
- dump_stack($text, $stack, $state);
- exit 1;
- }
- ################# end debug
- if (s/^(.*?)\@end\s$tag$// or s/^(.*?)\@end\s$tag\s//)
- {
- add_prev ($text, $stack, $1);
- 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
- {
- my $after_macro = '';
- $after_macro = ' ' unless (/^\s*$/);
- add_prev ($text, $stack, $style->{'text'} . "\@end $tag" . $after_macro);
- }
- unless (no_line($_))
- {
- delete ($state->{'after_element'});
- }
- next;
- }
- else
- {
- add_prev ($text, $stack, $_);
- return if (defined($Texi2HTML::Config::command_handler{$tag}));
- last;
- }
- }
-
- if (defined($state->{'verb'}))
- {
- my $char = quotemeta($state->{'verb'});
- if (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, $_);
- last;
- }
- }
-
- unless (no_line($_))
- {
- delete $state->{'after_element'};
- }
- # macro_regexp
- if (s/^([^{}@]*)\@end\s+([a-zA-Z][\w-]*)//)
- {
- add_prev($text, $stack, $1);
- my $end_tag = $2;
- #print STDERR "END STRUCTURE $end_tag\n";
- $state->{'detailmenu'}-- if ($end_tag eq 'detailmenu' and $state->{'detailmenu'});
- 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'}"
- if ( $end_tag ne $state->{'region_lines'}->{'format'});
- $state->{'region_lines'}->{'number'}--;
- if ($state->{'region_lines'}->{'number'} == 0)
- {
- close_region($state);
- }
- #dump_stack($text, $stack, $state);
- }
- if ($end_tag eq 'menu')
- {
- add_prev($text, $stack, "\@end $end_tag");
- $state->{'menu'}--;
- }
- else
- {
- #print STDERR "End $end_tag\n";
- #dump_stack($text, $stack, $state);
- return if (/^\s*$/);
- }
- }
- elsif ($text_macros{$end_tag})
- {
- echo_error ("\@end $end_tag without corresponding element", $line_nr);
- #dump_stack($text, $stack, $state);
- }
- 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");
- }
- next;
- }
- #elsif (s/^([^{}@]*)\@([a-zA-Z]\w*|["'~\@\}\{,\.!\?\s\*\-\^`=:\/])//o)
- # macro_regexp
- elsif (s/^([^{}@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/])//o or s/^([^{}@]*)\@([a-zA-Z][\w-]*)([\s\{\}\@])/$3/o or s/^([^{}@]*)\@([a-zA-Z][\w-]*)$//o)
- {
- add_prev($text, $stack, $1);
- my $macro = $2;
- #print STDERR "MACRO $macro\n";
- if (defined($Texi2HTML::Config::misc_command{$macro}))
- {
- my $line;
- ($_, $line) = misc_command_structure($_, $macro, $state,
- $line_nr);
- add_prev ($text, $stack, "\@$macro".$line);
- next;
- }
-
- if ($macro =~ /^(\w+?)index/ and ($1 ne 'print') and ($1 ne 'syncode') and ($1 ne 'syn') and ($1 ne 'def') and ($1 ne 'defcode'))
- {
- my $index_prefix = $1;
- my $key = $_;
- $key =~ s/^\s*//;
- $_ = substitute_texi_line($_);
- enter_index_entry($index_prefix, $line_nr, $key, $state->{'place'}, $state->{'element'}, $state->{'after_element'}, $macro);
- add_prev ($text, $stack, "\@$macro" . $_);
- last;
- }
- elsif (defined($text_macros{$macro}))
- {
- #print STDERR "TEXT_MACRO: $macro\n";
- if ($text_macros{$macro} eq 'raw')
- {
- $state->{'raw'} = $macro;
- #print STDERR "RAW\n";
- }
- elsif ($format_type{$macro} and $format_type{$macro} eq 'menu')
- {
- $state->{'menu'}++;
- delete ($state->{'prev_menu_node'});
- 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))
- {
- echo_error("\@$macro not allowed within $state->{'region_lines'}->{'format'}", $line_nr);
- next;
- }
- if (!exists($state->{'region_lines'}))
- {
- $state->{'region_lines'}->{'format'} = $macro;
- $state->{'region_lines'}->{'number'} = 1;
- $state->{'region_lines'}->{'after_element'} = 1 if ($state->{'after_element'});
- $state->{'region_lines'}->{'kept_place'} = $state->{'place'};
- $state->{'place'} = $region_place;
- }
- else
- {
- $state->{'region_lines'}->{'number'}++;
- }
- push @{$state->{'text_macro_stack'}}, $macro;
- }
- # if it is a raw formatting command or a menu command
- # we must keep it for later
- my $macro_kept;
- if (($state->{'raw'} and (!defined($Texi2HTML::Config::command_handler{$macro}))) or ($macro eq 'menu'))
- {
- 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 (/^\s*$/);
- }
- elsif ($macro eq 'float')
- {
- my ($style_texi, $label_texi) = split(/,/, $_);
- $style_texi = normalise_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
- $label_texi = normalise_node($label_texi);
- if (exists($nodes{$label_texi}) and defined($nodes{$label_texi})
- and $nodes{$label_texi}->{'seen'})
- {
- echo_error ("Duplicate label found: $label_texi", $line_nr);
- while ($_ =~ /,/)
- {
- $_ =~ s/,.*$//;
- }
- }
- else
- {
- 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;
-#print STDERR "FLOAT: $float $float->{'texi'}, place $state->{'place'}\n";
- push @{$state->{'place'}}, $float;
- $float->{'element'} = $state->{'element'};
- $state->{'float'} = $float;
- $float->{'style_texi'} = $style_texi;
- push @floats, $float;
- }
- }
- add_prev($text, $stack, "\@$macro" . $_);
- last;
- }
- elsif (defined($Texi2HTML::Config::def_map{$macro}))
- {
- #We must enter the index entries
- my ($prefix, $entry, $argument) = get_deff_index($macro, $_, $line_nr);
- # 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, $state->{'place'},
- $state->{'element'}, 0, $idx_macro) if ($prefix);
- s/(.*)//;
- add_prev($text, $stack, "\@$macro" . $1);
- # the text is discarded but we must handle correctly bad
- # texinfo with 2 @def-like commands on the same line
- substitute_text({'structure' => 1, 'place' => $state->{'place'} },($argument));
- }
- 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' => "" };
- }
- else
- {
- add_prev($text, $stack, "\@$macro");
- }
- }
- elsif ($format_type{$macro} and ($format_type{$macro} eq 'table' or $format_type{$macro} eq 'list'))
- { # 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 (s/^{//)
- {
- if ($macro eq 'verb')
- {
- if (/^$/)
- {
- # We allready warned in pass texi
- #warn "$ERROR verb at end of line";
- }
- else
- {
- s/^(.)//;
- $state->{'verb'} = $1;
- }
- }
- elsif ($macro eq 'footnote' and $Texi2HTML::Config::SEPARATED_FOOTNOTES)
- {
- $state->{'footnote_element'} = $state->{'element'};
- $state->{'footnote_place'} = $state->{'place'};
- $state->{'element'} = $footnote_element;
- $state->{'place'} = $footnote_element->{'place'};
- }
- push (@$stack, { 'style' => $macro, 'text' => '' });
- }
- else
- {
- add_prev($text, $stack, "\@$macro");
- }
- next;
- }
- #elsif(s/^([^{}@]*)\@(.)//o)
- elsif(s/^([^{}@]*)\@([^\s\}\{\@]*)//o)
- {
- add_prev($text, $stack, $1 . "\@$2");
- next;
- }
- elsif (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
- #warn "$ERROR '}' without opening '{' line: $line";
- #echo_error ("'}' without opening '{' line: $line", $line_nr);
- add_prev ($text, $stack, '}');
- }
- }
- }
- else
- {
- #print STDERR "END_LINE $_";
- add_prev($text, $stack, $_);
- enter_table_index_entry($text, $stack, $state, $line_nr);
- last;
- }
- }
- return 1;
-}
-
-sub scan_line($$$$;$)
-{
- 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");
- local $_ = $line;
- #print STDERR "SCAN_LINE (@{$state->{'command_stack'}}): $line";
- #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....)
- if (defined($state->{'prepend_text'}))
- {
- $_ = $state->{'prepend_text'} . $_;
- $state->{'prepend_text'} = undef;
- delete $state->{'prepend_text'};
- }
-
- unless ($state->{'end_of_line_protected'} and $state->{'deff_line'})
- { # end of lines are really protected only for @def*
- if (!$state->{'raw'} and !$state->{'verb'} and $state->{'menu'})
- { # new menu entry
- my ($node, $name, $ending);
- if (s/^\*(\s+$NODERE)(::)//o)
- {
- $node = $1;
- $ending = $2;
- }
- elsif (s/^\*(\s+[^:]+):(\s*[^\t,\.\n]+)([\t,\.\n])//o)
- {
- $name = $1;
- $node = $2;
- $ending = $3;
- }
- if ($node)
- {
- my $top_stack = top_stack($stack);
- if ($top_stack and $top_stack->{'format'} and
- (
- ($top_stack->{'format'} eq 'menu_description') or
- ($top_stack->{'format'} eq 'menu') or
- (($top_stack->{'format'} eq 'preformatted') and (stack_order($stack, 'preformatted', 'menu_comment'))) or
- ($top_stack->{'format'} eq 'menu_preformatted') or
- ($top_stack->{'format'} eq 'menu_comment')
- )
- )
- { # we are in a normal menu state.
- close_menu($text, $stack, $state, $line_nr);
- $new_menu_entry = 1;
- $state->{'menu_entry'} = { 'name' => $name, 'node' => $node,
- 'ending' => $ending };
- add_prev ($text, $stack, do_menu_link($state, $line_nr));
- print STDERR "# New menu entry: $node\n" if ($T2H_DEBUG & $DEBUG_MENU);
- push @$stack, {'format' => 'menu_description', 'text' => ''};
- }
- else
- { # we are within a macro or a format. In that case we use
- # a simplified formatting of menu which should be right whatever
- # the context
- my $menu_entry = $state->{'menu_entry'};
- $state->{'menu_entry'} = { 'name' => $name, 'node' => $node,
- 'ending' => $ending };
- add_prev ($text, $stack, do_menu_link($state, $line_nr, 1));
- $state->{'menu_entry'} = $menu_entry;
- }
- }
- }
- # we're in a menu entry description
- if ($state->{'menu_entry'} and !$new_menu_entry)
- {
- my $top_stack = top_stack($stack);
- if (/^\s+\S.*$/ or (!$top_stack->{'format'} or ($top_stack->{'format'} ne 'menu_description')))
- { # description continues
- $menu_description_in_format = 1 if ($top_stack->{'format'} and ($top_stack->{'format'} ne 'menu_description'));
- print STDERR "# Description continues\n" if ($T2H_DEBUG & $DEBUG_MENU);
- }
- else
- { # enter menu comment after menu entry
- ################################ begin debug
- if (!$top_stack->{'format'} or ($top_stack->{'format'} ne 'menu_description'))
- {
- print STDERR "Bug: begin menu comment but previous isn't menu_description\n";
- dump_stack ($text, $stack, $state);
- }
- print STDERR "# Menu comment begins\n" if ($T2H_DEBUG & $DEBUG_MENU);
- ################################ end debug
- my $descr = pop(@$stack);
-
- add_prev ($text, $stack, do_menu_description($descr->{'text'}, $state));
- delete $state->{'menu_entry'};
- unless (/^\s*\@end\s+menu\b/)
- {
- $state->{'menu_comment'}++;
- push @$stack, {'format' => 'menu_comment', 'text' => ''};
- unless ($Texi2HTML::Config::SIMPLE_MENU)
- {
- push @{$state->{'preformatted_stack'}}, {'pre_style' => $Texi2HTML::Config::MENU_PRE_STYLE, 'class' => 'menu-comment' };
- $state->{'preformatted'}++;
- begin_paragraph($stack, $state);
- }
- }
- }
- }
- if (($state->{'menu_entry'} and !$menu_description_in_format) or $state->{'raw'} or $state->{'preformatted'} or $state->{'no_paragraph'} or $state->{'keep_texi'} or $state->{'remove_texi'})
- { # empty lines are left unmodified
- if (/^\s*$/)
- {
- add_prev($text, $stack, $_);
- return;
- }
- elsif (!$state->{'raw'})
- {
- my $next_tag = next_tag($_);
- if ($state->{'deff_line'} and !defined($Texi2HTML::Config::def_map{$next_tag}))
- {
- begin_deff_item($stack, $state);
- }
- }
- }
- else
- {
- if (/^\s*$/)
- {
- if ($state->{'paragraph_context'})
- { # An empty line ends a paragraph
- close_paragraph($text, $stack, $state, $line_nr);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::empty_line($_,$state));
- return 1;
- }
- else
- {
- #print STDERR "a line not empty and not in no paragraph format\n";
- my $next_tag = next_tag($_);
- if ($state->{'deff_line'} and !defined($Texi2HTML::Config::def_map{$next_tag}))
- { # finish opening the deff, as this is not a deff tag, it can't be
- # a deff macro with x
- begin_deff_item($stack, $state);
- }
- if (!no_paragraph($state,$_))
- { # open a paragraph, unless the line begins with a macro that
- # shouldn't trigger a paragraph opening
- begin_paragraph($stack, $state);
- }
- }
- }
- }
- delete $state->{'end_of_line_protected'}
- if ($state->{'end_of_line_protected'});
-
- while(1)
- {
- # scan_line
- #print STDERR "WHILE (l): $_|";
- #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 (s/^(.*?)\@end\s$state->{'raw'}$// or s/^(.*?)\@end\s$state->{'raw'}\s+//)
- # don't protect html, it is done by Texi2HTML::Config::raw if needed
- {
- print STDERR "# end raw $state->{'raw'}\n" if ($T2H_DEBUG & $DEBUG_FORMATS);
- add_prev ($text, $stack, $1);
- 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'}));
- }
- }
- 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 (/^\s*$/);
- }
- delete $state->{'raw'};
- next;
- }
- else
- {
- print STDERR "#within raw $state->{'raw'}:$_" if ($T2H_DEBUG & $DEBUG_FORMATS);
- add_prev ($text, $stack, $_);
- last;
- }
- }
-
- # we are within a @verb
- if (defined($state->{'verb'}))
- {
- my $char = quotemeta($state->{'verb'});
- if (s/^(.*?)$char\}/\}/)
- {
- if ($state->{'keep_texi'})
- {
- add_prev($text, $stack, $1 . $state->{'verb'});
- $stack->[-1]->{'text'} = $state->{'verb'} . $stack->[-1]->{'text'};
- }
- elsif ($state->{'remove_texi'})
- {
- add_prev($text, $stack, $1);
- }
- else
- {
- add_prev($text, $stack, do_text($1, $state));
- }
- delete $state->{'verb'};
- next;
- }
- else
- {
- add_prev($text, $stack, $_);
- last;
- }
- }
-
- # a special case for @ followed by an end of line in deff
- # FIXME this is similar with makeinfo, but shouldn't that
- # be done for @floats and @quotations too? and @item, @center?
- # this piece of code is required, to avoid the 'cmd_line' to be
- # closed below
- if ($state->{'end_of_line_protected'} and $state->{'deff_line'})
- {
- print STDERR "Bug: 'end_of_line_protected' with text following: $_\n"
- unless /^$/;
- return;
- }
-
- # We handle now the end tags
- # macro_regexp
- if ($state->{'keep_texi'} and s/^([^{}@]*)\@end\s+([a-zA-Z][\w-]*)//)
- {
- my $end_tag = $2;
- add_prev($text, $stack, $1 . "\@end $end_tag");
- next;
- }
- # macro_regexp
- elsif ($state->{'remove_texi'} and s/^([^{}@]*)\@end\s+([a-zA-Z][\w-]*)//)
- {
- add_prev($text, $stack, $1);
- next;
- }
- # macro_regexp
- if (s/^([^{}@,]*)\@end\s+([a-zA-Z][\w-]*)\s//o or s/^([^{}@,]*)\@end\s+([a-zA-Z][\w-]*)$//o)
- {
- add_prev($text, $stack, do_text($1, $state));
- my $end_tag = $2;
- #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)
- $state->{'detailmenu'}-- if ($end_tag eq 'detailmenu' and $state->{'detailmenu'});
- # FIXME handle below (look for misc_command) to let the user
- # keep that end tag. On the other hand it is only used for
- # end detailmenu, so maybe it should just go and detailmenu
- # could be handled like a normal format. Last there could be
- # something similar than what is done for other misc_commands.
- next if (defined($Texi2HTML::Config::misc_command{"end $end_tag"}));
- my $top_stack = top_stack($stack);
- if (!$top_stack)
- {
- echo_error ("\@end $end_tag without corresponding opening", $line_nr);
- add_prev($text, $stack, "\@end $end_tag");
- next;
- }
-
- if (!$format_type{$end_tag})
- {
- echo_warn ("Unknown \@end $end_tag", $line_nr);
- #warn "$ERROR Unknown \@end $end_tag\n";
- add_prev($text, $stack, "\@end $end_tag");
- next;
- }
- unless ($Texi2HTML::Config::format_in_paragraph{$end_tag})
- { # If the $end_tag is wrong we may be keeping paragraph
- # for a format with paragraphs on the stack
- close_paragraph($text, $stack, $state, $line_nr);
- }
-
- $top_stack = top_stack($stack);
- if (!$top_stack or (!defined($top_stack->{'format'})))
- {
- echo_error ("\@end $end_tag without corresponding opening element", $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_preformatted') or
- ($top_stack->{'format'} eq 'menu_comment') or
- ($top_stack->{'format'} eq 'menu_description')
- )
- ) or
- (
- ($end_tag eq 'multitable') and
- (
- ($top_stack->{'format'} eq 'cell') or
- ($top_stack->{'format'} eq 'null')
- )
- ) or
- (
- ($format_type{$end_tag} eq 'list' ) and
- ($top_stack->{'format'} eq 'item')
- ) or
- (
- (
- ($format_type{$end_tag} eq 'table') and
- ($end_tag ne 'multitable')
- ) 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')
- ) or
- (
- ($end_tag eq 'row') and
- ($top_stack->{'format'} eq 'cell')
- )
- )
- {
- # 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.
- close_paragraph($text, $stack, $state, $line_nr);
- $top_stack = top_stack($stack);
- if (!$top_stack or (!defined($top_stack->{'format'})))
- {
- echo_error ("\@end $end_tag without corresponding opening element", $line_nr);
- add_prev($text, $stack, "\@end $end_tag");
- 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');
- echo_error ("waiting for end of $waited_format, found \@end $end_tag", $line_nr);
- close_stack($text, $stack, $state, $line_nr, undef, $end_tag);
- # 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);
- 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}) and $format_type{$end_tag} ne 'fake')
- {
- end_format($text, $stack, $state, $end_tag, $line_nr);
- begin_paragraph_after_command($state,$stack,$end_tag,$_);
- }
- else
- { # this is a fake format, ie a format used internally, inside
- # a real format. We do nothing, hoping the real format will
- # get closed, closing the fake internal formats
- #print STDERR "FAKE \@end $end_tag\n";
- }
- next;
- }
- # This is a macro
- #elsif (s/^([^{}@]*)\@([a-zA-Z]\w*|["'~\@\}\{,\.!\?\s\*\-\^`=:\/])//o)
- # macro_regexp
- elsif (s/^([^{},@]*)\@(["'~\@\}\{,\.!\?\s\*\-\^`=:\|\/])//o or s/^([^{}@,]*)\@([a-zA-Z][\w-]*)([\s\{\}\@])/$3/o or s/^([^{},@]*)\@([a-zA-Z][\w-]*)$//o)
- {
- add_prev($text, $stack, do_text($1, $state));
- my $macro = $2;
- #print STDERR "MACRO $macro\n";
- #print STDERR "LINE $_";
- #dump_stack ($text, $stack, $state);
- # This is a macro added by close_stack to mark paragraph end
- if ($macro eq 'end_paragraph')
- {
- s/^\{\}//;
- my $top_stack = top_stack($stack);
- #################################### debug
- if (!$top_stack or !$top_stack->{'format'}
- or ($top_stack->{'format'} ne 'paragraph'))
- {
- print STDERR "Bug: end_paragraph but no paragraph to end\n";
- dump_stack ($text, $stack, $state);
- next;
- }
- #################################### end debug
- s/^\s//;
- my $paragraph = pop @$stack;
- add_prev ($text, $stack, do_paragraph($paragraph->{'text'}, $state));
- next;
- }
- # Handle macro added by close_stack to mark preformatted region end
- elsif ($macro eq 'end_preformatted')
- {
- #print STDERR "END_PREFORMATTED\n";
- s/^\{\}//;
- my $top_stack = top_stack($stack);
- #################################### debug
- if (!$top_stack or !$top_stack->{'format'}
- or ($top_stack->{'format'} ne 'preformatted'))
- {
- print STDERR "Bug: end_preformatted but no preformatted to end\n";
- dump_stack ($text, $stack, $state);
- next;
- }
- #################################### end debug
- my $paragraph = pop @$stack;
- s/^\s//;
- add_prev ($text, $stack, do_preformatted($paragraph->{'text'}, $state));
- next;
- }
- if (defined($Texi2HTML::Config::misc_command{$macro}))
- {
- # 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 ($macro ne 'c' and $macro ne 'comment')))
- {
- my ($line, $args);
- ($_, $line, $args) = preserve_command($_, $macro);
- add_prev($text, $stack, "\@$macro". $line);
- next;
- }
-
- # Handle the misc command
- $_ = misc_command_text($_, $macro, $stack, $state, $text, $line_nr);
- return unless (defined($_));
- unless ($Texi2HTML::Config::misc_command{$macro}->{'keep'})
- {
- begin_paragraph($stack, $state) if
- (!no_paragraph($state,$_));
- next;
- }
- }
- if ($macro eq 'listoffloats')
- {
- if ($state->{'keep_texi'})
- {
- if (s/(.*)//o)
- {
- add_prev($text, $stack, "\@$macro" . $1);
- }
- next;
- }
- return undef if ($state->{'remove_texi'});
-
- if (s/^(\s+)(.*)//o)
- {
- my $arg = $2;
- my $style_id = cross_manual_line(normalise_space($arg));
- my $style = substitute_line (&$Texi2HTML::Config::listoffloats_style($arg));
- if (exists ($floats{$style_id}))
- {
- close_paragraph($text, $stack, $state, $line_nr);
- my @listoffloats_entries = ();
- foreach my $float (@{$floats{$style_id}->{'floats'}})
- {
- my $float_style = substitute_line(&$Texi2HTML::Config::listoffloats_float_style($arg, $float));
- my $caption_lines = &$Texi2HTML::Config::listoffloats_caption($float);
- # we set 'multiple_pass' such that index entries
- # and anchors are not handled one more time;
- # the caption has allready been formatted,
- # and these have been handled at the right place
- my $caption = substitute_text({ 'multiple_pass' => 1 }, @$caption_lines);
- push @listoffloats_entries, &$Texi2HTML::Config::listoffloats_entry($arg, $float, $float_style, $caption, href($float, $state->{'element'}->{'file'}));
- }
- add_prev($text, $stack, &$Texi2HTML::Config::listoffloats($arg, $style, \@listoffloats_entries));
- }
- else
- {
- echo_warn ("Unknown float style $arg", $line_nr);
- }
- }
- else
- {
- echo_error ("Bad \@$macro line: $_", $line_nr);
- }
- return undef;
- }
- # 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 s/^{//)
- {
- if ($macro eq 'verb')
- {
- if (/^$/)
- {
- # Allready warned
- #warn "$ERROR verb at end of line";
- }
- else
- {
- s/^(.)//;
- $state->{'verb'} = $1;
- }
- }
- elsif ($macro eq 'm_cedilla' and !$state->{'keep_texi'})
- {
- $macro = ',';
- }
- # currently if remove_texi and anchor/ref/footnote
- # the text within the command is ignored
- # see t2h_remove_command in texi2html.init
- push (@$stack, { 'style' => $macro, 'text' => '', 'arg_nr' => 0 });
- $state->{'no_paragraph'}++ if ($no_paragraph_macro{$macro});
- open_arg($macro, 0, $state);
- if (defined($style_type{$macro}) and (($style_type{$macro} eq 'style') or ($style_type{$macro} eq 'accent')))
- {
- push (@{$state->{'command_stack'}}, $macro);
- #print STDERR "# Stacked $macro (@{$state->{'command_stack'}})\n" if ($T2H_DEBUG);
- }
- 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'))
- {
- echo_error("\@$macro on \@$state->{'check_item'} line", $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}))
- {
- add_prev($text, $stack, "\@$macro" . $_);
- $_ = '';
- next;
- }
- # @ at the end of line may protect the end of line even when
- # keeping texi
- if ($macro eq "\n")
- {
- $state->{'end_of_line_protected'} = 1;
- #print STDERR "PROTECTING END OF LINE\n";
- }
-
- add_prev($text, $stack, "\@$macro");
- if ($text_macros{$macro} and $text_macros{$macro} eq 'raw')
- {
- $state->{'raw'} = $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 ($text_macros{$macro} and $text_macros{$macro} eq 'raw')
- {
- if (!$Texi2HTML::Config::format_in_paragraph{$macro})
- { # close paragraph before verbatim (and tex if !L2H)
- close_paragraph($text, $stack, $state, $line_nr);
- }
- $state->{'raw'} = $macro;
- push (@$stack, {'style' => $macro, 'text' => ''});
- return if (/^\s*$/);
- next;
- }
- my $simple_macro = 1;
- # An accent macro
- if (exists($Texi2HTML::Config::accent_map{$macro}))
- {
- push (@{$state->{'command_stack'}}, $macro);
- if (s/^(\S)//o)
- {
- add_prev($text, $stack, do_simple($macro, $1, $state, [ $1 ], $line_nr));
- }
- else
- { # The accent is at end of line
- 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})
- {
- echo_warn ("$macro requires {}", $line_nr);
- add_prev($text, $stack, do_simple($macro, '', $state));
- }
- # an @-command like @command
- elsif (defined($::simple_map_ref->{$macro}))
- {
- add_prev($text, $stack, do_simple($macro, '', $state));
- }
- else
- {
- $simple_macro = 0;
- }
- if ($simple_macro)
- {# if the macro didn't triggered a paragraph start it might now
- begin_paragraph($stack, $state) if
- ($no_line_macros{$macro} and !no_paragraph($state,$_));
- next;
- }
- # the following macros are modified or ignored if we are
- # removing texi, and they are not handled like macros in text
- if ($state->{'remove_texi'})
- {
- # handle specially some macros
- if ((($macro =~ /^(\w+?)index$/) and ($1 ne 'print')) or
- ($macro eq 'itemize') or ($macro =~ /^(|v|f)table$/)
- or ($macro eq 'multitable') or ($macro eq 'quotation'))
- {
- return;
- }
- elsif ($macro eq 'enumerate')
- {
- my $spec;
- ($_, $spec) = parse_enumerate ($_);
- return if (/^\s*$/);
- next;
- }
- elsif (defined($Texi2HTML::Config::def_map{$macro}))
- {
- my ($style, $category, $name, $type, $class, $arguments);
- ($style, $category, $name, $type, $class, $arguments) = parse_def($macro, $_, $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;
- }
-
- # ignore other macros
- next;
- }
-
- # handle the other macros, in the context of some normal text
- if (($macro =~ /^(\w+?)index$/) and ($1 ne 'print'))
- {
- add_prev($text, $stack, do_index_entry_label($macro,$state,$line_nr));
- return;
- }
- if ($macro eq 'insertcopying')
- {
- close_paragraph($text, $stack, $state, $line_nr);
- add_prev($text, $stack, do_insertcopying($state));
- # 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: $_";
- #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, $line_nr);
- # these functions return the format if in the right context
- my $format;
- if ($format = add_item($text, $stack, $state, $line_nr, $_))
- { # handle lists
- }
- elsif ($format = add_term($text, $stack, $state, $line_nr))
- {# handle table @item line
- }
- elsif ($format = add_line($text, $stack, $state, $line_nr))
- {# handle table text
- }
- if ($format)
- {
- if (defined($format->{'prepended'}))
- {
- $_ = $format->{'prepended'} . ' ' . $_ if ($format->{'prepended'} ne '');
- }
- if (defined($format->{'command'}))
- {
- open_arg($format->{'command'},0, $state);
- }
- next;
- }
- $format = add_row ($text, $stack, $state, $line_nr); # handle multitable
- unless ($format)
- {
- echo_warn ("\@$macro outside of table or list", $line_nr);
- next;
- }
- push @$stack, {'format' => 'row', 'text' => '', 'item_cmd' => $macro };
- if ($format->{'max_columns'})
- {
- push @$stack, {'format' => 'cell', 'text' => ''};
- $format->{'cell'} = 1;
-
- begin_paragraph_after_command($state,$stack,$macro,$_);
- }
- else
- {
- echo_warn ("\@$macro in empty multitable", $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, $line_nr);
- my $format = add_cell ($text, $stack, $state);
- #print STDERR "tab, $format->{'cell'}, max $format->{'max_columns'}\n";
- if (!$format)
- {
- echo_warn ("\@$macro outside of multitable", $line_nr);
- }
- elsif (!$format->{'max_columns'})
- {
- echo_warn ("\@$macro in empty multitable", $line_nr);
- push @$stack, {'format' => 'null', 'text' => ''};
- next;
- }
- elsif ($format->{'cell'} > $format->{'max_columns'})
- {
- echo_warn ("too much \@$macro (multitable has only $format->{'max_columns'} column(s))", $line_nr);
- push @$stack, {'format' => 'null', 'text' => ''};
- next;
- }
- else
- {
- push @$stack, {'format' => 'cell', 'text' => ''};
- }
- begin_paragraph_after_command($state,$stack,$macro,$_);
- next;
- }
- # Macro opening a format (table, list, deff, example...)
- if ($format_type{$macro} and ($format_type{$macro} ne 'fake'))
- {
- unless ($Texi2HTML::Config::format_in_paragraph{$macro})
- {
- close_paragraph($text, $stack, $state, $line_nr);
- }
- push (@{$state->{'command_stack'}}, $macro);
- if ($format_type{$macro} eq 'menu')
- {
- close_menu($text, $stack, $state, $line_nr);
- $state->{'menu'}++;
- }
- # A deff like macro
- if (defined($Texi2HTML::Config::def_map{$macro}))
- {
- my $top_format = top_format($stack);
- if (defined($top_format) and ("$top_format->{'format'}x" eq $macro))
- {
- # 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;
- if (!$state->{'deff_line'})
- {# DEFx macro within a DEF paragraph
- close_stack($text, $stack, $state, $line_nr, undef, 'deff_item');
- my $format_ref = pop @$stack;
- add_prev($text, $stack, &$Texi2HTML::Config::def_item($format_ref->{'text'}));
- }
- #print STDERR "DEFx $macro\n";
- }
- else
- {
- # The previous @def command isn't the same @def
- # command. We begin the item for the previous @def
- # command and immediately open the new one.
- begin_deff_item($stack, $state, 1) if ($state->{'deff_line'});
- $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";
- push @$stack, { 'format' => $macro, 'text' => '' };
- }
- #print STDERR "BEGIN_DEFF $macro\n";
- #dump_stack ($text, $stack, $state);
- $state->{'deff_line'}->{'command'} = $macro;
- my ($style, $category, $name, $type, $class, $arguments);
- ($style, $category, $name, $type, $class, $_) = parse_def($macro, $_, $line_nr);
- #print STDERR "AFTER parse_def $_";
- # duplicate_state?
- $state->{'deff_line'}->{'style'} = $style;
- $state->{'deff_line'}->{'category'} = substitute_line($category) if (defined($category));
- $state->{'deff_line'}->{'category'} = '' if (!defined($category));
- # FIXME -- --- ''... are transformed to entities by
- # makeinfo. It may be wrong.
- $state->{'deff_line'}->{'name'} = substitute_line($name) if (defined($name));
- $state->{'deff_line'}->{'name'} = '' if (!defined($name));
- $state->{'deff_line'}->{'type'} = substitute_line($type) if (defined($type));
- $state->{'deff_line'}->{'class'} = substitute_line($class) if (defined($class));
- # the remaining of the line (the argument)
- #print STDERR "DEFF: open_cmd_line do_def_line $_";
- open_cmd_line($stack, $state, ['keep'], \&do_def_line);
- next;
- }
- elsif (exists ($Texi2HTML::Config::complex_format_map->{$macro}))
- { # handle menu if SIMPLE_MENU. see texi2html.init
- $state->{'preformatted'}++;
- my $complex_format = $Texi2HTML::Config::complex_format_map->{$macro};
- my $format = { 'format' => $macro, 'text' => '', 'pre_style' => $complex_format->{'pre_style'} };
- my $class = $macro;
- $class = $complex_format->{'class'} if (defined($complex_format->{'class'}));
- push @{$state->{'preformatted_stack'}}, {'pre_style' =>$complex_format->{'pre_style'}, 'class' => $class };
- push @$stack, $format;
- unless ($Texi2HTML::Config::format_in_paragraph{$macro})
- {
- begin_paragraph($stack, $state);
- }
- }
- elsif ($Texi2HTML::Config::paragraph_style{$macro})
- {
- push (@$stack, { 'format' => $macro, 'text' => '' });
- begin_paragraph_after_command($state,$stack,$macro,$_);
- 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. For example
- # @center @samp{something @center end of samp}
- # results to samp being kept in the 'command_stack'
-
- # we keep the end of line for @center, to
- # avoid the return in case there is only spaces
- # which occurs for all the format commmands followed by
- # spaces only
- next;
- }
- }
- 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'})
- {
- # Start a fake complex format in order to have a given pre style
- $state->{'preformatted'}++;
- push @$stack, { 'format' => 'menu_preformatted', 'text' => '', 'pre_style' => $Texi2HTML::Config::MENU_PRE_STYLE };
- push @{$state->{'preformatted_stack'}}, {'pre_style' => $Texi2HTML::Config::MENU_PRE_STYLE, 'class' => 'menu-preformatted' };
- }
- }
- elsif (($format_type{$macro} eq 'list') or ($format_type{$macro} eq 'table'))
- {
- my $format;
- #print STDERR "LIST_TABLE $macro\n";
- #dump_stack($text, $stack, $state);
- if (($macro eq 'itemize') or ($macro =~ /^(|v|f)table$/))
- {
- my $command;
- my $prepended;
- ($prepended, $command) = parse_format_command($_,$macro);
- $format = { 'format' => $macro, 'text' => '', 'command' => $command, 'prepended' => $prepended, 'term' => 0 };
- $_ = '';
- }
- elsif ($macro eq 'enumerate')
- {
- my $spec;
- ($_, $spec) = parse_enumerate ($_);
- $spec = 1 if (!defined($spec));
- $format = { 'format' => $macro, 'text' => '', 'spec' => $spec, 'item_nr' => 0 };
- }
- elsif ($macro eq 'multitable')
- {
- my $max_columns = parse_multitable ($_, $line_nr);
- if (!$max_columns)
- {
- echo_warn ("empty multitable", $line_nr);
- $max_columns = 0;
- }
- $format = { 'format' => $macro, 'text' => '', 'max_columns' => $max_columns, 'cell' => 1 };
- }
- $format->{'first'} = 1;
- $format->{'paragraph_number'} = 0;
- push @$stack, $format;
- push @{$state->{'table_list_stack'}}, $format;
- if ($macro =~ /^(|v|f)table$/)
- {
- push @$stack, { 'format' => 'line', 'text' => ''};
- }
- elsif ($macro eq 'multitable')
- {
- if ($format->{'max_columns'})
- {
- push @$stack, { 'format' => 'row', 'text' => '', 'item_cmd' => $macro };
- push @$stack, { 'format' => 'cell', 'text' => ''};
- }
- else
- {
- # multitable without row... We use the special null
- # format which content is ignored
- push @$stack, { 'format' => 'null', 'text' => ''};
- push @$stack, { 'format' => 'null', 'text' => ''};
- }
- }
- if ($format_type{$macro} eq 'list')
- {
- push @$stack, { 'format' => 'item', 'text' => ''};
- }
- begin_paragraph_after_command($state,$stack,$macro,$_)
- if ($macro ne 'multitable');
- return if ($format_type{$macro} eq 'table' or $macro eq 'itemize');
- }
- elsif ($macro eq 'float' or $macro eq 'quotation')
- {
- push @$stack, {'format' => $macro, 'text' => '' };
- if ($macro eq 'float')
- {
- open_cmd_line($stack, $state, ['keep','keep'], \&do_float_line);
- }
- elsif ($macro eq 'quotation')
- {
- open_cmd_line($stack, $state, ['keep'], \&do_quotation_line);
- }
- #dump_stack($text, $stack, $state);
- next;
- }
- # 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' => '' };
- begin_paragraph_after_command($state,$stack,$macro,$_);
- }
- return if (/^\s*$/);
- next;
- }
- $_ = do_unknown ($macro, $_, $text, $stack, $state, $line_nr);
- next;
- }
- elsif(s/^([^{}@,]*)\@([^\s\}\{\@]*)//o)
- { # A macro with a character which shouldn't appear in macro name
- add_prev($text, $stack, do_text($1, $state));
- $_ = do_unknown ($2, $_, $text, $stack, $state, $line_nr);
- next;
- }
- elsif (s/^([^{},]*)([{}])//o or (@$stack and
- defined($stack->[-1]->{'style'}) and
- ($stack->[-1]->{'style'} eq 'cmd_line') and /^([^{},]*)$/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));
- unless ($state->{'keep_texi'} or $state->{'remove_texi'})
- {
- echo_error ("'{' without macro. Before: $_", $line_nr);
- }
- }
- elsif (defined($brace) and ($brace eq '}') and
- (!@$stack or (!defined($stack->[-1]->{'style'}))
- # a non empty stack, but with 'cmd_line' as first item on the stack
- # is like an empty stack
- or ($stack->[-1]->{'style'} eq 'cmd_line')))
- {
- if ($state->{'keep_texi'})
- {
- add_prev($text, $stack, '}');
- }
- else
- {
- echo_error("'}' without opening '{' before: $_", $line_nr);
- }
- }
- else
- { # A @-command{ ...} is closed
- my $style = pop @$stack;
- my $command = $style->{'style'};
- my $result;
- if (ref($::style_map_ref->{$command}) eq 'HASH')
- {
- push (@{$style->{'args'}}, $style->{'text'});
- $style->{'fulltext'} .= $style->{'text'};
- #my $number = 0;
- #foreach my $arg(@{$style->{'args'}})
- #{
- #print STDERR " $number: $arg\n";
- # $number++;
- #}
- $style->{'text'} = $style->{'fulltext'};
- $state->{'keep_texi'} = 0 if (
- ($::style_map_ref->{$command}->{'args'}->[$style->{'arg_nr'}] eq 'keep')
- and ($state->{'keep_nr'} == 1));
- }
- $state->{'no_paragraph'}-- if ($no_paragraph_macro{$command});
- if ($command)
- {
- $style->{'no_close'} = 1 if ($state->{'no_close'});
- if ($::style_map_ref->{$command} and (defined($style_type{$command})) and ((!$style->{'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)
- {
- print STDERR "Bug: $style_command on 'command_stack', not $command\n";
- push @$stack, $style;
- push @{$state->{'command_stack'}}, $style_command;
- print STDERR "Stacks before pop top:\n";
- dump_stack($text, $stack, $state);
- pop @$stack;
- }
- }
- if ($state->{'keep_texi'})
- { # don't expand @-commands in anchor, refs...
- close_arg ($command, $style->{'arg_nr'}, $state);
- $result = '@' . $command . '{' . $style->{'text'} . '}';
- }
- else
- {
- $result = do_simple($command, $style->{'text'}, $state, $style->{'args'}, $line_nr, $style->{'no_open'}, $style->{'no_close'});
- if ($state->{'code_style'} < 0)
- {
- echo_error ("Bug: negative code_style: $state->{'code_style'}, line:$_", $line_nr);
- }
- }
- }
- else
- {
- print STDERR "Bug: empty style in pass_text\n";
- }
- add_prev($text, $stack, $result);
- if ($command eq 'cmd_line')
- {
- if ($state->{'deff_line'})
- {
-#print STDERR "DO DEFF $state->{'deff_line'}->{'command'} $state->{'deff_line'}->{'arguments'}\n";
- my $command = $state->{'deff_line'}->{'command'};
- my $def_style = $state->{'deff_line'}->{'style'};
- my $category = $state->{'deff_line'}->{'category'};
- my $class = $state->{'deff_line'}->{'class'};
- my $type = $state->{'deff_line'}->{'type'};
- my $name = $state->{'deff_line'}->{'name'};
- #my $arguments = $state->{'deff'}->{'arguments'};
- my $arguments;
- $arguments = substitute_line($state->{'deff_line'}->{'arguments'}) if (defined($state->{'deff_line'}->{'arguments'}));
-
- $category = &$Texi2HTML::Config::definition_category($category, $class, $def_style);
- my $index_label = do_index_entry_label($command, $state,$line_nr);
- add_prev($text, $stack, &$Texi2HTML::Config::def_line($category, $name, $type, $arguments, $index_label));
- }
- elsif ($state->{'preformatted'})
- { # inconditionally begin a preformatted section for
- # non @def* commands (currently @float and @quotation)
- # for @def* it is done in begin_deff_item
- begin_paragraph($stack, $state);
- }
- $state->{'no_paragraph'}--;
- return;
- }
- }
- }
- elsif (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($_, $state));
- #print STDERR "END LINE:$_!!!\n";
- #dump_stack($text, $stack, $state);
-
- # @item line is closed by end of line
- add_term($text, $stack, $state, $line_nr);
-
- # @center 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).
-
- # 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;
- unless ($Texi2HTML::Config::format_in_paragraph{'center'})
- {
- close_paragraph($text, $stack, $state, $line_nr);
- }
- close_stack($text, $stack, $state, $line_nr, undef, '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');
- $_ = '';
- next;
- }
- last;
- }
- }
- return 1;
-}
-
-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 'code' and !$state->{'keep_texi'})
- {
- $state->{'code_style'}++;
- }
- elsif ($arg eq 'keep')
- {
- $state->{'keep_nr'}++;
- $state->{'keep_texi'} = 1;
- }
- }
- 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 'code' and !$state->{'keep_texi'})
- {
- $state->{'code_style'}--;
- }
- elsif ($arg eq 'keep')
- {
- $state->{'keep_nr'}--;
- $state->{'keep_texi'} = 0 if ($state->{'keep_nr'} == 0);
- }
-#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
-sub open_cmd_line($$$$)
-{
- 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'}++;
- 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 $end = shift;
- return unless (exists ($state->{'table_list_stack'}));
- my $format = $state->{'table_list_stack'}->[-1];
- return unless (($format_type{$format->{'format'}} eq 'table') and ($format->{'format'} ne 'multitable' ) and $format->{'term'});
- #print STDERR "ADD_TERM\n";
- # we set 'term' = 0 early such that if we encounter an end of line
- # during close_stack we don't try to do the term once more
- $state->{'table_list_stack'}->[-1]->{'term'} = 0;
- # it is the first paragraph for the term.
- $format->{'paragraph_number'} = 0;
-
- #dump_stack($text, $stack, $state);
- close_stack($text, $stack, $state, $line_nr, undef, 'term');
- my $term = pop @$stack;
- my $command_formatted;
- chomp ($term->{'text'});
- if (exists($::style_map_ref->{$format->{'command'}}) and
- !exists($Texi2HTML::Config::special_list_commands{$format->{'format'}}->{$format->{'command'}}) and ($style_type{$format->{'command'}} eq 'style'))
- {
- my $leading_spaces = '';
- my $trailing_spaces = '';
- $term->{'text'} =~ s/^(\s*)//o;
- $leading_spaces = $1 if (defined($1));
- $term->{'text'} =~ s/(\s*)$//o;
- $trailing_spaces = $1 if (defined($1));
- $term->{'text'} = do_simple($format->{'command'}, $term->{'text'}, $state, [$term->{'text'}]);
- $term->{'text'} = $leading_spaces. $term->{'text'} .$trailing_spaces;
- }
- elsif (exists($::things_map_ref->{$format->{'command'}}))
- {
- $command_formatted = do_simple($format->{'command'}, '', $state);
- }
- my $index_label;
- if ($format->{'format'} =~ /^(f|v)/o)
- {
- $index_label = do_index_entry_label($format->{'format'}, $state,$line_nr);
- print STDERR "Bug: no index entry for $text" unless defined($index_label);
- }
- add_prev($text, $stack, &$Texi2HTML::Config::table_item($term->{'text'}, $index_label,$format->{'format'},$format->{'command'}, $command_formatted,$state->{'command_stack'}));
- unless ($end)
- {
- push (@$stack, { 'format' => 'line', 'text' => '' });
- begin_paragraph($stack, $state) if ($state->{'preformatted'});
- }
- return $format;
-}
-
-sub add_row($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $format = $state->{'table_list_stack'}->[-1];
- return unless ($format->{'format'} eq 'multitable');
- if ($format->{'cell'} > $format->{'max_columns'})
- {
- close_stack($text, $stack, $state, $line_nr, undef, 'null');
- pop @$stack;
- }
- unless ($format->{'max_columns'})
- { # empty multitable
- pop @$stack; # pop 'row'
- return $format;
- }
- if ($format->{'first'})
- { # first row
- $format->{'first'} = 0;
- #dump_stack($text, $stack, $state);
- #if ($stack->[-1]->{'format'} and ($stack->[-1]->{'format'} eq 'paragraph') and ($stack->[-1]->{'text'} =~ /^\s*$/) and ($format->{'cell'} == 1))
- if ($stack->[-1]->{'format'} and ($stack->[-1]->{'format'} eq 'cell') and ($stack->[-1]->{'text'} =~ /^\s*$/) and ($format->{'cell'} == 1))
- {
- pop @$stack;
- pop @$stack;
- #pop @$stack;
- return $format;
- }
- }
- add_cell($text, $stack, $state);
- my $row = pop @$stack;
- add_prev($text, $stack, &$Texi2HTML::Config::row($row->{'text'}, $row->{'item_cmd'}));
- return $format;
-}
-
-sub add_cell($$$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $format = $state->{'table_list_stack'}->[-1];
- return unless ($format->{'format'} eq 'multitable');
- if ($format->{'cell'} <= $format->{'max_columns'})
- {
- close_stack($text, $stack, $state, $line_nr, undef, 'cell');
- my $cell = pop @$stack;
- my $row = top_stack($stack);
- print STDERR "Bug: top_stack of cell not a row\n" if (!defined($row) or !defined($row->{'format'}) or ($row->{'format'} ne 'row'));
- add_prev($text, $stack, &$Texi2HTML::Config::cell($cell->{'text'}, $row->{'item_cmd'}));
- $format->{'cell'}++;
- }
- return $format;
-}
-
-sub add_line($$$$;$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $end = shift;
- my $format = $state->{'table_list_stack'}->[-1];
- return unless ($format_type{$format->{'format'}} eq 'table' and ($format->{'format'} ne 'multitable') and ($format->{'term'} == 0));
- #print STDERR "ADD_LINE\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 abort the empty preformatted regions.
- abort_empty_preformatted($stack, $state) if ($format->{'first'});
- close_stack($text, $stack, $state, $line_nr, undef, 'line');
- my $line = pop @$stack;
- $format->{'paragraph_number'} = 0;
- my $first = 0;
- $first = 1 if ($format->{'first'});
- if ($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.
- add_prev($text, $stack, &$Texi2HTML::Config::table_line($line->{'text'})) if ($line->{'text'} =~ /\S/o);
- }
- else
- {
- add_prev($text, $stack, &$Texi2HTML::Config::table_line($line->{'text'}));
- }
- unless($end)
- {
- push (@$stack, { 'format' => 'term', 'text' => '' });
- }
- $format->{'term'} = 1;
- return $format;
-}
-
-# finish @enumerate or @itemize @item
-sub add_item($$$$;$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $line = shift;
- my $end = shift;
- my $format = $state->{'table_list_stack'}->[-1];
- return unless ($format_type{$format->{'format'}} eq 'list');
- #print STDERR "ADD_ITEM: \n";
- # as in pre the end of line are kept, we must explicitely abort empty
- # preformatted, close_stack doesn't do that.
- abort_empty_preformatted($stack, $state) if ($format->{'first'});
- close_stack($text, $stack, $state, $line_nr, undef, 'item');
- $format->{'paragraph_number'} = 0;
- if ($format->{'format'} eq 'enumerate')
- {
- $format->{'number'} = '';
- my $spec = $format->{'spec'};
- $format->{'item_nr'}++;
- if ($spec =~ /^[0-9]$/)
- {
- $format->{'number'} = $spec + $format->{'item_nr'} - 1;
- }
- 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'} - 1, 26);
- foreach my $ord (@letter_ords)
- {# WARNING 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'};
- }
- }
- }
-
- #dump_stack ($text, $stack, $state);
- my $item = pop @$stack;
- # 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 exists($::things_map_ref->{$format->{'command'}}))
- {
- $formatted_command = do_simple($format->{'command'}, '', $state);
- }
- #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'}));
- }
- if ($format->{'first'})
- {
- $format->{'first'} = 0;
- }
-
- # Now prepare the new item
- unless($end)
- {
- push (@$stack, { 'format' => 'item', 'text' => '' });
- begin_paragraph($stack, $state) unless (!$state->{'preformatted'} and no_line($line));
- }
- return $format;
-}
-
-# format ``simple'' macros, that is macros without arg or style macros
-sub do_simple($$$;$$$$)
-{
- 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 $arg_nr = 0;
- $arg_nr = @$args - 1 if (defined($args));
-
-#print STDERR "DO_SIMPLE $macro $arg_nr $args @$args\n" if (defined($args));
- if (defined($::simple_map_ref->{$macro}))
- {
- # \n may in certain circumstances, protect end of lines
- if ($macro eq "\n")
- {
- $state->{'end_of_line_protected'} = 1;
- #print STDERR "PROTECTING END OF LINE\n";
- }
- if ($state->{'keep_texi'})
- {
- return "\@$macro";
- }
- elsif ($state->{'remove_texi'})
- {
-#print STDERR "DO_SIMPLE remove_texi $macro\n";
- return $::simple_map_texi_ref->{$macro};
- }
- elsif ($state->{'preformatted'})
- {
- return $::simple_map_pre_ref->{$macro};
- }
- else
- {
- return $::simple_map_ref->{$macro};
- }
- }
- if (defined($::things_map_ref->{$macro}))
- {
- my $result;
- if ($state->{'keep_texi'})
- {
- $result = "\@$macro" . '{}';
- }
- elsif ($state->{'remove_texi'})
- {
- $result = $::texi_map_ref->{$macro};
-#print STDERR "DO_SIMPLE remove_texi texi_map $macro\n";
- }
- elsif ($state->{'preformatted'})
- {
- $result = $::pre_map_ref->{$macro};
- }
- else
- {
- $result = $::things_map_ref->{$macro};
- }
- return $result . $text;
- }
- elsif (defined($::style_map_ref->{$macro}))
- {
- if ($state->{'keep_texi'})
- {
- return "\@$macro" . '{' . $text . '}';
- }
- else
- {
- 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_ascii_accent;
- $style = $::style_map_texi_ref->{$macro};
- }
- elsif ($state->{'preformatted'})
- {
- $style = $::style_map_pre_ref->{$macro};
- }
- else
- {
- $style = $::style_map_ref->{$macro};
- }
- if (defined($style))
- { # known style
- $result = &$Texi2HTML::Config::style($style, $macro, $text, $args, $no_close, $no_open, $line_nr, $state, $state->{'command_stack'});
- }
- if (!$no_close)
- {
- close_arg($macro,$arg_nr, $state);
- }
- return $result;
- }
- }
- elsif ($macro =~ /^special_(\w+)_(\d+)$/o)
- {
- my $style = $1;
- my $count = $2;
- print STDERR "Bug? text in \@$macro not empty.\n" if ($text ne '');
- if ($state->{'keep_texi'})
- {# text should be empty
- return "\@$macro" . '{' . $text . '}';
- }
- 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'};
- if (($count != $struct_count) and $T2H_DEBUG)
- {
- print STDERR "count $count in \@special $style and structure $struct_count differ\n";
- }
- $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);
- if ($done)
- {
- echo_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
- echo_warn ("Unknown command with braces `\@$macro'", $line_nr);
- $result = do_text("\@$macro") . "{";
- }
- $result .= $text;
- $result .= '}' unless ($no_close);
- }
- return $result;
-}
-
-sub do_unknown($$$$$$)
-{
- my $macro = shift;
- my $line = shift;
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- #print STDERR "do_unknown: $macro ::: $line";
- my ($result_line, $result, $result_text, $message) = &$Texi2HTML::Config::unknown($macro, $line,$stack,$state);
- if ($result)
- {
- add_prev ($text, $stack, $result_text) if (defined($result_text));
- echo_warn($message, $line_nr) if (defined($message));
- return $result_line;
- }
- else
- {
- echo_warn ("Unknown command `\@$macro' (left as is)", $line_nr);
- add_prev ($text, $stack, do_text("\@$macro"));
- 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) . "";
- }
- #if (!defined($stack) or (ref($stack) ne "ARRAY"))
- #{
- # $string = $stack;
- # $stack = [];
- #}
-
- return if (!defined($string));
- if (@$stack)
- {
- $stack->[-1]->{'text'} .= $string;
- return;
- }
-
- if (!defined($$text))
- {
- $$text = $string;
- }
- else
- {
- $$text .= $string;
- }
-}
-
-sub close_stack_texi_structure($$$$)
-{
- 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'});
-
- #print STDERR "close_stack_texi_structure\n";
- #dump_stack ($text, $stack, $state);
- my $stack_level = $#$stack + 1;
- my $string = '';
-
- if ($state->{'ignored'})
- {
- $string .= "\@end $state->{'ignored'} ";
- echo_warn ("closing $state->{'ignored'}", $line_nr);
- }
- if ($state->{'texi'})
- {
- if ($state->{'macro'})
- {
- $string .= "\@end macro ";
- echo_warn ("closing macro", $line_nr);
- }
- elsif ($state->{'macro_name'})
- {
- $string .= ('}' x $state->{'macro_depth'}) . " ";
- echo_warn ("closing $state->{'macro_name'} ($state->{'macro_depth'} braces missing)", $line_nr);
- }
- elsif ($state->{'verb'})
- {
- echo_warn ("closing \@verb", $line_nr);
- $string .= $state->{'verb'} . '}';
- }
- elsif ($state->{'raw'})
- {
- echo_warn ("closing \@$state->{'raw'} raw format", $line_nr);
- $string .= "\@end $state->{'raw'} ";
- }
- if ($string ne '')
- {
- #print STDERR "close_stack scan_texi ($string)\n";
- scan_texi ($string, $text, $stack, $state, $line_nr);
- $string = '';
- }
- }
- elsif ($state->{'verb'})
- {
- $string .= $state->{'verb'};
- }
-
- while ($stack_level--)
- {
- my $stack_text = $stack->[$stack_level]->{'text'};
- $stack_text = '' if (!defined($stack_text));
- if ($stack->[$stack_level]->{'format'})
- {
- my $format = $stack->[$stack_level]->{'format'};
- if ($format eq 'index_item')
- {
- enter_table_index_entry($text, $stack, $state, $line_nr);
- next;
- }
- elsif (!defined($format_type{$format}) or ($format_type{$format} ne 'fake'))
- {
- $stack_text = "\@$format\n" . $stack_text;
- }
- }
- elsif (defined($stack->[$stack_level]->{'style'}))
- {
- if ($state->{'structure'})
- {
- $stack_text = close_structure_command($stack->[$stack_level],
- $state,1,$line_nr)
- }
- else
- {
- my $style = $stack->[$stack_level]->{'style'};
- if ($style ne '')
- {
- $stack_text = "\@$style\{" . $stack_text;
- }
- else
- {# this is a lone opened brace. We readd it there.
- $stack_text = "\{" . $stack_text;
- }
- }
- }
- pop @$stack;
- add_prev($text, $stack, $stack_text);
- }
- $stack = [ ];
-
- $state->{'close_stack'} = 1;
- if ($string ne '')
- {
- if ($state->{'texi'})
- {
- #print STDERR "scan_texi in close_stack ($string)\n";
- scan_texi($string, $text, $stack, $state, $line_nr);
- }
- elsif ($state->{'structure'})
- {
- #print STDERR "scan_structure in close_stack ($string)\n";
- scan_structure($string, $text, $stack, $state, $line_nr);
- }
- }
- delete $state->{'close_stack'};
-}
-
-# close region like @insertcopying, titlepage...
-# restore $state->{'after_element'} and delete the structure
-sub close_region($)
-{
- my $state = shift;
- $state->{'after_element'} = 1;
- delete $state->{'after_element'} unless
- ($state->{'region_lines'}->{'after_element'});
- $state->{'place'} = $state->{'region_lines'}->{'kept_place'};
- delete $state->{'region_lines'}->{'number'};
- delete $state->{'region_lines'}->{'format'};
- delete $state->{'region_lines'}->{'after_element'};
- delete $state->{'region_lines'}->{'kept_place'};
- delete $state->{'region_lines'};
-}
-
-# close the stack, closing macros and formats left open.
-# the precise behavior of the function depends on $close_paragraph:
-# undef -> close everything
-# defined -> remove empty paragraphs, close until the first format or
-# paragraph. don't close styles, duplicate stack of styles not closed
-
-# if a $format is given the stack is closed according to $close_paragraph but
-# if $format is encountered the closing stops
-
-sub close_stack($$$$;$$)
-{
- my $text = shift;
- my $stack = shift;
- my $state = shift;
- my $line_nr = shift;
- my $close_paragraph = shift;
- my $format = shift;
- my $new_stack;
-
- #print STDERR "sub_close_stack\n";
- return $new_stack unless (@$stack);
-
- my $stack_level = $#$stack + 1;
- my $string = '';
- my $verb = '';
-
- if ($state->{'verb'})
- {
- $string .= $state->{'verb'};
- $verb = $state->{'verb'};
- }
-
- #debugging
- #my $print_format = 'NO FORMAT';
- #$print_format = $format if ($format);
- #my $print_close_paragraph = 'close everything';
- #$print_close_paragraph = 'close paragraph without duplicating' if (defined($close_paragraph));
- #$print_close_paragraph = $close_paragraph if ($close_paragraph);
- #print STDERR "Close_stack: format $print_format, close_paragraph: $print_close_paragraph\n";
-
- while ($stack_level--)
- {
- if ($stack->[$stack_level]->{'format'})
- {
- my $stack_format = $stack->[$stack_level]->{'format'};
- last if (defined($close_paragraph) or (defined($format) and $stack_format eq $format));
- # We silently close paragraphs, preformatted sections and fake formats
- if ($stack_format eq 'paragraph')
- {
- $string .= "\@end_paragraph{}";
- }
- elsif ($stack_format eq 'preformatted')
- {
- $string .= "\@end_preformatted{}";
- }
- 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, but add an @end center
- echo_warn ("closing `$stack_format'", $line_nr);
- #dump_stack ($text, $stack, $state);
- }
- $string .= "\@end $stack_format ";
- }
- }
- else
- {
- my $style = $stack->[$stack_level]->{'style'};
- # FIXME images, footnotes, xrefs, anchors with $close_paragraphs?
- # seems that it is not possible, as it is triggered by
- # close_paragraph which shouldn't be called with keep_texi
- # and when the arguments are expanded, there is a
- # substitute_line or similar with a new stack.
- if ($close_paragraph)
- { #duplicate the stack
- # the !exists($style_type{$style}) condition catches the unknown
- # @-commands: by default they are considered as style commands
- if ((exists($style_type{$style}) and ($style_type{$style} eq 'style')) or (!exists($style_type{$style})))
- {
- push @$new_stack, { 'style' => $style, 'text' => '', 'no_open' => 1, 'arg_nr' => 0 };
- $string .= '}';
- }
- elsif (($style_type{$style} eq 'simple_style') or ($style_type{$style} eq 'accent'))
- {
- $string .= '}';
- }
- else
- {
- print STDERR "$style while closing paragraph\n";
- }
- }
- else
- {
- dump_stack ($text, $stack, $state) if (!defined($style)); # bug
- $string .= '}';
- echo_warn ("closing \@-command $style", $line_nr) if ($style);
- }
- }
- }
- $state->{'no_close'} = 1 if ($close_paragraph);
- $state->{'close_stack'} = 1;
- if ($string ne '')
- {
- #print STDERR "scan_line in CLOSE_STACK ($string)\n";
- #dump_stack ($text, $stack, $state);
- scan_line($string, $text, $stack, $state, $line_nr);
- }
- delete $state->{'no_close'};
- delete $state->{'close_stack'};
- $state->{'verb'} = $verb if (($verb ne '') and $close_paragraph);
- # cancel paragraph states and command_stack
- # FIXME this seems to be unusefull, see formatting/center.texi
- unless (defined($close_paragraph) or defined($format))
- {
- $state->{'paragraph_style'} = [ '' ];
- $state->{'command_stack'} = [ '' ];
- }
- return $new_stack;
-}
-
-# 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 $line_nr = shift;
- #my $macro = shift;
- #print STDERR "CLOSE_PARAGRAPH\n";
- #dump_stack($text, $stack, $state);
- my $new_stack = close_stack($text, $stack, $state, $line_nr, 1);
- my $top_stack = top_stack($stack);
- if ($top_stack and !defined($top_stack->{'format'}))
- { #debug
- print STDERR "Bug: no format on top stack\n";
- 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));
- $state->{'paragraph_macros'} = $new_stack;
- return 1;
- }
- elsif ($top_stack and ($top_stack->{'format'} eq 'preformatted'))
- {
- my $paragraph = pop @$stack;
- add_prev($text, $stack, do_preformatted($paragraph->{'text'}, $state));
- $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/))
- {
- 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(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->{'table_list_stack'}))
- {
- print STDERR "table_list_stack: ";
- foreach my $format (@{$state->{'table_list_stack'}})
- {
- print STDERR "$format->{'format'} ";
- }
- 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->{'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";
- }
-}
-
-sub substitute_line($;$)
-{
- my $line = shift;
- my $state = shift;
- $state = {} if (!defined($state));
- $state->{'no_paragraph'} = 1;
- # this is usefull when called from &$I
- return simple_format($state, $line) if ($state->{'simple_format'});
- return substitute_text($state, $line);
-}
-
-sub substitute_text($@)
-{
- my $state = shift;
- my @stack = ();
- my $text = '';
- my $result = '';
- if ($state->{'structure'})
- {
- initialise_state_structure($state);
- }
- elsif ($state->{'texi'})
- {
- initialise_state_texi($state);
- }
- else
- {
- initialise_state($state);
- }
- $state->{'spool'} = [];
- #print STDERR "SUBST_TEXT begin\n";
-
- while (@_ or @{$state->{'spool'}})
- {
- my $line;
- if (@{$state->{'spool'}})
- {
- $line = shift @{$state->{'spool'}};
- }
- else
- {
- $line = shift @_;
- }
- next unless (defined($line));
- if ($state->{'structure'})
- {
- scan_structure ($line, \$text, \@stack, $state);
- }
- elsif ($state->{'texi'})
- {
- scan_texi ($line, \$text, \@stack, $state);
- }
- else
- {
- scan_line($line, \$text, \@stack, $state);
- }
- next if (@stack);
- $result .= $text;
- $text = '';
- }
- # FIXME could we have the line number ?
- # close stack in substitute_text
- if ($state->{'texi'} or $state->{'structure'})
- {
- close_stack_texi_structure(\$text, \@stack, $state, undef);
- }
- else
- {
- close_stack(\$text, \@stack, $state, undef);
- }
- #print STDERR "SUBST_TEXT end\n";
- return $result . $text;
-}
-
-# this function does the second pass formatting. It is not obvious that
-# it is usefull as in that pass the collected things
-sub substitute_texi_line($)
-{
- my $text = shift;
- return $text if $text =~ /^\s*$/;
- #print STDERR "substitute_texi_line $text\n";
- my @text = substitute_text({'structure' => 1}, $text);
- my @result = ();
- while (@text)
- {
- push @result, split (/\n/, shift (@text));
- }
- return '' unless (@result);
- my $result = shift @result;
- return $result . "\n" unless (@result);
- foreach my $line (@result)
- {
- chomp $line;
- $result .= ' ' . $line;
- }
- return $result . "\n";
-}
-
-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::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;
- return '' if ($state->{'multiple_pass'});
- my $entry = shift @index_labels;
- if (!defined($entry))
- {
- echo_warn ("Not enough index entries !", $line_nr);
- return '';
- }
- if ($command ne $entry->{'command'})
- {
- # happens with bad texinfo with a line like
- # @deffn func aaaa args @defvr c--ategory d--efvr_name
- echo_warn ("Waiting for index cmd \@$entry->{'command'}, got \@$command", $line_nr);
- }
-
- print STDERR "[(index $command) $entry->{'entry'} $entry->{'label'}]\n"
- if ($T2H_DEBUG & $DEBUG_INDEX);
- return &$Texi2HTML::Config::index_entry_label ($entry->{'label'}, $state->{'preformatted'}, substitute_line($entry->{'entry'}),
- $index_prefix_to_name{$prefix},
- $command);
-}
-
-# 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;
-}
-
-# main processing is called here
-set_document_language('en') unless ($lang_set);
-# APA: There's got to be a better way:
-$T2H_USER = &$I('unknown');
-
-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
- $T2H_USER = 'a tester';
- $THISPROG = 'texi2html';
- setlocale( LC_ALL, "C" );
-}
-else
-{
- # the eval prevents this from breaking on system which do not have
- # a proper getpwuid implemented
- eval { ($T2H_USER = (getpwuid ($<))[6]) =~ s/,.*//;}; # Who am i
- # APA: Provide Windows NT workaround until getpwuid gets
- # implemented there.
- $T2H_USER = $ENV{'USERNAME'} unless defined $T2H_USER;
-}
-
-open_file($docu, $texi_line_number);
-#Texi2HTML::LaTeX2HTML::init() if ($Texi2HTML::Config::L2H);
-if ($Texi2HTML::Config::L2H)
-{
- push @Texi2HTML::Config::command_handler_init, \&Texi2HTML::LaTeX2HTML::init;
- push @Texi2HTML::Config::command_handler_process, \&Texi2HTML::LaTeX2HTML::latex2html;
- 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
- };
-}
-foreach my $handler(@Texi2HTML::Config::command_handler_init)
-{
- &$handler;
-}
-
-my @css_import_lines;
-my @css_rule_lines;
-
-# process css files
-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_init_file ($file);
- unless (defined($css_file))
- {
- warn "css file $file not found\n";
- next;
- }
- unless (open (CSSFILE, "$css_file"))
- {
- warn "Cannot open ${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;
-}
-
-$Texi2HTML::THISDOC{'css_import_lines'} = \@css_import_lines;
-$Texi2HTML::THISDOC{'css_lines'} = \@css_rule_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";
- }
- }
-}
-
-pass_texi();
-dump_texi(\@lines, 'texi', \@lines_numbers) if ($T2H_DEBUG & $DEBUG_TEXI);
-if (defined($Texi2HTML::Config::MACRO_EXPAND))
-{
- my @texi_lines = (@first_lines, @lines);
- dump_texi(\@texi_lines, '', undef, $Texi2HTML::Config::MACRO_EXPAND);
-}
-pass_structure();
-if ($T2H_DEBUG & $DEBUG_TEXI)
-{
- dump_texi(\@doc_lines, 'first', \@doc_numbers);
- if (defined($Texi2HTML::Config::MACRO_EXPAND and $Texi2HTML::Config::DUMP_TEXI))
- {
- unshift (@doc_lines, @first_lines);
- push (@doc_lines, "\@bye\n");
- dump_texi(\@doc_lines, '', undef, $Texi2HTML::Config::MACRO_EXPAND . ".first");
- }
-}
-exit(0) if ($Texi2HTML::Config::DUMP_TEXI or defined($Texi2HTML::Config::MACRO_EXPAND));
-
-foreach my $style (keys(%special_commands))
-{
- $special_commands{$style}->{'max'} = $special_commands{$style}->{'count'};
-}
-
-rearrange_elements();
-do_names();
-
-#Texi2HTML::LaTeX2HTML::latex2html();
-foreach my $handler(@Texi2HTML::Config::command_handler_process)
-{
- &$handler;
-}
-
-if (@{$region_lines{'documentdescription'}} and (!defined($Texi2HTML::Config::DOCUMENT_DESCRIPTION)))
-{
- my $documentdescription = remove_texi(@{$region_lines{'documentdescription'}});
- my @documentdescription = split (/\n/, $documentdescription);
- $Texi2HTML::Config::DOCUMENT_DESCRIPTION = shift @documentdescription;
- chomp $Texi2HTML::Config::DOCUMENT_DESCRIPTION;
- foreach my $line (@documentdescription)
- {
- chomp $line;
- $Texi2HTML::Config::DOCUMENT_DESCRIPTION .= ' ' . $line;
- }
-}
-# do copyright notice inserted in comment at the beginning of the files
-if (@{$region_lines{'copying'}})
-{
- $copying_comment = &$Texi2HTML::Config::copying_comment($region_lines{'copying'});
-}
-&$Texi2HTML::Config::toc_body(\@elements_list);
-$sec_num = 0;
-
-
-&$Texi2HTML::Config::css_lines(\@css_import_lines, \@css_rule_lines);
-
-pass_text();
-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)
- {
- echo_warn ("$count special \@$special were not processed.\n");
- }
-}
-if ($Texi2HTML::Config::IDX_SUMMARY)
-{
- foreach my $entry (keys(%index_names))
- {
- do_index_summary_file($entry) unless ($empty_indices{$entry});
- }
-}
-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 "# 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 ${prefix}/man/man1/texi2html.1
projects / thirdparty / gettext.git / commitdiff
