Return to vtroff.sh CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / vpr

Annotation of 40BSD/cmd/vpr/vtroff.sh, revision 1.1.1.1

1.1       root        1: #
                      2: umask 0
                      3: set flags=() noglob length=() fonts=() fontf=() macp=(/usr/lib/tmac/tmac.vcat)
                      4: unset t
                      5: top:
                      6:        if ($#argv > 0) then
                      7:                switch ($argv[1])
                      8: 
                      9:                case -t:
                     10:                        set t
                     11:                        shift argv
                     12:                        goto top
                     13: 
                     14:                case -l*:
                     15:                        set length = $argv[1]
                     16:                        shift argv
                     17:                        goto top
                     18: 
                     19:                case -V:
                     20:                        unset wide
                     21:                        shift argv
                     22:                        goto top
                     23: 
                     24:                case -W:
                     25:                        set wide
                     26:                        shift argv
                     27:                        goto top
                     28: 
                     29:                case -F:
                     30:                        if ($#argv < 2) then
                     31:                                echo -F takes following font name.
                     32:                                exit(1)
                     33:                        endif
                     34:                        set argv=(-1 $2.r -2 $2.i -3 $2.b $argv[3-])
                     35:                        goto top
                     36: 
                     37:                case -1:
                     38:                case -2:
                     39:                case -3:
                     40:                        if ($#argv < 2) then
                     41:                                echo $1 takes following font name.
                     42:                                exit(1)
                     43:                        endif
                     44:                        if (! -r /usr/lib/fontinfo/$2) then
                     45:                                if (! -r /usr/lib/fontinfo/$2.r) then
                     46:                                        echo ${2}: font not found.
                     47:                                        exit(1)
                     48:                                endif
                     49:                                set argv[2] = $2.r
                     50:                        endif
                     51:                        if ($#fonts == 0) then
                     52:                                set fontf=/usr/tmp/fnt$$
                     53:                                cp /dev/null $fontf
                     54:                        endif
                     55:                        @ fnum = 0 - $1
                     56:                        echo .nr p $fnum >> $fontf
                     57:                        cat /usr/lib/fontinfo/$2 >> $fontf
                     58:                        set fonts=($fonts $1 $2)
                     59:                        shift argv
                     60:                        shift argv
                     61:                        goto top
                     62: 
                     63:                case -x:
                     64:                        set macp=()
                     65:                        shift argv
                     66:                        goto top
                     67: 
                     68:                case -*:
                     69:                        set flags = ($flags $argv[1])
                     70:                        shift argv
                     71:                        goto top
                     72: 
                     73:                endsw
                     74:        endif
                     75: if ($#argv == 0) then
                     76:        set argv=(-)
                     77: endif
                     78: if ($?wide) then
                     79:     if ($?t) then
                     80:        /usr/bin/troff -t $flags $macp $fontf $* | /usr/lib/vsort -W $length
                     81:     else
                     82:        /usr/bin/troff -t $flags $macp $fontf $* | \
                     83:            /usr/lib/vsort -W $length | /usr/ucb/vpr -W -t $fonts
                     84:     endif
                     85: else
                     86:     if ($?t) then
                     87:        /usr/bin/troff -t $flags $macp $fontf $* | /usr/lib/rvsort $length
                     88:     else
                     89:        /usr/bin/troff -t $flags $macp $fontf $* | \
                     90:            /usr/lib/rvsort $length | /usr/ucb/vpr -t $fonts
                     91: #          /usr/lib/vsort -c $length | /usr/ucb/vpr -t $fonts
                     92:     endif
                     93: endif
                     94: if ($#fontf) then
                     95:        rm $fontf
                     96: endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.