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

normalize whitespace

This commit is contained in:
Fred Drake 2003-09-05 15:36:23 +00:00
parent b859c070ef
commit d37154f7f2
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
Doc/perl/SynopsisTable.pm
View File

@ -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>/\&amp;/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>/\&amp;/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>\&nbsp;</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!