From 55ae09e60698a4e25b7bcab1094311072ca21713 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 24 May 2010 16:36:35 +0000
Subject: [PATCH] corrections in Dutch

---
 src/dutch/ExtraDut.gf      | 6 ++++++
 src/dutch/ExtraDutAbs.gf   | 2 +-
 src/dutch/ResDut.gf        | 2 +-
 src/dutch/StructuralDut.gf | 2 +-
 4 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/dutch/ExtraDut.gf b/src/dutch/ExtraDut.gf
index ea63fd221..9ddb2090c 100644
--- a/src/dutch/ExtraDut.gf
+++ b/src/dutch/ExtraDut.gf
@@ -35,4 +35,10 @@ concrete ExtraDut of ExtraDutAbs = CatDut **
 --
 --} 
 
+
+lin
+    ICompAP ap = {s = \\_ => "hoe" ++ ap.s ! APred} ; 
+
+    IAdvAdv adv = {s = "hoe" ++ adv.s} ;
+
 }
diff --git a/src/dutch/ExtraDutAbs.gf b/src/dutch/ExtraDutAbs.gf
index 5c34bc890..547e80276 100644
--- a/src/dutch/ExtraDutAbs.gf
+++ b/src/dutch/ExtraDutAbs.gf
@@ -1,6 +1,6 @@
 abstract ExtraDutAbs = Extra [
   VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,
-  VV,VP,Conj] ** 
+  VV,VP,Conj,IComp,ICompAP,IAdvAdv,Adv,AP,IAdv] ** 
 {
 --{
 --
diff --git a/src/dutch/ResDut.gf b/src/dutch/ResDut.gf
index cd8ea1a28..cb51df1f2 100644
--- a/src/dutch/ResDut.gf
+++ b/src/dutch/ResDut.gf
@@ -53,7 +53,7 @@ resource ResDut = ParamX ** open Prelude in {
     shortVoc : Str -> Str -> Str = \v,s -> init v + endCons s ;
 
     endCons : Str -> Str = \s -> case s of {
-      _ + ("ts" |"rs") => s ;
+      _ + ("ts" |"rs" | "ls") => s ;
       b + "s" => b + "z" ;
       b + "f" => b + "v" ;
       _ => s
diff --git a/src/dutch/StructuralDut.gf b/src/dutch/StructuralDut.gf
index 9364b3b41..6c6ae6f2b 100644
--- a/src/dutch/StructuralDut.gf
+++ b/src/dutch/StructuralDut.gf
@@ -105,7 +105,7 @@ concrete StructuralDut of Structural = CatDut, Prelude **
   with_Prep = mkPrep "met" ;
   youSg_Pron = mkPronoun "je" "je" "je" "jij" "jou" "je" "jouwe" Utr Sg P2 ;
   youPl_Pron = mkPronoun "jullie" "jullie" "je" "jullie" "jullie" "jullie" "uwe" Utr Pl P2 ;
-  youPol_Pron = mkPronoun "u" "u" "uw" "u" "u" "uw" "uwe" Utr Sg P3 ;
+  youPol_Pron = mkPronoun "u" "u" "uw" "u" "u" "uw" "uwe" Utr Sg P2 ;
   yes_Utt = ss "ja" ;
 
   not_Predet = mkPredet "niet" "niet" ;