some fixes to Chinese suggested by Shanghai colleagues

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 ;
     } ;

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

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) ;
 }

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 "大多数" ;  

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