31 lines
1.1 KiB
Haskell
31 lines
1.1 KiB
Haskell
module Main where
|
|
|
|
import Control.Monad.IO.Class
|
|
import qualified Data.Text.IO as T
|
|
import Options.Applicative
|
|
|
|
import Mima.Format
|
|
import Mima.MimaRun.Options
|
|
import Mima.Run
|
|
import Mima.Vm.State
|
|
import Mima.Vm.Storage
|
|
|
|
main :: IO ()
|
|
main = runOrExit 2 $ do
|
|
opts <- liftIO $ execParser parserInfo
|
|
initialState <- loadMimaState $ inputFile opts
|
|
finalState <- liftIO $ case steps opts of
|
|
Nothing -> do
|
|
let (finalState, abortReason, stepsMade) = execute mempty initialState
|
|
putStrLn $ "Stopped after " ++ show stepsMade ++ " steps, reason:"
|
|
T.putStrLn $ toText abortReason
|
|
pure finalState
|
|
Just n -> do
|
|
let (finalState, mAbortReason, stepsMade) = executeN n mempty initialState
|
|
putStrLn $ "Stopped after " ++ show stepsMade ++ " steps, reason:"
|
|
case mAbortReason of
|
|
Nothing -> putStrLn "Ran out of steps"
|
|
Just abortReason -> T.putStrLn $ toText abortReason
|
|
pure finalState
|
|
liftIO $ putStrLn ""
|
|
liftIO $ print finalState
|