| rsc | 6174642 | 2005-08-31 02:15:26 +0000 | [diff] [blame] | 1 | #!/usr/local/plan9/bin/rc |
| 2 | # Tries to determine what type of file you are printing and do the correct |
| 3 | # thing with it. |
| 4 | # It currently knows about images, troff intermediate, and ascii files. |
| 5 | TMPFILE=/tmp/lp$pid |
| 6 | fn sigexit { rm -f $TMPFILE; } |
| 7 | if (! ~ $DEBUG '') flag x + |
| 8 | if (~ $LPCLASS *nohead*) NOHEAD=1 |
| 9 | if (~ $LPCLASS *duplex*) DUPLEX=1 |
| 10 | cat >$TMPFILE |
| 11 | FILETYPE=`{file $TMPFILE} |
| 12 | switch ($FILETYPE(2)) { |
| 13 | case troff; |
| 14 | switch ($LPCLASS) { |
| 15 | case *Latin1* *post* *opost*; switch ($FILETYPE(5)) { |
| 16 | # Latin1 is for compatibility with old research UNIX systems, doesn't work on Plan 9 |
| 17 | case Latin1 post; tcs -s -f utf -t latin1 < $TMPFILE |$LPLIB/process/dpost |
| 18 | |
| 19 | case UTF; $LPLIB/process/tr2post < $TMPFILE |
| 20 | } |
| 21 | |
| 22 | case *; echo $FILETYPE(2) -T$FILETYPE(5) output is improper for $LPDEST >[1=2] |
| 23 | } |
| 24 | case special; |
| 25 | switch ($FILETYPE(4)) { |
| 26 | case '#b'; switch ($LPCLASS) { |
| 27 | case *post*; $LPLIB/process/p9bitpost < $TMPFILE |
| 28 | } |
| 29 | |
| 30 | case *; echo $FILETYPE file is improper for $LPDEST >[1=2] |
| 31 | } |
| 32 | case Compressed plan old; # type is really 'Compressed image' or 'plan 9 image' |
| 33 | # or 'old plan 9 image' |
| 34 | switch ($LPCLASS) { |
| 35 | case *post*; $LPLIB/process/p9bitpost < $TMPFILE |
| 36 | } |
| 37 | case jpeg; |
| 38 | switch ($LPCLASS) { |
| 39 | case *post*; $LPLIB/process/jpgpost < $TMPFILE |
| 40 | } |
| 41 | |
| 42 | case GIF; |
| 43 | switch ($LPCLASS) { |
| 44 | case *post*; $LPLIB/process/gifpost < $TMPFILE |
| 45 | } |
| 46 | |
| 47 | case ccitt-g31; |
| 48 | switch ($LPCLASS) { |
| 49 | case *post*; $LPLIB/process/g3post < $TMPFILE |
| 50 | } |
| 51 | |
| 52 | # bitmap for research UNIX compatibility, does not work on Plan 9. |
| 53 | case bitmap; |
| 54 | switch ($LPCLASS) { |
| 55 | case *post*; $LPLIB/process/bpost < $TMPFILE |
| 56 | case *mhcc*; $LPLIB/process/bpost < $TMPFILE | $LPLIB/process/mhcc |
| 57 | case *; echo $FILETYPE(2) file is improper for $LPDEST >[1=2] |
| 58 | } |
| 59 | case tex; |
| 60 | mv $TMPFILE $TMPFILE.dvi |
| 61 | TMPFILE=$TMPFILE.dvi |
| 62 | switch ($LPCLASS) { |
| 63 | case *post*; $LPLIB/process/dvipost $TMPFILE |
| 64 | case *; echo $FILETYPE(2) file is improper for $LPDEST >[1=2] |
| 65 | } |
| 66 | case postscript; |
| 67 | switch ($LPCLASS) { |
| 68 | case *post*; $LPLIB/process/post < $TMPFILE |
| 69 | case *; echo $FILETYPE(2) file is improper for $LPDEST >[1=2] |
| 70 | } |
| 71 | case HPJCL; |
| 72 | switch ($LPCLASS) { |
| 73 | case *HPJCL*; $LPLIB/process/noproc < $TMPFILE |
| 74 | case *; echo $FILETYPE(2) file is improper for $LPDEST >[1=2] |
| 75 | } |
| 76 | case daisy; |
| 77 | switch ($LPDEST) { |
| 78 | case *; echo $FILETYPE(2) file is improper for $LPDEST >[1=2] |
| 79 | } |
| 80 | case English short extended alef limbo [Aa]scii ASCII assembler c latin rc sh as mail email message/rfc822; |
| 81 | switch ($LPCLASS) { |
| 82 | case *post*; $LPLIB/process/ppost < $TMPFILE |
| 83 | case *canon*; $LPLIB/process/can $* < $TMPFILE |
| 84 | case *; echo Unrecognized class of line printer for $LPDEST >[1=2] |
| 85 | } |
| 86 | |
| 87 | case tiff; |
| 88 | switch ($LPCLASS) { |
| 89 | case *post*; $LPLIB/process/tiffpost $TMPFILE |
| 90 | case *; echo Unrecognized class of line printer for $LPDEST >[1=2] |
| 91 | } |
| 92 | case PDF; |
| 93 | switch ($LPCLASS) { |
| 94 | case *post*; $LPLIB/process/pdfpost $TMPFILE |
| 95 | case *; echo Unrecognized class of line printer for $LPDEST >[1=2] |
| 96 | } |
| 97 | case empty; |
| 98 | echo file is empty >[1=2] |
| 99 | case cannot; |
| 100 | echo cannot open file >[1=2] |
| 101 | case *; |
| 102 | echo $FILETYPE(2) file is improper for $LPDEST >[1=2] |
| 103 | } |
| 104 | wait |
| 105 | rv=$status |
| 106 | rm -f $TMPFILE |
| 107 | #exit $status |
| 108 | exit |
