manual.hs

module Main where

import Control.Applicative ((<$>))
import System.IO (hGetLine, stdin)
import System.Environment
import GameState

fullGameLoop :: Board -> IO ()
fullGameLoop board = do
  mMove <- getMoveFromStdin
  case mMove of
    Just move -> 
      let newBoard = gameLoop move board in
        do
          putStrLn $ [ moveToChar move ] 
          putStrLn $ prettyBoard newBoard
          fullGameLoop newBoard
      
    Nothing ->
      fullGameLoop board
  
main :: IO ()
main = do
  args <- getArgs
  b <- readBoard (head args) 
  putStrLn $ prettyBoard b
  fullGameLoop b
  
getMoveFromStdin :: IO (Maybe Move)
getMoveFromStdin = do 
  l <- hGetLine stdin
  return (case l of
             [] -> Nothing
             x:_ -> charToMove x)
    
readBoard :: String -> IO Board
readBoard file = board <$> readCellLists
  where readCellLists = do
          fileStr <- readFile file
          return (map stringToCells (lines fileStr))

gameLoop :: Move -> Board -> Board
gameLoop ourMove board = 
  move board ourMove