#!/bin/csh -f
# File: Grade
# Author: K.R. Sloan
# Last Modified: 11/22/92 by Fred Fisher
# Purpose: exercise convexity testers
#
#  Still testing...
@ Right = 0
@ Wrong = 0
setenv	dir_cur `pwd`
# put temp data below the $dir_data directory
cd $dir_data
rm -r TmpTestDir
rm -r TmpBadDir
mkdir TmpTestDir
mkdir TmpBadDir
echo file in $dir_cur/$1
cd YES
foreach f (Y*)
 $dir_shuffle/Shuffle -f $dir_data/TmpTestDir/$f <$f
 cd ../TmpTestDir
 foreach file (Y*)
  echo try poly $file
   $dir_cur/$1 $2 $3 < $file 
#  $dir_cur/$1 $2 $3 < $file >& fooyes
#  $dir_cur/$1 $2 $3 < $file >& /dev/null
  @ ret = $status
  if ($ret) then
   echo $file FAILS $ret
   @ Wrong ++
#  save the bad file so we can look at it later
   mv $file ../TmpBadDir
  else
   @ Right ++
   rm $file
  endif
 end
 chmod +w *
 cd ../YES
end

cd ../NO
foreach f (N*)
 $dir_shuffle/Shuffle -f $dir_data/TmpTestDir/$f <$f
 cd ../TmpTestDir
 foreach file (N*)
  echo try poly $file
   $dir_cur/$1 $2 $3 < $file 
#  $dir_cur/$1 $2 $3 < $file >& foono
#  $dir_cur/$1 $2 $3 < $file >& /dev/null
  @ ret = $status
  if ($ret) then
   @ Right ++
   rm $file
  else
   echo $file FAILS $ret
   @ Wrong ++
#  save the bad file so we can look at it later
   mv $file ../TmpBadDir
  endif
 end
 chmod +w *
 cd ../NO
end

cd ..
if ( $Wrong == 0 ) then
    rm TmpTestDir/*
    rmdir TmpTestDir
endif

echo $Right right
echo $Wrong wrong
