diff options
author | Taru Karttunen <taruti@taruti.net> | 2011-03-30 15:46:40 +0300 |
---|---|---|
committer | Taru Karttunen <taruti@taruti.net> | 2011-03-30 15:46:40 +0300 |
commit | e5888a1ffdae813d7575f5fb02275c6bb07e5199 (patch) | |
tree | d8d51eac403f07814b9e936eed0c9a79195e2450 /sys/src/cmd/postscript/hardcopy/hardcopy.rc |
Import sources from 2011-03-30 iso image
Diffstat (limited to 'sys/src/cmd/postscript/hardcopy/hardcopy.rc')
-rwxr-xr-x | sys/src/cmd/postscript/hardcopy/hardcopy.rc | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/sys/src/cmd/postscript/hardcopy/hardcopy.rc b/sys/src/cmd/postscript/hardcopy/hardcopy.rc new file mode 100755 index 000000000..0077aa716 --- /dev/null +++ b/sys/src/cmd/postscript/hardcopy/hardcopy.rc @@ -0,0 +1,70 @@ +#!/bin/rc +# Generate paper output from the data that a PostScript program normally +# sends back to a host computer using file output operators. +# + +POSTLIB=/sys/lib/postscript/prologues +PROLOGUE=$POSTLIB/hardcopy.ps + +OPTIONS= +MODE=portrait + +NONCONFORMING='%!PS' +ENDPROLOG='%%EndProlog' +BEGINSETUP='%%BeginSetup' +ENDSETUP='%%EndSetup' +TRAILER='%%Trailer' + +SETUP=HardcopySetup +DONE='(%stdout)(w) file -1 write' + +while (! ~ $#* 0 && ~ $1 -*) { + switch ($1) { + case -c; shift; OPTIONS=$OPTIONS' /#copies '$1' store' + case -c*; OPTIONS=$OPTIONS' /#copies `{echo $1 | sed s/-c//}' store' + + case -f; shift; OPTIONS=$OPTIONS' /font '/$1' def' + case -f*; OPTIONS=$OPTIONS' /font '/`{echo $1 | sed s/-f//}' def' + + case -p; shift; MODE=$1 + case -p*; MODE=`{echo $1 | sed s/-p//} + + case -m; shift; OPTIONS=$OPTIONS' /magnification '$1' def' + case -m*; OPTIONS=$OPTIONS' /magnification '`{echo $1 | sed s/-m//}' def' + + case -s; shift; OPTIONS=$OPTIONS' /pointsize '$1' def' + case -s*; OPTIONS=$OPTIONS' /pointsize '`{echo $1 | sed s/-s//}' def' + + case -x; shift; OPTIONS=$OPTIONS' /xoffset '$1' def' + case -x*; OPTIONS=$OPTIONS' /xoffset '`{echo $1 | sed s/-x//}' def' + + case -y; shift; OPTIONS=$OPTIONS' /yoffset '$1' def' + case -y*; OPTIONS=$OPTIONS' /yoffset '`{echo $1 | sed s/-y//}' def' + + case -L; shift; PROLOGUE=$1 + case -L*; PROLOGUE=`{echo $1 | sed s/-L//} + + case --; + + case -*; echo '$0: illegal option $1' >&2; exit 1 + } + shift +} + +switch ($MODE) { + case l*; OPTIONS=$OPTIONS' /landscape true def' + case *; OPTIONS=$OPTIONS' /landscape false def' +} + +echo $NONCONFORMING +cat $PROLOGUE +echo $ENDPROLOG +echo $BEGINSETUP +echo $OPTIONS +echo $SETUP +echo $ENDSETUP + +cat $* + +echo $TRAILER +echo $DONE |