[Python-checkins] CVS: python/dist/src/Doc/perl python.perl,1.98,1.98.2.1

[Fred L. Drake]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory usw-pr-cvs1:/tmp/cvs-serv22091/perl

Modified Files:
      Tag: release21-maint
	python.perl 
Log Message:

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.


Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.98
retrieving revision 1.98.2.1
diff -C2 -r1.98 -r1.98.2.1
*** python.perl	2001/04/12 04:03:22	1.98
--- python.perl	2001/04/18 17:29:14	1.98.2.1
***************
*** 345,366 ****
  }
  
! 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($_) = @_;
      my $explanation = next_optional_argument();
      my $release = next_argument();
!     my $text = "Changed in version $release.";
      if ($explanation) {
!         $text = "Changed in version $release:\n$explanation.";
      }
      return "\n<span class='versionnote'>$text</span>\n" . $_;
  }
  
--- 345,367 ----
  }
  
! 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 = "$type in version $release.";
      if ($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', @_);
  }