mirrors/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-07-24 03:35:53 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 8

do_cmd_textohtmlinfopage(): Rip out most of the boilerplate and move

Browse source 
it to the about.dat file.  Only what really needs to be
	generated is, and the remainder is easier to maintain than
	Perl code.
This commit is contained in:
Fred Drake 1998-11-30 19:25:47 +00:00
parent d83c8bd95f
commit 15796f791a
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
Doc/perl/l2hinit.perl
View file

@ -304,19 +304,20 @@ sub do_cmd_textohtmlinfopage {
if ($INFO) { #
anchor_label("about",$CURRENT_FILE,$_); # this is added
} #
( ($INFO == 1)
? join('', $close_all
, "<STRONG>$t_title</STRONG><P>\nThis document was generated using the\n"
, "<A HREF=\"$TEX2HTMLADDRESS\"><STRONG>LaTeX</STRONG>2<tt>HTML</tt></A>"
, " translator Version $TEX2HTMLVERSION\n"
, "<P>Copyright &#169; 1993, 1994, 1995, 1996, 1997,\n"
, "<A HREF=\"$AUTHORADDRESS\">Nikos Drakos</A>, \n"
, "Computer Based Learning Unit, University of Leeds.\n"
, "<P>The command line arguments were: <BR>\n "
, "<STRONG>latex2html</STRONG> <tt>$argv</tt>.\n"
, "<P>The translation was initiated by $address_data[0] on $address_data[1]"
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, $_))
: join('', $close_all, $INFO,"\n", $open_all, $_));
$_;
}
# $idx_mark will be replaced with the real index at the end