1 2b85f70d 2005-01-11 devnull #!/usr/local/plan9/bin/rc
 2 2b85f70d 2005-01-11 devnull 
 3 3ff9213b 2005-01-04 devnull # doctype:  synthesize proper command line for troff
 4 3ff9213b 2005-01-04 devnull 
 5 9bbe4594 2005-01-14 devnull . 9.rc
 6 9bbe4594 2005-01-14 devnull 
 7 3ff9213b 2005-01-04 devnull troff=troff
 8 3ff9213b 2005-01-04 devnull eqn=eqn
 9 3ff9213b 2005-01-04 devnull prefer=prefer
10 3ff9213b 2005-01-04 devnull opt=''
11 3ff9213b 2005-01-04 devnull dev=''
12 3ff9213b 2005-01-04 devnull while(~ $1 -*){
13 3ff9213b 2005-01-04 devnull 	switch($1){
14 3ff9213b 2005-01-04 devnull 	case -n;
15 3ff9213b 2005-01-04 devnull 		troff=nroff
16 3ff9213b 2005-01-04 devnull 		eqn=neqn
17 3ff9213b 2005-01-04 devnull 		prefer='prefer -n'
18 3ff9213b 2005-01-04 devnull 	case -T
19 3ff9213b 2005-01-04 devnull 		dev=$1
20 3ff9213b 2005-01-04 devnull 	case -*
21 3ff9213b 2005-01-04 devnull 		opt=$opt' $1'
22 3ff9213b 2005-01-04 devnull 	}
23 3ff9213b 2005-01-04 devnull 	shift
24 3ff9213b 2005-01-04 devnull }
25 3ff9213b 2005-01-04 devnull ifs='
26 3ff9213b 2005-01-04 devnull '{
27 3ff9213b 2005-01-04 devnull 	files=`{echo $*}
28 3ff9213b 2005-01-04 devnull }
29 9bbe4594 2005-01-14 devnull grep -h '\$LIST|\|reference|^\.(EQ|TS|\[|PS|IS|GS|G1|GD|PP|BM|LP|BP|PI|cstart|begin|TH...)|^\.P$' $* |
30 3ff9213b 2005-01-04 devnull sort -u |
31 3ff9213b 2005-01-04 devnull awk '
32 3ff9213b 2005-01-04 devnull BEGIN	{ files = "'$files'" }
33 3ff9213b 2005-01-04 devnull /\$LIST/ { e++ }
34 3ff9213b 2005-01-04 devnull /^\.PP/	{ ms++ }
35 3ff9213b 2005-01-04 devnull /^\.LP/	{ ms++ }
36 3ff9213b 2005-01-04 devnull /^\.EQ/	{ eqn++ }
37 3ff9213b 2005-01-04 devnull /^\.TS/	{ tbl++ }
38 3ff9213b 2005-01-04 devnull /^\.PS/	{ pic++ }
39 3ff9213b 2005-01-04 devnull /^\.IS/	{ ideal++ }
40 3ff9213b 2005-01-04 devnull /^\.GS/ { tped++ }
41 3ff9213b 2005-01-04 devnull /^\.G1/ { grap++; pic++ }
42 3ff9213b 2005-01-04 devnull /^\.GD/ { dag++; pic++ }
43 3ff9213b 2005-01-04 devnull /^\.\[/	{ refer++ }
44 3ff9213b 2005-01-04 devnull /\|reference/ { prefer++ }
45 3ff9213b 2005-01-04 devnull /^\.cstart/ { chem++; pic++ }
46 3ff9213b 2005-01-04 devnull /^\.begin +dformat/ { dformat++; pic++ }
47 3ff9213b 2005-01-04 devnull /^\.TH.../ { man++ }
48 3ff9213b 2005-01-04 devnull /^\.BM/ { lbits++ }
49 3ff9213b 2005-01-04 devnull /^\.P$/	{ mm++ }
50 3ff9213b 2005-01-04 devnull /^\.BP/	{ pictures++ }
51 3ff9213b 2005-01-04 devnull /^\.PI/	{ pictures++ }
52 3ff9213b 2005-01-04 devnull END {
53 3ff9213b 2005-01-04 devnull 	x = ""
54 3ff9213b 2005-01-04 devnull 	if (refer) {
55 3ff9213b 2005-01-04 devnull 		if (e)	x = "refer -e " files " | "
56 3ff9213b 2005-01-04 devnull 		else	x =  "refer " files "| "
57 3ff9213b 2005-01-04 devnull 		files = ""
58 3ff9213b 2005-01-04 devnull 	}
59 3ff9213b 2005-01-04 devnull 	else if (prefer) { x = "cat " files "| '$prefer'| "; files = "" }
60 3ff9213b 2005-01-04 devnull 	if (tped)  { x = x "tped " files " | "; files = "" }
61 3ff9213b 2005-01-04 devnull 	if (dag)  { x = x "dag " files " | "; files = "" }
62 3ff9213b 2005-01-04 devnull 	if (ideal) { x = x "ideal -q " files " | "; files = "" }
63 3ff9213b 2005-01-04 devnull 	if (grap)  { x = x "grap " files " | "; files = "" }
64 3ff9213b 2005-01-04 devnull 	if (chem)  { x = x "chem " files " | "; files = "" }
65 3ff9213b 2005-01-04 devnull 	if (dformat)  { x = x "dformat " files " | "; files = "" }
66 3ff9213b 2005-01-04 devnull 	if (pic)   { x = x "pic " files " | "; files = "" }
67 3ff9213b 2005-01-04 devnull 	if (tbl)   { x = x "tbl " files " | "; files = "" }
68 3ff9213b 2005-01-04 devnull 	if (eqn)   { x = x "'$eqn' '$dev' " files " | "; files = "" }
69 3ff9213b 2005-01-04 devnull 	x = x "'$troff' "
70 3ff9213b 2005-01-04 devnull 	if (man) x = x "-man"
71 3ff9213b 2005-01-04 devnull 	else if (ms) x = x "-ms"
72 3ff9213b 2005-01-04 devnull 	else if (mm) x = x "-mm"
73 3ff9213b 2005-01-04 devnull 	if (lbits) x = x "-mbits"
74 3ff9213b 2005-01-04 devnull 	if (pictures) x = x " -mpictures"
75 3ff9213b 2005-01-04 devnull 	x = x " '$opt' '$dev' " files
76 3ff9213b 2005-01-04 devnull 	print x
77 3ff9213b 2005-01-04 devnull }'