move UseDAP, UseDAPMasc, UseDAPFem to the RGL and implement it for several new languages

src/romance/CatRomance.gf

@@ -62,7 +62,7 @@ incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
     CN      = {s : Number => Str ; g : Gender} ;
     Pron    = Pronoun ;
     NP      = NounPhrase ;
-    Det     = {
+    Det,DAP = {
       s : Gender => Case => Str ;
       n : Number ;
       s2 : Str ;            -- -ci
@@ -75,7 +75,6 @@ incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
       sp : Number => Gender => Case => Str ;
       isNeg : Bool -- negative element, e.g. aucun
       } ;
-    DAP = {s : Gender => Case => Str ; n : Number} ;
     Predet  = {
       s : AAgr   => Case => Str ;
       c : Case ; -- c : la plupart de

src/romance/ExtendRomanceFunctor.gf

@@ -239,6 +239,26 @@ incomplete concrete ExtendRomanceFunctor of Extend =
            hasClit = False
            } ;
 
+
+    UseDAP, UseDAPMasc = \dap ->
+      let
+        g = Masc ;
+        n = dap.n
+      in heavyNPpol dap.isNeg {
+        s = dap.sp ! g ;
+        a = agrP3 g n ;
+        hasClit = False
+        } ;
+    UseDAPFem dap =
+      let
+        g = Fem ;
+        n = dap.n
+      in heavyNPpol dap.isNeg {
+           s = dap.sp ! g ;
+           a = agrP3 g n ;
+           hasClit = False
+           } ;
+
   lin
     iFem_Pron = i_Pron ; -- DEFAULT I (masc)
     youFem_Pron = youSg_Pron ; -- DEFAULT you (masc)

src/romance/NounRomance.gf

@@ -192,8 +192,11 @@ incomplete concrete NounRomance of Noun =
     AdjDAP det ap = {
       s = \\g,c => det.s ! g ! c ++ ap.s ! genNum2Aform g det.n ;
       n = det.n ;
+      s2 = det.s2 ;   -- -ci
+      sp = \\g,c => det.s ! g ! c ++ ap.s ! genNum2Aform g det.n ;
+      isNeg = det.isNeg
       } ;
 
-    DetDAP det = {s = \\g,c => det.s ! g ! c ; n = det.n } ;
+    DetDAP det = det ;
 
 }