diff options
Diffstat (limited to 'src-3.0/PGF/Morphology.hs')
| -rw-r--r-- | src-3.0/PGF/Morphology.hs | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/src-3.0/PGF/Morphology.hs b/src-3.0/PGF/Morphology.hs index 97def6b9a..2eb793d73 100644 --- a/src-3.0/PGF/Morphology.hs +++ b/src-3.0/PGF/Morphology.hs @@ -1,6 +1,6 @@ module PGF.Morphology where -import PGF.ShowLinearize +import PGF.ShowLinearize (collectWords) import PGF.Data import PGF.CId @@ -30,17 +30,3 @@ type Analysis = String noAnalysis :: [(Lemma,Analysis)] noAnalysis = [] -collectWords :: PGF -> CId -> [(String, [(Lemma,Analysis)])] -collectWords pgf lang = - concatMap collOne - [(f,c,0) | (f,(DTyp [] c _,_)) <- Map.toList $ funs $ abstract pgf] - where - collOne (f,c,i) = - fromRec f [prCId c] (recLinearize pgf lang (EApp f (replicate i (EMeta 888)))) - fromRec f v r = case r of - RR rs -> concat [fromRec f v t | (_,t) <- rs] - RT rs -> concat [fromRec f (p:v) t | (p,t) <- rs] - RFV rs -> concatMap (fromRec f v) rs - RS s -> [(s,[(prCId f,unwords (reverse v))])] - RCon c -> [] ---- inherent - |