From 0608b8dd63ec2420da4e4176c59894305bba1032 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Wed, 27 Nov 2013 22:16:05 +0000 Subject: [PATCH] better dictionary visualization in the Android App --- src/bulgarian/ParseBul.gf | 10 ++++++++++ src/english/ParseEng.gf | 4 ++++ src/english/ParseEngAbs.gf | 5 +++++ src/swedish/ParseSwe.gf | 10 +++++++++- 4 files changed, 28 insertions(+), 1 deletion(-) diff --git a/src/bulgarian/ParseBul.gf b/src/bulgarian/ParseBul.gf index 812f752fb..951f8b44e 100644 --- a/src/bulgarian/ParseBul.gf +++ b/src/bulgarian/ParseBul.gf @@ -154,4 +154,14 @@ lin UttAdV adv = adv; +lincat + Feat = Str; +lin FeatN2, FeatN = \n -> + case n.g of { + AMasc Human => "(м.р.л.)" ; + AMasc NonHuman => "(м.р.)" ; + AFem => "(ж.р.)" ; + ANeut => "(ср.р.)" + } ; + } diff --git a/src/english/ParseEng.gf b/src/english/ParseEng.gf index 28f05b37f..57126161c 100644 --- a/src/english/ParseEng.gf +++ b/src/english/ParseEng.gf @@ -149,5 +149,9 @@ lin PPos = {s = [] ; p = CPos} ; PNeg = {s = [] ; p = CNeg True} ; -- contracted: don't UncNeg = {s = [] ; p = CNeg False} ; + +lincat + Feat = Str; +lin FeatN, FeatN2 = \_ -> ""; } diff --git a/src/english/ParseEngAbs.gf b/src/english/ParseEngAbs.gf index 06de9560b..6a5320fcf 100644 --- a/src/english/ParseEngAbs.gf +++ b/src/english/ParseEngAbs.gf @@ -72,4 +72,9 @@ fun CompoundCN : Num -> N -> CN -> CN ; AdAdV : AdA -> AdV -> AdV ; UttAdV : AdV -> Utt; + +cat Feat; +fun FeatN : N -> Feat; + FeatN2 : N2 -> Feat; + } diff --git a/src/swedish/ParseSwe.gf b/src/swedish/ParseSwe.gf index 2b05dd83e..a5c5e849b 100644 --- a/src/swedish/ParseSwe.gf +++ b/src/swedish/ParseSwe.gf @@ -123,5 +123,13 @@ lin lin UncNeg = {s = [] ; p = Neg} ; - + +lincat + Feat = Str; +lin FeatN2, FeatN = \n -> + case n.g of { + Utr => "(utr)" ; + Neutr => "(neutr)" + } ; + }