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

(Hun) Updated paradigms

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-09 14:26:45 +02:00
parent 0cba0fe07c
commit 49ff81a3f4
2 changed files with 11 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/hungarian/LexiconHun.gf
View File

@@ -9,7 +9,7 @@ concrete LexiconHun of Lexicon = CatHun **
-- lin alas_Interj = mkInterj "" ;
-- lin already_Adv = mkA "" ;
-- lin animal_N = mkN "" ;
lin answer_V2S = mkV2S "válasz" ;
--lin answer_V2S = mkV2S "válasz" ;
-- lin apartment_N = mkN "" ;
lin apple_N = mkN "alma" ;
lin art_N = mkN "müvészet" ;
@@ -395,7 +395,7 @@ lin village_N = mkN "falu" ;
-- lin warm_A = mkA "" ;
-- lin wash_V2 = mkV2 "" ;
-- lin watch_V2 = mkV2 "" ;
lin water_N = mkNoun "víz" ;
lin water_N = mkN "víz" ;
-- lin wet_A = mkA "" ;
-- lin white_A = mkA "" ;
-- lin wide_A = mkA "" ;

20
src/hungarian/NounMorphoHun.gf
View File

@@ -29,7 +29,7 @@ oper
mada = shorten madá ; -- shortens vowels
a = last mada ;
madara = mada + r + a ;
nMadara = mkNoun madara ;
nMadara = mkNounHarm (getHarm madara) "k" madara ;
nMadár = mkNoun madár ;
in {s = \\n,c => case <n,c> of {
-- All plural forms and Sg Acc use the "madara"/"neve" stem
@@ -42,11 +42,6 @@ oper
} ;
} ;
-- TODO: actual paradigm
dSör : Str -> Noun = \sör ->
let foo : Str = "foo" ;
in mkNoun sör ;
--Handles words like "ló, kő" which are "lovak, kövek" in plural.
dLó : Str -> Noun = \ló ->
let lo = shorten ló ;
@@ -77,10 +72,10 @@ oper
let mo = last majom + last (init majom);
maj = init (init majom) ;
majmo = maj + mo ;
nMajmo = mkNoun majmo ;
nMajmo = mkNounHarm (getHarm majmo) "k" majmo ;
nMajom = mkNoun majom ;
in {s = \\n,c => case <n,c> of {
<Pl,Acc> => majmo + "kat" ; --Special case
-- <Pl,Acc> => majmo + "kat" ; --Special case
-- All plural forms and Sg Acc use the "majmo" stem
<Pl,_> | <Sg,Acc> => nMajmo.s ! n ! c ;
@@ -224,12 +219,15 @@ oper
mkNounHarm (getHarm w) (pluralAllomorph w) w ;
-- Harmony and plural allomorph given explicitly
mkNounHarm : Harm -> (plural : Str) -> Str -> Noun = \h,plural,w ->
mkNounHarm : Harm -> (plural : Str) -> Str -> Noun = mkNounHarmAcc True ;
mkNounHarmAcc : (useAt : Bool) -> Harm -> (plural : Str) -> Str -> Noun = \useAt,h,plural,w ->
let endCaseSg : Case -> HarmForms = case vowFinal w of {
True => endCaseVow ;
False => endCaseCons } ;
endCasePl : Case -> HarmForms = case plural of {
"ak" => endCaseConsAccAt ; -- TODO check
endCasePl : Case -> HarmForms = case <plural, useAt> of {
<"ak",_> => endCaseConsAccAt ;
<_,True> => endCaseConsAccAt ;
_ => endCaseCons } ;
-- Last consonant doubles before instrumental and translative
lastCons : Str = case vowFinal w of {