From b02f0dfbe90b2f3ee06d2d7b6a6836831d4763bc Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 13 Nov 2002 19:16:37 +0000
Subject: - 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".

---
 Doc/perl/python.perl | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 0c88e18..8791346 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -914,7 +914,10 @@ sub cfuncline_helper($$$){
     $idx =~ s/\(\)//;		# ???? - why both of these?
     $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>)";
+    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{
     local($_) = @_;
@@ -1021,7 +1024,9 @@ sub convert_args($){
 sub funcline_helper($$$){
     my($first, $idxitem, $arglist) = @_;
     return (($first ? '<dl>' : '')
-            . "<dt><b>$idxitem</b>(<var>$arglist</var>)\n<dd>");
+            . '<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>");
 }
 
 sub do_env_funcdesc{
@@ -2007,7 +2012,6 @@ sub get_verbatim_output_name($){
         # We've seen this one before; re-use the same output file.
         return $VerbatimFiles{$file};
     }
-    use File::Basename;
     my $srcname, $srcdir, $srcext;
     ($srcname, $srcdir, $srcext) = fileparse($file, '\..*');
     $filename = "$srcname.txt";
-- 
cgit v0.12