mirrors/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-08-02 16:13:13 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 8

- Committing the modified signature lines I've been using for a long

Browse source 
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".
This commit is contained in:
Fred Drake 2002-11-13 19:16:37 +00:00
parent bad460790e
commit b02f0dfbe9
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Doc/perl/python.perl
View file

@ -914,7 +914,10 @@ sub cfuncline_helper($$$){
$idx =~ s/\(\)//; # ???? - why both of these? $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>,/g;
$args =~ s/(\s|\*)([a-z_][a-z_0-9]*)$/\1<var>\2<\/var>/s; $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{ sub do_cmd_cfuncline{
local($_) = @_; local($_) = @_;
@ -1021,7 +1024,9 @@ sub convert_args($){
sub funcline_helper($$$){ sub funcline_helper($$$){
my($first, $idxitem, $arglist) = @_; my($first, $idxitem, $arglist) = @_;
return (($first ? '<dl>' : '') 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{ 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. # We've seen this one before; re-use the same output file.
return $VerbatimFiles{$file}; return $VerbatimFiles{$file};
} }
use File::Basename;
my $srcname, $srcdir, $srcext; my $srcname, $srcdir, $srcext;
($srcname, $srcdir, $srcext) = fileparse($file, '\..*'); ($srcname, $srcdir, $srcext) = fileparse($file, '\..*');
$filename = "$srcname.txt"; $filename = "$srcname.txt";