1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-24 16:12:14 +03:00
juvix/app/Commands/Dev/Core/Read/Options.hs

65 lines
2.0 KiB
Haskell
Raw Normal View History

2022-09-14 17:16:15 +03:00
module Commands.Dev.Core.Read.Options where
2022-10-21 20:13:06 +03:00
import Commands.Dev.Core.Eval.Options qualified as Eval
2022-09-14 17:16:15 +03:00
import CommonOptions
import Evaluator qualified
import Juvix.Compiler.Core.Data.TransformationId
2022-09-14 17:16:15 +03:00
import Juvix.Compiler.Core.Pretty.Options qualified as Core
data CoreReadOptions = CoreReadOptions
{ _coreReadTransformations :: [TransformationId],
_coreReadShowDeBruijn :: Bool,
_coreReadShowIdentIds :: Bool,
_coreReadNoDisambiguate :: Bool,
2022-10-21 20:13:06 +03:00
_coreReadEval :: Bool,
_coreReadNoPrint :: Bool,
2022-12-20 15:05:40 +03:00
_coreReadInputFile :: AppPath File
2022-09-14 17:16:15 +03:00
}
deriving stock (Data)
makeLenses ''CoreReadOptions
instance CanonicalProjection CoreReadOptions Core.Options where
project c =
Core.defaultOptions
{ Core._optShowDeBruijnIndices = c ^. coreReadShowDeBruijn,
Core._optShowIdentIds = c ^. coreReadShowIdentIds
2022-09-14 17:16:15 +03:00
}
2022-10-21 20:13:06 +03:00
instance CanonicalProjection CoreReadOptions Eval.CoreEvalOptions where
project c =
Eval.CoreEvalOptions
{ _coreEvalNoIO = False,
_coreEvalInputFile = c ^. coreReadInputFile,
_coreEvalShowDeBruijn = c ^. coreReadShowDeBruijn,
_coreEvalShowIdentIds = c ^. coreReadShowIdentIds,
_coreEvalNoDisambiguate = c ^. coreReadNoDisambiguate
2022-10-21 20:13:06 +03:00
}
instance CanonicalProjection CoreReadOptions Evaluator.EvalOptions where
project x =
Evaluator.EvalOptions
{ _evalNoIO = False,
_evalNoDisambiguate = x ^. coreReadNoDisambiguate,
_evalInputFile = x ^. coreReadInputFile
}
2022-09-14 17:16:15 +03:00
parseCoreReadOptions :: Parser CoreReadOptions
parseCoreReadOptions = do
_coreReadShowDeBruijn <- optDeBruijn
_coreReadShowIdentIds <- optIdentIds
_coreReadNoDisambiguate <- optNoDisambiguate
2022-10-21 20:13:06 +03:00
_coreReadNoPrint <-
switch
( long "no-print"
<> help "do not print the transformed code"
)
_coreReadEval <-
switch
( long "eval"
<> help "evaluate after the transformation"
)
_coreReadTransformations <- optTransformationIds
_coreReadInputFile <- parseInputJuvixCoreFile
2022-09-14 17:16:15 +03:00
pure CoreReadOptions {..}