[Python-checkins] python/dist/src/Doc/perl python.perl,1.130,1.131

fdrake@users.sourceforge.net fdrake@users.sourceforge.net
Wed, 13 Nov 2002 11:16:41 -0800


Update of /cvsroot/python/python/dist/src/Doc/perl
In directory usw-pr-cvs1:/tmp/cvs-serv29310

Modified Files:
	python.perl 
Log Message:
- Committing the modified signature lines I've been using for a long
  time in http://www.python.org/dev/doc/.  There have been no bug
  reports on these for a long time now.
- Remove local "use" statement that duplicates a top-level "use".


Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.130
retrieving revision 1.131
diff -C2 -d -r1.130 -r1.131
*** python.perl	13 Nov 2002 17:55:17 -0000	1.130
--- python.perl	13 Nov 2002 19:16:37 -0000	1.131
***************
*** 915,919 ****
      $args =~ s/(\s|\*)([a-z_][a-z_0-9]*),/\1<var>\2<\/var>,/g;
      $args =~ s/(\s|\*)([a-z_][a-z_0-9]*)$/\1<var>\2<\/var>/s;
!     return "$type <b>$idx</b>(<var>$args</var>)";
  }
  sub do_cmd_cfuncline{
--- 915,922 ----
      $args =~ s/(\s|\*)([a-z_][a-z_0-9]*),/\1<var>\2<\/var>,/g;
      $args =~ s/(\s|\*)([a-z_][a-z_0-9]*)$/\1<var>\2<\/var>/s;
!     return ('<table cellpadding="0" cellspacing="0"><tr valign="baseline">'
!             . "<td><nobr>$type\&nbsp;<b>$idx</b>(</nobr></td>"
!             . "<td>$args)</td>"
!             . '</tr></table>');
  }
  sub do_cmd_cfuncline{
***************
*** 1022,1026 ****
      my($first, $idxitem, $arglist) = @_;
      return (($first ? '<dl>' : '')
!             . "<dt><b>$idxitem</b>(<var>$arglist</var>)\n<dd>");
  }
  
--- 1025,1031 ----
      my($first, $idxitem, $arglist) = @_;
      return (($first ? '<dl>' : '')
!             . '<dt><table cellpadding="0" cellspacing="0"><tr valign="baseline">'
!             . "\n  <td><nobr><b>$idxitem</b>(</nobr></td>"
!             . "\n  <td><var>$arglist</var>)</td></tr></table>\n<dd>");
  }
  
***************
*** 2008,2012 ****
          return $VerbatimFiles{$file};
      }
-     use File::Basename;
      my $srcname, $srcdir, $srcext;
      ($srcname, $srcdir, $srcext) = fileparse($file, '\..*');
--- 2013,2016 ----