#! /bin/sh
#
# Cleans up the epsi (ps) files:
#     - strips the Preview part
#
#  Parameters: 

 t=0
 f=0
 PROG=`basename $0`

# ==========   Help routine start
 help_dis () {
  cat <<help_doc
 $PROG - a script to reduce the size of .epsi files. Call parameters:
 $PROG -f filename [-t]
    where: 
           -f filename                                                default: none
           -t test mode: the output goes to a file with extention .1  default: $t
 Examples: $PROG -f xxx.epsi      the file xxx.epsi will be REWRITTEN!!  
           $PROG -f xxx.epsi -t   the output goes to the file xxx.epsi.1
help_doc
 }
# ==========   Help routine end

  if [ "$1" = "?" -o "$1" = "-?" ] ; then
    help_dis
    exit
  fi
  if [ "$#" -lt 2 ] ; then
    echo Error: at least the filename parameter should be provided
    help_dis
    exit 2
  fi
  set -- `getopt f:t $*`
  if [ $? != 0 ] ; then
    echo *** Error in getopt . Usage:
    help_dis
    exit 2
  fi
  for i in $* ; do
     case $i in
      -f)  f=1; fnam=$2 ; shift 2;;
      -t)  t=1; shift;;
      --)  shift; break;;
     esac
  done
  if [ "$f" -lt 1 ] ; then
    echo Error: a filename should be provided
    help_dis
    exit 2
  fi

  if [ "$t" -eq 0 ] ; then
    fnam1=$fnam
  else
    fnam1="$fnam".1
  fi
  

# ==========   awk routine start
 wri_awk () {
  cat <<awk_end
  BEGIN             {skip=0; nskip=0; nline=0}
  /^%%BeginPreview/ {skip=1}
  /^%%EndPreview/   {skip=0}
  skip==0           {print \$0 > fnam ; nline++}
  skip>0            {nskip++}
  END               {print " Printed lines " nline "  Skipped lines " nskip "  for file " FILENAME } 
awk_end
 }
# ==========   awk routine end

#  
  wri_awk > tmp.awk

  fnamtmp=tmp.xxx

  gawk -v fnam=$fnamtmp -f tmp.awk $fnam

  mv tmp.xxx $fnam1
  rm -f tmp.awk