mirror of https://github.com/python/cpython
normalize whitespace
This commit is contained in:
parent
b859c070ef
commit
d37154f7f2
|
@ -7,10 +7,10 @@ sub new{
|
|||
sub declare{
|
||||
my($self,$name,$key,$type) = @_;
|
||||
if ($self->{names}) {
|
||||
$self->{names} .= ",$name";
|
||||
$self->{names} .= ",$name";
|
||||
}
|
||||
else {
|
||||
$self->{names} .= "$name";
|
||||
$self->{names} .= "$name";
|
||||
}
|
||||
$self->{info}{$name} = "$key,$type,";
|
||||
}
|
||||
|
@ -45,8 +45,8 @@ sub show{
|
|||
my $name;
|
||||
print "names: ", $self->{names}, "\n\n";
|
||||
foreach $name (split /,/, $self->{names}) {
|
||||
my($key,$type,$synopsis) = $self->get($name);
|
||||
print "$name($key) is $type: $synopsis\n";
|
||||
my($key,$type,$synopsis) = $self->get($name);
|
||||
print "$name($key) is $type: $synopsis\n";
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -56,15 +56,15 @@ sub tohtml{
|
|||
my $data = "<table class='synopsistable' valign='baseline'>\n";
|
||||
my $name;
|
||||
foreach $name (split /,/, $self->{names}) {
|
||||
my($key,$type,$synopsis) = $self->get($name);
|
||||
my $link = "<a href='module-$key.html'>";
|
||||
$synopsis =~ s/<tex2html_percent_mark>/%/g;
|
||||
$synopsis =~ s/<tex2html_ampersand_mark>/\&/g;
|
||||
$data .= (' <tr'
|
||||
my($key,$type,$synopsis) = $self->get($name);
|
||||
my $link = "<a href='module-$key.html'>";
|
||||
$synopsis =~ s/<tex2html_percent_mark>/%/g;
|
||||
$synopsis =~ s/<tex2html_ampersand_mark>/\&/g;
|
||||
$data .= (' <tr'
|
||||
. ($oddrow ? " class='oddrow'>\n " : '>')
|
||||
. "<td><b><tt class='module'>$link$name</a></tt></b></td>\n"
|
||||
. "<td><b><tt class='module'>$link$name</a></tt></b></td>\n"
|
||||
. " <td>\ </td>\n"
|
||||
. " <td class='synopsis'>$synopsis</td></tr>\n");
|
||||
. " <td class='synopsis'>$synopsis</td></tr>\n");
|
||||
$oddrow = !$oddrow;
|
||||
}
|
||||
$data .= "</table>\n";
|
||||
|
@ -92,4 +92,4 @@ sub test{
|
|||
$st2->show();
|
||||
}
|
||||
|
||||
1; # This must be the last line -- Perl is bogus!
|
||||
1; # This must be the last line -- Perl is bogus!
|
||||
|
|
Loading…
Reference in New Issue