From b12308fc59b687413746560359a6475c64049340 Mon Sep 17 00:00:00 2001
From: Herbert Lange <herbert.lange@cse.gu.se>
Date: Thu, 27 Jun 2019 00:10:24 +0200
Subject: [PATCH] minimal working version of the extendlat module

---
 src/latin/ExtendLat.gf | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/latin/ExtendLat.gf b/src/latin/ExtendLat.gf
index cf9be2707..3fd492dee 100644
--- a/src/latin/ExtendLat.gf
+++ b/src/latin/ExtendLat.gf
@@ -1 +1,9 @@
-concrete ExtendLat of Extend = ExtendFunctor with (Grammar=GrammarLat);
\ No newline at end of file
+concrete ExtendLat of Extend = CatLat ** ExtendFunctor-[VPS,ComplDirectVQ,ComplDirectVS,CompIQuant,EmptyRelSlash,ExistsNP,ExistCN,ExistMassCN,ExistPluralCN,GenModNP,PredAPVP,PredIAdvVP,SlashBareV2S,StrandQuestSlash,StrandRelSlash] with (Grammar=GrammarLat) ** open MissingLat in {
+  lincat
+    VPS = Comp ;
+  lin
+    -- ComplDirectVS : VS -> Utt -> VP ;      -- say: "today"
+    ComplDirectVS vs utt = AdvVP (UseV <lin V vs : V>) (lin Adv {s = \\_ => ":" ++ quoted utt.s}) ; -- DEFAULT complement added as Adv in quotes
+    -- ComplDirectVQ : VQ -> Utt -> VP ;      -- ask: "when"
+    ComplDirectVQ vq utt = AdvVP (UseV <lin V vq : V>) (lin Adv {s = \\_ => ":" ++ quoted utt.s}) ; -- DEFAULT complement added as Adv in quotes
+} ;
\ No newline at end of file