GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Add possessive stems

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-23 19:10:42 +02:00
parent bff100b75b
commit 3b18fadfdf
2 changed files with 55 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
src/hungarian/NounMorphoHun.gf
View File

@@ -17,6 +17,8 @@ oper
-- Singular nominative uses the given form, e.g. "alma" or "kefe"
SgNom => alma ;
PossdSg_PossrP3 => almá + "j" ;
-- The rest of the forms are formed with the regular constructor,
-- using "almá" or "kefé" as the stem.
_ => nAlmá.s ! nc }
@@ -34,13 +36,22 @@ oper
in nLova ** {
s = \\nc => case nc of {
-- All plural forms and Sg Acc, Sg Sup use the "lova" stem
PlStem | PlAcc | SgAccStem => nLova.s ! nc ;
SgSup => nLov.s ! nc ;
-- All plural forms and Sg Acc use the "lova" stem
PlStem | PlAcc | SgAccStem
=> nLova.s ! nc ;
-- The rest of the forms are formed with the regular constructor,
-- using "ló" as the stem.
_ => nLó.s ! nc }
SgSup | -- Sg Sup has vowel o/ö, not a/e
PossdSg_PossrP3 -- Consonant stem before P3 suffixes
=> nLov.s ! nc ;
PossdSg_PossrPl1 -- Round vowel, part of Pl1 suffix
=> lov + harm "u" "ü" ! nLov.h ;
PossdPl => lova + "i" ;
-- The rest of the forms are formed with the regular constructor,
-- using "ló" as the stem.
_ => nLó.s ! nc }
} ;
-- NB. arguments are Sg Nom, Pl Nom
@@ -55,8 +66,15 @@ oper
-- All plural forms and Sg Acc, Sg Sup use the "falu" stem
PlStem | PlAcc => nFalva.s ! nc ;
-- The plural morpheme before possessive suffixes is i
PossdPl => nFalu.s ! nc + "i" ;
-- The form before P3 possessive suffixes: faluj|a, faluj|uk
-- Forms before other possessive suffixes follow SgAccStem.
PossdSg_PossrP3 => nFalu.s ! nc + "j" ;
-- The rest of the forms are formed with the regular constructor,
-- using "ló" as the stem.
-- using "falu" as the stem.
_ => nFalu.s ! nc }
} ;
@@ -74,9 +92,18 @@ oper
nMajom = mkNoun majom ;
in nMajmo ** {
s = \\nc => case nc of {
-- All plural forms and Sg Acc and Sg Sup use the "majmo" stem
PlStem | PlAcc | SgAccStem => nMajmo.s ! nc ;
SgSup => nMajmo.s ! nc ;
SgSup -- All plural forms and Sg Acc and Sg Sup use the "majmo" stem
| PlAcc
| PlStem
| SgAccStem => nMajmo.s ! nc ;
-- The plural morpheme before possessive suffixes: majmai
PossdPl => majm + harm "a" "e" ! nMajmo.h + "i" ;
-- The form before P3 possessive suffixes: majm|a, majm|uk
-- Forms before other possessive suffixes follow SgAccStem.
PossdSg_PossrP3 => majm ;
-- The rest of the forms are formed with the regular constructor,
-- using "majom" as the stem.
@@ -91,11 +118,23 @@ oper
let tolla = init tollat ;
nTolla = mkNoun tolla ;
nToll = mkNoun toll ;
diákj : Str = case tolla of {
x + #v => x ;
x + #v + ("sz"|"z"|"s"|"zs"|"j"|"ly"|"l"|"r"|"n"|"ny"|"ssz"
|"zz"|"ss"|"ll"|"rr"|"nn"|"ns"|"nsz"|"nz") => tolla ;
_ => tolla + "j" } ;
in nTolla ** {
s = \\nc => case nc of {
-- All plural forms and Sg Acc use the "tolla" stem
PlStem | PlAcc | SgAccStem => nTolla.s ! nc ;
PossdSg_PossrPl1 => diákj + harm "u" "ü" ! nToll.h ;
PossdSg_PossrP3 => diákj ;
-- The plural morpheme before possessive suffixes: madarai
PossdPl => diákj + harm "a" "e" ! nToll.h + "i" ;
-- The rest of the forms are formed with the regular constructor,
-- using "toll" as the stem.
_ => nToll.s ! nc
@@ -305,6 +344,7 @@ oper
SgSup => harm3 "on" "en" "ön" ;
PlAcc => harm3 "ot" "et" "öt" ;
SgAccStem => harm3 "o" "e" "ö" ;
PossdPl => harm1 "i" ; -- TODO figure out allomorphs
_ => harm1 []
} ;

6
src/hungarian/ParamHun.gf
View File

@@ -26,7 +26,11 @@ param
| SgInsStem -- Instrumental and translative: -v after vowels
| SgStem -- Rest of the cases in Sg
| PlStem -- Rest of the cases in Pl
;
| PossdSg_PossrP3 -- Possessed item is Sg, possessor is Sg or Pl P3
| PossdSg_PossrPl1 -- Possessed item is Sg, possessor is Pl P1
| PossdPl -- Possessed item in plural, any possessor.
; -- Rest of poss forms use SgAccStem
Case =
Nom | Acc | Dat