home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mega Top 1
/
os2_top1.zip
/
os2_top1
/
APPS
/
TEKST
/
GSPMSRC
/
SRC
/
PS2EPSI
< prev
next >
Wrap
Text File
|
1993-05-07
|
807b
|
53 lines
#!/bin/sh
LOCALPATH=/usr/local/bin
PATH=/bin:/usr/bin:/usr/ucb\:$LOCALPATH\
export PATH outfile
if [ $# -lt 1 -o $# -gt 2 ]; then
echo "Usage: pstoepsi 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
gs -q -dNOPAUSE -dNODISPLAY ps2epsi.ps < ${infile} 1>&2
(
cat << BEGINEPS
/InitDictCount countdictstack def
gsave
save
mark
newpath
/showpage {} def
BEGINEPS
cat ${infile}
cat << ENDEPS
countdictstack InitDictCount sub { end } repeat
cleartomark
restore
grestore
ENDEPS
) >> ${outfile}
exit 0