github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 07:25:44 +03:00
Code Issues Projects Releases Wiki Activity

Convert lineByLineParser to return text

Browse Source
This commit is contained in:
joshvera 2015-12-18 14:48:44 -05:00
parent 12df3007f1
commit e2817db885
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/Parsers.hs
View File

@ -7,17 +7,18 @@ import Syntax
import Term
import TreeSitter
import Control.Comonad.Cofree
import qualified Data.Text as T
parserForType :: String -> Parser
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 = Prelude.lines input
root syntax = Info (Range 0 $ length input) mempty :< syntax
leaf charIndex line = Info (Range charIndex $ charIndex + length line) mempty :< Leaf line
lines = T.lines input
root syntax = Info (Range 0 $ T.length input) mempty :< syntax
leaf charIndex line = Info (Range charIndex $ charIndex + T.length line) mempty :< Leaf line
annotateLeaves (accum, charIndex) line =
(accum ++ [ leaf charIndex line ]
, charIndex + length line + 1)
, charIndex + T.length line + 1)