forked from GitHub/gf-core
more Chinese fixes by Chen Peng
This commit is contained in:
aarne
@@ -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 "十" "拾" ;
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
concrete StructuralChi of Structural = CatChi **
|
concrete StructuralChi of Structural = CatChi **
|
||||||
open ParadigmsChi, ResChi, Prelude in {
|
open ParadigmsChi, ResChi, Prelude in {
|
||||||
|
|
||||||
flags coding = utf8 ;
|
flags coding = utf8 ;
|
||||||
@@ -10,28 +10,28 @@ 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 "我们" ;
|
||||||
youPl_Pron = pronNP "你们" ;
|
youPl_Pron = pronNP "你们" ;
|
||||||
they_Pron = pronNP "他们" ;
|
they_Pron = pronNP "他们" ;
|
||||||
|
|
||||||
very_AdA = ssword "非常" ;
|
very_AdA = ssword "非常" ;
|
||||||
|
|
||||||
by8means_Prep = mkPrep "旁边" [] ;
|
by8means_Prep = mkPrep "旁边" [] ;
|
||||||
in_Prep = mkPrep "里" [];
|
in_Prep = mkPrep "里" [];
|
||||||
possess_Prep = mkPrep "的" [];
|
possess_Prep = mkPrep "的" [];
|
||||||
with_Prep = mkPrep "一起" "和";
|
with_Prep = mkPrep "一起" "和";
|
||||||
|
|
||||||
and_Conj = {s = table {
|
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 "还是"
|
||||||
}
|
}
|
||||||
@@ -39,7 +39,7 @@ and_Conj = {s = table {
|
|||||||
|
|
||||||
although_Subj = mkSubj "虽然" "但";
|
although_Subj = mkSubj "虽然" "但";
|
||||||
because_Subj = mkSubj "因为" "所以" ;
|
because_Subj = mkSubj "因为" "所以" ;
|
||||||
when_Subj = mkSubj [] "的时候" ;
|
when_Subj = mkSubj [] "的时候" ;
|
||||||
|
|
||||||
here_Adv = mkAdv "这里" ;
|
here_Adv = mkAdv "这里" ;
|
||||||
there_Adv = mkAdv "那里" ;
|
there_Adv = mkAdv "那里" ;
|
||||||
@@ -69,28 +69,28 @@ under_Prep = mkPrep "下" ;
|
|||||||
why_IAdv = mkIAdvL "为什么" ;
|
why_IAdv = mkIAdvL "为什么" ;
|
||||||
too_AdA = mkAdA "太" ;
|
too_AdA = mkAdA "太" ;
|
||||||
|
|
||||||
before_Prep = mkPrep "从前" ;
|
before_Prep = mkPrep "从前" ;
|
||||||
between_Prep = mkPrep "之间" ;
|
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 "会" [] [] [] [] "不" ; ----
|
||||||
|
|
||||||
|
|
||||||
except_Prep = mkPrep "除了" "以外" ;
|
except_Prep = mkPrep "除了" "以外" ;
|
||||||
for_Prep = mkPrep "为了" ;
|
for_Prep = mkPrep "为了" ;
|
||||||
from_Prep = mkPrep "从" ;
|
from_Prep = mkPrep "从" ;
|
||||||
in8front_Prep = mkPrep "前边" zai_s ;
|
in8front_Prep = mkPrep "前边" zai_s ;
|
||||||
it_Pron = pronNP "它" ;
|
it_Pron = pronNP "它" ;
|
||||||
much_Det = mkDet "多" Sg ;
|
much_Det = mkDet "多" Sg ;
|
||||||
no_Quant = mkQuant "不" ;
|
no_Quant = mkQuant "不" ;
|
||||||
not_Predet = ssword "不" ;
|
not_Predet = ssword "不" ;
|
||||||
otherwise_PConj = mkPConjL "还是" ;
|
otherwise_PConj = mkPConjL "还是" ;
|
||||||
to_Prep = mkPrep "往" ;
|
to_Prep = mkPrep "往" ;
|
||||||
|
|
||||||
have_V2 = mkV2 "有" ;
|
have_V2 = mkV2 "有" ;
|
||||||
|
|
||||||
@@ -99,77 +99,83 @@ 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 "一直" ;
|
||||||
part_Prep = mkPrep possessive_s ;
|
part_Prep = mkPrep possessive_s ;
|
||||||
language_title_Utt = ssword "中文" ;
|
language_title_Utt = ssword "中文" ;
|
||||||
please_Voc = ss "请" ;
|
please_Voc = ss "请" ;
|
||||||
quite_Adv = mkAdA "得很" ;
|
quite_Adv = mkAdA "得很" ;
|
||||||
|
|
||||||
-- just missing
|
-- just missing
|
||||||
|
|
||||||
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 "大多数" ;
|
||||||
nobody_NP = ssword "没人" ;
|
if_then_Conj = {s = table { -- added by chenpeng 11.19
|
||||||
nothing_NP = ssword "没有什么" ;
|
CPhr CNPhrase => mkConjForm [] ;
|
||||||
on_Prep = mkPrep "上" "在" ;
|
CPhr CAPhrase => mkConjForm [] ;
|
||||||
only_Predet = ssword "只有" ; -- only John
|
CPhr CVPhrase => mkConjForm [] ;
|
||||||
so_AdA = ssword "如此" ;
|
CSent => mkConjForm2 "如果" "那么"
|
||||||
somebody_NP = ssword "某人" ;
|
}
|
||||||
something_NP = ssword "某事" ; -- [mark] in sent, it depends on the context
|
} ;
|
||||||
somewhere_Adv = mkAdv "某处" ;
|
nobody_NP = ssword "没人" ;
|
||||||
that_Subj = mkSubj [] chcomma ; -- that + S [mark] comma
|
nothing_NP = ssword "没有什么" ;
|
||||||
there7from_Adv = mkAdv "从那里" ; -- from there
|
on_Prep = mkPrep "上" "在" ;
|
||||||
there7to_Adv = mkAdv "到那里" ;
|
only_Predet = ssword "只有" ; -- only John
|
||||||
therefore_PConj = ssword "因此" ;
|
so_AdA = ssword "如此" ;
|
||||||
through_Prep = mkPrep "通过" ;
|
somebody_NP = ssword "某人" ;
|
||||||
which_IQuant = mkIQuant "哪" ;
|
something_NP = ssword "某事" ; -- [mark] in sent, it depends on the context
|
||||||
--which_IQuant = ssword [] ; -- [mark] in sent, it depends on the context
|
somewhere_Adv = mkAdv "某处" ;
|
||||||
without_Prep = mkPrep "没有" [];
|
that_Subj = mkSubj [] chcomma ; -- that + S [mark] comma
|
||||||
youPol_Pron = ssword "您" ; -- polite you
|
there7from_Adv = mkAdv "从那里" ; -- from there
|
||||||
|
there7to_Adv = mkAdv "到那里" ;
|
||||||
|
therefore_PConj = ssword "因此" ;
|
||||||
|
through_Prep = mkPrep "通过" ;
|
||||||
|
which_IQuant = mkIQuant "哪" ;
|
||||||
|
--which_IQuant = ssword [] ; -- [mark] in sent, it depends on the context
|
||||||
|
without_Prep = mkPrep "没有" [];
|
||||||
|
youPol_Pron = ssword "您" ; -- polite you
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user