(Chi) Add ExtendChi

src/chinese/ExtendChi.gf

@@ -0,0 +1,19 @@
+--# -path=alltenses:../common:../abstract
+
+concrete ExtendChi of Extend = CatChi **
+  ExtendFunctor - [ProDrop,ComplDirectVS, ComplDirectVQ]
+  with (Grammar=GrammarChi) ** open Prelude, ResChi in {
+
+  lin
+    ProDrop pron = pron ** {s = []} ;
+    ComplDirectVS vs utt =
+      AdvVP (UseV <lin V vs : V>)
+            (mkAdv (":" ++ quoted utt.s)) ; -- DEFAULT complement added as Adv in quotes
+    ComplDirectVQ vq utt =
+      AdvVP (UseV <lin V vq : V>)
+            (mkAdv (":" ++ quoted utt.s)) ; -- DEFAULT complement added as Adv in quotes
+
+  oper
+    mkAdv : Str -> Adv ;
+    mkAdv str = lin Adv {s = str ; advType = ATManner ; hasDe = False} ;
+  };