From cb8cc63528e815ae3fb6f2dac442edde8b54138a Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 23 Apr 2021 14:54:53 +0800
Subject: [PATCH] Add linref to VPS and VPS2

---
 src/english/ExtendEng.gf | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/english/ExtendEng.gf b/src/english/ExtendEng.gf
index 898245e4..539c15af 100644
--- a/src/english/ExtendEng.gf
+++ b/src/english/ExtendEng.gf
@@ -181,6 +181,8 @@ concrete ExtendEng of Extend =
             inf = verb.adv ++ vp.ad ! a ++ verb.fin ++ verb.inf ++ vp.p ++ compl} ;
       } ;
 
+    linVPS : Agr -> {s : Order => Agr => {fin,inf : Str}} -> Str = \agr,vps -> let vpss = vps.s ! ODir True ! agr in vpss.fin ++ vpss.inf ;
+
     mkVPI : VP -> VPI = \vp -> lin VPI {
       s = table {
             VVAux      => \\a =>         vp.ad ! a ++ vp.inf ++ vp.p ++ vp.s2 ! a ;
@@ -189,6 +191,10 @@ concrete ExtendEng of Extend =
             }
       } ;
 
+linref
+  VPS = linVPS (agrP3 Sg) ;
+  VPS2 = \vps -> linVPS (agrP3 Sg) vps ++ vps.c2 ;
+
 -- Conjunction of copula complements
 
 lincat [Comp] = {s1,s2 : Agr => Str} ;
@@ -441,7 +447,4 @@ lin BaseImp = twoTable2 CPolarity ImpForm ;
     UncontractedNeg = {s = [] ; p = CNeg False} ;
     UttVPShort vp = {s = infVP VVAux vp False Simul CPos (agrP3 Sg)} ;
 
-
-
-
 }