Ekitai.hs

   1 import System.Environment
   2 import System.IO
   3
   4 import qualified Data.Vector as V
   5
   6 import Parse
   7 import Sim
   8 import Render
   9
  10 main = do
  11     -- handle file stuff
  12     argv <- getArgs
  13     (opts, fname) <- ekitaiOpts argv
  14     handle <- openFile fname ReadMode
  15     contents <- hGetLines handle
  16     hClose handle
  17     -- start brick
  18     ekitaiMain (stringToSim contents) (optTimeStep opts)
  19     return 0
  20