Phrase.UttCN added and implemented for Eng,Fre,Ger

This commit is contained in:
aarne
2009-12-17 21:54:11 +00:00
parent 5c9ac3655e
commit 8d5f97866d
4 changed files with 4 additions and 1 deletions

View File

@@ -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.

View File

@@ -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} ; ---

View File

@@ -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) ;

View File

@@ -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} ;