[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\ <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 ----