From 04a80d40d9a83f7a8343d9d6d213280c2e368e02 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 3 Dec 2014 12:47:06 +0000
Subject: [PATCH] indefinite article in Catalan: use uns/unes only in
 substantival case (like in Spanish)

---
 lib/src/catalan/DiffCat.gf | 8 ++++----
 lib/src/spanish/DiffSpa.gf | 2 --
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/lib/src/catalan/DiffCat.gf b/lib/src/catalan/DiffCat.gf
index 28b26ee65..64034f4f5 100644
--- a/lib/src/catalan/DiffCat.gf
+++ b/lib/src/catalan/DiffCat.gf
@@ -45,15 +45,15 @@ oper
         
 
     artIndef = \isNP,g,n,c -> case isNP of {
-     _ => case <n,c> of {
-      <Sg,CPrep P_de>   => genForms ["d' un"] ["d' una"] ! g ;
+     True => case <n,c> of {
+      <Sg,CPrep P_de>   => genForms ["d' ++ Predef.BIND ++ un"] ["d' ++ Predef.BIND ++ una"] ! g ;
       <Sg,_> => prepCase c ++ genForms "un" "una" ! g ;
+      <Pl,CPrep P_de>   => genForms ["d' ++ Predef.BIND ++ uns"] ["d' ++ Predef.BIND ++ unes"] ! g ; -- AR 3/12/2014
       <Pl,_> => prepCase c ++ genForms "uns" "unes" ! g 
       } ;
      _ => case <n,c> of {
-      <Sg,CPrep P_de>   => genForms ["d' un"] ["d' una"] ! g ;
+      <Sg,CPrep P_de>   => genForms ["d' ++ Predef.BIND ++ un"] ["d' ++ Predef.BIND ++ una"] ! g ;
       <Sg,_> => prepCase c ++ genForms "un" "una" ! g ;
-                           ---      <Pl,CPrep P_de> => genForms ["d' uns"] ["d' unes"] ! g ;
       <Pl,_> => prepCase c --- ++ genForms "uns" "unes" ! g --- take this as a determiner
       }
      } ;
diff --git a/lib/src/spanish/DiffSpa.gf b/lib/src/spanish/DiffSpa.gf
index e4a7954ab..0c3e26558 100644
--- a/lib/src/spanish/DiffSpa.gf
+++ b/lib/src/spanish/DiffSpa.gf
@@ -49,8 +49,6 @@ instance DiffSpa of DiffRomance - [partAgr,vpAgrSubj,vpAgrClits] = open CommonRo
         }
       } ;
 
--- In these two, "de de/du/des" becomes "de".
-
     artIndef = \isNP,g,n,c -> case isNP of {
       True => case n of {
         Sg  => prepCase c ++ genForms "uno"  "una" ! g ;