From c14b35d7144e463b2fbb83bf2b66602f33e469f4 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Sun, 20 Aug 2017 19:25:24 +0300
Subject: [PATCH] as a template for future Extend modules, added Dut and Spa

---
 src/common/ExtendFunctor.gf |  2 +-
 src/dutch/ExtendDut.gf      | 16 ++++++++++++++++
 src/spanish/ExtendSpa.gf    | 16 ++++++++++++++++
 3 files changed, 33 insertions(+), 1 deletion(-)
 create mode 100644 src/dutch/ExtendDut.gf
 create mode 100644 src/spanish/ExtendSpa.gf

diff --git a/src/common/ExtendFunctor.gf b/src/common/ExtendFunctor.gf
index 406573757..4c37dd2cb 100644
--- a/src/common/ExtendFunctor.gf
+++ b/src/common/ExtendFunctor.gf
@@ -15,7 +15,7 @@ lin
   GenRP = variants {} ;     -- Num -> CN -> RP ; -- whose car
   GenModNP num np cn = DetCN (DetQuant DefArt num) (AdvCN cn (PrepNP possess_Prep np)) ;     -- this man's car(s) ; DEFAULT the car of this man
   GenModIP = variants {} ;     -- Num -> IP -> CN -> IP ; -- whose car(s)
-  CompBareCN cn = CompNP (CompCN cn) ; -- (est) professeur ; DEFAULT is a teacher
+  CompBareCN cn = CompCN cn ; -- (est) professeur ; DEFAULT is a teacher
   StrandQuestSlash = QuestSlash ; -- whom does John live with ; DEFAULT with whom does John live
   StrandRelSlash = RelSlash ; -- that he lives in ; DEFAULT in which he lives
   EmptyRelSlash = RelSlash IdRP ; -- he lives in ; DEFAULT in which he lives
diff --git a/src/dutch/ExtendDut.gf b/src/dutch/ExtendDut.gf
new file mode 100644
index 000000000..74e2e6aa0
--- /dev/null
+++ b/src/dutch/ExtendDut.gf
@@ -0,0 +1,16 @@
+--# -path=alltenses:../common:../abstract
+
+concrete ExtendDut of Extend =
+  CatDut ** ExtendFunctor
+--   - []                   -- put the names of your own definitions here
+  with
+    (Grammar = GrammarDut) **
+  open
+    GrammarDut,
+    ResDut,
+    Coordination,
+    Prelude,
+    ParadigmsDut in {
+    -- put your own definitions here
+    
+    }
\ No newline at end of file
diff --git a/src/spanish/ExtendSpa.gf b/src/spanish/ExtendSpa.gf
new file mode 100644
index 000000000..e29fc8807
--- /dev/null
+++ b/src/spanish/ExtendSpa.gf
@@ -0,0 +1,16 @@
+--# -path=alltenses:../common:../abstract
+
+concrete ExtendSpa of Extend =
+  CatSpa ** ExtendFunctor
+--   - []                   -- put the names of your own definitions here
+  with
+    (Grammar = GrammarSpa) **
+  open
+    GrammarSpa,
+    ResSpa,
+    Coordination,
+    Prelude,
+    ParadigmsSpa in {
+    -- put your own definitions here
+    
+    }
\ No newline at end of file