pinosaur
/
ekitaihs.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cleaner update chunks
[ekitaihs.git]
/
Ekitai.hs
diff --git
a/Ekitai.hs
b/Ekitai.hs
index
e413b67
..
028373a
100644
(file)
--- a/
Ekitai.hs
+++ b/
Ekitai.hs
@@
-1,10
+1,20
@@
import System.Environment
import System.Environment
+import System.IO
+
+import qualified Data.Vector as V
import Parse
import Parse
+import Sim
+import Render
main = do
main = do
+ -- handle file stuff
argv <- getArgs
(opts, fname) <- ekitaiOpts argv
argv <- getArgs
(opts, fname) <- ekitaiOpts argv
- putStrLn fname
+ handle <- openFile fname ReadMode
+ contents <- hGetLines handle
+ hClose handle
+ -- start brick
+ ekitaiMain (stringToSim contents) (optTimeStep opts)
return 0
return 0