mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-09 03:02:50 -06:00
new Utt constructors for AP, Card
This commit is contained in:
@@ -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} ; ---
|
||||
|
||||
Reference in New Issue
Block a user