diff --git a/lib/src/chinese/ConstructionChi.gf b/lib/src/chinese/ConstructionChi.gf index 774926b69..404a51f05 100644 --- a/lib/src/chinese/ConstructionChi.gf +++ b/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 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 "十二月" ; + } diff --git a/lib/src/chinese/LangChi.gf b/lib/src/chinese/LangChi.gf index 00e5bc351..84469b3ea 100644 --- a/lib/src/chinese/LangChi.gf +++ b/lib/src/chinese/LangChi.gf @@ -3,7 +3,8 @@ concrete LangChi of Lang = GrammarChi, - LexiconChi + LexiconChi, + ConstructionChi ** { flags startcat = Phr ; unlexer = concat ; lexer = text ;