plan9fox/sys/lib/lp/process/generic
2012-09-10 08:10:30 +02:00

221 lines
4.9 KiB
Bash
Executable file
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#!/bin/rc
# Tries to determine what type of file you are printing and do the correct
# thing with it.
# It currently knows about images, troff intermediate, HTML and ascii files.
rfork e
temp=/tmp/lp$pid
fn sigexit { rm -f $temp }
proc=$LPLIB/process
if (! ~ $DEBUG '')
flag x +
cat >$temp
type=`{file $temp}
switch ($type(2)) {
case troff
switch ($LPCLASS) {
case *Latin1* *post* *opost*
switch ($type(5)) {
# Latin1 is for compatibility with old research UNIX systems,
# doesn't work on Plan 9
case Latin1 post
tcs -s -f utf -t latin1 <$temp | $proc/dpost
case UTF
$proc/tr2post <$temp
}
case *gs!* *gsijs!*
switch ($type(5)) {
# Latin1 is for compatibility with old research UNIX systems,
# doesn't work on Plan 9
case Latin1 post
tcs -s -f utf -t latin1 <$temp | $proc/dpost |
$proc/gspipe
case UTF
$proc/tr2post <$temp | $proc/gspipe
}
case *
echo $type(2) -T$type(5) output is improper for $LPDEST >[1=2]
}
case special
switch ($type(4)) {
case '#b'
switch ($LPCLASS) {
case *post*
$proc/p9bitpost <$temp
case *gs!*
$proc/p9bitpost <$temp | $proc/gspipe
case *gsijs!*
$proc/p9bitpost <$temp | $proc/gspipeijs
}
case *
echo $type file is improper for $LPDEST >[1=2]
}
case Compressed plan old subfont
# type is really 'Compressed image' or 'plan 9 image' or
# 'old plan 9 image'
# 'subfont' is to cope with a bug in png (writing wrong length),
# 6 may 2008
switch ($LPCLASS) {
case *post*
$proc/p9bitpost <$temp
case *gs!*
$proc/p9bitpost <$temp | $proc/gspipe
case *gsijs!*
$proc/p9bitpost <$temp | $proc/gspipeijs
}
case jpeg
switch ($LPCLASS) {
case *post*
$proc/jpgpost <$temp
case *gs!*
$proc/jpgpost <$temp | $proc/gspipe
case *gsijs!*
$proc/jpgpost <$temp | $proc/gspipeijs
}
case GIF
switch ($LPCLASS) {
case *post*
$proc/gifpost <$temp
case *gs!*
$proc/gifpost <$temp | $proc/gspipe
case *gsijs!*
$proc/gifpost <$temp | $proc/gspipeijs
}
case PNG
switch ($LPCLASS) {
case *post*
$proc/pngpost <$temp
case *gs!*
$proc/pngpost <$temp | $proc/gspipe
case *gsijs!*
$proc/pngpost <$temp | $proc/gspipeijs
}
case ccitt-g31
switch ($LPCLASS) {
case *post*
$proc/g3post <$temp
case *gs!*
$proc/g3post <$temp | $proc/gspipe
case *gsijs!*
$proc/g3post <$temp | $proc/gspipeijs
}
case bitmap
# bitmap for research UNIX compatibility, does not work on Plan 9.
switch ($LPCLASS) {
case *post*
$proc/bpost <$temp
case *mhcc*
$proc/bpost <$temp | $proc/mhcc
case *
echo $type(2) file is improper for $LPDEST >[1=2]
}
case tex
mv $temp $temp.dvi
temp=$temp.dvi
switch ($LPCLASS) {
case *post*
$proc/dvipost $temp
case *gs!*
$proc/dvipost $temp | $proc/gspipe
case *gsijs!*
$proc/dvipost $temp | $proc/gspipeijs
case *
echo $type(2) file is improper for $LPDEST >[1=2]
}
case postscript
switch ($LPCLASS) {
case *post*
$proc/post <$temp
case *gs!*
$proc/post <$temp | $proc/gspipe
case *gsijs!*
$proc/post <$temp | $proc/gspipeijs
case *
echo $type(2) file is improper for $LPDEST >[1=2]
}
case HPJCL HP
switch ($LPCLASS) {
case *HPJCL*
$proc/noproc <$temp
case *
echo $type(2) file is improper for $LPDEST >[1=2]
}
case daisy
switch ($LPDEST) {
case *
echo $type(2) file is improper for $LPDEST >[1=2]
}
case tiff
switch ($LPCLASS) {
case *post*
$proc/tiffpost $temp
case *gs!*
$proc/tiffpost $temp | $proc/gspipe
case *gsijs!*
$proc/tiffpost $temp | $proc/gspipeijs
case *
echo Unrecognized class of line printer for $LPDEST >[1=2]
}
case PDF
switch ($LPCLASS) {
case *pdf*
# if (~ $LPCLASS *duplex* && ~ $LPCLASS *HPJCL*)
# echo -n '&l1S' # HP JCL: duplex on
if (~ $LPCLASS *duplex* && ~ $LPCLASS *HPJCL*) {
echo '%-12345X@PJL DEFAULT DUPLEX=ON' # HP PJL
echo '%-12345X'
echo '%-12345X@PJL DEFAULT PS:MBT=ON' # `memory boost'
echo '%-12345X'
}
cat $temp # pass pdf unaltered to pdf printer
case *post*
$proc/pdfpost $temp
case *gs!*
$proc/pdfgs $temp
case *gsijs!*
$proc/pdfgsijs $temp
case *
echo Unrecognized class of line printer for $LPDEST >[1=2]
}
case microsoft # office document
switch ($LPCLASS) {
case *post*
doc2ps $temp | $proc/post
case *gs!*
doc2ps $temp | $proc/post | $proc/gspipe
case *gsijs!*
doc2ps $temp | $proc/post | $proc/gspipeijs
case *
echo $type(2) file is improper for $LPDEST >[1=2]
}
case empty
echo file is empty >[1=2]
case cannot
echo cannot open file >[1=2]
case English short extended alef limbo [Aa]scii assembler c latin rc sh \
as mail email message/rfc822 manual
switch ($LPCLASS) {
case *post*
$proc/ppost <$temp
case *gs!*
$proc/ppost <$temp | $proc/gspipe
case *gsijs!*
$proc/ppost <$temp | $proc/gspipeijs
case *canon*
$proc/can $* <$temp
case *
echo Unrecognized class of line printer for $LPDEST >[1=2]
}
case HTML
uhtml <$temp | html2ms | tbl | troff -ms | $proc/generic
case *
echo $type(2) file is improper for $LPDEST >[1=2]
}
wait
rv=$status
rm -f $temp
# exit $rv
exit