mirrors/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-08-03 00:23:06 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Misc. revisions to LaTeX2HTML support.

Browse source
This commit is contained in:
Fred Drake 1998-03-06 21:20:08 +00:00
parent bc7101dff0
commit b3c9bca242
4 changed files with 20 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Doc/manual.perl
View file

@ -8,10 +8,7 @@
package main; package main;
$mydir = `pwd`; &do_require_package("report");
chop $mydir; &do_require_package("python");
unshift(@INC, $mydir);
require "python.perl";
1; # sheesh.... 1; # sheesh....

7
Doc/perl/manual.perl
View file

@ -8,10 +8,7 @@
package main; package main;
$mydir = `pwd`; &do_require_package("report");
chop $mydir; &do_require_package("python");
unshift(@INC, $mydir);
require "python.perl";
1; # sheesh.... 1; # sheesh....

19
Doc/perl/python.perl
View file

@ -99,7 +99,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 +154,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>"
@ -630,15 +630,12 @@ sub do_cmd_seemodule{
# Insert the right magic to jump to the module definition. This should # Insert the right magic to jump to the module definition. This should
# work most of the time, at least for repeat builds.... # work most of the time, at least for repeat builds....
local($_) = @_; local($_) = @_;
local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP"; local($opt_arg) = "(\\[([^\\]]*)])?";
s/$next_pair_pr_rx$any_next_pair_pr_rx3//; # local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
local($module,$text,$node,$key) = ($2, $4, '', "module$2"); s/$opt_arg$any_next_pair_pr_rx3$any_next_pair_pr_rx5//;
$key =~ s/_//g; local($module,$text,$key) = ($4, $6, $2);
# XXX somewhat bogus computation of $node $key = $module if not $key;
# $node = $external_labels{$key} unless "<p>Module <tt><b><a href=\"module-$key.html\">$module</a></b></tt>"
# ($node = $ref_files{$key});
$node = $key;
"<p>Module <tt><b><a href=\"$node#$key\">$module</a></b></tt>"
. "&nbsp;&nbsp;&nbsp;($text)</p>" . "&nbsp;&nbsp;&nbsp;($text)</p>"
. $_; . $_;
} }

19
Doc/python.perl
View file

@ -99,7 +99,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 +154,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>"
@ -630,15 +630,12 @@ sub do_cmd_seemodule{
# Insert the right magic to jump to the module definition. This should # Insert the right magic to jump to the module definition. This should
# work most of the time, at least for repeat builds.... # work most of the time, at least for repeat builds....
local($_) = @_; local($_) = @_;
local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP"; local($opt_arg) = "(\\[([^\\]]*)])?";
s/$next_pair_pr_rx$any_next_pair_pr_rx3//; # local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
local($module,$text,$node,$key) = ($2, $4, '', "module$2"); s/$opt_arg$any_next_pair_pr_rx3$any_next_pair_pr_rx5//;
$key =~ s/_//g; local($module,$text,$key) = ($4, $6, $2);
# XXX somewhat bogus computation of $node $key = $module if not $key;
# $node = $external_labels{$key} unless "<p>Module <tt><b><a href=\"module-$key.html\">$module</a></b></tt>"
# ($node = $ref_files{$key});
$node = $key;
"<p>Module <tt><b><a href=\"$node#$key\">$module</a></b></tt>"
. "&nbsp;&nbsp;&nbsp;($text)</p>" . "&nbsp;&nbsp;&nbsp;($text)</p>"
. $_; . $_;
} }