summaryrefslogtreecommitdiffstats
path: root/Doc
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>1996-11-11 16:04:35 (GMT)
committerFred Drake <fdrake@acm.org>1996-11-11 16:04:35 (GMT)
commitc384d7560e0e07fecf4ae0704408d846dddc9a39 (patch)
tree193092dd0da0ceb3a56dceeaab9996f34f6828bd /Doc
parentd8597858a9ee4c51ef724cdfcc71fe2093ecaacd (diff)
downloadcpython-c384d7560e0e07fecf4ae0704408d846dddc9a39.zip
cpython-c384d7560e0e07fecf4ae0704408d846dddc9a39.tar.gz
cpython-c384d7560e0e07fecf4ae0704408d846dddc9a39.tar.bz2
(myformat.perl): Updated to allow library reference manual to be handled by
latex2html. Mostly added support for custom environments and some of the smaller commands used in the library reference (\e, \optional).
Diffstat (limited to 'Doc')
-rw-r--r--Doc/myformat.perl85
1 files changed, 72 insertions, 13 deletions
diff --git a/Doc/myformat.perl b/Doc/myformat.perl
index 9d1a2cd..b833ab7 100644
--- a/Doc/myformat.perl
+++ b/Doc/myformat.perl
@@ -22,59 +22,75 @@ sub do_cmd_C{ join('', 'C', @_[0]); }
sub do_cmd_Cpp{ join('', 'C++', @_[0]); }
sub do_cmd_EOF{ join('', 'EOF', @_[0]); }
+sub do_cmd_e{ "\\" }
+
# texinfo-like formatting commands: \code{...} etc.
+sub do_cmd_optional{
+ local($_) = @_;
+ s/$any_next_pair_pr_rx/<BIG>\[<\/BIG><VAR>\2<\/VAR><BIG>\]<\/BIG>/;
+ $_;
+}
+
+sub do_cmd_varvars{
+ local($_) = @_;
+ s/$any_next_pair_pr_rx/<VAR>\2<\/VAR>/;
+ $_;
+}
+
sub do_cmd_code{
local($_) = @_;
- s/(<#[0-9]+#>)(.*)(\1)/<CODE>\2<\/CODE>/;
+ s/$any_next_pair_pr_rx/<CODE>\2<\/CODE>/;
$_;
}
+sub do_cmd_sectcode{ &do_cmd_code(@_); }
+
sub do_cmd_kbd{
local($_) = @_;
- s/(<#[0-9]+#>)(.*)(\1)/<KBD>\2<\/KBD>/;
+ s/$any_next_pair_pr_rx/<KBD>\2<\/KBD>/;
$_;
}
sub do_cmd_key{
local($_) = @_;
- s/(<#[0-9]+#>)(.*)(\1)/<TT>\2<\/TT>/;
+ s/$any_next_pair_pr_rx/<TT>\2<\/TT>/;
$_;
}
sub do_cmd_samp{
local($_) = @_;
- s/(<#[0-9]+#>)(.*)(\1)/`<SAMP>\2<\/SAMP>'/;
+ s/$any_next_pair_pr_rx/`<SAMP>\2<\/SAMP>'/;
$_;
}
sub do_cmd_var{
local($_) = @_;
- s/(<#[0-9]+#>)(.*)(\1)/<VAR>\2<\/VAR>/;
+ s/$any_next_pair_pr_rx/<VAR>\2<\/VAR>/;
$_;
}
sub do_cmd_file{
local($_) = @_;
- s/(<#[0-9]+#>)(.*)(\1)/`<CODE>\2<\/CODE>'/;
+ s/$any_next_pair_pr_rx/`<CODE>\2<\/CODE>'/;
$_;
}
sub do_cmd_dfn{
local($_) = @_;
- s/(<#[0-9]+#>)(.*)(\1)/<I><DFN>\2<\/DFN><\/I>/;
+ s/$any_next_pair_pr_rx/<I><DFN>\2<\/DFN><\/I>/;
$_;
}
sub do_cmd_emph{
local($_) = @_;
- s/(<#[0-9]+#>)(.*)(\1)/<EM>\2<\/EM>/;
+ s/$any_next_pair_pr_rx/<EM>\2<\/EM>/;
$_;
}
sub do_cmd_strong{
local($_) = @_;
- s/(<#[0-9]+#>)(.*)(\1)/<STRONG>\2<\/STRONG>/;
+ s/$any_next_pair_pr_rx/<STRONG>\2<\/STRONG>/;
$_;
}
@@ -143,29 +159,72 @@ sub my_parword_index_helper{
local($word, $_) = @_;
s/$next_pair_pr_rx//o;
local($br_id, $str) = ($1, $2);
- join('', &make_index_entry($br_id, "$str ($word)"), $_);
+ &make_index_entry($br_id, "$str ($word)");
+ $_;
}
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_stmodindex{ &my_parword_index_helper('standard module', @_); }
sub do_cmd_bifuncindex{ &my_parword_index_helper('standard module', @_); }
+sub do_cmd_nodename{ &do_cmd_label(@_); }
+
+$any_next_pair_rx3 = "$O(\\d+)$C([\\s\\S]*)$O\\3$C";
+$new_command{"indexsubitem"} = "";
+
+sub get_indexsubitem{
+ local($result) = $new_command{"indexsubitem"};
+ #print "\nget_indexsubitem ==> $result\n";
+ $result;
+}
+
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";
+ "$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)
+ &make_index_entry($3,"<TT>$function_name</TT> " . &get_indexsubitem);
}
$* = 0;
"<DL><DT>$return_type <STRONG><A NAME=\"$3\">$function_name</A></STRONG>" .
"(<VAR>$arg_list</VAR>)\n<DD>$'\n</DL>"
}
+sub do_env_funcdesc{
+ local($_) = @_;
+ local($function_name,$arg_list) = ('', '');
+ local($funcdesc_rx) = "$next_pair_rx$any_next_pair_rx3";
+ $* = 1;
+ if (/$funcdesc_rx/o) {
+ $function_name = "$2";
+ $arg_list = "$4";
+ &make_index_entry($1,"<TT>$function_name</TT> " . &get_indexsubitem);
+ }
+ $* = 0;
+ "<DL><DT><STRONG><A NAME=\"$3\">$function_name</A></STRONG>" .
+ "(<VAR>$arg_list</VAR>)\n<DD>$'\n</DL>"
+}
+
+sub do_env_datadesc{
+ local($_) = @_;
+ local($data_name) = ('', '');
+ local($datadesc_rx) = "$next_pair_rx";
+ $* = 1;
+ if (/$datadesc_rx/o) {
+ $data_name = "$2";
+ &make_index_entry($1,"<TT>$data_name</TT> " . &get_indexsubitem);
+ }
+ $* = 0;
+ "<DL><DT><STRONG><A NAME=\"$3\">$data_name</A></STRONG>" .
+ "\n<DD>$'\n</DL>"
+}
+
+sub do_env_excdesc{ &do_env_datadesc(@_); }
+
1; # This must be the last line