added the nominal possessive form NPNomPoss to NPCase in Eng (covering mine, yours, etc)

This commit is contained in:
aarne
2013-03-13 12:34:22 +00:00
parent f61a013a40
commit 05c9934af0
4 changed files with 6 additions and 5 deletions

View File

@@ -78,7 +78,7 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
s = \\hasCard,n => artDef ;
sp = \\hasCard,n => case <n,hasCard> of {
<Sg,False> => table { NCase Gen => "its"; _ => "it" } ;
<Pl,False> => table { NCase Nom => "they"; NPAcc => "them"; NCase Gen => "theirs" } ;
<Pl,False> => table { NCase Nom => "they"; NPAcc => "them"; _ => "theirs" } ;
_ => \\c => artDef
}
} ;