From: Bruno Haible Date: Sun, 7 Apr 2019 13:46:28 +0000 (+0200) Subject: build: Unify the three copies of texi2html. X-Git-Tag: v0.20~73 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fecad3a65d6aef31559719ffd4b0dc90b30fe5d4;p=thirdparty%2Fgettext.git build: Unify the three copies of texi2html. * 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. --- diff --git a/Makefile.am b/Makefile.am index 53b5448c3..a8f483af6 100644 --- a/Makefile.am +++ b/Makefile.am @@ -52,7 +52,7 @@ changelog_etc = \ 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 @@ -115,7 +115,6 @@ distcheck-hook: 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`" diff --git a/gettext-runtime/libasprintf/texi2html b/build-aux/texi2html similarity index 100% rename from gettext-runtime/libasprintf/texi2html rename to build-aux/texi2html diff --git a/gettext-runtime/libasprintf/Makefile.am b/gettext-runtime/libasprintf/Makefile.am index 833d76bfb..4189ef1a1 100644 --- a/gettext-runtime/libasprintf/Makefile.am +++ b/gettext-runtime/libasprintf/Makefile.am @@ -185,7 +185,7 @@ uninstall-pdf: # Documentation in HTML format. -TEXI2HTML = @PERL@ $(srcdir)/texi2html +TEXI2HTML = @PERL@ $(top_srcdir)/../../build-aux/texi2html HTMLS = autosprintf_all.html @@ -205,7 +205,7 @@ installdirs-html: uninstall-html: $(RM) $(DESTDIR)$(htmldir)/autosprintf.html -EXTRA_DIST += texi2html autosprintf_all.html +EXTRA_DIST += autosprintf_all.html # Windows support. diff --git a/gettext-tools/doc/Makefile.am b/gettext-tools/doc/Makefile.am index 4e59c417b..51ea2bc99 100644 --- a/gettext-tools/doc/Makefile.am +++ b/gettext-tools/doc/Makefile.am @@ -57,8 +57,7 @@ EXTRA_DIST += $(doc_DATA) 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 @@ -180,7 +179,7 @@ uninstall-pdf: # Documentation in HTML format. -TEXI2HTML = @PERL@ $(srcdir)/texi2html +TEXI2HTML = @PERL@ $(top_srcdir)/../build-aux/texi2html html-monolithic: gettext.html html-split: gettext_toc.html diff --git a/gettext-tools/doc/texi2html b/gettext-tools/doc/texi2html deleted file mode 100755 index 96592ebfe..000000000 --- a/gettext-tools/doc/texi2html +++ /dev/null @@ -1,19554 +0,0 @@ -#! /usr/bin/perl -- # perl -'di '; -'ig 00 '; -#+############################################################################## -# -# texi2html: Program to transform Texinfo documents to HTML -# -# Copyright (C) 1999-2005 Patrice Dumas , -# Derek Price , -# Adrian Aichner , -# & 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 = < (original author) - Karl Berry - Olaf Bachmann - and many others. -Maintained by: Many creative people. -Send bugs and suggestions to -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\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 = "\n$ind"; - $line .= "" if ($level == $current_level); - push(@{$Texi2HTML::TOC_LINES}, "$line\n"); - - } - } - else - { - push(@{$Texi2HTML::TOC_LINES}, "\n"); - } - my $file = ''; - $file = $element->{'file'} if ($SPLIT); - my $text = $element->{'text'}; - #$text = $element->{'name'} unless ($NUMBER_SECTIONS); - my $entry = "
  • " . &$anchor ($element->{'tocid'}, "$file#$element->{'id'}",$text); - push (@{$Texi2HTML::TOC_LINES}, $ind . $entry); - push(@{$Texi2HTML::OVERVIEW}, $entry. "
    • \n") if ($level == 1); - } - while (0 < $current_level) - { - $current_level--; - my $ind = ' ' x $current_level; - push(@{$Texi2HTML::TOC_LINES}, "\n$ind\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}, "\n"; - push @{$Texi2HTML::OVERVIEW}, "\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" ; - $text = "<${style}$attribute_text>" . "$text" if (!$no_open); - $text .= "" 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. "\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 -# -# $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 = ''; - -# -frameset-doctype -# When frames are used, this SystemLiteral identifies the DTD used for -# the file containing the frame description. -$FRAMESET_DOCTYPE = ''; - -# -test -# If this value is true, some variables which should be dynamically generated -# (the date, the user running texi2html, the version of texi2html) are set to -# fix and given values. This is usefull in case the resulting manual is -# compared with a reference. For example this is used in the tests of test.sh. -$TEST = 0; - -# -dump-texi -# This value is usefull for debugging purposes. The result of the first pass is -# put in .passtexi, the result of the second pass is put in -# .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, .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, _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 -# _.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 _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 -$EXAMPLE_INDENT_CELL = ' '; - -# same as above, only for @small -$SMALL_EXAMPLE_INDENT_CELL = ' '; - -# font size for @small -$SMALL_FONT_SIZE = '-1'; - -# horizontal rules -$SMALL_RULE = '
    '; -$DEFAULT_RULE = '
    '; -$MIDDLE_RULE = '
    '; -$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 = "
    \n"; -$AFTER_OVERVIEW = "
    \n"; - -# These lines are inserted before and after the contents -$BEFORE_TOC_LINES = "
    \n"; -$AFTER_TOC_LINES = "
    \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 -$AFTER_BODY_OPEN = ''; - -# text inserted before , this will be automatically inside

    -$PRE_BODY_CLOSE = ''; - -# this is added inside after 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 - -$description - - - - -$encoding -$CSS_LINES -$EXTRA_HEAD - - - -$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 < - - $program_string - -
    -$PRE_BODY_CLOSE -

    - - -EOT -} - -################################################################### -# Layout of navigation panel - -sub T2H_DEFAULT_print_head_navigation($$) -{ - my $fh = shift; - my $buttons = shift; - if ($VERTICAL_HEAD_NAVIGATION) - { - print $fh < - - -EOT - } - main::print_lines($fh, $Texi2HTML::THIS_HEADER); - &$print_navigation($fh, $buttons, $VERTICAL_HEAD_NAVIGATION); - if ($VERTICAL_HEAD_NAVIGATION) - { - print $fh < - -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 - } -} - -###################################################################### -# 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{$alt}; -} - -sub T2H_DEFAULT_print_navigation -{ - my $fh = shift; - my $buttons = shift; - my $vertical = shift; - my $spacing = 1; - print $fh '\n"; - - print $fh "" unless $vertical; - for my $button (@$buttons) - { - print $fh qq{\n} if $vertical; - print $fh qq{\n"; - print $fh "\n" if $vertical; - } - print $fh "" unless $vertical; - print $fh "
    }; - - 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 "
    \n"; -} - -###################################################################### -# Frames: this is from "Richard Y. Kim" -# 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 < -$Texi2HTML::THISDOC{title} - - - - - -EOT -} - -sub T2H_DEFAULT_print_toc_frame -{ - my $fh = shift; - my $stoc_lines = shift; - &$print_page_head($fh); - print $fh <Content -EOT - print $fh map {s/\bhref=/target="main" href=/; $_;} @$stoc_lines; - print $fh "\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", - "

    $name

    \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 = "\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

    . -$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 = "

    \n"; - if (ref($PRE_ABOUT) eq 'CODE') - { - $about .= &$PRE_ABOUT(); - } - else - { - $about .= $PRE_ABOUT; - } - $about .= < -

    -EOT - $about .= &$I(' The buttons in the navigation panels have the following meaning:') . "\n"; - $about .= < - - -EOT - $about .= ' \n" . -' \n" . -' \n" . -' \n" . " \n"; - - for my $button (@SECTION_BUTTONS) - { - next if $button eq ' ' || ref($button) eq 'CODE' || ref($button) eq 'SCALAR' || ref($button) eq 'ARRAY'; - $about .= " \n \n"; - $about .= <$BUTTONS_NAME{$button} - - - -EOT - } - - $about .= < - -

    -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 Example assumes that the current position -# is at Subsubsection One-Two-Three of a document of -# the following structure: - $about .= < - -

      -EOT - $about .= '
    • 1. ' . &$I('Section One') . "\n" . -"
        \n" . -'
      • 1.1 ' . &$I('Subsection One-One') . "\n"; - $about .= < -
      • ...
        • -
      -
      • -EOT - $about .= '
    • 1.2 ' . &$I('Subsection One-Two') . "\n" . -"
        \n" . -'
      • 1.2.1 ' . &$I('Subsubsection One-Two-One') . "
        • \n" . -'
      • 1.2.2 ' . &$I('Subsubsection One-Two-Two') . "
        • \n" . -'
      • 1.2.3 ' . &$I('Subsubsection One-Two-Three') . "    \n" -. -' <== ' . &$I('Current Position') . "
        • \n" . -'
      • 1.2.4 ' . &$I('Subsubsection One-Two-Four') . "
        • \n" . -"
      \n" . -"
      • \n" . -'
    • 1.3 ' . &$I('Subsection One-Three') . "\n"; - $about .= < -
    • ...
      • -
    - -EOT - $about .= '
  • 1.4 ' . &$I('Subsection One-Four') . "
    • \n"; - $about .= < - - -$AFTER_ABOUT -EOT - return $about; -} - -sub T2H_DEFAULT_titlepage() -{ - my $result = ''; - if (@{$Texi2HTML::THISDOC{'titles'}} - or @{$Texi2HTML::THISDOC{'subtitles'}} - or @{$Texi2HTML::THISDOC{'authors'}}) - { - $result = "
    \n"; - foreach my $title (@{$Texi2HTML::THISDOC{'titles'}}) - { - $result .= '

    ' . $title . "

    \n"; - } - foreach my $subtitle (@{$Texi2HTML::THISDOC{'subtitles'}}) - { - $result .= '

    ' . $subtitle . "

    \n"; - } - foreach my $author (@{$Texi2HTML::THISDOC{'authors'}}) - { - $result .= ' ' . $author . "
    \n"; - } - $result .= "
    \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 = "" 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 < - - - -$longtitle - - - - - - -$encoding -$CSS_LINES - -$EXTRA_HEAD - - - -$AFTER_BODY_OPEN -

    $string

    - -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_* routines, -# give them another name, and assign them to the respective -# $ 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 = ( - "*", "
    ", # 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', '
    ', # paragraph break - 'bullet' => '*', -# #'copyright' => '(C)', - 'copyright' => '©', - 'registeredsymbol' => '®', - 'dots' => '...', - 'enddots' => '....', - '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' => '<', 'end' => '>','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 '' . uc($_[0]) . ''; -} - -# now unused, upcasing is done in normal_text -sub t2h_default_sc($$$) -{ - shift; - my $args = shift; - return '' . uc($args->[0]) . ''; -} - -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 "

    $_[0]

    " if ($_[0] =~ /\S/); - return ''; -} - -# Avoid adding h1 if the text is empty -sub t2h_default_titlefont($$$) -{ - shift; - my $args = shift; - return "

    $args->[0]

    " 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 '<' . $_[0] . '>'; -#} -# -# 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{"
    ' . &$I('Button') . " ' . &$I('Name') . " ' . &$I('Go to') . " ' . &$I('From 1.2.3 go to') . "
    "; - $about .= - ($ICONS && $ACTIVE_ICONS{$button} ? - &$button_icon_img($BUTTONS_NAME{$button}, $ACTIVE_ICONS{$button}) : - ' [' . $NAVIGATION_TEXT{$button} . '] '); - $about .= "$BUTTONS_GOTO{$button}$BUTTONS_EXAMPLE{$button}
    $EXAMPLE_INDENT_CELL
    "}, - 'end' => q{"
    \n"}, - }, - 'smallexample' => - { - 'begin' => q{"$SMALL_EXAMPLE_INDENT_CELL
    "}, - 'end' => q{"
    \n"}, - }, - 'display' => - { - 'begin' => q{"$EXAMPLE_INDENT_CELL
    "}, - 'end' => q{"
    \n"}, - }, - 'smalldisplay' => - { - 'begin' => q{"$SMALL_EXAMPLE_INDENT_CELL
    "}, - 'end' => q{"
    \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 '

    ' . "$label\n" . $text . '
    ' . $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 '
    ' . &$anchor('', $href, $float_style) . '
    ' . $caption -. '
    ' . "\n"; -} - -sub t2h_default_listoffloats($$$) -{ - my $style_texi = shift; - my $style = shift; - my $float_entries = shift; - - my $result = "
    \n" ; - foreach my $float_entry (@$float_entries) - { - $result .= $float_entry; - } - return $result . "
    \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; - 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 "$text"; -} - -# 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 '
    ' . $text . '
    '; - } - else - { - return '' . $text . ''; - } - } - 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 "
    \n" . $text . "
    \n"; - } - else - { - return "\n" . $text . "
    \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 "\n" - . $text . "
    \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 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 '' . main::do_preformatted($entry . $ending, $state); - } - return "$entry  "; -} - -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) . ''; - } - elsif ($AVOID_MENU_REDUNDANCY) - { - $text = '' if (simplify_text($element_text) eq simplify_text($text)); - } - return "$text\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 "$text"; - } - 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 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 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 .= ''; - $formatted_command = '' . $formatted_command; - } - $text .= "\n" . $index_label if (defined($index_label)); - return '
    ' . $formatted_command . $text . '
    ' . "\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 '
    ' . $text . '
    ' . "\n"; - } - return ''; -} - -# row in multitable -sub t2h_default_row($$) -{ - my $text = shift; - my $macro = shift; - - if ($text =~ /\S/) - { - if ($macro eq 'headitem') - { - return '' . $text . '' . "\n"; - } - return '' . $text . '' . "\n"; - } - return ''; -} - -# cell in multitable -sub t2h_default_cell($$) -{ - my $text = shift; - my $row_macro = shift; - - if ($row_macro eq 'headitem') - { - return '' . $text . ''; - } - return '' . $text . ''; -} - -# 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 '
  • ' . $formatted_command . $text . '
    • '; - } - 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 "
      \n" . $text . "
    \n" if ($command eq 'bullet'); - return "\n" . $text . "\n"; - } -} - -# an html comment -sub t2h_default_comment($) -{ - my $text = shift; - $text =~ s/--+/-/go; - return '' . "\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 = "" 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 = '

    '; - if ($align) - { - $open = "

    "; - } - return $open.$text.'

    '; -} - -# a preformatted region -# arguments: -# $text of the preformatted region -# $pre_style css style -# $class identifier for the preformatted region (example, menu-comment) -# The following is usefull if the preformatted is in an itemize. -# $leading_command is the leading formatting command (like @minus) -# $leading_command_formatted is the leading formatting command formatted -# $preformatted_number is a reference on the number of preformatteds appearing -# in the format. The value should be increased if a preformatted is done -sub t2h_default_preformatted($$$$$$$$$$$$) -{ - my $text = shift; - my $pre_style = shift; - my $class = shift; - my $leading_command = shift; - my $leading_command_formatted = shift; - my $preformatted_number = shift; - my $format = shift; - my $item_nr = shift; - my $enumerate_style = shift; - my $number = shift; - my $command_stack_at_end = shift; - my $command_stack_at_begin = shift; - -#print STDERR "preformatted @$command_stack_at_end; @$command_stack_at_begin\n"; - return '' if ($text eq ''); - $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 "
    ".$text."
    "; -} - -# 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 " $text \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 "
    " . &$protect_text($text) . '
    '; - } - 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, '

    ' . - &$anchor($footnote_id, $document_file . "#$place_id", - "($number_in_doc)") - . "

    \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, "
    \n" ,"$DEFAULT_RULE\n", "

    " . &$I('Footnotes') . "

    \n"); - push (@$lines, "
    \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 "\"$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 = '' . $arguments . ''; - } - my $type_name = ''; - $type_name = " $type" if ($type ne ''); - $type_name .= ' ' . $name . '' if ($name ne ''); - $type_name .= $arguments . "\n"; - if (! $DEF_TABLE) - { - return '
    '. '' . $category . ':' . $type_name . $index_label . "
    \n"; - } - else - { - - return "\n" . $type_name . - "\n" . $category . $index_label . "\n" . "\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 "
    \n" . $text . "
    \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 "
    \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 . "", 'explanation' => $explanation_text}) - } - else - { - return $opening . $acronym_text . ""; - } -} - -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 '
    ' . &$I('%{style}:%{quotation}', -# {'style' => $argument_text, 'quotation' => $text}) . '
    ' ; -# } - return '
    ' . $text . "
    \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 "\n" . - "\n" - . "\n" . $text . - "
    " . &$I('Index Entry') . " " . &$I('Section') . "
    $DEFAULT_RULE
    \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 '' . &$anchor($id,'',&$protect_text($letter)) . - "\n" . $text . - " $DEFAULT_RULE\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 '' . &$anchor('', $text_href, $entry) - . '' . &$anchor('', $element_href, $element_text) - . "\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, '' . &$protect_text($letter) . '', '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
    \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 "
    " . &$I('Jump to') .":   " . - $nonalpha_text . $join . $alpha_text . "
    \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 Example assumes that the current position is at Subsubsection One-Two-Three of a document of the following structure:' => ' Dans cet exemple on est à Sous section un-deux-trois dans un document dont la structure est :', - '%{node_file_href} section `%{section}\' in %{book}' => '%{node_file_href} section `%{section}\' dans %{book}', - 'See' => 'Voir', - 'See %{node_file_href} %{book}' => 'Voir %{node_file_href} %{book}', - 'See %{node_file_href} section `%{section}\' in %{book}' => 'Voir %{node_file_href} section `%{section}\' dans %{book}', - 'See %{book}' => 'Voir %{book}', - 'See section `%{section}\' in %{book}' => 'Voir la section `%{section}\' dans %{book}', - 'This document was generated by %{user} on %{date} using %{program_homepage_href}.' => 'Ce document a été généré par %{user} %{date} en utilisant %{program_homepage_href}.', - 'This document was generated by %{user} using %{program_homepage_href}.' => 'Ce document a été généré par %{user} 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 %{date} using %{program_homepage_href}.' => 'Ce document a été généré %{date} 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 %{user}' => 'par %{user}', - 'by %{user} on %{date}' => 'par %{user} %{date}', - '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 %{date}' => '%{date}', - '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 %{book}' => 'section `%{section}\' dans %{book}', - 'see' => 'voir', - 'see %{node_file_href} %{book}' => 'voir %{node_file_href} %{book}', - 'see %{node_file_href} section `%{section}\' in %{book}' => 'voir %{node_file_href} section `%{section}\' dans %{book}', - 'see %{book}' => 'voir %{book}', - 'see section `%{section}\' in %{book}' => 'voir la section `%{section}\' dans %{book}', - '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 <| ! 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 , -# Derek Price , -# Adrian Aichner , -# & 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->{}->{} = '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 , -# Derek Price , -# Adrian Aichner , -# & 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 = <$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 "\n"; - print L2H_LATEX "\\end{rawhtml}\n"; - - print L2H_LATEX "$text\n"; - - print L2H_LATEX "\\begin{rawhtml}\n"; - print L2H_LATEX "\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 = ) - { - if ($h_line =~ /^/) - { - $count = $1; - my $h_content = ''; - my $h_end_found = 0; - while ($h_line = ) - { - if ($h_line =~ /^/) - { - $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 ("") - 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 ("") - if ($debug); - return ''; - } - ################################## end debug section (incorrect counts) - - # this seems to be a valid counter - my $result = ''; - $result = "" 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 .= "" if ($debug); - $result .= main::substitute_text({}, $l2h_to_latex[$count]); - } - $result .= "" 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 ', -}; - -$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 .html', -}; - -$T2H_OPTIONS -> {'toc-file'} = -{ - type => '=s', - linkage => \$Texi2HTML::Config::TOC_FILE, - verbose => 'use $s as ToC file, instead of _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 ', -}; - -$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 = < {'help'} = -{ - type => ':i', - default => '', - linkage => sub {$options->helpOptions($_[1]); - print "\nSend bugs and suggestions to \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 = $@ && <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 = '' 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 () - { - 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 = ) - { - $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
    or
    following
    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 diff --git a/libtextstyle/.gitignore b/libtextstyle/.gitignore index c7e870892..bfebd74f3 100644 --- a/libtextstyle/.gitignore +++ b/libtextstyle/.gitignore @@ -199,6 +199,7 @@ /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 diff --git a/libtextstyle/autogen.sh b/libtextstyle/autogen.sh index b0d566412..0a66f5797 100755 --- a/libtextstyle/autogen.sh +++ b/libtextstyle/autogen.sh @@ -115,6 +115,7 @@ cp -p ../m4/libtool.m4 m4/ 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/ diff --git a/libtextstyle/build-aux/texi2html b/libtextstyle/build-aux/texi2html deleted file mode 100755 index 96592ebfe..000000000 --- a/libtextstyle/build-aux/texi2html +++ /dev/null @@ -1,19554 +0,0 @@ -#! /usr/bin/perl -- # perl -'di '; -'ig 00 '; -#+############################################################################## -# -# texi2html: Program to transform Texinfo documents to HTML -# -# Copyright (C) 1999-2005 Patrice Dumas , -# Derek Price , -# Adrian Aichner , -# & 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 = < (original author) - Karl Berry - Olaf Bachmann - and many others. -Maintained by: Many creative people. -Send bugs and suggestions to -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\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 = "\n$ind"; - $line .= "" if ($level == $current_level); - push(@{$Texi2HTML::TOC_LINES}, "$line\n"); - - } - } - else - { - push(@{$Texi2HTML::TOC_LINES}, "\n"); - } - my $file = ''; - $file = $element->{'file'} if ($SPLIT); - my $text = $element->{'text'}; - #$text = $element->{'name'} unless ($NUMBER_SECTIONS); - my $entry = "
  • " . &$anchor ($element->{'tocid'}, "$file#$element->{'id'}",$text); - push (@{$Texi2HTML::TOC_LINES}, $ind . $entry); - push(@{$Texi2HTML::OVERVIEW}, $entry. "
    • \n") if ($level == 1); - } - while (0 < $current_level) - { - $current_level--; - my $ind = ' ' x $current_level; - push(@{$Texi2HTML::TOC_LINES}, "\n$ind\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}, "\n"; - push @{$Texi2HTML::OVERVIEW}, "\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" ; - $text = "<${style}$attribute_text>" . "$text" if (!$no_open); - $text .= "" 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. "\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 -# -# $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 = ''; - -# -frameset-doctype -# When frames are used, this SystemLiteral identifies the DTD used for -# the file containing the frame description. -$FRAMESET_DOCTYPE = ''; - -# -test -# If this value is true, some variables which should be dynamically generated -# (the date, the user running texi2html, the version of texi2html) are set to -# fix and given values. This is usefull in case the resulting manual is -# compared with a reference. For example this is used in the tests of test.sh. -$TEST = 0; - -# -dump-texi -# This value is usefull for debugging purposes. The result of the first pass is -# put in .passtexi, the result of the second pass is put in -# .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, .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, _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 -# _.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 _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 -$EXAMPLE_INDENT_CELL = ' '; - -# same as above, only for @small -$SMALL_EXAMPLE_INDENT_CELL = ' '; - -# font size for @small -$SMALL_FONT_SIZE = '-1'; - -# horizontal rules -$SMALL_RULE = '
    '; -$DEFAULT_RULE = '
    '; -$MIDDLE_RULE = '
    '; -$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 = "
    \n"; -$AFTER_OVERVIEW = "
    \n"; - -# These lines are inserted before and after the contents -$BEFORE_TOC_LINES = "
    \n"; -$AFTER_TOC_LINES = "
    \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 -$AFTER_BODY_OPEN = ''; - -# text inserted before , this will be automatically inside

    -$PRE_BODY_CLOSE = ''; - -# this is added inside after 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 - -$description - - - - -$encoding -$CSS_LINES -$EXTRA_HEAD - - - -$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 < - - $program_string - -
    -$PRE_BODY_CLOSE -

    - - -EOT -} - -################################################################### -# Layout of navigation panel - -sub T2H_DEFAULT_print_head_navigation($$) -{ - my $fh = shift; - my $buttons = shift; - if ($VERTICAL_HEAD_NAVIGATION) - { - print $fh < - - -EOT - } - main::print_lines($fh, $Texi2HTML::THIS_HEADER); - &$print_navigation($fh, $buttons, $VERTICAL_HEAD_NAVIGATION); - if ($VERTICAL_HEAD_NAVIGATION) - { - print $fh < - -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 - } -} - -###################################################################### -# 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{$alt}; -} - -sub T2H_DEFAULT_print_navigation -{ - my $fh = shift; - my $buttons = shift; - my $vertical = shift; - my $spacing = 1; - print $fh '\n"; - - print $fh "" unless $vertical; - for my $button (@$buttons) - { - print $fh qq{\n} if $vertical; - print $fh qq{\n"; - print $fh "\n" if $vertical; - } - print $fh "" unless $vertical; - print $fh "
    }; - - 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 "
    \n"; -} - -###################################################################### -# Frames: this is from "Richard Y. Kim" -# 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 < -$Texi2HTML::THISDOC{title} - - - - - -EOT -} - -sub T2H_DEFAULT_print_toc_frame -{ - my $fh = shift; - my $stoc_lines = shift; - &$print_page_head($fh); - print $fh <Content -EOT - print $fh map {s/\bhref=/target="main" href=/; $_;} @$stoc_lines; - print $fh "\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", - "

    $name

    \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 = "\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

    . -$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 = "

    \n"; - if (ref($PRE_ABOUT) eq 'CODE') - { - $about .= &$PRE_ABOUT(); - } - else - { - $about .= $PRE_ABOUT; - } - $about .= < -

    -EOT - $about .= &$I(' The buttons in the navigation panels have the following meaning:') . "\n"; - $about .= < - - -EOT - $about .= ' \n" . -' \n" . -' \n" . -' \n" . " \n"; - - for my $button (@SECTION_BUTTONS) - { - next if $button eq ' ' || ref($button) eq 'CODE' || ref($button) eq 'SCALAR' || ref($button) eq 'ARRAY'; - $about .= " \n \n"; - $about .= <$BUTTONS_NAME{$button} - - - -EOT - } - - $about .= < - -

    -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 Example assumes that the current position -# is at Subsubsection One-Two-Three of a document of -# the following structure: - $about .= < - -

      -EOT - $about .= '
    • 1. ' . &$I('Section One') . "\n" . -"
        \n" . -'
      • 1.1 ' . &$I('Subsection One-One') . "\n"; - $about .= < -
      • ...
        • -
      -
      • -EOT - $about .= '
    • 1.2 ' . &$I('Subsection One-Two') . "\n" . -"
        \n" . -'
      • 1.2.1 ' . &$I('Subsubsection One-Two-One') . "
        • \n" . -'
      • 1.2.2 ' . &$I('Subsubsection One-Two-Two') . "
        • \n" . -'
      • 1.2.3 ' . &$I('Subsubsection One-Two-Three') . "    \n" -. -' <== ' . &$I('Current Position') . "
        • \n" . -'
      • 1.2.4 ' . &$I('Subsubsection One-Two-Four') . "
        • \n" . -"
      \n" . -"
      • \n" . -'
    • 1.3 ' . &$I('Subsection One-Three') . "\n"; - $about .= < -
    • ...
      • -
    - -EOT - $about .= '
  • 1.4 ' . &$I('Subsection One-Four') . "
    • \n"; - $about .= < - - -$AFTER_ABOUT -EOT - return $about; -} - -sub T2H_DEFAULT_titlepage() -{ - my $result = ''; - if (@{$Texi2HTML::THISDOC{'titles'}} - or @{$Texi2HTML::THISDOC{'subtitles'}} - or @{$Texi2HTML::THISDOC{'authors'}}) - { - $result = "
    \n"; - foreach my $title (@{$Texi2HTML::THISDOC{'titles'}}) - { - $result .= '

    ' . $title . "

    \n"; - } - foreach my $subtitle (@{$Texi2HTML::THISDOC{'subtitles'}}) - { - $result .= '

    ' . $subtitle . "

    \n"; - } - foreach my $author (@{$Texi2HTML::THISDOC{'authors'}}) - { - $result .= ' ' . $author . "
    \n"; - } - $result .= "
    \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 = "" 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 < - - - -$longtitle - - - - - - -$encoding -$CSS_LINES - -$EXTRA_HEAD - - - -$AFTER_BODY_OPEN -

    $string

    - -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_* routines, -# give them another name, and assign them to the respective -# $ 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 = ( - "*", "
    ", # 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', '
    ', # paragraph break - 'bullet' => '*', -# #'copyright' => '(C)', - 'copyright' => '©', - 'registeredsymbol' => '®', - 'dots' => '...', - 'enddots' => '....', - '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' => '<', 'end' => '>','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 '' . uc($_[0]) . ''; -} - -# now unused, upcasing is done in normal_text -sub t2h_default_sc($$$) -{ - shift; - my $args = shift; - return '' . uc($args->[0]) . ''; -} - -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 "

    $_[0]

    " if ($_[0] =~ /\S/); - return ''; -} - -# Avoid adding h1 if the text is empty -sub t2h_default_titlefont($$$) -{ - shift; - my $args = shift; - return "

    $args->[0]

    " 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 '<' . $_[0] . '>'; -#} -# -# 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{"
    ' . &$I('Button') . " ' . &$I('Name') . " ' . &$I('Go to') . " ' . &$I('From 1.2.3 go to') . "
    "; - $about .= - ($ICONS && $ACTIVE_ICONS{$button} ? - &$button_icon_img($BUTTONS_NAME{$button}, $ACTIVE_ICONS{$button}) : - ' [' . $NAVIGATION_TEXT{$button} . '] '); - $about .= "$BUTTONS_GOTO{$button}$BUTTONS_EXAMPLE{$button}
    $EXAMPLE_INDENT_CELL
    "}, - 'end' => q{"
    \n"}, - }, - 'smallexample' => - { - 'begin' => q{"$SMALL_EXAMPLE_INDENT_CELL
    "}, - 'end' => q{"
    \n"}, - }, - 'display' => - { - 'begin' => q{"$EXAMPLE_INDENT_CELL
    "}, - 'end' => q{"
    \n"}, - }, - 'smalldisplay' => - { - 'begin' => q{"$SMALL_EXAMPLE_INDENT_CELL
    "}, - 'end' => q{"
    \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 '

    ' . "$label\n" . $text . '
    ' . $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 '
    ' . &$anchor('', $href, $float_style) . '
    ' . $caption -. '
    ' . "\n"; -} - -sub t2h_default_listoffloats($$$) -{ - my $style_texi = shift; - my $style = shift; - my $float_entries = shift; - - my $result = "
    \n" ; - foreach my $float_entry (@$float_entries) - { - $result .= $float_entry; - } - return $result . "
    \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; - 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 "    $text"; -} - -# 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 '
    ' . $text . '
    '; - } - else - { - return '' . $text . ''; - } - } - 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 "
    \n" . $text . "
    \n"; - } - else - { - return "\n" . $text . "
    \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 "\n" - . $text . "
    \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 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 '' . main::do_preformatted($entry . $ending, $state); - } - return "$entry  "; -} - -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) . ''; - } - elsif ($AVOID_MENU_REDUNDANCY) - { - $text = '' if (simplify_text($element_text) eq simplify_text($text)); - } - return "$text\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 "$text"; - } - 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 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 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 .= ''; - $formatted_command = '' . $formatted_command; - } - $text .= "\n" . $index_label if (defined($index_label)); - return '
    ' . $formatted_command . $text . '
    ' . "\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 '
    ' . $text . '
    ' . "\n"; - } - return ''; -} - -# row in multitable -sub t2h_default_row($$) -{ - my $text = shift; - my $macro = shift; - - if ($text =~ /\S/) - { - if ($macro eq 'headitem') - { - return '' . $text . '' . "\n"; - } - return '' . $text . '' . "\n"; - } - return ''; -} - -# cell in multitable -sub t2h_default_cell($$) -{ - my $text = shift; - my $row_macro = shift; - - if ($row_macro eq 'headitem') - { - return '' . $text . ''; - } - return '' . $text . ''; -} - -# 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 '
  • ' . $formatted_command . $text . '
    • '; - } - 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 "
      \n" . $text . "
    \n" if ($command eq 'bullet'); - return "\n" . $text . "\n"; - } -} - -# an html comment -sub t2h_default_comment($) -{ - my $text = shift; - $text =~ s/--+/-/go; - return '' . "\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 = "" 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 = '

    '; - if ($align) - { - $open = "

    "; - } - return $open.$text.'

    '; -} - -# a preformatted region -# arguments: -# $text of the preformatted region -# $pre_style css style -# $class identifier for the preformatted region (example, menu-comment) -# The following is usefull if the preformatted is in an itemize. -# $leading_command is the leading formatting command (like @minus) -# $leading_command_formatted is the leading formatting command formatted -# $preformatted_number is a reference on the number of preformatteds appearing -# in the format. The value should be increased if a preformatted is done -sub t2h_default_preformatted($$$$$$$$$$$$) -{ - my $text = shift; - my $pre_style = shift; - my $class = shift; - my $leading_command = shift; - my $leading_command_formatted = shift; - my $preformatted_number = shift; - my $format = shift; - my $item_nr = shift; - my $enumerate_style = shift; - my $number = shift; - my $command_stack_at_end = shift; - my $command_stack_at_begin = shift; - -#print STDERR "preformatted @$command_stack_at_end; @$command_stack_at_begin\n"; - return '' if ($text eq ''); - $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 "
    ".$text."
    "; -} - -# 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 " $text \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 "
    " . &$protect_text($text) . '
    '; - } - 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, '

    ' . - &$anchor($footnote_id, $document_file . "#$place_id", - "($number_in_doc)") - . "

    \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, "
    \n" ,"$DEFAULT_RULE\n", "

    " . &$I('Footnotes') . "

    \n"); - push (@$lines, "
    \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 "\"$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 = '' . $arguments . ''; - } - my $type_name = ''; - $type_name = " $type" if ($type ne ''); - $type_name .= ' ' . $name . '' if ($name ne ''); - $type_name .= $arguments . "\n"; - if (! $DEF_TABLE) - { - return '
    '. '' . $category . ':' . $type_name . $index_label . "
    \n"; - } - else - { - - return "\n" . $type_name . - "\n" . $category . $index_label . "\n" . "\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 "
    \n" . $text . "
    \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 "
    \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 . "", 'explanation' => $explanation_text}) - } - else - { - return $opening . $acronym_text . ""; - } -} - -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 '
    ' . &$I('%{style}:%{quotation}', -# {'style' => $argument_text, 'quotation' => $text}) . '
    ' ; -# } - return '
    ' . $text . "
    \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 "\n" . - "\n" - . "\n" . $text . - "
    " . &$I('Index Entry') . " " . &$I('Section') . "
    $DEFAULT_RULE
    \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 '' . &$anchor($id,'',&$protect_text($letter)) . - "\n" . $text . - " $DEFAULT_RULE\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 '' . &$anchor('', $text_href, $entry) - . '' . &$anchor('', $element_href, $element_text) - . "\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, '' . &$protect_text($letter) . '', '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
    \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 "
    " . &$I('Jump to') .":   " . - $nonalpha_text . $join . $alpha_text . "
    \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 Example assumes that the current position is at Subsubsection One-Two-Three of a document of the following structure:' => ' Dans cet exemple on est à Sous section un-deux-trois dans un document dont la structure est :', - '%{node_file_href} section `%{section}\' in %{book}' => '%{node_file_href} section `%{section}\' dans %{book}', - 'See' => 'Voir', - 'See %{node_file_href} %{book}' => 'Voir %{node_file_href} %{book}', - 'See %{node_file_href} section `%{section}\' in %{book}' => 'Voir %{node_file_href} section `%{section}\' dans %{book}', - 'See %{book}' => 'Voir %{book}', - 'See section `%{section}\' in %{book}' => 'Voir la section `%{section}\' dans %{book}', - 'This document was generated by %{user} on %{date} using %{program_homepage_href}.' => 'Ce document a été généré par %{user} %{date} en utilisant %{program_homepage_href}.', - 'This document was generated by %{user} using %{program_homepage_href}.' => 'Ce document a été généré par %{user} 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 %{date} using %{program_homepage_href}.' => 'Ce document a été généré %{date} 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 %{user}' => 'par %{user}', - 'by %{user} on %{date}' => 'par %{user} %{date}', - '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 %{date}' => '%{date}', - '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 %{book}' => 'section `%{section}\' dans %{book}', - 'see' => 'voir', - 'see %{node_file_href} %{book}' => 'voir %{node_file_href} %{book}', - 'see %{node_file_href} section `%{section}\' in %{book}' => 'voir %{node_file_href} section `%{section}\' dans %{book}', - 'see %{book}' => 'voir %{book}', - 'see section `%{section}\' in %{book}' => 'voir la section `%{section}\' dans %{book}', - '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 <| ! 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 , -# Derek Price , -# Adrian Aichner , -# & 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->{}->{} = '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 , -# Derek Price , -# Adrian Aichner , -# & 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 = <$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 "\n"; - print L2H_LATEX "\\end{rawhtml}\n"; - - print L2H_LATEX "$text\n"; - - print L2H_LATEX "\\begin{rawhtml}\n"; - print L2H_LATEX "\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 = ) - { - if ($h_line =~ /^/) - { - $count = $1; - my $h_content = ''; - my $h_end_found = 0; - while ($h_line = ) - { - if ($h_line =~ /^/) - { - $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 ("") - 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 ("") - if ($debug); - return ''; - } - ################################## end debug section (incorrect counts) - - # this seems to be a valid counter - my $result = ''; - $result = "" 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 .= "" if ($debug); - $result .= main::substitute_text({}, $l2h_to_latex[$count]); - } - $result .= "" 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 ', -}; - -$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 .html', -}; - -$T2H_OPTIONS -> {'toc-file'} = -{ - type => '=s', - linkage => \$Texi2HTML::Config::TOC_FILE, - verbose => 'use $s as ToC file, instead of _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 ', -}; - -$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 = < {'help'} = -{ - type => ':i', - default => '', - linkage => sub {$options->helpOptions($_[1]); - print "\nSend bugs and suggestions to \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 = $@ && <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 = '' 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 () - { - 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 = ) - { - $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
    or
    following
    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