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

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