mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-30 02:33:17 -06:00
16 lines
505 B
Plaintext
16 lines
505 B
Plaintext
concrete AdverbSwa of Adverb = CatSwa **AdverbBantu -[ComparAdvAdj,ComparAdvAdjS,PrepNP] with
|
|
(ResBantu = ResSwa)** open DiffSwa in
|
|
{
|
|
flags coding=utf8;
|
|
lin
|
|
PrepNP prep np = let agr = complAgr np.a in
|
|
{s = prep.s ! agr.n ! agr.g ++ np.s ! NCase Nom} ;
|
|
ComparAdvAdj cadv a np =let agr = complAgr np.a
|
|
in {
|
|
s = cadv.s ++ a.s !AAdj agr.g agr.n ++ cadv.p ++ np.s ! npNom
|
|
} ;
|
|
ComparAdvAdjS cadv a s = {
|
|
s = cadv.s ++ a.s !AAdj G1 Sg ++ cadv.p ++ s.s
|
|
} ;
|
|
}
|