Add support for \cmemberline and the cmemberdesc environment.

freddrake · freddrake · commit eeb5ec42e03f · 2002-04-15T17:46:00.000Z
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
@@ -939,6 +939,30 @@ sub do_env_cfuncdesc{
            . '</dl>';
 }
 
+sub do_cmd_cmemberline{
+    local($_) = @_;
+    my $container = next_argument();
+    my $type = next_argument();
+    my $name = next_argument();
+    my $idx = make_str_index_entry("<tt class=\"cmember\">$name</tt>"
+                                   . " ($type member)");
+    $idx =~ s/ \(.*\)//;
+    return "<dt>$type <b>$idx</b>\n<dd>"
+           . $_;
+}
+sub do_env_cmemberdesc{
+    local($_) = @_;
+    my $container = next_argument();
+    my $type = next_argument();
+    my $name = next_argument();
+    my $idx = make_str_index_entry("<tt class=\"cmember\">$name</tt>"
+                                   . " ($type member)");
+    $idx =~ s/ \(.*\)//;
+    return "<dl><dt>$type <b>$idx</b>\n<dd>"
+           . $_
+           . '</dl>';
+}
+
 sub do_env_csimplemacrodesc{
     local($_) = @_;
     my $name = next_argument();
