msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

more Chinese fixes by Chen Peng

Browse Source
This commit is contained in:
aarne
2012-11-19 09:55:05 +00:00
parent b5df913041
commit c85e85e36e
2 changed files with 77 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/chinese/NumeralChi.gf
View File

@@ -81,7 +81,7 @@ lin pot0as1 n =
wan0 => n.s ++ mkD "千" "仟"} wan0 => n.s ++ mkD "千" "仟"}
} ; } ;
lin pot1 d = lin pot1 d =
{inh = zero ; {inh = nozero ; -- inh = zero
s,p = table { s,p = table {
shi => d.s ++ mkD "十" "拾" ; shi => d.s ++ mkD "十" "拾" ;
shi0 => d.s ++ mkD "十" "拾" ; shi0 => d.s ++ mkD "十" "拾" ;

74
lib/src/chinese/StructuralChi.gf
View File

@@ -10,7 +10,7 @@ lin
that_Quant = mkQuant "那" ; that_Quant = mkQuant "那" ;
i_Pron = pronNP "我" ; i_Pron = pronNP "我" ;
youSg_Pron = pronNP "你" ; youSg_Pron = pronNP "你" ;
he_Pron = pronNP "他" ; he_Pron = pronNP "他" ;
she_Pron = pronNP "她" ; she_Pron = pronNP "她" ;
we_Pron = pronNP "我们" ; we_Pron = pronNP "我们" ;
@@ -28,10 +28,10 @@ and_Conj = {s = table {
CPhr CNPhrase => mkConjForm "和" ; CPhr CNPhrase => mkConjForm "和" ;
CPhr CAPhrase => mkConjForm "而" ; CPhr CAPhrase => mkConjForm "而" ;
CPhr CVPhrase => mkConjForm "又" ; CPhr CVPhrase => mkConjForm "又" ;
CSent => mkConjForm [] CSent => mkConjForm "并且" --modified by chenpneg 11.19
} }
} ; } ;
or_Conj = {s = table { or_Conj = {s = table {
CPhr _ => mkConjForm "或" ; CPhr _ => mkConjForm "或" ;
CSent => mkConjForm "还是" CSent => mkConjForm "还是"
} }
@@ -74,8 +74,8 @@ between_Prep = mkPrep "之间" ;
but_PConj = mkPConjL "但是" ; but_PConj = mkPConjL "但是" ;
can_VV = mkVerb "能" [] [] [] [] "不" ; can_VV = mkVerb "能" [] [] [] [] "不" ;
must_VV = mkVerb "必须" [] [] [] [] "不" ; ---- False "不能" must_VV = mkVerb "必须" [] [] [] [] "不" ; ---- False "不能"
want_VV = mkVerb "想" [] [] [] [] "不" ; want_VV = mkVerb "想" [] [] [] [] "不" ;
can8know_VV = mkV "会" [] [] [] [] "不" ; ---- can8know_VV = mkV "会" [] [] [] [] "不" ; ----
@@ -99,9 +99,8 @@ no_Utt = ss neg_s ;
oper oper
mkConjForm : Str -> {s1,s2 : Str} = \s -> {s1 = [] ; s2 = word s} ; mkConjForm : Str -> {s1,s2 : Str} = \s -> {s1 = [] ; s2 = word s} ;
mkConjForm2 : Str -> Str -> {s1,s2 : Str} = \s1,s2 -> {s1 = word s1 ; s2 = word s1} ; mkConjForm2 : Str -> Str -> {s1,s2 : Str} = \s1,s2 -> {s1 = word s1 ; s2 = word s2} ; --obvious slip of a pen chenpeng 11.19
-- manually by AR, Jolene
-- manually by AR, Jolene
lin lin
always_AdV = ssword "一直" ; always_AdV = ssword "一直" ;
@@ -115,61 +114,68 @@ lin
lin lin
almost_AdA = ssword "几乎" ; almost_AdA = ssword "几乎" ;
almost_AdN = ssword "几乎" ; almost_AdN = ssword "几乎" ;
as_CAdv = {s,p = word "如同"} ; -- modified by chenpeng 11.17 as_CAdv = {s,p = word "如同"} ; -- modified by chenpeng 11.17
at_least_AdN = ssword "最少" ; -- at least five at_least_AdN = ssword "最少" ; -- at least five
at_most_AdN = ssword "最多" ; at_most_AdN = ssword "最多" ;
behind_Prep = mkPrep "后面" "在"; behind_Prep = mkPrep "后面" "在";
both7and_DConj = {s = table { -- modified by chenpeng 11.17 both7and_DConj = {s = table { -- modified by chenpeng 11.19
CPhr CNPhrase => mkConjForm2 "亦" "亦" ; CPhr CNPhrase => mkConjForm2 "包括" "和" ;
CPhr CAPhrase => mkConjForm2 "即" "又" ; CPhr CAPhrase => mkConjForm2 "即" "又" ;
CPhr CVPhrase => mkConjForm2 "不仅" "而且" ; CPhr CVPhrase => mkConjForm2 "不但" "而且" ;
CSent => mkConjForm2 "不仅" "而且" CSent => mkConjForm2 "不但" "而且"
} }
} ; } ;
by8agent_Prep = mkPrep "被" ; -- by for agent in passive by8agent_Prep = mkPrep "被" ; -- by for agent in passive
-- [mark] 被 -- [mark] 被
during_Prep = mkPrep "期间" "在" ; -- [mark] often equivalent to nothing during_Prep = mkPrep "期间" "在" ; -- [mark] often equivalent to nothing
-- translation for "he swam during this summer. " and "he swam this summer." are often the same -- translation for "he swam during this summer. " and "he swam this summer." are often the same
either7or_DConj = {s = table { -- modified by chenpeng 11.17 either7or_DConj = {s = table { -- modified by chenpeng 11.19
CPhr CNPhrase => mkConjForm2 "或" "或" ; CPhr CNPhrase => mkConjForm2 "或者" "或者" ;
CPhr CAPhrase => mkConjForm2 "要么" "要么" ; CPhr CAPhrase => mkConjForm2 "要么" "要么" ;
CPhr CVPhrase => mkConjForm2 "要么" "要么" ; CPhr CVPhrase => mkConjForm2 "要么" "要么" ;
CSent => mkConjForm2 "要么" "要么" CSent => mkConjForm2 "要么" "要么"
} }
} ; } ;
everybody_NP = ssword "每个人" ; -- [mark] "每个人": 每(every)+个(classifier)+人(person) everybody_NP = ssword "每个人" ; -- [mark] "每个人": 每(every)+个(classifier)+人(person)
everything_NP = ssword "每件事" ; -- [mark] "每件事": 每(every)+件(classifier)+事(thing) everything_NP = ssword "每件事" ; -- [mark] "每件事": 每(every)+件(classifier)+事(thing)
everywhere_Adv = mkAdv "到处" ; everywhere_Adv = mkAdv "到处" ;
here7from_Adv = mkAdv "从这里" ; -- from here here7from_Adv = mkAdv "从这里" ; -- from here
here7to_Adv = mkAdv "到这里" ; -- to here here7to_Adv = mkAdv "到这里" ; -- to here
-- [mark] "从这里" 从(from) 这里(here) -- [mark] "从这里" 从(from) 这里(here)
-- "到这里" 到( to ) 这里(here) -- "到这里" 到( to ) 这里(here)
how8many_IDet = ssword "多少" ; how8many_IDet = ssword "多少" ;
how8much_IAdv = ssword "多少" ; how8much_IAdv = ssword "多少" ;
if_Subj = mkSubj "如果" [] ; --"就" ; -- [mark] "就" often comes between NP and VP if_Subj = mkSubj "如果" [] ; --"就" ; -- [mark] "就" often comes between NP and VP
less_CAdv = {s = word "少于" ; p = than_s} ; -- modified by chenpeng 11.17 less_CAdv = {s = word "少于" ; p = than_s} ; -- modified by chenpeng 11.17
more_CAdv = {s = "更加" ; p = than_s} ; -- modified by chenpeng 11.17 more_CAdv = {s = "更加" ; p = than_s} ; -- modified by chenpeng 11.17
most_Predet = ssword "大多数" ; most_Predet = ssword "大多数" ;
if_then_Conj = {s = table { -- added by chenpeng 11.19
CPhr CNPhrase => mkConjForm [] ;
CPhr CAPhrase => mkConjForm [] ;
CPhr CVPhrase => mkConjForm [] ;
CSent => mkConjForm2 "如果" "那么"
}
} ;
nobody_NP = ssword "没人" ; nobody_NP = ssword "没人" ;
nothing_NP = ssword "没有什么" ; nothing_NP = ssword "没有什么" ;
on_Prep = mkPrep "上" "在" ; on_Prep = mkPrep "上" "在" ;
only_Predet = ssword "只有" ; -- only John only_Predet = ssword "只有" ; -- only John
so_AdA = ssword "如此" ; so_AdA = ssword "如此" ;
somebody_NP = ssword "某人" ; somebody_NP = ssword "某人" ;
something_NP = ssword "某事" ; -- [mark] in sent, it depends on the context something_NP = ssword "某事" ; -- [mark] in sent, it depends on the context
somewhere_Adv = mkAdv "某处" ; somewhere_Adv = mkAdv "某处" ;
that_Subj = mkSubj [] chcomma ; -- that + S [mark] comma that_Subj = mkSubj [] chcomma ; -- that + S [mark] comma
there7from_Adv = mkAdv "从那里" ; -- from there there7from_Adv = mkAdv "从那里" ; -- from there
there7to_Adv = mkAdv "到那里" ; there7to_Adv = mkAdv "到那里" ;
therefore_PConj = ssword "因此" ; therefore_PConj = ssword "因此" ;
through_Prep = mkPrep "通过" ; through_Prep = mkPrep "通过" ;
which_IQuant = mkIQuant "哪" ; which_IQuant = mkIQuant "哪" ;
--which_IQuant = ssword [] ; -- [mark] in sent, it depends on the context --which_IQuant = ssword [] ; -- [mark] in sent, it depends on the context
without_Prep = mkPrep "没有" []; without_Prep = mkPrep "没有" [];
youPol_Pron = ssword "您" ; -- polite you youPol_Pron = ssword "您" ; -- polite you
} }