Skip to content

C
cpython
Commit d2b79ca3 authored by Fred Drake's avatar Fred Drake
Browse files
Options

Added support for new \setreleaseinfo macro. 

Normalize all generated HTML so that attribute names come out as
name="value" instead of name='value'.
Changed the target of RFC links to point to the hypertext RFCs at
www.faqs.org instead of the plain text RFCs at www.ietf.org.
parent bc714317
Hide whitespace changes
Inline Side-by-side
Showing with 76 additions and 65 deletions
Doc/perl/python.perl
View file @ d2b79ca3
...@@ -41,15 +41,15 @@ sub get_link_icon($){ ...@@ -41,15 +41,15 @@ sub get_link_icon($){
if ($OFF_SITE_LINK_ICON && ($url =~ /^[-a-zA-Z0-9.]+:/)) { if ($OFF_SITE_LINK_ICON && ($url =~ /^[-a-zA-Z0-9.]+:/)) {
# absolute URL; assume it points off-site # absolute URL; assume it points off-site
my $icon = make_icon_filename($OFF_SITE_LINK_ICON); my $icon = make_icon_filename($OFF_SITE_LINK_ICON);
return (" <img src='$icon'\n" return (" <img src=\"$icon\"\n"
. " border='0' class='offsitelink'" . ' border="0" class="offsitelink"'
. ($OFF_SITE_LINK_ICON_HEIGHT . ($OFF_SITE_LINK_ICON_HEIGHT
? " height='$OFF_SITE_LINK_ICON_HEIGHT'" ? " height=\"$OFF_SITE_LINK_ICON_HEIGHT\""
: '') : '')
. ($OFF_SITE_LINK_ICON_WIDTH . ($OFF_SITE_LINK_ICON_WIDTH
? " width='$OFF_SITE_LINK_ICON_WIDTH'" ? " width=\"$OFF_SITE_LINK_ICON_WIDTH\""
: '') : '')
. " alt='[off-site link]'\n" . " alt=\"[off-site link]\"\n"
. " >"); . " >");
} }
return ''; return '';
...@@ -104,6 +104,7 @@ sub do_cmd_e{ '&#92;' . @_[0]; } ...@@ -104,6 +104,7 @@ sub do_cmd_e{ '&#92;' . @_[0]; }
$DEVELOPER_ADDRESS = ''; $DEVELOPER_ADDRESS = '';
$SHORT_VERSION = ''; $SHORT_VERSION = '';
$RELEASE_INFO = '';
$PACKAGE_VERSION = ''; $PACKAGE_VERSION = '';
sub do_cmd_version{ $PACKAGE_VERSION . @_[0]; } sub do_cmd_version{ $PACKAGE_VERSION . @_[0]; }
...@@ -114,6 +115,12 @@ sub do_cmd_release{ ...@@ -114,6 +115,12 @@ sub do_cmd_release{
return $_; return $_;
} }
sub do_cmd_setreleaseinfo{
local($_) = @_;
$RELEASE_INFO = next_argument();
return $_;
}
sub do_cmd_setshortversion{ sub do_cmd_setshortversion{
local($_) = @_; local($_) = @_;
$SHORT_VERSION = next_argument(); $SHORT_VERSION = next_argument();
...@@ -236,7 +243,7 @@ sub do_cmd_refmodule{ ...@@ -236,7 +243,7 @@ sub do_cmd_refmodule{
my $module = next_argument(); my $module = next_argument();
$key = $module $key = $module
unless $key; unless $key;
return "<tt class='module'><a href='module-$key.html'>$module</a></tt>" return "<tt class=\"module\"><a href=\"module-$key.html\">$module</a></tt>"
. $_; . $_;
} }
...@@ -244,8 +251,8 @@ sub do_cmd_newsgroup{ ...@@ -244,8 +251,8 @@ sub do_cmd_newsgroup{
local($_) = @_; local($_) = @_;
my $newsgroup = next_argument(); my $newsgroup = next_argument();
my $icon = get_link_icon("news:$newsgroup"); my $icon = get_link_icon("news:$newsgroup");
my $stuff = "<a class='newsgroup' href='news:$newsgroup'>" my $stuff = ("<a class=\"newsgroup\" href=\"news:$newsgroup\">"
. "$newsgroup$icon</a>"; . "$newsgroup$icon</a>");
return $stuff . $_; return $stuff . $_;
} }
...@@ -276,18 +283,16 @@ sub do_cmd_manpage{ ...@@ -276,18 +283,16 @@ sub do_cmd_manpage{
local($_) = @_; local($_) = @_;
my $page = next_argument(); my $page = next_argument();
my $section = next_argument(); my $section = next_argument();
return "<span class='manpage'><i>$page</i>($section)</span>" . $_; return "<span class=\"manpage\"><i>$page</i>($section)</span>" . $_;
} }
$PEP_FORMAT = "http://python.sourceforge.net/peps/pep-XXXX.html"; $PEP_FORMAT = "http://python.sourceforge.net/peps/pep-%04d.html";
$RFC_FORMAT = "http://www.ietf.org/rfc/rfcXXXX.txt"; #$RFC_FORMAT = "http://www.ietf.org/rfc/rfc%04d.txt";
$RFC_FORMAT = "http://www.faqs.org/rfcs/rfc%d.html";
sub get_rfc_url($$){ sub get_rfc_url($$){
my($rfcnum, $format) = @_; my($rfcnum, $format) = @_;
$rfcnum = sprintf("%04d", $rfcnum); return sprintf($format, $rfcnum);
$format = "$format";
$format =~ s/XXXX/$rfcnum/;
return $format;
} }
sub do_cmd_pep{ sub do_cmd_pep{
...@@ -323,13 +328,13 @@ sub do_cmd_citetitle{ ...@@ -323,13 +328,13 @@ sub do_cmd_citetitle{
my $icon = get_link_icon($url); my $icon = get_link_icon($url);
my $repl = ''; my $repl = '';
if ($url) { if ($url) {
$repl = ("<em class='citetitle'><a\n" $repl = ("<em class=\"citetitle\"><a\n"
. " href='$url'\n" . " href=\"$url\"\n"
. " title='$title'\n" . " title=\"$title\"\n"
. " >$title$icon</a></em>"); . " >$title$icon</a></em>");
} }
else { else {
$repl = "<em class='citetitle'\n >$title</em>"; $repl = "<em class=\"citetitle\"\n >$title</em>";
} }
return $repl . $_; return $repl . $_;
} }
...@@ -355,7 +360,7 @@ sub versionnote{ ...@@ -355,7 +360,7 @@ sub versionnote{
if ($explanation) { if ($explanation) {
$text = "$type in version $release:\n$explanation."; $text = "$type in version $release:\n$explanation.";
} }
return "\n<span class='versionnote'>$text</span>\n" . $_; return "\n<span class=\"versionnote\">$text</span>\n" . $_;
} }
sub do_cmd_versionadded{ sub do_cmd_versionadded{
...@@ -372,11 +377,11 @@ sub do_cmd_versionchanged{ ...@@ -372,11 +377,11 @@ sub do_cmd_versionchanged{
sub do_cmd_platform{ sub do_cmd_platform{
local($_) = @_; local($_) = @_;
my $platform = next_argument(); my $platform = next_argument();
$ModulePlatforms{"<tt class='module'>$THIS_MODULE</tt>"} = $platform; $ModulePlatforms{"<tt class=\"module\">$THIS_MODULE</tt>"} = $platform;
$platform = "Macintosh" $platform = "Macintosh"
if $platform eq 'Mac'; if $platform eq 'Mac';
return "\n<p class='availability'>Availability: <span" return "\n<p class=\"availability\">Availability: <span"
. "\n class='platform'>$platform</span>.</p>\n" . $_; . "\n class=\"platform\">$platform</span>.</p>\n" . $_;
} }
$IGNORE_PLATFORM_ANNOTATION = ''; $IGNORE_PLATFORM_ANNOTATION = '';
...@@ -445,7 +450,7 @@ sub write_idxfile{ ...@@ -445,7 +450,7 @@ sub write_idxfile{
sub gen_link{ sub gen_link{
my($node,$target) = @_; my($node,$target) = @_;
print INTLABELS "\$internal_labels{\"$target\"} = \"$URL/$node\";\n"; print INTLABELS "\$internal_labels{\"$target\"} = \"$URL/$node\";\n";
return "<a href='$node#$target'>"; return "<a href=\"$node#$target\">";
} }
sub add_index_entry{ sub add_index_entry{
...@@ -458,7 +463,7 @@ sub add_index_entry{ ...@@ -458,7 +463,7 @@ sub add_index_entry{
sub new_link_info{ sub new_link_info{
my $name = "l2h-" . ++$globals{'max_id'}; my $name = "l2h-" . ++$globals{'max_id'};
my $aname = "<a name='$name'>"; my $aname = "<a name=\"$name\">";
my $ahref = gen_link($CURRENT_FILE, $name); my $ahref = gen_link($CURRENT_FILE, $name);
return ($name, $aname, $ahref); return ($name, $aname, $ahref);
} }
...@@ -578,7 +583,7 @@ sub idx_cmd_obindex{ my_typed_index_helper('object', @_[0]); } ...@@ -578,7 +583,7 @@ sub idx_cmd_obindex{ my_typed_index_helper('object', @_[0]); }
define_indexing_macro('bifuncindex'); define_indexing_macro('bifuncindex');
sub idx_cmd_bifuncindex{ sub idx_cmd_bifuncindex{
my $str = next_argument(); my $str = next_argument();
add_index_entry("<tt class='function'>$str()</tt> (built-in function)", add_index_entry("<tt class=\"function\">$str()</tt> (built-in function)",
@_[0]); @_[0]);
} }
...@@ -620,7 +625,7 @@ sub define_module{ ...@@ -620,7 +625,7 @@ sub define_module{
$INDEX_SUBITEM = "(in module $name)"; $INDEX_SUBITEM = "(in module $name)";
print "[$name]"; print "[$name]";
return make_mod_index_entry( return make_mod_index_entry(
"<tt class='module'>$name</tt> (${word}module)", 'DEF'); "<tt class=\"module\">$name</tt> (${word}module)", 'DEF');
} }
sub my_module_index_helper{ sub my_module_index_helper{
...@@ -638,7 +643,7 @@ sub ref_module_index_helper{ ...@@ -638,7 +643,7 @@ sub ref_module_index_helper{
my($word, $ahref) = @_; my($word, $ahref) = @_;
my $str = next_argument(); my $str = next_argument();
$word = "$word " if $word; $word = "$word " if $word;
$str = "<tt class='module'>$str</tt> (${word}module)"; $str = "<tt class=\"module\">$str</tt> (${word}module)";
# can't use add_index_entry() since the 2nd arg to gen_index_id() is used; # can't use add_index_entry() since the 2nd arg to gen_index_id() is used;
# just inline it all here # just inline it all here
$str = gen_index_id($str, 'REF'); $str = gen_index_id($str, 'REF');
...@@ -712,7 +717,7 @@ sub do_env_cfuncdesc{ ...@@ -712,7 +717,7 @@ sub do_env_cfuncdesc{
my $function_name = next_argument(); my $function_name = next_argument();
my $arg_list = next_argument(); my $arg_list = next_argument();
my $idx = make_str_index_entry( my $idx = make_str_index_entry(
"<tt class='cfunction'>$function_name()</tt>" . get_indexsubitem()); "<tt class=\"cfunction\">$function_name()</tt>" . get_indexsubitem());
$idx =~ s/ \(.*\)//; $idx =~ s/ \(.*\)//;
$idx =~ s/\(\)//; # ???? - why both of these? $idx =~ s/\(\)//; # ???? - why both of these?
my $result_rc = get_refcount($function_name, ''); my $result_rc = get_refcount($function_name, '');
...@@ -741,7 +746,7 @@ sub do_env_cfuncdesc{ ...@@ -741,7 +746,7 @@ sub do_env_cfuncdesc{
sub do_env_csimplemacrodesc{ sub do_env_csimplemacrodesc{
local($_) = @_; local($_) = @_;
my $name = next_argument(); my $name = next_argument();
my $idx = make_str_index_entry("<tt class='macro'>$name</tt>"); my $idx = make_str_index_entry("<tt class=\"macro\">$name</tt>");
return "<dl><dt><b>$idx</b>\n<dd>" return "<dl><dt><b>$idx</b>\n<dd>"
. $_ . $_
. '</dl>' . '</dl>'
...@@ -754,8 +759,8 @@ sub do_env_ctypedesc{ ...@@ -754,8 +759,8 @@ sub do_env_ctypedesc{
$index_name = $type_name $index_name = $type_name
unless $index_name; unless $index_name;
my($name,$aname,$ahref) = new_link_info(); my($name,$aname,$ahref) = new_link_info();
add_index_entry("<tt class='ctype'>$index_name</tt> (C type)", $ahref); add_index_entry("<tt class=\"ctype\">$index_name</tt> (C type)", $ahref);
return "<dl><dt><b><tt class='ctype'>$aname$type_name</a></tt></b>\n<dd>" return "<dl><dt><b><tt class=\"ctype\">$aname$type_name</a></tt></b>\n<dd>"
. $_ . $_
. '</dl>' . '</dl>'
} }
...@@ -764,7 +769,7 @@ sub do_env_cvardesc{ ...@@ -764,7 +769,7 @@ sub do_env_cvardesc{
local($_) = @_; local($_) = @_;
my $var_type = next_argument(); my $var_type = next_argument();
my $var_name = next_argument(); my $var_name = next_argument();
my $idx = make_str_index_entry("<tt class='cdata'>$var_name</tt>" my $idx = make_str_index_entry("<tt class=\"cdata\">$var_name</tt>"
. get_indexsubitem()); . get_indexsubitem());
$idx =~ s/ \(.*\)//; $idx =~ s/ \(.*\)//;
return "<dl><dt>$var_type <b>$idx</b>\n" return "<dl><dt>$var_type <b>$idx</b>\n"
...@@ -783,7 +788,8 @@ sub do_env_funcdesc{ ...@@ -783,7 +788,8 @@ sub do_env_funcdesc{
local($_) = @_; local($_) = @_;
my $function_name = next_argument(); my $function_name = next_argument();
my $arg_list = convert_args(next_argument()); my $arg_list = convert_args(next_argument());
my $idx = make_str_index_entry("<tt class='function'>$function_name()</tt>" my $idx = make_str_index_entry("<tt class=\"function\">$function_name()"
. '</tt>'
. get_indexsubitem()); . get_indexsubitem());
$idx =~ s/ \(.*\)//; $idx =~ s/ \(.*\)//;
$idx =~ s/\(\)<\/tt>/<\/tt>/; $idx =~ s/\(\)<\/tt>/<\/tt>/;
...@@ -794,7 +800,7 @@ sub do_env_funcdescni{ ...@@ -794,7 +800,7 @@ sub do_env_funcdescni{
local($_) = @_; local($_) = @_;
my $function_name = next_argument(); my $function_name = next_argument();
my $arg_list = convert_args(next_argument()); my $arg_list = convert_args(next_argument());
return "<dl><dt><b><tt class='function'>$function_name</tt></b>" return "<dl><dt><b><tt class=\"function\">$function_name</tt></b>"
. "(<var>$arg_list</var>)\n" . "(<var>$arg_list</var>)\n"
. '<dd>' . '<dd>'
. $_ . $_
...@@ -805,7 +811,7 @@ sub do_cmd_funcline{ ...@@ -805,7 +811,7 @@ sub do_cmd_funcline{
local($_) = @_; local($_) = @_;
my $function_name = next_argument(); my $function_name = next_argument();
my $arg_list = convert_args(next_argument()); my $arg_list = convert_args(next_argument());
my $prefix = "<tt class='function'>$function_name()</tt>"; my $prefix = "<tt class=\"function\">$function_name()</tt>";
my $idx = make_str_index_entry($prefix . get_indexsubitem()); my $idx = make_str_index_entry($prefix . get_indexsubitem());
$prefix =~ s/\(\)//; $prefix =~ s/\(\)//;
...@@ -816,7 +822,7 @@ sub do_cmd_funclineni{ ...@@ -816,7 +822,7 @@ sub do_cmd_funclineni{
local($_) = @_; local($_) = @_;
my $function_name = next_argument(); my $function_name = next_argument();
my $arg_list = convert_args(next_argument()); my $arg_list = convert_args(next_argument());
my $prefix = "<tt class='function'>$function_name</tt>"; my $prefix = "<tt class=\"function\">$function_name</tt>";
return "<dt><b>$prefix</b>(<var>$arg_list</var>)\n<dd>" . $_; return "<dt><b>$prefix</b>(<var>$arg_list</var>)\n<dd>" . $_;
} }
...@@ -833,12 +839,12 @@ sub do_env_opcodedesc{ ...@@ -833,12 +839,12 @@ sub do_env_opcodedesc{
my $arg_list = next_argument(); my $arg_list = next_argument();
my $idx; my $idx;
if ($INDEX_OPCODES) { if ($INDEX_OPCODES) {
$idx = make_str_index_entry("<tt class='opcode'>$opcode_name</tt>" $idx = make_str_index_entry("<tt class=\"opcode\">$opcode_name</tt>"
. " (byte code instruction)"); . ' (byte code instruction)');
$idx =~ s/ \(byte code instruction\)//; $idx =~ s/ \(byte code instruction\)//;
} }
else { else {
$idx = "<tt class='opcode'>$opcode_name</tt>"; $idx = "<tt class=\"opcode\">$opcode_name</tt>";
} }
my $stuff = "<dl><dt><b>$idx</b>"; my $stuff = "<dl><dt><b>$idx</b>";
if ($arg_list) { if ($arg_list) {
...@@ -883,7 +889,7 @@ sub do_cmd_datalineni{ ...@@ -883,7 +889,7 @@ sub do_cmd_datalineni{
sub do_env_excdesc{ sub do_env_excdesc{
local($_) = @_; local($_) = @_;
my $excname = next_argument(); my $excname = next_argument();
my $idx = make_str_index_entry("<tt class='exception'>$excname</tt>"); my $idx = make_str_index_entry("<tt class=\"exception\">$excname</tt>");
return "<dl><dt><b>exception $idx</b>\n<dd>" . $_ . '</dl>' return "<dl><dt><b>exception $idx</b>\n<dd>" . $_ . '</dl>'
} }
...@@ -895,7 +901,7 @@ sub handle_classlike_descriptor{ ...@@ -895,7 +901,7 @@ sub handle_classlike_descriptor{
$THIS_CLASS = next_argument(); $THIS_CLASS = next_argument();
my $arg_list = convert_args(next_argument()); my $arg_list = convert_args(next_argument());
$idx = make_str_index_entry( $idx = make_str_index_entry(
"<tt class='$what'>$THIS_CLASS</tt> ($what in $THIS_MODULE)" ); "<tt class=\"$what\">$THIS_CLASS</tt> ($what in $THIS_MODULE)" );
$idx =~ s/ \(.*\)//; $idx =~ s/ \(.*\)//;
return ("<dl><dt><b>$what $idx</b>(<var>$arg_list</var>)\n<dd>" return ("<dl><dt><b>$what $idx</b>(<var>$arg_list</var>)\n<dd>"
. $_ . $_
...@@ -910,7 +916,7 @@ sub do_env_classdescstar{ ...@@ -910,7 +916,7 @@ sub do_env_classdescstar{
local($_) = @_; local($_) = @_;
$THIS_CLASS = next_argument(); $THIS_CLASS = next_argument();
$idx = make_str_index_entry( $idx = make_str_index_entry(
"<tt class='class'>$THIS_CLASS</tt> (class in $THIS_MODULE)" ); "<tt class=\"class\">$THIS_CLASS</tt> (class in $THIS_MODULE)");
$idx =~ s/ \(.*\)//; $idx =~ s/ \(.*\)//;
return ("<dl><dt><b>class $idx</b>\n<dd>" return ("<dl><dt><b>class $idx</b>\n<dd>"
. $_ . $_
...@@ -933,7 +939,8 @@ sub do_env_methoddesc{ ...@@ -933,7 +939,8 @@ sub do_env_methoddesc{
if ($class_name) { if ($class_name) {
$extra = " ($class_name method)"; $extra = " ($class_name method)";
} }
my $idx = make_str_index_entry("<tt class='method'>$method()</tt>$extra"); my $idx = make_str_index_entry(
"<tt class=\"method\">$method()</tt>$extra");
$idx =~ s/ \(.*\)//; $idx =~ s/ \(.*\)//;
$idx =~ s/\(\)//; $idx =~ s/\(\)//;
return "<dl><dt><b>$idx</b>(<var>$arg_list</var>)\n<dd>" . $_ . '</dl>'; return "<dl><dt><b>$idx</b>(<var>$arg_list</var>)\n<dd>" . $_ . '</dl>';
...@@ -951,7 +958,8 @@ sub do_cmd_methodline{ ...@@ -951,7 +958,8 @@ sub do_cmd_methodline{
if ($class_name) { if ($class_name) {
$extra = " ($class_name method)"; $extra = " ($class_name method)";
} }
my $idx = make_str_index_entry("<tt class='method'>$method()</tt>$extra"); my $idx = make_str_index_entry(
"<tt class=\"method\">$method()</tt>$extra");
$idx =~ s/ \(.*\)//; $idx =~ s/ \(.*\)//;
$idx =~ s/\(\)//; $idx =~ s/\(\)//;
return "<dt><b>$idx</b>(<var>$arg_list</var>)\n<dd>" return "<dt><b>$idx</b>(<var>$arg_list</var>)\n<dd>"
...@@ -988,7 +996,7 @@ sub do_env_memberdesc{ ...@@ -988,7 +996,7 @@ sub do_env_memberdesc{
my $extra = ''; my $extra = '';
$extra = " ($class attribute)" $extra = " ($class attribute)"
if ($class ne ''); if ($class ne '');
my $idx = make_str_index_entry("<tt class='member'>$member</tt>$extra"); my $idx = make_str_index_entry("<tt class=\"member\">$member</tt>$extra");
$idx =~ s/ \(.*\)//; $idx =~ s/ \(.*\)//;
$idx =~ s/\(\)//; $idx =~ s/\(\)//;
return "<dl><dt><b>$idx</b>\n<dd>" . $_ . '</dl>'; return "<dl><dt><b>$idx</b>\n<dd>" . $_ . '</dl>';
...@@ -1004,7 +1012,7 @@ sub do_cmd_memberline{ ...@@ -1004,7 +1012,7 @@ sub do_cmd_memberline{
my $extra = ''; my $extra = '';
$extra = " ($class attribute)" $extra = " ($class attribute)"
if ($class ne ''); if ($class ne '');
my $idx = make_str_index_entry("<tt class='member'>$member</tt>$extra"); my $idx = make_str_index_entry("<tt class=\"member\">$member</tt>$extra");
$idx =~ s/ \(.*\)//; $idx =~ s/ \(.*\)//;
$idx =~ s/\(\)//; $idx =~ s/\(\)//;
return "<dt><b>$idx</b><dd>" . $_; return "<dt><b>$idx</b><dd>" . $_;
...@@ -1014,7 +1022,7 @@ sub do_env_memberdescni{ ...@@ -1014,7 +1022,7 @@ sub do_env_memberdescni{
local($_) = @_; local($_) = @_;
next_optional_argument(); next_optional_argument();
my $member = next_argument(); my $member = next_argument();
return "<dl><dt><b><tt class='member'>$member</tt></b>\n<dd>" return "<dl><dt><b><tt class=\"member\">$member</tt></b>\n<dd>"
. $_ . $_
. '</dl>'; . '</dl>';
} }
...@@ -1024,7 +1032,7 @@ sub do_cmd_memberlineni{ ...@@ -1024,7 +1032,7 @@ sub do_cmd_memberlineni{
local($_) = @_; local($_) = @_;
next_optional_argument(); next_optional_argument();
my $member = next_argument(); my $member = next_argument();
return "<dt><b><tt class='member'>$member</tt></b><dd>" . $_; return "<dt><b><tt class=\"member\">$member</tt></b><dd>" . $_;
} }
@col_aligns = ('<td>', '<td>', '<td>', '<td>'); @col_aligns = ('<td>', '<td>', '<td>', '<td>');
...@@ -1119,7 +1127,7 @@ sub do_env_tableii{ ...@@ -1119,7 +1127,7 @@ sub do_env_tableii{
. "\n $th2<b>$h2</b>\&nbsp;</th>" . "\n $th2<b>$h2</b>\&nbsp;</th>"
. "\n </tr>" . "\n </tr>"
. "\n </thead>" . "\n </thead>"
. "\n <tbody valign='baseline'>" . "\n <tbody valign=\"baseline\">"
. $_ . $_
. "\n </tbody>" . "\n </tbody>"
. "\n</table>"; . "\n</table>";
...@@ -1168,7 +1176,7 @@ sub do_env_tableiii{ ...@@ -1168,7 +1176,7 @@ sub do_env_tableiii{
. "\n $th3<b>$h3</b>\&nbsp;</th>" . "\n $th3<b>$h3</b>\&nbsp;</th>"
. "\n </tr>" . "\n </tr>"
. "\n </thead>" . "\n </thead>"
. "\n <tbody valign='baseline'>" . "\n <tbody valign=\"baseline\">"
. $_ . $_
. "\n </tbody>" . "\n </tbody>"
. "\n</table>"; . "\n</table>";
...@@ -1222,7 +1230,7 @@ sub do_env_tableiv{ ...@@ -1222,7 +1230,7 @@ sub do_env_tableiv{
. "\n $th4<b>$h4</b>\&nbsp;</th>" . "\n $th4<b>$h4</b>\&nbsp;</th>"
. "\n </tr>" . "\n </tr>"
. "\n </thead>" . "\n </thead>"
. "\n <tbody valign='baseline'>" . "\n <tbody valign=\"baseline\">"
. $_ . $_
. "\n </tbody>" . "\n </tbody>"
. "\n</table>"; . "\n</table>";
...@@ -1285,11 +1293,13 @@ sub make_my_titlepage() { ...@@ -1285,11 +1293,13 @@ sub make_my_titlepage() {
if ($t_authorURL) { if ($t_authorURL) {
my $href = translate_commands($t_authorURL); my $href = translate_commands($t_authorURL);
$href = make_named_href('author', $href, $href = make_named_href('author', $href,
"<b><font size='+2'>$t_author</font></b>"); "<b><font size=\"+2\">$t_author"
. '</font></b>');
$the_title .= "\n<p>$href</p>"; $the_title .= "\n<p>$href</p>";
} }
else { else {
$the_title .= ("\n<p><b><font size='+2'>$t_author</font></b></p>"); $the_title .= ("\n<p><b><font size=\"+2\">$t_author"
. '</font></b></p>');
} }
} }
else { else {
...@@ -1307,7 +1317,8 @@ sub make_my_titlepage() { ...@@ -1307,7 +1317,8 @@ sub make_my_titlepage() {
if ($t_date) { if ($t_date) {
$the_title .= "\n<p>"; $the_title .= "\n<p>";
if ($PACKAGE_VERSION) { if ($PACKAGE_VERSION) {
$the_title .= "<strong>Release $PACKAGE_VERSION</strong><br>\n"; $the_title .= ('<strong>Release '
. "$PACKAGE_VERSION$RELEASE_INFO</strong><br>\n");
} }
$the_title .= "<strong>$t_date</strong></p>" $the_title .= "<strong>$t_date</strong></p>"
} }
...@@ -1484,10 +1495,10 @@ sub process_python_state{ ...@@ -1484,10 +1495,10 @@ sub process_python_state{
# #
sub do_env_seealso{ sub do_env_seealso{
return "<div class='seealso'>\n " return ("<div class=\"seealso\">\n "
. "<p class='heading'><b>See Also:</b></p>\n" . "<p class=\"heading\"><b>See Also:</b></p>\n"
. @_[0] . @_[0]
. '</div>'; . '</div>');
} }
sub do_cmd_seemodule{ sub do_cmd_seemodule{
...@@ -1503,11 +1514,11 @@ sub do_cmd_seemodule{ ...@@ -1503,11 +1514,11 @@ sub do_cmd_seemodule{
if ($text =~ /\.$/) { if ($text =~ /\.$/) {
$period = ''; $period = '';
} }
return '<dl compact class="seemodule">' return ('<dl compact class="seemodule">'
. "\n <dt>Module <b><tt class='module'><a href='module-$key.html'>" . "\n <dt>Module <b><tt class=\"module\">"
. "$module</a></tt>:</b>" . "<a href=\"module-$key.html\">$module</a></tt>:</b>"
. "\n <dd>$text$period\n </dl>" . "\n <dd>$text$period\n </dl>"
. $_; . $_);
} }
sub strip_html_markup($){ sub strip_html_markup($){
...@@ -1586,7 +1597,7 @@ sub do_cmd_seetext{ ...@@ -1586,7 +1597,7 @@ sub do_cmd_seetext{
# #
sub do_env_definitions{ sub do_env_definitions{
return "<dl class='definitions'>" . @_[0] . "</dl>\n"; return "<dl class=\"definitions\">" . @_[0] . "</dl>\n";
} }
sub do_cmd_term{ sub do_cmd_term{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment
GitLab Nexedi Edition | About GitLab | About Nexedi | 沪ICP备2021021310号-2 | 沪ICP备2021021310号-7