mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-21 00:52:51 -06:00
fixed the case of substantival possessives in Eng
This commit is contained in:
@@ -40,7 +40,10 @@ resource MorphoEng = open Prelude, (Predef=Predef), ResEng in {
|
|||||||
NCase Gen => my
|
NCase Gen => my
|
||||||
} ;
|
} ;
|
||||||
a = toAgr n p g ;
|
a = toAgr n p g ;
|
||||||
sp = regGenitiveS mine
|
sp = table {
|
||||||
|
Nom => mine ;
|
||||||
|
_ => genitiveS mine
|
||||||
|
}
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
} ;
|
} ;
|
||||||
|
|||||||
@@ -61,7 +61,7 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
|
|||||||
|
|
||||||
PossPron p = {
|
PossPron p = {
|
||||||
s = \\_,_ => p.s ! NCase Gen ;
|
s = \\_,_ => p.s ! NCase Gen ;
|
||||||
sp = \\_,_,c => p.sp ! Gen
|
sp = \\_,_,c => p.sp ! npcase2case c
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
NumSg = {s = \\c => []; n = Sg ; hasCard = False} ;
|
NumSg = {s = \\c => []; n = Sg ; hasCard = False} ;
|
||||||
|
|||||||
Reference in New Issue
Block a user