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

[fdrake at users.sourceforge.net]

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!