mirror of
https://github.com/github/semantic.git
synced 2024-12-21 05:41:54 +03:00
27 lines
852 B
Haskell
27 lines
852 B
Haskell
module Parsers where
|
|
|
|
import Diff
|
|
import Range
|
|
import Parser
|
|
import Source hiding ((++))
|
|
import Syntax
|
|
import TreeSitter
|
|
import Control.Comonad.Cofree
|
|
import qualified Data.Text as T
|
|
import Data.Foldable
|
|
|
|
parserForType :: T.Text -> Parser
|
|
parserForType mediaType = maybe lineByLineParser parseTreeSitterFile $ languageForType mediaType
|
|
|
|
lineByLineParser :: Parser
|
|
lineByLineParser input = return . root . Indexed $ case foldl' annotateLeaves ([], 0) lines of
|
|
(leaves, _) -> leaves
|
|
where
|
|
lines = actualLines input
|
|
root syntax = Info (Range 0 $ length input) mempty :< syntax
|
|
leaf charIndex line = Info (Range charIndex $ charIndex + T.length line) mempty :< Leaf line
|
|
annotateLeaves (accum, charIndex) line =
|
|
(accum ++ [ leaf charIndex (toText line) ]
|
|
, charIndex + length line + 1)
|
|
toText = T.pack . Source.toString
|