for backward compatibility we have the old parse function again. the old functionality is exposed by parse_

This commit is contained in:
krasimir
2010-04-30 20:18:26 +00:00
parent d2ae070eac
commit 8742ebee38
5 changed files with 23 additions and 18 deletions

View File

@@ -46,10 +46,7 @@ translationList mex mprobs pgf ig og typ number = do
return $ map mkOne $ ts
where
mkOne t = (norml (linearize pgf ig t), map (norml . linearize pgf og) (homonyms t))
homonyms t =
case (fst . parse pgf ig typ . linearize pgf ig) t of
ParseResult ts -> ts
_ -> []
homonyms = parse pgf ig typ . linearize pgf ig
morphologyList ::
Maybe Expr -> Maybe Probabilities ->