diff options
Diffstat (limited to 'Doc')
-rw-r--r-- | Doc/perl/ltxmarkup.perl | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/Doc/perl/ltxmarkup.perl b/Doc/perl/ltxmarkup.perl new file mode 100644 index 0000000..9136e61 --- /dev/null +++ b/Doc/perl/ltxmarkup.perl @@ -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'>\$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. |