[Python-checkins] CVS: python/dist/src/Doc/perl l2hinit.perl,1.53,1.53.4.1 python.perl,1.98.2.2,1.98.2.3

[Fred L. Drake]

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

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

Add support for the classdesc* environment and the \releaseinfo and
\setreleaseinfo macros added to the CVS head.


Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.53
retrieving revision 1.53.4.1
diff -C2 -r1.53 -r1.53.4.1
*** l2hinit.perl	2001/01/09 22:02:10	1.53
--- l2hinit.perl	2001/06/22 15:51:28	1.53.4.1
***************
*** 182,191 ****
      if ($PACKAGE_VERSION ne '' && $t_date) {
          return ("<span class=\"release-info\">"
!                 . "Release $PACKAGE_VERSION,"
                  . " documentation updated on $t_date.</span>");
      }
      if ($PACKAGE_VERSION ne '') {
          return ("<span class=\"release-info\">"
!                 . "Release $PACKAGE_VERSION.</span>");
      }
      if ($t_date) {
--- 182,191 ----
      if ($PACKAGE_VERSION ne '' && $t_date) {
          return ("<span class=\"release-info\">"
!                 . "Release $PACKAGE_VERSION$RELEASE_INFO,"
                  . " documentation updated on $t_date.</span>");
      }
      if ($PACKAGE_VERSION ne '') {
          return ("<span class=\"release-info\">"
!                 . "Release $PACKAGE_VERSION$RELEASE_INFO.</span>");
      }
      if ($t_date) {
***************
*** 416,420 ****
  	$the_version = ",\n$t_date";
  	if ($PACKAGE_VERSION) {
! 	    $the_version .= ", Release $PACKAGE_VERSION";
  	}
      }
--- 416,420 ----
  	$the_version = ",\n$t_date";
  	if ($PACKAGE_VERSION) {
! 	    $the_version .= ", Release $PACKAGE_VERSION$RELEASE_INFO";
  	}
      }

Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.98.2.2
retrieving revision 1.98.2.3
diff -C2 -r1.98.2.2 -r1.98.2.3
*** python.perl	2001/04/21 05:56:28	1.98.2.2
--- python.perl	2001/06/22 15:51:28	1.98.2.3
***************
*** 105,108 ****
--- 105,109 ----
  $DEVELOPER_ADDRESS = '';
  $SHORT_VERSION = '';
+ $RELEASE_INFO = '';
  $PACKAGE_VERSION = '';
  
***************
*** 115,118 ****
--- 116,125 ----
  }
  
+ sub do_cmd_setreleaseinfo{
+     local($_) = @_;
+     $RELEASE_INFO = next_argument();
+     return $_;
+ }
+ 
  sub do_cmd_setshortversion{
      local($_) = @_;
***************
*** 907,910 ****
--- 914,928 ----
  }
  
+ sub do_env_classdescstar{
+     local($_) = @_;
+     $THIS_CLASS = next_argument();
+     $idx = make_str_index_entry(
+       "<tt class=\"class\">$THIS_CLASS</tt> (class in $THIS_MODULE)");
+     $idx =~ s/ \(.*\)//;
+     return ("<dl><dt><b>class $idx</b>\n<dd>"
+             . $_
+             . '</dl>');
+ }
+ 
  sub do_env_excclassdesc{
      return handle_classlike_descriptor(@_[0], "exception");
***************
*** 1297,1301 ****
  	$the_title .= "\n<p>";
  	if ($PACKAGE_VERSION) {
! 	    $the_title .= "<strong>Release $PACKAGE_VERSION</strong><br>\n";
          }
  	$the_title .= "<strong>$t_date</strong></p>"
--- 1315,1320 ----
  	$the_title .= "\n<p>";
  	if ($PACKAGE_VERSION) {
! 	    $the_title .= ('<strong>Release '
!                            . "$PACKAGE_VERSION$RELEASE_INFO</strong><br>\n");
          }
  	$the_title .= "<strong>$t_date</strong></p>"