From a5f3e9ebd29230a782175a398fd0af0fbef4df2a Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 24 Feb 2023 15:26:03 +0800
Subject: [PATCH] (Chi) Add ComplVPIVV, GerundNP and GerundAdv

---
 src/chinese/ExtendChi.gf | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/chinese/ExtendChi.gf b/src/chinese/ExtendChi.gf
index 36255bff..dfcabd29 100644
--- a/src/chinese/ExtendChi.gf
+++ b/src/chinese/ExtendChi.gf
@@ -5,12 +5,13 @@ concrete ExtendChi of Extend = CatChi **
     VPS, ListVPS, VPI, ListVPI
   , MkVPS, BaseVPS, ConsVPS, ConjVPS
   , PredVPS, SQuestVPS, RelVPS --, QuestVPS -- TODO
-  , MkVPI, BaseVPI, ConsVPI, ConjVPI --, ComplVPIVV -- TODO
+  , MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV
   , VPS2, ListVPS2, VPI2, ListVPI2
   , MkVPS2, BaseVPS2, ConsVPS2, ConjVPS2, ComplVPS2, ReflVPS2
   , MkVPI2, BaseVPI2, ConsVPI2, ConjVPI2, ComplVPI2
   , ProDrop, ComplDirectVS, ComplDirectVQ
-  , PassVPSlash, PassAgentVPSlash ]
+  , PassVPSlash, PassAgentVPSlash
+  , GerundAdv, GerundNP ]
   with (Grammar=GrammarChi) ** open
      Prelude
    , Coordination
@@ -60,6 +61,12 @@ concrete ExtendChi of Extend = CatChi **
     BaseVPI2 v w = twoSS v w ** w ;
     ConsVPI2 v vs = consrSS duncomma v vs ** vs ;
 
+    ComplVPIVV vv vpi = predV vv [] ** {
+      compl = vpi.s ;
+      } ;
+
+    GerundAdv vp = mkAdv (infVP vp) ;
+    GerundNP vp = ResChi.mkNP (infVP vp) ;
 
     GenNP np =  {s,pl = np.s ++ possessive_s ; detType = DTPoss} ;
     GenRP nu cn = {s = \\_ => cn.s ++ relative_s} ;