| 1 | #! /bin/sh |
| 2 | # |
| 3 | # @(#)nettroff.sh 4.1 (Berkeley) %G% |
| 4 | # |
| 5 | # nettroff typeset on CC or VAX typesetter |
| 6 | # |
| 7 | # don't change this code - it is updated remotely |
| 8 | # mail problems to "csvax:schmidt" -- your changes wil be lost |
| 9 | # |
| 10 | # A machine phototypesetter version |
| 11 | # |
| 12 | set local=`cat /usr/include/whoami` |
| 13 | set typesetter=a |
| 14 | set troff=troff |
| 15 | set net=/usr/ucb/net |
| 16 | set whoami=/usr/ucb/whoami |
| 17 | onintr remove |
| 18 | set flags=() noglob length=() fonts=() fontf=() |
| 19 | top: |
| 20 | if ($#argv > 0) then |
| 21 | switch ($argv[1]) |
| 22 | |
| 23 | case -l*: |
| 24 | case -F: |
| 25 | case -1: |
| 26 | case -2: |
| 27 | case -3: |
| 28 | case -a: |
| 29 | case -b: |
| 30 | case -f: |
| 31 | case -g: |
| 32 | case -s*: |
| 33 | case -w: |
| 34 | echo $argv[1] not allowed. |
| 35 | exit(1) |
| 36 | |
| 37 | case -*: |
| 38 | set flags = ($flags $argv[1]) |
| 39 | shift argv |
| 40 | goto top |
| 41 | |
| 42 | endsw |
| 43 | endif |
| 44 | if ($#argv == 0) then |
| 45 | set argv=(-) |
| 46 | endif |
| 47 | $troff -t $flags $fontf $* >/usr/tmp/vp$$ |
| 48 | # check for valid format before sending off to A machine |
| 49 | /usr/net/bin/chktroff /usr/tmp/vp$$ |
| 50 | if ($status != 0) then |
| 51 | goto remove |
| 52 | endif |
| 53 | set person=`$whoami` |
| 54 | $net -q -m $typesetter -s /usr/tmp/vp$$ -c "nettroff $*" "/usr/lib/ntq -m $local -n $person" |
| 55 | remove: |
| 56 | rm -f /usr/tmp/vp$$ |
| 57 | if ($#fontf) then |
| 58 | rm -f $fontf |
| 59 | endif |