Stowage/cpython
2
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-10-31 05:31:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Bring this up to date. Some things still don't work right.

Browse source
This commit is contained in:
Fred Drake 1998-03-12 21:03:26 +00:00
parent 94fac130bb
commit fc16e78f3c
1 changed files with 52 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

61
Doc/perl/python.perl
View file

@ -81,9 +81,29 @@ sub do_cmd_cfunction{ &do_cmd_code(@_); }
sub do_cmd_cdata{ &do_cmd_code(@_); } sub do_cmd_cdata{ &do_cmd_code(@_); }
sub do_cmd_ctype{ &do_cmd_code(@_); } sub do_cmd_ctype{ &do_cmd_code(@_); }
sub do_cmd_character{ &do_cmd_samp(@_); }
sub do_cmd_regexp{
local($_) = @_;
s|$next_pair_pr_rx|<tt>\2</tt>|;
$_;
}
sub do_cmd_envvar{
local($_) = @_;
s/$next_pair_pr_rx/\$\2/;
$_;
}
sub do_cmd_mimetype{
local($_) = @_;
s|$next_pair_pr_rx|<font face=sans-serif>\2</font>|;
$_;
}
sub do_cmd_email{ sub do_cmd_email{
local($_) = @_; local($_) = @_;
s/$any_next_pair_pr_rx/<tt><font face=sans-serif>\2<\/font><\/tt>/; s|$any_next_pair_pr_rx|<tt><font face=sans-serif>\2</font></tt>|;
$_; $_;
} }
@ -99,7 +119,7 @@ sub do_cmd_url{
sub do_cmd_manpage{ sub do_cmd_manpage{
# two parameters: \manpage{name}{section} # two parameters: \manpage{name}{section}
local($_) = @_; local($_) = @_;
# local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP"; local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
s/$next_pair_pr_rx$any_next_pair_pr_rx3/<i>\2<\/i>(\4)/; s/$next_pair_pr_rx$any_next_pair_pr_rx3/<i>\2<\/i>(\4)/;
$_; $_;
} }
@ -154,7 +174,7 @@ sub do_cmd_strong{
sub do_cmd_deprecated{ sub do_cmd_deprecated{
# two parameters: \deprecated{version}{whattodo} # two parameters: \deprecated{version}{whattodo}
local($_) = @_; local($_) = @_;
# local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP"; local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
local($release,$action) = ($2, $4); local($release,$action) = ($2, $4);
s/$next_pair_pr_rx$any_next_pair_pr_rx3//; s/$next_pair_pr_rx$any_next_pair_pr_rx3//;
"<b>Deprecated since release $release.</b>" "<b>Deprecated since release $release.</b>"
@ -169,7 +189,8 @@ sub do_cmd_deprecated{
$INDEX_SUBITEM = ""; $INDEX_SUBITEM = "";
sub get_indexsubitem{ sub get_indexsubitem{
$INDEX_SUBITEM ? " $INDEX_SUBITEM" : ''; #$INDEX_SUBITEM ? " $INDEX_SUBITEM" : '';
'';
} }
sub do_cmd_setindexsubitem{ sub do_cmd_setindexsubitem{
@ -179,6 +200,18 @@ sub do_cmd_setindexsubitem{
$_; $_;
} }
sub do_cmd_withsubitem{
# We can't really do the right right thing, because LaTeX2HTML doesn't
# do things in the right order, but we need to at least strip this stuff
# out, and leave anything that the second argument expanded out to.
#
local($_) = @_;
s/$next_pair_pr_rx$any_next_pair_pr_rx3/\4/;
$_;
}
sub do_cmd_makemodindex{ @_[0]; }
sub do_cmd_indexii{ sub do_cmd_indexii{
local($_) = @_; local($_) = @_;
s/$next_pair_pr_rx//o; s/$next_pair_pr_rx//o;
@ -313,10 +346,10 @@ sub init_myformat{
$any_next_pair_rx7 = "$O(\\d+)$C([\\s\\S]*)$O\\7$C"; $any_next_pair_rx7 = "$O(\\d+)$C([\\s\\S]*)$O\\7$C";
$any_next_pair_rx9 = "$O(\\d+)$C([\\s\\S]*)$O\\9$C"; $any_next_pair_rx9 = "$O(\\d+)$C([\\s\\S]*)$O\\9$C";
# <#2#>...<#2#> # <#2#>...<#2#>
$any_next_pair_pr_rx_3 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP"; $any_next_pair_pr_rx3 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
$any_next_pair_pr_rx_5 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\5$CP"; $any_next_pair_pr_rx5 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\5$CP";
$any_next_pair_pr_rx_7 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\7$CP"; $any_next_pair_pr_rx7 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\7$CP";
$any_next_pair_pr_rx_9 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\9$CP"; $any_next_pair_pr_rx9 = "$OP(\\d+)$CP([\\s\\S]*)$OP\\9$CP";
# if (defined &process_commands_wrap_deferred) { # if (defined &process_commands_wrap_deferred) {
# &process_commands_wrap_deferred(<<THESE_COMMANDS); # &process_commands_wrap_deferred(<<THESE_COMMANDS);
# indexii # {} # {} # indexii # {} # {}
@ -386,6 +419,8 @@ sub replace_verbatim_hook{
sub do_env_cfuncdesc{ sub do_env_cfuncdesc{
local($_) = @_; local($_) = @_;
local($return_type,$function_name,$arg_list,$idx) = ('', '', '', ''); local($return_type,$function_name,$arg_list,$idx) = ('', '', '', '');
local($any_next_pair_rx3) = "$O(\\d+)$C([\\s\\S]*)$O\\3$C";
local($any_next_pair_rx5) = "$O(\\d+)$C([\\s\\S]*)$O\\5$C";
local($cfuncdesc_rx) = local($cfuncdesc_rx) =
"$next_pair_rx$any_next_pair_rx3$any_next_pair_rx5"; "$next_pair_rx$any_next_pair_rx3$any_next_pair_rx5";
if (/$cfuncdesc_rx/o) { if (/$cfuncdesc_rx/o) {
@ -632,6 +667,7 @@ sub do_cmd_seemodule{
local($_) = @_; local($_) = @_;
local($opt_arg) = "(\\[([^\\]]*)])?"; local($opt_arg) = "(\\[([^\\]]*)])?";
# local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP"; # local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
# local($any_next_pair_pr_rx5) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\5$CP";
s/$opt_arg$any_next_pair_pr_rx3$any_next_pair_pr_rx5//; s/$opt_arg$any_next_pair_pr_rx3$any_next_pair_pr_rx5//;
local($module,$text,$key) = ($4, $6, $2); local($module,$text,$key) = ($4, $6, $2);
$key = $module if not $key; $key = $module if not $key;
@ -683,7 +719,14 @@ sub do_cmd_maketitle {
} }
# These are located down here since they screw up fontlock. sub do_cmd_inputindex{
local($_) = @_;
s/$next_pair_pr_rx//;
&do_cmd_input($2);
}
# These are located down here since they screw up fontlock. -- used to.
sub do_cmd_file{ sub do_cmd_file{
# This uses a weird HTML construct to adjust the font to be # This uses a weird HTML construct to adjust the font to be