From fc16e78f3cf4dfe3ba2e43714a33478875ca68d9 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Thu, 12 Mar 1998 21:03:26 +0000
Subject: Bring this up to date.  Some things still don't work right.

---
 Doc/perl/python.perl | 61 ++++++++++++++++++++++++++++++++++++++++++++--------
 1 file changed, 52 insertions(+), 9 deletions(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 07ba65e..00ae37f 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -81,9 +81,29 @@ sub do_cmd_cfunction{ &do_cmd_code(@_); }
 sub do_cmd_cdata{ &do_cmd_code(@_); }
 sub do_cmd_ctype{ &do_cmd_code(@_); }
 
+sub do_cmd_character{ &do_cmd_samp(@_); }
+
+sub do_cmd_regexp{
+    local($_) = @_;
+    s|$next_pair_pr_rx|<tt>\2</tt>|;
+    $_;
+}
+
+sub do_cmd_envvar{
+    local($_) = @_;
+    s/$next_pair_pr_rx/\$\2/;
+    $_;
+}
+
+sub do_cmd_mimetype{
+    local($_) = @_;
+    s|$next_pair_pr_rx|<font face=sans-serif>\2</font>|;
+    $_;
+}
+
 sub do_cmd_email{
     local($_) = @_;
-    s/$any_next_pair_pr_rx/<tt><font face=sans-serif>\2<\/font><\/tt>/;
+    s|$any_next_pair_pr_rx|<tt><font face=sans-serif>\2</font></tt>|;
     $_;
 }
 
@@ -99,7 +119,7 @@ sub do_cmd_url{
 sub do_cmd_manpage{
     # two parameters:  \manpage{name}{section}
     local($_) = @_;
-#    local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
+    local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
     s/$next_pair_pr_rx$any_next_pair_pr_rx3/<i>\2<\/i>(\4)/;
     $_;
 }
@@ -154,7 +174,7 @@ sub do_cmd_strong{
 sub do_cmd_deprecated{
     # two parameters:  \deprecated{version}{whattodo}
     local($_) = @_;
-#    local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
+    local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
     local($release,$action) = ($2, $4);
     s/$next_pair_pr_rx$any_next_pair_pr_rx3//;
     "<b>Deprecated since release $release.</b>"
@@ -169,7 +189,8 @@ sub do_cmd_deprecated{
 $INDEX_SUBITEM = "";
 
 sub get_indexsubitem{
-  $INDEX_SUBITEM ? " $INDEX_SUBITEM" : '';
+    #$INDEX_SUBITEM ? " $INDEX_SUBITEM" : '';
+    '';
 }
 
 sub do_cmd_setindexsubitem{
@@ -179,6 +200,18 @@ sub do_cmd_setindexsubitem{
     $_;
 }
 
+sub do_cmd_withsubitem{
+    # We can't really do the right right thing, because LaTeX2HTML doesn't
+    # do things in the right order, but we need to at least strip this stuff
+    # out, and leave anything that the second argument expanded out to.
+    #
+    local($_) = @_;
+    s/$next_pair_pr_rx$any_next_pair_pr_rx3/\4/;
+    $_;
+}
+
+sub do_cmd_makemodindex{ @_[0]; }
+
 sub do_cmd_indexii{
     local($_) = @_;
     s/$next_pair_pr_rx//o;
@@ -313,10 +346,10 @@ sub init_myformat{
     $any_next_pair_rx7 = "$O(\\d+)$C([\\s\\S]*)$O\\7$C";
     $any_next_pair_rx9 = "$O(\\d+)$C([\\s\\S]*)$O\\9$C";
     # <#2#>...<#2#>
-    $any_next_pair_pr_rx_3 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
-    $any_next_pair_pr_rx_5 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\5$CP";
-    $any_next_pair_pr_rx_7 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\7$CP";
-    $any_next_pair_pr_rx_9 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\9$CP";
+    $any_next_pair_pr_rx3 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
+    $any_next_pair_pr_rx5 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\5$CP";
+    $any_next_pair_pr_rx7 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\7$CP";
+    $any_next_pair_pr_rx9 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\9$CP";
 #     if (defined &process_commands_wrap_deferred) {
 # 	&process_commands_wrap_deferred(<<THESE_COMMANDS);
 # indexii # {} # {}
@@ -386,6 +419,8 @@ sub replace_verbatim_hook{
 sub do_env_cfuncdesc{
     local($_) = @_;
     local($return_type,$function_name,$arg_list,$idx) = ('', '', '', '');
+    local($any_next_pair_rx3) = "$O(\\d+)$C([\\s\\S]*)$O\\3$C";
+    local($any_next_pair_rx5) = "$O(\\d+)$C([\\s\\S]*)$O\\5$C";
     local($cfuncdesc_rx) =
       "$next_pair_rx$any_next_pair_rx3$any_next_pair_rx5";
     if (/$cfuncdesc_rx/o) {
@@ -632,6 +667,7 @@ sub do_cmd_seemodule{
     local($_) = @_;
     local($opt_arg) = "(\\[([^\\]]*)])?";
 #    local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
+#    local($any_next_pair_pr_rx5) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\5$CP";
     s/$opt_arg$any_next_pair_pr_rx3$any_next_pair_pr_rx5//;
     local($module,$text,$key) = ($4, $6, $2);
     $key = $module if not $key;
@@ -683,7 +719,14 @@ sub do_cmd_maketitle {
 }
 
 
-# These are located down here since they screw up fontlock.
+sub do_cmd_inputindex{
+    local($_) = @_;
+    s/$next_pair_pr_rx//;
+    &do_cmd_input($2);
+}
+
+
+# These are located down here since they screw up fontlock.  -- used to.
 
 sub do_cmd_file{
     # This uses a weird HTML construct to adjust the font to be
-- 
cgit v0.12