From 8d5f97866d18686caaf3b18c4de25bdfd0cd23dd Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 17 Dec 2009 21:54:11 +0000
Subject: [PATCH] Phrase.UttCN added and implemented for Eng,Fre,Ger

---
 lib/src/abstract/Phrase.gf       | 1 +
 lib/src/english/PhraseEng.gf     | 1 +
 lib/src/german/PhraseGer.gf      | 2 +-
 lib/src/romance/PhraseRomance.gf | 1 +
 4 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/src/abstract/Phrase.gf b/lib/src/abstract/Phrase.gf
index 3606c2d76..19e66b9b0 100644
--- a/lib/src/abstract/Phrase.gf
+++ b/lib/src/abstract/Phrase.gf
@@ -28,6 +28,7 @@ abstract Phrase = Cat ** {
     UttNP   : NP   -> Utt ;                 -- this man
     UttAdv  : Adv  -> Utt ;                 -- here
     UttVP   : VP   -> Utt ;                 -- to sleep
+    UttCN   : CN   -> Utt ;                 -- house
 
 -- The phrasal conjunction is optional. A sentence conjunction
 -- can also used to prefix an utterance.
diff --git a/lib/src/english/PhraseEng.gf b/lib/src/english/PhraseEng.gf
index c635d4b98..a423810ea 100644
--- a/lib/src/english/PhraseEng.gf
+++ b/lib/src/english/PhraseEng.gf
@@ -14,6 +14,7 @@ concrete PhraseEng of Phrase = CatEng ** open Prelude, ResEng in {
     UttNP np = {s = np.s ! Nom} ;
     UttVP vp = {s = infVP False vp (agrP3 Sg)} ;
     UttAdv adv = adv ;
+    UttCN n = {s = n.s ! Sg ! Nom} ;
 
     NoPConj = {s = []} ;
     PConjConj conj = {s = conj.s2} ; ---
diff --git a/lib/src/german/PhraseGer.gf b/lib/src/german/PhraseGer.gf
index dc8cfe04e..4dd7cbd5d 100644
--- a/lib/src/german/PhraseGer.gf
+++ b/lib/src/german/PhraseGer.gf
@@ -16,7 +16,7 @@ concrete PhraseGer of Phrase = CatGer ** open Prelude, ResGer in {
     UttNP np = {s = np.s ! Nom} ;
     UttVP vp = {s = useInfVP True vp} ;  -- without zu
     UttAdv adv = adv ;
-
+    UttCN n = {s = n.s ! Strong ! Sg ! Nom} ;
     NoPConj = {s = []} ;
     PConjConj conj = ss (conj.s2) ;
 
diff --git a/lib/src/romance/PhraseRomance.gf b/lib/src/romance/PhraseRomance.gf
index e9416284b..fd3593053 100644
--- a/lib/src/romance/PhraseRomance.gf
+++ b/lib/src/romance/PhraseRomance.gf
@@ -17,6 +17,7 @@ incomplete concrete PhraseRomance of Phrase =
     UttNP np = {s = (np.s ! Nom).ton} ;
     UttVP vp = {s = infVP vp (agrP3 Fem Sg)} ; --- Agr
     UttAdv adv = adv ;
+    UttCN n = {s = n.s ! Sg} ;
 
     NoPConj = {s = []} ;
     PConjConj conj = {s = conj.s2} ;