Mercurial > cpython-lru_cache-weakref

diff Doc/perl/python.perl @ 11449:e0fe4c7a9eff legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
do_cmd_programopt(): New function, similar to do_cmd_program(). do_cmd_citetitle(): New function. Extracts one optional and one required parameter. If the optional one is provided, it is used a URL (or relative URL) and the text of the required parameter is turned into a hyperlink.
author Fred Drake <fdrake@acm.org>
date Tue, 09 Nov 1999 16:59:42 +0000
parents 00d577e44d34
children 5ea773413531
line wrap: on
line diff
--- a/Doc/perl/python.perl	Tue Nov 09 16:36:45 1999 +0000
+++ b/Doc/perl/python.perl	Tue Nov 09 16:59:42 1999 +0000
@@ -148,6 +148,8 @@
     return use_wrappers(@_[0], '"<tt class=character>', '</tt>"'); }
 sub do_cmd_program{
     return use_wrappers(@_[0], '<b class=program>', '</b>'); }
+sub do_cmd_programopt{
+    return use_wrappers(@_[0], '<b class="programopt">', '</b>'); }
 sub do_cmd_email{
     return use_wrappers(@_[0], '<span class=email>', '</span>'); }
 sub do_cmd_mimetype{
@@ -233,6 +235,23 @@
             . $_);
 }
 
+sub do_cmd_citetitle{
+    local($_) = @_;
+    my $url = next_optional_argument();
+    my $title = next_argument();
+    my $repl = '';
+    if ($url) {
+        $repl = ("<em class='citetitle'><a\n"
+                 . " href='$url'\n"
+                 . " title='$title'\n"
+                 . " >$title</a></em>");
+    }
+    else {
+        $repl = "<em class='citetitle'\n >$title</em>";
+    }
+    return $repl . $_;
+}
+
 sub do_cmd_deprecated{
     # two parameters:  \deprecated{version}{whattodo}
     local($_) = @_;