From 97fcdd5fa20ccf0352b4e8bc506654571dfb8b21 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 5 Jun 2012 15:35:11 +0000
Subject: [PATCH] Dut no_geV and fixprefixV

---
 lib/src/dutch/ParadigmsDut.gf | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/lib/src/dutch/ParadigmsDut.gf b/lib/src/dutch/ParadigmsDut.gf
index 8f3f35996..dfa80b125 100644
--- a/lib/src/dutch/ParadigmsDut.gf
+++ b/lib/src/dutch/ParadigmsDut.gf
@@ -126,6 +126,15 @@ oper
     mkV : Str -> V -> V -- add movable suffix, e.g. af + stappen
     } ;
 
+-- To remove the past participle prefix "ge", e.g. for the verbs
+-- prefixed by "be-, ver-".
+
+  no_geV : V -> V ;  -- no participle "ge", e.g. "vertrekken"
+
+-- To add a fixed prefix such as "be-, ver-"; this implies $no_geV$.
+
+  fixprefixV : Str -> V -> V ; -- add prefix such as "be"; implies no_ge
+
   zijnV  : V -> V ; -- force zijn as auxiliary (default hebben)
 
   reflV  : V -> V ; -- reflexive verb e.g. zich afvragen
@@ -230,6 +239,22 @@ oper
   zijnV v = lin V (v2vvAux v VZijn) ;
   reflV v = lin V {s = v.s ; aux = v.aux ; prefix = v.prefix ; vtype = VRefl} ;
 
+  no_geV v = let vs = v.s in {
+    s = table {
+      VPerf => Predef.drop 2 (vs ! VPerf) ;
+      p => vs ! p
+      } ;
+    prefix = v.prefix ; lock_V = v.lock_V ; aux = v.aux ; vtype = v.vtype
+    } ;
+
+  fixprefixV s v = let vs = v.s in {
+    s = table {
+      VPerf => s + Predef.drop 2 (vs ! VPerf) ;
+      p => s + vs ! p
+      } ;
+    prefix = v.prefix ; lock_V = v.lock_V ; aux = v.aux ; vtype = v.vtype
+    } ;
+
   zijn_V : V = lin V ResDut.zijn_V ;
   hebben_V : V = lin V ResDut.hebben_V ;