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

Fri, 3 Mar 2000 11:28:28 -0500 (EST)

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>'