rc/bin/doctype

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