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
2018-10-03 13:52:48 +03:00
parent c410abfa6b
commit bd556c7789
75 changed files with 6428 additions and 0 deletions
@@ -0,0 +1,13 @@
+concrete AdverbKis of Adverb = CatKis **AdverbBantu -[ComparAdvAdj,ComparAdvAdjS] with
+ (ResBantu = ResKis)** open DiffKis in
+{ 
+flags coding=utf8;
+  lin
+    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
+      } ;
+    }