GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-18 07:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

time in ConstructionsChi

Browse Source
This commit is contained in:
aarne
2013-12-15 12:22:16 +00:00
parent 3c935f12ba
commit 5a1c19e04b
2 changed files with 44 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
lib/src/chinese/ConstructionChi.gf
View File

@@ -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 "十二月" ;
}