114 lines
2.3 KiB
Bash
114 lines
2.3 KiB
Bash
#!/bin/sh
|
|
|
|
if [ "$1" = "" ]
|
|
then
|
|
echo "You forgot to add the assignment name, e.g. 'Assessed1'."
|
|
echo "Please run the script again with the right argument."
|
|
exit 1
|
|
fi
|
|
|
|
if ! [ -f "$1.hs" ]
|
|
then
|
|
echo "File '$1.hs' not found."
|
|
echo "Are you in the correct directory?"
|
|
exit 1
|
|
fi
|
|
|
|
echo "Trying to compile your submission..."
|
|
|
|
# Create temporary directory
|
|
temp_dir=$(mktemp -d)
|
|
|
|
ghc $1.hs -odir $temp_dir -hidir $temp_dir
|
|
|
|
if [ $? -ne 0 ]
|
|
then
|
|
echo ""
|
|
echo "Your file '$1.hs' did not compile."
|
|
echo "Please fix it before submitting."
|
|
exit 1
|
|
fi
|
|
|
|
if ! [ -f "$temp_dir/$1.o" ]
|
|
then
|
|
echo ""
|
|
echo "The module name in '$1.hs' does match not the filename '$1'."
|
|
echo "Please make sure you that"
|
|
echo -e "\t(i) your file is called something like 'TestX.hs'"
|
|
echo -e "\t(ii) you did not change the top of the template"
|
|
echo "and try again."
|
|
exit 1
|
|
fi
|
|
|
|
ghc -XSafe $1.hs -odir $temp_dir -hidir $temp_dir
|
|
|
|
if [ $? -ne 0 ]
|
|
then
|
|
echo ""
|
|
echo "Your file did not compile with '-XSafe.'"
|
|
echo "Did you remove '{-# LANGUAGE Safe #-}' from the template?"
|
|
exit 1
|
|
fi
|
|
|
|
# Create file for ensuring type signatures have not been modified
|
|
|
|
cat >> $temp_dir/Signatures.hs << 'END'
|
|
{-# LANGUAGE Safe #-}
|
|
module Signatures where
|
|
|
|
import Types
|
|
import Test2
|
|
|
|
import Control.Monad.State
|
|
|
|
{- QUESTION 1 -}
|
|
|
|
pentaFastTest :: Integer -> Integer
|
|
pentaFastTest = pentaFast
|
|
|
|
statePentaTest :: Integer -> State (Integer,Integer,Integer,Integer,Integer) ()
|
|
statePentaTest = statePenta
|
|
|
|
{- QUESTION 2 -}
|
|
|
|
depositTest :: Int -> State BankAccount ()
|
|
depositTest = deposit
|
|
|
|
withdrawTest :: Int -> State BankAccount ()
|
|
withdrawTest = withdraw
|
|
|
|
{- QUESTION 3 -}
|
|
|
|
runAllTest :: Monad m => Bin (m a) -> m (Bin a)
|
|
runAllTest = runAll
|
|
|
|
{- QUESTION 4 -}
|
|
|
|
circuitTest :: Expr -> Circuit
|
|
circuitTest = circuit
|
|
|
|
{- QUESTION 5 -}
|
|
|
|
insertTest :: Ord a => a -> Heap a -> Heap a
|
|
insertTest = insert
|
|
|
|
popMinTest :: Ord a => Heap a -> (Maybe a, Heap a)
|
|
popMinTest = popMin
|
|
END
|
|
|
|
ghc -XSafe $temp_dir/Signatures.hs -odir $temp_dir -hidir $temp_dir
|
|
|
|
if [ $? -ne 0 ]
|
|
then
|
|
echo ""
|
|
echo "Your file did not compile with the correct type signatures."
|
|
echo "Did you modify the type signatures from the template?"
|
|
exit 1
|
|
fi
|
|
|
|
echo ""
|
|
echo "All checks passed."
|
|
echo "You are ready to submit!"
|
|
|
|
# Cleanup temporary directory
|
|
rm -r $temp_dir
|