diff options
Diffstat (limited to 'src-3.0/PGF/ShowLinearize.hs')
| -rw-r--r-- | src-3.0/PGF/ShowLinearize.hs | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/src-3.0/PGF/ShowLinearize.hs b/src-3.0/PGF/ShowLinearize.hs index 98a0806ba..82eda2824 100644 --- a/src-3.0/PGF/ShowLinearize.hs +++ b/src-3.0/PGF/ShowLinearize.hs @@ -1,5 +1,5 @@ module PGF.ShowLinearize ( - Record (..), recLinearize, --- used in PGF.Morphology + collectWords, tableLinearize, recordLinearize, termLinearize, @@ -13,6 +13,7 @@ import PGF.Linearize import GF.Data.Operations import Data.List +import qualified Data.Map as Map -- printing linearizations in different ways with source parameters @@ -85,3 +86,18 @@ termLinearize :: PGF -> CId -> Exp -> String termLinearize pgf lang = show . linExp pgf lang +-- for Morphology: word, lemma, tags +collectWords :: PGF -> CId -> [(String, [(String,String)])] +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 + |