mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-23 02:06:20 -06:00
17 lines
456 B
Plaintext
17 lines
456 B
Plaintext
concrete AdjectiveSwa of Adjective = CatSwa **AdjectiveBantu-[ComparA,UseComparA,ComplA2]
|
|
with (ResBantu = ResSwa)** open DiffSwa in
|
|
{
|
|
flags coding=utf8;
|
|
lin
|
|
ComparA a np = {
|
|
s = \\g,n => a.s !AAdj g n ++ conjThan ++ np.s ! npNom ;
|
|
isPre = False} ;
|
|
|
|
UseComparA a = {s = \\g,n=> a.s !AAdj g n;isPre = True};
|
|
|
|
ComplA2 a np = {
|
|
s = \\g,n => a.s !AAdj g n ++ a.c2 ++ np.s ! NPAcc;
|
|
isPre = False
|
|
} ;
|
|
}
|