extensions from Codex

src/swahili/ConstructionSwa.gf

@@ -0,0 +1,57 @@
+concrete ConstructionSwa of Construction = CatSwa **
+  open Prelude, ResSwa, ParadigmsSwa, GrammarSwa in {
+
+  flags coding=utf8 ;
+
+  lincat Timeunit, Hour, Weekday, Month, Monthday, Year = {s : Str} ;
+
+  lin
+    ready_VP = UseComp (CompAP (PositA (mkA "tayari"))) ;
+    has_age_VP card = UseComp (CompAdv (mkAdv ("mwenye umri wa" ++ card.s ! G1))) ;
+    n_units_AP card cn a = {s = \\g,n => card.s ! g ++ cn.s ! Pl ! Nom ++ a.s ! AAdj g n} ;
+    n_units_of_NP card cn np = {
+      s = \\c => card.s ! G5 ++ cn.s ! Pl ! Nom ++ "za" ++ np.s ! c ;
+      a = Ag cn.g Pl P3
+      } ;
+    cup_of_CN np = {
+      s = \\n,c => case n of {Sg => "kikombe" ; Pl => "vikombe"} ++
+        case n of {Sg => "cha" ; Pl => "vya"} ++ np.s ! NPAcc ;
+      s2 = \\_ => [] ; g = G4
+      } ;
+
+    weekdayN d = {s = \\_,_ => d.s ; g = G5} ;
+    monthN m = {s = \\_,_ => m.s ; g = G5} ;
+    weekdayPN d = {s = \\_ => d.s ; g = G5} ;
+    monthPN m = {s = \\_ => m.s ; g = G5} ;
+    weekdayPunctualAdv d = mkAdv d.s ;
+    weekdayHabitualAdv d = mkAdv ("kila" ++ d.s) ;
+    weekdayLastAdv d = mkAdv (d.s ++ "iliyopita") ;
+    weekdayNextAdv d = mkAdv (d.s ++ "ijayo") ;
+    monthAdv m = mkAdv ("mwezi wa" ++ m.s) ;
+    yearAdv y = mkAdv ("mwaka" ++ y.s) ;
+    intYear i = {s = i.s} ;
+    intMonthday i = {s = i.s} ;
+    dayMonthAdv d m = mkAdv (d.s ++ m.s) ;
+    monthYearAdv m y = mkAdv (m.s ++ y.s) ;
+    dayMonthYearAdv d m y = mkAdv (d.s ++ m.s ++ y.s) ;
+
+    monday_Weekday = {s = "Jumatatu"} ;
+    tuesday_Weekday = {s = "Jumanne"} ;
+    wednesday_Weekday = {s = "Jumatano"} ;
+    thursday_Weekday = {s = "Alhamisi"} ;
+    friday_Weekday = {s = "Ijumaa"} ;
+    saturday_Weekday = {s = "Jumamosi"} ;
+    sunday_Weekday = {s = "Jumapili"} ;
+    january_Month = {s = "Januari"} ;
+    february_Month = {s = "Februari"} ;
+    march_Month = {s = "Machi"} ;
+    april_Month = {s = "Aprili"} ;
+    may_Month = {s = "Mei"} ;
+    june_Month = {s = "Juni"} ;
+    july_Month = {s = "Julai"} ;
+    august_Month = {s = "Agosti"} ;
+    september_Month = {s = "Septemba"} ;
+    october_Month = {s = "Oktoba"} ;
+    november_Month = {s = "Novemba"} ;
+    december_Month = {s = "Desemba"} ;
+}