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) Tweak dHajó to work for words ending in i

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-28 09:36:59 +02:00
parent f9e7b2ff5e
commit 1adffb2b9d
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/hungarian/NounMorphoHun.gf
View File

@@ -116,14 +116,18 @@ oper
-- Examples: "hajó, hajója, zseni, zsenije, kestyű, kestyűje" -- Examples: "hajó, hajója, zseni, zsenije, kestyű, kestyűje"
dHajó : (nom : Str) -> (acc : Str) -> Noun = \hajó,hajót -> dHajó : (nom : Str) -> (acc : Str) -> Noun = \hajó,hajót ->
let nHajó = mkNoun hajó ; let nHajó = mkNoun hajó ;
hajój = hajó + "j" ;
h = nHajó.h ;
in nHajó ** { in nHajó ** {
s = \\nc => case nc of { s = \\nc => case nc of {
-- hajó|nk, zseni|nk
PossdSg_PossrPl1 => hajó ; PossdSg_PossrPl1 => hajó ;
-- hajój|a, zsenij|e
PossdSg_PossrP3 => hajój ;
PossdSg_PossrP3 => hajó + "j" ; PossdPl => case hajó of {
_ + "i" => hajój + harm "a" "e" ! h + "i" ; -- zsenij|ei
-- The plural morpheme before possessive suffixes: hajói _ => hajó + "i" } ; -- hajó|i
PossdPl => hajó + "i" ;
-- The rest of the forms are formed with the regular constructor -- The rest of the forms are formed with the regular constructor
_ => nHajó.s ! nc _ => nHajó.s ! nc
@@ -294,6 +298,11 @@ oper
|<_ + "é", -- lé, levet |<_ + "é", -- lé, levet
_ + "e" + #c + #v + "t"> => dLó n a ; _ + "e" + #c + #v + "t"> => dLó n a ;
-- Stem 1 == Stem 2 == Stem 3
-- j in PossdSg_PossrP3 but not elsewhere: gumi -> gumi|nk, gumij|a
<_ + "i", -- gumi, gumit:
_ + "it"> => dHajó n a ;
-- Stem 1: Sg Nom, Sg * - [Gen] -- Stem 1: Sg Nom, Sg * - [Gen]
-- Stem 2: Sg Gen, Pl * -- Stem 2: Sg Gen, Pl *
<_ + "á" + #c, _ + "a" + #c + "at"> <_ + "á" + #c, _ + "a" + #c + "at">