[Python-checkins] python/dist/src/Doc/perl SynopsisTable.pm, 1.8, 1.9

Fri Sep 5 09:36:25 EDT 2003

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory sc8-pr-cvs1:/tmp/cvs-serv27421
Modified Files:
	SynopsisTable.pm 
Log Message:
normalize whitespace
Index: SynopsisTable.pm
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/SynopsisTable.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** SynopsisTable.pm	17 Aug 2001 17:20:44 -0000	1.8
--- SynopsisTable.pm	5 Sep 2003 15:36:23 -0000	1.9
***************
*** 8,15 ****
 my($self,$name,$key,$type) = @_;
 if ($self->{names}) {
! 	$self->{names} .= ",$name";
 }
 else {
! 	$self->{names} .= "$name";
 }
 $self->{info}{$name} = "$key,$type,";
--- 8,15 ----
 my($self,$name,$key,$type) = @_;
 if ($self->{names}) {
! $self->{names} .= ",$name";
 }
 else {
! $self->{names} .= "$name";
 }
 $self->{info}{$name} = "$key,$type,";
***************
*** 46,51 ****
 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";
 }
 }
--- 46,51 ----
 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";
 }
 }
***************
*** 57,69 ****
 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'
 . ($oddrow ? " class='oddrow'>\n " : '>')
! 		 . "<td><b><tt class='module'>$link$name</a></tt></b></td>\n"
 . " <td>\&nbsp;</td>\n"
! 		 . " <td class='synopsis'>$synopsis</td></tr>\n");
 $oddrow = !$oddrow;
 }
--- 57,69 ----
 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'
 . ($oddrow ? " class='oddrow'>\n " : '>')
! . "<td><b><tt class='module'>$link$name</a></tt></b></td>\n"
 . " <td>\&nbsp;</td>\n"
! . " <td class='synopsis'>$synopsis</td></tr>\n");
 $oddrow = !$oddrow;
 }
***************
*** 93,95 ****
 }
 
! 1;	# This must be the last line -- Perl is bogus!
--- 93,95 ----
 }
 
! 1; # This must be the last line -- Perl is bogus!