msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Fin) Add prefix field to A

Browse Source
This commit is contained in:
Inari Listenmaa
2018-10-08 16:10:41 +02:00
parent d4f2df8aa4
commit 9aa31fdcdd
5 changed files with 48 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
src/finnish/AdjectiveFin.gf
View File

@@ -5,54 +5,63 @@ concrete AdjectiveFin of Adjective = CatFin ** open ResFin, StemFin, Prelude in
lin
PositA a = {
PositA a = a ** {
s = \\_ => sAdjFull2nforms Posit a ;
} ;
ComparA a np =
let acomp = sAdjFull2nforms Compar a in {
ComparA a np =
let acomp = sAdjFull2nforms Compar a in a ** {
s = \\isMod,af => case isMod of {
True => np.s ! NPCase Part ++ acomp ! af ; -- minua isompi
_ => acomp ! af ++ "kuin" ++ np.s ! NPSep -- isompi kuin minä
}
} ;
hasPrefix = False
} ;
CAdvAP ad ap np = {
s = \\m,af => ad.s ++ ap.s ! m ! af ++ ad.p ++ np.s ! NPSep
CAdvAP ad ap np = ap ** {
s = \\m,af => ad.s ++ ap.s ! m ! af ++ ad.p ++ np.s ! NPSep ;
hasPrefix = False
} ;
UseComparA a = {
UseComparA a = a ** {
s = \\_ => sAdjFull2nforms Compar a
} ;
-- $SuperlA$ belongs to determiner syntax in $Noun$.
AdjOrd ord = {
s = \\_ => ord.s
s = \\_ => ord.s ;
p = [] ; hasPrefix = False
} ;
ComplA2 a np = {
s = \\isMod,af =>
preOrPost isMod (appCompl True Pos a.c2 np) (sAdjFull2nforms Posit a ! af)
preOrPost isMod (appCompl True Pos a.c2 np) (sAdjFull2nforms Posit a ! af) ;
p = [] ; hasPrefix = False
} ;
ReflA2 a = {
s = \\isMod,af =>
preOrPost isMod
(appCompl True Pos a.c2 (reflPron (agrP3 Sg))) (sAdjFull2nforms Posit a ! af)
(appCompl True Pos a.c2 (reflPron (agrP3 Sg))) (sAdjFull2nforms Posit a ! af) ;
p = [] ; hasPrefix = False
} ;
SentAP ap sc = {
s = \\b,a => ap.s ! b ! a ++ sc.s
SentAP ap sc = ap ** {
s = \\b,a => ap.s ! b ! a ++ sc.s ;
hasPrefix = False
} ;
AdAP ada ap = {
s = \\b,af => ada.s ++ ap.s ! b ! af
AdAP ada ap = ap ** {
s = \\b,af => ada.s ++ ap.s ! b ! af ;
hasPrefix = False
} ;
AdvAP ap adv = {
s = \\b,af => adv.s ++ ap.s ! b ! af -- luonnostaan vaalea
AdvAP ap adv = ap ** {
s = \\b,af => adv.s ++ ap.s ! b ! af ; -- luonnostaan vaalea
hasPrefix = False
} ;
UseA2 a = {
s = \\_ => sAdjFull2nforms Posit a
s = \\_ => sAdjFull2nforms Posit a ;
p = [] ; hasPrefix = False
} ;
}