Skip to content

C
cpython
Kaydet (Commit) d37154f7 authored tarafından Fred Drake's avatar Fred Drake
Dosyalara gözat
Seçenekler

normalize whitespace

üst b859c070
Hide whitespace changes
Inline Side-by-side
Showing with 12 additions and 12 deletions
Doc/perl/SynopsisTable.pm
Dosyayı görüntüle @ d37154f7
...@@ -7,10 +7,10 @@ sub new{ ...@@ -7,10 +7,10 @@ sub new{
sub declare{ sub declare{
my($self,$name,$key,$type) = @_; my($self,$name,$key,$type) = @_;
if ($self->{names}) { if ($self->{names}) {
$self->{names} .= ",$name"; $self->{names} .= ",$name";
} }
else { else {
$self->{names} .= "$name"; $self->{names} .= "$name";
} }
$self->{info}{$name} = "$key,$type,"; $self->{info}{$name} = "$key,$type,";
} }
...@@ -45,8 +45,8 @@ sub show{ ...@@ -45,8 +45,8 @@ sub show{
my $name; my $name;
print "names: ", $self->{names}, "\n\n"; print "names: ", $self->{names}, "\n\n";
foreach $name (split /,/, $self->{names}) { foreach $name (split /,/, $self->{names}) {
my($key,$type,$synopsis) = $self->get($name); my($key,$type,$synopsis) = $self->get($name);
print "$name($key) is $type: $synopsis\n"; print "$name($key) is $type: $synopsis\n";
} }
} }
...@@ -56,15 +56,15 @@ sub tohtml{ ...@@ -56,15 +56,15 @@ sub tohtml{
my $data = "<table class='synopsistable' valign='baseline'>\n"; my $data = "<table class='synopsistable' valign='baseline'>\n";
my $name; my $name;
foreach $name (split /,/, $self->{names}) { foreach $name (split /,/, $self->{names}) {
my($key,$type,$synopsis) = $self->get($name); my($key,$type,$synopsis) = $self->get($name);
my $link = "<a href='module-$key.html'>"; my $link = "<a href='module-$key.html'>";
$synopsis =~ s/<tex2html_percent_mark>/%/g; $synopsis =~ s/<tex2html_percent_mark>/%/g;
$synopsis =~ s/<tex2html_ampersand_mark>/\&amp;/g; $synopsis =~ s/<tex2html_ampersand_mark>/\&amp;/g;
$data .= (' <tr' $data .= (' <tr'
. ($oddrow ? " class='oddrow'>\n " : '>') . ($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>\&nbsp;</td>\n" . " <td>\&nbsp;</td>\n"
. " <td class='synopsis'>$synopsis</td></tr>\n"); . " <td class='synopsis'>$synopsis</td></tr>\n");
$oddrow = !$oddrow; $oddrow = !$oddrow;
} }
$data .= "</table>\n"; $data .= "</table>\n";
...@@ -92,4 +92,4 @@ sub test{ ...@@ -92,4 +92,4 @@ sub test{
$st2->show(); $st2->show();
} }
1; # This must be the last line -- Perl is bogus! 1; # This must be the last line -- Perl is bogus!
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