From c55592cea69de0024d856d07cd9865aa1bb0e38e Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Wed, 13 Jan 2021 16:01:50 +0100
Subject: [PATCH] Added ExtendGer as almost dummy to start with

---
 src/german/AllGer.gf    |  5 ++++-
 src/german/AllGerAbs.gf |  1 +
 src/german/ExtendGer.gf | 19 +++++++++++++++++++
 3 files changed, 24 insertions(+), 1 deletion(-)
 create mode 100644 src/german/ExtendGer.gf

diff --git a/src/german/AllGer.gf b/src/german/AllGer.gf
index 83793a9b..dd57eec3 100644
--- a/src/german/AllGer.gf
+++ b/src/german/AllGer.gf
@@ -3,5 +3,8 @@
 concrete AllGer of AllGerAbs = 
   LangGer,
   IrregGer,
+----  ExtendGer, ---- to replace ExtraGer
   ExtraGer
-  ** {} ;
+  **
+  open ExtendGer in ---- to force compilation
+    {} ;
diff --git a/src/german/AllGerAbs.gf b/src/german/AllGerAbs.gf
index 85ef801a..de083669 100644
--- a/src/german/AllGerAbs.gf
+++ b/src/german/AllGerAbs.gf
@@ -3,5 +3,6 @@
 abstract AllGerAbs = 
   Lang,
   IrregGerAbs,
+----  Extend,
   ExtraGerAbs
   ** {} ;
diff --git a/src/german/ExtendGer.gf b/src/german/ExtendGer.gf
new file mode 100644
index 00000000..d356d93f
--- /dev/null
+++ b/src/german/ExtendGer.gf
@@ -0,0 +1,19 @@
+--# -path=alltenses:../common:../abstract
+
+concrete ExtendGer of Extend =
+  CatGer ** ExtendFunctor
+   - [InOrderToVP]
+  with
+    (Grammar = GrammarGer) **
+  open
+    GrammarGer,
+    ResGer,
+    Coordination,
+    Prelude,
+    ParadigmsGer in {
+
+lin
+
+  InOrderToVP vp = {s = "um" ++ useInfVP False vp} ;
+  
+}
\ No newline at end of file