'di ';
'ig 00 ';
require 5.0;
$T2H_HOMEPAGE = <<EOT;
http://www.mathematik.uni-kl.de/~obachman/Texi2html
EOT
$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
$THISVERSION = '1.64';
$THISPROG = "texi2html $THISVERSION";
$T2H_TODAY = &pretty_date; eval { ($T2H_USER = (getpwuid ($<))[6]) =~ s/,.*//;}; # Who am i
$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
};
$T2H_EXPAND = "info";
$T2H_OPTIONS -> {expand} =
{
type => '=s',
linkage => \$T2H_EXPAND,
verbose => 'Expand info|tex|none section of texinfo source',
};
$T2H_USE_GLOSSARY = 0;
T2H_OPTIONS -> {glossary} =
{
type => '!',
linkage => \$T2H_USE_GLOSSARY,
verbose => "if set, uses section named `Footnotes' for glossary",
noHelp => 1,
};
$T2H_INVISIBLE_MARK = '';
$T2H_OPTIONS -> {invisible} =
{
type => '=s',
linkage => \$T2H_INVISIBLE_MARK,
verbose => 'use text in invisble anchot',
noHelp => 1,
};
$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,
};
@T2H_INCLUDE_DIRS = (".");
$T2H_OPTIONS -> {I} =
{
type => '=s',
linkage => \@T2H_INCLUDE_DIRS,
verbose => 'append $s to the @include search path',
};
$T2H_TOP_FILE = '';
$T2H_OPTIONS -> {top_file} =
{
type => '=s',
linkage => \$T2H_TOP_FILE,
verbose => 'use $s as top file, instead of <docname>.html',
};
$T2H_TOC_FILE = '';
$T2H_OPTIONS -> {toc_file} =
{
type => '=s',
linkage => \$T2H_TOC_FILE,
verbose => 'use $s as ToC file, instead of <docname>_toc.html',
};
$T2H_FRAMES = 0;
$T2H_OPTIONS -> {frames} =
{
type => '!',
linkage => \$T2H_FRAMES,
verbose => 'output files which use HTML 4.0 frames (experimental)',
noHelp => 1,
};
$T2H_SHOW_MENU = 1;
$T2H_OPTIONS -> {menu} =
{
type => '!',
linkage => \$T2H_SHOW_MENU,
verbose => 'ouput Texinfo menus',
};
$T2H_NUMBER_SECTIONS = 1;
$T2H_OPTIONS -> {number} =
{
type => '!',
linkage => \$T2H_NUMBER_SECTIONS,
verbose => 'use numbered sections'
};
$T2H_NODE_NAME_IN_MENU = 0;
$T2H_AVOID_MENU_REDUNDANCY = 1;
$T2H_SPLIT = '';
$T2H_OPTIONS -> {split} =
{
type => '=s',
linkage => \$T2H_SPLIT,
verbose => 'split document on section|chapter else no splitting',
};
$T2H_SECTION_NAVIGATION = 1;
$T2H_OPTIONS -> {sec_nav} =
{
type => '!',
linkage => \$T2H_SECTION_NAVIGATION,
verbose => 'output navigation panels for each section',
};
$T2H_SUBDIR = '';
$T2H_OPTIONS -> {subdir} =
{
type => '=s',
linkage => \$T2H_SUBDIR,
verbose => 'put HTML files in directory $s, instead of $cwd',
};
$T2H_SHORTEXTN = 0;
$T2H_OPTIONS -> {short_ext} =
{
type => '!',
linkage => \$T2H_SHORTEXTN,
verbose => 'use "htm" extension for output HTML files',
};
$T2H_PREFIX = '';
$T2H_OPTIONS -> {prefix} =
{
type => '=s',
linkage => \$T2H_PREFIX,
verbose => 'use as prefix for output files, instead of <docname>',
};
$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',
};
$T2H_SHORT_REF = '';
$T2H_OPTIONS -> {short_ref} =
{
type => '!',
linkage => \$T2H_SHORT_REF,
verbose => 'if set, references are without section numbers',
};
$T2H_IDX_SUMMARY = 0;
$T2H_OPTIONS -> {idx_sum} =
{
type => '!',
linkage => \$T2H_IDX_SUMMARY,
verbose => 'if set, also output index summary',
noHelp => 1,
};
$T2H_VERBOSE = '';
$T2H_OPTIONS -> {Verbose} =
{
type => '!',
linkage => \$T2H_VERBOSE,
verbose => 'print progress info to stdout',
};
$T2H_LANG = '';
$T2H_OPTIONS -> {lang} =
{
type => '=s',
linkage => sub {SetDocumentLanguage($_[1])},
verbose => 'use $s as document language (ISO 639 encoding)',
};
$T2H_L2H = '';
$T2H_OPTIONS -> {l2h} =
{
type => '!',
linkage => \$T2H_L2H,
verbose => 'if set, uses latex2html for @math and @tex',
};
$T2H_L2H_L2H = "latex2html";
$T2H_OPTIONS -> {l2h_l2h} =
{
type => '=s',
linkage => \$T2H_L2H_L2H,
verbose => 'program to use for latex2html translation',
noHelp => 1,
};
$T2H_L2H_SKIP = '';
$T2H_OPTIONS -> {l2h_skip} =
{
type => '!',
linkage => \$T2H_L2H_SKIP,
verbose => 'if set, tries to reuse previously latex2html output',
noHelp => 1,
};
$T2H_L2H_TMP = '';
$T2H_OPTIONS -> {l2h_tmp} =
{
type => '=s',
linkage => \$T2H_L2H_TMP,
verbose => 'if set, uses $s as temporary latex2html directory',
noHelp => 1,
};
$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'
};
$T2H_CENTER_IMAGE = 1;
$T2H_EXAMPLE_INDENT_CELL = '<td> </td>';
$T2H_SMALL_EXAMPLE_INDENT_CELL = '<td> </td>';
$T2H_SMALL_FONT_SIZE = '-1';
$T2H_TOP_HEADING = '';
$T2H_INDEX_CHAPTER = '';
$T2H_SPLIT_INDEX = 100;
$T2H_HREF_DIR_INSTEAD_FILE = '';
$T2H_WORDS_EN =
{
'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',
};
$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', 'About_Title' => 'No translation available!', 'Footnotes_Title' => 'No translation available!', 'See' => 'Zie',
'see' => 'zie',
'section' => 'sectie',
};
$T2H_WORD_ES =
{
'ToC_Title' => 'índice General',
'Overview_Title' => 'Resumen del Contenido',
'Index_Title' => 'Index', 'About_Title' => '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', 'About_Title' => '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', 'About_Title' => '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
};
$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;
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";
}
}
sub T2H_DEFAULT_print_Top_header
{
&$T2H_print_page_head(@_) if $T2H_SPLIT;
t2h_print_label(@_); &$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;
local $T2H_BUTTONS = \@T2H_MISC_BUTTONS;
&$T2H_print_Top_header($fh);
if ($T2H_THIS_SECTION)
{
print $fh "<H1>$T2H_NAME{Top}</H1>"
unless ($T2H_HAS_TOP_HEADING);
t2h_print_lines($fh, $T2H_THIS_SECTION)
}
else
{
print $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>
EOT
t2h_print_lines($fh, $T2H_OVERVIEW);
print $fh "</BLOCKQUOTE>\n";
}
&$T2H_print_Top_footer($fh);
}
sub T2H_DEFAULT_print_Toc
{
return &$T2H_print_misc(@_);
}
sub T2H_DEFAULT_print_Overview
{
return &$T2H_print_misc(@_);
}
sub T2H_DEFAULT_print_Footnotes
{
return &$T2H_print_misc(@_);
}
sub T2H_DEFAULT_print_About
{
return &$T2H_print_misc(@_);
}
sub T2H_DEFAULT_print_misc_header
{
&$T2H_print_page_head(@_) if $T2H_SPLIT;
t2h_print_label(@_);
&$T2H_print_head_navigation(@_);
}
sub T2H_DEFAULT_print_misc_footer
{
&$T2H_print_foot_navigation(@_);
&$T2H_print_page_foot(@_) if $T2H_SPLIT;
}
sub T2H_DEFAULT_print_misc
{
my $fh = shift;
local $T2H_BUTTONS = \@T2H_MISC_BUTTONS;
&$T2H_print_misc_header($fh);
print $fh "<H1>$T2H_NAME{This}</H1>\n";
t2h_print_lines($fh);
&$T2H_print_misc_footer($fh);
}
@T2H_CHAPTER_BUTTONS =
(
'FastBack', 'FastForward', ' ',
' ', ' ', ' ', ' ',
'Top', 'Contents', 'Index', 'About',
);
sub T2H_DEFAULT_print_chapter_header
{
if (! $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;
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;
return($MONTH_NAMES->{$T2H_LANG}[$mon] . ", " . $mday . " " . $year);
}
$T2H_BODYTEXT = 'LANG="' . $T2H_LANG . '" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080" ALINK="#FF0000"';
$T2H_AFTER_BODY_OPEN = '';
$T2H_PRE_BODY_CLOSE = '';
$T2H_ADDRESS = "by <I>$T2H_USER</I> " if $T2H_USER;
$T2H_ADDRESS .= "on <I>$T2H_TODAY</I>";
$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_OPEN
EOT
}
sub T2H_DEFAULT_print_page_foot
{
my $fh = shift;
print $fh <<EOT;
<BR>
<FONT SIZE="-1">
This document was generated
$T2H_ADDRESS
using <A HREF="$T2H_HOMEPAGE"><I>texi2html</I></A>
$T2H_PRE_BODY_CLOSE
</BODY>
</HTML>
EOT
}
$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";
}
}
$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)
}
@T2H_SECTION_BUTTONS =
(
'Back', 'Forward', ' ', 'FastBack', 'Up', 'FastForward',
' ', ' ', ' ', ' ',
'Top', 'Contents', 'Index', 'About',
);
@T2H_MISC_BUTTONS = ('Top', 'Contents', 'Index', 'About');
%T2H_ACTIVE_ICONS =
(
'Top', '',
'Contents', '',
'Overview', '',
'Index', '',
'Back', '',
'FastBack', '',
'Prev', '',
'Up', '',
'Next', '',
'Forward', '',
'FastForward', '',
'About' , '',
'First', '',
'Last', '',
' ', ''
);
%T2H_PASSIVE_ICONS =
(
'Top', '',
'Contents', '',
'Overview', '',
'Index', '',
'Back', '',
'FastBack', '',
'Prev', '',
'Up', '',
'Next', '',
'Forward', '',
'FastForward', '',
'About', '',
'First', '',
'Last', '',
);
sub 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">};
}
%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 ' ')
{ print $fh
$T2H_ICONS && $T2H_ACTIVE_ICONS{' '} ?
&$T2H_button_icon_img($button, $T2H_ACTIVE_ICONS{' '}) :
$T2H_NAVIGATION_TEXT{' '};
next;
}
elsif ($T2H_HREF{$button})
{ print $fh
$T2H_ICONS && $T2H_ACTIVE_ICONS{$button} ? t2h_anchor('', $T2H_HREF{$button}, &$T2H_button_icon_img($button,
$T2H_ACTIVE_ICONS{$button},
$T2H_NAME{$button}))
: "[" .
t2h_anchor('', $T2H_HREF{$button}, $T2H_NAVIGATION_TEXT{$button}) .
"]";
}
else
{ print $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";
}
sub 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>
EOT
print $fh map {s/HREF=/target=\"main\" HREF=/; $_;} @stoc_lines;
print $fh "</BODY></HTML>\n";
}
$T2H_PRE_ABOUT = <<EOT;
This document was generated $T2H_ADDRESS
using <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>
EOT
for $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 position
is at <STRONG> Subsubsection One-Two-Three </STRONG> of a document of
the 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_ABOUT
EOT
return $about;
}
%T2H_BUTTONS_GOTO =
(
'Top', 'cover (top) of document',
'Contents', 'table of contents',
'Overview', 'short table of contents',
'Index', 'concept index',
'Back', 'previous section in reading order',
'FastBack', 'previous or up-and-previous section ',
'Prev', 'previous section same level',
'Up', 'up section',
'Next', 'next section same level',
'Forward', 'next section in reading order',
'FastForward', 'next or up-and-next section',
'About' , 'this page',
'First', 'first section in reading order',
'Last', 'last section in reading order',
);
%T2H_BUTTONS_EXAMPLE =
(
'Top', ' ',
'Contents', ' ',
'Overview', ' ',
'Index', ' ',
'Back', '1.2.2',
'FastBack', '1.1',
'Prev', '1.2.2',
'Up', '1.2',
'Next', '1.2.4',
'Forward', '1.2.4',
'FastForward', '1.3',
'About', ' ',
'First', '1.',
'Last', '1.2.4',
);
$TITLE = '';
$SHORTEXTN = 0;
$LONG_TITLES = 0;
$DESTDIR = '';
$NO_SUBDIR = 0;
$PREFIX = '';
$AUTO_PREFIX = 0;
$AUTO_LINK = 0;
$SPLIT = 0;
$MAX_LINK_DEPTH = 0;
$TMP = '';
$DEBUG = 0;
$VERBOSE = 1;
$HTML_VERSION = "3.2";
$TEXDEFS = 1;
$EXTERNAL_FILE = '';
$SCALABLE_FONTS = 1;
$NO_SIMPLE_MATH = 1;
$LOCAL_ICONS = 1;
$SHORT_INDEX = 0;
$NO_FOOTNODE = 1;
$ADDRESS = '';
$INFO = '';
$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;
$NO_NAVIGATION = 1;
$ADDRESS = '';
$INFO = 0;
$MAX_SPLIT_DEPTH = 0;
$MAX_LINK_DEPTH = 0;
$NOLATEX = 0;
$EXTERNAL_IMAGES = 0;
$ASCII_MODE = 0;
$PS_IMAGES = 0;
$SHOW_SECTION_NUMBERS = 0;
$CHILDLINE = "";
$LINE_WIDTH = 500;
$WORDS_IN_PAGE = 300;
$default_language = 'english';
$WORDS_IN_NAVIGATION_PANEL_TITLES = 0;
$MATH_SCALE_FACTOR = 1.5;
$FIGURE_SCALE_FACTOR = 1.6;
$EXTERNAL_UP_LINK = "";
$EXTERNAL_UP_TITLE = "";
$NETSCAPE_HTML = 1;
$PAPERSIZE = "a4";
$TITLES_LANGUAGE = "english";
1;
require "$ENV{T2H_HOME}/texi2html.init"
if ($0 =~ /\.pl$/ &&
-e "$ENV{T2H_HOME}/texi2html.init" && -r "$ENV{T2H_HOME}/texi2html.init");
package Getopt::MySimple;
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);
$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";
}
sub getOptions
{
push(@_, 0) if ($ push(@_, 1) if ($
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;
}
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 argument
EOT
}
sub new
{
my($class) = @_;
my($self) = {};
$self -> {'default'} = {};
$self -> {'helpText'} = '';
$self -> {'opt'} = {};
$opt = $self -> {'opt'}; $self -> {'type'} = ();
return bless $self, $class;
}
1;
require "$ENV{T2H_HOME}/MySimple.pm"
if ($0 =~ /\.pl$/ &&
-e "$ENV{T2H_HOME}/texi2html.init" && -r "$ENV{T2H_HOME}/texi2html.init");
package main;
$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\/-]+\]'; $FILERE = '[\/\w.+-]+'; $VARRE = '[^\s\{\}]+'; $NODERE = '[^,:]+'; $NODESRE = '[^:]+';
$ERROR = "***"; $WARN = "**";
$PROTECTTAG = "_ThisIsProtected_";
$CHAPTEREND = "<!-- End chapter -->\n"; $SECTIONEND = "<!-- End section -->\n"; $TOPEND = "<!-- End top -->\n";
$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_index = (
'c', 1,
'f', 1,
'v', 1,
'k', 1,
'p', 1,
't', 1,
);
%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 = (
'"', 'uml',
'~', 'tilde',
'^', 'circ',
'`', 'grave',
'\'', 'acute',
);
%simple_map = (
"*", "<BR>", " ", " ",
"\t", " ",
"-", "­", "\n", "\n",
"|", "",
'tab', '<\/TD><TD>',
":", "",
"!", "!",
"?", "?",
".", ".",
"-", "",
);
%things_map = (
'TeX', 'TeX',
'br', '<P>', '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', '£'
);
%style_map = (
'acronym', '&do_acronym',
'asis', '',
'b', 'B',
'cite', 'CITE',
'code', 'CODE',
'command', 'CODE',
'ctrl', '&do_ctrl', 'dfn', 'EM', 'dmn', '', 'email', '&do_email', 'emph', 'EM',
'env', 'CODE',
'file', '"TT', 'i', 'I',
'kbd', 'KBD',
'key', 'KBD',
'math', '&do_math',
'option', '"SAMP', 'r', '', 'samp', '"SAMP', 'sc', '&do_sc', 'strong', 'STRONG',
't', 'TT',
'titlefont', '', 'uref', '&do_uref', 'url', '&do_url', 'var', 'VAR',
'w', '', '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'
);
%format_map = (
'quotation', 'BLOCKQUOTE',
'itemize', 'UL',
'enumerate', 'OL',
'flushleft', 'PRE',
'flushright', 'PRE',
);
$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};
%def_map = (
'deffn', 0,
'defvr', 0,
'deftypefn', 0,
'deftypevr', 0,
'defcv', 0,
'defop', 0,
'deftp', 0,
'deffnx', 0,
'defvrx', 0,
'deftypefnx', 0,
'deftypevrx', 0,
'defcvx', 0,
'defopx', 0,
'deftpx', 0,
'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}', 'defmethod', 'defop Method',
'deftypemethod', 'defop Method', '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',
);
%to_skip = (
'c', 1,
'comment', 1,
'ifnotinfo', 1,
'ifnottex', 1,
'ifhtml', 1,
'end ifhtml', 1,
'end ifnotinfo', 1,
'end ifnottex', 1,
'detailmenu', 1,
'direntry', 1,
'contents', 1,
'shortcontents', 1,
'summarycontents', 1,
'footnotestyle', 1,
'end ifclear', 1,
'end ifset', 1,
'titlepage', 1,
'end titlepage', 1,
'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,
'cartouche', 1,
'end cartouche', 1,
'group', 1,
'end group', 1,
);
select(STDERR);
$| = 1;
select(STDOUT);
$| = 1;
%value = (); $use_bibliography = 1;
$use_acc = 1;
sub LoadInitFile
{
my $init_file = shift;
$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 = '';
}
}
sub SetDocumentLanguage
{
my $lang = shift;
if (! exists($T2H_WORDS->{$lang}))
{
warn "$ERROR: Language specs for '$lang' do not exists. Reverting to '" .
($T2H_LANG ? T2H_LANG : "en") . "'\n";
}
else
{
print "# using '$lang' as document language\n" if ($T2H_VERBOSE);
$T2H_LANG = $lang;
}
}
$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
};
my $home = $ENV{HOME};
defined($home) or $home = '';
foreach $i ('/usr/local/etc/texi2htmlrc', "$home/.texi2htmlrc") {
if (-f $i) {
print "# reading initialization file from $i\n"
if ($T2H_VERBOSE);
require($i);
}
}
$T2H_USAGE_TEXT = <<EOT;
Usage: texi2html [OPTIONS] TEXINFO-FILE
Translates Texinfo source documentation to HTML.
EOT
$T2H_FAILURE_TEXT = <<EOT;
Try 'texi2html -help' for usage instructions.
EOT
$options = new Getopt::MySimple;
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 perl
version 5.005 or higher.
EOT
if (! $options->getOptions($T2H_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n"))
{
print $Configure_failed if $Configure_failed;
die $T2H_FAILURE_TEXT;
}
if (@ARGV > 1)
{
eval {Getopt::Long::Configure("no_pass_through");};
if (! $options->getOptions($T2H_OBSOLETE_OPTIONS, $T2H_USAGE_TEXT, "$THISVERSION\n"))
{
print $Configure_failed if $Configure_failed;
die $T2H_FAILURE_TEXT;
}
}
if ($T2H_CHECK) {
die "Need file to check\n$T2H_FAILURE_TEXT" unless @ARGV > 0;
✓
exit;
}
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';
die "Need exactly one file to translate\n$T2H_FAILURE_TEXT" unless @ARGV == 1;
$docu = shift(@ARGV);
if ($docu =~ /.*\//) {
chop($docu_dir = $&);
$docu_name = $';
} else {
$docu_dir = '.';
$docu_name = $docu;
}
unshift(@T2H_INCLUDE_DIRS, $docu_dir);
$docu_name =~ s/\.te?x(i|info)?$//; # basename of the document
$docu_name = $T2H_PREFIX if ($T2H_PREFIX);
# subdir
if ($T2H_SUBDIR && ! $T2H_OUT)
{
$T2H_SUBDIR =~ s|/*$||;
unless (-d "$T2H_SUBDIR" && -w "$T2H_SUBDIR")
{
if ( mkdir($T2H_SUBDIR, oct(755)))
{
print "# created directory $T2H_SUBDIR\n" if ($T2H_VERBOSE);
}
else
{
warn "$ERROR can't create directory $T2H_SUBDIR. Put results into current directory\n";
$T2H_SUBDIR = '';
}
}
}
if ($T2H_SUBDIR && ! $T2H_OUT)
{
$docu_rdir = "$T2H_SUBDIR/";
print "}
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 = '';
}
}
if ($T2H_SHORTEXTN)
{
$docu_ext = "htm";
}
else
{
$docu_ext = "html";
}
if ($T2H_TOP_FILE =~ /\..*$/)
{
$T2H_TOP_FILE = $`.".$docu_ext";
}
# result files
if (! $T2H_OUT && ($T2H_SPLIT =~ /section/i || $T2H_SPLIT =~ /node/i))
{
$T2H_SPLIT = 'section';
}
elsif (! $T2H_OUT && $T2H_SPLIT =~ /chapter/i)
{
$T2H_SPLIT = 'chapter'
}
else
{
undef $T2H_SPLIT;
}
$docu_doc = "$docu_name.$docu_ext"; # document's contents
$docu_doc_file = "$docu_rdir$docu_doc";
if ($T2H_SPLIT)
{
$docu_toc = $T2H_TOC_FILE || "${docu_name}_toc.$docu_ext"; # document's table of contents
$docu_stoc = "${docu_name}_ovr.$docu_ext"; # document's short toc
$docu_foot = "${docu_name}_fot.$docu_ext"; # document's footnotes
$docu_about = "${docu_name}_abt.$docu_ext"; # about this document
$docu_top = $T2H_TOP_FILE || $docu_doc;
}
else
{
if ($T2H_OUT)
{
$docu_doc = $T2H_OUT;
$docu_doc =~ s|.*/||;
}
$docu_toc = $docu_foot = $docu_stoc = $docu_about = $docu_top = $docu_doc;
}
$docu_toc_file = "$docu_rdir$docu_toc";
$docu_stoc_file = "$docu_rdir$docu_stoc";
$docu_foot_file = "$docu_rdir$docu_foot";
$docu_about_file = "$docu_rdir$docu_about";
$docu_top_file = "$docu_rdir$docu_top";
$docu_frame_file = "$docu_rdir${docu_name}_frame.$docu_ext";
$docu_toc_frame_file = "$docu_rdir${docu_name}_toc_frame.$docu_ext";
#
# variables
#
$value{'html'} = 1; # predefine html (the output format)
$value{'texi2html'} = $THISVERSION; # predefine texi2html (the translator)
# _foo: internal to track @foo
foreach ('_author', '_title', '_subtitle',
'_settitle', '_setfilename', '_shorttitle') {
$value{$_} = ''; # prevent -w warnings
}
%node2sec = (); # node to section name
%sec2node = (); # section to node name
%sec2number = (); # section to number
%number2sec = (); # number to section
%idx2node = (); # index keys to node
%node2href = (); # node to HREF
%node2next = (); # node to next
%node2prev = (); # node to prev
%node2up = (); # node to up
%bib2href = (); # bibliography reference to HREF
%gloss2href = (); # glossary term to HREF
@sections = (); # list of sections
%tag2pro = (); # protected sections
#
# initial indexes
#
$bib_num = 0;
$foot_num = 0;
$gloss_num = 0;
$idx_num = 0;
$sec_num = 0;
$doc_num = 0;
$html_num = 0;
#
# can I use ISO8879 characters? (HTML+)
#
if ($T2H_USE_ISO) {
$things_map{'bullet'} = "•";
$things_map{'copyright'} = "©";
$things_map{'dots'} = "…";
$things_map{'equiv'} = "≡";
$things_map{'expansion'} = "→";
$things_map{'point'} = "∗";
$things_map{'result'} = "⇒";
}
#
# read texi2html extensions (if any)
#
$extensions = 'texi2html.ext'; # extensions in working directory
if (-f $extensions) {
print "# reading extensions from $extensions\n" if $T2H_VERBOSE;
require($extensions);
}
($progdir = $0) =~ s/[^\/]+$//;
if ($progdir && ($progdir ne './')) {
$extensions = "${progdir}texi2html.ext"; # extensions in texi2html directory
if (-f $extensions) {
print "# reading extensions from $extensions\n" if $T2H_VERBOSE;
require($extensions);
}
}
print "# reading from $docu\n" if $T2H_VERBOSE;
#########################################################################
#
# latex2html stuff
#
# latex2html conversions consist of three stages:
# 1) ToLatex: Put "latex" code into a latex file
# 2) ToHtml: Use latex2html to generate corresponding html code and images
# 3) FromHtml: Extract generated code and images from latex2html run
#
##########################
# default settings
#
# defaults for files and names
sub l2h_Init
{
local($root) = @_;
return 0 unless ($root);
$l2h_name = "${root}_l2h";
$l2h_latex_file = "$docu_rdir${l2h_name}.tex";
$l2h_cache_file = "${docu_rdir}l2h_cache.pm";
$T2H_L2H_L2H = "latex2html" unless ($T2H_L2H_L2H);
# destination dir -- generated images are put there, should be the same
# as dir of enclosing html document --
$l2h_html_file = "$docu_rdir${l2h_name}.html";
$l2h_prefix = "${l2h_name}_";
return 1;
}
##########################
#
# First stage: Generation of Latex file
# Initialize with: l2h_InitToLatex
# Add content with: l2h_ToLatex($text) --> HTML placeholder comment
# Finish with: l2h_FinishToLatex
#
$l2h_latex_preample = <<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 otherwise
sub l2h_InitToLatex
{
%l2h_to_latex = ();
unless ($T2H_L2H_SKIP)
{
unless (open(L2H_LATEX, ">$l2h_latex_file"))
{
warn "$ERROR Error l2h: Can't open latex file '$latex_file' for writing\n";
return 0;
}
print "# l2h: use ${l2h_latex_file} as latex file\n" if ($T2H_VERBOSE);
print L2H_LATEX $l2h_latex_preample;
}
# open database for caching
l2h_InitCache();
$l2h_latex_count = 0;
$l2h_to_latex_count = 0;
$l2h_cached_count = 0;
return 1;
}
# print text (1st arg) into latex file (if not already there), return
# HTML commentary which can be later on replaced by the latex2html
# generated text
sub l2h_ToLatex
{
my($text) = @_;
my($count);
$l2h_to_latex_count++;
$text =~ s/(\s*)$//;
# try whether we can cache it
my $cached_text = l2h_FromCache($text);
if ($cached_text)
{
$l2h_cached_count++;
return $cached_text;
}
# try whether we have text already on things to do
unless ($count = $l2h_to_latex{$text})
{
$count = $l2h_latex_count;
$l2h_latex_count++;
$l2h_to_latex{$text} = $count;
$l2h_to_latex[$count] = $text;
unless ($T2H_L2H_SKIP)
{
print L2H_LATEX "\\begin{rawhtml}\n";
print L2H_LATEX "<!-- 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 it
sub l2h_FinishToLatex
{
local ($reused);
$reused = $l2h_to_latex_count - $l2h_latex_count - $l2h_cached_count;
unless ($T2H_L2H_SKIP)
{
print L2H_LATEX $l2h_latex_closing;
close(L2H_LATEX);
}
print "# l2h: finished to latex ($l2h_cached_count cached, $reused reused, $l2h_latex_count contents)\n" if ($T2H_VERBOSE);
unless ($l2h_latex_count)
{
l2h_Finish();
return 0;
}
return 1;
}
###################################
# Second stage: Use latex2html to generate corresponding html code and images
#
# l2h_ToHtml([$l2h_latex_file, [$l2h_html_dir]]):
# Call latex2html on $l2h_latex_file
# Put images (prefixed with $l2h_name."_") and html file(s) in $l2h_html_dir
# Return 1, on success
# 0, otherwise
#
sub l2h_ToHtml
{
local($call, $ext, $root, $dotbug);
if ($T2H_L2H_SKIP)
{
print "# l2h: skipping latex2html run\n" if ($T2H_VERBOSE);
return 1;
}
# Check for dot in directory where dvips will work
if ($T2H_L2H_TMP)
{
if ($T2H_L2H_TMP =~ /\./)
{
warn "$ERROR Warning l2h: l2h_tmp dir contains a dot. Use /tmp, instead\n";
$dotbug = 1;
}
}
else
{
if (&getcwd =~ /\./)
{
warn "$ERROR Warning l2h: current dir contains a dot. Use /tmp as l2h_tmp dir \n";
$dotbug = 1;
}
}
# fix it, if necessary and hope that it works
$T2H_L2H_TMP = "/tmp" if ($dotbug);
$call = $T2H_L2H_L2H;
# use init file, if specified
$call = $call . " -init_file " . $init_file if ($init_file && -f $init_file);
# set output dir
$call .= ($docu_rdir ? " -dir $docu_rdir" : " -no_subdir");
# use l2h_tmp, if specified
$call = $call . " -tmp $T2H_L2H_TMP" if ($T2H_L2H_TMP);
# options we want to be sure of
$call = $call ." -address 0 -info 0 -split 0 -no_navigation -no_auto_link";
$call = $call ." -prefix ${l2h_prefix} $l2h_latex_file";
print "# l2h: executing '$call'\n" if ($T2H_VERBOSE);
if (system($call))
{
warn "l2h ***Error: '${call}' did not succeed\n";
return 0;
}
else
{
print "# l2h: latex2html finished successfully\n" if ($T2H_VERBOSE);
return 1;
}
}
# this is directly pasted over from latex2html
sub getcwd {
local($_) = `pwd`;
die "'pwd' failed (out of memory?)\n"
unless length;
chop;
$_;
}
##########################
# Third stage: Extract generated contents from latex2html run
# Initialize with: l2h_InitFromHtml
# open $l2h_html_file for reading
# reads in contents into array indexed by numbers
# return 1, on success -- 0, otherwise
# Extract Html code with: l2h_FromHtml($text)
# replaces in $text all previosuly inserted comments by generated html code
# returns (possibly changed) $text
# Finish with: l2h_FinishFromHtml
# closes $l2h_html_dir/$l2h_name.".$docu_ext"
sub l2h_InitFromHtml
{
local($h_line, $h_content, $count, %l2h_img);
if (! open(L2H_HTML, "<${l2h_html_file}"))
{
print "$ERROR Error l2h: Can't open ${l2h_html_file} for reading\n";
return 0;
}
print "# l2h: use ${l2h_html_file} as html file\n" if ($T2H_VERBOSE);
$l2h_html_count = 0;
while ($h_line = <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 -->".$done
if ($T2H_DEBUG & $DEBUG_L2H);
$done = &l2h_ExtractFromHtml($count) . $done;
$done = "<!-- l2h_begin $l2h_name $count -->".$done
if ($T2H_DEBUG & $DEBUG_L2H);
}
return $to_do.$done;
}
sub l2h_ExtractFromHtml
{
local($count) = @_;
return $l2h_from_html[$count] if ($l2h_from_html[$count]);
if ($count >= 0 && $count < $l2h_latex_count)
{
# now we are in trouble
local($l_l2h, $_);
$l2h_extract_error++;
print "$ERROR l2h: can't extract content $count from html\n"
if ($T2H_VERBOSE);
# try simple (ordinary) substition (without l2h)
$l_l2h = $T2H_L2H;
$T2H_L2H = 0;
$_ = $l2h_to_latex{$count};
$_ = &substitute_style($_);
&unprotect_texi;
$_ = "<!-- 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 it
sub l2h_InitCache
{
if (-r "$l2h_cache_file")
{
my $rdo = do "$l2h_cache_file";
warn("$ERROR l2h Error: could not load $docu_rdir$l2h_cache_file: $@\n")
unless ($rdo);
}
}
sub l2h_StoreCache
{
return unless $l2h_latex_count;
my ($key, $value);
open(FH, ">$l2h_cache_file") || return warn"$ERROR l2h Error: could not open $docu_rdir$l2h_cache_file for writing: $!\n";
while (($key, $value) = each %l2h_cache)
{
# escape stuff
$key =~ s|/|\\/|g;
$key =~ s|\\\\/|\\/|g;
# weird, a \ at the end of the key results in an error
# maybe this also broke the dbm database stuff
$key =~ s|\\$|\\\\|;
$value =~ s/\|/\\\|/g;
$value =~ s/\\\\\|/\\\|/g;
$value =~ s|\\\\|\\\\\\\\|g;
print FH "\n\$l2h_cache_key = q/$key/;\n";
print FH "\$l2h_cache{\$l2h_cache_key} = q|$value|;\n";
}
print FH "1;";
close(FH);
}
# return cached html, if it exists for text, and if all pictures
# are there, as well
sub l2h_FromCache
{
my $text = shift;
my $cached = $l2h_cache{$text};
if ($cached)
{
while ($cached =~ m/SRC="(.*?)"/g)
{
unless (-e "$docu_rdir$1")
{
return undef;
}
}
return $cached;
}
return undef;
}
# insert generated html into cache, move away images,
# return transformed html
$maximage = 1;
sub l2h_ToCache
{
my $count = shift;
my $content = shift;
my @images = ($content =~ /SRC="(.*?)"/g);
my ($src, $dest);
for $src (@images)
{
$dest = $l2h_img{$src};
unless ($dest)
{
my $ext;
if ($src =~ /.*\.(.*)$/ && $1 ne $docu_ext)
{
$ext = $1;
}
else
{
warn "$ERROR: L2h image $src has invalid extension\n";
next;
}
while (-e "$docu_rdir${docu_name}_$maximage.$ext") { $maximage++;}
$dest = "${docu_name}_$maximage.$ext";
system("cp -f $docu_rdir$src $docu_rdir$dest");
$l2h_img{$src} = $dest;
unlink "$docu_rdir$src" unless ($DEBUG & DEBUG_L2H);
}
$content =~ s/$src/$dest/g;
}
$l2h_cache{$l2h_to_latex[$count]} = $content;
return $content;
}
#+++############################################################################
# #
# Pass 1: read source, handle command, variable, simple substitution #
# #
#---############################################################################
@lines = (); # whole document
@toc_lines = (); # table of contents
@stoc_lines = (); # table of contents
$curlevel = 0; # current level in TOC
$node = ''; # current node name
$node_next = ''; # current node next name
$node_prev = ''; # current node prev name
$node_up = ''; # current node up name
$in_table = 0; # am I inside a table
$table_type = ''; # type of table ('', 'f', 'v', 'multi')
@tables = (); # nested table support
$in_bibliography = 0; # am I inside a bibliography
$in_glossary = 0; # am I inside a glossary
$in_top = 0; # am I inside the top node
$has_top = 0; # did I see a top node?
$has_top_command = 0; # did I see @top for automatic pointers?
$in_pre = 0; # am I inside a preformatted section
$in_list = 0; # am I inside a list
$in_html = 0; # am I inside an HTML section
$first_line = 1; # is it the first line
$dont_html = 0; # don't protect HTML on this line
$deferred_ref = ''; # deferred reference for indexes
@html_stack = (); # HTML elements stack
$html_element = ''; # current HTML element
&html_reset;
%macros = (); # macros
# init l2h
$T2H_L2H = &l2h_Init($docu_name) if ($T2H_L2H);
$T2H_L2H = &l2h_InitToLatex if ($T2H_L2H);
# build code for simple substitutions
# the maps used (%simple_map and %things_map) MUST be aware of this
# watch out for regexps, / and escaped characters!
$subst_code = '';
foreach (keys(%simple_map)) {
($re = $_) =~ s/(\W)/\\$1/g; # protect regexp chars
$subst_code .= "s/\\\@$re/$simple_map{$_}/g;\n";
}
foreach (keys(%things_map)) {
$subst_code .= "s/\\\@$_\\{\\}/$things_map{$_}/g;\n";
}
if ($use_acc) {
# accentuated characters
foreach (keys(%accent_map)) {
if ($_ eq "`") {
$subst_code .= "s/$;3";
} elsif ($_ eq "'") {
$subst_code .= "s/$;4";
} else {
$subst_code .= "s/\\\@\\$_";
}
$subst_code .= "([a-z])/&\${1}$accent_map{$_};/gi;\n";
}
}
eval("sub simple_substitutions { $subst_code }");
&init_input;
INPUT_LINE: while ($_ = &next_line) {
#
# remove \input on the first lines only
#
if ($first_line) {
next if /^\\input/;
$first_line = 0;
}
# non-@ substitutions cf. texinfmt.el
#
# parse texinfo tags
#
$tag = '';
$end_tag = '';
if (/^\s*\@end\s+(\w+)\b/) {
$end_tag = $1;
} elsif (/^\s*\@(\w+)\b/) {
$tag = $1;
}
#
# handle @html / @end html
#
if ($in_html) {
if ($end_tag eq 'html') {
$in_html = 0;
} else {
$tag2pro{$in_html} .= $_;
}
next;
} elsif ($tag eq 'html') {
$in_html = $PROTECTTAG . ++$html_num;
push(@lines, $in_html);
next;
}
#
# try to remove inlined comments
# syntax from tex-mode.el comment-start-skip
#
s/((^|[^\@])(\@\@)*)\@c(omment | |\{|$).*/$1/;
# Sometimes I use @c right at the end of a line ( to suppress the line feed )
# s/((^|[^\@])(\@\@)*)\@c(omment)?$/$1/;
# s/((^|[^\@])(\@\@)*)\@c(omment)? .*/$1/;
# s/(.*)\@c{.*?}(.*)/$1$2/;
# s/(.*)\@comment{.*?}(.*)/$1$2/;
# s/^(.*)\@c /$1/;
# s/^(.*)\@comment /$1/;
#############################################################
# value substitution before macro expansion, so that
# it works in macro arguments
s/\@value{($VARRE)}/$value{$1}/eg;
#############################################################
# macro substitution
while (/\@(\w+)/g)
{
if (exists($macros->{$1}))
{
my $before = $`;
my $name = $1;
my $after = $';
my @args;
my $args;
if ($after =~ /^\s*{(.*?[^\\])}(.*)/)
{
$args = $1;
$after = $2;
}
elsif (@{$macros->{$name}->{Args}} == 1)
{
$args = $after;
$args =~ s/^\s*//;
$args =~ s/\s*$//;
$after = '';
}
$args =~ s|\\\\|\\|g;
$args =~ s|\\{|{|g;
$args =~ s|\\}|}|g;
if (@{$macros->{$name}->{Args}} > 1)
{
$args =~ s/(^|[^\\]),/$1$;/g ;
$args =~ s|\\,|,|g;
@args = split(/$;\s*/, $args) if (@{$macros->{$name}->{Args}} > 1);
}
else
{
$args =~ s|\\,|,|g;
@args = ($args);
}
my $macrobody = $macros->{$name}->{Body};
for ($i=0; $i<=$ {
$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;
}
}
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) {
if ($tag eq 'node' ||
($sec2level{$tag} && $tag !~ /unnumbered/ && $tag !~ /heading/))
{
$in_top = 0;
push(@lines, $TOPEND);
}
}
unless ($in_pre) {
s/``/\"/g;
s/''/\"/g;
s/([\w ])---([\w ])/$1--$2/g;
}
if ($tag) {
&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')
{
if ($T2H_EXPAND eq 'tex' && $T2H_L2H && ! $in_pre)
{
push(@lines, &l2h_ToLatex(&string_until($tag) . " "));
}
else
{
&skip_until($tag);
}
next;
}
if ($tag eq 'titlepage')
{
next;
}
if ($tag =~ /^(|f|v|multi)table$/) {
$table_type = $1;
$tag = 'table';
}
if ($tag eq 'top' || ($tag eq 'node' && /^\@node\s+top\s*,/i)) {
$in_top = 1;
$has_top = 1;
$has_top_command = 1 if $tag eq 'top';
@lines = (); next;
} elsif ($tag eq 'node') {
if ($in_top)
{
$in_top = 0;
push(@lines, $TOPEND);
}
warn "$ERROR Bad node line: $_" unless $_ =~ /^\@node\s$NODESRE$/o;
s/^\@node\s+//;
$_ = &protect_html($_); ($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("<$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') {
if (/^\s*\@(|f|v|multi)table\s+\@(\w+)|(\{[^\}]*\})/) {
$in_table = $2;
unshift(@tables, join($;, $table_type, $in_table));
if ($table_type eq "multi") {
push(@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: $_"), next
unless $prefix_from;
warn("$ERROR unknown to index name $to ind syn*index line: $_"), next
unless $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 (/^\@$tag\s*{($NODERE)}\s*$/) {
$setref = $1;
$setref =~ s/\s+/ /g; $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$/) {
$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 spaces
s/$;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 this
my $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);
} elsif ($tag eq 'defop') {
EnterIndexEntry('f', "$name on $ftype", $docu_doc, $section, \@lines);
} elsif ($tag eq 'defvr' || $tag eq 'deftypevr' || $tag eq 'defcv') {
EnterIndexEntry('v', $name, $docu_doc, $section, \@lines);
} else {
EnterIndexEntry('t', $name, $docu_doc, $section, \@lines);
}
$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, $_); }
next;
}
while (/\@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 substitutions
if (/^\@(\w+?)index\s+/)
{
EnterIndexEntry($1, $', $docu_doc, $section, \@lines);
next;
}
#
# protect texi and HTML things
&protect_texi;
$_ = &protect_html($_) unless $dont_html;
$dont_html = 0;
# substitution (unsupported things)
s/^\@exdent\s+//g;
s/\@noindent\s+//g;
s/\@refill\s+//g;
# other substitutions
&simple_substitutions;
s/\@footnote\{/\@footnote$docu_doc\{/g; # mark footnotes, cf. pass 4
#
# analyze the tag again
#
if ($tag) {
if (defined($sec2level{$tag}) && $sec2level{$tag} > 0) {
if (/^\@$tag\s+(.+)$/) {
$name = $1;
$name = &normalise_node($name);
$level = $sec2level{$tag};
# check for index
$first_index_chapter = $name
if ($level == 1 && !$first_index_chapter &&
$name =~ /index/i);
if ($in_top && /heading/){
$T2H_HAS_TOP_HEADING = 1;
$_ = &debug("<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 node
if ($node)
{
warn "$ERROR Duplicate node found: $node\n"
if ($node2sec{$node});
}
else
{
$name .= ' ' while ($node2sec{$name});
$node = $name;
}
$name .= ' ' while ($sec2node{$name});
$section = $name;
$node2sec{$node} = $name;
$sec2node{$name} = $node;
$node2href{$node} = "$docu_doc#$docid";
$node2next{$node} = $node_next;
$node2prev{$node} = $node_prev;
$node2up{$node} = $node_up;
print "# node $node, section $name, level $level\n"
if $T2H_DEBUG & $DEBUG_TOC;
$node = '';
$node_next = '';
$node_prev = '';
$node_next = '';
if ($tocid)
{
# update TOC
while ($level > $curlevel) {
$curlevel++;
push(@toc_lines, "<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 DOC
push(@lines, &html_debug('', __LINE__));
&html_reset;
$_ = "<H$level> $name </H$level>\n<!--docid::${docid}::-->\n";
$_ = &debug($_, __LINE__);
push(@lines, &html_debug('', __LINE__));
}
# update DOC
foreach $line (split(/\n+/, $_)) {
push(@lines, "$line\n");
}
next;
} else {
warn "$ERROR Bad section line: $_";
}
} else {
# track variables
$value{$1} = Unprotect_texi($2), next if /^\@set\s+($VARRE)\s+(.*)$/o;
delete $value{$1}, next if /^\@clear\s+($VARRE)\s*$/o;
# store things
$value{'_shorttitle'} = Unprotect_texi($1), next if /^\@shorttitle\s+(.*)$/;
$value{'_setfilename'} = Unprotect_texi($1), next if /^\@setfilename\s+(.*)$/;
$value{'_settitle'} = Unprotect_texi($1), next if /^\@settitle\s+(.*)$/;
$value{'_author'} .= Unprotect_texi($1)."\n", next if /^\@author\s+(.*)$/;
$value{'_subtitle'} .= Unprotect_texi($1)."\n", next if /^\@subtitle\s+(.*)$/;
$value{'_title'} .= Unprotect_texi($1)."\n", next if /^\@title\s+(.*)$/;
# list item
if (/^\s*\@itemx?\s+/) {
$what = $';
$what =~ s/\s+$//;
if ($in_bibliography && $use_bibliography) {
if ($what =~ /^$BIBRE$/o) {
$id = 'BIB' . ++$bib_num;
$bib2href{$what} = "$docu_doc#$id";
print "# found bibliography for '$what' id $id\n"
if $T2H_DEBUG & $DEBUG_BIB;
$what = &t2h_anchor($id, '', $what);
}
} elsif ($in_glossary && $T2H_USE_GLOSSARY) {
$id = 'GLOSS' . ++$gloss_num;
$entry = $what;
$entry =~ tr/A-Z/a-z/ unless $entry =~ /^[A-Z\s]+$/;
$gloss2href{$entry} = "$docu_doc#$id";
print "# found glossary for '$entry' id $id\n"
if $T2H_DEBUG & $DEBUG_GLOSS;
$what = &t2h_anchor($id, '', $what);
}
elsif ($in_table && ($table_type eq 'f' || $table_type eq 'v'))
{
EnterIndexEntry($table_type, $what, $docu_doc, $section, \@lines);
}
&html_pop_if('P');
if ($html_element eq 'DL' || $html_element eq 'DD') {
if ($things_map{$in_table} && !$what) {
# special case to allow @table @bullet for instance
push(@lines, &debug("<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 index
unshift(@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 separator
if ($_ 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__));
}
}
# otherwise
push(@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: $_", next
unless (exists ($index_properties->{$prefix}));
$key =~ s/\s+$//;
$_ = $key;
&protect_texi;
$key = $_;
$_ = &protect_html($_);
my $html_key = substitute_style($_);
my $id;
$key = remove_style($key);
$key = remove_things($key);
$_ = $key;
&unprotect_texi;
$key = $_;
while (exists $index->{$prefix}->{$key}) {$key .= ' '};
if ($lines->[$#lines] =~ /^<!--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>
EOT
for $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"), return
unless $prefix;
if ($index_properties->{$prefix}->{code})
{
$index_properties->{$prefix}->{from_code}->{$prefix} = 1;
}
else
{
$index_properties->{$prefix}->{from}->{$prefix}= 1;
}
my $Entries = GetIndexEntries($index_properties->{$prefix}->{from},
$index_properties->{$prefix}->{from_code});
return unless %$Entries;
if ($T2H_IDX_SUMMARY)
{
my $key;
open(FHIDX, ">$docu_rdir$docu_name" . "_$name.idx")
|| die "Can't open > $docu_rdir$docu_name" . "_$name.idx for writing: $!\n";
print "# writing $name index summary in $docu_rdir$docu_name" . "_$name.idx...\n" if $T2H_VERBOSE;
for $key (sort keys %$Entries)
{
print FHIDX "$key\t$Entries->{$key}->{href}\n";
}
}
my $Pages = GetIndexPages($Entries);
my $page;
my $first_page = shift @$Pages;
my $sec_name = $section;
# remove section number
$sec_name =~ s/.*? // if $sec_name =~ /^([A-Z]|\d+)\./;
($first_page->{href} = sec_href($section)) =~ s/\#.*$//;
# Update tree structure of document
if (@$Pages)
{
my $sec;
my @after;
while (@sections && $sections[$#sections] ne $section)
{
unshift @after, pop @sections;
}
for $page (@$Pages)
{
my $node = ($page->{First} ne $page->{Last} ?
"$sec_name: $page->{First} -- $page->{Last}" :
"$sec_name: $page->{First}");
push @sections, $node;
$node2sec{$node} = $node;
$sec2node{$node} = $node;
$node2up{$node} = $section;
$page->{href} = next_doc();
$page->{name} = $node;
$node2href{$node} = $page->{href};
if ($prev_node)
{
$node2next{$prev_node} = $node;
$node2prev{$node} = $prev_node;
}
$prev_node = $node;
}
push @sections, @after;
}
my $summary = GetIndexSummary($first_page, $Pages, $name);
PrintIndexPage($lines, $summary, $first_page, $name);
for $page (@$Pages)
{
push @$lines, ($T2H_SPLIT eq 'chapter' ? $CHAPTEREND : $SECTIONEND);
push @$lines, "<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 menu
while (@lines) {
$_ = shift(@lines);
#
# special case (protected sections)
#
if (/^$PROTECTTAG/o) {
push(@lines2, $_);
next;
}
#
# menu
#
if (/^\@menu\b/)
{
$in_menu = 1;
$in_menu_listing = 1;
push(@lines2, &debug("<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, etc
s/ /\ /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 continuation
while ($lines[0] =~ /^\s+\w+/)
{
$descr .= shift(@lines);
}
&menu_entry($node, $name, $descr);
}
next;
}
#
# printindex
#
PrintIndex(\@lines2, $2, $1), next
if (/^<!--::(.*)::-->\@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 newline
if ($next =~ /\}/) { # split on 2 lines
$nodes .= " $`";
$after = $';
} else {
$nodes .= " $next";
$next = shift(@lines);
$next = &substitute_style($next);
chop($nodes);
if ($next =~ /\}/) { $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/) { # inforef
warn "$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 images
s[\@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 . $_;
}
}
# otherwise
push(@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";
}
}
}
}
push(@lines3, $_);
}
print "# end of pass 3\n" if $T2H_VERBOSE;
@foot_lines = (); @doc_lines = (); $end_of_para = 0;
while (@lines3) {
$_ = shift(@lines3);
if (/^$PROTECTTAG/o) {
push(@doc_lines, $_);
$end_of_para = 0;
next;
}
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;
}
# otherwise
push(@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 desired
if ($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 is
unless (@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 index
if ($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 " if ($T2H_VERBOSE && $T2H_HREF{Index});
%T2H_NAME =
(
'First', clean_name($sec2node{$sections[0]}),
'Last', clean_name($sec2node{$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'}),
);
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);
}
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;
$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;
while ($section = shift(@sections))
{
if ($T2H_SPLIT && ($T2H_SPLIT eq 'section' || $previous eq $CHAPTEREND))
{
if ($FH)
{
&$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;
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);
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--; if ($name =~ /^appendix/ || defined(@appendix_sec_num)) {
if (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 {
if (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_line
sub 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_line
sub 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 better
return &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 style
if ($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 styles
sub 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 do
return("$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