msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/src/english/MorphoEng.gf
View File

@@ -36,6 +36,7 @@ resource MorphoEng = open Prelude, (Predef=Predef), ResEng in {
s = table {
NCase Nom => i ;
NPAcc => me ;
NPNomPoss => mine ;
NCase Gen => my
} ;
a = toAgr n p g ;

2
lib/src/english/NounEng.gf
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
}
} ;

2
lib/src/english/RelativeEng.gf
View File

@@ -39,7 +39,7 @@ concrete RelativeEng of Relative = CatEng ** open ResEng in {
IdRP =
{ s = table {
RC _ (NCase Gen) => "whose" ;
RC _ (NCase Gen) | RC _ NPNomPoss => "whose" ;
RC Neutr _ => "which" ;
RC _ NPAcc => "whom" ;
RC _ (NCase Nom) => "who" ;

6
lib/src/english/ResEng.gf
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 ;
};