diff options
author | Fred Drake <fdrake@acm.org> | 1996-10-29 15:56:57 +0000 |
---|---|---|
committer | Fred Drake <fdrake@acm.org> | 1996-10-29 15:56:57 +0000 |
commit | 8294f19b2063d71677c6f3d3cf3dfa31fafd1566 (patch) | |
tree | a4de51ccd9a0a8233344f2433fc09f49c41d0a45 /Doc | |
parent | f2d93443ca3e5dc07cd9777faf95fe344c5f3e59 (diff) | |
download | cpython-8294f19b2063d71677c6f3d3cf3dfa31fafd1566.tar.gz |
(myformat.perl): Added handler for cfuncdesc environment. This is needed
for the extending & embedding manual.
Diffstat (limited to 'Doc')
-rw-r--r-- | Doc/myformat.perl | 18 |
1 files changed, 18 insertions, 0 deletions
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 |