summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/makedtx/creatdtx.perl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/makedtx/creatdtx.perl')
-rw-r--r--Master/texmf-dist/doc/latex/makedtx/creatdtx.perl48
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>&#092;$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;