opt parsing

package.yaml

@@ -67,6 +67,7 @@ executables:
     main: Main.hs
     dependencies:
     - tis100
+    - optparse-applicative
     ghc-options:
     - -rtsopts
     - -threaded

sim/CmdLine.hs

@@ -0,0 +1,28 @@
+module CmdLine where
+
+import Options.Applicative
+
+-- import Data.String.Interpolate (i)
+-- import TIS100
+
+-- main :: IO ()
+-- main = do
+--   let a = 1
+--   let b = 2
+--   putStrLn [i| Sum of #{a} and #{b} is #{sum' a b}|]
+
+data CmdLineOpts = CmdLineOpts
+  { asmFilePath :: String
+  }
+
+sample :: Parser CmdLineOpts
+sample =
+  CmdLineOpts
+    <$> strArgument
+      ( metavar "ASMFILE"
+          <> help "Assembly file name"
+      )
+
+greet :: CmdLineOpts -> IO ()
+greet (CmdLineOpts asmFilePath) = putStrLn $ "asm: " ++ asmFilePath
+greet _ = return ()

sim/Main.hs

@@ -1,11 +1,17 @@
 {-# LANGUAGE QuasiQuotes #-}
+
 module Main where
 
-import Lib
-import Data.String.Interpolate (i)
+import CmdLine
+import Options.Applicative
 
 main :: IO ()
-main = do
-  let a = 1
-  let b = 2
-  putStrLn [i| Sum of #{a} and #{b} is #{sum' a b}|]
+main = greet =<< execParser opts
+  where
+    opts =
+      info
+        (sample <**> helper)
+        ( fullDesc
+            <> progDesc "Print a greeting for TARGET"
+            <> header "hello - a test for optparse-applicative"
+        )

src/TIS100/Simulator/CPU.hs

@@ -1,7 +1,10 @@
 module TIS100.Simulator.CPU where
 
+import Data.Vector.Mutable
 import TIS100.Nodes.T21 (T21 (..))
 import TIS100.Nodes.T30 (T30 (..))
 
 data Node = InactiveNode | Node21 T21 | Node30 T30
   deriving (Eq, Show)
+
+type CPUState m = MVector m Node