diff options
| author | Fred Drake <fdrake@acm.org> | 1998-05-14 21:00:28 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-05-14 21:00:28 (GMT) |
| commit | d07868ae528960d4c1b860dca5daaa448cb8b021 (patch) | |
| tree | 6944ed4f27a6254e6337adb224f280b810de3e79 /Doc/perl | |
| parent | 6df93ef9dd3e2032f5e625146b8fb336d6cdd1f5 (diff) | |
| download | cpython-d07868ae528960d4c1b860dca5daaa448cb8b021.zip cpython-d07868ae528960d4c1b860dca5daaa448cb8b021.tar.gz cpython-d07868ae528960d4c1b860dca5daaa448cb8b021.tar.bz2 | |
Added support for \developer, \developers, \developersaddress.
Diffstat (limited to 'Doc/perl')
| -rw-r--r-- | Doc/perl/python.perl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 3a1eaa1..536f324 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -68,7 +68,7 @@ sub do_cmd_NULL{ '<tt>NULL</tt>' . @_[0]; } sub do_cmd_e{ '\' . @_[0]; } -$AUTHOR_ADDRESS = ''; +$DEVELOPER_ADDRESS = ''; $PYTHON_VERSION = ''; sub do_cmd_version{ $PYTHON_VERSION . @_[0]; } @@ -80,10 +80,14 @@ sub do_cmd_release{ sub do_cmd_authoraddress{ local($_) = @_; - $AUTHOR_ADDRESS = next_argument(); + $DEVELOPER_ADDRESS = next_argument(); $_; } +sub do_cmd_developer{ do_cmd_author(@_[0]); } +sub do_cmd_developers{ do_cmd_author(@_[0]); } +sub do_cmd_developersaddress{ do_cmd_authoraddress(@_[0]); } + sub do_cmd_hackscore{ local($_) = @_; next_argument(); @@ -783,8 +787,8 @@ sub do_cmd_maketitle { } else { write_warnings("\nThere is no author for this document."); } if ($t_institute) { $the_title .= "\n<p>$t_institute</p>";} - if ($AUTHOR_ADDRESS) { - $the_title .= "\n<p>$AUTHOR_ADDRESS</p>";} + if ($DEVELOPER_ADDRESS) { + $the_title .= "\n<p>$DEVELOPER_ADDRESS</p>";} if ($t_affil) { $the_title .= "\n<p><i>$t_affil</i></p>";} if ($t_date) { |