summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/makedtx/creatdtx.perl
blob: 9149cba164b6be88321e122def373bedf1c50a2d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
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;