summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2002-11-13 19:16:37 (GMT)
committerFred Drake <fdrake@acm.org>2002-11-13 19:16:37 (GMT)
commitb02f0dfbe90b2f3ee06d2d7b6a6836831d4763bc (patch)
tree46d547ffc0fc0b25ee9ea7d1af66b8d6981a680c /Doc/perl
parentbad460790e846fbb1a4a820de787dc969895e684 (diff)
downloadcpython-b02f0dfbe90b2f3ee06d2d7b6a6836831d4763bc.zip
cpython-b02f0dfbe90b2f3ee06d2d7b6a6836831d4763bc.tar.gz
cpython-b02f0dfbe90b2f3ee06d2d7b6a6836831d4763bc.tar.bz2
- 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".
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/python.perl10
1 files 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";