forked from GitHub/gf-rgl
bd556c7789
* added Bantu functor * added egekusii language based on Bantu functor * added kikamba language based on Bantu functor * added kiswahili language based on Bantu functor
16 lines
455 B
Plaintext
16 lines
455 B
Plaintext
concrete AdjectiveKis of Adjective = CatKis **AdjectiveBantu-[ComparA,UseComparA,ComplA2]
|
|
with (ResBantu = ResKis)** open DiffKis 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
|
|
} ;
|
|
} |