github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

Don’t pass the range in.

Browse Source
This commit is contained in:
Rob Rix 2017-03-27 15:59:48 -04:00
parent e6b85848da
commit 72b5b056de
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/TreeSitter.hs
View File

@ -46,14 +46,15 @@ documentToTerm language document SourceBlob{..} = do
root <- alloca (\ rootPtr -> do
ts_document_root_node_p document rootPtr
peek rootPtr)
toTerm root (totalRange source) source
where toTerm :: Node -> Range -> Source -> IO (Term (Syntax.Syntax Text) (Record '[Range, Category, SourceSpan]))
toTerm node range source = do
toTerm root source
where toTerm :: Node -> Source -> IO (Term (Syntax.Syntax Text) (Record '[Range, Category, SourceSpan]))
toTerm node source = do
name <- peekCString (nodeType node)
let range = nodeRange node
let childToTerm childNode =
let childRange = nodeRange childNode in
toTerm childNode childRange (slice (offsetRange childRange (negate (start range))) source)
toTerm childNode (slice (offsetRange childRange (negate (start range))) source)
let getChildren count copy = do
nodes <- allocaArray count $ \ childNodesPtr -> do
_ <- with node (\ nodePtr -> copy document nodePtr childNodesPtr (fromIntegral count))