mirror of
https://github.com/python/cpython.git
synced 2025-07-23 11:15:24 +00:00
191439ab6b
supplemental l2h initialization file it creates and still get all the right behavior. In particular, it can change the image type and icon location and not get inconsistent results. Some code to help suppress various navigational pages; this might be interesting when generating HTML to create HTML Help documents, since the navigation support creates confusing hits in the full text search. HTML Help also provides a lot of the navigational infrastructure, so duplicating it makes it more tedious to use.
553 lines
17 KiB
Perl
553 lines
17 KiB
Perl
#LaTeX2HTML Version 96.1 : dot.latex2html-init -*- perl -*-
|
|
#
|
|
# Significantly revised by Fred L. Drake, Jr. <fdrake@acm.org> for use
|
|
# with the Python documentation.
|
|
#
|
|
# New name to avoid distributing "dot" files with the Python documentation.
|
|
#
|
|
|
|
package Override;
|
|
|
|
use Cwd qw(getcwd);
|
|
|
|
|
|
package main;
|
|
|
|
$HTML_VERSION = 4.0;
|
|
|
|
$MAX_LINK_DEPTH = 2;
|
|
$ADDRESS = '';
|
|
|
|
$NO_FOOTNODE = 1;
|
|
$NUMBERED_FOOTNOTES = 1;
|
|
|
|
# Python documentation uses section numbers to support references to match
|
|
# in the printed and online versions.
|
|
#
|
|
$SHOW_SECTION_NUMBERS = 1;
|
|
|
|
$ICONSERVER = '../icons';
|
|
|
|
# Control where the navigation bars should show up:
|
|
$TOP_NAVIGATION = 1;
|
|
$BOTTOM_NAVIGATION = 1;
|
|
$AUTO_NAVIGATION = 0;
|
|
|
|
$SUPPRESS_CONTENTS = 0;
|
|
$SUPPRESS_INDEXES = 0;
|
|
|
|
# these exactly match the python.org colors
|
|
$BODYTEXT = ('bgcolor="#ffffff" text="#000000"'
|
|
. ' link="#0000bb" vlink="#551a8b" alink="#ff0000"');
|
|
$CHILDLINE = "\n<p><hr>\n";
|
|
$VERBOSITY = 0;
|
|
|
|
# default # of columns for the indexes
|
|
$INDEX_COLUMNS = 2;
|
|
$MODULE_INDEX_COLUMNS = 4;
|
|
|
|
|
|
# A little painful, but lets us clean up the top level directory a little,
|
|
# and not be tied to the current directory (as far as I can tell).
|
|
#
|
|
use Cwd;
|
|
use File::Basename;
|
|
($myname, $mydir, $myext) = fileparse(__FILE__, '\..*');
|
|
chop $mydir; # remove trailing '/'
|
|
$mydir = getcwd() . "$dd$mydir"
|
|
unless $mydir =~ s|^/|/|;
|
|
$LATEX2HTMLSTYLES = "$mydir$envkey$LATEX2HTMLSTYLES";
|
|
push (@INC, $mydir);
|
|
|
|
($myrootname, $myrootdir, $myext) = fileparse($mydir, '\..*');
|
|
chop $myrootdir;
|
|
|
|
|
|
# Hackish way to get the appropriate paper-*/ directory into $TEXINPUTS;
|
|
# pass in the paper size (a4 or letter) as the environment variable PAPER
|
|
# to add the right directory. If not given, the current directory is
|
|
# added instead for use with HOWTO processing.
|
|
#
|
|
if (defined $ENV{'PAPER'}) {
|
|
$mytexinputs = "$myrootdir${dd}paper-$ENV{'PAPER'}$envkey";
|
|
}
|
|
else {
|
|
$mytexinputs = getcwd() . $envkey;
|
|
}
|
|
$mytexinputs .= "$myrootdir${dd}texinputs";
|
|
|
|
|
|
sub custom_driver_hook{
|
|
#
|
|
# This adds the directory of the main input file to $TEXINPUTS; it
|
|
# seems to be sufficiently general that it should be fine for HOWTO
|
|
# processing.
|
|
#
|
|
my $file = @_[0];
|
|
my($jobname,$dir,$ext) = fileparse($file, '\..*');
|
|
$dir = make_directory_absolute($dir);
|
|
$dir =~ s/$dd$//;
|
|
$TEXINPUTS = "$dir$envkey$mytexinputs";
|
|
print "\nadding $dir to \$TEXINPUTS\n";
|
|
}
|
|
|
|
# Defining this allows us to remove all table of contents and index
|
|
# processing using an init file; this is required to get rid of the
|
|
# Table of Contents or we'd get a blank page. Based on a suggestion
|
|
# from Ross Moore <ross@ics.mq.edu.au>.
|
|
#
|
|
# Seems to require a more recent version of LaTeX2HTML than I've
|
|
# been using, though.
|
|
#
|
|
sub preprocess{
|
|
if ($SUPPRESS_CONTENTS) {
|
|
s/\\(tableofcontents|listof(figures|tables))/\2/g;
|
|
}
|
|
if ($SUPPRESS_INDEXES) {
|
|
s/\\(print|make)index//g;
|
|
}
|
|
}
|
|
|
|
|
|
sub set_icon_size{
|
|
my($name, $w, $h) = @_;
|
|
$iconsizes{$name} = "width=$w height=$h";
|
|
}
|
|
|
|
foreach $name (split(/ /, 'up next previous contents index modules blank')) {
|
|
set_icon_size($name, 32, 32);
|
|
}
|
|
sub adjust_icon_information{
|
|
# The '_motif' is really annoying, and makes the HTML larger with no value
|
|
# added, so strip it off:
|
|
foreach $name (keys %icons) {
|
|
my $icon = $icons{$name};
|
|
# Strip off the wasteful '_motif':
|
|
$icon =~ s/_motif//;
|
|
# Change the greyed-out icons to be blank:
|
|
$icon =~ s/[a-z]*_gr[.]/blank./;
|
|
# make sure we're using the latest $IMAGE_TYPE
|
|
$icon =~ s/[.](gif|png)$/.$IMAGE_TYPE/;
|
|
$icons{$name} = $icon;
|
|
}
|
|
$icons{'blank'} = 'blank.' . $IMAGE_TYPE;
|
|
|
|
$CUSTOM_BUTTONS = '';
|
|
$BLANK_ICON = "\n<td>" . img_tag('blank.' . $IMAGE_TYPE) . "</td>";
|
|
$BLANK_ICON =~ s/alt="blank"/alt=""/;
|
|
$NAV_BGCOLOR = " bgcolor=\"#99CCFF\"";
|
|
}
|
|
adjust_icon_information();
|
|
|
|
|
|
sub make_nav_sectref{
|
|
my($label,$title) = @_;
|
|
if ($title) {
|
|
return ("<b class=navlabel>$label:</b> "
|
|
. "<span class=sectref>$title</span>\n");
|
|
}
|
|
return '';
|
|
}
|
|
|
|
sub make_nav_panel{
|
|
my $s;
|
|
$s = "<table align=center width=\"100%\" cellpadding=0 cellspacing=2>"
|
|
. "\n<tr>"
|
|
. "\n<td>$NEXT</td>"
|
|
. "\n<td>$UP</td>"
|
|
. "\n<td>$PREVIOUS</td>";
|
|
if ($SUPPRESS_CONTENTS && $SUPPRESS_INDEXES) {
|
|
$s .= ("\n<td align=right$NAV_BGCOLOR width=\"100%\">"
|
|
. "\n <b class=title>$t_title\ \ \ </b></td>");
|
|
}
|
|
else {
|
|
$s .= ("\n<td align=center$NAV_BGCOLOR width=\"100%\">"
|
|
. "\n <b class=title>$t_title</b></td>"
|
|
. ($CONTENTS ? "\n<td>$CONTENTS</td>" : $BLANK_ICON)
|
|
. "\n<td>$CUSTOM_BUTTONS</td>" # module index
|
|
. ($INDEX ? "\n<td>$INDEX</td>" : $BLANK_ICON));
|
|
}
|
|
$s .= ("\n</tr></table>"
|
|
. make_nav_sectref("Next", $NEXT_TITLE)
|
|
. make_nav_sectref("Up", $UP_TITLE)
|
|
. make_nav_sectref("Previous", $PREVIOUS_TITLE));
|
|
# remove these; they are unnecessary and cause error from validation
|
|
$s =~ s/ NAME="tex2html\d+"\n//g;
|
|
return $s;
|
|
}
|
|
|
|
sub top_navigation_panel {
|
|
"<div class=navigation>\n"
|
|
. make_nav_panel()
|
|
. '<br><hr></div>';
|
|
}
|
|
|
|
sub bot_navigation_panel {
|
|
"<p>\n<div class=navigation><hr>"
|
|
. make_nav_panel()
|
|
. '</div>';
|
|
}
|
|
|
|
sub add_link {
|
|
# Returns a pair (iconic link, textual link)
|
|
my($icon, $current_file, @link) = @_;
|
|
my($dummy, $file, $title) = split($delim,
|
|
$section_info{join(' ',@link)});
|
|
if ($title && ($file ne $current_file)) {
|
|
$title = purify($title);
|
|
$title = get_first_words($title, $WORDS_IN_NAVIGATION_PANEL_TITLES);
|
|
return (make_href($file, $icon), make_href($file, "$title"))
|
|
}
|
|
elsif ($icon eq $up_visible_mark && $EXTERNAL_UP_LINK) {
|
|
return (make_href($EXTERNAL_UP_LINK, $icon),
|
|
make_href($EXTERNAL_UP_LINK, "$EXTERNAL_UP_TITLE"))
|
|
}
|
|
elsif (($icon eq $previous_visible_mark
|
|
|| $icon eq $previous_page_visible_mark)
|
|
&& $EXTERNAL_PREV_LINK && $EXTERNAL_PREV_TITLE) {
|
|
return (make_href($EXTERNAL_PREV_LINK, $icon),
|
|
make_href($EXTERNAL_PREV_LINK, "$EXTERNAL_PREV_TITLE"))
|
|
}
|
|
elsif (($icon eq $next_visible_mark
|
|
|| $icon eq $next_page_visible_mark)
|
|
&& $EXTERNAL_DOWN_LINK && $EXTERNAL_DOWN_TITLE) {
|
|
return (make_href($EXTERNAL_DOWN_LINK, $icon),
|
|
make_href($EXTERNAL_DOWN_LINK, "$EXTERNAL_DOWN_TITLE"))
|
|
}
|
|
(&inactive_img($icon), "");
|
|
}
|
|
|
|
sub add_special_link {
|
|
my($icon, $file, $current_file) = @_;
|
|
(($file && ($file ne $current_file)) ? make_href($file, $icon) : undef)
|
|
}
|
|
|
|
sub img_tag {
|
|
local($icon) = @_;
|
|
my $alt;
|
|
my $align = " align=bottom ";
|
|
|
|
# having this list hardcoded here is really bogus....
|
|
$alt = join('|', 'up', 'next_group', 'previous_group'
|
|
, 'next', 'previous', 'change_begin_right', 'change_begin'
|
|
, 'change_end_right', 'change_end', 'change_delete_right'
|
|
, 'change_delete', 'contents', 'index', 'modules', 'blank');
|
|
|
|
if ($icon =~ /(gif|png)$/) {
|
|
$used_icons{$icon} = 1;
|
|
if ($icon =~ /change_(begin|end|delete)_right/) { $align = ' ' };
|
|
my $nav_border = "$NAV_BORDER";
|
|
if ($icon =~ /($alt)/) {
|
|
$alt = $1;
|
|
$alt = ""
|
|
if ($alt eq "blank");
|
|
}
|
|
else {
|
|
$nav_border = '1';
|
|
$alt = '[*]';
|
|
};
|
|
if ($LOCAL_ICONS) {
|
|
return join('', '<img ', $iconsizes{$1}, $align
|
|
,'border=', $nav_border, ' alt="', $alt
|
|
,'" src="', $icon, '">' );
|
|
}
|
|
return join('', '<img ', $iconsizes{$1}, $align
|
|
,'border=', $nav_border, ' alt="', $alt, "\"\n"
|
|
,' src="', $ICONSERVER, "/$icon", '">' );
|
|
}
|
|
else {
|
|
return $icon;
|
|
}
|
|
}
|
|
|
|
|
|
sub do_cmd_arabic {
|
|
# get rid of that nasty <SPAN CLASS="arabic">...</SPAN>
|
|
local($ctr, $val, $id, $_) = &read_counter_value(@_[0]);
|
|
return ($val ? &farabic($val) : "0") . $_;
|
|
}
|
|
|
|
|
|
sub gen_index_id {
|
|
# this is used to ensure common index key generation and a stable sort
|
|
my($str,$extra) = @_;
|
|
sprintf('%s###%s%010d', $str, $extra, ++$global{'max_id'});
|
|
}
|
|
|
|
sub insert_index{
|
|
my($mark,$datafile,$columns,$letters,$prefix) = @_;
|
|
my $prog = "$myrootdir/tools/buildindex.py";
|
|
my $index;
|
|
if ($letters) {
|
|
$index = `$prog --columns $columns --letters $datafile`;
|
|
}
|
|
else {
|
|
$index = `$prog --columns $columns $datafile`;
|
|
}
|
|
s/$mark/$prefix$index/;
|
|
}
|
|
|
|
sub add_idx{
|
|
print "\nBuilding HTML for the index ...";
|
|
close(IDXFILE);
|
|
insert_index($idx_mark, 'index.dat', $INDEX_COLUMNS, 1, '');
|
|
}
|
|
|
|
|
|
$idx_module_mark = '<tex2html_idx_module_mark>';
|
|
$idx_module_title = 'Module Index';
|
|
|
|
sub add_module_idx{
|
|
print "\nBuilding HTML for the module index ...";
|
|
my $key;
|
|
my $first = 1;
|
|
my $prevplat = '';
|
|
my $allthesame = 1;
|
|
my $prefix = '';
|
|
foreach $key (keys %Modules) {
|
|
$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/\1/;
|
|
my $plat = "$ModulePlatforms{$key}";
|
|
$plat = ''
|
|
if ($plat eq $IGNORE_PLATFORM_ANNOTATION);
|
|
if (!$first) {
|
|
$allthesame = 0
|
|
if ($prevplat ne $plat);
|
|
}
|
|
else { $first = 0; }
|
|
$prevplat = $plat;
|
|
}
|
|
open(MODIDXFILE, '>modindex.dat') || die "\n$!\n";
|
|
foreach $key (keys %Modules) {
|
|
# dump the line in the data file; just use a dummy seqno field
|
|
my $nkey = $1;
|
|
my $moditem = "$Modules{$key}";
|
|
my $plat = '';
|
|
$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/\1/;
|
|
if ($ModulePlatforms{$key} && !$allthesame) {
|
|
$plat = (" <em>(<span class=platform>$ModulePlatforms{$key}"
|
|
. '</span>)</em>');
|
|
}
|
|
print MODIDXFILE
|
|
$moditem
|
|
. $IDXFILE_FIELD_SEP
|
|
. "<tt class=module>$key</tt>$plat###\n";
|
|
}
|
|
close(MODIDXFILE);
|
|
if (!$allthesame) {
|
|
$prefix = <<PLAT_DISCUSS;
|
|
|
|
|
|
<p> Some module names are followed by an annotation indicating what
|
|
platform they are available on.</p>
|
|
|
|
PLAT_DISCUSS
|
|
}
|
|
insert_index($idx_module_mark, 'modindex.dat', $MODULE_INDEX_COLUMNS, 0,
|
|
$prefix);
|
|
}
|
|
|
|
# replace both indexes as needed:
|
|
sub add_idx_hook{
|
|
add_idx() if (/$idx_mark/);
|
|
add_module_idx() if (/$idx_module_mark/);
|
|
process_python_state();
|
|
}
|
|
|
|
|
|
# In addition to the standard stuff, add label to allow named node files and
|
|
# support suppression of the page complete (for HTML Help use).
|
|
sub do_cmd_tableofcontents {
|
|
local($_) = @_;
|
|
# if ($SUPPRESS_CONTENTS) {
|
|
# return $_;
|
|
# }
|
|
$TITLE = $toc_title;
|
|
$tocfile = $CURRENT_FILE;
|
|
my($closures,$reopens) = preserve_open_tags();
|
|
anchor_label('contents', $CURRENT_FILE, $_); # this is added
|
|
join('', "<BR>\n\\tableofchildlinks[off]", $closures
|
|
, make_section_heading($toc_title, 'H2'), $toc_mark
|
|
, $reopens, $_);
|
|
}
|
|
# In addition to the standard stuff, add label to allow named node files.
|
|
sub do_cmd_listoffigures {
|
|
local($_) = @_;
|
|
$TITLE = $lof_title;
|
|
$loffile = $CURRENT_FILE;
|
|
my($closures,$reopens) = preserve_open_tags();
|
|
anchor_label('lof', $CURRENT_FILE, $_); # this is added
|
|
join('', "<BR>\n", $closures
|
|
, make_section_heading($lof_title, 'H2'), $lof_mark
|
|
, $reopens, $_);
|
|
}
|
|
# In addition to the standard stuff, add label to allow named node files.
|
|
sub do_cmd_listoftables {
|
|
local($_) = @_;
|
|
$TITLE = $lot_title;
|
|
$lotfile = $CURRENT_FILE;
|
|
my($closures,$reopens) = preserve_open_tags();
|
|
anchor_label('lot', $CURRENT_FILE, $_); # this is added
|
|
join('', "<BR>\n", $closures
|
|
, make_section_heading($lot_title, 'H2'), $lot_mark
|
|
, $reopens, $_);
|
|
}
|
|
# In addition to the standard stuff, add label to allow named node files.
|
|
sub do_cmd_textohtmlinfopage {
|
|
local($_) = @_;
|
|
if ($INFO) { #
|
|
anchor_label("about",$CURRENT_FILE,$_); # this is added
|
|
} #
|
|
my $the_version = ''; # and the rest is
|
|
if ($t_date) { # mostly ours
|
|
$the_version = ",\n$t_date";
|
|
if ($PYTHON_VERSION) {
|
|
$the_version .= ", Release $PYTHON_VERSION";
|
|
}
|
|
}
|
|
$_ = (($INFO == 1)
|
|
? join('', $close_all
|
|
, "<strong>$t_title</strong>$the_version\n"
|
|
, `cat $myrootdir${dd}html${dd}about.dat`
|
|
, $open_all, $_)
|
|
: join('', $close_all, $INFO,"\n", $open_all, $_));
|
|
$_;
|
|
}
|
|
|
|
# $idx_mark will be replaced with the real index at the end
|
|
sub do_cmd_textohtmlindex {
|
|
local($_) = @_;
|
|
$TITLE = $idx_title;
|
|
$idxfile = $CURRENT_FILE;
|
|
if (%index_labels) { make_index_labels(); }
|
|
if (($SHORT_INDEX) && (%index_segment)) { make_preindex(); }
|
|
else { $preindex = ''; }
|
|
my $heading = make_section_heading($idx_title, 'h2') . $idx_mark;
|
|
my($pre,$post) = minimize_open_tags($heading);
|
|
anchor_label('genindex',$CURRENT_FILE,$_); # this is added
|
|
'<br>\n' . $pre . $_;
|
|
}
|
|
|
|
# $idx_module_mark will be replaced with the real index at the end
|
|
sub do_cmd_textohtmlmoduleindex {
|
|
local($_) = @_;
|
|
$TITLE = $idx_module_title;
|
|
anchor_label("modindex",$CURRENT_FILE,$_);
|
|
'<p>' . make_section_heading($idx_module_title, "h2")
|
|
. $idx_module_mark . $_;
|
|
}
|
|
|
|
# The bibliography and the index should be treated as separate sections
|
|
# in their own HTML files. The \bibliography{} command acts as a sectioning command
|
|
# that has the desired effect. But when the bibliography is constructed
|
|
# manually using the thebibliography environment, or when using the
|
|
# theindex environment it is not possible to use the normal sectioning
|
|
# mechanism. This subroutine inserts a \bibliography{} or a dummy
|
|
# \textohtmlindex command just before the appropriate environments
|
|
# to force sectioning.
|
|
|
|
# XXX This *assumes* that if there are two {theindex} environments, the
|
|
# first is the module index and the second is the standard index. This
|
|
# is sufficient for the current Python documentation, but that's about
|
|
# it.
|
|
|
|
sub add_bbl_and_idx_dummy_commands {
|
|
my $id = $global{'max_id'};
|
|
|
|
s/([\\]begin\s*$O\d+$C\s*thebibliography)/$bbl_cnt++; $1/eg;
|
|
s/([\\]begin\s*$O\d+$C\s*thebibliography)/$id++; "\\bibliography$O$id$C$O$id$C $1"/geo;
|
|
#----------------------------------------------------------------------
|
|
# (FLD) This was added
|
|
if ($SUPPRESS_INDEXES) {
|
|
$CUSTOM_BUTTONS .= img_tag('blank.' . $IMAGE_TYPE);
|
|
}
|
|
else {
|
|
my(@parts) = split(/\\begin\s*$O\d+$C\s*theindex/);
|
|
if (scalar(@parts) == 3) {
|
|
# Be careful to re-write the string in place, since $_ is *not*
|
|
# returned explicity; *** nasty side-effect dependency! ***
|
|
print "\nadd_bbl_and_idx_dummy_commands ==> adding module index";
|
|
my $rx = "([\\\\]begin\\s*$O\\d+$C\\s*theindex[\\s\\S]*)"
|
|
. "([\\\\]begin\\s*$O\\d+$C\\s*theindex)";
|
|
s/$rx/\\textohtmlmoduleindex \1 \\textohtmlindex \2/o;
|
|
# Add a button to the navigation areas:
|
|
$CUSTOM_BUTTONS .= ("<a\n href=\"modindex.html\">"
|
|
. img_tag('modules.'.$IMAGE_TYPE) . "</a>");
|
|
}
|
|
else {
|
|
$CUSTOM_BUTTONS .= img_tag('blank.' . $IMAGE_TYPE);
|
|
$global{'max_id'} = $id; # not sure why....
|
|
s/([\\]begin\s*$O\d+$C\s*theindex)/\\textohtmlindex $1/o;
|
|
s/[\\]printindex/\\textohtmlindex /o;
|
|
}
|
|
}
|
|
#----------------------------------------------------------------------
|
|
lib_add_bbl_and_idx_dummy_commands()
|
|
if defined(&lib_add_bbl_and_idx_dummy_commands);
|
|
}
|
|
|
|
# The bibliographic references, the appendices, the lists of figures and tables
|
|
# etc. must appear in the contents table at the same level as the outermost
|
|
# sectioning command. This subroutine finds what is the outermost level and
|
|
# sets the above to the same level;
|
|
|
|
sub set_depth_levels {
|
|
# Sets $outermost_level
|
|
my $level;
|
|
#RRM: do not alter user-set value for $MAX_SPLIT_DEPTH
|
|
foreach $level ("part", "chapter", "section", "subsection",
|
|
"subsubsection", "paragraph") {
|
|
last if (($outermost_level) = /\\($level)$delimiter_rx/);
|
|
}
|
|
$level = ($outermost_level ? $section_commands{$outermost_level} :
|
|
do {$outermost_level = 'section'; 3;});
|
|
|
|
#RRM: but calculate value for $MAX_SPLIT_DEPTH when a $REL_DEPTH was given
|
|
if ($REL_DEPTH && $MAX_SPLIT_DEPTH) {
|
|
$MAX_SPLIT_DEPTH = $level + $MAX_SPLIT_DEPTH;
|
|
} elsif (!($MAX_SPLIT_DEPTH)) { $MAX_SPLIT_DEPTH = 1 };
|
|
|
|
%unnumbered_section_commands = ('tableofcontents' => $level,
|
|
'listoffigures' => $level,
|
|
'listoftables' => $level,
|
|
'bibliography' => $level,
|
|
'textohtmlindex' => $level,
|
|
'textohtmlmoduleindex' => $level);
|
|
$section_headings{'textohtmlmoduleindex'} = 'h1';
|
|
|
|
%section_commands = (%unnumbered_section_commands,
|
|
%section_commands);
|
|
|
|
make_sections_rx();
|
|
}
|
|
|
|
|
|
# Fix from Ross Moore for ']' in \item[...]; this can be removed once the next
|
|
# patch to LaTeX2HTML is released and tested ... if the patch gets included.
|
|
# Be very careful to keep this around, just in case things break again!
|
|
#
|
|
sub protect_useritems {
|
|
local(*_) = @_;
|
|
local($preitems,$thisitem);
|
|
while (/\\item\s*\[/) {
|
|
$preitems .= $`;
|
|
$_ = $';
|
|
$thisitem = $&.'<<'.++$global{'max_id'}.'>>';
|
|
s/^(((($O|$OP)\d+($C|$CP)).*\3|<[^<>]*>|[^\]<]+)*)\]/$thisitem.=$1;''/e;
|
|
$preitems .= $thisitem . '<<' . $global{'max_id'} . '>>]';
|
|
s/^]//;
|
|
}
|
|
$_ = $preitems . $_;
|
|
}
|
|
|
|
# This changes the markup used for {verbatim} environments, and is the
|
|
# best way I've found that ensures the <dl> goes on the outside of the
|
|
# <pre>...</pre>.
|
|
#
|
|
# Note that this *must* be done in the init file, not the python.perl
|
|
# style support file. The %declarations must be set before initialize()
|
|
# is called in the main script.
|
|
#
|
|
%declarations = ('preform' => '<dl><dd><pre class=verbatim></pre></dl>',
|
|
%declarations);
|
|
|
|
1; # This must be the last line
|