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

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