GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Small tweaks and cleanup

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-28 09:42:18 +02:00
parent 1adffb2b9d
commit 0a31212a9e
1 changed files with 12 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/hungarian/NounMorphoHun.gf
View File

@@ -54,9 +54,10 @@ oper
_ => nLó.s ! nc } _ => nLó.s ! nc }
} ; } ;
-- NB. arguments are Sg Nom, Pl Nom -- NB. Relevant arguments are Sg Nom, Pl Nom.
-- Third argument prevents accidental application of this paradigm
-- handles words like: falu, daru, tetű -> falvak, darvak, tetvek -- handles words like: falu, daru, tetű -> falvak, darvak, tetvek
dFalu : (nomsg : Str) -> (nompl : Str) -> Noun = \falu,falvak -> dFalu : (nomsg,_,nompl : Str) -> Noun = \falu,_,falvak ->
let falva = init falvak ; let falva = init falvak ;
nFalva = mkNoun falva ; nFalva = mkNoun falva ;
nFalu = mkNoun falu ; nFalu = mkNoun falu ;
@@ -134,24 +135,22 @@ oper
} }
} ; } ;
-- Unexpected j after consonant -- Opposite to dVirág: unexpected j after consonant
dPlafon : (nom : Str) -> (acc : Str) -> Noun = \plafon,plafont -> dPlafon : (nom : Str) -> (acc : Str) -> Noun = \plafon,plafont ->
let nPlafon = mkNoun plafon ; let nPlafon = regNounNomAcc plafon plafont ;
h = nPlafon.h ; h = nPlafon.h ;
in nPlafon ** { in nPlafon ** {
s = \\nc => case nc of { s = \\nc => case nc of {
PossdSg_PossrPl1 => plafon + harm "u" "ü" ! h ; PossdSg_PossrPl1 => plafon + harm "u" "ü" ! h ;
PossdSg_PossrP3 => plafon + "j" ; PossdSg_PossrP3 => plafon + "j" ;
PossdPl => plafon + harm "jai" "jei" ! h ; PossdPl => plafon + harm "jai" "jei" ! h ;
-- The rest of the forms are formed with the regular constructor
_ => nPlafon.s ! nc _ => nPlafon.s ! nc
} }
} ; } ;
-- Opposite to dHajó: regular paradigm puts j, but these words don't have it. -- Opposite to dPlafon: regular paradigm puts j, but these words don't have it.
dVirág : (nom : Str) -> (acc : Str) -> Noun = \virág,virágot -> dVirág : (nom : Str) -> (acc : Str) -> Noun = \virág,virágot ->
let nVirág = mkNoun virág ; let nVirág = regNounNomAcc virág virágot ;
h = nVirág.h ; h = nVirág.h ;
in nVirág ** { in nVirág ** {
s = \\nc => case nc of { s = \\nc => case nc of {
@@ -170,7 +169,7 @@ oper
(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
-- király, király|t -> király|a -- király, király|t -> király|a
-- TODO fails for plafon, papír -- NB. plafon, papír with dPlafon
False => case tolla of { False => case tolla of {
-- hegy, hegy|et -> hegy|e -- hegy, hegy|et -> hegy|e
_ + ("ty"|"gy"|"ny"|"j"|"ly"|"m"|"h") + ("e"|"a"|"ö"|"o") => init tolla ; _ + ("ty"|"gy"|"ny"|"j"|"ly"|"m"|"h") + ("e"|"a"|"ö"|"o") => init tolla ;
@@ -188,7 +187,7 @@ oper
-- nap, nap|ot -> napj|a -- nap, nap|ot -> napj|a
-- bank, bank|ot -> bankj|a -- bank, bank|ot -> bankj|a
-- kabát, kabát|ot -> kabátj|a (diák, barát, újság …) -- kabát, kabát|ot -> kabátj|a (diák, barát, újság …)
-- NB. fails for virág, ország (virág|ot -> virág|a, ország|ot -> ország|a) -- NB. virág, ország with dVirág (virág|ot -> virág|a)
_ + #c + ("o"|"ö") => init tolla + "j" ; _ + #c + ("o"|"ö") => init tolla + "j" ;
-- háború, háború|t -> háborúj|a -- háború, háború|t -> háborúj|a
@@ -240,7 +239,6 @@ oper
-- More words not covered by current paradigms: -- More words not covered by current paradigms:
-- https://cl.lingfil.uu.se/~bea/publ/megyesi-hungarian.pdf -- https://cl.lingfil.uu.se/~bea/publ/megyesi-hungarian.pdf
-- TODO: teher ~ terhet (consonant-crossing) -- TODO: teher ~ terhet (consonant-crossing)
-- TODO: do we need possessive forms? e.g. fiú ~ fia{m,d,tok}
-- All regNoun* are /smart paradigms/: they take one or a couple of forms, -- All regNoun* are /smart paradigms/: they take one or a couple of forms,
-- and decides which (non-smart) paradigm is the most likely to match. -- and decides which (non-smart) paradigm is the most likely to match.
@@ -260,7 +258,7 @@ oper
case <nsg,asg,npl> of { case <nsg,asg,npl> of {
<_ + ("u"|"ú"|"ü"|"ű"|"ó"), -- falu, falut, falvak ; szó, szót, szavak <_ + ("u"|"ú"|"ü"|"ű"|"ó"), -- falu, falut, falvak ; szó, szót, szavak
_ + ("u"|"ú"|"ü"|"ű"|"ó") + "t", _ + ("u"|"ú"|"ü"|"ű"|"ó") + "t",
_ + "v" + #v + "k"> => dFalu nsg npl ; _ + "v" + #v + "k"> => dFalu nsg asg npl ;
-- Fall back to 2-argument smart paradigm -- Fall back to 2-argument smart paradigm
_ => regNounNomAcc nsg asg _ => regNounNomAcc nsg asg