GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

optimization of selection computation

Browse Source
This commit is contained in:
aarne
2006-01-24 20:36:37 +00:00
parent e8d50c3841
commit 32a0a9ac0f
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/GF/Grammar/Compute.hs
View File

@@ -122,6 +122,15 @@ computeTermOpt rec gr = comp where
_ -> returnC $ P t' l _ -> returnC $ P t' l
S t@(T _ cc) v -> do
v' <- comp g v
case matchPattern cc v' of
Ok (c,g') -> comp (g' ++ g) c
_ | isCan v' -> prtBad ("missing case" +++ prt v' +++ "in") t
_ -> do
t' <- comp g t
return $ S t' v' -- if v' is not canonical
S t v -> do S t v -> do
t' <- comp g t t' <- comp g t
v' <- comp g v v' <- comp g v