From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 9 Dec 2009 09:47:16 +0000
Subject: moving a few things to deprecated

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

(limited to 'deprecated/old-lib/resource/german/ExtraGer.gf')

diff --git a/deprecated/old-lib/resource/german/ExtraGer.gf b/deprecated/old-lib/resource/german/ExtraGer.gf
new file mode 100644
index 000000000..518fe1713
--- /dev/null
+++ b/deprecated/old-lib/resource/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