github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Stub in grouping children by line with a recursive function.

Browse Source
This commit is contained in:
Rob Rix 2016-03-24 11:05:57 -04:00
parent 88641e5398
commit 99d73906bc
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Alignment.hs
View File

@ -131,10 +131,12 @@ alignDiff sources diff = iter alignSyntax (alignPatch sources <$> diff)
where lineRanges = runBothWith ((Join .) . These) (actualLineRanges <$> (characterRange <$> infos) <*> sources)
groupChildrenByLine :: Join These [Range] -> [AlignedDiff leaf] -> [Join These (Range, [SplitDiff leaf Info])]
groupChildrenByLine lineRanges children = Join . bimap (selectChildrenBy maybeFst) (selectChildrenBy maybeSnd) . runJoin <$> sequenceL lineRanges
where getRange (Free (Annotated (Info range _) _)) = range
getRange (Pure patch) | Info range _ :< _ <- getSplitTerm patch = range
selectChildrenBy select range = (range, children >>= filter (intersects range . getRange) . catMaybes . fmap (select . runJoin))
groupChildrenByLine ranges children = go rangeLists children
where go ranges children | (l:ls, r:rs) <- ranges,
((firstLine:restOfLines):rest) <- children = go ranges (restOfLines:rest)
| ([]:rest) <- children = go ranges rest
| otherwise = uncurry (alignWith (fmap (flip (,) []) . Join)) ranges
rangeLists = these (flip (,) []) ((,) []) (,) (runJoin ranges)
intersects :: Range -> Range -> Bool
intersects a b = max (start a) (start b) < min (end a) (end b)