From: Fred Drake <fdrake@acm.org>
Date: Wed, 18 Apr 2001 17:29:14 +0000 (+0000)
Subject: Added support for optional explanation parameter to the \versionadded
X-Git-Tag: v2.1.1c1~156
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=a712f029cd9099a7d54a6c7cab9de671fc7cf523;p=thirdparty%2FPython%2Fcpython.git

Added support for optional explanation parameter to the \versionadded
macro.

Refactored do_cmd_versionadded() and do_cmd_versionchanged() to do most
of the work in a helper function, with the do_cmd_*() wrappers just supplying
a portion of the replacement text.
---

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 20615ccd9a5e..4674f9026e19 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -344,26 +344,27 @@ sub do_cmd_deprecated{
             . $_);
 }
 
-sub do_cmd_versionadded{
-    # one parameter:  \versionadded{version}
-    local($_) = @_;
-    my $release = next_argument();
-    return ("\n<span class='versionnote'>New in version $release.</span>\n"
-            . $_);
-}
-
-sub do_cmd_versionchanged{
-    # one parameter:  \versionchanged{version}
-    local($_) = @_;
+sub versionnote{
+    # one or two parameters:  \versionnote[explanation]{version}
+    my $type = @_[0];
+    local $_ = @_[1];
     my $explanation = next_optional_argument();
     my $release = next_argument();
-    my $text = "Changed in version $release.";
+    my $text = "$type in version $release.";
     if ($explanation) {
-        $text = "Changed in version $release:\n$explanation.";
+        $text = "$type in version $release:\n$explanation.";
     }
     return "\n<span class='versionnote'>$text</span>\n" . $_;
 }
 
+sub do_cmd_versionadded{
+    return versionnote('New', @_);
+}
+
+sub do_cmd_versionchanged{
+    return versionnote('Changed', @_);
+}
+
 #
 # These function handle platform dependency tracking.
 #