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

in PGFService disambiguation, show tree if there's no disamb grammar

Browse Source
This commit is contained in:
aarne
2010-04-04 20:45:50 +00:00
parent 09171eecb4
commit 95d4adac99
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/server/PGFService.hs
View File

@@ -157,9 +157,13 @@ doTranslateGroup pgf input mcat mfrom mto =
disamb lg from t = disamb lg from t =
if lg < 2 if lg < 2
then [] then []
else [("tree", "-- " ++ doText (doBind (PGF.linearize pgf (disambLang from) t)))] else [("tree", "-- " ++ doText (doBind (disambLang from t)))]
disambLang f t = let disf = PGF.mkCId ("Disamb" ++ PGF.showLanguage f) in
if elem disf (PGF.languages pgf)
then PGF.linearize pgf disf t
else PGF.showExpr [] t
disambLang f = maybe f id $ PGF.readLanguage $ "Disamb" ++ PGF.showLanguage f
notDisamb = (/="Disamb") . take 6 . PGF.showLanguage notDisamb = (/="Disamb") . take 6 . PGF.showLanguage
doParse :: PGF -> String -> Maybe PGF.Type -> Maybe PGF.Language -> JSValue doParse :: PGF -> String -> Maybe PGF.Type -> Maybe PGF.Language -> JSValue