haskell-wasm/exec/Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import qualified Data.ByteString.Lazy as LBS

import qualified Language.Wasm.Lexer as Lexer
import qualified Language.Wasm.Parser as Parser
import qualified Language.Wasm.Binary as Binary

import Options.Applicative
import Data.Semigroup ((<>))
import Wasm.WasmParser

data OutputMode = WasmBinary | JSWrapper deriving (Show, Eq)

data WasmConfig = WasmConfig {
    inputFile :: String,
    outputFile :: String,
    outputMode :: OutputMode
} deriving (Show, Eq)

compile :: String -> String -> IO ()
compile input output = do
  content <- LBS.readFile input
  case Lexer.scanner content >>= Parser.parseModule of
    Right mod ->
      LBS.writeFile output $ Binary.dumpModuleLazy mod
    Left reason ->
      putStrLn $ "Cannot complie module: " ++ reason


main :: IO ()
main = parseArgs =<< execParser opts
  where
    opts = info (sample <**> helper)
      ( fullDesc
     <> progDesc "Print a greeting for TARGET"
     <> header "hello - a test for optparse-applicative" )

parseArgs :: WasmParser -> IO ()
parseArgs (WasmParser h False n) = putStrLn $ "Hello, " ++ h ++ replicate n '!'
parseArgs _ = return ()