new Utt constructors for AP, Card

lib/src/bulgarian/PhraseBul.gf

@@ -16,6 +16,9 @@ concrete PhraseBul of Phrase = CatBul ** open Prelude, ResBul in {
     UttNP np = {s = np.s ! RSubj} ;
     UttVP vp = {s = daComplex vp ! Perf ! agrP3 (GSg Neut)} ;
     UttAdv adv = adv ;
+    UttCN n = {s = n.s ! NF Sg Indef} ;
+    UttCard n = {s = n.s ! CFNeut Indef} ;
+    UttAP ap = {s = ap.s ! ASg Masc Indef} ;
 
     NoPConj = {s = []} ;
     PConjConj conj = {s = conj.s ++ linCoord!conj.conj} ;

lib/src/dutch/PhraseDut.gf

@@ -18,6 +18,9 @@ concrete PhraseDut of Phrase = CatDut ** open Prelude, ResDut in
     UttNP np = {s = np.s ! NPNom} ;
     UttVP vp = {s = useInfVP True vp} ;  -- without zu
     UttAdv adv = adv ;
+    UttCN n = {s = n.s ! NF Sg Nom} ;
+    UttCard n = {s = n.s ! Utr ! Nom} ;
+    UttAP ap = {s = ap.s ! APred} ;
 
     NoPConj = {s = []} ;
     PConjConj conj = ss (conj.s2) ;

lib/src/german/PhraseGer.gf

@@ -17,6 +17,9 @@ concrete PhraseGer of Phrase = CatGer ** open Prelude, ResGer in {
     UttVP vp = {s = useInfVP True vp} ;  -- without zu
     UttAdv adv = adv ;
     UttCN n = {s = n.s ! Strong ! Sg ! Nom} ;
+    UttCard n = {s = n.s ! Neutr ! Nom} ;
+    UttAP ap = {s = ap.s ! APred} ;
+
     NoPConj = {s = []} ;
     PConjConj conj = ss (conj.s2) ;
 

lib/src/german/StructuralGer.gf

@@ -43,6 +43,7 @@ concrete StructuralGer of Structural = CatGer **
   here7from_Adv = ss ["hieraus"] ;
   here_Adv = ss "hier" ;
   how_IAdv = ss "wie" ;
+  how8much_IAdv = ss "wieviel" ;
   how8many_IDet = detLikeAdj Pl "wieviel" ;
   if_Subj = ss "wenn" ;
   in8front_Prep = mkPrep "vor" Dat ;

lib/src/italian/StructuralIta.gf

@@ -46,6 +46,7 @@ lin
   here7to_Adv = ss "quì" ;
   here_Adv = ss "quì" ;
   how_IAdv = ss "come" ;
+  how8much_IAdv = ss "quanto" ;
   how8many_IDet = {s = \\g,c => prepCase c ++ genForms "quanti" "quante" ! g ; n = Pl} ;
   if_Subj = ss "se" ** {m = Indic} ;
   in8front_Prep = mkPrep "davanti" ;

lib/src/polish/PhrasePol.gf

@@ -22,6 +22,9 @@ concrete PhrasePol of Phrase = CatPol ** open Prelude, ResPol, VerbMorphoPol in
             vp.sufix !Pos !MascAniSg  ++ vp.postfix !Pos !MascAniSg
    };
    UttAdv adv = adv ;
+   UttCN n = {s = n.s ! Sg ! Nom} ;
+   UttCard n = {s = n.s ! Nom ! Neut} ;
+   UttAP ap = {s = ap.s ! AF NeutSg Nom} ; ---- gennum ? (AR)
 
    NoPConj = {s = []} ;
    PConjConj conj = {s = conj.s2} ; ---

lib/src/russian/PhraseRus.gf

@@ -17,6 +17,9 @@ concrete PhraseRus of Phrase = CatRus ** open Prelude, ResRus in {
     UttNP np = {s = np.s ! PF Acc No NonPoss} ;
     UttVP vp = {s = vp.s ! ClInfinit ! GSg Masc ! P3} ;
     UttAdv adv = adv ;
+    UttCN n = {s = n.s ! NF Sg Nom} ;
+    UttCard n = {s = n.s ! Nom ! Neut} ;
+    UttAP ap = {s = ap.s ! AF Nom Inanimate (GSg Neut)} ; ---- gennum ? (AR)
 
     NoPConj = {s = []} ;
     PConjConj conj = ss conj.s2 ;