traverseda
/
cpython
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

A few small refinements to the table building code.

This commit is contained in:
Fred Drake 2000-11-30 07:17:27 +00:00
parent c01f6e691b
commit e463f8e4cd
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Doc/perl/python.perl
View File

@ -1018,6 +1018,9 @@ sub fix_font{
elsif ($font eq 'member') {
$font = 'tt class="member"';
}
elsif ($font eq 'class') {
$font = 'tt class="class"';
}
elsif ($font eq 'constant') {
$font = 'tt class="constant"';
}
@ -1068,7 +1071,7 @@ sub get_table_col1_fonts{
$efont = "</$font>";
$efont =~ s/ .*>/>/;
}
return ($font, $sfont, $efont);
return ($sfont, $efont);
}
sub do_env_tableii{
@ -1105,11 +1108,11 @@ sub do_cmd_lineii{
my $c1 = next_argument();
my $c2 = next_argument();
s/[\s\n]+//;
my($font,$sfont,$efont) = get_table_col1_fonts();
my($sfont,$efont) = get_table_col1_fonts();
$c2 = '&nbsp;' if ($c2 eq '');
my($c1align,$c2align) = split('\|', $aligns);
my $padding = '';
if ($c1align =~ /align="right"/) {
if ($c1align =~ /align="right"/ || $c1 eq '') {
$padding = '&nbsp;';
}
return "\n <tr>$c1align$sfont$c1$efont$padding</td>\n"
@ -1155,11 +1158,11 @@ sub do_cmd_lineiii{
my $c2 = next_argument();
my $c3 = next_argument();
s/[\s\n]+//;
my($font,$sfont,$efont) = get_table_col1_fonts();
my($sfont,$efont) = get_table_col1_fonts();
$c3 = '&nbsp;' if ($c3 eq '');
my($c1align,$c2align,$c3align) = split('\|', $aligns);
my $padding = '';
if ($c1align =~ /align="right"/) {
if ($c1align =~ /align="right"/ || $c1 eq '') {
$padding = '&nbsp;';
}
return "\n <tr>$c1align$sfont$c1$efont$padding</td>\n"
@ -1210,11 +1213,11 @@ sub do_cmd_lineiv{
my $c3 = next_argument();
my $c4 = next_argument();
s/[\s\n]+//;
my($font,$sfont,$efont) = get_table_col1_fonts();
my($sfont,$efont) = get_table_col1_fonts();
$c4 = '&nbsp;' if ($c4 eq '');
my($c1align,$c2align,$c3align,$c4align) = split('\|', $aligns);
my $padding = '';
if ($c1align =~ /align="right"/) {
if ($c1align =~ /align="right"/ || $c1 eq '') {
$padding = '&nbsp;';
}
return "\n <tr>$c1align$sfont$c1$efont$padding</td>\n"