mirror of https://github.com/python/cpython.git
52 lines
1.2 KiB
Perl
52 lines
1.2 KiB
Perl
# LaTeX2HTML support for the ltxmarkup package. Doesn't do indexing.
|
|
|
|
package main;
|
|
|
|
|
|
sub ltx_next_argument{
|
|
my $param;
|
|
$param = missing_braces()
|
|
unless ((s/$next_pair_pr_rx/$param=$2;''/eo)
|
|
||(s/$next_pair_rx/$param=$2;''/eo));
|
|
return $param;
|
|
}
|
|
|
|
|
|
sub do_cmd_macro{
|
|
local($_) = @_;
|
|
my $macro = ltx_next_argument();
|
|
return "<tt class='macro'>\$macro</tt>" . $_;
|
|
}
|
|
|
|
sub do_cmd_env{
|
|
local($_) = @_;
|
|
my $env = ltx_next_argument();
|
|
return "<tt class='environment'>\$env</tt>" . $_;
|
|
}
|
|
|
|
sub do_env_macrodesc{
|
|
local($_) = @_;
|
|
my $macro = ltx_next_argument();
|
|
my $params = ltx_next_argument();
|
|
return "\n<dl class='macrodesc'>"
|
|
. "\n<dt><b><tt class='macro'>\$macro</tt></b>"
|
|
. "\n $params"
|
|
. "\n<dd>"
|
|
. $_
|
|
. "</dl>";
|
|
}
|
|
|
|
sub do_env_envdesc{
|
|
local($_) = @_;
|
|
my $env = ltx_next_argument();
|
|
my $params = ltx_next_argument();
|
|
return "\n<dl class='envdesc'>"
|
|
. "\n<dt><b><tt class='environment'>\$env</tt></b>"
|
|
. "\n $params"
|
|
. "\n<dd>"
|
|
. $_
|
|
. "</dl>";
|
|
}
|
|
|
|
1; # Must end with this, because Perl is bogus.
|