diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/makedtx/creatdtx.perl')
-rw-r--r-- | Master/texmf-dist/doc/latex/makedtx/creatdtx.perl | 48 |
1 files changed, 44 insertions, 4 deletions
diff --git a/Master/texmf-dist/doc/latex/makedtx/creatdtx.perl b/Master/texmf-dist/doc/latex/makedtx/creatdtx.perl index add32266da4..9149cba164b 100644 --- a/Master/texmf-dist/doc/latex/makedtx/creatdtx.perl +++ b/Master/texmf-dist/doc/latex/makedtx/creatdtx.perl @@ -1,16 +1,56 @@ # creatdtx.perl LaTeX2HTML file corresponding to creatdtx.sty package # author : Nicola Talbot -# date : 8th Feb 2005 +# date : 2nd August 2007 package main; -print " [creatdtx v0.9b (N.L.C. Talbot)]"; +print " [creatdtx v0.93b (N.L.C. Talbot)]"; sub do_cmd_meta { &do_cmd_emph(@_); } +sub do_cmd_cs{ + local($_) = @_; + local($name); + + $name = &missing_braces unless + (s/$next_pair_pr_rx/$name=$2;''/eo); + + "<TT>\$name</TT>$_"; +} + +sub do_cmd_marg{ + local($_) = @_; + local($arg); + + $arg = &missing_braces unless + (s/$next_pair_pr_rx/$arg=$2;''/eo); + + "<TT>{</TT><EM>$arg</EM><TT>}</TT>$_"; +} + +sub do_cmd_oarg{ + local($_) = @_; + local($arg); + + $arg = &missing_braces unless + (s/$next_pair_pr_rx/$arg=$2;''/eo); + + "<TT>[</TT><EM>$arg</EM><TT>]</TT>$_"; +} + +sub do_cmd_parg{ + local($_) = @_; + local($arg); + + $arg = &missing_braces unless + (s/$next_pair_pr_rx/$arg=$2;''/eo); + + "<TT>(</TT><EM>$arg</EM><TT>)</TT>$_"; +} + &ignore_commands( <<_IGNORED_CMDS_); ifmakedtx # {} StopEventually # {} @@ -23,10 +63,10 @@ GetFileInfo # {} CheckSum # {} DescribeMacro # {} DescribeEnvironment # {} -MakeShortVerb # {} -DeleteShortVerb # {} DoNotIndex # {} changes # {} # {} # {} +DeleteShortVerb # {} +MakeShortVerb # {} _IGNORED_CMDS_ 1; |