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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
# Script type: perl
# troff2null - invoke troffcvt preprocessor and tc2null postprocessor
# Understands the usual troffcvt and tc2null arguments. In addition,
# understands the following options:
# -n no execution, just show commands that would be executed
# -p don't run the postprocessor tc2null
# Adds in redefinition files according to any macro package that is named
# in the command-line arguments. For example, if "-ms" is specified on the
# command line, troff2null passes "-ms -a tc.ms" to troffcvt.
# 17 Mar 97
# Paul DuBois
# dubois@primate.wisc.edu
# http://www.primate.wisc.edu/people/dubois
# 17 Mar 97 V1.00
# - Created.
($prog = $0) =~ s|.*//||; # get script name for messages
$troffcvt = "troffcvt";
$postproc = "tc2null";
$noexec = 0;
$nopostproc = 0;
$preargs = "";
$postargs = "";
while (@ARGV)
{
$_ = shift (@ARGV); # get next argument
if ($_ eq "-n") # recognize and delete -n
{
$noexec = 1;
next;
}
if ($_ eq "-p") # recognize and delete -p
{
$nopostproc = 1;
next;
}
if (!/^-./) # not a flag, just a filename or "-"
{
$preargs .= " $_";
next;
}
($opt, $rest) = /^-(.)(.*)/;
if ($opt eq "m") # -mxx macro package argument
{
die "$prog: -m requires macro package name\n" if $rest eq "";
$preargs .= " -m$rest -a 'tc.m$rest'";
next;
}
if ($opt =~ /^[ACl]$/) # troffcvt arguments that stand alone
{
$preargs .= " -$opt";
next;
}
if ($opt =~ /^[adrt]$/) # troffcvt arguments that require an
{ # additional argument
if ($rest eq "")
{
die "$prog: -$opt requires following argument\n"
if @ARGV == 0;
$rest = shift (@ARGV);
}
$preargs .= " -$opt '$rest'";
next;
}
if ($opt =~ /^[E]$/) # tc2null arguments that stand alone
{
$postargs .= " -$opt";
next;
}
warn ("Bad argument: -$opt\n");
}
if ($nopostproc)
{
# basic translation
$cmd = "$troffcvt $preargs";
warn "$cmd\n" if $noexec;
system $cmd if !$noexec;
}
else
{
# basic translation
$cmd = "$troffcvt $preargs | $postproc $postargs";
warn "$cmd\n" if $noexec;
system $cmd if !$noexec;
}
exit (0);
|
