1 files changed, 72 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/support/makedtx/creatdtx.perl b/Master/texmf-dist/doc/support/makedtx/creatdtx.perl
new file mode 100644
index 00000000000..9149cba164b
--- /dev/null
+++ b/Master/texmf-dist/doc/support/makedtx/creatdtx.perl
@@ -0,0 +1,72 @@
+# creatdtx.perl LaTeX2HTML file corresponding to creatdtx.sty package
+# author : Nicola Talbot
+# date   : 2nd August 2007
+
+package main;
+
+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 # {}
+OnlyDescription
+RecordChanges
+PrintChanges
+EnableCrossRefs
+CodelineIndex
+GetFileInfo # {}
+CheckSum # {}
+DescribeMacro # {}
+DescribeEnvironment # {}
+DoNotIndex # {}
+changes # {} # {} # {}
+DeleteShortVerb # {}
+MakeShortVerb # {}
+_IGNORED_CMDS_
+
+1;