URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [readline/] [doc/] [texi2html] - Blame information for rev 853

Go to most recent revision | Details | Compare with Previous | View Log

';';\n", __LINE__));\n", __LINE__));\n", __LINE__));\n");


#! /usr/bin/perl
'di ';
'ig 00 ';
#+##############################################################################
#
# texi2html: Program to transform Texinfo documents to HTML
#
#    Copyright (C) 1999, 2000  Free Software Foundation, Inc.
#
#    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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
#-##############################################################################
 
# This requires perl version 5 or higher
require 5.0;
 
#++##############################################################################
#
# 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 file
#
#--##############################################################################
 
# CVS version:
# $Id: texi2html.pl,v 1.55 2000/07/27 14:39:41 obachman Exp $
 
# Homepage:
$T2H_HOMEPAGE = <
http://www.mathematik.uni-kl.de/~obachman/Texi2html
EOT
 
# Authors:
$T2H_AUTHORS = <
Written by: Lionel Cons  (original author)
            Karl Berry  
            Olaf Bachmann 
            and many others.
Maintained by: Olaf Bachmann 
Send bugs and suggestions to 
EOT
 
# Version: set in configure.in
$THISVERSION = '1.64';
$THISPROG = "texi2html $THISVERSION";   # program name and version
 
# The man page for this program is included at the end of this file and can be
# viewed using the command 'nroff -man texi2html'.
 
# Identity:
 
$T2H_TODAY = &pretty_date;          # like "20 September 1993"
# 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
 
#+++############################################################################
#                                                                              #
# Initialization                                                               #
# Pasted content of File $(srcdir)/texi2html.init: Default initializations     #
#                                                                              #
#---############################################################################
 
# leave this within comments, and keep the require statement
# This way, you can directly run texi2html.pl, if $ENV{T2H_HOME}/texi2html.init
# exists.
 
#
# -*-perl-*-
######################################################################
# File: texi2html.init
#
# Sets default values for command-line arguments and for various customizable
# procedures
#
# A copy of this file is pasted into the beginning of texi2html by
# 'make texi2html'
#
# Copy this file and make changes to it, if you like.
# Afterwards, either, load it with command-line option -init_file 
#
# $Id: texi2html.init,v 1.34 2000/07/27 14:09:02 obachman Exp $
 
######################################################################
# stuff which can also be set by command-line options
#
#
# Note: values set here, overwrite values set by the command-line
# options before -init_file and might still be overwritten by
# command-line arguments following the -init_file option
#
 
# 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
 
$T2H_DEBUG = 0;
$T2H_OPTIONS -> {debug} =
{
 type => '=i',
 linkage => \$main::T2H_DEBUG,
 verbose => 'output HTML with debuging information',
};
 
$T2H_DOCTYPE = '';
$T2H_OPTIONS -> {doctype} =
{
 type => '=s',
 linkage => \$main::T2H_DOCTYPE,
 verbose => 'document type which is output in header of HTML files',
 noHelp => 1
};
 
$T2H_CHECK = 0;
$T2H_OPTIONS -> {check} =
{
 type => '!',
 linkage => \$main::T2H_CHECK,
 verbose => 'if set, only check files and output all things that may be Texinfo commands',
 noHelp => 1
};
 
# -expand
# if set to "tex" (or, "info") expand @iftex and @tex (or, @ifinfo) sections
# else, neither expand @iftex, @tex, nor @ifinfo sections
$T2H_EXPAND = "info";
$T2H_OPTIONS -> {expand} =
{
 type => '=s',
 linkage => \$T2H_EXPAND,
 verbose => 'Expand info|tex|none section of texinfo source',
};
 
# - glossary
#if set, uses section named `Footnotes' for glossary
$T2H_USE_GLOSSARY = 0;
T2H_OPTIONS -> {glossary} =
{
 type => '!',
 linkage => \$T2H_USE_GLOSSARY,
 verbose => "if set, uses section named `Footnotes' for glossary",
 noHelp  => 1,
};
 
 
# -invisible
# $T2H_INVISIBLE_MARK is the text used to create invisible destination
# anchors for index links (you can for instance use the invisible.xbm
# file shipped with this program). This is a workaround for a known
# bug of many WWW browsers, including netscape.
# For me, it works fine without it -- on the contrary: if there, it
# inserts space between headers and start of text (obachman 3/99)
$T2H_INVISIBLE_MARK = '';
# $T2H_INVISIBLE_MARK = ' ';
$T2H_OPTIONS -> {invisible} =
{
 type => '=s',
 linkage => \$T2H_INVISIBLE_MARK,
 verbose => 'use text in invisble anchot',
 noHelp  => 1,
};
 
# -iso
# if set, ISO8879 characters are used for special symbols (like copyright, etc)
$T2H_USE_ISO = 0;
$T2H_OPTIONS -> {iso} =
{
 type => 'iso',
 linkage => \$T2H_USE_ISO,
 verbose => 'if set, ISO8879 characters are used for special symbols (like copyright, etc)',
 noHelp => 1,
};
 
# -I
# list directories where @include files are searched for (besides the
# directory of the doc file) additional '-I' args add to this list
@T2H_INCLUDE_DIRS = (".");
$T2H_OPTIONS -> {I} =
{
 type => '=s',
 linkage => \@T2H_INCLUDE_DIRS,
 verbose => 'append $s to the @include search path',
};
 
# -top_file
# uses file of this name for top-level file
# extension is manipulated appropriately, if necessary.
# If empty, .html is used
# Typically, you would set this to "index.html".
$T2H_TOP_FILE = '';
$T2H_OPTIONS -> {top_file} =
{
 type => '=s',
 linkage => \$T2H_TOP_FILE,
 verbose => 'use $s as top file, instead of .html',
};
 
 
# -toc_file
# uses file of this name for table of contents file
# extension is manipulated appropriately, if necessary.
# If empty, _toc.html is used
$T2H_TOC_FILE = '';
$T2H_OPTIONS -> {toc_file} =
{
 type => '=s',
 linkage => \$T2H_TOC_FILE,
 verbose => 'use $s as ToC file, instead of _toc.html',
};
 
# -frames
# if set, output two additional files which use HTML 4.0 "frames".
$T2H_FRAMES = 0;
$T2H_OPTIONS -> {frames} =
{
 type => '!',
 linkage => \$T2H_FRAMES,
 verbose => 'output files which use HTML 4.0 frames (experimental)',
 noHelp => 1,
};
 
 
# -menu | -nomenu
# if set, show the Texinfo menus
$T2H_SHOW_MENU = 1;
$T2H_OPTIONS -> {menu} =
{
 type => '!',
 linkage => \$T2H_SHOW_MENU,
 verbose => 'ouput Texinfo menus',
};
 
# -number | -nonumber
# if set, number sections and show section names and numbers in references
# and menus
$T2H_NUMBER_SECTIONS = 1;
$T2H_OPTIONS -> {number} =
{
 type => '!',
 linkage => \$T2H_NUMBER_SECTIONS,
 verbose => 'use numbered sections'
};
 
# if set, and T2H_NUMBER_SECTIONS is set, then use node names in menu
# entries, instead of section names
$T2H_NODE_NAME_IN_MENU = 0;
 
# if set and menu entry equals menu descr, then do not print menu descr.
# Likewise, if node name equals entry name, do not print entry name.
$T2H_AVOID_MENU_REDUNDANCY = 1;
 
# -split section|chapter|none
# if set to 'section' (resp. 'chapter') create one html file per (sub)section
# (resp. chapter) and separate pages for Top, ToC, Overview, Index,
# Glossary, About.
# otherwise, create monolithic html file which contains whole document
#$T2H_SPLIT = 'section';
$T2H_SPLIT = '';
$T2H_OPTIONS -> {split} =
{
 type => '=s',
 linkage => \$T2H_SPLIT,
 verbose => 'split document on section|chapter else no splitting',
};
 
# -section_navigation|-no-section_navigation
# if set, then navigation panels are printed at the beginning of each section
# and, possibly at the end (depending on whether or not there were more than
# $T2H_WORDS_IN_PAGE  words on page
# This is most useful if you do not want to have section navigation
# on -split chapter
$T2H_SECTION_NAVIGATION = 1;
$T2H_OPTIONS -> {sec_nav} =
{
 type => '!',
 linkage => \$T2H_SECTION_NAVIGATION,
 verbose => 'output navigation panels for each section',
};
 
# -subdir
# if set put result files in this directory
# if not set result files are put into current directory
#$T2H_SUBDIR = 'html';
$T2H_SUBDIR = '';
$T2H_OPTIONS -> {subdir} =
{
 type => '=s',
 linkage => \$T2H_SUBDIR,
 verbose => 'put HTML files in directory $s, instead of $cwd',
};
 
# -short_extn
# If this is set all HTML file will have extension ".htm" instead of
# ".html". This is helpful when shipping the document to PC systems.
$T2H_SHORTEXTN = 0;
$T2H_OPTIONS -> {short_ext} =
{
 type => '!',
 linkage => \$T2H_SHORTEXTN,
 verbose => 'use "htm" extension for output HTML files',
};
 
 
# -prefix
# Set the output file prefix, prepended to all .html, .gif and .pl files.
# By default, this is the basename of the document
$T2H_PREFIX = '';
$T2H_OPTIONS -> {prefix} =
{
 type => '=s',
 linkage => \$T2H_PREFIX,
 verbose => 'use as prefix for output files, instead of ',
};
 
# -o filename
# If set, generate monolithic document output html into $filename
$T2H_OUT = '';
$T2H_OPTIONS -> {out_file} =
{
 type => '=s',
 linkage => sub {$main::T2H_OUT = @_[1]; $T2H_SPLIT = '';},
 verbose => 'if set, all HTML output goes into file $s',
};
 
# -short_ref
#if set cross-references are given without section numbers
$T2H_SHORT_REF = '';
$T2H_OPTIONS -> {short_ref} =
{
 type => '!',
 linkage => \$T2H_SHORT_REF,
 verbose => 'if set, references are without section numbers',
};
 
# -idx_sum
# if value is set, then for each @prinindex $what
# $docu_name_$what.idx is created which contains lines of the form
# $key\t$ref sorted alphabetically (case matters)
$T2H_IDX_SUMMARY = 0;
$T2H_OPTIONS -> {idx_sum} =
{
 type => '!',
 linkage => \$T2H_IDX_SUMMARY,
 verbose => 'if set, also output index summary',
 noHelp  => 1,
};
 
# -verbose
# if set, chatter about what we are doing
$T2H_VERBOSE = '';
$T2H_OPTIONS -> {Verbose} =
{
 type => '!',
 linkage => \$T2H_VERBOSE,
 verbose => 'print progress info to stdout',
};
 
# -lang
# For page titles use $T2H_WORDS->{$T2H_LANG}->{...} as title.
# To add a new language, supply list of titles (see $T2H_WORDS below).
# and use ISO 639 language codes (see e.g. perl module Locale-Codes-1.02
# for  definitions)
# Default's to 'en' if not set or no @documentlanguage is specified
$T2H_LANG = '';
$T2H_OPTIONS -> {lang} =
{
 type => '=s',
 linkage => sub {SetDocumentLanguage($_[1])},
 verbose => 'use $s as document language (ISO 639 encoding)',
};
 
# -l2h
# if set, uses latex2html for generation of math content
$T2H_L2H = '';
$T2H_OPTIONS -> {l2h} =
{
 type => '!',
 linkage => \$T2H_L2H,
 verbose => 'if set, uses latex2html for @math and @tex',
};
 
######################
# The following options are only relevant if $T2H_L2H is set
#
# -l2h_l2h
# name/location of latex2html progam
$T2H_L2H_L2H = "latex2html";
$T2H_OPTIONS -> {l2h_l2h} =
{
 type => '=s',
 linkage => \$T2H_L2H_L2H,
 verbose => 'program to use for latex2html translation',
 noHelp => 1,
};
 
# -l2h_skip
# if set, skips actual call to latex2html tries to reuse previously generated
# content, instead
$T2H_L2H_SKIP = '';
$T2H_OPTIONS -> {l2h_skip} =
{
 type => '!',
 linkage => \$T2H_L2H_SKIP,
 verbose => 'if set, tries to reuse previously latex2html output',
 noHelp => 1,
};
 
# -l2h_tmp
# if set, l2h uses this directory for temporarary files. The path
# leading to this directory may not contain a dot (i.e., a "."),
# otherwise, l2h will fail
$T2H_L2H_TMP = '';
$T2H_OPTIONS -> {l2h_tmp} =
{
 type => '=s',
 linkage => \$T2H_L2H_TMP,
 verbose => 'if set, uses $s as temporary latex2html directory',
 noHelp => 1,
};
 
# if set, cleans intermediate files (they all have the prefix $doc_l2h_)
# of l2h
$T2H_L2H_CLEAN = 1;
$T2H_OPTIONS -> {l2h_clean} =
{
 type => '!',
 linkage => \$T2H_L2H_CLEAN,
 verbose => 'if set, do not keep intermediate latex2html files for later reuse',
 noHelp => 1,
};
 
$T2H_OPTIONS -> {D} =
{
 type => '=s',
 linkage => sub {$main::value{@_[1]} = 1;},
 verbose => 'equivalent to Texinfo "@set $s 1"',
 noHelp => 1,
};
 
$T2H_OPTIONS -> {init_file} =
{
 type => '=s',
 linkage => \&LoadInitFile,
 verbose => 'load init file $s'
};
 
 
##############################################################################
#
# The following can only be set in the init file
#
##############################################################################
 
# if set, center @image by default
# otherwise, do not center by default
$T2H_CENTER_IMAGE = 1;
 
# used as identation for block enclosing command @example, etc
# If not empty, must be enclosed in 
$T2H_EXAMPLE_INDENT_CELL = '
# same as above, only for @small
$T2H_SMALL_EXAMPLE_INDENT_CELL = '
# font size for @small
$T2H_SMALL_FONT_SIZE = '-1';
 
# 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)
$T2H_TOP_HEADING = '';
 
# if set, use this chapter for 'Index' button, else
# use first chapter whose name matches 'index' (case insensitive)
$T2H_INDEX_CHAPTER = '';
 
# if set and $T2H_SPLIT is set, then split index pages at the next letter
# after they have more than that many entries
$T2H_SPLIT_INDEX = 100;
 
# if set (e.g., to index.html) replace hrefs to this file
# (i.e., to index.html) by ./
$T2H_HREF_DIR_INSTEAD_FILE = '';
 
########################################################################
# Language dependencies:
# To add a new language extend T2H_WORDS hash and create $T2H_<...>_WORDS hash
# To redefine one word, simply do:
# $T2H_WORDS->{}->{} = 'whatever' in your personal init file.
#
$T2H_WORDS_EN =
{
 # titles  of pages
 'ToC_Title' => 'Table of Contents',
 'Overview_Title' => 'Short Table of Contents',
 'Index_Title' => 'Index',
 'About_Title' => 'About this document',
 'Footnotes_Title' => 'Footnotes',
 'See' => 'See',
 'see' => 'see',
 'section' => 'section',
# 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'
};
 
$T2H_WORD_DE =
{
 'ToC_Title' => 'Inhaltsverzeichniss',
 'Overview_Title' => 'Kurzes Inhaltsverzeichniss',
 'Index_Title' => 'Index',
 'About_Title' => 'Über dieses Dokument',
 'Footnotes_Title' => 'Fußnoten',
 'See' => 'Siehe',
 'see' => 'siehe',
 'section' => 'Abschnitt',
};
 
$T2H_WORD_NL =
{
 'ToC_Title' => 'Inhoudsopgave',
 'Overview_Title' => 'Korte inhoudsopgave',
 'Index_Title' => 'Index', #Not sure ;-)
 'About_Title' => 'No translation available!', #No translation available!
 'Footnotes_Title' => 'No translation available!', #No translation available!
 'See' => 'Zie',
 'see' => 'zie',
 'section' => 'sectie',
};
 
$T2H_WORD_ES =
{
 'ToC_Title' => 'índice General',
 'Overview_Title' => 'Resumen del Contenido',
 'Index_Title' => 'Index', #Not sure ;-)
 'About_Title' => 'No translation available!', #No translation available!
 'Footnotes_Title' => 'Fußnoten',
 'See' => 'Véase',
 'see' => 'véase',
 'section' => 'sección',
};
 
$T2H_WORD_NO =
{
 'ToC_Title' => 'Innholdsfortegnelse',
 'Overview_Title' => 'Kort innholdsfortegnelse',
 'Index_Title' => 'Indeks', #Not sure ;-)
 'About_Title' => 'No translation available!', #No translation available!
 'Footnotes_Title' => 'No translation available!',
 'See' => 'Se',
 'see' => 'se',
 'section' => 'avsnitt',
};
 
$T2H_WORD_PT =
{
 'ToC_Title' => 'Sumário',
 'Overview_Title' => 'Breve Sumário',
 'Index_Title' => 'Índice', #Not sure ;-)
 'About_Title' => 'No translation available!', #No translation available!
 'Footnotes_Title' => 'No translation available!',
 'See' => 'Veja',
 'see' => 'veja',
 'section' => 'Seção',
};
 
$T2H_WORDS =
{
 'en' => $T2H_WORDS_EN,
 'de' => $T2H_WORDS_DE,
 'nl' => $T2H_WORDS_NL,
 'es' => $T2H_WORDS_ES,
 'no' => $T2H_WORDS_NO,
 'pt' => $T2H_WORDS_PT
};
 
@MONTH_NAMES_EN =
(
 'January', 'February', 'March', 'April', 'May',
 'June', 'July', 'August', 'September', 'October',
 'November', 'December'
);
 
@MONTH_NAMES_DE =
(
 'Januar', 'Februar', 'März', 'April', 'Mai',
 'Juni', 'Juli', 'August', 'September', 'Oktober',
 'November', 'Dezember'
);
 
@MONTH_NAMES_NL =
(
 'Januari', 'Februari', 'Maart', 'April', 'Mei',
 'Juni', 'Juli', 'Augustus', 'September', 'Oktober',
 'November', 'December'
);
 
@MONTH_NAMES_ES =
(
 'enero', 'febrero', 'marzo', 'abril', 'mayo',
 'junio', 'julio', 'agosto', 'septiembre', 'octubre',
 'noviembre', 'diciembre'
);
 
@MONTH_NAMES_NO =
(
 
 'januar', 'februar', 'mars', 'april', 'mai',
 'juni', 'juli', 'august', 'september', 'oktober',
 'november', 'desember'
);
 
@MONTH_NAMES_PT =
(
 'Janeiro', 'Fevereiro', 'Março', 'Abril', 'Maio',
 'Junho', 'Julho', 'Agosto', 'Setembro', 'Outubro',
 'Novembro', 'Dezembro'
);
 
 
$MONTH_NAMES =
{
    'en' => \@MONTH_NAMES_EN,
    'de' => \@MONTH_NAMES_DE,
    'es' => \@MONTH_NAMES_ES,
    'nl' => \@MONTH_NAMES_NL,
    'no' => \@MONTH_NAMES_NO,
    'pt' => \@MONTH_NAMES_PT
};
########################################################################
# 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_* routines,
#     give them another name, and assign them to the respective
#     $T2H_ variable.
 
# As a general interface, the hashes T2H_HREF, T2H_NAME, T2H_NODE hold
# href, html-name, node-name of
# This     -- current section (resp. html page)
# Top      -- top page ($T2H_TOP_FILE)
# Contents -- Table of contents
# Overview -- Short table of contents
# Index    -- Index page
# About    -- page which explain "navigation buttons"
# First    -- first node
# Last     -- last node
#
# Whether or not the following hash values are set, depends on the context
# (all values are w.r.t. 'This' section)
# Next        -- next node of texinfo
# Prev        -- previous node of texinfo
# Up          -- up node of texinfo
# Forward     -- next node in reading order
# Back        -- previous node in reading order
# 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:
# $T2H_THISDOC{title}     -- title as set by @setttile
# $T2H_THISDOC{fulltitle} -- full title as set by @title...
# $T2H_THISDOC{subtitle}  -- subtitle as set by @subtitle
# $T2H_THISDOC{author}    -- author as set by @author
#
# and pointer to arrays of lines which need to be printed by t2h_print_lines
# $T2H_OVERVIEW      -- lines of short table of contents
# $T2H_TOC           -- lines of table of contents
# $T2H_TOP           -- lines of Top texinfo node
# $T2H_THIS_SECTION  -- lines of 'This' section
 
#
# There are the following subs which control the layout:
#
$T2H_print_section            = \&T2H_DEFAULT_print_section;
$T2H_print_Top_header         = \&T2H_DEFAULT_print_Top_header;
$T2H_print_Top_footer         = \&T2H_DEFAULT_print_Top_footer;
$T2H_print_Top                = \&T2H_DEFAULT_print_Top;
$T2H_print_Toc                = \&T2H_DEFAULT_print_Toc;
$T2H_print_Overview           = \&T2H_DEFAULT_print_Overview;
$T2H_print_Footnotes          = \&T2H_DEFAULT_print_Footnotes;
$T2H_print_About              = \&T2H_DEFAULT_print_About;
$T2H_print_misc_header        = \&T2H_DEFAULT_print_misc_header;
$T2H_print_misc_footer        = \&T2H_DEFAULT_print_misc_footer;
$T2H_print_misc               = \&T2H_DEFAULT_print_misc;
$T2H_print_chapter_header     = \&T2H_DEFAULT_print_chapter_header;
$T2H_print_chapter_footer     = \&T2H_DEFAULT_print_chapter_footer;
$T2H_print_page_head          = \&T2H_DEFAULT_print_page_head;
$T2H_print_page_foot          = \&T2H_DEFAULT_print_page_foot;
$T2H_print_head_navigation    = \&T2H_DEFAULT_print_head_navigation;
$T2H_print_foot_navigation    = \&T2H_DEFAULT_print_foot_navigation;
$T2H_button_icon_img          = \&T2H_DEFAULT_button_icon_img;
$T2H_print_navigation         = \&T2H_DEFAULT_print_navigation;
$T2H_about_body               = \&T2H_DEFAULT_about_body;
$T2H_print_frame              = \&T2H_DEFAULT_print_frame;
$T2H_print_toc_frame          = \&T2H_DEFAULT_print_toc_frame;
 
########################################################################
# Layout for html for every sections
#
sub T2H_DEFAULT_print_section
{
  my $fh = shift;
  local $T2H_BUTTONS = \@T2H_SECTION_BUTTONS;
  &$T2H_print_head_navigation($fh) if $T2H_SECTION_NAVIGATION;
  my $nw = t2h_print_lines($fh);
  if ($T2H_SPLIT eq 'section' && $T2H_SECTION_NAVIGATION)
  {
    &$T2H_print_foot_navigation($fh, $nw);
  }
  else
  {
    print $fh '' . "\n";
  }
}
 
###################################################################
# 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
# T2H_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
{
  &$T2H_print_page_head(@_) if $T2H_SPLIT;
  t2h_print_label(@_); # this needs to be called, otherwise no label set
  &$T2H_print_head_navigation(@_);
}
sub T2H_DEFAULT_print_Top_footer
{
  &$T2H_print_foot_navigation(@_);
  &$T2H_print_page_foot(@_) if $T2H_SPLIT;
}
sub T2H_DEFAULT_print_Top
{
  my $fh = shift;
 
  # for redefining navigation buttons use:
  # local $T2H_BUTTONS = [...];
  # as it is, 'Top', 'Contents', 'Index', 'About' are printed
  local $T2H_BUTTONS = \@T2H_MISC_BUTTONS;
  &$T2H_print_Top_header($fh);
  if ($T2H_THIS_SECTION)
  {
    # if top-level node has content, then print it with extra header
    print $fh "$T2H_NAME{Top}"
      unless ($T2H_HAS_TOP_HEADING);
    t2h_print_lines($fh, $T2H_THIS_SECTION)
  }
  else
  {
    # top-level node is fully enclosed in @ifnothtml
    # print fulltitle, subtitle, author, Overview
    print $fh
      "\n" .
      join("\n", split(/\n/,  $T2H_THISDOC{fulltitle})) .
      "\n";
    print $fh "$T2H_THISDOC{subtitle}\n" if $T2H_THISDOC{subtitle};
    print $fh "$T2H_THISDOC{author}\n" if $T2H_THISDOC{author};
    print $fh <



 Overview: 

EOT
    t2h_print_lines($fh, $T2H_OVERVIEW);
    print $fh "\n";
  }
  &$T2H_print_Top_footer($fh);
}
 
###################################################################
# Layout of Toc, Overview, and Footnotes pages
# By default, we use "normal" layout
# T2H_HREF of Next, Prev, Up, Forward, Back, etc are not defined
# use: local $T2H_BUTTONS = [...] to redefine navigation buttons
sub T2H_DEFAULT_print_Toc
{
  return &$T2H_print_misc(@_);
}
sub T2H_DEFAULT_print_Overview
{
  return &$T2H_print_misc(@_);
}
sub T2H_DEFAULT_print_Footnotes
{
  return &$T2H_print_misc(@_);
}
sub T2H_DEFAULT_print_About
{
  return &$T2H_print_misc(@_);
}
 
sub T2H_DEFAULT_print_misc_header
{
  &$T2H_print_page_head(@_) if $T2H_SPLIT;
  # this needs to be called, otherwise, no labels are set
  t2h_print_label(@_);
  &$T2H_print_head_navigation(@_);
}
sub T2H_DEFAULT_print_misc_footer
{
  &$T2H_print_foot_navigation(@_);
  &$T2H_print_page_foot(@_) if $T2H_SPLIT;
}
sub T2H_DEFAULT_print_misc
{
  my $fh = shift;
  local $T2H_BUTTONS = \@T2H_MISC_BUTTONS;
  &$T2H_print_misc_header($fh);
  print $fh "$T2H_NAME{This}\n";
  t2h_print_lines($fh);
  &$T2H_print_misc_footer($fh);
}
 
###################################################################
# chapter_header and chapter_footer are only called if
# T2H_SPLIT eq 'chapter'
# chapter_header: after print_page_header, before print_section
# chapter_footer: after print_section of last section, before print_page_footer
#
# 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
@T2H_CHAPTER_BUTTONS =
  (
   'FastBack', 'FastForward', ' ',
   ' ', ' ', ' ', ' ',
   'Top', 'Contents', 'Index', 'About',
  );
 
sub T2H_DEFAULT_print_chapter_header
{
  # nothing to do there, by default
  if (! $T2H_SECTION_NAVIGATION)
  {
    my $fh = shift;
    local $T2H_BUTTONS = \@T2H_CHAPTER_BUTTONS;
    &$T2H_print_navigation($fh);
    print $fh "\n\n";
  }
}
 
sub T2H_DEFAULT_print_chapter_footer
{
  local $T2H_BUTTONS = \@T2H_CHAPTER_BUTTONS;
  &$T2H_print_navigation(@_);
}
###################################################################
$T2H_TODAY = &pretty_date;          # like "20 September 1993"
 
sub pretty_date {
    local($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->{$T2H_LANG}[$mon] . ", " . $mday . " " . $year);
}
 
 
###################################################################
# Layout of standard header and footer
#
 
# Set the default body text, inserted between 
###$T2H_BODYTEXT = 'LANG="EN" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080" ALINK="#FF0000"';
$T2H_BODYTEXT = 'LANG="' . $T2H_LANG . '" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080" ALINK="#FF0000"';
# text inserted after 
$T2H_AFTER_BODY_OPEN = '';
#text inserted before 
$T2H_PRE_BODY_CLOSE = '';
# this is used in footer
$T2H_ADDRESS = "by $T2H_USER " if $T2H_USER;
$T2H_ADDRESS .= "on $T2H_TODAY";
# this is added inside  after  and some META NAME stuff</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>909</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code># can be used for <style> <script>, <meta> tags</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>910</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code>$T2H_EXTRA_HEAD = '';</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>911</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code> </code></pre></td>
      </tr>
      <tr valign="middle">
         <td>912</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code>sub T2H_DEFAULT_print_page_head</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>913</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code>{</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>914</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code>  my $fh = shift;</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>915</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code>  my $longtitle = "$T2H_THISDOC{title}: $T2H_NAME{This}";</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>916</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code>  print $fh <<EOT;</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>917</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code><HTML></code></pre></td>
      </tr>
      <tr valign="middle">
         <td>918</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code>$T2H_DOCTYPE</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>919</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code><!-- Created on $T2H_TODAY by $THISPROG --></code></pre></td>
      </tr>
      <tr valign="middle">
         <td>920</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code><!--</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>921</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code>$T2H_AUTHORS</code></pre></td>
      </tr>
      <tr valign="middle">
         <td>922</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code>--></code></pre></td>
      </tr>
      <tr valign="middle">
         <td>923</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code><HEAD></code></pre></td>
      </tr>
      <tr valign="middle">
         <td>924</td>
         <td></td>
         <td></td>
         <td class="code"><pre><code><TITLE>$longtitle
 





$T2H_EXTRA_HEAD

 

$T2H_AFTER_BODY_OPEN
EOT
}
 
sub T2H_DEFAULT_print_page_foot
{
  my $fh = shift;
  print $fh <


This document was generated
$T2H_ADDRESS
using texi2html
$T2H_PRE_BODY_CLOSE


EOT
}
 
###################################################################
# Layout of navigation panel
 
# if this is set, then a vertical navigation panel is used
$T2H_VERTICAL_HEAD_NAVIGATION = 0;
sub T2H_DEFAULT_print_head_navigation
{
  my $fh = shift;
  if ($T2H_VERTICAL_HEAD_NAVIGATION)
  {
    print $fh <

EOT
  }
  print $fh "\n";
  &$T2H_print_navigation($fh) if ($nwords >= $T2H_WORDS_IN_PAGE)
}
 
######################################################################
# navigation panel
#
# specify in this array which "buttons" should appear in which order
# in the navigation panel for sections; use ' ' for empty buttons (space)
@T2H_SECTION_BUTTONS =
  (
   'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward',
   ' ', ' ', ' ', ' ',
   'Top', 'Contents', 'Index', 'About',
  );
 
# buttons for misc stuff
@T2H_MISC_BUTTONS = ('Top', 'Contents', 'Index', 'About');
 
# insert here name of icon images for buttons
# Icons are used, if $T2H_ICONS and resp. value are set
%T2H_ACTIVE_ICONS =
  (
   'Top',      '',
   'Contents', '',
   'Overview', '',
   'Index',    '',
   'Back',     '',
   'FastBack', '',
   'Prev',     '',
   'Up',       '',
   'Next',     '',
   'Forward',  '',
   'FastForward', '',
   'About' ,    '',
   'First',    '',
   'Last',     '',
   ' ',        ''
  );
 
# insert here name of icon images for these, if button is inactive
%T2H_PASSIVE_ICONS =
  (
   'Top',      '',
   'Contents', '',
   'Overview', '',
   'Index',    '',
   'Back',     '',
   'FastBack', '',
   'Prev',     '',
   'Up',       '',
   'Next',     '',
   'Forward',  '',
   'FastForward', '',
   'About',     '',
   'First',    '',
   'Last',     '',
  );
 
# how to create IMG tag
sub T2H_DEFAULT_button_icon_img
{
  my $button = shift;
  my $icon = shift;
  my $name = shift;
  return qq{};
}
 
# Names of text as alternative for icons
%T2H_NAVIGATION_TEXT =
  (
   'Top',      'Top',
   'Contents', 'Contents',
   'Overview', 'Overview',
   'Index',    'Index',
   ' ',        '   ',
   'Back',     ' < ',
   'FastBack', ' << ',
   'Prev',     'Prev',
   'Up',       ' Up ',
   'Next',     'Next',
   'Forward',  ' > ',
   'FastForward',  ' >> ',
   'About',     ' ? ',
   'First',    ' |< ',
   'Last',     ' >| '
  );
 
sub T2H_DEFAULT_print_navigation
{
  my $fh = shift;
  my $vertical = shift;
  my $spacing = 1;
  print $fh "
}
 
######################################################################
# Frames: this is from "Richard Y. Kim" 
# Should be improved to be more conforming to other _print* functions
 
sub T2H_DEFAULT_print_frame
{
  my $fh = shift;
  print $fh <

$T2H_THISDOC{title}

  
  


EOT
}
 
sub T2H_DEFAULT_print_toc_frame
{
  my $fh = shift;
  &$T2H_print_page_head($fh);
  print $fh <
Content
EOT
  print $fh map {s/HREF=/target=\"main\" HREF=/; $_;} @stoc_lines;
  print $fh "\n";
}
 
######################################################################
# About page
#
 
# T2H_PRE_ABOUT might be a function
$T2H_PRE_ABOUT = <
This document was generated $T2H_ADDRESS
using texi2html

EOT
$T2H_AFTER_ABOUT = '';
 
sub T2H_DEFAULT_about_body
{
  my $about;
  if (ref($T2H_PRE_ABOUT) eq 'CODE')
  {
    $about = &$T2H_PRE_ABOUT();
  }
  else
  {
    $about = $T2H_PRE_ABOUT;
  }
  $about .= <
The buttons in the navigation panels have the following meaning:



where the  Example  assumes that the current position
is at  Subsubsection One-Two-Three  of a document of
the following structure:

 1. Section One  

1.1 Subsection One-One

 ... 

1.2 Subsection One-Two

1.2.1 Subsubsection One-Two-One
1.2.2 Subsubsection One-Two-Two
1.2.3 Subsubsection One-Two-Three     
<== Current Position 
1.2.4 Subsubsection One-Two-Four

1.3 Subsection One-Three

 ... 

1.4 Subsection One-Four


$T2H_AFTER_ABOUT
EOT
  return $about;
}
 
 
%T2H_BUTTONS_GOTO =
  (
   'Top',      'cover (top) of document',
   'Contents', 'table of contents',
   'Overview', 'short table of contents',
   'Index',    'concept index',
   'Back',     'previous section in reading order',
   'FastBack', 'previous or up-and-previous section ',
   'Prev',     'previous section same level',
   'Up',       'up section',
   'Next',     'next section same level',
   'Forward',  'next section in reading order',
   'FastForward', 'next or up-and-next section',
   'About' ,    'this page',
   'First',    'first section in reading order',
   'Last',     'last section in reading order',
  );
 
%T2H_BUTTONS_EXAMPLE =
(
   'Top',      '   ',
   'Contents', '   ',
   'Overview', '   ',
   'Index',    '   ',
   'Back',     '1.2.2',
   'FastBack', '1.1',
   'Prev',     '1.2.2',
   'Up',       '1.2',
   'Next',     '1.2.4',
   'Forward',  '1.2.4',
   'FastForward', '1.3',
   'About',     '   ',
   'First',    '1.',
   'Last',     '1.2.4',
);
 
 
######################################################################
# 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 = ''; # should be overwritten by cmd-line argument
 
$NO_SUBDIR = 0;# should be overwritten by cmd-line argument
 
$PREFIX = '';  # should be overwritten by cmd-line argument
 
$AUTO_PREFIX = 0; # this is needed, so that prefix settings are used
 
$AUTO_LINK = 0;
 
$SPLIT = 0;
 
$MAX_LINK_DEPTH = 0;
 
$TMP = ''; # should be overwritten by cmd-line argument
 
$DEBUG = 0;
 
$VERBOSE = 1;
 
#
# Options controlling Extensions and Special Features
#
$HTML_VERSION = "3.2";
 
$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
#
# actuall -- 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;
 
# Affects ONLY the way accents are processed
$default_language = 'english';
 
# 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 texi2html.init
######################################################################
 
 
require "$ENV{T2H_HOME}/texi2html.init"
  if ($0 =~ /\.pl$/ &&
      -e "$ENV{T2H_HOME}/texi2html.init" && -r "$ENV{T2H_HOME}/texi2html.init");
 
#+++############################################################################
#                                                                              #
# 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.
 
#
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.1 2000/07/03 08:44:13 obachman 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]); 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 versionTheExit;},
           verbose => "print version and exit"
          };
        }
 
        for (keys(%{$self -> {'default'} }) )
        {
          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'}) ));
 
                 $val = ${$self->{'default'} }{$_}{'linkage'};
                if ($val)
                {
                  if (ref($val) eq 'SCALAR')
                  {
                    $val = $$val;
                  }
                  else
                  {
                    $val = '';
                  }
                }
                else
                {
                  $val = ${$self->{'default'} }{$_}{'default'};
                }
                $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 <
Note: 'Options' may be abbreviated. 'Type' specifications mean:
 | !    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}/texi2html.init" && -r "$ENV{T2H_HOME}/texi2html.init");
 
package main;
 
#+++############################################################################
#                                                                              #
# Constants                                                                    #
#                                                                              #
#---############################################################################
 
$DEBUG_TOC   =  1;
$DEBUG_INDEX =  2;
$DEBUG_BIB   =  4;
$DEBUG_GLOSS =  8;
$DEBUG_DEF   = 16;
$DEBUG_HTML  = 32;
$DEBUG_USER  = 64;
$DEBUG_L2H   = 128;
 
 
$BIBRE = '\[[\w\/-]+\]';                # RE for a bibliography reference
$FILERE = '[\/\w.+-]+';                 # RE for a file name
$VARRE = '[^\s\{\}]+';                  # RE for a variable name
$NODERE = '[^,:]+';                     # RE for a node name
$NODESRE = '[^:]+';                     # RE for a list of node names
 
$ERROR = "***";                         # prefix for errors
$WARN  = "**";                          # prefix for warnings
 
                                        # program home page
$PROTECTTAG = "_ThisIsProtected_";      # tag to recognize protected sections
 
$CHAPTEREND = "\n"; # to know where a chpater ends
$SECTIONEND = "\n"; # to know where section ends
$TOPEND     = "\n"; # to know where top ends
 
 
 
#
# pre-defined indices
#
$index_properties =
{
 'c' => { name => 'cp'},
 'f' => { name => 'fn', code => 1},
 'v' => { name => 'vr', code => 1},
 'k' => { name => 'ky', code => 1},
 'p' => { name => 'pg', code => 1},
 't' => { name => 'tp', code => 1}
};
 
 
%predefined_index = (
                    'cp', 'c',
                    'fn', 'f',
                    'vr', 'v',
                    'ky', 'k',
                    'pg', 'p',
                    'tp', 't',
                    );
 
#
# valid indices
#
%valid_index = (
                    'c', 1,
                    'f', 1,
                    'v', 1,
                    'k', 1,
                    'p', 1,
                    't', 1,
                );
 
#
# texinfo section names to level
#
%sec2level = (
              'top', 0,
              'chapter', 1,
              'unnumbered', 1,
              'majorheading', 1,
              'chapheading', 1,
              'appendix', 1,
              'section', 2,
              'unnumberedsec', 2,
              'heading', 2,
              'appendixsec', 2,
              'appendixsection', 2,
              'subsection', 3,
              'unnumberedsubsec', 3,
              'subheading', 3,
              'appendixsubsec', 3,
              'subsubsection', 4,
              'unnumberedsubsubsec', 4,
              'subsubheading', 4,
              'appendixsubsubsec', 4,
              );
 
#
# accent map, TeX command to ISO name
#
%accent_map = (
               '"',  'uml',
               '~',  'tilde',
               '^',  'circ',
               '`',  'grave',
               '\'', 'acute',
               );
 
#
# texinfo "simple things" (@foo) to HTML ones
#
%simple_map = (
               # cf. makeinfo.c
               "*", "",         # HTML+
               " ", " ",
               "\t", " ",
               "-", "­",        # soft hyphen
               "\n", "\n",
               "|", "",
               'tab', '<\/TD>
               # spacing commands
               ":", "",
               "!", "!",
               "?", "?",
               ".", ".",
               "-", "",
               );
 
#
# texinfo "things" (@foo{}) to HTML ones
#
%things_map = (
               'TeX', 'TeX',
               'br', '',                # paragraph break
               'bullet', '*',
               'copyright', '(C)',
               'dots', '...<\/small>',
               'enddots', '....<\/small>',
               'equiv', '==',
               'error', 'error-->',
               'expansion', '==>',
               'minus', '-',
               'point', '-!-',
               'print', '-|',
               'result', '=>',
               'today', $T2H_TODAY,
               'aa', 'å',
               'AA', 'Å',
               'ae', 'æ',
               'oe', 'œ',
               'AE', 'Æ',
               'OE', 'Œ',
               'o',  'ø',
               'O',  'Ø',
               'ss', 'ß',
               'l', '\/l',
               'L', '\/L',
               'exclamdown', '¡',
               'questiondown', '¿',
               'pounds', '£'
               );
 
#
# texinfo styles (@foo{bar}) to HTML ones
#
%style_map = (
              'acronym', '&do_acronym',
              'asis', '',
              'b', 'B',
              'cite', 'CITE',
              'code', 'CODE',
              'command', 'CODE',
              'ctrl', '&do_ctrl',       # special case
              'dfn', 'EM',              # DFN tag is illegal in the standard
              'dmn', '',                # useless
              'email', '&do_email',     # insert a clickable email address
              'emph', 'EM',
              'env', 'CODE',
              'file', '"TT',            # will put quotes, cf. &apply_style
              'i', 'I',
              'kbd', 'KBD',
              'key', 'KBD',
              'math', '&do_math',
              'option', '"SAMP',        # will put quotes, cf. &apply_style
              'r', '',                  # unsupported
              'samp', '"SAMP',          # will put quotes, cf. &apply_style
              'sc', '&do_sc',           # special case
              'strong', 'STRONG',
              't', 'TT',
              'titlefont', '',          # useless
              'uref', '&do_uref',       # insert a clickable URL
              'url', '&do_url',         # insert a clickable URL
              'var', 'VAR',
              'w', '',                  # unsupported
              'H', '&do_accent',
              'dotaccent', '&do_accent',
              'ringaccent','&do_accent',
              'tieaccent', '&do_accent',
              'u','&do_accent',
              'ubaraccent','&do_accent',
              'udotaccent','&do_accent',
              'v', '&do_accent',
              ',', '&do_accent',
              'dotless', '&do_accent'
              );
 
#
# texinfo format (@foo/@end foo) to HTML ones
#
%format_map = (
               'quotation', 'BLOCKQUOTE',
               # lists
               'itemize', 'UL',
               'enumerate', 'OL',
               # poorly supported
               'flushleft', 'PRE',
               'flushright', 'PRE',
               );
 
#
# an eval of these $complex_format_map->{what}->[0] yields beginning
# an eval of these $complex_format_map->{what}->[1] yieleds end
$complex_format_map =
{
 example =>
 [
  q{'
 ],
 smallexample =>
 [
  q{'
 ],
 display =>
 [
  q{'
 ],
 smalldisplay =>
 [
  q{'
 ]
};
 
$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};
 
#
# texinfo definition shortcuts to real ones
#
%def_map = (
            # basic commands
            'deffn', 0,
            'defvr', 0,
            'deftypefn', 0,
            'deftypevr', 0,
            'defcv', 0,
            'defop', 0,
            'deftp', 0,
            # basic x commands
            'deffnx', 0,
            'defvrx', 0,
            'deftypefnx', 0,
            'deftypevrx', 0,
            'defcvx', 0,
            'defopx', 0,
            'deftpx', 0,
            # shortcuts
            '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', 'defcv {Instance Variable}', # NEW: FIXME
            'defmethod', 'defop Method',
            'deftypemethod', 'defop Method', # NEW:FIXME
            # x shortcuts
            'defunx', 'deffnx Function',
            'defmacx', 'deffnx Macro',
            'defspecx', 'deffnx {Special Form}',
            'defvarx', 'defvrx Variable',
            'defoptx', 'defvrx {User Option}',
            'deftypefunx', 'deftypefnx Function',
            'deftypevarx', 'deftypevrx Variable',
            'defivarx', 'defcvx {Instance Variable}',
            'defmethodx', 'defopx Method',
            );
 
#
# things to skip
#
%to_skip = (
            # comments
            'c', 1,
            'comment', 1,
            'ifnotinfo', 1,
            'ifnottex', 1,
            'ifhtml', 1,
            'end ifhtml', 1,
            'end ifnotinfo', 1,
            'end ifnottex', 1,
            # useless
            'detailmenu', 1,
            'direntry', 1,
            'contents', 1,
            'shortcontents', 1,
            'summarycontents', 1,
            'footnotestyle', 1,
            'end ifclear', 1,
            'end ifset', 1,
            'titlepage', 1,
            'end titlepage', 1,
            # unsupported commands (formatting)
            'afourpaper', 1,
            'cropmarks', 1,
            'finalout', 1,
            'headings', 1,
            'sp', 1,
            'need', 1,
            'page', 1,
            'setchapternewpage', 1,
            'everyheading', 1,
            'everyfooting', 1,
            'evenheading', 1,
            'evenfooting', 1,
            'oddheading', 1,
            'oddfooting', 1,
            'smallbook', 1,
            'vskip', 1,
            'filbreak', 1,
            'paragraphindent', 1,
            # unsupported formats
            'cartouche', 1,
            'end cartouche', 1,
            'group', 1,
            'end group', 1,
            );
 
#+++############################################################################
#                                                                              #
# Argument parsing, initialisation                                             #
#                                                                              #
#---############################################################################
 
#
# flush stdout and stderr after every write
#
select(STDERR);
$| = 1;
select(STDOUT);
$| = 1;
 
 
%value = ();                            # hold texinfo variables, see also -D
$use_bibliography = 1;
$use_acc = 1;
 
#
# called on -init-file
sub LoadInitFile
{
  my $init_file = shift;
  # second argument is value of options
  $init_file = shift;
  if (-f $init_file)
  {
    print "# reading initialization file from $init_file\n"
      if ($T2H_VERBOSE);
    require($init_file);
  }
  else
  {
    print "$ERROR Error: can't read init file $int_file\n";
    $init_file = '';
  }
}
 
#
# called on -lang
sub SetDocumentLanguage
{
  my $lang = shift;
  if (! exists($T2H_WORDS->{$lang}))
  {
    warn "$ERROR: Language specs for '$lang' do not exists. Reverting to '" .
      ($T2H_LANG ? T2H_LANG : "en") . "'\n";
  }
  else
  {
    print "# using '$lang' as document language\n" if ($T2H_VERBOSE);
    $T2H_LANG = $lang;
  }
}
 
##
## obsolete cmd line options
##
$T2H_OBSOLETE_OPTIONS -> {'no-section_navigation'} =
{
 type => '!',
 linkage => sub {$main::T2H_SECTION_NAVIGATION = 0;},
 verbose => 'obsolete, use -nosec_nav',
 noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {use_acc} =
{
 type => '!',
 linkage => \$use_acc,
 verbose => 'obsolete',
 noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {expandinfo} =
{
 type => '!',
 linkage => sub {$main::T2H_EXPAND = 'info';},
 verbose => 'obsolete, use "-expand info" instead',
 noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {expandtex} =
{
 type => '!',
 linkage => sub {$main::T2H_EXPAND = 'tex';},
 verbose => 'obsolete, use "-expand tex" instead',
 noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {monolithic} =
{
 type => '!',
 linkage => sub {$main::T2H_SPLIT = '';},
 verbose => 'obsolete, use "-split no" instead',
 noHelp => 2
};
$T2H_OBSOLETE_OPTIONS -> {split_node} =
{
 type => '!',
 linkage => sub{$main::T2H_SPLIT = 'section';},
 verbose => 'obsolete, use "-split section" instead',
 noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {split_chapter} =
{
 type => '!',
 linkage => sub{$main::T2H_SPLIT = 'chapter';},
 verbose => 'obsolete, use "-split chapter" instead',
 noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {no_verbose} =
{
 type => '!',
 linkage => sub {$main::T2H_VERBOSE = 0;},
 verbose => 'obsolete, use -noverbose instead',
 noHelp => 2,
};
$T2H_OBSOLETE_OPTIONS -> {output_file} =
{
 type => '=s',
 linkage => sub {$main::T2H_OUT = @_[1]; $T2H_SPLIT = '';},
 verbose => 'obsolete, use -out_file instead',
 noHelp => 2
};
 
$T2H_OBSOLETE_OPTIONS -> {section_navigation} =
{
 type => '!',
 linkage => \$T2H_SECTION_NAVIGATION,
 verbose => 'obsolete, use -sec_nav instead',
 noHelp => 2,
};
 
$T2H_OBSOLETE_OPTIONS -> {verbose} =
{
 type => '!',
 linkage => \$T2H_VERBOSE,
 verbose => 'obsolete, use -Verbose instead',
 noHelp => 2
};
 
# read initialzation from $sysconfdir/texi2htmlrc or $HOME/.texi2htmlrc
my $home = $ENV{HOME};
defined($home) or $home = '';
foreach $i ('/usr/local/etc/texi2htmlrc', "$home/.texi2htmlrc") {
    if (-f $i) {
        print "# reading initialization file from $i\n"
            if ($T2H_VERBOSE);
        require($i);
    }
}
 
 
#+++############################################################################
#                                                                              #
# parse command-line options
#                                                                              #
#---############################################################################
$T2H_USAGE_TEXT = <
Usage: texi2html  [OPTIONS] TEXINFO-FILE
Translates Texinfo source documentation to HTML.
EOT
$T2H_FAILURE_TEXT = <
Try 'texi2html -help' for usage instructions.
EOT
$options = new Getopt::MySimple;
 
# some older version of GetOpt::Long don't have
# Getopt::Long::Configure("pass_through")
eval {Getopt::Long::Configure("pass_through");};
$Configure_failed = $@ && <
**WARNING: Parsing of obsolete command-line options could have failed.
           Consider to use only documented command-line options (run
           'texi2html -help 2' for a complete list) or upgrade to perl
           version 5.005 or higher.
EOT
 
if (! $options->getOptions($T2H_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n"))
{
  print $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 $Configure_failed if $Configure_failed;
    die $T2H_FAILURE_TEXT;
  }
}
 
if ($T2H_CHECK) {
    die "Need file to check\n$T2H_FAILURE_TEXT" unless @ARGV > 0;
    ✓
    exit;
}
 
#+++############################################################################
#                                                                              #
# evaluation of cmd line options
#                                                                              #
#---############################################################################
 
if ($T2H_EXPAND eq 'info')
{
  $to_skip{'ifinfo'} = 1;
  $to_skip{'end ifinfo'} = 1;
}
elsif ($T2H_EXPAND eq 'tex')
{
  $to_skip{'iftex'} = 1;
  $to_skip{'end iftex'} = 1;
 
}
 
$T2H_INVISIBLE_MARK = '' if $T2H_INVISIBLE_MARK eq 'xbm';
 
#
# file name buisness
#
die "Need exactly one file to translate\n$T2H_FAILURE_TEXT" unless @ARGV == 1;
$docu = shift(@ARGV);
if ($docu =~ /.*\//) {
    chop($docu_dir = $&);
    $docu_name = $';
} else {
    $docu_dir = '.';
    $docu_name = $docu;
}
unshift(@T2H_INCLUDE_DIRS, $docu_dir);
$docu_name =~ s/\.te?x(i|info)?$//;     # basename of the document
$docu_name = $T2H_PREFIX if ($T2H_PREFIX);
 
# subdir
if ($T2H_SUBDIR && ! $T2H_OUT)
{
  $T2H_SUBDIR =~ s|/*$||;
  unless (-d "$T2H_SUBDIR" && -w "$T2H_SUBDIR")
  {
    if ( mkdir($T2H_SUBDIR, oct(755)))
    {
      print "# created directory $T2H_SUBDIR\n" if ($T2H_VERBOSE);
    }
    else
    {
      warn "$ERROR can't create directory $T2H_SUBDIR. Put results into current directory\n";
      $T2H_SUBDIR = '';
    }
  }
}
 
if ($T2H_SUBDIR && ! $T2H_OUT)
{
  $docu_rdir = "$T2H_SUBDIR/";
  print "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE);
}
else
{
  if ($T2H_OUT && $T2H_OUT =~ m|(.*)/|)
  {
    $docu_rdir = "$1/";
    print "# putting result files into directory $docu_rdir\n" if ($T2H_VERBOSE);
  }
  else
  {
    print "# putting result files into current directory \n" if ($T2H_VERBOSE);
    $docu_rdir = '';
  }
}
 
# extension
if ($T2H_SHORTEXTN)
{
  $docu_ext = "htm";
}
else
{
  $docu_ext = "html";
}
if ($T2H_TOP_FILE =~ /\..*$/)
{
  $T2H_TOP_FILE = $`.".$docu_ext";
}
 
# result files
if (! $T2H_OUT && ($T2H_SPLIT =~ /section/i || $T2H_SPLIT =~ /node/i))
{
  $T2H_SPLIT = 'section';
}
elsif (! $T2H_OUT && $T2H_SPLIT =~ /chapter/i)
{
  $T2H_SPLIT = 'chapter'
}
else
{
  undef $T2H_SPLIT;
}
 
$docu_doc = "$docu_name.$docu_ext";             # document's contents
$docu_doc_file = "$docu_rdir$docu_doc";
if ($T2H_SPLIT)
{
  $docu_toc  = $T2H_TOC_FILE || "${docu_name}_toc.$docu_ext"; # document's table of contents
  $docu_stoc = "${docu_name}_ovr.$docu_ext"; # document's short toc
  $docu_foot = "${docu_name}_fot.$docu_ext"; # document's footnotes
  $docu_about = "${docu_name}_abt.$docu_ext"; # about this document
  $docu_top  = $T2H_TOP_FILE || $docu_doc;
}
else
{
  if ($T2H_OUT)
  {
    $docu_doc = $T2H_OUT;
    $docu_doc =~ s|.*/||;
  }
  $docu_toc = $docu_foot = $docu_stoc = $docu_about = $docu_top = $docu_doc;
}
 
$docu_toc_file  = "$docu_rdir$docu_toc";
$docu_stoc_file = "$docu_rdir$docu_stoc";
$docu_foot_file = "$docu_rdir$docu_foot";
$docu_about_file = "$docu_rdir$docu_about";
$docu_top_file  = "$docu_rdir$docu_top";
 
$docu_frame_file =     "$docu_rdir${docu_name}_frame.$docu_ext";
$docu_toc_frame_file = "$docu_rdir${docu_name}_toc_frame.$docu_ext";
 
#
# variables
#
$value{'html'} = 1;                     # predefine html (the output format)
$value{'texi2html'} = $THISVERSION;     # predefine texi2html (the translator)
# _foo: internal to track @foo
foreach ('_author', '_title', '_subtitle',
         '_settitle', '_setfilename', '_shorttitle') {
    $value{$_} = '';                    # prevent -w warnings
}
%node2sec = ();                         # node to section name
%sec2node = ();                         # section to node name
%sec2number = ();                       # section to number
%number2sec = ();                       # number to section
%idx2node = ();                         # index keys to node
%node2href = ();                        # node to HREF
%node2next = ();                        # node to next
%node2prev = ();                        # node to prev
%node2up   = ();                        # node to up
%bib2href = ();                         # bibliography reference to HREF
%gloss2href = ();                       # glossary term to HREF
@sections = ();                         # list of sections
%tag2pro = ();                          # protected sections
 
#
# initial indexes
#
$bib_num = 0;
$foot_num = 0;
$gloss_num = 0;
$idx_num = 0;
$sec_num = 0;
$doc_num = 0;
$html_num = 0;
 
#
# can I use ISO8879 characters? (HTML+)
#
if ($T2H_USE_ISO) {
    $things_map{'bullet'} = "•";
    $things_map{'copyright'} = "©";
    $things_map{'dots'} = "…";
    $things_map{'equiv'} = "≡";
    $things_map{'expansion'} = "→";
    $things_map{'point'} = "∗";
    $things_map{'result'} = "⇒";
}
 
#
# read texi2html extensions (if any)
#
$extensions = 'texi2html.ext'; # extensions in working directory
if (-f $extensions) {
    print "# reading extensions from $extensions\n" if $T2H_VERBOSE;
    require($extensions);
}
($progdir = $0) =~ s/[^\/]+$//;
if ($progdir && ($progdir ne './')) {
    $extensions = "${progdir}texi2html.ext"; # extensions in texi2html directory
    if (-f $extensions) {
        print "# reading extensions from $extensions\n" if $T2H_VERBOSE;
        require($extensions);
    }
}
 
 
print "# reading from $docu\n" if $T2H_VERBOSE;
 
#########################################################################
#
# latex2html stuff
#
# 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
#
 
##########################
# default settings
#
 
# defaults for files and names
 
sub l2h_Init
{
  local($root) = @_;
 
  return 0 unless ($root);
 
  $l2h_name =  "${root}_l2h";
 
  $l2h_latex_file = "$docu_rdir${l2h_name}.tex";
  $l2h_cache_file = "${docu_rdir}l2h_cache.pm";
  $T2H_L2H_L2H = "latex2html" unless ($T2H_L2H_L2H);
 
  # destination dir -- generated images are put there, should be the same
  # as dir of enclosing html document --
  $l2h_html_file = "$docu_rdir${l2h_name}.html";
  $l2h_prefix = "${l2h_name}_";
  return 1;
}
 
 
##########################
#
# First stage: Generation of Latex file
# Initialize with: l2h_InitToLatex
# Add content with: l2h_ToLatex($text) --> HTML placeholder comment
# Finish with: l2h_FinishToLatex
#
 
$l2h_latex_preample = <
% This document was automatically generated by the l2h extenstion of texi2html
% DO NOT EDIT !!!
\\documentclass{article}
\\usepackage{html}
\\begin{document}
EOT
 
$l2h_latex_closing = <
\\end{document}
EOT
 
# return used latex 1, if l2h could be initalized properly, 0 otherwise
sub l2h_InitToLatex
{
  %l2h_to_latex = ();
  unless ($T2H_L2H_SKIP)
  {
    unless (open(L2H_LATEX, ">$l2h_latex_file"))
    {
      warn "$ERROR Error l2h: Can't open latex file '$latex_file' for writing\n";
      return 0;
    }
    print "# l2h: use ${l2h_latex_file} as latex file\n" if ($T2H_VERBOSE);
    print L2H_LATEX $l2h_latex_preample;
  }
  # open database for caching
  l2h_InitCache();
  $l2h_latex_count = 0;
  $l2h_to_latex_count = 0;
  $l2h_cached_count = 0;
  return  1;
}
 
# print text (1st arg) into latex file (if not already there), return
# HTML commentary which can be later on replaced by the latex2html
# generated text
sub l2h_ToLatex
{
  my($text) = @_;
  my($count);
 
  $l2h_to_latex_count++;
  $text =~ s/(\s*)$//;
 
  # try whether we can cache it
  my $cached_text = l2h_FromCache($text);
  if ($cached_text)
  {
    $l2h_cached_count++;
    return $cached_text;
  }
 
  # try whether we have text already on things to do
  unless ($count = $l2h_to_latex{$text})
  {
    $count = $l2h_latex_count;
    $l2h_latex_count++;
    $l2h_to_latex{$text} = $count;
    $l2h_to_latex[$count] = $text;
    unless ($T2H_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";
    }
  }
  return "";
}
 
# print closing into latex file and close it
sub l2h_FinishToLatex
{
  local ($reused);
 
  $reused = $l2h_to_latex_count - $l2h_latex_count - $l2h_cached_count;
  unless ($T2H_L2H_SKIP)
  {
    print L2H_LATEX $l2h_latex_closing;
    close(L2H_LATEX);
  }
  print "# l2h: finished to latex ($l2h_cached_count cached, $reused reused, $l2h_latex_count contents)\n" if ($T2H_VERBOSE);
  unless ($l2h_latex_count)
  {
    l2h_Finish();
    return 0;
  }
  return 1;
}
 
###################################
# Second stage: Use latex2html to generate corresponding html code and images
#
# l2h_ToHtml([$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 l2h_ToHtml
{
  local($call, $ext, $root, $dotbug);
 
  if ($T2H_L2H_SKIP)
  {
    print "# l2h: skipping latex2html run\n" if ($T2H_VERBOSE);
    return 1;
  }
 
  # Check for dot in directory where dvips will work
  if ($T2H_L2H_TMP)
  {
    if ($T2H_L2H_TMP =~ /\./)
    {
      warn "$ERROR Warning l2h: l2h_tmp dir contains a dot. Use /tmp, instead\n";
      $dotbug = 1;
    }
  }
  else
  {
    if (&getcwd =~ /\./)
    {
     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
  $T2H_L2H_TMP = "/tmp" if ($dotbug);
 
  $call = $T2H_L2H_L2H;
  # use init file, if specified
  $call = $call . " -init_file " . $init_file if ($init_file && -f $init_file);
  # set output dir
  $call .=  ($docu_rdir ? " -dir $docu_rdir" : " -no_subdir");
  # use l2h_tmp, if specified
  $call = $call . " -tmp $T2H_L2H_TMP" if ($T2H_L2H_TMP);
  # options we want to be sure of
  $call = $call ." -address 0 -info 0 -split 0 -no_navigation -no_auto_link";
  $call = $call ." -prefix ${l2h_prefix} $l2h_latex_file";
 
  print "# l2h: executing '$call'\n" if ($T2H_VERBOSE);
  if (system($call))
  {
    warn "l2h ***Error: '${call}' did not succeed\n";
    return 0;
  }
  else
  {
    print "# l2h: latex2html finished successfully\n" if ($T2H_VERBOSE);
    return 1;
  }
}
 
# this is directly pasted over from latex2html
sub getcwd {
    local($_) = `pwd`;
 
    die "'pwd' failed (out of memory?)\n"
        unless length;
    chop;
    $_;
}
 
 
##########################
# Third stage: Extract generated contents from latex2html run
# Initialize with: l2h_InitFromHtml
#   open $l2h_html_file for reading
#   reads in contents into array indexed by numbers
#   return 1,  on success -- 0, otherwise
# Extract Html code with: l2h_FromHtml($text)
#   replaces in $text all previosuly inserted comments by generated html code
#   returns (possibly changed) $text
# Finish with: l2h_FinishFromHtml
#   closes $l2h_html_dir/$l2h_name.".$docu_ext"
 
sub l2h_InitFromHtml
{
  local($h_line, $h_content, $count, %l2h_img);
 
  if (! open(L2H_HTML, "<${l2h_html_file}"))
  {
    print "$ERROR Error l2h: Can't open ${l2h_html_file} for reading\n";
    return 0;
  }
  print "# l2h: use ${l2h_html_file} as html file\n" if ($T2H_VERBOSE);
 
  $l2h_html_count = 0;
 
  while ($h_line = )
  {
    if ($h_line =~ /^/)
    {
      $count = $1;
      $h_content = "";
      while ($h_line = )
      {
        if ($h_line =~ /^/)
        {
          chomp $h_content;
          chomp $h_content;
          $l2h_html_count++;
          $h_content = l2h_ToCache($count, $h_content);
          $l2h_from_html[$count] = $h_content;
          $h_content = '';
          last;
        }
        $h_content = $h_content.$h_line;
      }
      if ($hcontent)
      {
        print "$ERROR Warning l2h: l2h_end $l2h_name $count not found\n"
          if ($T2H_VERBOSE);
        close(L2H_HTML);
        return 0;
      }
    }
  }
  print "# l2h: Got $l2h_html_count of $l2h_latex_count html contents\n"
    if ($T2H_VERBOSE);
 
  close(L2H_HTML);
  return 1;
}
 
sub l2h_FromHtml
{
  local($text) = @_;
  local($done, $to_do, $count);
 
  $to_do = $text;
 
  while ($to_do =~ /([^\000]*)([^\000]*)/)
  {
    $to_do = $1;
    $count = $2;
    $done = $3.$done;
 
    $done = "".$done
      if ($T2H_DEBUG & $DEBUG_L2H);
 
    $done = &l2h_ExtractFromHtml($count) . $done;
 
    $done = "".$done
      if ($T2H_DEBUG & $DEBUG_L2H);
  }
  return $to_do.$done;
}
 
 
sub l2h_ExtractFromHtml
{
  local($count) = @_;
 
  return $l2h_from_html[$count] if ($l2h_from_html[$count]);
 
  if ($count >= 0 && $count < $l2h_latex_count)
  {
    # now we are in trouble
    local($l_l2h, $_);
 
    $l2h_extract_error++;
    print "$ERROR l2h: can't extract content $count from html\n"
      if ($T2H_VERBOSE);
    # try simple (ordinary) substition (without l2h)
    $l_l2h = $T2H_L2H;
    $T2H_L2H = 0;
    $_ = $l2h_to_latex{$count};
    $_ = &substitute_style($_);
    &unprotect_texi;
    $_ = "" . $_
      if ($T2H_DEBUG & $DEBUG_L2H);
    $T2H_L2H = $l_l2h;
    return $_;
  }
  else
  {
    # now we have been incorrectly called
    $l2h_range_error++;
    print "$ERROR l2h: Request of $count content which is out of valide range [0,$l2h_latex_count)\n";
    return ""
      if ($T2H_DEBUG & $DEBUG_L2H);
    return "";
  }
}
 
sub l2h_FinishFromHtml
{
  if ($T2H_VERBOSE)
  {
    if ($l2h_extract_error + $l2h_range_error)
    {
      print "# l2h: finished from html ($l2h_extract_error extract and $l2h_range_error errors)\n";
    }
    else
    {
      print "# l2h: finished from html (no errors)\n";
    }
  }
}
 
sub l2h_Finish
{
  l2h_StoreCache();
  if ($T2H_L2H_CLEAN)
  {
    print "# l2h: removing temporary files generated by l2h extension\n"
      if $T2H_VERBOSE;
    while (<"$docu_rdir$l2h_name"*>)
    {
      unlink $_;
    }
  }
  print "# l2h: Finished\n" if $T2H_VERBOSE;
  return 1;
}
 
##############################
# 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 l2h_InitCache
{
  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);
  }
}
 
sub l2h_StoreCache
{
  return unless $l2h_latex_count;
 
  my ($key, $value);
  open(FH, ">$l2h_cache_file") || return warn"$ERROR l2h Error: could not open $docu_rdir$l2h_cache_file for writing: $!\n";
 
 
  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/\|/\\\|/g;
    $value =~ s/\\\\\|/\\\|/g;
    $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 l2h_FromCache
{
  my $text = shift;
  my $cached = $l2h_cache{$text};
  if ($cached)
  {
    while ($cached =~ m/SRC="(.*?)"/g)
    {
      unless (-e "$docu_rdir$1")
      {
        return undef;
      }
    }
    return $cached;
  }
  return undef;
}
 
# insert generated html into cache, move away images,
# return transformed html
$maximage = 1;
sub l2h_ToCache
{
  my $count = shift;
  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}_$maximage.$ext") { $maximage++;}
      $dest = "${docu_name}_$maximage.$ext";
      system("cp -f $docu_rdir$src $docu_rdir$dest");
      $l2h_img{$src} = $dest;
      unlink "$docu_rdir$src" unless ($DEBUG & DEBUG_L2H);
    }
    $content =~ s/$src/$dest/g;
  }
  $l2h_cache{$l2h_to_latex[$count]} = $content;
  return $content;
}
 
 
#+++############################################################################
#                                                                              #
# Pass 1: read source, handle command, variable, simple substitution           #
#                                                                              #
#---############################################################################
 
@lines = ();                            # whole document
@toc_lines = ();                        # table of contents
@stoc_lines = ();                       # table of contents
$curlevel = 0;                          # current level in TOC
$node = '';                             # current node name
$node_next = '';                        # current node next name
$node_prev = '';                        # current node prev name
$node_up = '';                          # current node up name
$in_table = 0;                          # am I inside a table
$table_type = '';                       # type of table ('', 'f', 'v', 'multi')
@tables = ();                           # nested table support
$in_bibliography = 0;                   # am I inside a bibliography
$in_glossary = 0;                       # am I inside a glossary
$in_top = 0;                            # am I inside the top node
$has_top = 0;                           # did I see a top node?
$has_top_command = 0;                   # did I see @top for automatic pointers?
$in_pre = 0;                            # am I inside a preformatted section
$in_list = 0;                           # am I inside a list
$in_html = 0;                           # am I inside an HTML section
$first_line = 1;                        # is it the first line
$dont_html = 0;                         # don't protect HTML on this line
$deferred_ref = '';                     # deferred reference for indexes
@html_stack = ();                       # HTML elements stack
$html_element = '';                     # current HTML element
&html_reset;
%macros = ();                           # macros
 
# init l2h
$T2H_L2H = &l2h_Init($docu_name) if ($T2H_L2H);
$T2H_L2H = &l2h_InitToLatex      if ($T2H_L2H);
 
# build code for simple substitutions
# the maps used (%simple_map and %things_map) MUST be aware of this
# watch out for regexps, / and escaped characters!
$subst_code = '';
foreach (keys(%simple_map)) {
    ($re = $_) =~ s/(\W)/\\$1/g; # protect regexp chars
    $subst_code .= "s/\\\@$re/$simple_map{$_}/g;\n";
}
foreach (keys(%things_map)) {
    $subst_code .= "s/\\\@$_\\{\\}/$things_map{$_}/g;\n";
}
if ($use_acc) {
    # accentuated characters
    foreach (keys(%accent_map)) {
        if ($_ eq "`") {
            $subst_code .= "s/$;3";
        } elsif ($_ eq "'") {
            $subst_code .= "s/$;4";
        } else {
            $subst_code .= "s/\\\@\\$_";
        }
        $subst_code .= "([a-z])/&\${1}$accent_map{$_};/gi;\n";
    }
}
eval("sub simple_substitutions { $subst_code }");
 
&init_input;
INPUT_LINE: while ($_ = &next_line) {
    #
    # remove \input on the first lines only
    #
    if ($first_line) {
        next if /^\\input/;
        $first_line = 0;
    }
    # non-@ substitutions cf. texinfmt.el
    #
    # parse texinfo tags
    #
    $tag = '';
    $end_tag = '';
    if (/^\s*\@end\s+(\w+)\b/) {
        $end_tag = $1;
    } elsif (/^\s*\@(\w+)\b/) {
        $tag = $1;
    }
    #
    # handle @html / @end html
    #
    if ($in_html) {
        if ($end_tag eq 'html') {
            $in_html = 0;
        } else {
            $tag2pro{$in_html} .= $_;
        }
        next;
    } elsif ($tag eq 'html') {
        $in_html = $PROTECTTAG . ++$html_num;
        push(@lines, $in_html);
        next;
    }
 
    #
    # try to remove inlined comments
    # syntax from tex-mode.el comment-start-skip
    #
    s/((^|[^\@])(\@\@)*)\@c(omment | |\{|$).*/$1/;
 
# Sometimes I use @c right at the end of  a line ( to suppress the line feed )
#    s/((^|[^\@])(\@\@)*)\@c(omment)?$/$1/;
#     s/((^|[^\@])(\@\@)*)\@c(omment)? .*/$1/;
#     s/(.*)\@c{.*?}(.*)/$1$2/;
#     s/(.*)\@comment{.*?}(.*)/$1$2/;
#     s/^(.*)\@c /$1/;
#     s/^(.*)\@comment /$1/;
 
    #############################################################
    # value substitution before macro expansion, so that
    # it works in macro arguments
    s/\@value{($VARRE)}/$value{$1}/eg;
 
    #############################################################
    # macro substitution
    while (/\@(\w+)/g)
    {
      if (exists($macros->{$1}))
      {
        my $before = $`;
        my $name = $1;
        my $after = $';
        my @args;
        my $args;
        if ($after =~ /^\s*{(.*?[^\\])}(.*)/)
        {
          $args = $1;
          $after = $2;
        }
        elsif (@{$macros->{$name}->{Args}} == 1)
        {
          $args = $after;
          $args =~ s/^\s*//;
          $args =~ s/\s*$//;
          $after = '';
        }
        $args =~ s|\\\\|\\|g;
        $args =~ s|\\{|{|g;
        $args =~ s|\\}|}|g;
        if (@{$macros->{$name}->{Args}} > 1)
        {
          $args =~ s/(^|[^\\]),/$1$;/g ;
          $args =~ s|\\,|,|g;
          @args = split(/$;\s*/, $args) if (@{$macros->{$name}->{Args}} > 1);
        }
        else
        {
          $args =~ s|\\,|,|g;
          @args = ($args);
        }
        my $macrobody = $macros->{$name}->{Body};
        for ($i=0; $i<=$#args; $i++)
        {
          $macrobody =~ s|\\$macros->{$name}->{Args}->[$i]\\|$args[$i]|g;
        }
        $macrobody =~ s|\\\\|\\|g;
        $_ = $before . $macrobody . $after;
        unshift @input_spool, map {$_ = $_."\n"} split(/\n/, $_);
        next INPUT_LINE;
      }
    }                           #
 
 
    #
    # try to skip the line
    #
    if ($end_tag) {
        $in_titlepage = 0 if $end_tag eq 'titlepage';
        next if $to_skip{"end $end_tag"};
    } elsif ($tag) {
      $in_titlepage = 1 if $tag eq 'titlepage';
      next if $to_skip{$tag};
      last if $tag eq 'bye';
    }
    if ($in_top) {
        # parsing the top node
        if ($tag eq 'node' ||
            ($sec2level{$tag} && $tag !~ /unnumbered/ && $tag !~ /heading/))
        {
            # no more in top
            $in_top = 0;
            push(@lines, $TOPEND);
        }
    }
    unless ($in_pre) {
        s/``/\"/g;
        s/''/\"/g;
        s/([\w ])---([\w ])/$1--$2/g;
    }
    #
    # analyze the tag
    #
    if ($tag) {
        # skip lines
        &skip_until($tag), next if $tag eq 'ignore';
        &skip_until($tag), next if $tag eq 'ifnothtml';
        if ($tag eq 'ifinfo')
        {
          &skip_until($tag), next unless $T2H_EXPAND eq 'info';
        }
        if ($tag eq 'iftex')
        {
          &skip_until($tag), next unless $T2H_EXPAND eq 'tex';
        }
        if ($tag eq 'tex')
        {
          # add to latex2html file
          if ($T2H_EXPAND eq 'tex' && $T2H_L2H && ! $in_pre)
          {
            # add space to the end -- tex(i2dvi) does this, as well
            push(@lines, &l2h_ToLatex(&string_until($tag) . " "));
          }
          else
          {
            &skip_until($tag);
          }
          next;
        }
        if ($tag eq 'titlepage')
        {
          next;
        }
        # handle special tables
        if ($tag =~ /^(|f|v|multi)table$/) {
            $table_type = $1;
            $tag = 'table';
        }
        # special cases
        if ($tag eq 'top' || ($tag eq 'node' && /^\@node\s+top\s*,/i)) {
            $in_top = 1;
            $has_top = 1;
            $has_top_command = 1 if $tag eq 'top';
            @lines = (); # ignore all lines before top (title page garbage)
            next;
        } elsif ($tag eq 'node') {
          if ($in_top)
          {
            $in_top = 0;
            push(@lines, $TOPEND);
          }
          warn "$ERROR Bad node line: $_" unless $_ =~ /^\@node\s$NODESRE$/o;
          # request of "Richard Y. Kim" 
          s/^\@node\s+//;
          $_ = &protect_html($_); # if node contains '&' for instance
          ($node, $node_next, $node_prev, $node_up) = split(/,/);
          &normalise_node($node);
          &normalise_node($node_next);
          &normalise_node($node_prev);
          &normalise_node($node_up);
          $node =~ /\"/ ?
            push @lines, &html_debug("\n", __LINE__) :
            push @lines, &html_debug("\n", __LINE__);
          next;
        } elsif ($tag eq 'include') {
            if (/^\@include\s+($FILERE)\s*$/o) {
                $file = LocateIncludeFile($1);
                if ($file && -e $file) {
                    &open($file);
                    print "# including $file\n" if $T2H_VERBOSE;
                } else {
                    warn "$ERROR Can't find $1, skipping";
                }
            } else {
                warn "$ERROR Bad include line: $_";
            }
            next;
        } elsif ($tag eq 'ifclear') {
            if (/^\@ifclear\s+($VARRE)\s*$/o) {
                next unless defined($value{$1});
                &skip_until($tag);
            } else {
                warn "$ERROR Bad ifclear line: $_";
            }
            next;
        } elsif ($tag eq 'ifset') {
            if (/^\@ifset\s+($VARRE)\s*$/o) {
                next if defined($value{$1});
                &skip_until($tag);
            } else {
                warn "$ERROR Bad ifset line: $_";
            }
            next;
        } elsif ($tag eq 'menu') {
            unless ($T2H_SHOW_MENU) {
                &skip_until($tag);
                next;
            }
            &html_push_if($tag);
            push(@lines, &html_debug('', __LINE__));
        } elsif ($format_map{$tag}) {
            $in_pre = 1 if $format_map{$tag} eq 'PRE';
            &html_push_if($format_map{$tag});
            push(@lines, &html_debug('', __LINE__));
            $in_list++ if $format_map{$tag} eq 'UL' || $format_map{$tag} eq 'OL' ;
#           push(@lines, &debug("\n", __LINE__))
#             if $tag =~ /example/i;
            # sunshine@sunshineco.com: bla looks better than
            # \nbla (at least on NeXTstep browser
            push(@lines, &debug("<$format_map{$tag}>" .
                                ($in_pre ? '' : "\n"), __LINE__));
            next;
        }
        elsif (exists $complex_format_map->{$tag})
        {
          my $start = eval $complex_format_map->{$tag}->[0];
          if ($@)
          {
            print "$ERROR: eval of complex_format_map->{$tag}->[0] $complex_format_map->{$tag}->[0]: $@";
            $start = ''
          }
          $in_pre = 1 if $start =~ /
          push(@lines, html_debug($start. ($in_pre ? '' : "\n"), __LINE__));
          next;
        } elsif ($tag eq 'table') {
          # anorland@hem2.passagen.se
          # if (/^\s*\@(|f|v|multi)table\s+\@(\w+)/) {
             if (/^\s*\@(|f|v|multi)table\s+\@(\w+)|(\{[^\}]*\})/) {
                $in_table = $2;
                unshift(@tables, join($;, $table_type, $in_table));
                if ($table_type eq "multi") {
                    # don't use borders -- gets confused by empty cells
                push(@lines, "
                &html_pop_if('TR');
            } else {
                push(@lines, "\n");
                &html_pop_if('DD');
            }
            &html_pop_if();
            if (@tables) {
                ($table_type, $in_table) = split($;, $tables[0]);
            } else {
                $in_table = 0;
            }
        } elsif (defined($def_map{$end_tag})) {
            push(@lines, &debug("\n", __LINE__));
        } elsif ($end_tag eq 'menu') {
            &html_pop_if();
            push(@lines, $_); # must keep it for pass 2
        }
        next;
    }
    #############################################################
    # anchor insertion
    while (/\@anchor\s*\{(.*?)\}/)
    {
      $_ = $`.$';
      my $anchor = $1;
      $anchor = &normalise_node($anchor);
      push @lines, &html_debug("\n");
      $node2href{$anchor} = "$docu_doc#$anchor";
      next INPUT_LINE if $_ =~ /^\s*$/;
    }
 
    #############################################################
    # index entry generation, after value substitutions
    if (/^\@(\w+?)index\s+/)
    {
      EnterIndexEntry($1, $', $docu_doc, $section, \@lines);
      next;
    }
    #
    # protect texi and HTML things
    &protect_texi;
    $_ = &protect_html($_) unless $dont_html;
    $dont_html = 0;
    # substitution (unsupported things)
    s/^\@exdent\s+//g;
    s/\@noindent\s+//g;
    s/\@refill\s+//g;
    # other substitutions
    &simple_substitutions;
    s/\@footnote\{/\@footnote$docu_doc\{/g; # mark footnotes, cf. pass 4
    #
    # analyze the tag again
    #
    if ($tag) {
      if (defined($sec2level{$tag}) && $sec2level{$tag} > 0) {
            if (/^\@$tag\s+(.+)$/) {
                $name = $1;
                $name = &normalise_node($name);
                $level = $sec2level{$tag};
                # check for index
                $first_index_chapter = $name
                  if ($level == 1 && !$first_index_chapter &&
                      $name =~ /index/i);
                if ($in_top && /heading/){
                    $T2H_HAS_TOP_HEADING = 1;
                    $_ = &debug("$name\n", __LINE__);
                    &html_push_if('body');
                    print "# top heading, section $name, level $level\n"
                        if $T2H_DEBUG & $DEBUG_TOC;
                }
                else
                {
                  unless (/^\@\w*heading/)
                  {
                    unless (/^\@unnumbered/)
                    {
                      my $number = &update_sec_num($tag, $level);
                      $name = $number. ' ' . $name if $T2H_NUMBER_SECTIONS;
                      $sec2number{$name} = $number;
                      $number2sec{$number} = $name;
                    }
                    if (defined($toplevel))
                    {
                      push @lines, ($level==$toplevel ? $CHAPTEREND : $SECTIONEND);
                    }
                    else
                    {
                      # first time we see a "section"
                      unless ($level == 1)
                      {
                        warn "$WARN The first section found is not of level 1: $_";
                      }
                      $toplevel = $level;
                    }
                    push(@sections, $name);
                    next_doc() if ($T2H_SPLIT eq 'section' ||
                                   $T2H_SPLIT && $level == $toplevel);
                  }
                  $sec_num++;
                  $docid = "SEC$sec_num";
                  $tocid = (/^\@\w*heading/ ? undef : "TOC$sec_num");
                  # check biblio and glossary
                  $in_bibliography = ($name =~ /^([A-Z]|\d+)?(\.\d+)*\s*bibliography$/i);
                  $in_glossary = ($name =~ /^([A-Z]|\d+)?(\.\d+)*\s*glossary$/i);
                  # check node
                  if ($node)
                  {
                    warn "$ERROR Duplicate node found: $node\n"
                      if ($node2sec{$node});
                  }
                  else
                  {
                    $name .= ' ' while ($node2sec{$name});
                    $node = $name;
                  }
                  $name .= ' ' while ($sec2node{$name});
                  $section = $name;
                  $node2sec{$node} = $name;
                  $sec2node{$name} = $node;
                  $node2href{$node} = "$docu_doc#$docid";
                  $node2next{$node} = $node_next;
                  $node2prev{$node} = $node_prev;
                  $node2up{$node} = $node_up;
                  print "# node $node, section $name, level $level\n"
                    if $T2H_DEBUG & $DEBUG_TOC;
 
                  $node = '';
                  $node_next = '';
                  $node_prev = '';
                  $node_next = '';
                  if ($tocid)
                  {
                    # update TOC
                    while ($level > $curlevel) {
                      $curlevel++;
                      push(@toc_lines, "\n");
                    }
                    while ($level < $curlevel) {
                      $curlevel--;
                      push(@toc_lines, "\n");
                    }
                    $_ = &t2h_anchor($tocid, "$docu_doc#$docid", $name, 1);
                    $_ = &substitute_style($_);
                    push(@stoc_lines, "$_\n") if ($level == 1);
                    if ($T2H_NUMBER_SECTIONS)
                    {
                      push(@toc_lines, $_ . "\n")
                    }
                    else
                    {
                      push(@toc_lines, "" . $_ ."");
                    }
                  }
                  else
                  {
                    push(@lines, &html_debug("\n",
                                           __LINE__));
                  }
                  # update DOC
                  push(@lines, &html_debug('', __LINE__));
                  &html_reset;
                  $_ =  " $name \n\n";
                  $_ = &debug($_, __LINE__);
                  push(@lines, &html_debug('', __LINE__));
                }
                # update DOC
                foreach $line (split(/\n+/, $_)) {
                    push(@lines, "$line\n");
                }
                next;
            } else {
                warn "$ERROR Bad section line: $_";
            }
        } else {
            # track variables
            $value{$1} = Unprotect_texi($2), next if /^\@set\s+($VARRE)\s+(.*)$/o;
            delete $value{$1}, next if /^\@clear\s+($VARRE)\s*$/o;
            # store things
            $value{'_shorttitle'} = Unprotect_texi($1), next if /^\@shorttitle\s+(.*)$/;
            $value{'_setfilename'}   = Unprotect_texi($1), next if /^\@setfilename\s+(.*)$/;
            $value{'_settitle'}      = Unprotect_texi($1), next if /^\@settitle\s+(.*)$/;
            $value{'_author'}   .= Unprotect_texi($1)."\n", next if /^\@author\s+(.*)$/;
            $value{'_subtitle'} .= Unprotect_texi($1)."\n", next if /^\@subtitle\s+(.*)$/;
            $value{'_title'}    .= Unprotect_texi($1)."\n", next if /^\@title\s+(.*)$/;
 
            # list item
            if (/^\s*\@itemx?\s+/) {
                $what = $';
                $what =~ s/\s+$//;
                if ($in_bibliography && $use_bibliography) {
                    if ($what =~ /^$BIBRE$/o) {
                        $id = 'BIB' . ++$bib_num;
                        $bib2href{$what} = "$docu_doc#$id";
                        print "# found bibliography for '$what' id $id\n"
                            if $T2H_DEBUG & $DEBUG_BIB;
                        $what = &t2h_anchor($id, '', $what);
                    }
                } elsif ($in_glossary && $T2H_USE_GLOSSARY) {
                    $id = 'GLOSS' . ++$gloss_num;
                    $entry = $what;
                    $entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Z\s]+$/;
                    $gloss2href{$entry} = "$docu_doc#$id";
                    print "# found glossary for '$entry' id $id\n"
                        if $T2H_DEBUG & $DEBUG_GLOSS;
                    $what = &t2h_anchor($id, '', $what);
                }
                elsif ($in_table && ($table_type eq 'f' || $table_type eq 'v'))
                {
                  EnterIndexEntry($table_type, $what, $docu_doc, $section, \@lines);
                }
                &html_pop_if('P');
                if ($html_element eq 'DL' || $html_element eq 'DD') {
                    if ($things_map{$in_table} && !$what) {
                        # special case to allow @table @bullet for instance
                        push(@lines, &debug("$things_map{$in_table}\n", __LINE__));
                    } else {
                        push(@lines, &debug("\@$in_table\{$what\}\n", __LINE__));
                    }
                    push(@lines, "");
                    &html_push('DD') unless $html_element eq 'DD';
                    if ($table_type) { # add also an index
                        unshift(@input_spool, "\@${table_type}index $what\n");
                    }
                } elsif ($html_element eq 'TABLE') {
                    push(@lines, &debug("

                    &html_push('TR');
                } elsif ($html_element eq 'TR') {
                    push(@lines, &debug("
                    push(@lines, &debug("

                } else {
                    push(@lines, &debug("$what\n", __LINE__));
                    &html_push('LI') unless $html_element eq 'LI';
                }
                push(@lines, &html_debug('', __LINE__));
                if ($deferred_ref) {
                    push(@lines, &debug("$deferred_ref\n", __LINE__));
                    $deferred_ref = '';
                }
                next;
            } elsif (/^\@tab\s+(.*)$/) {
                push(@lines, "
                next;
            }
        }
    }
    # paragraph separator
    if ($_ eq "\n" && ! $in_pre) {
        next if $#lines >= 0 && $lines[$#lines] eq "\n";
        if ($html_element eq 'P') {
            push (@lines, &debug("\n", __LINE__));
        }
#       else
#       {
#         push(@lines, "\n");
#         $_ = &debug("\n", __LINE__);
#       }
        elsif ($html_element eq 'body' || $html_element eq 'BLOCKQUOTE' || $html_element eq 'DD' || $html_element eq 'LI')
        {
          &html_push('P');
          push(@lines, &debug("\n", __LINE__));
        }
      }
    # otherwise
    push(@lines, $_) unless $in_titlepage;
    push(@lines, &debug("\n", __LINE__))  if ($tag eq 'center');
}
 
# finish TOC
$level = 0;
while ($level < $curlevel) {
    $curlevel--;
    push(@toc_lines, "\n");
}
 
print "# end of pass 1\n" if $T2H_VERBOSE;
 
SetDocumentLanguage('en') unless ($T2H_LANG);
#+++############################################################################
#                                                                              #
# Stuff related to Index generation                                            #
#                                                                              #
#---############################################################################
 
sub EnterIndexEntry
{
  my $prefix = shift;
  my $key = shift;
  my $docu_doc = shift;
  my $section = shift;
  my $lines = shift;
  local $_;
 
  warn "$ERROR Undefined index command: $_", next
    unless (exists ($index_properties->{$prefix}));
  $key =~ s/\s+$//;
  $_ = $key;
  &protect_texi;
  $key = $_;
  $_ = &protect_html($_);
  my $html_key = substitute_style($_);
  my $id;
  $key = remove_style($key);
  $key = remove_things($key);
  $_ = $key;
  &unprotect_texi;
  $key = $_;
  while (exists $index->{$prefix}->{$key}) {$key .= ' '};
  if ($lines->[$#lines] =~ /^$/)
  {
    $id = $1;
  }
  else
  {
    $id = 'IDX' . ++$idx_num;
    push(@$lines, &t2h_anchor($id, '', $T2H_INVISIBLE_MARK, !$in_pre));
  }
  $index->{$prefix}->{$key}->{html_key} = $html_key;
  $index->{$prefix}->{$key}->{section} = $section;
  $index->{$prefix}->{$key}->{href} = "$docu_doc#$id";
  print "# found ${prefix}index  for '$key' with id $id\n"
    if $T2H_DEBUG & $DEBUG_INDEX;
}
 
sub IndexName2Prefix
{
  my $name = shift;
  my $prefix;
 
  for $prefix (keys %$index_properties)
  {
    return $prefix if ($index_properties->{$prefix}->{name} eq $name);
  }
  return undef;
}
 
sub GetIndexEntries
{
  my $normal = shift;
  my $code = shift;
  my ($entries, $prefix, $key) = ({});
 
  for $prefix (keys %$normal)
  {
    for $key (keys %{$index->{$prefix}})
    {
      $entries->{$key} = {%{$index->{$prefix}->{$key}}};
    }
  }
 
  if (defined($code))
  {
    for $prefix (keys %$code)
    {
      unless (exists $normal->{$keys})
      {
        for $key (keys %{$index->{$prefix}})
        {
          $entries->{$key} = {%{$index->{$prefix}->{$key}}};
          $entries->{$key}->{html_key} = "$entries->{$key}->{html_key}";
        }
      }
    }
  }
  return $entries;
}
 
sub byAlpha
{
  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);
  }
}
 
sub GetIndexPages
{
  my $entries = shift;
  my (@Letters, $key);
  my ($EntriesByLetter, $Pages, $page) = ({}, [], {});
  my @keys = sort byAlpha keys %$entries;
 
  for $key (@keys)
  {
    push @{$EntriesByLetter->{uc(substr($key,0, 1))}} , $entries->{$key};
  }
  @Letters = sort byAlpha keys %$EntriesByLetter;
 
  $T2H_SPLIT_INDEX = 0 unless ($T2H_SPLIT);
 
  unless ($T2H_SPLIT_INDEX)
  {
    $page->{First} = $Letters[0];
    $page->{Last} = $Letters[$#Letters];
    $page->{Letters} = \@Letters;
    $page->{EntriesByLetter} = $EntriesByLetter;
    push @$Pages, $page;
    return $Pages;
  }
 
  if ($T2H_SPLIT_INDEX =~ /^\d+$/)
  {
    my $i = 0;
    my ($prev_letter, $letter);
    $page->{First} = $Letters[0];
    for $letter (@Letters)
    {
      if ($i > $T2H_SPLIT_INDEX)
      {
        $page->{Last} = $prev_letter;
        push @$Pages, {%$page};
        $page->{Letters} = [];
        $page->{EntriesByLetter} = {};
        $page->{First} = $letter;
        $i=0;
      }
      push @{$page->{Letters}}, $letter;
      $page->{EntriesByLetter}->{$letter} = [@{$EntriesByLetter->{$letter}}];
      $i += scalar(@{$EntriesByLetter->{$letter}});
      $prev_letter = $letter;
    }
    $page->{Last} = $Letters[$#Letters];
    push @$Pages, {%$page};
  }
  return $Pages;
}
 
sub GetIndexSummary
{
  my $first_page = shift;
  my $Pages = shift;
  my $name = shift;
  my ($page, $letter, $summary, $i, $l1, $l2, $l);
 
  $i = 0;
  $summary .= $l2 . '
  return $summary;
}
 
sub PrintIndexPage
{
  my $lines = shift;
  my $summary = shift;
  my $page = shift;
  my $name = shift;
 
  push @$lines, $summary;
 
  push @$lines , <

  push @$lines, "
  push @$lines, $summary;
}
 
sub PrintIndex
{
  my $lines = shift;
  my $name = shift;
  my $section = shift;
  $section = 'Top' unless $section;
  my $prefix = IndexName2Prefix($name);
 
  warn ("$ERROR printindex: bad index name: $name"), return
    unless $prefix;
 
  if ($index_properties->{$prefix}->{code})
  {
    $index_properties->{$prefix}->{from_code}->{$prefix} = 1;
  }
  else
  {
    $index_properties->{$prefix}->{from}->{$prefix}= 1;
  }
 
  my $Entries = GetIndexEntries($index_properties->{$prefix}->{from},
                                $index_properties->{$prefix}->{from_code});
  return unless %$Entries;
 
  if ($T2H_IDX_SUMMARY)
  {
    my $key;
    open(FHIDX, ">$docu_rdir$docu_name" . "_$name.idx")
      || die "Can't open > $docu_rdir$docu_name" . "_$name.idx for writing: $!\n";
    print "# writing $name index summary in $docu_rdir$docu_name" . "_$name.idx...\n" if $T2H_VERBOSE;
 
    for $key (sort keys %$Entries)
    {
      print FHIDX "$key\t$Entries->{$key}->{href}\n";
    }
  }
 
  my $Pages = GetIndexPages($Entries);
  my $page;
  my $first_page = shift @$Pages;
  my $sec_name = $section;
  # remove section number
  $sec_name =~ s/.*? // if $sec_name =~ /^([A-Z]|\d+)\./;
 
  ($first_page->{href} = sec_href($section)) =~ s/\#.*$//;
  # Update tree structure of document
  if (@$Pages)
  {
    my $sec;
    my @after;
 
    while (@sections && $sections[$#sections] ne $section)
    {
      unshift @after, pop @sections;
    }
 
    for $page (@$Pages)
    {
      my $node = ($page->{First} ne $page->{Last} ?
                  "$sec_name: $page->{First} -- $page->{Last}" :
                  "$sec_name: $page->{First}");
      push @sections, $node;
      $node2sec{$node} = $node;
      $sec2node{$node} = $node;
      $node2up{$node} = $section;
      $page->{href} = next_doc();
      $page->{name} = $node;
      $node2href{$node} = $page->{href};
      if ($prev_node)
      {
        $node2next{$prev_node} = $node;
        $node2prev{$node} = $prev_node;
      }
      $prev_node = $node;
    }
    push @sections, @after;
  }
 
  my $summary = GetIndexSummary($first_page, $Pages, $name);
  PrintIndexPage($lines, $summary, $first_page, $name);
  for $page (@$Pages)
  {
    push @$lines, ($T2H_SPLIT eq 'chapter' ? $CHAPTEREND : $SECTIONEND);
    push @$lines, "$page->{name}\n";
    PrintIndexPage($lines, $summary, $page, $name);
  }
}
 
 
#+++############################################################################
#                                                                              #
# Pass 2/3: handle style, menu, index, cross-reference                         #
#                                                                              #
#---############################################################################
 
@lines2 = ();                           # whole document (2nd pass)
@lines3 = ();                           # whole document (3rd pass)
$in_menu = 0;                           # am I inside a menu
 
while (@lines) {
    $_ = shift(@lines);
    #
    # special case (protected sections)
    #
    if (/^$PROTECTTAG/o) {
        push(@lines2, $_);
        next;
    }
    #
    # menu
    #
    if (/^\@menu\b/)
    {
      $in_menu = 1;
      $in_menu_listing = 1;
        push(@lines2, &debug("
      }
      else
      {
        push(@lines2, &debug("\n", __LINE__));
      }
      $in_menu = 0;
      $in_menu_listing = 0;
      next;
    }
    if ($in_menu)
    {
      my ($node, $name, $descr);
      if (/^\*\s+($NODERE)::/o)
      {
        $node = $1;
        $descr = $';
      }
      elsif (/^\*\s+(.+):\s+([^\t,\.\n]+)[\t,\.\n]/)
      {
        $name = $1;
        $node = $2;
        $descr = $';
      }
      elsif (/^\*/)
      {
        warn "$ERROR Bad menu line: $_";
      }
      else
      {
        if ($in_menu_listing)
        {
          $in_menu_listing = 0;
          push(@lines2, &debug("

\n", __LINE__)); 4170

4171

        # should be like verbatim -- preseve spaces, etc

4172

        s/ /\ /g;

4173

        $_ .= "
\n";

4174

        push(@lines2, $_);

4175

4176

      if ($node)

4177

4178

        if (! $in_menu_listing)

4179

4180

          $in_menu_listing = 1;

4181

          push(@lines2, &debug("\n", __LINE__));\n", __LINE__));\n", __LINE__))
      
      
         4182
         
         
                 }
      
      
         4183
         
         
                 # look for continuation
      
      
         4184
         
         
                 while ($lines[0] =~ /^\s+\w+/)
      
      
         4185
         
         
                 {
      
      
         4186
         
         
                   $descr .= shift(@lines);
      
      
         4187
         
         
                 }
      
      
         4188
         
         
                 &menu_entry($node, $name, $descr);
      
      
         4189
         
         
               }
      
      
         4190
         
         
               next;
      
      
         4191
         
         
             }
      
      
         4192
         
         
             #
      
      
         4193
         
         
             # printindex
      
      
         4194
         
         
             #
      
      
         4195
         
         
             PrintIndex(\@lines2, $2, $1), next
      
      
         4196
         
         
               if (/^\@printindex\s+(\w+)/);
      
      
         4197
         
         
             #
      
      
         4198
         
         
             # simple style substitutions
      
      
         4199
         
         
             #
      
      
         4200
         
         
             $_ = &substitute_style($_);
      
      
         4201
         
         
             #
      
      
         4202
         
         
             # xref
      
      
         4203
         
         
             #
      
      
         4204
         
         
             while (/\@(x|px|info|)ref{([^{}]+)(}?)/) {
      
      
         4205
         
         
                 # note: Texinfo may accept other characters
      
      
         4206
         
         
                 ($type, $nodes, $full) = ($1, $2, $3);
      
      
         4207
         
         
                 ($before, $after) = ($`, $');
      
      
         4208
         
         
                 if (! $full && $after) {
      
      
         4209
         
         
                     warn "$ERROR Bad xref (no ending } on line): $_";
      
      
         4210
         
         
                     $_ = "$before$;0${type}ref\{$nodes$after";
      
      
         4211
         
         
                     next; # while xref
      
      
         4212
         
         
                 }
      
      
         4213
         
         
                 if ($type eq 'x') {
      
      
         4214
         
         
                     $type = "$T2H_WORDS->{$T2H_LANG}->{'See'} ";
      
      
         4215
         
         
                 } elsif ($type eq 'px') {
      
      
         4216
         
         
                     $type = "$T2H_WORDS->{$T2H_LANG}->{'see'} ";
      
      
         4217
         
         
                 } elsif ($type eq 'info') {
      
      
         4218
         
         
                     $type = "$T2H_WORDS->{$T2H_LANG}->{'See'} Info";
      
      
         4219
         
         
                 } else {
      
      
         4220
         
         
                     $type = '';
      
      
         4221
         
         
                 }
      
      
         4222
         
         
                 unless ($full) {
      
      
         4223
         
         
                     $next = shift(@lines);
      
      
         4224
         
         
                     $next = &substitute_style($next);
      
      
         4225
         
         
                     chop($nodes); # remove final newline
      
      
         4226
         
         
                     if ($next =~ /\}/) { # split on 2 lines
      
      
         4227
         
         
                         $nodes .= " $`";
      
      
         4228
         
         
                         $after = $';
      
      
         4229
         
         
                     } else {
      
      
         4230
         
         
                         $nodes .= " $next";
      
      
         4231
         
         
                         $next = shift(@lines);
      
      
         4232
         
         
                         $next = &substitute_style($next);
      
      
         4233
         
         
                         chop($nodes);
      
      
         4234
         
         
                         if ($next =~ /\}/) { # split on 3 lines
      
      
         4235
         
         
                             $nodes .= " $`";
      
      
         4236
         
         
                             $after = $';
      
      
         4237
         
         
                         } else {
      
      
         4238
         
         
                             warn "$ERROR Bad xref (no ending }): $_";
      
      
         4239
         
         
                             $_ = "$before$;0xref\{$nodes$after";
      
      
         4240
         
         
                             unshift(@lines, $next);
      
      
         4241
         
         
                             next; # while xref
      
      
         4242
         
         
                         }
      
      
         4243
         
         
                     }
      
      
         4244
         
         
                 }
      
      
         4245
         
         
                 $nodes =~ s/\s+/ /g; # remove useless spaces
      
      
         4246
         
         
                 @args = split(/\s*,\s*/, $nodes);
      
      
         4247
         
         
                 $node = $args[0]; # the node is always the first arg
      
      
         4248
         
         
                 $node = &normalise_node($node);
      
      
         4249
         
         
                 $sec = $args[2] || $args[1] || $node2sec{$node};
      
      
         4250
         
         
                 $href = $node2href{$node};
      
      
         4251
         
         
                 if (@args == 5) { # reference to another manual
      
      
         4252
         
         
                     $sec = $args[2] || $node;
      
      
         4253
         
         
                     $man = $args[4] || $args[3];
      
      
         4254
         
         
                     $_ = "${before}${type}$T2H_WORDS->{$T2H_LANG}->{'section'} `$sec' in \@cite{$man}$after";
      
      
         4255
         
         
                 } elsif ($type =~ /Info/) { # inforef
      
      
         4256
         
         
                     warn "$ERROR Wrong number of arguments: $_" unless @args == 3;
      
      
         4257
         
         
                     ($nn, $_, $in) = @args;
      
      
         4258
         
         
                     $_ = "${before}${type} file `$in', node `$nn'$after";
      
      
         4259
         
         
                 } elsif ($sec && $href && ! $T2H_SHORT_REF) {
      
      
         4260
         
         
                     $_  = "${before}${type}";
      
      
         4261
         
         
                     $_ .= "$T2H_WORDS->{$T2H_LANG}->{'section'} " if ${type};
      
      
         4262
         
         
                     $_ .= &t2h_anchor('', $href, $sec) . $after;
      
      
         4263
         
         
                 }
      
      
         4264
         
         
                 elsif ($href)
      
      
         4265
         
         
                 {
      
      
         4266
         
         
                   $_ = "${before}${type} " .
      
      
         4267
         
         
                     &t2h_anchor('', $href, $args[2] || $args[1] || $node) .
      
      
         4268
         
         
                       $after;
      
      
         4269
         
         
                 }
      
      
         4270
         
         
                 else {
      
      
         4271
         
         
                     warn "$ERROR Undefined node ($node): $_";
      
      
         4272
         
         
                     $_ = "$before$;0xref{$nodes}$after";
      
      
         4273
         
         
                 }
      
      
         4274
         
         
             }
      
      
         4275
         
         
          
      
      
         4276
         
         
             # replace images
      
      
         4277
         
         
             s[\@image\s*{(.+?)}]
      
      
         4278
         
         
             {
      
      
         4279
         
         
              my @args = split (/\s*,\s*/, $1);
      
      
         4280
         
         
              my $base = $args[0];
      
      
         4281
         
         
              my $image =
      
      
         4282
         
         
                LocateIncludeFile("$base.png") ||
      
      
         4283
         
         
                LocateIncludeFile("$base.jpg") ||
      
      
         4284
         
         
                LocateIncludeFile("$base.gif");
      
      
         4285
         
         
              warn "$ERROR no image file for $base: $_" unless ($image && -e $image);
      
      
         4286
         
         
              "";
      
      
         4287
         
         
              ($T2H_CENTER_IMAGE ?
      
      
         4288
         
         
               "" :
      
      
         4289
         
         
               "");
      
      
         4290
         
         
             }eg;
      
      
         4291
         
         
          
      
      
         4292
         
         
             #
      
      
         4293
         
         
             # try to guess bibliography references or glossary terms
      
      
         4294
         
         
             #
      
      
         4295
         
         
             unless (/^
      
      
         4296
         
         
                 if ($use_bibliography) {
      
      
         4297
         
         
                     $done = '';
      
      
         4298
         
         
                     while (/$BIBRE/o) {
      
      
         4299
         
         
                         ($pre, $what, $post) = ($`, $&, $');
      
      
         4300
         
         
                         $href = $bib2href{$what};
      
      
         4301
         
         
                         if (defined($href) && $post !~ /^[^<]*<\/A>/) {
      
      
         4302
         
         
                             $done .= $pre . &t2h_anchor('', $href, $what);
      
      
         4303
         
         
                         } else {
      
      
         4304
         
         
                             $done .= "$pre$what";
      
      
         4305
         
         
                         }
      
      
         4306
         
         
                         $_ = $post;
      
      
         4307
         
         
                     }
      
      
         4308
         
         
                     $_ = $done . $_;
      
      
         4309
         
         
                 }
      
      
         4310
         
         
                 if ($T2H_USE_GLOSSARY) {
      
      
         4311
         
         
                     $done = '';
      
      
         4312
         
         
                     while (/\b\w+\b/) {
      
      
         4313
         
         
                         ($pre, $what, $post) = ($`, $&, $');
      
      
         4314
         
         
                         $entry = $what;
      
      
         4315
         
         
                         $entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Z\s]+$/;
      
      
         4316
         
         
                         $href = $gloss2href{$entry};
      
      
         4317
         
         
                         if (defined($href) && $post !~ /^[^<]*<\/A>/) {
      
      
         4318
         
         
                             $done .= $pre . &t2h_anchor('', $href, $what);
      
      
         4319
         
         
                         } else {
      
      
         4320
         
         
                             $done .= "$pre$what";
      
      
         4321
         
         
                         }
      
      
         4322
         
         
                         $_ = $post;
      
      
         4323
         
         
                     }
      
      
         4324
         
         
                     $_ = $done . $_;
      
      
         4325
         
         
                 }
      
      
         4326
         
         
             }
      
      
         4327
         
         
             # otherwise
      
      
         4328
         
         
             push(@lines2, $_);
      
      
         4329
         
         
         }
      
      
         4330
         
         
         print "# end of pass 2\n" if $T2H_VERBOSE;
      
      
         4331
         
         
          
      
      
         4332
         
         
         #
      
      
         4333
         
         
         # split style substitutions
      
      
         4334
         
         
         #
      
      
         4335
         
         
         while (@lines2) {
      
      
         4336
         
         
             $_ = shift(@lines2);
      
      
         4337
         
         
             #
      
      
         4338
         
         
             # special case (protected sections)
      
      
         4339
         
         
             #
      
      
         4340
         
         
             if (/^$PROTECTTAG/o) {
      
      
         4341
         
         
                 push(@lines3, $_);
      
      
         4342
         
         
                 next;
      
      
         4343
         
         
             }
      
      
         4344
         
         
             #
      
      
         4345
         
         
             # split style substitutions
      
      
         4346
         
         
             #
      
      
         4347
         
         
             $old = '';
      
      
         4348
         
         
             while ($old ne $_) {
      
      
         4349
         
         
                 $old = $_;
      
      
         4350
         
         
                 if (/\@(\w+)\{/) {
      
      
         4351
         
         
                     ($before, $style, $after) = ($`, $1, $');
      
      
         4352
         
         
                     if (defined($style_map{$style})) {
      
      
         4353
         
         
                         $_ = $after;
      
      
         4354
         
         
                         $text = '';
      
      
         4355
         
         
                         $after = '';
      
      
         4356
         
         
                         $failed = 1;
      
      
         4357
         
         
                         while (@lines2) {
      
      
         4358
         
         
                             if (/\}/) {
      
      
         4359
         
         
                                 $text .= $`;
      
      
         4360
         
         
                                 $after = $';
      
      
         4361
         
         
                                 $failed = 0;
      
      
         4362
         
         
                                 last;
      
      
         4363
         
         
                             } else {
      
      
         4364
         
         
                                 $text .= $_;
      
      
         4365
         
         
                                 $_ = shift(@lines2);
      
      
         4366
         
         
                             }
      
      
         4367
         
         
                         }
      
      
         4368
         
         
                         if ($failed) {
      
      
         4369
         
         
                             die "* Bad syntax (\@$style) after: $before\n";
      
      
         4370
         
         
                         } else {
      
      
         4371
         
         
                             $text = &apply_style($style, $text);
      
      
         4372
         
         
                             $_ = "$before$text$after";
      
      
         4373
         
         
                         }
      
      
         4374
         
         
                     }
      
      
         4375
         
         
                 }
      
      
         4376
         
         
             }
      
      
         4377
         
         
             # otherwise
      
      
         4378
         
         
             push(@lines3, $_);
      
      
         4379
         
         
         }
      
      
         4380
         
         
         print "# end of pass 3\n" if $T2H_VERBOSE;
      
      
         4381
         
         
          
      
      
         4382
         
         
         #+++############################################################################
      
      
         4383
         
         
         #                                                                              #
      
      
         4384
         
         
         # Pass 4: foot notes, final cleanup                                            #
      
      
         4385
         
         
         #                                                                              #
      
      
         4386
         
         
         #---############################################################################
      
      
         4387
         
         
          
      
      
         4388
         
         
         @foot_lines = ();                       # footnotes
      
      
         4389
         
         
         @doc_lines = ();                        # final document
      
      
         4390
         
         
         $end_of_para = 0;                       # true if last line is 
      
      
         4391
         
         
          
      
      
         4392
         
         
         while (@lines3) {
      
      
         4393
         
         
             $_ = shift(@lines3);
      
      
         4394
         
         
             #
      
      
         4395
         
         
             # special case (protected sections)
      
      
         4396
         
         
             #
      
      
         4397
         
         
             if (/^$PROTECTTAG/o) {
      
      
         4398
         
         
                 push(@doc_lines, $_);
      
      
         4399
         
         
                 $end_of_para = 0;
      
      
         4400
         
         
                 next;
      
      
         4401
         
         
             }
      
      
         4402
         
         
             #
      
      
         4403
         
         
             # footnotes
      
      
         4404
         
         
             #
      
      
         4405
         
         
             while (/\@footnote([^\{\s]+)\{/) {
      
      
         4406
         
         
                 ($before, $d, $after) = ($`, $1, $');
      
      
         4407
         
         
                 $_ = $after;
      
      
         4408
         
         
                 $text = '';
      
      
         4409
         
         
                 $after = '';
      
      
         4410
         
         
                 $failed = 1;
      
      
         4411
         
         
                 while (@lines3) {
      
      
         4412
         
         
                     if (/\}/) {
      
      
         4413
         
         
                         $text .= $`;
      
      
         4414
         
         
                         $after = $';
      
      
         4415
         
         
                         $failed = 0;
      
      
         4416
         
         
                         last;
      
      
         4417
         
         
                     } else {
      
      
         4418
         
         
                         $text .= $_;
      
      
         4419
         
         
                         $_ = shift(@lines3);
      
      
         4420
         
         
                     }
      
      
         4421
         
         
                 }
      
      
         4422
         
         
                 if ($failed) {
      
      
         4423
         
         
                     die "* Bad syntax (\@footnote) after: $before\n";
      
      
         4424
         
         
                 } else {
      
      
         4425
         
         
                     $foot_num++;
      
      
         4426
         
         
                     $docid  = "DOCF$foot_num";
      
      
         4427
         
         
                     $footid = "FOOT$foot_num";
      
      
         4428
         
         
                     $foot = "($foot_num)";
      
      
         4429
         
         
                     push(@foot_lines, "" . &t2h_anchor($footid, "$d#$docid", $foot) . "
\n");
      
      
         4430
         
         
                     $text = "$text" unless $text =~ /^\s*/;
      
      
         4431
         
         
                     push(@foot_lines, "$text\n");
      
      
         4432
         
         
                     $_ = $before . &t2h_anchor($docid, "$docu_foot#$footid", $foot) . $after;
      
      
         4433
         
         
                 }
      
      
         4434
         
         
             }
      
      
         4435
         
         
             #
      
      
         4436
         
         
             # remove unnecessary 
      
      
         4437
         
         
             #
      
      
         4438
         
         
             if (/^\s*\s*$/) {
      
      
         4439
         
         
                 next if $end_of_para++;
      
      
         4440
         
         
             } else {
      
      
         4441
         
         
                 $end_of_para = 0;
      
      
         4442
         
         
             }
      
      
         4443
         
         
             # otherwise
      
      
         4444
         
         
             push(@doc_lines, $_);
      
      
         4445
         
         
         }
      
      
         4446
         
         
          
      
      
         4447
         
         
         print "# end of pass 4\n" if $T2H_VERBOSE;
      
      
         4448
         
         
          
      
      
         4449
         
         
         #+++############################################################################
      
      
         4450
         
         
         #                                                                              #
      
      
         4451
         
         
         # Pass 5: print things                                                         #
      
      
         4452
         
         
         #                                                                              #
      
      
         4453
         
         
         #---############################################################################
      
      
         4454
         
         
          
      
      
         4455
         
         
         $T2H_L2H = &l2h_FinishToLatex if ($T2H_L2H);
      
      
         4456
         
         
         $T2H_L2H = &l2h_ToHtml        if ($T2H_L2H);
      
      
         4457
         
         
         $T2H_L2H = &l2h_InitFromHtml  if ($T2H_L2H);
      
      
         4458
         
         
          
      
      
         4459
         
         
         # fix node2up, node2prev, node2next, if desired
      
      
         4460
         
         
         if ($has_top_command)
      
      
         4461
         
         
         {
      
      
         4462
         
         
           for $section (keys %sec2number)
      
      
         4463
         
         
           {
      
      
         4464
         
         
             $node = $sec2node{$section};
      
      
         4465
         
         
             $node2up{$node} = Sec2UpNode($section) unless $node2up{$node};
      
      
         4466
         
         
             $node2prev{$node} = Sec2PrevNode($section) unless $node2prev{$node};
      
      
         4467
         
         
             $node2next{$node} = Sec2NextNode($section) unless $node2next{$node};
      
      
         4468
         
         
           }
      
      
         4469
         
         
         }
      
      
         4470
         
         
          
      
      
         4471
         
         
         # prepare %T2H_THISDOC
      
      
         4472
         
         
         $T2H_THISDOC{fulltitle} = $value{'_title'} || $value{'_settitle'} || "Untitled Document";
      
      
         4473
         
         
         $T2H_THISDOC{title} = $value{'_settitle'} || $T2H_THISDOC{fulltitle};
      
      
         4474
         
         
         $T2H_THISDOC{author} = $value{'_author'};
      
      
         4475
         
         
         $T2H_THISDOC{subtitle} = $value{'_subtitle'};
      
      
         4476
         
         
         $T2H_THISDOC{shorttitle} = $value{'_shorttitle'};
      
      
         4477
         
         
         for $key (keys %T2H_THISDOC)
      
      
         4478
         
         
         {
      
      
         4479
         
         
           $_ = &substitute_style($T2H_THISDOC{$key});
      
      
         4480
         
         
           &unprotect_texi;
      
      
         4481
         
         
           s/\s*$//;
      
      
         4482
         
         
           $T2H_THISDOC{$key} = $_;
      
      
         4483
         
         
         }
      
      
         4484
         
         
          
      
      
         4485
         
         
         # if no sections, then simply print document as is
      
      
         4486
         
         
         unless (@sections)
      
      
         4487
         
         
         {
      
      
         4488
         
         
           print "# Writing content into $docu_top_file \n" if $T2H_VERBOSE;
      
      
         4489
         
         
           open(FILE, "> $docu_top_file")
      
      
         4490
         
         
             || die "$ERROR: Can't open $docu_top_file for writing: $!\n";
      
      
         4491
         
         
          
      
      
         4492
         
         
           &$T2H_print_page_head(\*FILE);
      
      
         4493
         
         
           $T2H_THIS_SECTION = \@doc_lines;
      
      
         4494
         
         
           t2h_print_lines(\*FILE);
      
      
         4495
         
         
           &$T2H_print_foot_navigation(\*FILE);
      
      
         4496
         
         
           &$T2H_print_page_foot(\*FILE);
      
      
         4497
         
         
           close(FILE);
      
      
         4498
         
         
           goto Finish;
      
      
         4499
         
         
         }
      
      
         4500
         
         
          
      
      
         4501
         
         
         # initialize $T2H_HREF, $T2H_NAME
      
      
         4502
         
         
         %T2H_HREF =
      
      
         4503
         
         
           (
      
      
         4504
         
         
            'First' ,   sec_href($sections[0]),
      
      
         4505
         
         
            'Last',     sec_href($sections[$#sections]),
      
      
         4506
         
         
            'About',     $docu_about. '#SEC_About',
      
      
         4507
         
         
           );
      
      
         4508
         
         
          
      
      
         4509
         
         
         # prepare TOC, OVERVIEW, TOP
      
      
         4510
         
         
         $T2H_TOC = \@toc_lines;
      
      
         4511
         
         
         $T2H_OVERVIEW = \@stoc_lines;
      
      
         4512
         
         
         if ($has_top)
      
      
         4513
         
         
         {
      
      
         4514
         
         
           while (1)
      
      
         4515
         
         
           {
      
      
         4516
         
         
             $_ = shift @doc_lines;
      
      
         4517
         
         
             last if /$TOPEND/;
      
      
         4518
         
         
             push @$T2H_TOP, $_;
      
      
         4519
         
         
           }
      
      
         4520
         
         
           $T2H_HREF{'Top'} = $docu_top . '#SEC_Top';
      
      
         4521
         
         
         }
      
      
         4522
         
         
         else
      
      
         4523
         
         
         {
      
      
         4524
         
         
           $T2H_HREF{'Top'} = $T2H_HREF{First};
      
      
         4525
         
         
         }
      
      
         4526
         
         
          
      
      
         4527
         
         
         $node2href{Top} = $T2H_HREF{Top};
      
      
         4528
         
         
         $T2H_HREF{Contents} = $docu_toc.'#SEC_Contents' if @toc_lines;
      
      
         4529
         
         
         $T2H_HREF{Overview} = $docu_stoc.'#SEC_OVERVIEW' if @stoc_lines;
      
      
         4530
         
         
          
      
      
         4531
         
         
         # settle on index
      
      
         4532
         
         
         if ($T2H_INDEX_CHAPTER)
      
      
         4533
         
         
         {
      
      
         4534
         
         
           $T2H_HREF{Index} = $node2href{normalise_node($T2H_INDEX_CHAPTER)};
      
      
         4535
         
         
           warn "$ERROR T2H_INDEX_CHAPTER '$T2H_INDEX_CHAPTER' not found\n"
      
      
         4536
         
         
             unless $T2H_HREF{Index};
      
      
         4537
         
         
         }
      
      
         4538
         
         
         if (! $T2H_HREF{Index} && $first_index_chapter)
      
      
         4539
         
         
         {
      
      
         4540
         
         
           $T2H_INDEX_CHAPTER = $first_index_chapter;
      
      
         4541
         
         
           $T2H_HREF{Index} = $node2href{$T2H_INDEX_CHAPTER};
      
      
         4542
         
         
         }
      
      
         4543
         
         
          
      
      
         4544
         
         
         print "# Using '" . clean_name($T2H_INDEX_CHAPTER) . "' as index page\n"
      
      
         4545
         
         
           if ($T2H_VERBOSE && $T2H_HREF{Index});
      
      
         4546
         
         
          
      
      
         4547
         
         
         %T2H_NAME =
      
      
         4548
         
         
           (
      
      
         4549
         
         
            'First',   clean_name($sec2node{$sections[0]}),
      
      
         4550
         
         
            'Last',    clean_name($sec2node{$sections[$#sections]}),
      
      
         4551
         
         
            'About',    $T2H_WORDS->{$T2H_LANG}->{'About_Title'},
      
      
         4552
         
         
            'Contents', $T2H_WORDS->{$T2H_LANG}->{'ToC_Title'},
      
      
         4553
         
         
            'Overview', $T2H_WORDS->{$T2H_LANG}->{'Overview_Title'},
      
      
         4554
         
         
            'Index' ,   clean_name($T2H_INDEX_CHAPTER),
      
      
         4555
         
         
            'Top',      clean_name($T2H_TOP_HEADING || $T2H_THISDOC{'title'} || $T2H_THISDOC{'shorttitle'}),
      
      
         4556
         
         
           );
      
      
         4557
         
         
          
      
      
         4558
         
         
         #############################################################################
      
      
         4559
         
         
         # print frame and frame toc file
      
      
         4560
         
         
         #
      
      
         4561
         
         
         if ( $T2H_FRAMES )
      
      
         4562
         
         
         {
      
      
         4563
         
         
           open(FILE, "> $docu_frame_file")
      
      
         4564
         
         
             || die "$ERROR: Can't open $docu_frame_file for writing: $!\n";
      
      
         4565
         
         
           print "# Creating frame in $docu_frame_file ...\n" if $T2H_VERBOSE;
      
      
         4566
         
         
           &$T2H_print_frame(\*FILE);
      
      
         4567
         
         
           close(FILE);
      
      
         4568
         
         
          
      
      
         4569
         
         
           open(FILE, "> $docu_toc_frame_file")
      
      
         4570
         
         
             || die "$ERROR: Can't open $docu_toc_frame_file for writing: $!\n";
      
      
         4571
         
         
           print "# Creating toc frame in $docu_frame_file ...\n" if $T2H_VERBOSE;
      
      
         4572
         
         
            &$T2H_print_toc_frame(\*FILE);
      
      
         4573
         
         
           close(FILE);
      
      
         4574
         
         
         }
      
      
         4575
         
         
          
      
      
         4576
         
         
          
      
      
         4577
         
         
         #############################################################################
      
      
         4578
         
         
         # print Top
      
      
         4579
         
         
         #
      
      
         4580
         
         
         open(FILE, "> $docu_top_file")
      
      
         4581
         
         
           || die "$ERROR: Can't open $docu_top_file for writing: $!\n";
      
      
         4582
         
         
         &$T2H_print_page_head(\*FILE) unless ($T2H_SPLIT);
      
      
         4583
         
         
          
      
      
         4584
         
         
         if ($has_top)
      
      
         4585
         
         
         {
      
      
         4586
         
         
           print "# Creating Top in $docu_top_file ...\n" if $T2H_VERBOSE;
      
      
         4587
         
         
           $T2H_THIS_SECTION = $T2H_TOP;
      
      
         4588
         
         
           $T2H_HREF{This} = $T2H_HREF{Top};
      
      
         4589
         
         
           $T2H_NAME{This} = $T2H_NAME{Top};
      
      
         4590
         
         
           &$T2H_print_Top(\*FILE);
      
      
         4591
         
         
         }
      
      
         4592
         
         
          
      
      
         4593
         
         
         close(FILE) if $T2H_SPLIT;
      
      
         4594
         
         
          
      
      
         4595
         
         
         #############################################################################
      
      
         4596
         
         
         # Print sections
      
      
         4597
         
         
         #
      
      
         4598
         
         
         $T2H_NODE{Forward} = $sec2node{$sections[0]};
      
      
         4599
         
         
         $T2H_NAME{Forward} = &clean_name($sec2node{$sections[0]});
      
      
         4600
         
         
         $T2H_HREF{Forward} = sec_href($sections[0]);
      
      
         4601
         
         
         $T2H_NODE{This} = 'Top';
      
      
         4602
         
         
         $T2H_NAME{This} = $T2H_NAME{Top};
      
      
         4603
         
         
         $T2H_HREF{This} = $T2H_HREF{Top};
      
      
         4604
         
         
         if ($T2H_SPLIT)
      
      
         4605
         
         
         {
      
      
         4606
         
         
           print "# writing " . scalar(@sections) .
      
      
         4607
         
         
             " sections in $docu_rdir$docu_name"."_[1..$doc_num]"
      
      
         4608
         
         
                   if $T2H_VERBOSE;
      
      
         4609
         
         
           $previous = ($T2H_SPLIT eq 'chapter' ? $CHAPTEREND : $SECTIONEND);
      
      
         4610
         
         
           undef $FH;
      
      
         4611
         
         
           $doc_num = 0;
      
      
         4612
         
         
         }
      
      
         4613
         
         
         else
      
      
         4614
         
         
         {
      
      
         4615
         
         
           print "# writing " . scalar(@sections) . " sections in $docu_top_file ..."
      
      
         4616
         
         
             if $T2H_VERBOSE;
      
      
         4617
         
         
           $FH = \*FILE;
      
      
         4618
         
         
           $previous = '';
      
      
         4619
         
         
         }
      
      
         4620
         
         
          
      
      
         4621
         
         
         $counter = 0;
      
      
         4622
         
         
         # loop through sections
      
      
         4623
         
         
         while ($section = shift(@sections))
      
      
         4624
         
         
         {
      
      
         4625
         
         
           if ($T2H_SPLIT && ($T2H_SPLIT eq 'section' || $previous eq $CHAPTEREND))
      
      
         4626
         
         
           {
      
      
         4627
         
         
             if ($FH)
      
      
         4628
         
         
             {
      
      
         4629
         
         
               #close previous page
      
      
         4630
         
         
               &$T2H_print_chapter_footer($FH) if $T2H_SPLIT eq 'chapter';
      
      
         4631
         
         
               &$T2H_print_page_foot($FH);
      
      
         4632
         
         
               close($FH);
      
      
         4633
         
         
               undef $FH;
      
      
         4634
         
         
             }
      
      
         4635
         
         
           }
      
      
         4636
         
         
           $T2H_NAME{Back} = $T2H_NAME{This};
      
      
         4637
         
         
           $T2H_HREF{Back} = $T2H_HREF{This};
      
      
         4638
         
         
           $T2H_NODE{Back} = $T2H_NODE{This};
      
      
         4639
         
         
           $T2H_NAME{This} = $T2H_NAME{Forward};
      
      
         4640
         
         
           $T2H_HREF{This} = $T2H_HREF{Forward};
      
      
         4641
         
         
           $T2H_NODE{This} = $T2H_NODE{Forward};
      
      
         4642
         
         
           if ($sections[0])
      
      
         4643
         
         
           {
      
      
         4644
         
         
             $T2H_NODE{Forward} = $sec2node{$sections[0]};
      
      
         4645
         
         
             $T2H_NAME{Forward} = &clean_name($T2H_NODE{Forward});
      
      
         4646
         
         
             $T2H_HREF{Forward} = sec_href($sections[0]);
      
      
         4647
         
         
           }
      
      
         4648
         
         
           else
      
      
         4649
         
         
           {
      
      
         4650
         
         
             undef $T2H_HREF{Forward}, $T2H_NODE{Forward}, $T2H_NAME{Forward};
      
      
         4651
         
         
           }
      
      
         4652
         
         
          
      
      
         4653
         
         
           $node = $node2up{$T2H_NODE{This}};
      
      
         4654
         
         
           $T2H_HREF{Up} = $node2href{$node};
      
      
         4655
         
         
           if ($T2H_HREF{Up} eq $T2H_HREF{This} || ! $T2H_HREF{Up})
      
      
         4656
         
         
           {
      
      
         4657
         
         
             $T2H_NAME{Up} = $T2H_NAME{Top};
      
      
         4658
         
         
             $T2H_HREF{Up} = $T2H_HREF{Top};
      
      
         4659
         
         
             $T2H_NODE{Up} = 'Up';
      
      
         4660
         
         
           }
      
      
         4661
         
         
           else
      
      
         4662
         
         
           {
      
      
         4663
         
         
             $T2H_NAME{Up} = &clean_name($node);
      
      
         4664
         
         
             $T2H_NODE{Up} = $node;
      
      
         4665
         
         
           }
      
      
         4666
         
         
          
      
      
         4667
         
         
           $node = $T2H_NODE{This};
      
      
         4668
         
         
           $node = $node2prev{$node};
      
      
         4669
         
         
           $T2H_NAME{Prev} = &clean_name($node);
      
      
         4670
         
         
           $T2H_HREF{Prev} = $node2href{$node};
      
      
         4671
         
         
           $T2H_NODE{Prev} = $node;
      
      
         4672
         
         
          
      
      
         4673
         
         
           $node = $T2H_NODE{This};
      
      
         4674
         
         
           if ($node2up{$node} && $node2up{$node} ne 'Top'&&
      
      
         4675
         
         
               ($node2prev{$node} eq $T2H_NODE{Back} || ! $node2prev{$node}))
      
      
         4676
         
         
           {
      
      
         4677
         
         
             $node = $node2up{$node};
      
      
         4678
         
         
             while ($node && $node ne $node2up{$node} && ! $node2prev{$node})
      
      
         4679
         
         
             {
      
      
         4680
         
         
               $node = $node2up{$node};
      
      
         4681
         
         
             }
      
      
         4682
         
         
             $node = $node2prev{$node}
      
      
         4683
         
         
               unless $node2up{$node} eq 'Top' || ! $node2up{$node};
      
      
         4684
         
         
           }
      
      
         4685
         
         
           else
      
      
         4686
         
         
           {
      
      
         4687
         
         
             $node = $node2prev{$node};
      
      
         4688
         
         
           }
      
      
         4689
         
         
           $T2H_NAME{FastBack} = &clean_name($node);
      
      
         4690
         
         
           $T2H_HREF{FastBack} = $node2href{$node};
      
      
         4691
         
         
           $T2H_NODE{FastBack} = $node;
      
      
         4692
         
         
          
      
      
         4693
         
         
           $node = $T2H_NODE{This};
      
      
         4694
         
         
           $node = $node2next{$node};
      
      
         4695
         
         
           $T2H_NAME{Next} = &clean_name($node);
      
      
         4696
         
         
           $T2H_HREF{Next} = $node2href{$node};
      
      
         4697
         
         
           $T2H_NODE{Next} = $node;
      
      
         4698
         
         
          
      
      
         4699
         
         
           $node = $T2H_NODE{This};
      
      
         4700
         
         
           if ($node2up{$node} && $node2up{$node} ne 'Top'&&
      
      
         4701
         
         
               ($node2next{$node} eq $T2H_NODE{Forward} || ! $node2next{$node}))
      
      
         4702
         
         
           {
      
      
         4703
         
         
             $node = $node2up{$node};
      
      
         4704
         
         
             while ($node && $node ne $node2up{$node} && ! $node2next{$node})
      
      
         4705
         
         
             {
      
      
         4706
         
         
               $node = $node2up{$node};
      
      
         4707
         
         
             }
      
      
         4708
         
         
           }
      
      
         4709
         
         
           $node = $node2next{$node};
      
      
         4710
         
         
           $T2H_NAME{FastForward} = &clean_name($node);
      
      
         4711
         
         
           $T2H_HREF{FastForward} = $node2href{$node};
      
      
         4712
         
         
           $T2H_NODE{FastForward} = $node;
      
      
         4713
         
         
          
      
      
         4714
         
         
           if (! defined($FH))
      
      
         4715
         
         
           {
      
      
         4716
         
         
             my $file = $T2H_HREF{This};
      
      
         4717
         
         
             $file =~ s/\#.*$//;
      
      
         4718
         
         
             open(FILE, "> $docu_rdir$file") ||
      
      
         4719
         
         
               die "$ERROR: Can't open $docu_rdir$file for writing: $!\n";
      
      
         4720
         
         
             $FH = \*FILE;
      
      
         4721
         
         
             &$T2H_print_page_head($FH);
      
      
         4722
         
         
             t2h_print_label($FH);
      
      
         4723
         
         
             &$T2H_print_chapter_header($FH) if $T2H_SPLIT eq 'chapter';
      
      
         4724
         
         
           }
      
      
         4725
         
         
           else
      
      
         4726
         
         
           {
      
      
         4727
         
         
             t2h_print_label($FH);
      
      
         4728
         
         
           }
      
      
         4729
         
         
          
      
      
         4730
         
         
           $T2H_THIS_SECTION = [];
      
      
         4731
         
         
           while (@doc_lines) {
      
      
         4732
         
         
             $_ = shift(@doc_lines);
      
      
         4733
         
         
             last if ($_ eq $SECTIONEND || $_ eq $CHAPTEREND);
      
      
         4734
         
         
             push(@$T2H_THIS_SECTION, $_);
      
      
         4735
         
         
           }
      
      
         4736
         
         
           $previous = $_;
      
      
         4737
         
         
           &$T2H_print_section($FH);
      
      
         4738
         
         
          
      
      
         4739
         
         
           if ($T2H_VERBOSE)
      
      
         4740
         
         
           {
      
      
         4741
         
         
             $counter++;
      
      
         4742
         
         
             print "." if $counter =~ /00$/;
      
      
         4743
         
         
           }
      
      
         4744
         
         
         }
      
      
         4745
         
         
         if ($T2H_SPLIT)
      
      
         4746
         
         
         {
      
      
         4747
         
         
           &$T2H_print_chapter_footer($FH) if $T2H_SPLIT eq 'chapter';
      
      
         4748
         
         
           &$T2H_print_page_foot($FH);
      
      
         4749
         
         
           close($FH);
      
      
         4750
         
         
         }
      
      
         4751
         
         
         print "\n" if $T2H_VERBOSE;
      
      
         4752
         
         
          
      
      
         4753
         
         
         #############################################################################
      
      
         4754
         
         
         # Print ToC, Overview, Footnotes
      
      
         4755
         
         
         #
      
      
         4756
         
         
         undef $T2H_HREF{Prev};
      
      
         4757
         
         
         undef $T2H_HREF{Next};
      
      
         4758
         
         
         undef $T2H_HREF{Back};
      
      
         4759
         
         
         undef $T2H_HREF{Forward};
      
      
         4760
         
         
         undef $T2H_HREF{Up};
      
      
         4761
         
         
          
      
      
         4762
         
         
         if (@foot_lines)
      
      
         4763
         
         
         {
      
      
         4764
         
         
           print "# writing Footnotes in $docu_foot_file...\n" if $T2H_VERBOSE;
      
      
         4765
         
         
           open (FILE, "> $docu_foot_file") || die "$ERROR: Can't open $docu_foot_file for writing: $!\n"
      
      
         4766
         
         
               if $T2H_SPLIT;
      
      
         4767
         
         
           $T2H_HREF{This} = $docu_foot;
      
      
         4768
         
         
           $T2H_NAME{This} = $T2H_WORDS->{$T2H_LANG}->{'Footnotes_Title'};
      
      
         4769
         
         
           $T2H_THIS_SECTION = \@foot_lines;
      
      
         4770
         
         
           &$T2H_print_Footnotes(\*FILE);
      
      
         4771
         
         
           close(FILE) if $T2H_SPLIT;
      
      
         4772
         
         
         }
      
      
         4773
         
         
          
      
      
         4774
         
         
         if (@toc_lines)
      
      
         4775
         
         
         {
      
      
         4776
         
         
           print "# writing Toc in $docu_toc_file...\n" if $T2H_VERBOSE;
      
      
         4777
         
         
           open (FILE, "> $docu_toc_file") || die "$ERROR: Can't open $docu_toc_file for writing: $!\n"
      
      
         4778
         
         
               if $T2H_SPLIT;
      
      
         4779
         
         
           $T2H_HREF{This} = $T2H_HREF{Contents};
      
      
         4780
         
         
           $T2H_NAME{This} = $T2H_NAME{Contents};
      
      
         4781
         
         
           $T2H_THIS_SECTION = \@toc_lines;
      
      
         4782
         
         
           &$T2H_print_Toc(\*FILE);
      
      
         4783
         
         
           close(FILE) if $T2H_SPLIT;
      
      
         4784
         
         
         }
      
      
         4785
         
         
          
      
      
         4786
         
         
         if (@stoc_lines)
      
      
         4787
         
         
         {
      
      
         4788
         
         
           print "# writing Overview in $docu_stoc_file...\n" if $T2H_VERBOSE;
      
      
         4789
         
         
           open (FILE, "> $docu_stoc_file") || die "$ERROR: Can't open $docu_stoc_file for writing: $!\n"
      
      
         4790
         
         
               if $T2H_SPLIT;
      
      
         4791
         
         
          
      
      
         4792
         
         
           $T2H_HREF{This} = $T2H_HREF{Overview};
      
      
         4793
         
         
           $T2H_NAME{This} = $T2H_NAME{Overview};
      
      
         4794
         
         
           $T2H_THIS_SECTION = \@stoc_lines;
      
      
         4795
         
         
           unshift @$T2H_THIS_SECTION, "\n";
      
      
         4796
         
         
           push @$T2H_THIS_SECTION, "\n\n";
      
      
         4797
         
         
           &$T2H_print_Overview(\*FILE);
      
      
         4798
         
         
           close(FILE) if $T2H_SPLIT;
      
      
         4799
         
         
         }
      
      
         4800
         
         
          
      
      
         4801
         
         
         if ($about_body = &$T2H_about_body())
      
      
         4802
         
         
         {
      
      
         4803
         
         
           print "# writing About in $docu_about_file...\n" if $T2H_VERBOSE;
      
      
         4804
         
         
           open (FILE, "> $docu_about_file") || die "$ERROR: Can't open $docu_about_file for writing: $!\n"
      
      
         4805
         
         
               if $T2H_SPLIT;
      
      
         4806
         
         
          
      
      
         4807
         
         
           $T2H_HREF{This} = $T2H_HREF{About};
      
      
         4808
         
         
           $T2H_NAME{This} = $T2H_NAME{About};
      
      
         4809
         
         
           $T2H_THIS_SECTION = [$about_body];
      
      
         4810
         
         
           &$T2H_print_About(\*FILE);
      
      
         4811
         
         
           close(FILE) if $T2H_SPLIT;
      
      
         4812
         
         
         }
      
      
         4813
         
         
          
      
      
         4814
         
         
         unless ($T2H_SPLIT)
      
      
         4815
         
         
         {
      
      
         4816
         
         
           &$T2H_print_page_foot(\*FILE);
      
      
         4817
         
         
           close (FILE);
      
      
         4818
         
         
         }
      
      
         4819
         
         
          
      
      
         4820
         
         
         Finish:
      
      
         4821
         
         
         &l2h_FinishFromHtml if ($T2H_L2H);
      
      
         4822
         
         
         &l2h_Finish if($T2H_L2H);
      
      
         4823
         
         
         print "# that's all folks\n" if $T2H_VERBOSE;
      
      
         4824
         
         
          
      
      
         4825
         
         
         exit(0);
      
      
         4826
         
         
          
      
      
         4827
         
         
         #+++############################################################################
      
      
         4828
         
         
         #                                                                              #
      
      
         4829
         
         
         # Low level functions                                                          #
      
      
         4830
         
         
         #                                                                              #
      
      
         4831
         
         
         #---############################################################################
      
      
         4832
         
         
          
      
      
         4833
         
         
         sub LocateIncludeFile
      
      
         4834
         
         
         {
      
      
         4835
         
         
           my $file = shift;
      
      
         4836
         
         
           my $dir;
      
      
         4837
         
         
          
      
      
         4838
         
         
           return $file if (-e $file && -r $file);
      
      
         4839
         
         
           foreach $dir (@T2H_INCLUDE_DIRS)
      
      
         4840
         
         
           {
      
      
         4841
         
         
             return "$dir/$file" if (-e "$dir/$file" && -r "$dir/$file");
      
      
         4842
         
         
           }
      
      
         4843
         
         
           return undef;
      
      
         4844
         
         
         }
      
      
         4845
         
         
          
      
      
         4846
         
         
         sub clean_name
      
      
         4847
         
         
         {
      
      
         4848
         
         
           local ($_);
      
      
         4849
         
         
           $_ = &remove_style($_[0]);
      
      
         4850
         
         
           &unprotect_texi;
      
      
         4851
         
         
           return $_;
      
      
         4852
         
         
         }
      
      
         4853
         
         
          
      
      
         4854
         
         
         sub update_sec_num {
      
      
         4855
         
         
             local($name, $level) = @_;
      
      
         4856
         
         
             my $ret;
      
      
         4857
         
         
          
      
      
         4858
         
         
             $level--; # here we start at 0
      
      
         4859
         
         
             if ($name =~ /^appendix/ || defined(@appendix_sec_num)) {
      
      
         4860
         
         
                 # appendix style
      
      
         4861
         
         
                 if (defined(@appendix_sec_num)) {
      
      
         4862
         
         
                     &incr_sec_num($level, @appendix_sec_num);
      
      
         4863
         
         
                 } else {
      
      
         4864
         
         
                     @appendix_sec_num = ('A', 0, 0, 0);
      
      
         4865
         
         
                 }
      
      
         4866
         
         
                 $ret = join('.', @appendix_sec_num[0..$level]);
      
      
         4867
         
         
             } else {
      
      
         4868
         
         
                 # normal style
      
      
         4869
         
         
                 if (defined(@normal_sec_num))
      
      
         4870
         
         
                 {
      
      
         4871
         
         
                   &incr_sec_num($level, @normal_sec_num);
      
      
         4872
         
         
                 }
      
      
         4873
         
         
                 else
      
      
         4874
         
         
                 {
      
      
         4875
         
         
                   @normal_sec_num = (1, 0, 0, 0);
      
      
         4876
         
         
                 }
      
      
         4877
         
         
                 $ret = join('.', @normal_sec_num[0..$level]);
      
      
         4878
         
         
             }
      
      
         4879
         
         
          
      
      
         4880
         
         
             $ret .= "." if $level == 0;
      
      
         4881
         
         
             return $ret;
      
      
         4882
         
         
         }
      
      
         4883
         
         
          
      
      
         4884
         
         
         sub incr_sec_num {
      
      
         4885
         
         
             local($level, $l);
      
      
         4886
         
         
             $level = shift(@_);
      
      
         4887
         
         
             $_[$level]++;
      
      
         4888
         
         
             foreach $l ($level+1 .. 3) {
      
      
         4889
         
         
                 $_[$l] = 0;
      
      
         4890
         
         
             }
      
      
         4891
         
         
         }
      
      
         4892
         
         
          
      
      
         4893
         
         
         sub Sec2UpNode
      
      
         4894
         
         
         {
      
      
         4895
         
         
           my $sec = shift;
      
      
         4896
         
         
           my $num = $sec2number{$sec};
      
      
         4897
         
         
          
      
      
         4898
         
         
           return '' unless $num;
      
      
         4899
         
         
           return 'Top' unless $num =~ /\.\d+/;
      
      
         4900
         
         
           $num =~ s/\.[^\.]*$//;
      
      
         4901
         
         
           $num = $num . '.' unless $num =~ /\./;
      
      
         4902
         
         
           return $sec2node{$number2sec{$num}};
      
      
         4903
         
         
         }
      
      
         4904
         
         
          
      
      
         4905
         
         
         sub Sec2PrevNode
      
      
         4906
         
         
         {
      
      
         4907
         
         
           my $sec = shift;
      
      
         4908
         
         
           my $num = $sec2number{$sec};
      
      
         4909
         
         
           my ($i, $post);
      
      
         4910
         
         
          
      
      
         4911
         
         
           if ($num =~ /(\w+)(\.$|$)/)
      
      
         4912
         
         
           {
      
      
         4913
         
         
             $num = $`;
      
      
         4914
         
         
             $i = $1;
      
      
         4915
         
         
             $post = $2;
      
      
         4916
         
         
             if ($i eq 'A')
      
      
         4917
         
         
             {
      
      
         4918
         
         
               $i = $normal_sec_num[0];
      
      
         4919
         
         
             }
      
      
         4920
         
         
             elsif ($i ne '1')
      
      
         4921
         
         
             {
      
      
         4922
         
         
               # unfortunately, -- operator is not magical
      
      
         4923
         
         
               $i = chr(ord($i) + 1);
      
      
         4924
         
         
             }
      
      
         4925
         
         
             else
      
      
         4926
         
         
             {
      
      
         4927
         
         
               return '';
      
      
         4928
         
         
             }
      
      
         4929
         
         
             return $sec2node{$number2sec{$num . $i . $post}}
      
      
         4930
         
         
           }
      
      
         4931
         
         
           return '';
      
      
         4932
         
         
         }
      
      
         4933
         
         
          
      
      
         4934
         
         
         sub Sec2NextNode
      
      
         4935
         
         
         {
      
      
         4936
         
         
           my $sec = shift;
      
      
         4937
         
         
           my $num = $sec2number{$sec};
      
      
         4938
         
         
           my $i;
      
      
         4939
         
         
          
      
      
         4940
         
         
           if ($num =~ /(\w+)(\.$|$)/)
      
      
         4941
         
         
           {
      
      
         4942
         
         
             $num = $`;
      
      
         4943
         
         
             $i = $1;
      
      
         4944
         
         
             $post = $2;
      
      
         4945
         
         
             if ($post eq '.' && $i eq $normal_sec_num[0])
      
      
         4946
         
         
             {
      
      
         4947
         
         
               $i = 'A';
      
      
         4948
         
         
             }
      
      
         4949
         
         
             else
      
      
         4950
         
         
             {
      
      
         4951
         
         
               $i++;
      
      
         4952
         
         
             }
      
      
         4953
         
         
             return $sec2node{$number2sec{$num . $i . $post}}
      
      
         4954
         
         
           }
      
      
         4955
         
         
           return '';
      
      
         4956
         
         
         }
      
      
         4957
         
         
          
      
      
         4958
         
         
         sub check {
      
      
         4959
         
         
             local($_, %seen, %context, $before, $match, $after);
      
      
         4960
         
         
          
      
      
         4961
         
         
             while (<>) {
      
      
         4962
         
         
                 if (/\@(\*|\.|\:|\@|\{|\})/) {
      
      
         4963
         
         
                     $seen{$&}++;
      
      
         4964
         
         
                     $context{$&} .= "> $_" if $T2H_VERBOSE;
      
      
         4965
         
         
                     $_ = "$`XX$'";
      
      
         4966
         
         
                     redo;
      
      
         4967
         
         
                 }
      
      
         4968
         
         
                 if (/\@(\w+)/) {
      
      
         4969
         
         
                     ($before, $match, $after) = ($`, $&, $');
      
      
         4970
         
         
                     if ($before =~ /\b[\w-]+$/ && $after =~ /^[\w-.]*\b/) { # e-mail address
      
      
         4971
         
         
                         $seen{'e-mail address'}++;
      
      
         4972
         
         
                         $context{'e-mail address'} .= "> $_" if $T2H_VERBOSE;
      
      
         4973
         
         
                     } else {
      
      
         4974
         
         
                         $seen{$match}++;
      
      
         4975
         
         
                         $context{$match} .= "> $_" if $T2H_VERBOSE;
      
      
         4976
         
         
                     }
      
      
         4977
         
         
                     $match =~ s/^\@/X/;
      
      
         4978
         
         
                     $_ = "$before$match$after";
      
      
         4979
         
         
                     redo;
      
      
         4980
         
         
                 }
      
      
         4981
         
         
             }
      
      
         4982
         
         
          
      
      
         4983
         
         
             foreach (sort(keys(%seen))) {
      
      
         4984
         
         
                 if ($T2H_VERBOSE) {
      
      
         4985
         
         
                     print "$_\n";
      
      
         4986
         
         
                     print $context{$_};
      
      
         4987
         
         
                 } else {
      
      
         4988
         
         
                     print "$_ ($seen{$_})\n";
      
      
         4989
         
         
                 }
      
      
         4990
         
         
             }
      
      
         4991
         
         
         }
      
      
         4992
         
         
          
      
      
         4993
         
         
         sub open {
      
      
         4994
         
         
             local($name) = @_;
      
      
         4995
         
         
          
      
      
         4996
         
         
             ++$fh_name;
      
      
         4997
         
         
             if (open($fh_name, $name)) {
      
      
         4998
         
         
                 unshift(@fhs, $fh_name);
      
      
         4999
         
         
             } else {
      
      
         5000
         
         
                 warn "$ERROR Can't read file $name: $!\n";
      
      
         5001
         
         
             }
      
      
         5002
         
         
         }
      
      
         5003
         
         
          
      
      
         5004
         
         
         sub init_input {
      
      
         5005
         
         
             @fhs = ();                  # hold the file handles to read
      
      
         5006
         
         
             @input_spool = ();          # spooled lines to read
      
      
         5007
         
         
             $fh_name = 'FH000';
      
      
         5008
         
         
             &open($docu);
      
      
         5009
         
         
         }
      
      
         5010
         
         
          
      
      
         5011
         
         
         sub next_line {
      
      
         5012
         
         
             local($fh, $line);
      
      
         5013
         
         
          
      
      
         5014
         
         
             if (@input_spool) {
      
      
         5015
         
         
                 $line = shift(@input_spool);
      
      
         5016
         
         
                 return($line);
      
      
         5017
         
         
             }
      
      
         5018
         
         
             while (@fhs) {
      
      
         5019
         
         
                 $fh = $fhs[0];
      
      
         5020
         
         
                 $line = <$fh>;
      
      
         5021
         
         
                 return($line) if $line;
      
      
         5022
         
         
                 close($fh);
      
      
         5023
         
         
                 shift(@fhs);
      
      
         5024
         
         
             }
      
      
         5025
         
         
             return(undef);
      
      
         5026
         
         
         }
      
      
         5027
         
         
          
      
      
         5028
         
         
         # used in pass 1, use &next_line
      
      
         5029
         
         
         sub skip_until {
      
      
         5030
         
         
             local($tag) = @_;
      
      
         5031
         
         
             local($_);
      
      
         5032
         
         
          
      
      
         5033
         
         
             while ($_ = &next_line) {
      
      
         5034
         
         
                 return if /^\@end\s+$tag\s*$/;
      
      
         5035
         
         
             }
      
      
         5036
         
         
             die "* Failed to find '$tag' after: " . $lines[$#lines];
      
      
         5037
         
         
         }
      
      
         5038
         
         
          
      
      
         5039
         
         
         # used in pass 1 for l2h use &next_line
      
      
         5040
         
         
         sub string_until {
      
      
         5041
         
         
             local($tag) = @_;
      
      
         5042
         
         
             local($_, $string);
      
      
         5043
         
         
          
      
      
         5044
         
         
             while ($_ = &next_line) {
      
      
         5045
         
         
                 return $string if /^\@end\s+$tag\s*$/;
      
      
         5046
         
         
         #       $_ =~ s/hbox/mbox/g;
      
      
         5047
         
         
                 $string = $string.$_;
      
      
         5048
         
         
             }
      
      
         5049
         
         
             die "* Failed to find '$tag' after: " . $lines[$#lines];
      
      
         5050
         
         
         }
      
      
         5051
         
         
          
      
      
         5052
         
         
         #
      
      
         5053
         
         
         # HTML stacking to have a better HTML output
      
      
         5054
         
         
         #
      
      
         5055
         
         
          
      
      
         5056
         
         
         sub html_reset {
      
      
         5057
         
         
             @html_stack = ('html');
      
      
         5058
         
         
             $html_element = 'body';
      
      
         5059
         
         
         }
      
      
         5060
         
         
          
      
      
         5061
         
         
         sub html_push {
      
      
         5062
         
         
             local($what) = @_;
      
      
         5063
         
         
             push(@html_stack, $html_element);
      
      
         5064
         
         
             $html_element = $what;
      
      
         5065
         
         
         }
      
      
         5066
         
         
          
      
      
         5067
         
         
         sub html_push_if {
      
      
         5068
         
         
             local($what) = @_;
      
      
         5069
         
         
             push(@html_stack, $html_element)
      
      
         5070
         
         
                 if ($html_element && $html_element ne 'P');
      
      
         5071
         
         
             $html_element = $what;
      
      
         5072
         
         
         }
      
      
         5073
         
         
          
      
      
         5074
         
         
         sub html_pop {
      
      
         5075
         
         
             $html_element = pop(@html_stack);
      
      
         5076
         
         
         }
      
      
         5077
         
         
          
      
      
         5078
         
         
         sub html_pop_if {
      
      
         5079
         
         
             local($elt);
      
      
         5080
         
         
          
      
      
         5081
         
         
             if (@_) {
      
      
         5082
         
         
                 foreach $elt (@_) {
      
      
         5083
         
         
                     if ($elt eq $html_element) {
      
      
         5084
         
         
                         $html_element = pop(@html_stack) if @html_stack;
      
      
         5085
         
         
                         last;
      
      
         5086
         
         
                     }
      
      
         5087
         
         
                 }
      
      
         5088
         
         
             } else {
      
      
         5089
         
         
                 $html_element = pop(@html_stack) if @html_stack;
      
      
         5090
         
         
             }
      
      
         5091
         
         
         }
      
      
         5092
         
         
          
      
      
         5093
         
         
         sub html_debug {
      
      
         5094
         
         
             local($what, $line) = @_;
      
      
         5095
         
         
             if ($T2H_DEBUG & $DEBUG_HTML)
      
      
         5096
         
         
             {
      
      
         5097
         
         
              $what = "\n" unless $what;
      
      
         5098
         
         
              return("$what")
      
      
         5099
         
         
             }
      
      
         5100
         
         
             return($what);
      
      
         5101
         
         
         }
      
      
         5102
         
         
          
      
      
         5103
         
         
         # to debug the output...
      
      
         5104
         
         
         sub debug {
      
      
         5105
         
         
             local($what, $line) = @_;
      
      
         5106
         
         
             return("$what")
      
      
         5107
         
         
                 if $T2H_DEBUG & $DEBUG_HTML;
      
      
         5108
         
         
             return($what);
      
      
         5109
         
         
         }
      
      
         5110
         
         
          
      
      
         5111
         
         
         sub SimpleTexi2Html
      
      
         5112
         
         
         {
      
      
         5113
         
         
           local $_ = $_[0];
      
      
         5114
         
         
           &protect_texi;
      
      
         5115
         
         
           &protect_html;
      
      
         5116
         
         
           $_ = substitute_style($_);
      
      
         5117
         
         
           $_[0]  = $_;
      
      
         5118
         
         
         }
      
      
         5119
         
         
          
      
      
         5120
         
         
         sub normalise_node {
      
      
         5121
         
         
           local $_ = $_[0];
      
      
         5122
         
         
           s/\s+/ /g;
      
      
         5123
         
         
           s/ $//;
      
      
         5124
         
         
           s/^ //;
      
      
         5125
         
         
           &protect_texi;
      
      
         5126
         
         
           &protect_html;
      
      
         5127
         
         
           $_ = substitute_style($_);
      
      
         5128
         
         
           $_[0]  = $_;
      
      
         5129
         
         
         }
      
      
         5130
         
         
          
      
      
         5131
         
         
         sub menu_entry
      
      
         5132
         
         
         {
      
      
         5133
         
         
           my ($node, $name, $descr) = @_;
      
      
         5134
         
         
           my ($href, $entry);
      
      
         5135
         
         
          
      
      
         5136
         
         
           &normalise_node($node);
      
      
         5137
         
         
           $href = $node2href{$node};
      
      
         5138
         
         
           if ($href)
      
      
         5139
         
         
           {
      
      
         5140
         
         
             $descr =~ s/^\s+//;
      
      
         5141
         
         
             $descr =~ s/\s*$//;
      
      
         5142
         
         
             $descr = SimpleTexi2Html($descr);
      
      
         5143
         
         
             if ($T2H_NUMBER_SECTIONS && !$T2H_NODE_NAME_IN_MENU && $node2sec{$node})
      
      
         5144
         
         
             {
      
      
         5145
         
         
               $entry = $node2sec{$node};
      
      
         5146
         
         
               $name = '';
      
      
         5147
         
         
             }
      
      
         5148
         
         
             else
      
      
         5149
         
         
             {
      
      
         5150
         
         
               &normalise_node($name);
      
      
         5151
         
         
               $entry = ($name && ($name ne $node || ! $T2H_AVOID_MENU_REDUNDANCY)
      
      
         5152
         
         
                         ? "$name : $node" : $node);
      
      
         5153
         
         
             }
      
      
         5154
         
         
          
      
      
         5155
         
         
             if ($T2H_AVOID_MENU_REDUNDANCY && $descr)
      
      
         5156
         
         
             {
      
      
         5157
         
         
               my $clean_entry = $entry;
      
      
         5158
         
         
               $clean_entry =~ s/^.*? // if ($clean_entry =~ /^([A-Z]|\d+)\.[\d\.]* /);
      
      
         5159
         
         
               $clean_entry =~ s/[^\w]//g;
      
      
         5160
         
         
               my $clean_descr = $descr;
      
      
         5161
         
         
               $clean_descr =~ s/[^\w]//g;
      
      
         5162
         
         
               $descr = '' if ($clean_entry eq $clean_descr)
      
      
         5163
         
         
             }
      
      
         5164
         
         
             push(@lines2,&debug('
' .
      
      
         5165
         
         
                                 &t2h_anchor('', $href, $entry) .
      
      
         5166
         
         
                                 '    ' .
      
      
         5167
         
         
                                 $descr .
      
      
         5168
         
         
                                 "
      
      
         5169
         
         
           }
      
      
         5170
         
         
           elsif ($node =~ /^\(.*\)\w+/)
      
      
         5171
         
         
           {
      
      
         5172
         
         
             push(@lines2,&debug('
' .
      
      
         5173
         
         
                                 $entry .
      
      
         5174
         
         
                                 ' ' . $descr .
      
      
         5175
         
         
                                 "
      
      
         5176
         
         
           }
      
      
         5177
         
         
           else
      
      
         5178
         
         
           {
      
      
         5179
         
         
             warn "$ERROR Undefined node of menu_entry ($node): $_";
      
      
         5180
         
         
           }
      
      
         5181
         
         
         }
      
      
         5182
         
         
          
      
      
         5183
         
         
         sub do_ctrl { "^$_[0]" }
      
      
         5184
         
         
          
      
      
         5185
         
         
         sub do_email {
      
      
         5186
         
         
             local($addr, $text) = split(/,\s*/, $_[0]);
      
      
         5187
         
         
          
      
      
         5188
         
         
             $text = $addr unless $text;
      
      
         5189
         
         
             &t2h_anchor('', "mailto:$addr", $text);
      
      
         5190
         
         
         }
      
      
         5191
         
         
          
      
      
         5192
         
         
         sub do_sc
      
      
         5193
         
         
         {
      
      
         5194
         
         
           # l2h does this much better
      
      
         5195
         
         
           return &l2h_ToLatex("{\\sc ".&unprotect_html($_[0])."}") if ($T2H_L2H);
      
      
         5196
         
         
           return "\U$_[0]\E";
      
      
         5197
         
         
         }
      
      
         5198
         
         
          
      
      
         5199
         
         
         sub do_math
      
      
         5200
         
         
         {
      
      
         5201
         
         
           return &l2h_ToLatex("\$".&unprotect_html($_[0])."\$") if ($T2H_L2H);
      
      
         5202
         
         
           return "".$text."";
      
      
         5203
         
         
         }
      
      
         5204
         
         
          
      
      
         5205
         
         
         sub do_uref {
      
      
         5206
         
         
             local($url, $text, $only_text) = split(/,\s*/, $_[0]);
      
      
         5207
         
         
          
      
      
         5208
         
         
             $text = $only_text if $only_text;
      
      
         5209
         
         
             $text = $url unless $text;
      
      
         5210
         
         
             &t2h_anchor('', $url, $text);
      
      
         5211
         
         
         }
      
      
         5212
         
         
          
      
      
         5213
         
         
         sub do_url { &t2h_anchor('', $_[0], $_[0]) }
      
      
         5214
         
         
          
      
      
         5215
         
         
         sub do_acronym
      
      
         5216
         
         
         {
      
      
         5217
         
         
           return '' . $_[0] . '';
      
      
         5218
         
         
         }
      
      
         5219
         
         
          
      
      
         5220
         
         
         sub do_accent
      
      
         5221
         
         
         {
      
      
         5222
         
         
           return "&$_[0]acute;" if $_[1] eq 'H';
      
      
         5223
         
         
           return "$_[0]." if $_[1] eq 'dotaccent';
      
      
         5224
         
         
           return "$_[0]*" if $_[1] eq 'ringaccent';
      
      
         5225
         
         
           return "$_[0]".'[' if $_[1] eq 'tieaccent';
      
      
         5226
         
         
           return "$_[0]".'(' if $_[1] eq 'u';
      
      
         5227
         
         
           return "$_[0]_" if $_[1] eq 'ubaraccent';
      
      
         5228
         
         
           return ".$_[0]" if $_[1] eq 'udotaccent';
      
      
         5229
         
         
           return "$_[0]<" if $_[1] eq 'v';
      
      
         5230
         
         
           return "&$_[0]cedil;" if $_[1] eq ',';
      
      
         5231
         
         
           return "$_[0]" if $_[1] eq 'dotless';
      
      
         5232
         
         
           return undef;
      
      
         5233
         
         
         }
      
      
         5234
         
         
          
      
      
         5235
         
         
         sub apply_style {
      
      
         5236
         
         
             local($texi_style, $text) = @_;
      
      
         5237
         
         
             local($style);
      
      
         5238
         
         
          
      
      
         5239
         
         
             $style = $style_map{$texi_style};
      
      
         5240
         
         
             if (defined($style)) { # known style
      
      
         5241
         
         
                 if ($style =~ /^\"/) { # add quotes
      
      
         5242
         
         
                     $style = $';
      
      
         5243
         
         
                     $text = "\`$text\'";
      
      
         5244
         
         
                 }
      
      
         5245
         
         
                 if ($style =~ /^\&/) { # custom
      
      
         5246
         
         
                     $style = $';
      
      
         5247
         
         
                     $text = &$style($text, $texi_style);
      
      
         5248
         
         
                 } elsif ($style) { # good style
      
      
         5249
         
         
                     $text = "<$style>$text";
      
      
         5250
         
         
                 } else { # no style
      
      
         5251
         
         
                 }
      
      
         5252
         
         
             } else { # unknown style
      
      
         5253
         
         
                 $text = undef;
      
      
         5254
         
         
             }
      
      
         5255
         
         
             return($text);
      
      
         5256
         
         
         }
      
      
         5257
         
         
          
      
      
         5258
         
         
         # remove Texinfo styles
      
      
         5259
         
         
         sub remove_style {
      
      
         5260
         
         
             local($_) = @_;
      
      
         5261
         
         
             1 while(s/\@\w+{([^\{\}]+)}/$1/g);
      
      
         5262
         
         
             return($_);
      
      
         5263
         
         
         }
      
      
         5264
         
         
          
      
      
         5265
         
         
         sub remove_things
      
      
         5266
         
         
         {
      
      
         5267
         
         
           local ($_) = @_;
      
      
         5268
         
         
           s|\@(\w+)\{\}|$1|g;
      
      
         5269
         
         
           return $_;
      
      
         5270
         
         
         }
      
      
         5271
         
         
          
      
      
         5272
         
         
         sub substitute_style {
      
      
         5273
         
         
             local($_) = @_;
      
      
         5274
         
         
             local($changed, $done, $style, $text);
      
      
         5275
         
         
          
      
      
         5276
         
         
             &simple_substitutions;
      
      
         5277
         
         
             $changed = 1;
      
      
         5278
         
         
             while ($changed) {
      
      
         5279
         
         
                 $changed = 0;
      
      
         5280
         
         
                 $done = '';
      
      
         5281
         
         
                 while (/\@(\w+){([^\{\}]+)}/ || /\@(,){([^\{\}]+)}/) {
      
      
         5282
         
         
                     $text = &apply_style($1, $2);
      
      
         5283
         
         
                     if ($text) {
      
      
         5284
         
         
                         $_ = "$`$text$'";
      
      
         5285
         
         
                         $changed = 1;
      
      
         5286
         
         
                     } else {
      
      
         5287
         
         
                         $done .= "$`\@$1";
      
      
         5288
         
         
                         $_ = "{$2}$'";
      
      
         5289
         
         
                     }
      
      
         5290
         
         
                 }
      
      
         5291
         
         
                 $_ = $done . $_;
      
      
         5292
         
         
             }
      
      
         5293
         
         
             return($_);
      
      
         5294
         
         
         }
      
      
         5295
         
         
          
      
      
         5296
         
         
         sub t2h_anchor {
      
      
         5297
         
         
             local($name, $href, $text, $newline, $extra_attribs) = @_;
      
      
         5298
         
         
             local($result);
      
      
         5299
         
         
          
      
      
         5300
         
         
             $result = "
      
      
         5301
         
         
             $result .= " NAME=\"$name\"" if $name;
      
      
         5302
         
         
             if ($href)
      
      
         5303
         
         
             {
      
      
         5304
         
         
               $href =~ s|^$T2H_HREF_DIR_INSTEAD_FILE|./|
      
      
         5305
         
         
                 if ($T2H_HREF_DIR_INSTEAD_FILE);
      
      
         5306
         
         
               $result .= ($href =~ /\"/ ? " HREF='$href'"  : " HREF=\"$href\"");
      
      
         5307
         
         
             }
      
      
         5308
         
         
             $result .= " $extra_attribs" if $extra_attribs;
      
      
         5309
         
         
             $result .= ">$text";
      
      
         5310
         
         
             $result .= "\n" if $newline;
      
      
         5311
         
         
             return($result);
      
      
         5312
         
         
         }
      
      
         5313
         
         
          
      
      
         5314
         
         
         sub pretty_date {
      
      
         5315
         
         
             local(@MoY, $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
      
      
         5316
         
         
          
      
      
         5317
         
         
             @MoY = ('January', 'February', 'March', 'April', 'May', 'June',
      
      
         5318
         
         
                     'July', 'August', 'September', 'October', 'November', 'December');
      
      
         5319
         
         
             ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
      
      
         5320
         
         
             $year += ($year < 70) ? 2000 : 1900;
      
      
         5321
         
         
             # obachman: Let's do it as the Americans do
      
      
         5322
         
         
             return("$MoY[$mon], $mday  $year");
      
      
         5323
         
         
         }
      
      
         5324
         
         
          
      
      
         5325
         
         
         sub doc_href {
      
      
         5326
         
         
             local($num) = @_;
      
      
         5327
         
         
          
      
      
         5328
         
         
             return("${docu_name}_$num.$docu_ext");
      
      
         5329
         
         
         }
      
      
         5330
         
         
          
      
      
         5331
         
         
         sub sec_href
      
      
         5332
         
         
         {
      
      
         5333
         
         
           return $node2href{$sec2node{$_[0]}};
      
      
         5334
         
         
         }
      
      
         5335
         
         
          
      
      
         5336
         
         
         sub next_doc {
      
      
         5337
         
         
             $docu_doc = &doc_href(++$doc_num);
      
      
         5338
         
         
         }
      
      
         5339
         
         
          
      
      
         5340
         
         
         sub t2h_print_lines {
      
      
         5341
         
         
             my ($fh, $lines) = @_;
      
      
         5342
         
         
             local($_);
      
      
         5343
         
         
             $lines = $T2H_THIS_SECTION unless $lines;
      
      
         5344
         
         
             my $cnt = 0;
      
      
         5345
         
         
             for (@$lines)
      
      
         5346
         
         
             {
      
      
         5347
         
         
                 $_ = l2h_FromHtml($_) if ($T2H_L2H);
      
      
         5348
         
         
                 if (/^$PROTECTTAG/o) {
      
      
         5349
         
         
                     $_ = $tag2pro{$_};
      
      
         5350
         
         
                 } else {
      
      
         5351
         
         
                     &unprotect_texi;
      
      
         5352
         
         
                 }
      
      
         5353
         
         
                 print $fh $_;
      
      
         5354
         
         
                 $cnt += split(/\W*\s+\W*/);
      
      
         5355
         
         
             }
      
      
         5356
         
         
             return $cnt;
      
      
         5357
         
         
         }
      
      
         5358
         
         
          
      
      
         5359
         
         
         sub protect_texi {
      
      
         5360
         
         
             # protect @ { } ` '
      
      
         5361
         
         
             s/\@\@/$;0/go;
      
      
         5362
         
         
             s/\@\{/$;1/go;
      
      
         5363
         
         
             s/\@\}/$;2/go;
      
      
         5364
         
         
             s/\@\`/$;3/go;
      
      
         5365
         
         
             s/\@\'/$;4/go;
      
      
         5366
         
         
         }
      
      
         5367
         
         
          
      
      
         5368
         
         
         sub protect_html {
      
      
         5369
         
         
             local($what) = @_;
      
      
         5370
         
         
             # protect & < >
      
      
         5371
         
         
             $what =~ s/\&/\&\#38;/g;
      
      
         5372
         
         
             $what =~ s/\
      
      
         5373
         
         
             $what =~ s/\>/\&\#62;/g;
      
      
         5374
         
         
             # restore anything in quotes
      
      
         5375
         
         
             # this fixes my problem where I had:
      
      
         5376
         
         
             # < IMG SRC="leftarrow.gif" ALT="<--" >  but what if I wanted < in my ALT text ??
      
      
         5377
         
         
             # maybe byte stuffing or some other technique should be used.
      
      
         5378
         
         
             $what =~ s/\"([^\&]+)\&\#60;(.*)\"/"$1<$2"/g;
      
      
         5379
         
         
             $what =~ s/\"([^\&]+)\&\#62;(.*)\"/"$1>$2"/g;
      
      
         5380
         
         
             $what =~ s/\"([^\&]+)\&\#38;(.*)\"/"$1&$2"/g;
      
      
         5381
         
         
             # but recognize some HTML things
      
      
         5382
         
         
             $what =~ s/\&\#60;\/A\&\#62;/<\/A>/g;            # 
      
      
         5383
         
         
             $what =~ s/\&\#60;A ([^\&]+)\&\#62;//g;     # 
      
      
         5384
         
         
             $what =~ s/\&\#60;IMG ([^\&]+)\&\#62;//g; # 
      
      
         5385
         
         
             return($what);
      
      
         5386
         
         
         }
      
      
         5387
         
         
          
      
      
         5388
         
         
         sub unprotect_texi {
      
      
         5389
         
         
             s/$;0/\@/go;
      
      
         5390
         
         
             s/$;1/\{/go;
      
      
         5391
         
         
             s/$;2/\}/go;
      
      
         5392
         
         
             s/$;3/\`/go;
      
      
         5393
         
         
             s/$;4/\'/go;
      
      
         5394
         
         
         }
      
      
         5395
         
         
          
      
      
         5396
         
         
         sub Unprotect_texi
      
      
         5397
         
         
         {
      
      
         5398
         
         
           local $_ = shift;
      
      
         5399
         
         
           &unprotect_texi;
      
      
         5400
         
         
           return($_);
      
      
         5401
         
         
         }
      
      
         5402
         
         
          
      
      
         5403
         
         
         sub unprotect_html {
      
      
         5404
         
         
             local($what) = @_;
      
      
         5405
         
         
             $what =~ s/\&\#38;/\&/g;
      
      
         5406
         
         
             $what =~ s/\&\#60;/\
      
      
         5407
         
         
             $what =~ s/\&\#62;/\>/g;
      
      
         5408
         
         
             return($what);
      
      
         5409
         
         
         }
      
      
         5410
         
         
          
      
      
         5411
         
         
         sub t2h_print_label
      
      
         5412
         
         
         {
      
      
         5413
         
         
             my $fh = shift;
      
      
         5414
         
         
             my $href = shift || $T2H_HREF{This};
      
      
         5415
         
         
             $href =~ s/.*#(.*)$/$1/;
      
      
         5416
         
         
             print $fh qq{\n};
      
      
         5417
         
         
         }
      
      
         5418
         
         
          
      
      
         5419
         
         
         ##############################################################################
      
      
         5420
         
         
          
      
      
         5421
         
         
                 # These next few lines are legal in both Perl and nroff.
      
      
         5422
         
         
          
      
      
         5423
         
         
         .00 ;                   # finish .ig
      
      
         5424
         
         
          
      
      
         5425
         
         
         'di                     \" finish diversion--previous line must be blank
      
      
         5426
         
         
         .nr nl 0-1              \" fake up transition to first page again
      
      
         5427
         
         
         .nr % 0                 \" start at page 1
      
      
         5428
         
         
         '; __END__ ############# From here on it's a standard manual page ############
      
      
         5429
         
         
         .so /usr/local/man/man1/texi2html.1



    powered by: WebSVN 2.1.0


    
        © copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [readline/] [doc/] [texi2html] - Blame information for rev 853

$T2H_NAME{Top}

`" .`

`", split(/\n/, $T2H_THISDOC{fulltitle})) .`

$T2H_THISDOC{subtitle}

Overview:

$T2H_NAME{This}

Content

$page->{name}

" . &t2h_anchor($footid, "$d#$docid", $foot) . "