added Bantu functor

src/bantu/AdverbBantu.gf

@@ -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} ;
+
+
+}