|
|
1.1 ! root 1: #! /bin/csh ! 2: # ! 3: # portions Copyright (c) 1984, 1985, 1986 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 metricsDirectory=8044 ! 14: set deviceType=Xerox8044_Services8 ! 15: umask 0 ! 16: set flags=() noglob passes outputname=() ! 17: unset output ! 18: unset t ! 19: top: ! 20: if ($#argv > 0) then ! 21: switch ($argv[1]) ! 22: ! 23: case -D: ! 24: shift argv ! 25: set metricsDirectory=$argv[1] ! 26: shift argv ! 27: goto top ! 28: ! 29: case -[op]: ! 30: shift argv ! 31: set outputname=$argv[1] ! 32: set output ! 33: shift argv ! 34: goto top ! 35: ! 36: case -q: ! 37: unset passes ! 38: shift argv ! 39: goto top ! 40: ! 41: case -t: ! 42: set t ! 43: unset passes ! 44: shift argv ! 45: goto top ! 46: ! 47: case -*: ! 48: set flags = ($flags $argv[1]) ! 49: shift argv ! 50: goto top ! 51: ! 52: endsw ! 53: endif ! 54: if ($#argv == 0) then ! 55: set argv=(-) ! 56: endif ! 57: set intermediate=/tmp/ptroff$$ ! 58: if ($?passes) then ! 59: echo "[Starting troff]" ! 60: endif ! 61: if ($?t) then ! 62: $titroff -Tipress $flags -F$xeroxlib/fonts/$metricsDirectory $* ! 63: else ! 64: $titroff -Tipress $flags -F$xeroxlib/fonts/$metricsDirectory $* > $intermediate ! 65: if ($status != 0) then ! 66: echo "Error in ti-troff. Process aborted." ! 67: rm $intermediate ! 68: exit ! 69: endif ! 70: if ($?passes) then ! 71: echo "[Starting interpress conversion]" ! 72: endif ! 73: if ($?output) then ! 74: $xeroxbin/dipress -t -D $deviceType -f $xeroxlib/fonts/$metricsDirectory $intermediate > $outputname ! 75: else ! 76: $xeroxbin/dipress -D $deviceType -f $xeroxlib/fonts/$metricsDirectory $intermediate ! 77: endif ! 78: /bin/rm $intermediate ! 79: endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.