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

Add the # of similar terms to Options.

Browse Source
This commit is contained in:
Rob Rix 2017-10-24 13:02:50 -04:00
parent fb39252959
commit 3b9b50996b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/RWS.hs
View File

@ -93,20 +93,21 @@ rws canCompare equivalent as bs
--
-- cf §4.2 of RWS-Diff
mostSimilarMatching isEligible tree term = listToMaybe (sortOn (editDistanceUpTo defaultM term . snd) candidates)
where candidates = filter (uncurry isEligible) (snd <$> KdMap.kNearest tree defaultL (rhead (extract term)))
where candidates = filter (uncurry isEligible) (snd <$> KdMap.kNearest tree optionsMaxSimilarTerms (rhead (extract term)))
data Options = Options
{ optionsLookaheadPlaces :: {-# UNPACK #-} !Int -- ^ How many places ahead should we look for similar terms?
, optionsMaxSimilarTerms :: {-# UNPACK #-} !Int -- ^ The maximum number of similar terms to consider.
}
defaultOptions :: Options
defaultOptions = Options
{ optionsLookaheadPlaces = 0
, optionsMaxSimilarTerms = 2
}
defaultD, defaultL, defaultM, defaultP, defaultQ :: Int
defaultD, defaultM, defaultP, defaultQ :: Int
defaultD = 15
defaultL = 2
defaultM = 10
defaultP = 2
defaultQ = 3