#!/bin/ksh -p
# More Intelligent Goppa v1.5
# By Carl.R.White 28 MAY 96

script=$( basename $0 )

if (($# == 0)) then
  echo "Usage: $script filename [[filename]...]"
  exit 1
fi

flurgl="/tmp/$script.$USER$$"
badfiles=0

for file ; do
  echo "Working on $file..."
  ppa < $file > $flurgl 2> $flurgl
  k=$( fgrep -c "***" $flurgl )

  if (($k != 0)) ; then
    \rm $flurgl
    badfiles=$(( badfiles + 1 ))
  else
    mv $file $file%
    mv $flurgl $file
  fi
done

if (($badfiles > 0)) ; then
  if (($badfiles == 1)) ; then
    echo "$script: There was 1 bad file"
  else
    echo "$script: There were $badfiles bad files"
  fi
fi

exit $badfiles