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

src/german/CatGer.gf

@@ -57,7 +57,7 @@ concrete CatGer of Cat =
 		  g : Gender} ;
     NP = ResGer.NP ; 
     Pron = {s : NPForm => Str ; a : Agr} ;
-    Det = {s,sp : Gender => PCase => Str ; n : Number ; a : Adjf ; isDef : Bool} ;
+    Det, DAP = {s,sp : Gender => PCase => Str ; n : Number ; a : Adjf ; isDef : Bool} ;
     Quant = {
       s   : Bool => Number => Gender => PCase => Str ;  -- Bool is True if a cardinal number is present
       sp  : Bool => Number => Gender => PCase => Str ; 

src/german/ExtendGer.gf

@@ -104,6 +104,25 @@ lin
 
     ConjVPS = conjunctDistrTable2 Order Agr ;
     
+    UseDAP det = {
+      s = \\c => det.sp ! Neutr ! c ;
+      a = agrP3 det.n ;
+      w = case det.isDef of { True => WLight ; _ => WHeavy } ;
+      rc, ext = []
+      } ;
 
+    UseDAPMasc det = {
+      s = \\c => det.sp ! Masc ! c ;
+      a = agrP3 det.n ;
+      w = WLight ;
+      rc, ext = []
+      } ;
 
-}
+    UseDAPFem det = {
+      s = \\c => det.sp ! Fem ! c ;
+      a = agrP3 det.n ;
+      w = WLight ;
+      rc, ext = []
+      } ;
+
+}

src/german/NounGer.gf

@@ -235,4 +235,7 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
 
     PossNP cn np = cn ** {
       s = \\a,n,c => cn.s ! a ! n ! c ++ np.s ! NPP CVonDat ++ bigNP np } ;
+
+    DetDAP det = det ;
+
 }