mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 08:27:03 +03:00
125 lines
3.7 KiB
Haskell
125 lines
3.7 KiB
Haskell
module GlobalOptions
|
|
( module GlobalOptions,
|
|
)
|
|
where
|
|
|
|
import Commands.Extra
|
|
import Juvix.Compiler.Abstract.Pretty.Options qualified as Abstract
|
|
import Juvix.Compiler.Internal.Pretty.Options qualified as Internal
|
|
import Juvix.Data.Error.GenericError qualified as E
|
|
import Juvix.Prelude
|
|
import Options.Applicative hiding (hidden)
|
|
|
|
data GlobalOptions = GlobalOptions
|
|
{ _globalNoColors :: Bool,
|
|
_globalShowNameIds :: Bool,
|
|
_globalOnlyErrors :: Bool,
|
|
_globalStdin :: Bool,
|
|
_globalNoTermination :: Bool,
|
|
_globalNoPositivity :: Bool,
|
|
_globalNoStdlib :: Bool,
|
|
_globalInputFiles :: [FilePath]
|
|
}
|
|
deriving stock (Eq, Show)
|
|
|
|
makeLenses ''GlobalOptions
|
|
|
|
instance CanonicalProjection GlobalOptions Internal.Options where
|
|
project g =
|
|
Internal.Options
|
|
{ Internal._optShowNameIds = g ^. globalShowNameIds
|
|
}
|
|
|
|
instance CanonicalProjection GlobalOptions Abstract.Options where
|
|
project g =
|
|
Abstract.defaultOptions
|
|
{ Abstract._optShowNameIds = g ^. globalShowNameIds
|
|
}
|
|
|
|
defaultGlobalOptions :: GlobalOptions
|
|
defaultGlobalOptions =
|
|
GlobalOptions
|
|
{ _globalNoColors = False,
|
|
_globalShowNameIds = False,
|
|
_globalOnlyErrors = False,
|
|
_globalNoTermination = False,
|
|
_globalStdin = False,
|
|
_globalNoPositivity = False,
|
|
_globalNoStdlib = False,
|
|
_globalInputFiles = []
|
|
}
|
|
|
|
instance Semigroup GlobalOptions where
|
|
o1 <> o2 =
|
|
GlobalOptions
|
|
{ _globalNoColors = o1 ^. globalNoColors || o2 ^. globalNoColors,
|
|
_globalShowNameIds = o1 ^. globalShowNameIds || o2 ^. globalShowNameIds,
|
|
_globalOnlyErrors = o1 ^. globalOnlyErrors || o2 ^. globalOnlyErrors,
|
|
_globalStdin = o1 ^. globalStdin || o2 ^. globalStdin,
|
|
_globalNoTermination = o1 ^. globalNoTermination || o2 ^. globalNoTermination,
|
|
_globalNoPositivity = o1 ^. globalNoPositivity || o2 ^. globalNoPositivity,
|
|
_globalNoStdlib = o1 ^. globalNoStdlib || o2 ^. globalNoStdlib,
|
|
_globalInputFiles = o1 ^. globalInputFiles ++ o2 ^. globalInputFiles
|
|
}
|
|
|
|
instance Monoid GlobalOptions where
|
|
mempty = defaultGlobalOptions
|
|
mappend = (<>)
|
|
|
|
-- | Get a parser for global flags which can be hidden or not depending on
|
|
-- the input boolean
|
|
parseGlobalFlags :: Bool -> Parser GlobalOptions
|
|
parseGlobalFlags b = do
|
|
_globalNoColors <-
|
|
switch
|
|
( long "no-colors"
|
|
<> help "Disable ANSI formatting"
|
|
<> hidden b
|
|
)
|
|
_globalShowNameIds <-
|
|
switch
|
|
( long "show-name-ids"
|
|
<> help "Show the unique number of each identifier when pretty printing"
|
|
<> hidden b
|
|
)
|
|
_globalStdin <-
|
|
switch
|
|
( long "stdin"
|
|
<> help "Read from Stdin"
|
|
<> hidden b
|
|
)
|
|
_globalOnlyErrors <-
|
|
switch
|
|
( long "only-errors"
|
|
<> help "Only print errors in a uniform format (used by juvix-mode)"
|
|
<> hidden b
|
|
)
|
|
_globalNoTermination <-
|
|
switch
|
|
( long "no-termination"
|
|
<> help "Disable termination checking"
|
|
<> hidden b
|
|
)
|
|
_globalNoPositivity <-
|
|
switch
|
|
( long "no-positivity"
|
|
<> help "Disable positivity checking for inductive types"
|
|
<> hidden b
|
|
)
|
|
_globalNoStdlib <-
|
|
switch
|
|
( long "no-stdlib"
|
|
<> help "Do not use the standard library"
|
|
<> hidden b
|
|
)
|
|
return GlobalOptions {_globalInputFiles = [], ..}
|
|
|
|
parseGlobalOptions :: Bool -> Parser GlobalOptions
|
|
parseGlobalOptions b = do
|
|
opts <- parseGlobalFlags b
|
|
files <- parserInputFiles
|
|
return opts {_globalInputFiles = files}
|
|
|
|
genericFromGlobalOptions :: GlobalOptions -> E.GenericOptions
|
|
genericFromGlobalOptions GlobalOptions {..} = E.GenericOptions {E._showNameIds = _globalShowNameIds}
|