GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-19 16:12:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

some fixes to Chinese suggested by Shanghai colleagues

Browse Source
This commit is contained in:
aarne
2012-10-26 08:52:20 +00:00
parent c482b9f938
commit 44dc93ae8f
5 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -106,7 +106,7 @@ oper
mkPrep = overload { ---- is this the right order of the fields? mkPrep = overload { ---- is this the right order of the fields?
mkPrep : Str -> Preposition mkPrep : Str -> Preposition
= \s -> ResChi.mkPreposition s [] ; = \s -> ResChi.mkPreposition [] s ;
mkPrep : Str -> Str -> Preposition mkPrep : Str -> Str -> Preposition
= \s,t -> ResChi.mkPreposition s t ; = \s,t -> ResChi.mkPreposition s t ;
} ; } ;

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

@@ -25,7 +25,7 @@ resource ResChi = ParamX ** open Prelude in {
imperneg_s = neg_s ; imperneg_s = neg_s ;
conjThat = emptyStr ; ---- conjThat = emptyStr ; ----
reflPron = word "自己" ; -- pron + refl reflPron = word "自己" ; -- pron + refl
passive_s = defaultStr ; passive_s = "被" ;
relative_s = possessive_s ; -- relative relative_s = possessive_s ; -- relative
superlative_s = "最" ; -- superlative, sup + adj + de superlative_s = "最" ; -- superlative, sup + adj + de
zai_s = "在" ; -- copula for place zai_s = "在" ; -- copula for place

1
lib/src/chinese/SentenceChi.gf
View File

@@ -40,6 +40,7 @@ concrete SentenceChi of Sentence = CatChi **
UseSlash t p cl = {s = cl.s ! p.p ! t.t ; c2 = cl.c2} ; UseSlash t p cl = {s = cl.s ! p.p ! t.t ; c2 = cl.c2} ;
AdvS a s = ss (a.s ++ s.s) ; 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) ; RelS s r = ss (s.s ++ r.s) ;
} }

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

@@ -84,7 +84,7 @@ can8know_VV = mkV "会" [] [] [] [] "不" ; ----
except_Prep = mkPrep "除了" "以外" ; except_Prep = mkPrep "除了" "以外" ;
for_Prep = mkPrep "为了" ; for_Prep = mkPrep "为了" ;
from_Prep = mkPrep "从" ; from_Prep = mkPrep "从" ;
in8front_Prep = mkPrep "前边" ; 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 "不" ;
@@ -133,7 +133,7 @@ here7to_Adv = mkAdv "到这里" ; -- to 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 = ssword "什么" ; -- less good than --less_CAdv = ssword "什么" ; -- less good than
--more_CAdv = ssword "什么" ; --more_CAdv = ssword "什么" ;
most_Predet = ssword "大多数" ; most_Predet = ssword "大多数" ;

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

@@ -49,7 +49,7 @@ concrete VerbChi of Verb = CatChi ** open ResChi, Prelude in {
ReflVP vp = insertObj (mkNP reflPron) vp ; 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 CompAP ap = insertObj (mkNP (ap.s ++ possessive_s)) (predV copula) ; ---- hen / bu