[Python-checkins] CVS: python/dist/src/Doc/perl python.perl,1.79,1.80

[Fred L. Drake]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory slayer.i.sourceforge.net:/tmp/cvs-serv10846/perl

Modified Files:
	python.perl 
Log Message:

do_env_cfuncdesc():  Push as much of the generated HTML into one place
                     as possible for better readability.  Revise a comment.


Index: python.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.79
retrieving revision 1.80
diff -C2 -r1.79 -r1.80
*** python.perl	2000/08/09 13:45:04	1.79
--- python.perl	2000/08/11 20:04:19	1.80
***************
*** 645,665 ****
          "<tt class='cfunction'>$function_name()</tt>" . get_indexsubitem());
      $idx =~ s/ \(.*\)//;
!     $idx =~ s/\(\)//;		# ????
      my $result_rc = get_refcount($function_name, '');
      my $rcinfo = '';
      if ($result_rc eq '+1') {
!         $rcinfo = '<span class="label">Return value:</span>'
!                   . "\n  <span class=\"value\">New reference.</span>";
      }
      elsif ($result_rc eq '0') {
!         $rcinfo = '<span class="label">Return value:</span>'
!                   . "\n  <span class=\"value\">Borrowed reference.</span>";
      }
      elsif ($result_rc eq 'null') {
!         $rcinfo = '<span class="label">Return value:</span>'
!                   . "\n  <span class=\"value\">Always NULL.</span>";
      }
      if ($rcinfo ne '') {
!         $rcinfo = "\n<div class=\"refcount-info\">\n  $rcinfo\n</div>";
      }
      return "<dl><dt>$return_type <b>$idx</b> (<var>$arg_list</var>)\n<dd>"
--- 645,665 ----
          "<tt class='cfunction'>$function_name()</tt>" . get_indexsubitem());
      $idx =~ s/ \(.*\)//;
!     $idx =~ s/\(\)//;		# ???? - why both of these?
      my $result_rc = get_refcount($function_name, '');
      my $rcinfo = '';
      if ($result_rc eq '+1') {
!         $rcinfo = 'New reference';
      }
      elsif ($result_rc eq '0') {
!         $rcinfo = 'Borrowed reference';
      }
      elsif ($result_rc eq 'null') {
!         $rcinfo = 'Always <tt class="constant">NULL</tt>';
      }
      if ($rcinfo ne '') {
!         $rcinfo = (  "\n<div class=\"refcount-info\">"
!                    . "\n  <span class=\"label\">Return value:</span>"
!                    . "\n  <span class=\"value\">$rcinfo.</span>"
!                    . "\n</div>");
      }
      return "<dl><dt>$return_type <b>$idx</b> (<var>$arg_list</var>)\n<dd>"