From a814066463e0d26d635fc42223d3213874f9120d Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sun, 28 Mar 2010 20:13:15 +0000
Subject: [PATCH] new Utt constructors for AP, Card

---
 lib/src/bulgarian/PhraseBul.gf   | 3 +++
 lib/src/dutch/PhraseDut.gf       | 3 +++
 lib/src/german/PhraseGer.gf      | 3 +++
 lib/src/german/StructuralGer.gf  | 1 +
 lib/src/italian/StructuralIta.gf | 1 +
 lib/src/polish/PhrasePol.gf      | 3 +++
 lib/src/russian/PhraseRus.gf     | 3 +++
 7 files changed, 17 insertions(+)

diff --git a/lib/src/bulgarian/PhraseBul.gf b/lib/src/bulgarian/PhraseBul.gf
index 0d3524832..2c32648db 100644
--- a/lib/src/bulgarian/PhraseBul.gf
+++ b/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} ;
diff --git a/lib/src/dutch/PhraseDut.gf b/lib/src/dutch/PhraseDut.gf
index 7e2c13559..5d502b6c2 100644
--- a/lib/src/dutch/PhraseDut.gf
+++ b/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) ;
diff --git a/lib/src/german/PhraseGer.gf b/lib/src/german/PhraseGer.gf
index 4dd7cbd5d..2b7a67214 100644
--- a/lib/src/german/PhraseGer.gf
+++ b/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) ;
 
diff --git a/lib/src/german/StructuralGer.gf b/lib/src/german/StructuralGer.gf
index de4b70f96..eb7cd926f 100644
--- a/lib/src/german/StructuralGer.gf
+++ b/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 ;
diff --git a/lib/src/italian/StructuralIta.gf b/lib/src/italian/StructuralIta.gf
index c91f7ce80..74b36ff67 100644
--- a/lib/src/italian/StructuralIta.gf
+++ b/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" ;
diff --git a/lib/src/polish/PhrasePol.gf b/lib/src/polish/PhrasePol.gf
index 8b3c299a9..d8eef9ef0 100644
--- a/lib/src/polish/PhrasePol.gf
+++ b/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} ; ---
diff --git a/lib/src/russian/PhraseRus.gf b/lib/src/russian/PhraseRus.gf
index 0cf86c881..46d9eb9d8 100644
--- a/lib/src/russian/PhraseRus.gf
+++ b/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 ;