From 4f821ca621a418bba1a306b00063617307fba415 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 4 Aug 2021 14:46:48 +0800
Subject: [PATCH] (Chi) Add ExtendChi

---
 src/chinese/ExtendChi.gf | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 src/chinese/ExtendChi.gf

diff --git a/src/chinese/ExtendChi.gf b/src/chinese/ExtendChi.gf
new file mode 100644
index 000000000..682f81595
--- /dev/null
+++ b/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} ;
+  };