From 3627875fa8ec277fad0bdabb1e7d74bd66ba2c42 Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 8 Jul 2007 13:55:00 +0000 Subject: handle unknowns words graciously in parseAny --- src/GF/API.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/GF/API.hs') diff --git a/src/GF/API.hs b/src/GF/API.hs index 3efd81472..7474d3c75 100644 --- a/src/GF/API.hs +++ b/src/GF/API.hs @@ -109,7 +109,8 @@ parse :: GFGrammar -> GFCat -> String -> [Tree] parse sgr cat = errVal [] . parseString noOptions sgr cat parseAny :: [GFGrammar] -> GFCat -> String -> [Tree] -parseAny grs cat s = concat [parse gr cat s | gr <- grs] +parseAny grs cat s = + concat [errVal [] (parseString (options [iOpt "trynextlang"]) gr cat s) | gr <- grs] translate :: GFGrammar -> GFGrammar -> GFCat -> String -> [String] translate ig og cat = map (linearize og) . parse ig cat @@ -121,7 +122,8 @@ translateFromAny :: [GFGrammar] -> GFGrammar -> GFCat -> String -> [String] translateFromAny igs og cat s = concat [translate ig og cat s | ig <- igs] translateBetweenAll :: [GFGrammar] -> GFCat -> String -> [String] -translateBetweenAll grs cat = concat . map (linearizeToAll grs) . parseAny grs cat +translateBetweenAll grs cat = + concat . map (linearizeToAll grs) . parseAny grs cat homonyms :: GFGrammar -> GFCat -> Tree -> [Tree] homonyms gr cat = nub . parse gr cat . linearize gr -- cgit v1.2.3