From 766852a64c9816f073100ff720cf7bafab39c043 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 22 Sep 2008 12:24:28 +0000
Subject: adapted German to 1.5

---
 next-lib/src/german/ExtraGer.gf | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 next-lib/src/german/ExtraGer.gf

(limited to 'next-lib/src/german/ExtraGer.gf')

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 ;
+
+} 
-- 
cgit v1.2.3