From 371aa3848ccce697f749ad7f19c87221814d000a Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 17 Dec 2009 09:14:06 +0000
Subject: [PATCH] Paradigm for German fixed prefix verbs

---
 lib/src/german/ParadigmsGer.gf | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/lib/src/german/ParadigmsGer.gf b/lib/src/german/ParadigmsGer.gf
index 6fe99c6a5..bece9a0ad 100644
--- a/lib/src/german/ParadigmsGer.gf
+++ b/lib/src/german/ParadigmsGer.gf
@@ -193,7 +193,7 @@ mkV : overload {
 
   mkV : (geben, gibt, gib, gab, gäbe, gegeben : Str) -> V ; 
 
--- To add a movable suffix e.g. "auf(fassen)".
+-- To add a movable prefix e.g. "auf(fassen)".
 
   mkV : Str -> V -> V
 };
@@ -204,6 +204,10 @@ mkV : overload {
 
   no_geV : V -> V ;
 
+-- To add a fixed prefix such as "be-, ver-"; this implies $no_geV$.
+
+  fixprefixV : Str -> V -> V ;
+
 -- To change the auxiliary from "haben" (default) to "sein" and
 -- vice-versa.
 
@@ -430,6 +434,14 @@ mkV2 : overload {
     prefix = v.prefix ; lock_V = v.lock_V ; aux = v.aux ; vtype = v.vtype
     } ;
 
+  fixprefixV s v = let vs = v.s in {
+    s = table {
+      p@(VPastPart _) => s + Predef.drop 2 (vs ! p) ;
+      p => s + vs ! p
+      } ;
+    prefix = v.prefix ; lock_V = v.lock_V ; aux = v.aux ; vtype = v.vtype
+    } ;
+
   haben_V = MorphoGer.haben_V ** {lock_V = <>} ;
   sein_V = MorphoGer.sein_V ** {lock_V = <>} ;
   werden_V = MorphoGer.werden_V ** {lock_V = <>} ;