]>
code.delx.au - offlineimap/blob - head/docs/sgml-common/ps2epsi
2 # $RCSfile: ps2epsi,v $ $Revision: 1.4.2.2 $
8 if [ $# -lt 1 -o $# -gt 2 ]; then
9 echo "Usage: `basename $0` file.ps [file.epsi]" 1>&2
18 *.ps
) base
=`basename ${infile} .ps` ;;
19 *.cps
) base
=`basename ${infile} .cps` ;;
20 *.eps
) base
=`basename ${infile} .eps` ;;
21 *.epsf
) base
=`basename ${infile} .epsf` ;;
22 *) base
=`basename ${infile}` ;;
31 cd="%%CreationDate: " $6 " " $7 " " $8;
34 c="%%Creator: Ghostscript ps2epsi from " $9;
38 /^%%Title:/ {t=$0; next;}
39 /^%%Creator:/ {c=$0; next;}
40 /^%%CreationDate:/ {cd=$0; next;}
41 /^%%For:/ {f=$0; next;}
43 print "/ps2edict 30 dict def";
44 print "ps2edict begin";
45 print "/epsititle (" t "\\n) def";
46 print "/epsicreator (" c "\\n) def";
47 print "/epsicrdt (" cd "\\n) def";
48 print "/epsifor (" f "\\n) def";
52 ' U
="$USERNAME$LOGNAME" F
=1 - F
=2 ${infile} >$tmpfile
54 gs
-q -dNOPAUSE -dSAFER -dDELAYSAFER -r72 -sDEVICE=bit
-sOutputFile=/dev
/null
$tmpfile ps2epsi.ps
$tmpfile <${infile} 1>&2
59 save countdictstack mark newpath /showpage {} def /setpagedevice {pop} def
65 sed -e '/^%%BeginPreview:/,/^%%EndPreview[^!-~]*$/d' -e '/^%!PS-Adobe/d'\
66 -e '/^%%[A-Za-z][A-Za-z]*[^!-~]*$/d' -e '/^%%[A-Za-z][A-Za-z]*: /d'
70 cleartomark countdictstack exch sub { end } repeat restore