From 5d2ad2193fb86ebbca0b9744b58f8de01ff97e70 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 23 Jun 2004 11:57:17 +0000
Subject: [PATCH] some fixes for Shae

---
 resource-0.6/german/MorphoGer.gf     | 15 +++++++++++++++
 resource-0.6/german/StructuralGer.gf |  8 ++++----
 2 files changed, 19 insertions(+), 4 deletions(-)

diff --git a/resource-0.6/german/MorphoGer.gf b/resource-0.6/german/MorphoGer.gf
index c96416abb..7ffc59524 100644
--- a/resource-0.6/german/MorphoGer.gf
+++ b/resource-0.6/german/MorphoGer.gf
@@ -336,6 +336,21 @@ oper
     VPart a    => gewesen ! a
     } ;
 
+-- auxiliary verbs
+  verbumAux : (_,_,_,_ : Str) -> Verbum = \konnen,kann,kannst,gekonnt -> 
+  let gekonn = (adjReg gekonnt).s in
+  table {
+    VInf       => konnen ;
+    VInd Sg P1 => kann ;
+    VInd Sg P2 => kannst ;
+    VInd Sg P3 => kann ;
+    VInd Pl P2 => konnen ;
+    VInd Pl _  => konnen ;
+    VImp Sg    => nonExist ;
+    VImp Pl    => nonExist ;
+    VPart a    => gekonn ! a
+    } ;
+
 -- The verb "have":
 
   verbumHaben :  Verbum = let {
diff --git a/resource-0.6/german/StructuralGer.gf b/resource-0.6/german/StructuralGer.gf
index a0d1d10fe..86d9161b3 100644
--- a/resource-0.6/german/StructuralGer.gf
+++ b/resource-0.6/german/StructuralGer.gf
@@ -92,13 +92,13 @@ lin
 
 
   CanVV     = 
-    mkVerbSimple (verbSehen "können" "kann" "gekonnt")  ** {isAux = True} ; ---
+    mkVerbSimple (verbumAux "können" "kann" "kannst" "gekonnt") ** {isAux = True} ;
   CanKnowVV = 
-    mkVerbSimple (verbSehen "können" "kann" "gekonnt")  ** {isAux = True} ; ---
+    mkVerbSimple (verbumAux "können" "kann" "kannst" "gekonnt") ** {isAux = True} ;
   MustVV    = 
-    mkVerbSimple (verbSehen "müssen" "muss" "gemusst")  ** {isAux = True} ; ---
+    mkVerbSimple (verbumAux "müssen" "muss" "musst" "gemusst")  ** {isAux = True} ;
   WantVV    = 
-    mkVerbSimple (verbSehen "wollen" "will" "gewollt")  ** {isAux = True} ; ---
+    mkVerbSimple (verbumAux "wollen" "will" "willst" "gewollt") ** {isAux = True} ;
 
 
   EverywhereNP = ss "überall" ;