GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-24 02:31:10 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Update worst-case mkN with P1Sg possessive form of the noun

Browse Source
This commit is contained in:
Inari Listenmaa
2020-06-04 08:19:29 +02:00
parent 1471ee563e
commit ab83883679
3 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/hungarian/NounMorphoHun.gf
View File

@@ -252,8 +252,8 @@ oper
-- Worst case constructor: takes all stems
worstCaseNoun : (x1,_,_,_,_,_,_,x8 : Str) -> Harm -> Noun =
\nomsg,accsg,supsg,allsg,nompl,possdSg_possrP3sg,possdSg_PossrPl1,possdPl,h ->
worstCaseNoun : (x1,_,_,_,_,_,_,_,x9 : Str) -> Harm -> Noun =
\nomsg,accsg,supsg,allsg,nompl,possdSg_PossrSg1P2,possdSg_possrP3sg,possdSg_PossrPl1,possdPl,h ->
let sgstem = tk 3 allsg ; -- remove -hoz/hez/höz
sginsstem : Str = case vowFinal sgstem of {
True => sgstem + "v" ;
@@ -268,6 +268,7 @@ oper
PlStem => nompl ;
PossdSg_PossrP3 => init possdSg_possrP3sg ; -- remove -a/e
PossdSg_PossrPl1 => tk 2 possdSg_PossrPl1 ; -- remove -nk
PossdSg_PossrSg1P2 => init possdSg_PossrSg1P2 ;
PossdPl => possdPl } ;
h = h ;
} ;