Qiao's corrections in PhrasebookChi. This replaces the old, partial and low-quality version and is hence the first Chinese phrasebook version that can claim high quality.

1 files changed, 42 insertions, 3 deletions

diff --git a/examples/phrasebook/SentencesChi.gf b/examples/phrasebook/SentencesChi.gf
index 99133e906..7ca72eb56 100644
--- a/examples/phrasebook/SentencesChi.gf
+++ b/examples/phrasebook/SentencesChi.gf
@@ -1,11 +1,13 @@
-concrete SentencesChi of Sentences = NumeralChi ** SentencesI - [APlace,ThePlace]
+concrete SentencesChi of Sentences = NumeralChi ** SentencesI - [QWhereModVerbPhrase, APlace,ThePlace, PropCit, CitiNat, ACitizen, Nationality, CitizenShip, ByTransp,  GObjectPlease, AKnowPerson,  QDoHave , QWhereDoVerbPhrase, SHaveNo, AHaveCurr]
   with 
   (Syntax = SyntaxChi),
   (Symbolic = SymbolicChi),
-  (Lexicon = LexiconChi) ** open SyntaxChi in {
+  (Lexicon = LexiconChi) ** open SyntaxChi, (P =  ParadigmsChi) in {
 
 flags coding=utf8 ;
-
+lincat
+   Citizenship = N ;
+   Nationality = {lang : NP ; country : NP; prop : A }; 
 lin
   ThePlace kind =
     let name : NP = lin NP (Syntax.mkNP theSg_Det kind.name) in {
@@ -20,4 +22,41 @@ lin
       to = mkAdv kind.to (lin NP name)
     } ;
 
+  ACitizen p n = mkCl p.name (lin N {s = n.s ++ "人" } ) ; --  to get 俄罗斯人, not 俄罗斯（人）的 ;  
+  CitiNat n = n.prop ; -- lin A { s = n.prop.s ++ "人" ; lock_A = <> ; monoSyl = False} ;
+
+  PropCit c  =  lin A { s = c.s ; lock_A = <>; monoSyl = True     }  ;
+
+  ByTransp t = t.by ;
+
+  QWhereModVerbPhrase m p vp = mkQS (mkQCl  zai_where_IAdv (mkCl p.name (mkVP m vp))) ;
+
+  GObjectPlease o = lin Text (mkPhr noPConj (mkUtt o) please_shang_Voc) | lin Text (mkUtt o) ;
+
+  AKnowPerson p q = mkCl p.name (P.mkV2 "认识") q.name ;
+
+
+  QDoHave p obj = mkQS (mkQCl (mkCl p.name have_V2 obj)) ;
+
+  QWhereDoVerbPhrase p vp = mkQS (mkQCl qu_where_IAdv (mkCl p.name vp)) ;
+
+  SHaveNo p k = mkS negativePol (mkCl p.name have_V2 (mkNP k)) ;
+
+  AHaveCurr p curr = mkCl p.name have_V2 (mkNP curr) ;
+
+  MCan = can_VV ;
+  MWant = want_VV ;
+  MMust = must_VV ;
+
+
+ oper
+   qu_where_IAdv = mkIAdvL "去哪里" ;
+   zai_where_IAdv = mkIAdvL "在哪里" ;
+   where_m_IAdv : VV -> SS  = \m -> mkIAdvL m.s ; -- ( "想在哪里" ) ;
+
+   have_or_not_V2 = P.mkV2 (P.mkV "有没有" "了" "着" "在" "过" "没") ;
+
+   please_shang_Voc : SS = ss "请上" ;
+
+
 }