traverseda
/
cpython
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

LaTeX2HTML support for the ltxmarkup package.

This commit is contained in:
Fred Drake 1999-03-18 16:42:28 +00:00
parent 9466b9a10d
commit 03dffcce0e
1 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
Doc/perl/ltxmarkup.perl Normal file
View File

@ -0,0 +1,51 @@
# 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'>&#92;$macro</tt>" . $_;
}
sub do_cmd_env{
local($_) = @_;
my $env = ltx_next_argument();
return "<tt class='environment'>&#92;$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'>&#92;$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'>&#92;$env</tt></b>"
. "\n $params"
. "\n<dd>"
. $_
. "</dl>";
}
1; # Must end with this, because Perl is bogus.