[Python-checkins] CVS: python/dist/src/Doc/perl python.perl,1.65.2.5,1.65.2.6

[Fred L. Drake]

Update of /projects/cvsroot/python/dist/src/Doc/perl
In directory weyr:/home/fdrake/projects/python/Doc-152p2/perl

Modified Files:
      Tag: release152p1-patches
	python.perl 
Log Message:

Update to reflect the latest changes to python.sty.


Index: python.perl
===================================================================
RCS file: /projects/cvsroot/python/dist/src/Doc/perl/python.perl,v
retrieving revision 1.65.2.5
retrieving revision 1.65.2.6
diff -C2 -r1.65.2.5 -r1.65.2.6
*** python.perl	2000/02/21 17:05:09	1.65.2.5
--- python.perl	2000/03/03 16:28:25	1.65.2.6
***************
*** 350,354 ****
  sub new_link_info{
      my $name = "l2h-" . ++$globals{'max_id'};
!     my $aname = '<a name="' . $name . '">';
      my $ahref = gen_link($CURRENT_FILE, $name);
      return ($name, $aname, $ahref);
--- 350,354 ----
  sub new_link_info{
      my $name = "l2h-" . ++$globals{'max_id'};
!     my $aname = "<a name='$name'>";
      my $ahref = gen_link($CURRENT_FILE, $name);
      return ($name, $aname, $ahref);
***************
*** 623,633 ****
  }
  
  sub do_env_ctypedesc{
      local($_) = @_;
      my $type_name = next_argument();
!     my $idx = make_str_index_entry("<tt class='ctype'>$type_name</tt>"
! 				   . get_indexsubitem());
!     $idx =~ s/ \(.*\)//;
!     return "<dl><dt><b>$idx</b>\n<dd>"
             . $_
             . '</dl>'
--- 623,644 ----
  }
  
+ sub do_env_csimplemacrodesc{
+     local($_) = @_;
+     my $name = next_argument();
+     my $idx = make_str_index_entry("<tt class='macro'>$name</tt>");
+     return "<dl><dt><b>$idx</b>\n<dd>"
+            . $_
+            . '</dl>'
+ }
+ 
  sub do_env_ctypedesc{
      local($_) = @_;
+     my $index_name = next_optional_argument();
      my $type_name = next_argument();
!     $index_name = $type_name
!       unless $index_name;
!     my($name,$aname,$ahref) = new_link_info();
!     add_index_entry("<tt class='ctype'>$index_name</tt> (C type)", $ahref);
!     return "<dl><dt><b><tt class='ctype'>$aname$type_name</a></tt></b>\n<dd>"
             . $_
             . '</dl>'