Lox: expect filename as arg and execute the source at the given location

ccntrq · Jan 6, 2018 · c64c00b · c64c00b
1 parent 7702f6d
commit c64c00b
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/Lox.hs b/Lox.hs
@@ -2,5 +2,13 @@ module Lox where
 
 import Scanner
 
+import System.Environment
+
 main :: IO ()
-main = print $ runScanner (initState "()") scanTokens
+main = getArgs >>= \args -> execFile $ head args
+
+execFile :: String -> IO ()
+execFile path = readFile path >>= \src -> runSource src
+
+runSource :: String -> IO ()
+runSource src = print $ runScanner (initState src) scanTokens