59 lines
1.1 KiB
Haskell
59 lines
1.1 KiB
Haskell
{-# LANGUAGE NoFieldSelectors #-}
|
|
module Gyehoek.Options
|
|
( Options(..)
|
|
, parser
|
|
)
|
|
where
|
|
|
|
import System.IO (Handle)
|
|
import Data.HashSet (HashSet)
|
|
import Options.Applicative
|
|
import System.FilePath
|
|
import qualified Data.HashSet as HS
|
|
import Control.Lens hiding (argument)
|
|
import GHC.Generics (Generic)
|
|
|
|
|
|
data Options = MkOptions
|
|
{ -- dumpANF :: Maybe FilePath
|
|
-- , dumpQBE :: Maybe FilePath
|
|
dumpCPS :: Bool
|
|
, dumpParsed :: Bool
|
|
, output :: FilePath
|
|
, sourceFile :: FilePath
|
|
}
|
|
deriving (Show, Generic)
|
|
|
|
-- osPath :: ReadM _
|
|
-- osPath = eitherReader $
|
|
-- (_Left %~ show) . encodeUtf @(Either _)
|
|
|
|
-- parseDumpQBE =
|
|
-- optional $ strOption
|
|
-- ( long "dump-qbe"
|
|
-- <> metavar "FILE"
|
|
-- )
|
|
|
|
-- parseDumpANF =
|
|
-- optional $ strOption
|
|
-- ( long "dump-anf"
|
|
-- <> metavar "FILE"
|
|
-- )
|
|
|
|
parseOutput = strOption
|
|
( long "output"
|
|
<> short 'o'
|
|
<> metavar "FILE"
|
|
<> value "-"
|
|
)
|
|
|
|
parseDumpCPS = switch (long "dump-cps")
|
|
parseDumpParsed = switch (long "dump-parsed")
|
|
|
|
parser :: Parser Options
|
|
parser = MkOptions
|
|
<$> parseDumpCPS
|
|
<*> parseDumpParsed
|
|
<*> parseOutput
|
|
<*> argument str (metavar "FILE")
|