diff --git a/lib/src/chinese/ParadigmsChi.gf b/lib/src/chinese/ParadigmsChi.gf index 68a988f4d..c3be2cbd2 100644 --- a/lib/src/chinese/ParadigmsChi.gf +++ b/lib/src/chinese/ParadigmsChi.gf @@ -106,7 +106,7 @@ oper mkPrep = overload { ---- is this the right order of the fields? mkPrep : Str -> Preposition - = \s -> ResChi.mkPreposition s [] ; + = \s -> ResChi.mkPreposition [] s ; mkPrep : Str -> Str -> Preposition = \s,t -> ResChi.mkPreposition s t ; } ; diff --git a/lib/src/chinese/ResChi.gf b/lib/src/chinese/ResChi.gf index d7560b0b9..c51f66a64 100644 --- a/lib/src/chinese/ResChi.gf +++ b/lib/src/chinese/ResChi.gf @@ -25,7 +25,7 @@ resource ResChi = ParamX ** open Prelude in { imperneg_s = neg_s ; conjThat = emptyStr ; ---- reflPron = word "自己" ; -- pron + refl - passive_s = defaultStr ; + passive_s = "被" ; relative_s = possessive_s ; -- relative superlative_s = "最" ; -- superlative, sup + adj + de zai_s = "在" ; -- copula for place diff --git a/lib/src/chinese/SentenceChi.gf b/lib/src/chinese/SentenceChi.gf index c443d4690..6c62812dc 100644 --- a/lib/src/chinese/SentenceChi.gf +++ b/lib/src/chinese/SentenceChi.gf @@ -40,6 +40,7 @@ concrete SentenceChi of Sentence = CatChi ** UseSlash t p cl = {s = cl.s ! p.p ! t.t ; c2 = cl.c2} ; AdvS a s = ss (a.s ++ s.s) ; + ExtAdvS a s = ss (a.s ++ chcomma ++ s.s) ; RelS s r = ss (s.s ++ r.s) ; } diff --git a/lib/src/chinese/StructuralChi.gf b/lib/src/chinese/StructuralChi.gf index 408e716ef..3940a775e 100644 --- a/lib/src/chinese/StructuralChi.gf +++ b/lib/src/chinese/StructuralChi.gf @@ -84,7 +84,7 @@ can8know_VV = mkV "会" [] [] [] [] "不" ; ---- except_Prep = mkPrep "除了" "以外" ; for_Prep = mkPrep "为了" ; from_Prep = mkPrep "从" ; -in8front_Prep = mkPrep "前边" ; +in8front_Prep = mkPrep "前边" zai_s ; it_Pron = pronNP "它" ; much_Det = mkDet "多" Sg ; no_Quant = mkQuant "不" ; @@ -133,7 +133,7 @@ here7to_Adv = mkAdv "到这里" ; -- to here -- "到这里" 到( to ) 这里(here) how8many_IDet = 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 = ssword "什么" ; -- less good than --more_CAdv = ssword "什么" ; most_Predet = ssword "大多数" ; diff --git a/lib/src/chinese/VerbChi.gf b/lib/src/chinese/VerbChi.gf index e966de454..b208f78be 100644 --- a/lib/src/chinese/VerbChi.gf +++ b/lib/src/chinese/VerbChi.gf @@ -49,7 +49,7 @@ concrete VerbChi of Verb = CatChi ** open ResChi, Prelude in { ReflVP vp = insertObj (mkNP reflPron) vp ; - PassV2 v = insertObj (mkNP passive_s) (predV v) ; ---- + PassV2 v = insertAdv (mkNP passive_s) (predV v) ; ---- CompAP ap = insertObj (mkNP (ap.s ++ possessive_s)) (predV copula) ; ---- hen / bu