adapted German to 1.5

1 files changed, 34 insertions, 0 deletions

diff --git a/next-lib/src/german/ExtraGer.gf b/next-lib/src/german/ExtraGer.gf
new file mode 100644
index 000000000..518fe1713
--- /dev/null
+++ b/next-lib/src/german/ExtraGer.gf
@@ -0,0 +1,34 @@
+concrete ExtraGer of ExtraGerAbs = CatGer ** 
+  open ResGer, Coordination, Prelude, IrregGer in {
+
+  lincat
+    VPI   = {s : Bool => Str} ;
+    [VPI] = {s1,s2 : Bool => Str} ;
+  lin
+    BaseVPI = twoTable Bool ;
+    ConsVPI = consrTable Bool comma ;
+
+    MkVPI vp = {s = \\b => useInfVP b vp} ;
+    ConjVPI = conjunctDistrTable Bool ;
+
+    ComplVPIVV v vpi = 
+        insertInf (vpi.s ! v.isAux) (
+            predVGen v.isAux v) ; ----
+{-
+      insertExtrapos vpi.p3 (
+        insertInf vpi.p2 (
+          insertObj vpi.p1 (
+            predVGen v.isAux v))) ;
+-}
+
+    PPzuAdv cn = {s = case cn.g of {
+      Masc | Neutr => "zum" ;
+      Fem => "zur"
+      } ++ cn.s ! adjfCase Weak Dat ! Sg ! Dat 
+    } ;
+
+    TImpfSubj  = {s = [] ; t = Past ; m = MConjunct} ;   --# notpresent
+
+    moegen_VV = auxVV mögen_V ;
+
+}