traverseda
/
cpython
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added support for \developer, \developers, \developersaddress.

This commit is contained in:
Fred Drake 1998-05-14 21:00:28 +00:00
parent 6df93ef9dd
commit d07868ae52
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Doc/perl/python.perl
View File

@ -68,7 +68,7 @@ sub do_cmd_NULL{ '<tt>NULL</tt>' . @_[0]; }
sub do_cmd_e{ '&#92;' . @_[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) {