Stowage/cpython
2
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-11-01 14:11:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

- clean up generated HTML

Browse source 
- make the output more XHTML friendly
This commit is contained in:
Fred Drake 2003-11-26 20:55:49 +00:00
parent 2ce1d47e1e
commit 04bf7241e4
1 changed files with 20 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Doc/perl/python.perl
View file

@ -345,7 +345,7 @@ sub do_cmd_pep{
# Save the reference # Save the reference
my $nstr = gen_index_id("Python Enhancement Proposals!PEP $rfcnumber", ''); my $nstr = gen_index_id("Python Enhancement Proposals!PEP $rfcnumber", '');
$index{$nstr} .= make_half_href("$CURRENT_FILE#$id"); $index{$nstr} .= make_half_href("$CURRENT_FILE#$id");
return ("<a class=\"rfc\" name=\"$id\" id='$id'\n" return ("<a class=\"rfc\" id='$id'\n"
. "href=\"$href\">PEP $rfcnumber$icon</a>" . $_); . "href=\"$href\">PEP $rfcnumber$icon</a>" . $_);
} }
@ -358,7 +358,7 @@ sub do_cmd_rfc{
# Save the reference # Save the reference
my $nstr = gen_index_id("RFC!RFC $rfcnumber", ''); my $nstr = gen_index_id("RFC!RFC $rfcnumber", '');
$index{$nstr} .= make_half_href("$CURRENT_FILE#$id"); $index{$nstr} .= make_half_href("$CURRENT_FILE#$id");
return ("<a class=\"rfc\" name=\"$id\" id='$id'\nhref=\"$href\">" return ("<a class=\"rfc\" id='$id'\nhref=\"$href\">"
. "RFC $rfcnumber$icon</a>" . $_); . "RFC $rfcnumber$icon</a>" . $_);
} }
@ -510,10 +510,16 @@ sub add_index_entry($$){
write_idxfile($ahref, $str); write_idxfile($ahref, $str);
} }
sub new_link_info(){ sub new_link_name_info(){
my $name = "l2h-" . ++$globals{'max_id'}; my $name = "l2h-" . ++$globals{'max_id'};
my $aname = "<a name=\"$name\" id='$name'>"; my $aname = "<a id='$name'>";
my $ahref = gen_link($CURRENT_FILE, $name); my $ahref = gen_link($CURRENT_FILE, $name);
return ($name, $ahref);
}
sub new_link_info(){
my($name, $ahref) = new_link_name_info();
my $aname = "<a id='$name'>";
return ($name, $aname, $ahref); return ($name, $aname, $ahref);
} }
@ -738,9 +744,16 @@ init_myformat();
# #
sub make_str_index_entry($){ sub make_str_index_entry($){
my $str = $_[0]; my $str = $_[0];
my($name, $aname, $ahref) = new_link_info(); my($name, $ahref) = new_link_name_info();
add_index_entry($str, $ahref); add_index_entry($str, $ahref);
return "$aname$str</a>"; if ($str =~ /^<[a-z]+\b/) {
my $s = "$str";
$s =~ s/^<([a-z]+)\b/<$1 id='$name'/;
return $s;
}
else {
return "<a id='$name'>$str</a>";
}
} }
@ -817,7 +830,7 @@ sub do_cmd_production{
} }
$TokenToTargetMapping{"$CURRENT_GRAMMAR:$token"} = $target; $TokenToTargetMapping{"$CURRENT_GRAMMAR:$token"} = $target;
return ("<tr valign=\"baseline\">\n" return ("<tr valign=\"baseline\">\n"
. " <td><code><a name=\"tok-$token\" id='tok-$token'>" . " <td><code><a id='tok-$token'>"
. "$token</a></code></td>\n" . "$token</a></code></td>\n"
. " <td>&nbsp;::=&nbsp;</td>\n" . " <td>&nbsp;::=&nbsp;</td>\n"
. " <td><code>" . " <td><code>"