From e78e1deef057432b6c264933c348d2ee4f2b570e Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 15 Mar 2018 14:54:57 +0100
Subject: [PATCH] (Basque) Add ExistNP, GenNP and ICompAP; remove from Missing

---
 src/basque/ExtendEus.gf  | 18 ++++++++++++++++++
 src/basque/IdiomEus.gf   | 11 +++++++----
 src/basque/MissingEus.gf |  3 ---
 3 files changed, 25 insertions(+), 7 deletions(-)
 create mode 100644 src/basque/ExtendEus.gf

diff --git a/src/basque/ExtendEus.gf b/src/basque/ExtendEus.gf
new file mode 100644
index 00000000..52c6a6fa
--- /dev/null
+++ b/src/basque/ExtendEus.gf
@@ -0,0 +1,18 @@
+--# -path=.:../common:../abstract
+
+concrete ExtendEus of Extend =
+  CatEus ** ExtendFunctor - [GenNP,ICompAP]
+  with (Grammar=GrammarEus)
+  ** open Prelude, ResEus in {
+
+  lin
+    GenNP np = -- NP -> Quant ; -- this man's
+      { s = artDef ;
+	indep, isDef = True ;
+	pref = np.s ! Gen } ;
+
+
+    ICompAP ap = -- AP -> IComp ; -- "how old"
+      { s = "nola" ++ ap.s ! Hau } ; --TODO agreement -- change type of IComp
+ } ;
+  
\ No newline at end of file
diff --git a/src/basque/IdiomEus.gf b/src/basque/IdiomEus.gf
index 032b03cc..16d58641 100644
--- a/src/basque/IdiomEus.gf
+++ b/src/basque/IdiomEus.gf
@@ -1,7 +1,7 @@
 
 --1 Idiom: Idiomatic Expressions
 
-concrete IdiomEus of Idiom = CatEus ** open Prelude, ResEus in {
+concrete IdiomEus of Idiom = CatEus ** open Prelude, ResEus, VerbEus in {
 
 -- This module defines constructions that are formed in fixed ways,
 -- often different even in closely related languages.
@@ -16,9 +16,12 @@ concrete IdiomEus of Idiom = CatEus ** open Prelude, ResEus in {
 {-
     CleftNP   : NP  -> RS -> Cl ; -- it is I who did it
     CleftAdv  : Adv -> S  -> Cl ; -- it is here she slept
-
-    ExistNP   : NP -> Cl ;        -- there is a house
-    ExistIP   : IP -> QCl ;       -- which houses are there
+    -}
+  -- : NP -> Cl ;        -- there is a house
+  ExistNP np = let vp = UseComp (CompNP np)
+		in clFromVP empty_NP vp ;
+  
+{-    ExistIP   : IP -> QCl ;       -- which houses are there
 
 -- 7/12/2012 generalizations of these
 
diff --git a/src/basque/MissingEus.gf b/src/basque/MissingEus.gf
index 93e670fc..425317b9 100644
--- a/src/basque/MissingEus.gf
+++ b/src/basque/MissingEus.gf
@@ -10,11 +10,8 @@ oper ComparAdvAdjS : CAdv -> A -> S  -> Adv = notYet "ComparAdvAdjS" ;
 oper ComplSlashIP  : VPSlash -> IP -> QVP  = notYet "ComplSlashIP" ;
 oper ExistIP : IP -> QCl = notYet "ExistIP" ;
 oper ExistIPAdv : IP -> Adv -> QCl = notYet "ExistIPAdv" ;
-oper ExistNP : NP -> Cl = notYet "ExistNP" ;
 oper ExistNPAdv : NP -> Adv -> Cl= notYet "ExistNPAdv" ;
-oper GenericCl : VP -> Cl  = notYet "GenericCl" ;
 oper ImpP3 : NP -> VP -> Utt = notYet "ImpP3" ;
-oper ImpersCl : VP -> Cl = notYet "ImpersCl" ;
 oper QuestQVP : IP -> QVP -> QCl  = notYet "QuestQVP" ;
 oper SelfAdVVP : VP -> VP = notYet "SelfAdVVP" ;
 oper SelfAdvVP : VP -> VP = notYet "SelfAdvVP" ;