diff options
| author | Fred Drake <fdrake@acm.org> | 1996-10-29 15:56:57 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1996-10-29 15:56:57 (GMT) |
| commit | 7a7480dc84a91bf3205d004957230c7001cf4c7b (patch) | |
| tree | 5befc37b69a10f254c215cbf70dc95fae43c9efc /Doc/myformat.perl | |
| parent | eb33c781f3c6c2548ab0951fcac0ea68cd54b675 (diff) | |
| download | cpython-7a7480dc84a91bf3205d004957230c7001cf4c7b.zip cpython-7a7480dc84a91bf3205d004957230c7001cf4c7b.tar.gz cpython-7a7480dc84a91bf3205d004957230c7001cf4c7b.tar.bz2 | |
(myformat.perl): Added handler for cfuncdesc environment. This is needed
for the extending & embedding manual.
Diffstat (limited to 'Doc/myformat.perl')
| -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 bfb4821..9d1a2cd 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 |