URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [readline/] [doc/] [texi2html] - Rev 856
Go to most recent revision | Compare with Previous | Blame | View Log
#! /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 higherrequire 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 = <<EOT;http://www.mathematik.uni-kl.de/~obachman/Texi2htmlEOT# Authors:$T2H_AUTHORS = <<EOT;Written by: Lionel Cons <Lionel.Cons\@cern.ch> (original author)Karl Berry <karl\@freefriends.org>Olaf Bachmann <obachman\@mathematik.uni-kl.de>and many others.Maintained by: Olaf Bachmann <obachman\@mathematik.uni-kl.de>Send bugs and suggestions to <texi2html\@mathematik.uni-kl.de>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 implementedeval { ($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 <your_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 = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">';$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, <basename of document>.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 <docname>.html',};# -toc_file# uses file of this name for table of contents file# extension is manipulated appropriately, if necessary.# If empty, <basename of document>_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 <docname>_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 <docname>',};# -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 <td></td>$T2H_EXAMPLE_INDENT_CELL = '<td> </td>';# same as above, only for @small$T2H_SMALL_EXAMPLE_INDENT_CELL = '<td> </td>';# 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->{<language>}->{<word>} = '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_<fnc>* routines,# give them another name, and assign them to the respective# $T2H_<fnc> 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 '<HR SIZE="6">' . "\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 filesub 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 printedlocal $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 headerprint $fh "<H1>$T2H_NAME{Top}</H1>"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, Overviewprint $fh"<CENTER>\n<H1>" .join("</H1>\n<H1>", split(/\n/, $T2H_THISDOC{fulltitle})) ."</H1>\n";print $fh "<H2>$T2H_THISDOC{subtitle}</H2>\n" if $T2H_THISDOC{subtitle};print $fh "$T2H_THISDOC{author}\n" if $T2H_THISDOC{author};print $fh <<EOT;</CENTER><HR><P></P><H2> Overview: </H2><BLOCKQUOTE>EOTt2h_print_lines($fh, $T2H_OVERVIEW);print $fh "</BLOCKQUOTE>\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 buttonssub 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 sett2h_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 "<H1>$T2H_NAME{This}</H1>\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 defaultif (! $T2H_SECTION_NAVIGATION){my $fh = shift;local $T2H_BUTTONS = \@T2H_CHAPTER_BUTTONS;&$T2H_print_navigation($fh);print $fh "\n<HR SIZE=2>\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 doreturn($MONTH_NAMES->{$T2H_LANG}[$mon] . ", " . $mday . " " . $year);}#################################################################### Layout of standard header and footer## Set the default body text, inserted between <BODY ... >###$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 <BODY ...>$T2H_AFTER_BODY_OPEN = '';#text inserted before </BODY>$T2H_PRE_BODY_CLOSE = '';# this is used in footer$T2H_ADDRESS = "by <I>$T2H_USER</I> " if $T2H_USER;$T2H_ADDRESS .= "on <I>$T2H_TODAY</I>";# this is added inside <HEAD></HEAD> after <TITLE> and some META NAME stuff# can be used for <style> <script>, <meta> tags$T2H_EXTRA_HEAD = '';sub T2H_DEFAULT_print_page_head{my $fh = shift;my $longtitle = "$T2H_THISDOC{title}: $T2H_NAME{This}";print $fh <<EOT;<HTML>$T2H_DOCTYPE<!-- Created on $T2H_TODAY by $THISPROG --><!--$T2H_AUTHORS--><HEAD><TITLE>$longtitle</TITLE><META NAME="description" CONTENT="$longtitle"><META NAME="keywords" CONTENT="$longtitle"><META NAME="resource-type" CONTENT="document"><META NAME="distribution" CONTENT="global"><META NAME="Generator" CONTENT="$THISPROG">$T2H_EXTRA_HEAD</HEAD><BODY $T2H_BODYTEXT>$T2H_AFTER_BODY_OPENEOT}sub T2H_DEFAULT_print_page_foot{my $fh = shift;print $fh <<EOT;<BR><FONT SIZE="-1">This document was generated$T2H_ADDRESSusing <A HREF="$T2H_HOMEPAGE"><I>texi2html</I></A>$T2H_PRE_BODY_CLOSE</BODY></HTML>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;<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0"><TR VALIGN="TOP"><TD ALIGN="LEFT">EOT}&$T2H_print_navigation($fh, $T2H_VERTICAL_HEAD_NAVIGATION);if ($T2H_VERTICAL_HEAD_NAVIGATION){print $fh <<EOT;</TD><TD ALIGN="LEFT">EOT}elsif ($T2H_SPLIT eq 'section'){print $fh "<HR SIZE=1>\n";}}# Specifies the minimum page length required before a navigation panel# is placed at the bottom of a page (the default is that of latex2html)# T2H_THIS_WORDS_IN_PAGE holds number of words of current page$T2H_WORDS_IN_PAGE = 300;sub T2H_DEFAULT_print_foot_navigation{my $fh = shift;my $nwords = shift;if ($T2H_VERTICAL_HEAD_NAVIGATION){print $fh <<EOT;</TD></TR></TABLE>EOT}print $fh "<HR SIZE=1>\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 tagsub T2H_DEFAULT_button_icon_img{my $button = shift;my $icon = shift;my $name = shift;return qq{<IMG SRC="$icon" BORDER="0" ALT="$button: $name" ALIGN="MIDDLE">};}# 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 "<TABLE CELLPADDING=$spacing CELLSPACING=$spacing BORDER=0>\n";print $fh "<TR>" unless $vertical;for $button (@$T2H_BUTTONS){print $fh qq{<TR VALIGN="TOP" ALIGN="LEFT">\n} if $vertical;print $fh qq{<TD VALIGN="MIDDLE" ALIGN="LEFT">};if (ref($button) eq 'CODE'){&$button($fh, $vertical);}elsif ($button eq ' '){ # handle space buttonprint $fh$T2H_ICONS && $T2H_ACTIVE_ICONS{' '} ?&$T2H_button_icon_img($button, $T2H_ACTIVE_ICONS{' '}) :$T2H_NAVIGATION_TEXT{' '};next;}elsif ($T2H_HREF{$button}){ # button is activeprint $fh$T2H_ICONS && $T2H_ACTIVE_ICONS{$button} ? # use icon ?t2h_anchor('', $T2H_HREF{$button}, # yes&$T2H_button_icon_img($button,$T2H_ACTIVE_ICONS{$button},$T2H_NAME{$button})): # use text"[" .t2h_anchor('', $T2H_HREF{$button}, $T2H_NAVIGATION_TEXT{$button}) ."]";}else{ # button is passiveprint $fh$T2H_ICONS && $T2H_PASSIVE_ICONS{$button} ?&$T2H_button_icon_img($button,$T2H_PASSIVE_ICONS{$button},$T2H_NAME{$button}) :"[" . $T2H_NAVIGATION_TEXT{$button} . "]";}print $fh "</TD>\n";print $fh "</TR>\n" if $vertical;}print $fh "</TR>" unless $vertical;print $fh "</TABLE>\n";}####################################################################### Frames: this is from "Richard Y. Kim" <ryk@coho.net># Should be improved to be more conforming to other _print* functionssub T2H_DEFAULT_print_frame{my $fh = shift;print $fh <<EOT;<HTML><HEAD><TITLE>$T2H_THISDOC{title}</TITLE></HEAD><FRAMESET cols="140,*"><FRAME name=toc src="$docu_toc_frame_file"><FRAME name=main src="$docu_doc"></FRAMESET></HTML>EOT}sub T2H_DEFAULT_print_toc_frame{my $fh = shift;&$T2H_print_page_head($fh);print $fh <<EOT;<H2>Content</H2>EOTprint $fh map {s/HREF=/target=\"main\" HREF=/; $_;} @stoc_lines;print $fh "</BODY></HTML>\n";}####################################################################### About page## T2H_PRE_ABOUT might be a function$T2H_PRE_ABOUT = <<EOT;This document was generated $T2H_ADDRESSusing <A HREF="$T2H_HOMEPAGE"><I>texi2html</I></A><P></P>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 .= <<EOT;The buttons in the navigation panels have the following meaning:<P></P><table border = "1"><TR><TH> Button </TH><TH> Name </TH><TH> Go to </TH><TH> From 1.2.3 go to</TH></TR>EOTfor $button (@T2H_SECTION_BUTTONS){next if $button eq ' ' || ref($button) eq 'CODE';$about .= <<EOT;<TR><TD ALIGN="CENTER">EOT$about .=($T2H_ICONS && $T2H_ACTIVE_ICONS{$button} ?&$T2H_button_icon_img($button, $T2H_ACTIVE_ICONS{$button}) :" [" . $T2H_NAVIGATION_TEXT{$button} . "] ");$about .= <<EOT;</TD><TD ALIGN="CENTER">$button</TD><TD>$T2H_BUTTONS_GOTO{$button}</TD><TD>$T2H_BUTTONS_EXAMPLE{$button}</TD></TR>EOT}$about .= <<EOT;</TABLE><P></P>where the <STRONG> Example </STRONG> assumes that the current positionis at <STRONG> Subsubsection One-Two-Three </STRONG> of a document ofthe following structure:<UL><LI> 1. Section One </LI><UL><LI>1.1 Subsection One-One</LI><UL><LI> ... </LI></UL><LI>1.2 Subsection One-Two</LI><UL><LI>1.2.1 Subsubsection One-Two-One</LI><LI>1.2.2 Subsubsection One-Two-Two</LI><LI>1.2.3 Subsubsection One-Two-Three <STRONG><== Current Position </STRONG></LI><LI>1.2.4 Subsubsection One-Two-Four</LI></UL><LI>1.3 Subsection One-Three</LI><UL><LI> ... </LI></UL><LI>1.4 Subsection One-Four</LI></UL></UL>$T2H_AFTER_ABOUTEOTreturn $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 <<EOT;Note: 'Options' may be abbreviated. 'Type' specifications mean:<none>| ! no argument: variable is set to 1 on -foo (or, to 0 on -nofoo)=s | :s mandatory (or, optional) string argument=i | :i mandatory (or, optional) integer argumentEOT} # 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.pmrequire "$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 = "<!-- End chapter -->\n"; # to know where a chpater ends$SECTIONEND = "<!-- End section -->\n"; # to know where section ends$TOPEND = "<!-- End top -->\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"*", "<BR>", # HTML+" ", " ","\t", " ","-", "­", # soft hyphen"\n", "\n","|", "",'tab', '<\/TD><TD>',# spacing commands":", "","!", "!","?", "?",".", ".","-", "",);## texinfo "things" (@foo{}) to HTML ones#%things_map = ('TeX', 'TeX','br', '<P>', # paragraph break'bullet', '*','copyright', '(C)','dots', '<small>...<\/small>','enddots', '<small>....<\/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{"<TABLE><tr>$T2H_EXAMPLE_INDENT_CELL<td class=example><pre>"},q{'</pre></td></tr></table>'}],smallexample =>[q{"<TABLE><tr>$T2H_SMALL_EXAMPLE_INDENT_CELL<td class=smallexample><FONT SIZE=$T2H_SMALL_FONT_SIZE><pre>"},q{'</FONT></pre></td></tr></table>'}],display =>[q{"<TABLE><tr>$T2H_EXAMPLE_INDENT_CELL<td class=display><pre " . 'style="font-family: serif">'},q{'</pre></td></tr></table>'}],smalldisplay =>[q{"<TABLE><tr>$T2H_SMALL_EXAMPLE_INDENT_CELL<td class=smalldisplay><FONT SIZE=$T2H_SMALL_FONT_SIZE><pre " . 'style="font-family: serif">'},q{'</pre></FONT></td></tr></table>'}]};$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-filesub 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 -langsub 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/.texi2htmlrcmy $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 = <<EOT;Usage: texi2html [OPTIONS] TEXINFO-FILETranslates Texinfo source documentation to HTML.EOT$T2H_FAILURE_TEXT = <<EOT;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 = $@ && <<EOT;**WARNING: Parsing of obsolete command-line options could have failed.Consider to use only documented command-line options (run'texi2html -help 2' for a complete list) or upgrade to perlversion 5.005 or higher.EOTif (! $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 = '<IMG SRC="invisible.xbm">' 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);# subdirif ($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 = '';}}# extensionif ($T2H_SHORTEXTN){$docu_ext = "htm";}else{$docu_ext = "html";}if ($T2H_TOP_FILE =~ /\..*$/){$T2H_TOP_FILE = $`.".$docu_ext";}# result filesif (! $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 @fooforeach ('_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 directoryif (-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 directoryif (-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 namessub 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 = <<EOT;% This document was automatically generated by the l2h extenstion of texi2html% DO NOT EDIT !!!\\documentclass{article}\\usepackage{html}\\begin{document}EOT$l2h_latex_closing = <<EOT;\\end{document}EOT# return used latex 1, if l2h could be initalized properly, 0 otherwisesub 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 cachingl2h_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 textsub l2h_ToLatex{my($text) = @_;my($count);$l2h_to_latex_count++;$text =~ s/(\s*)$//;# try whether we can cache itmy $cached_text = l2h_FromCache($text);if ($cached_text){$l2h_cached_count++;return $cached_text;}# try whether we have text already on things to dounless ($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 "<!-- l2h_begin ${l2h_name} ${count} -->\n";print L2H_LATEX "\\end{rawhtml}\n";print L2H_LATEX "$text\n";print L2H_LATEX "\\begin{rawhtml}\n";print L2H_LATEX "<!-- l2h_end ${l2h_name} ${count} -->\n";print L2H_LATEX "\\end{rawhtml}\n";}}return "<!-- l2h_replace ${l2h_name} ${count} -->";}# print closing into latex file and close itsub 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 workif ($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 latex2htmlsub 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 = <L2H_HTML>){if ($h_line =~ /^<!-- l2h_begin $l2h_name ([0-9]+) -->/){$count = $1;$h_content = "";while ($h_line = <L2H_HTML>){if ($h_line =~ /^<!-- l2h_end $l2h_name $count -->/){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]*)<!-- l2h_replace $l2h_name ([0-9]+) -->([^\000]*)/){$to_do = $1;$count = $2;$done = $3.$done;$done = "<!-- l2h_end $l2h_name $count -->".$doneif ($T2H_DEBUG & $DEBUG_L2H);$done = &l2h_ExtractFromHtml($count) . $done;$done = "<!-- l2h_begin $l2h_name $count -->".$doneif ($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 troublelocal($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;$_ = "<!-- l2h: ". __LINE__ . " use texi2html -->" . $_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 "<!-- l2h: ". __LINE__ . " out of range count $count -->"if ($T2H_DEBUG & $DEBUG_L2H);return "<!-- l2h: out of range count $count -->";}}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 itsub 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 wellsub 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 charactersforeach (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 argumentss/\@value{($VARRE)}/$value{$1}/eg;############################################################## macro substitutionwhile (/\@(\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 nodeif ($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 fileif ($T2H_EXPAND eq 'tex' && $T2H_L2H && ! $in_pre){# add space to the end -- tex(i2dvi) does this, as wellpush(@lines, &l2h_ToLatex(&string_until($tag) . " "));}else{&skip_until($tag);}next;}if ($tag eq 'titlepage'){next;}# handle special tablesif ($tag =~ /^(|f|v|multi)table$/) {$table_type = $1;$tag = 'table';}# special casesif ($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" <ryk@ap.com>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("<A NAME='$node'></A>\n", __LINE__) :push @lines, &html_debug("<A NAME=\"$node\"></A>\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("<BLOCKQUOTE>\n", __LINE__))# if $tag =~ /example/i;# sunshine@sunshineco.com: <PRE>bla</PRE> looks better than# <PRE>\nbla</PRE> (at least on NeXTstep browserpush(@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 = '<pre>'}$in_pre = 1 if $start =~ /<pre/;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 cellspush(@lines, &debug("<TABLE>\n", __LINE__));&html_push_if('TABLE');} else {push(@lines, &debug("<DL COMPACT>\n", __LINE__));&html_push_if('DL');}push(@lines, &html_debug('', __LINE__));} else {warn "$ERROR Bad table line: $_";}next;}elsif ($tag eq 'synindex' || $tag eq 'syncodeindex'){if (/^\@$tag\s+(\w+)\s+(\w+)\s*$/){my $from = $1;my $to = $2;my $prefix_from = IndexName2Prefix($from);my $prefix_to = IndexName2Prefix($to);warn("$ERROR unknown from index name $from ind syn*index line: $_"), nextunless $prefix_from;warn("$ERROR unknown to index name $to ind syn*index line: $_"), nextunless $prefix_to;if ($tag eq 'syncodeindex'){$index_properties->{$prefix_to}->{'from_code'}->{$prefix_from} = 1;}else{$index_properties->{$prefix_to}->{'from'}->{$prefix_from} = 1;}}else{warn "$ERROR Bad syn*index line: $_";}next;}elsif ($tag eq 'defindex' || $tag eq 'defcodeindex'){if (/^\@$tag\s+(\w+)\s*$/){my $name = $1;$index_properties->{$name}->{name} = $name;$index_properties->{$name}->{code} = 1 if $tag eq 'defcodeindex';}else{warn "$ERROR Bad defindex line: $_";}next;}elsif (/^\@printindex/){push (@lines, "<!--::${section}::-->$_");next;}elsif ($tag eq 'sp') {push(@lines, &debug("<P>\n", __LINE__));next;} elsif ($tag eq 'center') {push(@lines, &debug("<center>\n", __LINE__));s/\@center//;} elsif ($tag eq 'setref') {&protect_html; # if setref contains '&' for instanceif (/^\@$tag\s*{($NODERE)}\s*$/) {$setref = $1;$setref =~ s/\s+/ /g; # normalize$setref =~ s/ $//;$node2sec{$setref} = $name;$sec2node{$name} = $setref;$node2href{$setref} = "$docu_doc#$docid";} else {warn "$ERROR Bad setref line: $_";}next;} elsif ($tag eq 'lowersections') {local ($sec, $level);while (($sec, $level) = each %sec2level) {$sec2level{$sec} = $level + 1;}next;} elsif ($tag eq 'raisesections') {local ($sec, $level);while (($sec, $level) = each %sec2level) {$sec2level{$sec} = $level - 1;}next;}elsif ($tag eq 'macro' || $tag eq 'rmacro'){if (/^\@$tag\s*(\w+)\s*(.*)/){my $name = $1;my @args;@args = split(/\s*,\s*/ , $1)if ($2 =~ /^\s*{(.*)}\s*/);$macros->{$name}->{Args} = \@args;$macros->{$name}->{Body} = '';while (($_ = &next_line) && $_ !~ /\@end $tag/){$macros->{$name}->{Body} .= $_;}die "ERROR: No closing '\@end $tag' found for macro definition of '$name'\n"unless (/\@end $tag/);chomp $macros->{$name}->{Body};}else{warn "$ERROR: Bad macro defintion $_"}next;}elsif ($tag eq 'unmacro'){delete $macros->{$1} if (/^\@unmacro\s*(\w+)/);next;}elsif ($tag eq 'documentlanguage'){SetDocumentLanguage($1) if (!$T2H_LANG && /documentlanguage\s*(\w+)/);}elsif (defined($def_map{$tag})) {if ($def_map{$tag}) {s/^\@$tag\s+//;$tag = $def_map{$tag};$_ = "\@$tag $_";$tag =~ s/\s.*//;}} elsif (defined($user_sub{$tag})) {s/^\@$tag\s+//;$sub = $user_sub{$tag};print "# user $tag = $sub, arg: $_" if $T2H_DEBUG & $DEBUG_USER;if (defined(&$sub)) {chop($_);&$sub($_);} else {warn "$ERROR Bad user sub for $tag: $sub\n";}next;}if (defined($def_map{$tag})) {s/^\@$tag\s+//;if ($tag =~ /x$/) {# extra definition line$tag = $`;$is_extra = 1;} else {$is_extra = 0;}while (/\{([^\{\}]*)\}/) {# this is a {} construct($before, $contents, $after) = ($`, $1, $');# protect spaces$contents =~ s/\s+/$;9/g;# restore $_ protecting {}$_ = "$before$;7$contents$;8$after";}@args = split(/\s+/, &protect_html($_));foreach (@args) {s/$;9/ /g; # unprotect spacess/$;7/\{/g; # ... {s/$;8/\}/g; # ... }}$type = shift(@args);$type =~ s/^\{(.*)\}$/$1/;print "# def ($tag): {$type} ", join(', ', @args), "\n"if $T2H_DEBUG & $DEBUG_DEF;$type .= ':'; # it's nicer like thismy $name = shift(@args);$name =~ s/^\{(.*)\}$/$1/;if ($is_extra) {$_ = &debug("<DT>", __LINE__);} else {$_ = &debug("<DL>\n<DT>", __LINE__);}if ($tag eq 'deffn' || $tag eq 'defvr' || $tag eq 'deftp') {$_ .= "<U>$type</U> <B>$name</B>";$_ .= " <I>@args</I>" if @args;} elsif ($tag eq 'deftypefn' || $tag eq 'deftypevr'|| $tag eq 'defcv' || $tag eq 'defop') {$ftype = $name;$name = shift(@args);$name =~ s/^\{(.*)\}$/$1/;$_ .= "<U>$type</U> $ftype <B>$name</B>";$_ .= " <I>@args</I>" if @args;} else {warn "$ERROR Unknown definition type: $tag\n";$_ .= "<U>$type</U> <B>$name</B>";$_ .= " <I>@args</I>" if @args;}$_ .= &debug("\n<DD>", __LINE__);$name = &unprotect_html($name);if ($tag eq 'deffn' || $tag eq 'deftypefn') {EnterIndexEntry('f', $name, $docu_doc, $section, \@lines);# unshift(@input_spool, "\@findex $name\n");} elsif ($tag eq 'defop') {EnterIndexEntry('f', "$name on $ftype", $docu_doc, $section, \@lines);# unshift(@input_spool, "\@findex $name on $ftype\n");} elsif ($tag eq 'defvr' || $tag eq 'deftypevr' || $tag eq 'defcv') {EnterIndexEntry('v', $name, $docu_doc, $section, \@lines);# unshift(@input_spool, "\@vindex $name\n");} else {EnterIndexEntry('t', $name, $docu_doc, $section, \@lines);# unshift(@input_spool, "\@tindex $name\n");}$dont_html = 1;}} elsif ($end_tag) {if ($format_map{$end_tag}) {$in_pre = 0 if $format_map{$end_tag} eq 'PRE';$in_list-- if $format_map{$end_tag} eq 'UL' || $format_map{$end_tag} eq 'OL' ;&html_pop_if('P');&html_pop_if('LI');&html_pop_if();push(@lines, &debug("</$format_map{$end_tag}>\n", __LINE__));push(@lines, &html_debug('', __LINE__));}elsif (exists $complex_format_map->{$end_tag}){my $end = eval $complex_format_map->{$end_tag}->[1];if ($@){print "$ERROR: eval of complex_format_map->{$end_tag}->[1] $complex_format_map->{$end_tag}->[0]: $@";$end = '</pre>'}$in_pre = 0 if $end =~ m|</pre>|;push(@lines, html_debug($end, __LINE__));} elsif ($end_tag =~ /^(|f|v|multi)table$/) {unless (@tables) {warn "$ERROR \@end $end_tag without \@*table\n";next;}&html_pop_if('P');($table_type, $in_table) = split($;, shift(@tables));unless ($1 eq $table_type) {warn "$ERROR \@end $end_tag without matching \@$end_tag\n";next;}if ($table_type eq "multi") {push(@lines, "</TR></TABLE>\n");&html_pop_if('TR');} else {push(@lines, "</DL>\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("</DL>\n", __LINE__));} elsif ($end_tag eq 'menu') {&html_pop_if();push(@lines, $_); # must keep it for pass 2}next;}############################################################## anchor insertionwhile (/\@anchor\s*\{(.*?)\}/){$_ = $`.$';my $anchor = $1;$anchor = &normalise_node($anchor);push @lines, &html_debug("<A NAME=\"$anchor\"></A>\n");$node2href{$anchor} = "$docu_doc#$anchor";next INPUT_LINE if $_ =~ /^\s*$/;}############################################################## index entry generation, after value substitutionsif (/^\@(\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 = $nameif ($level == 1 && !$first_index_chapter &&$name =~ /index/i);if ($in_top && /heading/){$T2H_HAS_TOP_HEADING = 1;$_ = &debug("<H$level>$name</H$level>\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 nodeif ($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 TOCwhile ($level > $curlevel) {$curlevel++;push(@toc_lines, "<UL>\n");}while ($level < $curlevel) {$curlevel--;push(@toc_lines, "</UL>\n");}$_ = &t2h_anchor($tocid, "$docu_doc#$docid", $name, 1);$_ = &substitute_style($_);push(@stoc_lines, "$_<BR>\n") if ($level == 1);if ($T2H_NUMBER_SECTIONS){push(@toc_lines, $_ . "<BR>\n")}else{push(@toc_lines, "<LI>" . $_ ."</LI>");}}else{push(@lines, &html_debug("<A NAME=\"$docid\"></A>\n",__LINE__));}# update DOCpush(@lines, &html_debug('', __LINE__));&html_reset;$_ = "<H$level> $name </H$level>\n<!--docid::${docid}::-->\n";$_ = &debug($_, __LINE__);push(@lines, &html_debug('', __LINE__));}# update DOCforeach $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 itemif (/^\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 instancepush(@lines, &debug("<DT>$things_map{$in_table}\n", __LINE__));} else {push(@lines, &debug("<DT>\@$in_table\{$what\}\n", __LINE__));}push(@lines, "<DD>");&html_push('DD') unless $html_element eq 'DD';if ($table_type) { # add also an indexunshift(@input_spool, "\@${table_type}index $what\n");}} elsif ($html_element eq 'TABLE') {push(@lines, &debug("<TR><TD>$what</TD>\n", __LINE__));&html_push('TR');} elsif ($html_element eq 'TR') {push(@lines, &debug("</TR>\n", __LINE__));push(@lines, &debug("<TR><TD>$what</TD>\n", __LINE__));} else {push(@lines, &debug("<LI>$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, "<TD>$1</TD>\n");next;}}}# paragraph separatorif ($_ eq "\n" && ! $in_pre) {next if $#lines >= 0 && $lines[$#lines] eq "\n";if ($html_element eq 'P') {push (@lines, &debug("</P><P>\n", __LINE__));}# else# {# push(@lines, "<P></P>\n");# $_ = &debug("<P></P>\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("<P>\n", __LINE__));}}# otherwisepush(@lines, $_) unless $in_titlepage;push(@lines, &debug("</center>\n", __LINE__)) if ($tag eq 'center');}# finish TOC$level = 0;while ($level < $curlevel) {$curlevel--;push(@toc_lines, "</UL>\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: $_", nextunless (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] =~ /^<!--docid::(.+)::-->$/){$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} = "<CODE>$entries->{$key}->{html_key}</CODE>";}}}}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 = '<table><tr><th valign=top>Jump to: </th><td>';for $page ($first_page, @$Pages){for $letter (@{$page->{Letters}}){$l = t2h_anchor('', "$page->{href}#${name}_$letter", "<b>$letter</b>",0, 'style="text-decoration:none"') . "\n \n";if ($letter =~ /^[A-Za-z]/){$l2 .= $l;}else{$l1 .= $l;}}}$summary .= $l1 . "<BR>\n" if ($l1);$summary .= $l2 . '</td></tr></table><br>';return $summary;}sub PrintIndexPage{my $lines = shift;my $summary = shift;my $page = shift;my $name = shift;push @$lines, $summary;push @$lines , <<EOT;<P></P><TABLE border=0><TR><TD></TD><TH ALIGN=LEFT>Index Entry</TH><TH ALIGN=LEFT> Section</TH></TR><TR><TD COLSPAN=3> <HR></TD></TR>EOTfor $letter (@{$page->{Letters}}){push @$lines, "<TR><TH><A NAME=\"${name}_$letter\"></A>$letter</TH><TD></TD><TD></TD></TR>\n";for $entry (@{$page->{EntriesByLetter}->{$letter}}){push @$lines,"<TR><TD></TD><TD valign=top>" .t2h_anchor('', $entry->{href}, $entry->{html_key}) ."</TD><TD valign=top>" .t2h_anchor('', sec_href($entry->{section}), clean_name($entry->{section})) ."</TD></TR>\n";}push @$lines, "<TR><TD COLSPAN=3> <HR></TD></TR>\n";}push @$lines, "</TABLE><P></P>";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"), returnunless $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 documentif (@$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, "<H2 ALIGN=\"Left\">$page->{name}</H2>\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 menuwhile (@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("<BLOCKQUOTE><TABLE BORDER=0 CELLSPACING=0> \n", __LINE__));next;}if (/^\@end\s+menu\b/){if ($in_menu_listing){push(@lines2, &debug("</TABLE></BLOCKQUOTE>\n", __LINE__));}else{push(@lines2, &debug("</BLOCKQUOTE>\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("</TABLE>\n", __LINE__));}# should be like verbatim -- preseve spaces, etcs/ /\ /g;$_ .= "<br>\n";push(@lines2, $_);}if ($node){if (! $in_menu_listing){$in_menu_listing = 1;push(@lines2, &debug("<TABLE BORDER=0 CELLSPACING=0>\n", __LINE__));}# look for continuationwhile ($lines[0] =~ /^\s+\w+/){$descr .= shift(@lines);}&menu_entry($node, $name, $descr);}next;}## printindex#PrintIndex(\@lines2, $2, $1), nextif (/^<!--::(.*)::-->\@printindex\s+(\w+)/);## simple style substitutions#$_ = &substitute_style($_);## xref#while (/\@(x|px|info|)ref{([^{}]+)(}?)/) {# note: Texinfo may accept other characters($type, $nodes, $full) = ($1, $2, $3);($before, $after) = ($`, $');if (! $full && $after) {warn "$ERROR Bad xref (no ending } on line): $_";$_ = "$before$;0${type}ref\{$nodes$after";next; # while xref}if ($type eq 'x') {$type = "$T2H_WORDS->{$T2H_LANG}->{'See'} ";} elsif ($type eq 'px') {$type = "$T2H_WORDS->{$T2H_LANG}->{'see'} ";} elsif ($type eq 'info') {$type = "$T2H_WORDS->{$T2H_LANG}->{'See'} Info";} else {$type = '';}unless ($full) {$next = shift(@lines);$next = &substitute_style($next);chop($nodes); # remove final newlineif ($next =~ /\}/) { # split on 2 lines$nodes .= " $`";$after = $';} else {$nodes .= " $next";$next = shift(@lines);$next = &substitute_style($next);chop($nodes);if ($next =~ /\}/) { # split on 3 lines$nodes .= " $`";$after = $';} else {warn "$ERROR Bad xref (no ending }): $_";$_ = "$before$;0xref\{$nodes$after";unshift(@lines, $next);next; # while xref}}}$nodes =~ s/\s+/ /g; # remove useless spaces@args = split(/\s*,\s*/, $nodes);$node = $args[0]; # the node is always the first arg$node = &normalise_node($node);$sec = $args[2] || $args[1] || $node2sec{$node};$href = $node2href{$node};if (@args == 5) { # reference to another manual$sec = $args[2] || $node;$man = $args[4] || $args[3];$_ = "${before}${type}$T2H_WORDS->{$T2H_LANG}->{'section'} `$sec' in \@cite{$man}$after";} elsif ($type =~ /Info/) { # inforefwarn "$ERROR Wrong number of arguments: $_" unless @args == 3;($nn, $_, $in) = @args;$_ = "${before}${type} file `$in', node `$nn'$after";} elsif ($sec && $href && ! $T2H_SHORT_REF) {$_ = "${before}${type}";$_ .= "$T2H_WORDS->{$T2H_LANG}->{'section'} " if ${type};$_ .= &t2h_anchor('', $href, $sec) . $after;}elsif ($href){$_ = "${before}${type} " .&t2h_anchor('', $href, $args[2] || $args[1] || $node) .$after;}else {warn "$ERROR Undefined node ($node): $_";$_ = "$before$;0xref{$nodes}$after";}}# replace imagess[\@image\s*{(.+?)}]{my @args = split (/\s*,\s*/, $1);my $base = $args[0];my $image =LocateIncludeFile("$base.png") ||LocateIncludeFile("$base.jpg") ||LocateIncludeFile("$base.gif");warn "$ERROR no image file for $base: $_" unless ($image && -e $image);"<IMG SRC=\"$image\" ALT=\"$base\">";($T2H_CENTER_IMAGE ?"<CENTER><IMG SRC=\"$image\" ALT=\"$base\"></CENTER>" :"<IMG SRC=\"$image\" ALT=\"$base\">");}eg;## try to guess bibliography references or glossary terms#unless (/^<H\d><A NAME=\"SEC\d/) {if ($use_bibliography) {$done = '';while (/$BIBRE/o) {($pre, $what, $post) = ($`, $&, $');$href = $bib2href{$what};if (defined($href) && $post !~ /^[^<]*<\/A>/) {$done .= $pre . &t2h_anchor('', $href, $what);} else {$done .= "$pre$what";}$_ = $post;}$_ = $done . $_;}if ($T2H_USE_GLOSSARY) {$done = '';while (/\b\w+\b/) {($pre, $what, $post) = ($`, $&, $');$entry = $what;$entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Z\s]+$/;$href = $gloss2href{$entry};if (defined($href) && $post !~ /^[^<]*<\/A>/) {$done .= $pre . &t2h_anchor('', $href, $what);} else {$done .= "$pre$what";}$_ = $post;}$_ = $done . $_;}}# otherwisepush(@lines2, $_);}print "# end of pass 2\n" if $T2H_VERBOSE;## split style substitutions#while (@lines2) {$_ = shift(@lines2);## special case (protected sections)#if (/^$PROTECTTAG/o) {push(@lines3, $_);next;}## split style substitutions#$old = '';while ($old ne $_) {$old = $_;if (/\@(\w+)\{/) {($before, $style, $after) = ($`, $1, $');if (defined($style_map{$style})) {$_ = $after;$text = '';$after = '';$failed = 1;while (@lines2) {if (/\}/) {$text .= $`;$after = $';$failed = 0;last;} else {$text .= $_;$_ = shift(@lines2);}}if ($failed) {die "* Bad syntax (\@$style) after: $before\n";} else {$text = &apply_style($style, $text);$_ = "$before$text$after";}}}}# otherwisepush(@lines3, $_);}print "# end of pass 3\n" if $T2H_VERBOSE;#+++############################################################################# ## Pass 4: foot notes, final cleanup ## ##---############################################################################@foot_lines = (); # footnotes@doc_lines = (); # final document$end_of_para = 0; # true if last line is <P>while (@lines3) {$_ = shift(@lines3);## special case (protected sections)#if (/^$PROTECTTAG/o) {push(@doc_lines, $_);$end_of_para = 0;next;}## footnotes#while (/\@footnote([^\{\s]+)\{/) {($before, $d, $after) = ($`, $1, $');$_ = $after;$text = '';$after = '';$failed = 1;while (@lines3) {if (/\}/) {$text .= $`;$after = $';$failed = 0;last;} else {$text .= $_;$_ = shift(@lines3);}}if ($failed) {die "* Bad syntax (\@footnote) after: $before\n";} else {$foot_num++;$docid = "DOCF$foot_num";$footid = "FOOT$foot_num";$foot = "($foot_num)";push(@foot_lines, "<H3>" . &t2h_anchor($footid, "$d#$docid", $foot) . "</H3>\n");$text = "<P>$text" unless $text =~ /^\s*<P>/;push(@foot_lines, "$text\n");$_ = $before . &t2h_anchor($docid, "$docu_foot#$footid", $foot) . $after;}}## remove unnecessary <P>#if (/^\s*<P>\s*$/) {next if $end_of_para++;} else {$end_of_para = 0;}# otherwisepush(@doc_lines, $_);}print "# end of pass 4\n" if $T2H_VERBOSE;#+++############################################################################# ## Pass 5: print things ## ##---############################################################################$T2H_L2H = &l2h_FinishToLatex if ($T2H_L2H);$T2H_L2H = &l2h_ToHtml if ($T2H_L2H);$T2H_L2H = &l2h_InitFromHtml if ($T2H_L2H);# fix node2up, node2prev, node2next, if desiredif ($has_top_command){for $section (keys %sec2number){$node = $sec2node{$section};$node2up{$node} = Sec2UpNode($section) unless $node2up{$node};$node2prev{$node} = Sec2PrevNode($section) unless $node2prev{$node};$node2next{$node} = Sec2NextNode($section) unless $node2next{$node};}}# prepare %T2H_THISDOC$T2H_THISDOC{fulltitle} = $value{'_title'} || $value{'_settitle'} || "Untitled Document";$T2H_THISDOC{title} = $value{'_settitle'} || $T2H_THISDOC{fulltitle};$T2H_THISDOC{author} = $value{'_author'};$T2H_THISDOC{subtitle} = $value{'_subtitle'};$T2H_THISDOC{shorttitle} = $value{'_shorttitle'};for $key (keys %T2H_THISDOC){$_ = &substitute_style($T2H_THISDOC{$key});&unprotect_texi;s/\s*$//;$T2H_THISDOC{$key} = $_;}# if no sections, then simply print document as isunless (@sections){print "# Writing content into $docu_top_file \n" if $T2H_VERBOSE;open(FILE, "> $docu_top_file")|| die "$ERROR: Can't open $docu_top_file for writing: $!\n";&$T2H_print_page_head(\*FILE);$T2H_THIS_SECTION = \@doc_lines;t2h_print_lines(\*FILE);&$T2H_print_foot_navigation(\*FILE);&$T2H_print_page_foot(\*FILE);close(FILE);goto Finish;}# initialize $T2H_HREF, $T2H_NAME%T2H_HREF =('First' , sec_href($sections[0]),'Last', sec_href($sections[$#sections]),'About', $docu_about. '#SEC_About',);# prepare TOC, OVERVIEW, TOP$T2H_TOC = \@toc_lines;$T2H_OVERVIEW = \@stoc_lines;if ($has_top){while (1){$_ = shift @doc_lines;last if /$TOPEND/;push @$T2H_TOP, $_;}$T2H_HREF{'Top'} = $docu_top . '#SEC_Top';}else{$T2H_HREF{'Top'} = $T2H_HREF{First};}$node2href{Top} = $T2H_HREF{Top};$T2H_HREF{Contents} = $docu_toc.'#SEC_Contents' if @toc_lines;$T2H_HREF{Overview} = $docu_stoc.'#SEC_OVERVIEW' if @stoc_lines;# settle on indexif ($T2H_INDEX_CHAPTER){$T2H_HREF{Index} = $node2href{normalise_node($T2H_INDEX_CHAPTER)};warn "$ERROR T2H_INDEX_CHAPTER '$T2H_INDEX_CHAPTER' not found\n"unless $T2H_HREF{Index};}if (! $T2H_HREF{Index} && $first_index_chapter){$T2H_INDEX_CHAPTER = $first_index_chapter;$T2H_HREF{Index} = $node2href{$T2H_INDEX_CHAPTER};}print "# Using '" . clean_name($T2H_INDEX_CHAPTER) . "' as index page\n"if ($T2H_VERBOSE && $T2H_HREF{Index});%T2H_NAME =('First', clean_name($sec2node{$sections[0]}),'Last', clean_name($sec2node{$sections[$#sections]}),'About', $T2H_WORDS->{$T2H_LANG}->{'About_Title'},'Contents', $T2H_WORDS->{$T2H_LANG}->{'ToC_Title'},'Overview', $T2H_WORDS->{$T2H_LANG}->{'Overview_Title'},'Index' , clean_name($T2H_INDEX_CHAPTER),'Top', clean_name($T2H_TOP_HEADING || $T2H_THISDOC{'title'} || $T2H_THISDOC{'shorttitle'}),);############################################################################## print frame and frame toc file#if ( $T2H_FRAMES ){open(FILE, "> $docu_frame_file")|| die "$ERROR: Can't open $docu_frame_file for writing: $!\n";print "# Creating frame in $docu_frame_file ...\n" if $T2H_VERBOSE;&$T2H_print_frame(\*FILE);close(FILE);open(FILE, "> $docu_toc_frame_file")|| die "$ERROR: Can't open $docu_toc_frame_file for writing: $!\n";print "# Creating toc frame in $docu_frame_file ...\n" if $T2H_VERBOSE;&$T2H_print_toc_frame(\*FILE);close(FILE);}############################################################################## print Top#open(FILE, "> $docu_top_file")|| die "$ERROR: Can't open $docu_top_file for writing: $!\n";&$T2H_print_page_head(\*FILE) unless ($T2H_SPLIT);if ($has_top){print "# Creating Top in $docu_top_file ...\n" if $T2H_VERBOSE;$T2H_THIS_SECTION = $T2H_TOP;$T2H_HREF{This} = $T2H_HREF{Top};$T2H_NAME{This} = $T2H_NAME{Top};&$T2H_print_Top(\*FILE);}close(FILE) if $T2H_SPLIT;############################################################################## Print sections#$T2H_NODE{Forward} = $sec2node{$sections[0]};$T2H_NAME{Forward} = &clean_name($sec2node{$sections[0]});$T2H_HREF{Forward} = sec_href($sections[0]);$T2H_NODE{This} = 'Top';$T2H_NAME{This} = $T2H_NAME{Top};$T2H_HREF{This} = $T2H_HREF{Top};if ($T2H_SPLIT){print "# writing " . scalar(@sections) ." sections in $docu_rdir$docu_name"."_[1..$doc_num]"if $T2H_VERBOSE;$previous = ($T2H_SPLIT eq 'chapter' ? $CHAPTEREND : $SECTIONEND);undef $FH;$doc_num = 0;}else{print "# writing " . scalar(@sections) . " sections in $docu_top_file ..."if $T2H_VERBOSE;$FH = \*FILE;$previous = '';}$counter = 0;# loop through sectionswhile ($section = shift(@sections)){if ($T2H_SPLIT && ($T2H_SPLIT eq 'section' || $previous eq $CHAPTEREND)){if ($FH){#close previous page&$T2H_print_chapter_footer($FH) if $T2H_SPLIT eq 'chapter';&$T2H_print_page_foot($FH);close($FH);undef $FH;}}$T2H_NAME{Back} = $T2H_NAME{This};$T2H_HREF{Back} = $T2H_HREF{This};$T2H_NODE{Back} = $T2H_NODE{This};$T2H_NAME{This} = $T2H_NAME{Forward};$T2H_HREF{This} = $T2H_HREF{Forward};$T2H_NODE{This} = $T2H_NODE{Forward};if ($sections[0]){$T2H_NODE{Forward} = $sec2node{$sections[0]};$T2H_NAME{Forward} = &clean_name($T2H_NODE{Forward});$T2H_HREF{Forward} = sec_href($sections[0]);}else{undef $T2H_HREF{Forward}, $T2H_NODE{Forward}, $T2H_NAME{Forward};}$node = $node2up{$T2H_NODE{This}};$T2H_HREF{Up} = $node2href{$node};if ($T2H_HREF{Up} eq $T2H_HREF{This} || ! $T2H_HREF{Up}){$T2H_NAME{Up} = $T2H_NAME{Top};$T2H_HREF{Up} = $T2H_HREF{Top};$T2H_NODE{Up} = 'Up';}else{$T2H_NAME{Up} = &clean_name($node);$T2H_NODE{Up} = $node;}$node = $T2H_NODE{This};$node = $node2prev{$node};$T2H_NAME{Prev} = &clean_name($node);$T2H_HREF{Prev} = $node2href{$node};$T2H_NODE{Prev} = $node;$node = $T2H_NODE{This};if ($node2up{$node} && $node2up{$node} ne 'Top'&&($node2prev{$node} eq $T2H_NODE{Back} || ! $node2prev{$node})){$node = $node2up{$node};while ($node && $node ne $node2up{$node} && ! $node2prev{$node}){$node = $node2up{$node};}$node = $node2prev{$node}unless $node2up{$node} eq 'Top' || ! $node2up{$node};}else{$node = $node2prev{$node};}$T2H_NAME{FastBack} = &clean_name($node);$T2H_HREF{FastBack} = $node2href{$node};$T2H_NODE{FastBack} = $node;$node = $T2H_NODE{This};$node = $node2next{$node};$T2H_NAME{Next} = &clean_name($node);$T2H_HREF{Next} = $node2href{$node};$T2H_NODE{Next} = $node;$node = $T2H_NODE{This};if ($node2up{$node} && $node2up{$node} ne 'Top'&&($node2next{$node} eq $T2H_NODE{Forward} || ! $node2next{$node})){$node = $node2up{$node};while ($node && $node ne $node2up{$node} && ! $node2next{$node}){$node = $node2up{$node};}}$node = $node2next{$node};$T2H_NAME{FastForward} = &clean_name($node);$T2H_HREF{FastForward} = $node2href{$node};$T2H_NODE{FastForward} = $node;if (! defined($FH)){my $file = $T2H_HREF{This};$file =~ s/\#.*$//;open(FILE, "> $docu_rdir$file") ||die "$ERROR: Can't open $docu_rdir$file for writing: $!\n";$FH = \*FILE;&$T2H_print_page_head($FH);t2h_print_label($FH);&$T2H_print_chapter_header($FH) if $T2H_SPLIT eq 'chapter';}else{t2h_print_label($FH);}$T2H_THIS_SECTION = [];while (@doc_lines) {$_ = shift(@doc_lines);last if ($_ eq $SECTIONEND || $_ eq $CHAPTEREND);push(@$T2H_THIS_SECTION, $_);}$previous = $_;&$T2H_print_section($FH);if ($T2H_VERBOSE){$counter++;print "." if $counter =~ /00$/;}}if ($T2H_SPLIT){&$T2H_print_chapter_footer($FH) if $T2H_SPLIT eq 'chapter';&$T2H_print_page_foot($FH);close($FH);}print "\n" if $T2H_VERBOSE;############################################################################## Print ToC, Overview, Footnotes#undef $T2H_HREF{Prev};undef $T2H_HREF{Next};undef $T2H_HREF{Back};undef $T2H_HREF{Forward};undef $T2H_HREF{Up};if (@foot_lines){print "# writing Footnotes in $docu_foot_file...\n" if $T2H_VERBOSE;open (FILE, "> $docu_foot_file") || die "$ERROR: Can't open $docu_foot_file for writing: $!\n"if $T2H_SPLIT;$T2H_HREF{This} = $docu_foot;$T2H_NAME{This} = $T2H_WORDS->{$T2H_LANG}->{'Footnotes_Title'};$T2H_THIS_SECTION = \@foot_lines;&$T2H_print_Footnotes(\*FILE);close(FILE) if $T2H_SPLIT;}if (@toc_lines){print "# writing Toc in $docu_toc_file...\n" if $T2H_VERBOSE;open (FILE, "> $docu_toc_file") || die "$ERROR: Can't open $docu_toc_file for writing: $!\n"if $T2H_SPLIT;$T2H_HREF{This} = $T2H_HREF{Contents};$T2H_NAME{This} = $T2H_NAME{Contents};$T2H_THIS_SECTION = \@toc_lines;&$T2H_print_Toc(\*FILE);close(FILE) if $T2H_SPLIT;}if (@stoc_lines){print "# writing Overview in $docu_stoc_file...\n" if $T2H_VERBOSE;open (FILE, "> $docu_stoc_file") || die "$ERROR: Can't open $docu_stoc_file for writing: $!\n"if $T2H_SPLIT;$T2H_HREF{This} = $T2H_HREF{Overview};$T2H_NAME{This} = $T2H_NAME{Overview};$T2H_THIS_SECTION = \@stoc_lines;unshift @$T2H_THIS_SECTION, "<BLOCKQUOTE>\n";push @$T2H_THIS_SECTION, "\n</BLOCKQUOTE>\n";&$T2H_print_Overview(\*FILE);close(FILE) if $T2H_SPLIT;}if ($about_body = &$T2H_about_body()){print "# writing About in $docu_about_file...\n" if $T2H_VERBOSE;open (FILE, "> $docu_about_file") || die "$ERROR: Can't open $docu_about_file for writing: $!\n"if $T2H_SPLIT;$T2H_HREF{This} = $T2H_HREF{About};$T2H_NAME{This} = $T2H_NAME{About};$T2H_THIS_SECTION = [$about_body];&$T2H_print_About(\*FILE);close(FILE) if $T2H_SPLIT;}unless ($T2H_SPLIT){&$T2H_print_page_foot(\*FILE);close (FILE);}Finish:&l2h_FinishFromHtml if ($T2H_L2H);&l2h_Finish if($T2H_L2H);print "# that's all folks\n" if $T2H_VERBOSE;exit(0);#+++############################################################################# ## Low level functions ## ##---############################################################################sub LocateIncludeFile{my $file = shift;my $dir;return $file if (-e $file && -r $file);foreach $dir (@T2H_INCLUDE_DIRS){return "$dir/$file" if (-e "$dir/$file" && -r "$dir/$file");}return undef;}sub clean_name{local ($_);$_ = &remove_style($_[0]);&unprotect_texi;return $_;}sub update_sec_num {local($name, $level) = @_;my $ret;$level--; # here we start at 0if ($name =~ /^appendix/ || defined(@appendix_sec_num)) {# appendix styleif (defined(@appendix_sec_num)) {&incr_sec_num($level, @appendix_sec_num);} else {@appendix_sec_num = ('A', 0, 0, 0);}$ret = join('.', @appendix_sec_num[0..$level]);} else {# normal styleif (defined(@normal_sec_num)){&incr_sec_num($level, @normal_sec_num);}else{@normal_sec_num = (1, 0, 0, 0);}$ret = join('.', @normal_sec_num[0..$level]);}$ret .= "." if $level == 0;return $ret;}sub incr_sec_num {local($level, $l);$level = shift(@_);$_[$level]++;foreach $l ($level+1 .. 3) {$_[$l] = 0;}}sub Sec2UpNode{my $sec = shift;my $num = $sec2number{$sec};return '' unless $num;return 'Top' unless $num =~ /\.\d+/;$num =~ s/\.[^\.]*$//;$num = $num . '.' unless $num =~ /\./;return $sec2node{$number2sec{$num}};}sub Sec2PrevNode{my $sec = shift;my $num = $sec2number{$sec};my ($i, $post);if ($num =~ /(\w+)(\.$|$)/){$num = $`;$i = $1;$post = $2;if ($i eq 'A'){$i = $normal_sec_num[0];}elsif ($i ne '1'){# unfortunately, -- operator is not magical$i = chr(ord($i) + 1);}else{return '';}return $sec2node{$number2sec{$num . $i . $post}}}return '';}sub Sec2NextNode{my $sec = shift;my $num = $sec2number{$sec};my $i;if ($num =~ /(\w+)(\.$|$)/){$num = $`;$i = $1;$post = $2;if ($post eq '.' && $i eq $normal_sec_num[0]){$i = 'A';}else{$i++;}return $sec2node{$number2sec{$num . $i . $post}}}return '';}sub check {local($_, %seen, %context, $before, $match, $after);while (<>) {if (/\@(\*|\.|\:|\@|\{|\})/) {$seen{$&}++;$context{$&} .= "> $_" if $T2H_VERBOSE;$_ = "$`XX$'";redo;}if (/\@(\w+)/) {($before, $match, $after) = ($`, $&, $');if ($before =~ /\b[\w-]+$/ && $after =~ /^[\w-.]*\b/) { # e-mail address$seen{'e-mail address'}++;$context{'e-mail address'} .= "> $_" if $T2H_VERBOSE;} else {$seen{$match}++;$context{$match} .= "> $_" if $T2H_VERBOSE;}$match =~ s/^\@/X/;$_ = "$before$match$after";redo;}}foreach (sort(keys(%seen))) {if ($T2H_VERBOSE) {print "$_\n";print $context{$_};} else {print "$_ ($seen{$_})\n";}}}sub open {local($name) = @_;++$fh_name;if (open($fh_name, $name)) {unshift(@fhs, $fh_name);} else {warn "$ERROR Can't read file $name: $!\n";}}sub init_input {@fhs = (); # hold the file handles to read@input_spool = (); # spooled lines to read$fh_name = 'FH000';&open($docu);}sub next_line {local($fh, $line);if (@input_spool) {$line = shift(@input_spool);return($line);}while (@fhs) {$fh = $fhs[0];$line = <$fh>;return($line) if $line;close($fh);shift(@fhs);}return(undef);}# used in pass 1, use &next_linesub skip_until {local($tag) = @_;local($_);while ($_ = &next_line) {return if /^\@end\s+$tag\s*$/;}die "* Failed to find '$tag' after: " . $lines[$#lines];}# used in pass 1 for l2h use &next_linesub string_until {local($tag) = @_;local($_, $string);while ($_ = &next_line) {return $string if /^\@end\s+$tag\s*$/;# $_ =~ s/hbox/mbox/g;$string = $string.$_;}die "* Failed to find '$tag' after: " . $lines[$#lines];}## HTML stacking to have a better HTML output#sub html_reset {@html_stack = ('html');$html_element = 'body';}sub html_push {local($what) = @_;push(@html_stack, $html_element);$html_element = $what;}sub html_push_if {local($what) = @_;push(@html_stack, $html_element)if ($html_element && $html_element ne 'P');$html_element = $what;}sub html_pop {$html_element = pop(@html_stack);}sub html_pop_if {local($elt);if (@_) {foreach $elt (@_) {if ($elt eq $html_element) {$html_element = pop(@html_stack) if @html_stack;last;}}} else {$html_element = pop(@html_stack) if @html_stack;}}sub html_debug {local($what, $line) = @_;if ($T2H_DEBUG & $DEBUG_HTML){$what = "\n" unless $what;return("<!-- $line @html_stack, $html_element -->$what")}return($what);}# to debug the output...sub debug {local($what, $line) = @_;return("<!-- $line -->$what")if $T2H_DEBUG & $DEBUG_HTML;return($what);}sub SimpleTexi2Html{local $_ = $_[0];&protect_texi;&protect_html;$_ = substitute_style($_);$_[0] = $_;}sub normalise_node {local $_ = $_[0];s/\s+/ /g;s/ $//;s/^ //;&protect_texi;&protect_html;$_ = substitute_style($_);$_[0] = $_;}sub menu_entry{my ($node, $name, $descr) = @_;my ($href, $entry);&normalise_node($node);$href = $node2href{$node};if ($href){$descr =~ s/^\s+//;$descr =~ s/\s*$//;$descr = SimpleTexi2Html($descr);if ($T2H_NUMBER_SECTIONS && !$T2H_NODE_NAME_IN_MENU && $node2sec{$node}){$entry = $node2sec{$node};$name = '';}else{&normalise_node($name);$entry = ($name && ($name ne $node || ! $T2H_AVOID_MENU_REDUNDANCY)? "$name : $node" : $node);}if ($T2H_AVOID_MENU_REDUNDANCY && $descr){my $clean_entry = $entry;$clean_entry =~ s/^.*? // if ($clean_entry =~ /^([A-Z]|\d+)\.[\d\.]* /);$clean_entry =~ s/[^\w]//g;my $clean_descr = $descr;$clean_descr =~ s/[^\w]//g;$descr = '' if ($clean_entry eq $clean_descr)}push(@lines2,&debug('<TR><TD ALIGN="left" VALIGN="TOP">' .&t2h_anchor('', $href, $entry) .'</TD><TD> </TD><TD ALIGN="left" VALIGN="TOP">' .$descr ."</TD></TR>\n", __LINE__));}elsif ($node =~ /^\(.*\)\w+/){push(@lines2,&debug('<TR><TD ALIGN="left" VALIGN="TOP">' .$entry .'</TD><TD ALIGN="left" VALIGN="TOP">' . $descr ."</TD></TR>\n", __LINE__))}else{warn "$ERROR Undefined node of menu_entry ($node): $_";}}sub do_ctrl { "^$_[0]" }sub do_email {local($addr, $text) = split(/,\s*/, $_[0]);$text = $addr unless $text;&t2h_anchor('', "mailto:$addr", $text);}sub do_sc{# l2h does this much betterreturn &l2h_ToLatex("{\\sc ".&unprotect_html($_[0])."}") if ($T2H_L2H);return "\U$_[0]\E";}sub do_math{return &l2h_ToLatex("\$".&unprotect_html($_[0])."\$") if ($T2H_L2H);return "<EM>".$text."</EM>";}sub do_uref {local($url, $text, $only_text) = split(/,\s*/, $_[0]);$text = $only_text if $only_text;$text = $url unless $text;&t2h_anchor('', $url, $text);}sub do_url { &t2h_anchor('', $_[0], $_[0]) }sub do_acronym{return '<FONT SIZE="-1">' . $_[0] . '</FONT>';}sub do_accent{return "&$_[0]acute;" if $_[1] eq 'H';return "$_[0]." if $_[1] eq 'dotaccent';return "$_[0]*" if $_[1] eq 'ringaccent';return "$_[0]".'[' if $_[1] eq 'tieaccent';return "$_[0]".'(' if $_[1] eq 'u';return "$_[0]_" if $_[1] eq 'ubaraccent';return ".$_[0]" if $_[1] eq 'udotaccent';return "$_[0]<" if $_[1] eq 'v';return "&$_[0]cedil;" if $_[1] eq ',';return "$_[0]" if $_[1] eq 'dotless';return undef;}sub apply_style {local($texi_style, $text) = @_;local($style);$style = $style_map{$texi_style};if (defined($style)) { # known styleif ($style =~ /^\"/) { # add quotes$style = $';$text = "\`$text\'";}if ($style =~ /^\&/) { # custom$style = $';$text = &$style($text, $texi_style);} elsif ($style) { # good style$text = "<$style>$text</$style>";} else { # no style}} else { # unknown style$text = undef;}return($text);}# remove Texinfo stylessub remove_style {local($_) = @_;1 while(s/\@\w+{([^\{\}]+)}/$1/g);return($_);}sub remove_things{local ($_) = @_;s|\@(\w+)\{\}|$1|g;return $_;}sub substitute_style {local($_) = @_;local($changed, $done, $style, $text);&simple_substitutions;$changed = 1;while ($changed) {$changed = 0;$done = '';while (/\@(\w+){([^\{\}]+)}/ || /\@(,){([^\{\}]+)}/) {$text = &apply_style($1, $2);if ($text) {$_ = "$`$text$'";$changed = 1;} else {$done .= "$`\@$1";$_ = "{$2}$'";}}$_ = $done . $_;}return($_);}sub t2h_anchor {local($name, $href, $text, $newline, $extra_attribs) = @_;local($result);$result = "<A";$result .= " NAME=\"$name\"" if $name;if ($href){$href =~ s|^$T2H_HREF_DIR_INSTEAD_FILE|./|if ($T2H_HREF_DIR_INSTEAD_FILE);$result .= ($href =~ /\"/ ? " HREF='$href'" : " HREF=\"$href\"");}$result .= " $extra_attribs" if $extra_attribs;$result .= ">$text</A>";$result .= "\n" if $newline;return($result);}sub pretty_date {local(@MoY, $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);@MoY = ('January', 'February', 'March', 'April', 'May', 'June','July', 'August', 'September', 'October', 'November', 'December');($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);$year += ($year < 70) ? 2000 : 1900;# obachman: Let's do it as the Americans doreturn("$MoY[$mon], $mday $year");}sub doc_href {local($num) = @_;return("${docu_name}_$num.$docu_ext");}sub sec_href{return $node2href{$sec2node{$_[0]}};}sub next_doc {$docu_doc = &doc_href(++$doc_num);}sub t2h_print_lines {my ($fh, $lines) = @_;local($_);$lines = $T2H_THIS_SECTION unless $lines;my $cnt = 0;for (@$lines){$_ = l2h_FromHtml($_) if ($T2H_L2H);if (/^$PROTECTTAG/o) {$_ = $tag2pro{$_};} else {&unprotect_texi;}print $fh $_;$cnt += split(/\W*\s+\W*/);}return $cnt;}sub protect_texi {# protect @ { } ` 's/\@\@/$;0/go;s/\@\{/$;1/go;s/\@\}/$;2/go;s/\@\`/$;3/go;s/\@\'/$;4/go;}sub protect_html {local($what) = @_;# protect & < >$what =~ s/\&/\&\#38;/g;$what =~ s/\</\&\#60;/g;$what =~ s/\>/\&\#62;/g;# restore anything in quotes# this fixes my problem where I had:# < IMG SRC="leftarrow.gif" ALT="<--" > but what if I wanted < in my ALT text ??# maybe byte stuffing or some other technique should be used.$what =~ s/\"([^\&]+)\&\#60;(.*)\"/"$1<$2"/g;$what =~ s/\"([^\&]+)\&\#62;(.*)\"/"$1>$2"/g;$what =~ s/\"([^\&]+)\&\#38;(.*)\"/"$1&$2"/g;# but recognize some HTML things$what =~ s/\&\#60;\/A\&\#62;/<\/A>/g; # </A>$what =~ s/\&\#60;A ([^\&]+)\&\#62;/<A $1>/g; # <A [^&]+>$what =~ s/\&\#60;IMG ([^\&]+)\&\#62;/<IMG $1>/g; # <IMG [^&]+>return($what);}sub unprotect_texi {s/$;0/\@/go;s/$;1/\{/go;s/$;2/\}/go;s/$;3/\`/go;s/$;4/\'/go;}sub Unprotect_texi{local $_ = shift;&unprotect_texi;return($_);}sub unprotect_html {local($what) = @_;$what =~ s/\&\#38;/\&/g;$what =~ s/\&\#60;/\</g;$what =~ s/\&\#62;/\>/g;return($what);}sub t2h_print_label{my $fh = shift;my $href = shift || $T2H_HREF{This};$href =~ s/.*#(.*)$/$1/;print $fh qq{<A NAME="$href"></A>\n};}############################################################################### These next few lines are legal in both Perl and nroff..00 ; # finish .ig'di \" finish diversion--previous line must be blank.nr nl 0-1 \" fake up transition to first page again.nr % 0 \" start at page 1'; __END__ ############# From here on it's a standard manual page ############.so /usr/local/man/man1/texi2html.1
Go to most recent revision | Compare with Previous | Blame | View Log