home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / ps2epsi < prev    next >
Text File  |  2000-12-05  |  2KB  |  79 lines
  1. #!/bin/sh
  2. # $Id: ps2epsi,v 1.4 2000/09/19 18:29:11 lpd Exp $
  3.  
  4. tmpfile=/tmp/ps2epsi$$
  5.  
  6. export outfile
  7.  
  8. if [ $# -lt 1 -o $# -gt 2 ]; then
  9.     echo "Usage: `basename $0` file.ps [file.epsi]" 1>&2
  10.     exit 1
  11. fi
  12.  
  13. infile=$1;
  14.  
  15. if [ $# -eq 1 ]
  16. then
  17.     case "${infile}" in
  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}` ;;
  23.     esac
  24.     outfile=${base}.epsi
  25. else
  26.     outfile=$2
  27. fi
  28.  
  29. ls -l ${infile} |
  30. awk 'F==1    {
  31.         cd="%%CreationDate: " $6 " " $7 " " $8;
  32.         t="%%Title: " $9;
  33.         f="%%For:" U " " $3;
  34.         c="%%Creator: Ghostscript ps2epsi from " $9;
  35.         next;
  36.         }
  37.     /^%!/    {next;}
  38.     /^%%Title:/    {t=$0; next;}
  39.     /^%%Creator:/    {c=$0; next;}
  40.     /^%%CreationDate:/    {cd=$0; next;}
  41.     /^%%For:/    {f=$0; next;}
  42.     !/^%/    {
  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";
  49.         print "end";
  50.         exit(0);
  51.         }
  52.     ' U="$USERNAME$LOGNAME"  F=1 - F=2 ${infile} >$tmpfile
  53.  
  54. gs -q -dNOPAUSE -dSAFER -r72 -sDEVICE=bit -sOutputFile=/dev/null $tmpfile ps2epsi.ps $tmpfile <${infile} 1>&2
  55. rm -f $tmpfile
  56.  
  57. (
  58. cat << BEGINEPS
  59. save countdictstack mark newpath /showpage {} def /setpagedevice {pop} def
  60. %%EndProlog
  61. %%Page 1 1
  62. BEGINEPS
  63.  
  64. cat ${infile} |
  65. sed -e '/^%%BeginPreview:/,/^%%EndPreview[
  66. ]*$/d' -e '/^%!PS-Adobe/d'\
  67.     -e '/^%%[A-Za-z][A-Za-z]*[
  68. ]*$/d' -e '/^%%[A-Za-z][A-Za-z]*: /d'
  69.  
  70. cat << ENDEPS
  71. %%Trailer
  72. cleartomark countdictstack exch sub { end } repeat restore
  73. %%EOF
  74. ENDEPS
  75.  
  76. ) >> ${outfile}
  77.  
  78. exit 0
  79.