From: Fred Drake <fdrake@acm.org>
Date: Tue, 29 Oct 1996 15:56:57 +0000 (+0000)
Subject: (myformat.perl):  Added handler for cfuncdesc environment.  This is needed
X-Git-Tag: v1.5a1~965
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=7a7480dc84a91bf3205d004957230c7001cf4c7b;p=python

(myformat.perl):  Added handler for cfuncdesc environment.  This is needed
	for the extending & embedding manual.
---

diff --git a/Doc/myformat.perl b/Doc/myformat.perl
index bfb482144f..9d1a2cde32 100644
--- a/Doc/myformat.perl
+++ b/Doc/myformat.perl
@@ -150,4 +150,22 @@ sub do_cmd_bifuncindex{ &my_parword_index_helper('built-in function', @_); }
 sub do_cmd_bimodindex{ &my_parword_index_helper('built-in module', @_); }
 sub do_cmd_bifuncindex{ &my_parword_index_helper('standard module', @_); }
 
+sub do_env_cfuncdesc{
+  local($_) = @_;
+  local($return_type,$function_name,$arg_list) = ('', '', '');
+  local($any_next_pair_rx3) = "$O(\\d+)$C([\\s\\S]*)$O\\3$C";
+  local($cfuncdesc_rx) =
+    "$any_next_pair_rx$any_next_pair_rx3$any_next_pair_rx5";
+  $* = 1;
+  if (/$cfuncdesc_rx/o) {
+    $return_type = "$2";
+    $function_name = "$4";
+    $arg_list = "$6";
+    &make_index_entry($3,$function_name)
+  }
+  $* = 0;
+  "<DL><DT>$return_type <STRONG><A NAME=\"$3\">$function_name</A></STRONG>" .
+    "(<VAR>$arg_list</VAR>)\n<DD>$'\n</DL>"
+}
+
 1;				# This must be the last line