new Utt constructors for AP, Card

This commit is contained in:
aarne
2010-03-28 20:13:15 +00:00
parent 13a7954646
commit a814066463
7 changed files with 17 additions and 0 deletions

View File

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