From 8c8f6155f1b05230c271059c52a503211aec872b Mon Sep 17 00:00:00 2001
From: Charles <sircharlesaze@gmail.com>
Date: Mon, 16 Mar 2020 14:15:42 +0100
Subject: file Renaming, basic REPL

---
 src/main.hs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 src/main.hs

(limited to 'src/main.hs')

diff --git a/src/main.hs b/src/main.hs
new file mode 100644
index 0000000..34a190a
--- /dev/null
+++ b/src/main.hs
@@ -0,0 +1,25 @@
+import System.IO
+import Statement
+import Parser.Statement
+import Parser.Core
+
+
+main = do
+    line <- prompt
+    loop line
+
+loop :: String -> IO ()
+loop "exit" = return ()
+loop line   = do s <- parseIO line
+                 putStrLn $ show s
+                 main
+
+prompt :: IO String
+prompt = do putStr "> "
+            hFlush stdout
+            getLine
+
+parseIO :: String -> IO Statement
+parseIO input = case parseStrict statementP input of
+                  Nothing -> fail "Couldn't parse input"
+                  Just s  -> return s
-- 
cgit