# 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); "\$name$_"; } sub do_cmd_marg{ local($_) = @_; local($arg); $arg = &missing_braces unless (s/$next_pair_pr_rx/$arg=$2;''/eo); "{$arg}$_"; } sub do_cmd_oarg{ local($_) = @_; local($arg); $arg = &missing_braces unless (s/$next_pair_pr_rx/$arg=$2;''/eo); "[$arg]$_"; } sub do_cmd_parg{ local($_) = @_; local($arg); $arg = &missing_braces unless (s/$next_pair_pr_rx/$arg=$2;''/eo); "($arg)$_"; } &ignore_commands( <<_IGNORED_CMDS_); ifmakedtx # {} StopEventually # {} OnlyDescription RecordChanges PrintChanges EnableCrossRefs CodelineIndex GetFileInfo # {} CheckSum # {} DescribeMacro # {} DescribeEnvironment # {} DoNotIndex # {} changes # {} # {} # {} DeleteShortVerb # {} MakeShortVerb # {} _IGNORED_CMDS_ 1;