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=$1
  17         case -*
  18                 opt=$opt' $1'
  19         }
  20         shift
  21 }
  22 ifs='
  23 '{
  24         files=`{echo $*}
  25 }
  26 grep -h '\$LIST|\|reference|Jp|^\.(EQ|TS|\[|PS|IS|GS|G1|GD|PP|BM|LP|BP|PI|cstart|begin|TH...)|^\.P$' $* |
  27 sort -u |
  28 awk '
  29 BEGIN   { files = "'$files'" }
  30 /\$LIST/ { e++ }
  31 /^\.PP/ { ms++ }
  32 /^\.LP/ { ms++ }
  33 /^\.EQ/ { eqn++ }
  34 /^\.TS/ { tbl++ }
  35 /^\.PS/ { pic++ }
  36 /^\.IS/ { ideal++ }
  37 /^\.GS/ { tped++ }
  38 /^\.G1/ { grap++; pic++ }
  39 /^\.GD/ { dag++; pic++ }
  40 /^\.\[/ { refer++ }
  41 /\|reference/ { prefer++ }
  42 /^\.cstart/ { chem++; pic++ }
  43 /^\.begin +dformat/ { dformat++; pic++ }
  44 /^\.TH.../ { man++ }
  45 /^\.BM/ { lbits++ }
  46 /^\.P$/ { mm++ }
  47 /^\.BP/ { pictures++ }
  48 /^\.PI/ { pictures++ }
  49 /^\.ft *Jp|\\f\(Jp/ { nihongo++ }
  50 END {
  51         x = ""
  52         if (refer) {
  53                 if (e)  x = "refer/refer -e " files " | "
  54                 else    x =  "refer/refer " files "| "
  55                 files = ""
  56         }
  57         else if (prefer) { x = "cat " files "| '$prefer'| "; files = "" }
  58         if (tped)  { x = x "tped " files " | "; files = "" }
  59         if (dag)  { x = x "dag " files " | "; files = "" }
  60         if (ideal) { x = x "ideal -q " files " | "; files = "" }
  61         if (grap)  { x = x "grap " files " | "; files = "" }
  62         if (chem)  { x = x "chem " files " | "; files = "" }
  63         if (dformat)  { x = x "dformat " files " | "; files = "" }
  64         if (pic)   { x = x "pic " files " | "; files = "" }
  65         if (tbl)   { x = x "tbl " files " | "; files = "" }
  66         if (eqn)   { x = x "'$eqn' '$dev' " files " | "; files = "" }
  67         x = x "'$troff' "
  68         if (man) x = x "-man"
  69         else if (ms) x = x "-ms"
  70         else if (mm) x = x "-mm"
  71         if (lbits) x = x " -mbits"
  72         if (pictures) x = x " -mpictures"
  73         if (nihongo) x = x " -mnihongo"
  74         x = x " '$opt' '$dev' " files
  75         print x
  76 }'