77 lines
1.6 KiB
Plaintext
77 lines
1.6 KiB
Plaintext
|
#!/bin/sh
|
||
|
|
# $RCSfile: ps2epsi,v $ $Revision: 1.4.2.2 $
|
||
|
|
|
||
|
|
tmpfile=/tmp/ps2epsi$$
|
||
|
|
|
||
|
|
export outfile
|
||
|
|
|
||
|
|
if [ $# -lt 1 -o $# -gt 2 ]; then
|
||
|
|
echo "Usage: `basename $0` file.ps [file.epsi]" 1>&2
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
infile=$1;
|
||
|
|
|
||
|
|
if [ $# -eq 1 ]
|
||
|
|
then
|
||
|
|
case "${infile}" in
|
||
|
|
*.ps) base=`basename ${infile} .ps` ;;
|
||
|
|
*.cps) base=`basename ${infile} .cps` ;;
|
||
|
|
*.eps) base=`basename ${infile} .eps` ;;
|
||
|
|
*.epsf) base=`basename ${infile} .epsf` ;;
|
||
|
|
*) base=`basename ${infile}` ;;
|
||
|
|
esac
|
||
|
|
outfile=${base}.epsi
|
||
|
|
else
|
||
|
|
outfile=$2
|
||
|
|
fi
|
||
|
|
|
||
|
|
ls -l ${infile} |
|
||
|
|
awk 'F==1 {
|
||
|
|
cd="%%CreationDate: " $6 " " $7 " " $8;
|
||
|
|
t="%%Title: " $9;
|
||
|
|
f="%%For:" U " " $3;
|
||
|
|
c="%%Creator: Ghostscript ps2epsi from " $9;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
/^%!/ {next;}
|
||
|
|
/^%%Title:/ {t=$0; next;}
|
||
|
|
/^%%Creator:/ {c=$0; next;}
|
||
|
|
/^%%CreationDate:/ {cd=$0; next;}
|
||
|
|
/^%%For:/ {f=$0; next;}
|
||
|
|
!/^%/ {
|
||
|
|
print "/ps2edict 30 dict def";
|
||
|
|
print "ps2edict begin";
|
||
|
|
print "/epsititle (" t "\\n) def";
|
||
|
|
print "/epsicreator (" c "\\n) def";
|
||
|
|
print "/epsicrdt (" cd "\\n) def";
|
||
|
|
print "/epsifor (" f "\\n) def";
|
||
|
|
print "end";
|
||
|
|
exit(0);
|
||
|
|
}
|
||
|
|
' U="$USERNAME$LOGNAME" F=1 - F=2 ${infile} >$tmpfile
|
||
|
|
|
||
|
|
gs -q -dNOPAUSE -dSAFER -dDELAYSAFER -r72 -sDEVICE=bit -sOutputFile=/dev/null $tmpfile ps2epsi.ps $tmpfile <${infile} 1>&2
|
||
|
|
rm -f $tmpfile
|
||
|
|
|
||
|
|
(
|
||
|
|
cat << BEGINEPS
|
||
|
|
save countdictstack mark newpath /showpage {} def /setpagedevice {pop} def
|
||
|
|
%%EndProlog
|
||
|
|
%%Page 1 1
|
||
|
|
BEGINEPS
|
||
|
|
|
||
|
|
cat ${infile} |
|
||
|
|
sed -e '/^%%BeginPreview:/,/^%%EndPreview[^!-~]*$/d' -e '/^%!PS-Adobe/d'\
|
||
|
|
-e '/^%%[A-Za-z][A-Za-z]*[^!-~]*$/d' -e '/^%%[A-Za-z][A-Za-z]*: /d'
|
||
|
|
|
||
|
|
cat << ENDEPS
|
||
|
|
%%Trailer
|
||
|
|
cleartomark countdictstack exch sub { end } repeat restore
|
||
|
|
%%EOF
|
||
|
|
ENDEPS
|
||
|
|
|
||
|
|
) >> ${outfile}
|
||
|
|
|
||
|
|
exit 0
|