diff options
| author | Fred Drake <fdrake@acm.org> | 2003-09-05 15:36:23 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 2003-09-05 15:36:23 (GMT) |
| commit | d37154f7f2172d5e9dc4cdaebd6afe543d2ea341 (patch) | |
| tree | be8f349ef8671b904c1c214932fb8ac6cd278d13 /Doc | |
| parent | b859c070efbf3c6fd5210c0ae0e4d5a3de4bf9b2 (diff) | |
| download | cpython-d37154f7f2172d5e9dc4cdaebd6afe543d2ea341.zip cpython-d37154f7f2172d5e9dc4cdaebd6afe543d2ea341.tar.gz cpython-d37154f7f2172d5e9dc4cdaebd6afe543d2ea341.tar.bz2 | |
normalize whitespace
Diffstat (limited to 'Doc')
| -rw-r--r-- | Doc/perl/SynopsisTable.pm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/Doc/perl/SynopsisTable.pm b/Doc/perl/SynopsisTable.pm index a77a016..3c65a67 100644 --- a/Doc/perl/SynopsisTable.pm +++ b/Doc/perl/SynopsisTable.pm @@ -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! |