Merge branch 'master' of github.com:GrammaticalFramework/gf-rgl

src/german/MakeStructuralGer.gf

@@ -36,4 +36,12 @@ oper
    sp = \\gn,c => q.s ! False ! gn ! c + a.s ! Posit ! agrAdj q.a gn c
    } ;
 
+ mkStrongDet : Str -> Number -> Det = \adj, n -> lin Det {
+    s,sp = \\_,g,c => adj + adjEnding ! (gennum g Pl) ! c ;
+    n = n ; a = Strong ; isDef = False ; hasDefArt = False} ;
+
+ mkWeakDet : Str -> Number -> Det = \adj, n -> lin Det {
+    s,sp = \\_,g,c => adj + adjEnding ! (gennum g Pl) ! c ;
+    n = n ; a = Weak ; isDef = False ; hasDefArt = False} ;
+
 }

src/italian/MakeStructuralIta.gf

@@ -61,7 +61,14 @@ oper
   } ;
 
   mkDet = overload {
-    -- Does not inflect for number
+    -- singular, does not inflect for gender
+    mkDet : Str ->  Det = \piu -> lin Det {
+      s,sp = \\_,_ => piu ;
+      spn = \\_ => piu ;
+      n = Sg ;
+      s2 = \\g => [] ;
+      isNeg = False
+    } ;
     mkDet : Str -> Number -> Det = \piu,n -> lin Det {
       s,sp = \\_,_ => piu ;
       spn = \\_ => piu ;
@@ -69,7 +76,7 @@ oper
       s2 = \\g => [] ;
       isNeg = False
     } ;
-    -- Inflects for number
+    -- Inflects for gender
     mkDet : Str -> Str -> Number -> Det = \alcuni,alcune,n -> lin Det {
       s,sp = table {
         Masc => \\_ => alcuni ;

src/portuguese/MakeStructuralPor.gf

@@ -19,4 +19,34 @@ oper
     a = if_then_else PAgr p (PAg Sg) PNoAg ---- e,g, "chacun de"; other possibilities?
     } ;
 
+  mkDet = overload {
+    -- singular, does not inflect for gender
+    mkDet : Str ->  Det = \piu -> lin Det {
+      s,sp = \\_,_ => piu ;
+      spn = \\_ => piu ;
+      n = Sg ;
+      s2 = \\g => [] ;
+      isNeg = False
+    } ;
+    mkDet : Str -> Number -> Det = \piu,n -> lin Det {
+      s,sp = \\_,_ => piu ;
+      spn = \\_ => piu ;
+      n = n ;
+      s2 = \\g => [] ;
+      isNeg = False
+    } ;
+    -- Inflects for gender
+    mkDet : Str -> Str -> Number -> Det = \alcuni,alcune,n -> lin Det {
+      s,sp = table {
+        Masc => \\_ => alcuni ;
+        Fem  => \\_ => alcune
+      } ;
+      spn = \\_ => alcuni ;
+      n = n ;
+      s2 = \\g => [] ;
+      isNeg = False
+    } ;
+  } ;
+
+
 } ;