diff Doc/perl/python.perl @ 20678:61e8f01de821 legacy-trunk

Add yet more markup that let's a stylesheet pick out a small bit of the presentation. This is acceptable since it only occurs in the formatted output and does not affect the document markup.
author Fred Drake <fdrake@acm.org>
date Fri, 26 Oct 2001 03:09:27 +0000
parents 1b3ffdf12150
children 0a67463f8b7d
line wrap: on
line diff
--- a/Doc/perl/python.perl	Fri Oct 26 03:04:23 2001 +0000
+++ b/Doc/perl/python.perl	Fri Oct 26 03:09:27 2001 +0000
@@ -868,6 +868,10 @@
     return $REFCOUNTS{"$func:$param"};
 }
 
+
+$TLSTART = '<span class="typelabel">';
+$TLEND   = '</span>';
+
 sub do_env_cfuncdesc{
     local($_) = @_;
     my $return_type = next_argument();
@@ -1047,7 +1051,10 @@
     local($_) = @_;
     my $excname = next_argument();
     my $idx = make_str_index_entry("<tt class=\"exception\">$excname</tt>");
-    return "<dl><dt><b>exception $idx</b>\n<dd>" . $_ . '</dl>'
+    return ("<dl><dt><b>${TLSTART}exception$TLEND $idx</b>"
+            . "\n<dd>"
+            . $_
+            . '</dl>');
 }
 
 sub do_env_fulllineitems{ return do_env_itemize(@_); }
@@ -1060,7 +1067,8 @@
     $idx = make_str_index_entry(
 	"<tt class=\"$what\">$THIS_CLASS</tt> ($what in $THIS_MODULE)" );
     $idx =~ s/ \(.*\)//;
-    return ("<dl><dt><b>$what $idx</b>(<var>$arg_list</var>)\n<dd>"
+    return ("<dl><dt><b>$TLSTART$what$TLEND $idx</b>"
+            . "(<var>$arg_list</var>)\n<dd>"
             . $_
             . '</dl>');
 }
@@ -1075,7 +1083,7 @@
     $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>"
+    return ("<dl><dt><b>${TLSTART}class$TLEND $idx</b>\n<dd>"
             . $_
             . '</dl>');
 }