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

@@ -21,9 +21,9 @@ resource ResEng = ParamX ** open Prelude in {
param
Case = Nom | Gen ;
-- This is the worst-case $Case$ needed for pronouns.
-- This is the worst-case $Case$ needed for pronouns: I, me, my, mine
NPCase = NCase Case | NPAcc ;
NPCase = NCase Case | NPAcc | NPNomPoss ;
-- Useful macros and conversions:
@@ -169,7 +169,7 @@ resource ResEng = ParamX ** open Prelude in {
{ s = table {
NCase Nom => i ;
NPAcc => me ;
NCase Gen => my
NCase Gen | NPNomPoss => my -- works for normal genitives, "whose", etc.
} ;
a = toAgr n p g ;
};