time in ConstructionsChi

lib/src/chinese/ConstructionChi.gf

@@ -23,5 +23,46 @@ lin
   is_wrong_VP = mkVP (ParadigmsChi.mkV "错") ; 
 
   n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ; ----
-  
+
+lincat
+  Weekday = N ;
+  Monthday = NP ;
+  Month = N ;
+  Year = NP ;
+lin
+  weekdayPunctualAdv w = lin Adv {s = w.s ; advType = timeAdvType} ;
+  weekdayHabitualAdv w = lin Adv {s = w.s ; advType = timeAdvType} ;
+  weekdayNextAdv w = lin Adv {s = "下" ++ w.s ; advType = timeAdvType} ;
+  weekdayLastAdv w = lin Adv {s = "上" ++ w.s ; advType = timeAdvType} ;
+
+  monthAdv m = lin Adv {s = m.s ; advType = timeAdvType} ;
+  yearAdv y = lin Adv {s = y.s ++ "年" ; advType = timeAdvType} ;
+  dayMonthAdv d m = lin Adv {s = m.s ++ d.s ++ "日" ; advType = timeAdvType} ;
+  monthYearAdv m y = lin Adv {s = y.s ++ "年" ++ m.s ; advType = timeAdvType} ;
+  dayMonthYearAdv d m y = lin Adv {s = y.s ++ "年"  ++ m.s ++ d.s ++ "日" ; advType = timeAdvType} ;
+
+  intYear i = lin NP i ;
+  intMonthday i = lin NP i ;
+
+  monday_Weekday = mkN "星期一" ;
+  tuesday_Weekday = mkN "星期二" ;
+  wednesday_Weekday = mkN "星期三" ;
+  thursday_Weekday = mkN "星期四" ;
+  friday_Weekday = mkN "星期五" ;
+  saturday_Weekday = mkN "星期六" ;
+  sunday_Weekday = mkN "星期日" ;
+
+  january_Month = mkN "一月" ; 
+  february_Month = mkN "二月" ; 
+  march_Month = mkN "三月" ; 
+  april_Month = mkN "四月" ;
+  may_Month = mkN "五月" ;
+  june_Month = mkN "六月" ;
+  july_Month = mkN "七月" ;
+  august_Month = mkN "八月t" ;
+  september_Month = mkN "九月" ;
+  october_Month = mkN "十月" ;
+  november_Month = mkN "十一月" ;
+  december_Month = mkN "十二月" ;
+
 }

lib/src/chinese/LangChi.gf

@@ -3,7 +3,8 @@
 
 concrete LangChi of Lang = 
   GrammarChi,
-  LexiconChi
+  LexiconChi,
+  ConstructionChi
   ** {
 
 flags startcat = Phr ; unlexer = concat ; lexer = text ;