Compare commits
2 Commits
a615c2110c
...
24ed67ae71
Author | SHA1 | Date |
---|---|---|
Ivy | 24ed67ae71 | |
Ivy | 2e3f9d321e |
|
@ -28,4 +28,5 @@ executable cherry
|
|||
|
||||
build-depends: base >= 4.7 && < 5,
|
||||
containers,
|
||||
parsec
|
||||
parsec,
|
||||
haskeline
|
||||
|
|
35
src/Main.hs
35
src/Main.hs
|
@ -3,24 +3,22 @@ module Main where
|
|||
import Evaluator
|
||||
import ExprParser
|
||||
import Text.Parsec.Error
|
||||
import Data.Either
|
||||
import System.IO
|
||||
import Control.Monad
|
||||
import Data.Maybe
|
||||
import System.Console.Haskeline
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
putStrLn ""
|
||||
putLogo
|
||||
putStrLn ""
|
||||
cycle
|
||||
where cycle = do
|
||||
putPrompt
|
||||
hFlush stdout
|
||||
s <- getLine
|
||||
let r = readEval s
|
||||
putStrLn $ case r of
|
||||
(Right res) -> res
|
||||
(Left err) -> show err
|
||||
cycle
|
||||
putStrLn logo
|
||||
runInputT defaultSettings loop
|
||||
where loop = do
|
||||
line <- getInputLine "cherry> "
|
||||
unless (isNothing line) $ do
|
||||
let r = readEval $ fromJust line
|
||||
outputStrLn $ case r of
|
||||
Right res -> res
|
||||
Left err -> show err
|
||||
loop
|
||||
|
||||
readEval :: String -> Either ParseError String
|
||||
readEval s = do
|
||||
|
@ -28,8 +26,5 @@ readEval s = do
|
|||
let result = eval expr
|
||||
return $ show result
|
||||
|
||||
putLogo :: IO ()
|
||||
putLogo = putStr . concat $ map (++"\n") [" /\\", " | \\", " @ @"]
|
||||
|
||||
putPrompt :: IO ()
|
||||
putPrompt = putStr "chery> "
|
||||
logo :: String
|
||||
logo = unlines [""," /\\", " | \\", " @ @",""]
|
||||
|
|
|
@ -34,7 +34,8 @@ packages:
|
|||
# These entries can reference officially published versions as well as
|
||||
# forks / in-progress versions pinned to a git hash. For example:
|
||||
#
|
||||
# extra-deps:
|
||||
extra-deps:
|
||||
#- readline-1.0.3.0
|
||||
# - acme-missiles-0.3
|
||||
# - git: https://github.com/commercialhaskell/stack.git
|
||||
# commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a
|
||||
|
|
Loading…
Reference in New Issue