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

(Hun) Add a stem for Sg1, Sg2 and Pl2 possessive form

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

12
src/hungarian/NounMorphoHun.gf
View File

@@ -37,7 +37,7 @@ oper
s = \\nc => case nc of { s = \\nc => case nc of {
-- All plural forms and Sg Acc use the "lova" stem -- All plural forms and Sg Acc use the "lova" stem
PlStem | SgAccStem PlStem | SgAccStem | PossdSg_PossrSg1P2
=> nLova.s ! nc ; => nLova.s ! nc ;
SgSup | -- Sg Sup has vowel o/ö, not a/e SgSup | -- Sg Sup has vowel o/ö, not a/e
@@ -96,7 +96,7 @@ oper
s = \\nc => case nc of { s = \\nc => case nc of {
-- All plural forms and Sg Acc use the "majmo" stem -- All plural forms and Sg Acc use the "majmo" stem
PlStem | SgAccStem => nMajmo.s ! nc ; PlStem | SgAccStem | PossdSg_PossrSg1P2 => nMajmo.s ! nc ;
-- Sg Sup uses the same majm* stem, but vowel can be different: -- Sg Sup uses the same majm* stem, but vowel can be different:
-- sátor, sátrat -> sátron, not *sátran -- sátor, sátrat -> sátron, not *sátran
@@ -169,6 +169,11 @@ oper
let tolla = init tollat ; let tolla = init tollat ;
nTolla = mkNoun tolla ; nTolla = mkNoun tolla ;
nToll = mkNoun toll ; nToll = mkNoun toll ;
sörö = case vowFinal tolla of {
True => tolla ;
False => tolla -- város+o+m, sör+ö+m, vér+e+m
+ harm3 "o" "e" "ö" ! getHarm tolla
} ;
napj = case andB (ifTok Bool toll tolla True False) napj = case andB (ifTok Bool toll tolla True False)
(notB (vowFinal tolla)) of { (notB (vowFinal tolla)) of {
True => toll ; -- sör, sör|t -> sör|e True => toll ; -- sör, sör|t -> sör|e
@@ -206,6 +211,7 @@ oper
PossdSg_PossrPl1 => napj + harm "u" "ü" ! nToll.h ; PossdSg_PossrPl1 => napj + harm "u" "ü" ! nToll.h ;
PossdSg_PossrP3 => napj ; PossdSg_PossrP3 => napj ;
PossdSg_PossrSg1P2 => sörö ;
-- The plural morpheme before possessive suffixes: madarai -- The plural morpheme before possessive suffixes: madarai
PossdPl => napj + harm "a" "e" ! nToll.h + "i" ; PossdPl => napj + harm "a" "e" ! nToll.h + "i" ;
@@ -225,7 +231,7 @@ oper
in nMadara ** { in nMadara ** {
s = \\nc => case nc of { s = \\nc => case nc of {
-- All plural forms and Sg Acc use the "tolla" stem -- All plural forms and Sg Acc use the "tolla" stem
PlStem | SgAccStem => nMadara.s ! nc ; PlStem | SgAccStem | PossdSg_PossrSg1P2 => nMadara.s ! nc ;
PossdSg_PossrPl1 => madar + harm "u" "ü" ! nMadara.h ; PossdSg_PossrPl1 => madar + harm "u" "ü" ! nMadara.h ;

4
src/hungarian/ParamHun.gf
View File

@@ -76,8 +76,9 @@ param
| SgInsStem -- Instrumental and translative: -v after vowels | SgInsStem -- Instrumental and translative: -v after vowels
| SgStem -- Rest of the cases in Sg | SgStem -- Rest of the cases in Sg
| PlStem -- Rest of the cases in Pl | PlStem -- Rest of the cases in Pl
| PossdSg_PossrP3 -- Possessed item is Sg, possessor is Sg or Pl P3 | PossdSg_PossrP3 -- Possessed item is Sg, possessor is {Sg,Pl} P3
| PossdSg_PossrPl1 -- Possessed item is Sg, possessor is Pl P1 | PossdSg_PossrPl1 -- Possessed item is Sg, possessor is Pl P1
| PossdSg_PossrSg1P2 -- Possessed item is Sg, possessor is Sg P1 or {Sg,Pl} P2
| PossdPl -- Possessed item in plural, any possessor. | PossdPl -- Possessed item in plural, any possessor.
; -- Rest of poss forms use SgAccStem ; -- Rest of poss forms use SgAccStem
@@ -157,6 +158,7 @@ oper
PlStem => "PlStem" ; PlStem => "PlStem" ;
PossdSg_PossrP3 => "PossdSg_PossrP3" ; PossdSg_PossrP3 => "PossdSg_PossrP3" ;
PossdSg_PossrPl1 => "PossdSg_PossrPl1" ; PossdSg_PossrPl1 => "PossdSg_PossrPl1" ;
PossdSg_PossrSg1P2 => "PossdSg_PossrSg1P2" ;
PossdPl => "PossdPl" PossdPl => "PossdPl"
} ; } ;

2
src/hungarian/ResHun.gf
View File

@@ -49,7 +49,7 @@ oper
Sg => case st of { Sg => case st of {
dSg_rP3 _ => PossdSg_PossrP3 ; dSg_rP3 _ => PossdSg_PossrP3 ;
dSg_rPl1 => PossdSg_PossrPl1 ; dSg_rPl1 => PossdSg_PossrPl1 ;
dSg_rSg1P2 => SgAccStem } dSg_rSg1P2 => PossdSg_PossrSg1P2 }
} ; } ;
-- possessive suffix e.g. "their cats-3pl" is just k. not uk/ük -- possessive suffix e.g. "their cats-3pl" is just k. not uk/ük