juvix/app/Commands/Dev/Highlight.hs

module Commands.Dev.Highlight where

import Commands.Base
import Commands.Dev.Highlight.Options
import Juvix.Compiler.Concrete.Data.Highlight qualified as Highlight
import Juvix.Compiler.Concrete.Data.InfoTable qualified as Scoper
import Juvix.Compiler.Concrete.Translation.FromParsed.Analysis.Scoping qualified as Scoper
import Juvix.Compiler.Concrete.Translation.FromSource qualified as Parser

runCommand :: Members '[Embed IO, App] r => HighlightOptions -> Sem r ()
runCommand HighlightOptions {..} = do
  res <- runPipelineEither _highlightInputFile upToScoping
  inputFile <- someBaseToAbs' (_highlightInputFile ^. pathPath)
  case res of
    Left err -> do
      let filterByFile = filter ((== inputFile) . (^. intervalFile))
      genOpts <- askGenericOptions
      sayRaw (Highlight.goErrors _highlightBackend (filterByFile . run . runReader genOpts $ errorIntervals err))
    Right r -> do
      let tbl = r ^. _2 . Scoper.resultParserResult . Parser.resultTable
          items = tbl ^. Parser.infoParsedItems
          names = r ^. _2 . (Scoper.resultScoperTable . Scoper.infoNames)
          hinput =
            Highlight.filterInput
              inputFile
              Highlight.HighlightInput
                { _highlightNames = names,
                  _highlightParsed = items
                }
      sayRaw (Highlight.go _highlightBackend hinput)