Adding a bantu Functor (#32)

* added Bantu functor

*  added egekusii language based on Bantu functor

*  added kikamba language based on Bantu functor

*  added kiswahili language based on Bantu functor
This commit is contained in:
kitukb
2018-10-03 13:52:48 +03:00
committed by Krasimir Angelov
parent c410abfa6b
commit bd556c7789
75 changed files with 6428 additions and 0 deletions
+27
View File
@@ -0,0 +1,27 @@
incomplete concrete AdverbBantu of Adverb =
CatBantu ** open CommonBantu, ResBantu, Prelude in {
lin
PositAdvAdj a = {s = a.s !AAdj G1 Sg} ;
ComparAdvAdj cadv a np =let agr = complAgr np.a
in {
s = cadv.s ++ a.s !AComp agr.g agr.n ++ cadv.p ++ np.s ! npNom
} ;
ComparAdvAdjS cadv a s = {
s = cadv.s ++ a.s !AComp G1 Sg ++ cadv.p ++ s.s
} ;
PrepNP prep np = let agr = complAgr np.a
in {s = prep.s!agr.n!agr.g ++ (np.s ! NPAcc) } ; --s = preOrPost prep.isPre prep.s (np.s ! NPAcc)
AdAdv = cc2 ;
PositAdAAdj a = {s = a.s !AAdj G1 Sg } ;
SubjS = cc2 ;
AdnCAdv cadv = {s = cadv.s ++ cadv.p} ;
}