From 34adb8a8ec035afef6bbef0607ad48ed0973f838 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Mon, 15 Apr 2002 20:48:40 +0000
Subject: Separate out a \cfuncline macro from the cfuncdesc environment. This
 matches many other of the *desc environments, and is useful when multiple
 functions share a description.

---
 Doc/perl/python.perl | 29 +++++++++++++++++++++--------
 1 file changed, 21 insertions(+), 8 deletions(-)

(limited to 'Doc/perl/python.perl')

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 515b1e8234..5d33a6b1c4 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -907,16 +907,29 @@ sub get_refcount{
 $TLSTART = '<span class="typelabel">';
 $TLEND   = '</span>';
 
-sub do_env_cfuncdesc{
-    local($_) = @_;
-    my $return_type = next_argument();
-    my $function_name = next_argument();
-    my $arg_list = next_argument();
+sub cfuncline_helper{
+    my ($type, $name, $args) = @_;
     my $idx = make_str_index_entry(
-        "<tt class=\"cfunction\">$function_name()</tt>" . get_indexsubitem());
+        "<tt class=\"cfunction\">$name()</tt>" . get_indexsubitem());
     $idx =~ s/ \(.*\)//;
     $idx =~ s/\(\)//;		# ???? - why both of these?
-    my $result_rc = get_refcount($function_name, '');
+    return "$type <b>$idx</b>(<var>$args</var>)";
+}
+sub do_cmd_cfuncline{
+    local($_) = @_;
+    my $type = next_argument();
+    my $name = next_argument();
+    my $args = next_argument();
+    my $siginfo = cfuncline_helper($type, $name, $args);
+    return "<dt>$siginfo\n<dd>" . $_;
+}
+sub do_env_cfuncdesc{
+    local($_) = @_;
+    my $type = next_argument();
+    my $name = next_argument();
+    my $args = next_argument();
+    my $siginfo = cfuncline_helper($type, $name, $args);
+    my $result_rc = get_refcount($name, '');
     my $rcinfo = '';
     if ($result_rc eq '+1') {
         $rcinfo = 'New reference';
@@ -933,7 +946,7 @@ sub do_env_cfuncdesc{
                    . "\n  <span class=\"value\">$rcinfo.</span>"
                    . "\n</div>");
     }
-    return "<dl><dt>$return_type <b>$idx</b>(<var>$arg_list</var>)\n<dd>"
+    return "<dl><dt>$siginfo\n<dd>"
            . $rcinfo
            . $_
            . '</dl>';
-- 
cgit v1.2.1