From: Fred Drake <fdrake@acm.org>
Date: Tue, 9 Nov 1999 16:59:42 +0000 (+0000)
Subject: do_cmd_programopt():  New function, similar to do_cmd_program().
X-Git-Tag: v1.6a1~757
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=c9f5fe0d1c692c0f720a951db863d7665b331eab;p=python

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

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 718734e3ae..57a19eda18 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -148,6 +148,8 @@ sub do_cmd_character{
     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_rfc{
             . $_);
 }
 
+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($_) = @_;