Return to iptroff.skel CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / dipress / src / bin

Annotation of 43BSD/contrib/dipress/src/bin/iptroff.skel, revision 1.1.1.1

1.1       root        1: #! /bin/csh
                      2: #
                      3: # portions Copyright (c) 1984, 1985 Xerox Corp.
                      4: #
                      5: # The next line contains the full path name of your typesetter-independent
                      6: # troff binary.
                      7: set titroff=TITROFFBINARY
                      8: #
                      9: # The following two lines are changed by a sed script in the Makefile
                     10: set xeroxbin=DESTBIN
                     11: set xeroxlib=DESTLIB
                     12: #
                     13: set device=8044
                     14: umask 0
                     15: set flags=() noglob passes outputname=()
                     16: unset output
                     17: unset t
                     18: top:
                     19: if ($#argv > 0) then
                     20:        switch ($argv[1])
                     21: 
                     22:        case -D:
                     23:                shift argv
                     24:                set device=$argv[1]
                     25:                shift argv
                     26:                goto top
                     27: 
                     28:        case -[op]:
                     29:                shift argv
                     30:                set outputname=$argv[1]
                     31:                set output
                     32:                shift argv
                     33:                goto top
                     34: 
                     35:        case -q:
                     36:                unset passes
                     37:                shift argv
                     38:                goto top
                     39: 
                     40:        case -t:
                     41:                set t
                     42:                unset passes
                     43:                shift argv
                     44:                goto top
                     45: 
                     46:        case -*:
                     47:                set flags = ($flags $argv[1])
                     48:                shift argv
                     49:                goto top
                     50: 
                     51:        endsw
                     52: endif
                     53: if ($#argv == 0) then
                     54:        set argv=(-)
                     55: endif
                     56: set intermediate=/tmp/ptroff$$
                     57: if ($?passes) then
                     58:        echo "[Starting troff]"
                     59: endif
                     60: if ($?t) then
                     61:        $titroff  -Tipress $flags -F$xeroxlib/fonts/$device $*
                     62: else
                     63:        $titroff  -Tipress $flags -F$xeroxlib/fonts/$device $* > $intermediate
                     64:        if ($status != 0) then
                     65:                echo "Error in ti-troff. Process aborted."
                     66:                rm $intermediate
                     67:                exit
                     68:        endif
                     69:        if ($?passes) then
                     70:                echo "[Starting interpress conversion]"
                     71:        endif
                     72:        if ($?output) then
                     73:                $xeroxbin/dipress -t -f $xeroxlib/fonts/$device $intermediate > $outputname
                     74:        else
                     75:                $xeroxbin/dipress -f $xeroxlib/fonts/$device $intermediate
                     76:        endif
                     77:        /bin/rm $intermediate
                     78: endif

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