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 hGetLines :: Handle -> IO [String]
  11 hGetLines h = do
  12     line <- hGetLine h
  13     isEof <- hIsEOF h
  14     if isEof then return [line]
  15     else do
  16         lines <- hGetLines h
  17         return (line:lines)
  18
  19 main = do
  20     -- handle file stuff
  21     argv <- getArgs
  22     (opts, fname) <- ekitaiOpts argv
  23     handle <- openFile fname ReadMode
  24     contents <- hGetLines handle
  25     hClose handle
  26     -- start brick
  27     ekitaiMain (stringToSim contents) (optTimeStep opts)
  28     return 0
  29