add input and output commands parsing and call compilation

exec/Main.hs

@@ -11,6 +11,8 @@ import Options.Applicative
 import Data.Semigroup ((<>))
 import Wasm.WasmParser
 
+import Data.Maybe (fromMaybe)
+
 data OutputMode = WasmBinary | JSWrapper deriving (Show, Eq)
 
 data WasmConfig = WasmConfig {
@@ -28,15 +30,22 @@ compile input output = do
     Left reason ->
       putStrLn $ "Cannot complie module: " ++ reason
 
-
 main :: IO ()
-main = parseArgs =<< execParser opts
+main = do
-  where
+     config <- execParser opts
-    opts = info (sample <**> helper)
+     process config
-      ( fullDesc
+   where
-     <> progDesc "Print a greeting for TARGET"
+     opts = info (sample <**> helper)
-     <> header "hello - a test for optparse-applicative" )
+       ( fullDesc
+      <> progDesc "Haskell WebAssembly Toolkit"
+      <> header "Compile WebAssembly code into binary" )
 
-parseArgs :: WasmParser -> IO ()
+process :: WasmParser -> IO ()
-parseArgs (WasmParser h False n) = putStrLn $ "Hello, " ++ h ++ replicate n '!'
+
-parseArgs _ = return ()
+process (WasmParser (Just output) input) =
+  compile input output
+
+process (WasmParser Nothing input) =
+  compile input "out.wasm"
+
+process _ = return ()

exec/Wasm/WasmParser.hs

@@ -3,31 +3,23 @@ module Wasm.WasmParser where
 import Options.Applicative
 import Data.Semigroup ((<>))
 
-data WasmFileFormat = WasmText | WasmBinary | WasmScript deriving (Read, Show)
+--data WasmFileFormat = WasmText | WasmBinary | WasmScript deriving (Read, Show)
-
+--
-instance Read WasmFileFormat where
+--instance Read WasmFileFormat where
-    readsPrec _ ("WAT":xs) = [ (WasmText, xs) ]
+--    readsPrec _ ("WAT":xs) = [ (WasmText, xs) ]
-    readsPrec _ ("WAST":xs) = [ (WasmScript, xs) ]
+--    readsPrec _ ("WAST":xs) = [ (WasmScript, xs) ]
-    readsPrec _ ("WASM":xs) = [ (WasmBinary, xs) ]
+--    readsPrec _ ("WASM":xs) = [ (WasmBinary, xs) ]
 
 data WasmParser = WasmParser
-  { hello      :: String
+  { output     :: Maybe String
-  , quiet      :: Bool
+  , input      :: String }
-  , enthusiasm :: Int }
 
 sample :: Parser WasmParser
 sample = WasmParser
-      <$> strOption
+      <$> option (maybeReader (Just . Just))
-          ( long "hello"
+          ( long "output"
-         <> metavar "TARGET"
+         <> short 'o'
-         <> help "Target for the greeting" )
+         <> metavar "OUTPUT_FILE"
-      <*> switch
+         <> help "Output filename"
-          ( long "quiet"
+         <> value Nothing )
-         <> short 'q'
+      <*> argument str (metavar "INPUT_FILE")
-         <> help "Whether to be quiet" )
-      <*> option auto
-          ( long "enthusiasm"
-         <> help "How enthusiastically to greet"
-         <> showDefault
-         <> value 1
-         <> metavar "INT" )