Read board from a file

README.md

@@ -11,11 +11,9 @@ This is the [game of life](https://en.wikipedia.org/wiki/Conway%27s_Game_of_Life
 
 To execute the game you do:
 
-`stack run`
+`stack run -- -f <life file> -r <number of rows> -c <number of columns>`
 
-If you want to see a different game (not the glider one), open the REPL and use:
-
-`playGame OTHER_GAME`
+It will load a `.life` file in a matrix of the specified size. You can read about the `Life` format [here](https://conwaylife.com/wiki/Life_1.06).
 
 ## Developers
 

app/Main.hs

@@ -1,9 +1,19 @@
 module Main where
 
 import GameOfLife
-import Games
 import Display
 import Types
+import Parser
+import Text.Megaparsec
+import Options.Applicative
+import qualified Data.Text as T
+import Options (parseOptions, Options(..))
 
 main :: IO ()
-main = playGame gliderGrid
+main = do
+    options <- execParser parseOptions
+    contents <- readFile (file options)
+    let positions = runParser parseLife (file options) (T.pack contents)
+    case positions of
+        Left err -> print err
+        Right positions -> playGame $ createGrid (rows options) (cols options) positions

examples/Blinker.life

@@ -0,0 +1,4 @@
+#Life 1.06
+0 0
+1 0
+2 0

examples/Glider.life

@@ -0,0 +1,6 @@
+#Life 1.06
+0 1
+1 2
+2 0
+2 1
+2 2

h-vita.cabal

@@ -1,6 +1,6 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.34.4.
+-- This file has been generated from package.yaml by hpack version 0.36.0.
 --
 -- see: https://github.com/sol/hpack
 
@@ -27,7 +27,8 @@ library
   exposed-modules:
       Display
       GameOfLife
-      Games
+      Options
+      Parser
       Types
   other-modules:
       Paths_h_vita
@@ -37,6 +38,9 @@ library
       base >=4.7 && <5
     , gloss
     , matrix
+    , megaparsec
+    , optparse-applicative
+    , text
   default-language: Haskell2010
 
 executable h-vita-exe
@@ -51,6 +55,9 @@ executable h-vita-exe
     , gloss
     , h-vita
     , matrix
+    , megaparsec
+    , optparse-applicative
+    , text
   default-language: Haskell2010
 
 test-suite h-vita-test
@@ -66,4 +73,7 @@ test-suite h-vita-test
     , gloss
     , h-vita
     , matrix
+    , megaparsec
+    , optparse-applicative
+    , text
   default-language: Haskell2010

package.yaml

@@ -23,6 +23,9 @@ dependencies:
 - base >= 4.7 && < 5
 - matrix
 - gloss
+- optparse-applicative
+- megaparsec
+- text
 
 library:
   source-dirs: src

src/Display.hs

@@ -4,9 +4,22 @@ import Data.Matrix
 import Graphics.Gloss
 import Graphics.Gloss.Interface.Pure.Simulate
 import GameOfLife
-import Games
 import Types
 
+createGrid :: Int -> Int -> [Location] -> Matrix Cell
+createGrid rows cols positions = matrix rows cols getCellState
+    where
+        centerRow = (rows + 1) `div` 2
+        centerCol = (cols + 1) `div` 2
+
+        index :: Int -> Int -> Location
+        index x y = (centerRow - x, y - centerCol)
+
+        getCellState :: Location -> Cell
+        getCellState (x, y)
+            | index x y `elem` positions = alive
+            | otherwise = dead
+
 render :: DisplayCellSize -> Grid -> Picture
 render (width, height) grid = Pictures $ toList $ mapPos cellToRect grid
     where 

src/Options.hs

@@ -0,0 +1,32 @@
+module Options where
+
+import Options.Applicative
+
+data Options = Options {
+    file :: FilePath,
+    rows :: Int,
+    cols :: Int
+}
+
+parseOptions :: ParserInfo Options
+parseOptions = info
+    (helper <*> (
+        Options
+        <$> strOption (
+            long "file"
+            <> short 'f'
+            <> metavar "FILE"
+            <> help "File path"
+        )
+        <*> option auto (
+            long "rows"
+            <> short 'r'
+            <> help "Number of rows"
+        )
+        <*> option auto (
+            long "columns"
+            <> short 'c'
+            <> help "Number of columns"
+        )
+        ))
+    (fullDesc <> header "h-vita")

src/Parser.hs

@@ -0,0 +1,21 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Parser where
+
+import Types
+import Text.Megaparsec ( Parsec, many, optional )
+import Text.Megaparsec.Char
+import Data.Void
+import Data.Text
+import Text.Megaparsec.Char.Lexer (decimal, signed)
+
+type Parser = Parsec Void Text
+
+parseLife :: Parser [Location]
+parseLife = header *> many position
+
+header :: Parser Text
+header = string "#Life 1.06" *> eol
+
+position :: Parser Location
+position = (,) <$> (signed space decimal <* space) <*> (signed space decimal <* optional eol)