forked from GitHub/gf-core
59 lines
1.4 KiB
Plaintext
59 lines
1.4 KiB
Plaintext
concrete AdjectiveFin of Adjective = CatFin ** open ResFin, StemFin, Prelude in {
|
|
|
|
flags optimize=all_subs ; -- gfc size from 2864336 to 6786 - i.e. factor 422
|
|
coding=utf8 ;
|
|
|
|
lin
|
|
|
|
PositA a = {
|
|
s = \\_ => sAdjFull2nforms Posit a ;
|
|
} ;
|
|
ComparA a np =
|
|
let acomp = sAdjFull2nforms Compar a in {
|
|
s = \\isMod,af => case isMod of {
|
|
True => np.s ! NPCase Part ++ acomp ! af ; -- minua isompi
|
|
_ => acomp ! af ++ "kuin" ++ np.s ! NPSep -- isompi kuin minä
|
|
}
|
|
} ;
|
|
CAdvAP ad ap np = {
|
|
s = \\m,af => ad.s ++ ap.s ! m ! af ++ ad.p ++ np.s ! NPSep
|
|
} ;
|
|
UseComparA a = {
|
|
s = \\_ => sAdjFull2nforms Compar a
|
|
} ;
|
|
|
|
-- $SuperlA$ belongs to determiner syntax in $Noun$.
|
|
AdjOrd ord = {
|
|
s = \\_ => ord.s
|
|
} ;
|
|
|
|
|
|
ComplA2 a np = {
|
|
s = \\isMod,af =>
|
|
preOrPost isMod (appCompl True Pos a.c2 np) (sAdjFull2nforms Posit a ! af)
|
|
} ;
|
|
|
|
ReflA2 a = {
|
|
s = \\isMod,af =>
|
|
preOrPost isMod
|
|
(appCompl True Pos a.c2 (reflPron (agrP3 Sg))) (sAdjFull2nforms Posit a ! af)
|
|
} ;
|
|
|
|
SentAP ap sc = {
|
|
s = \\b,a => ap.s ! b ! a ++ sc.s
|
|
} ;
|
|
|
|
AdAP ada ap = {
|
|
s = \\b,af => ada.s ++ ap.s ! b ! af
|
|
} ;
|
|
|
|
AdvAP ap adv = {
|
|
s = \\b,af => adv.s ++ ap.s ! b ! af -- luonnostaan vaalea
|
|
} ;
|
|
|
|
UseA2 a = {
|
|
s = \\_ => sAdjFull2nforms Posit a
|
|
} ;
|
|
|
|
}
|