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

Majom case fixed with special case

Browse Source
This commit is contained in:
Julia Jansson
2020-04-04 17:05:39 +02:00
parent 5255a773f0
commit 8648902d4e
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/hungarian/NounMorphoHun.gf
View File

@@ -49,7 +49,6 @@ oper
--Handles words like "ló, kő" which are "lovak, kövek" in plural --Handles words like "ló, kő" which are "lovak, kövek" in plural
--TODO: "kövek" irregular? "kövekhöz" should be "kövekhez", but "kőhöz" is correct... --TODO: "kövek" irregular? "kövekhöz" should be "kövekhez", but "kőhöz" is correct...
-- similar problem to below...
dLó : Str -> Noun = \ló -> dLó : Str -> Noun = \ló ->
let lo = shorten ló ; let lo = shorten ló ;
lov = lo + "v" ; lov = lo + "v" ;
@@ -72,9 +71,6 @@ oper
} ; } ;
--Handles words like "gyomor, majom, retek" which are "sátrat, gyomrot, majmot, retket" in plural (wovel dropping base) --Handles words like "gyomor, majom, retek" which are "sátrat, gyomrot, majmot, retket" in plural (wovel dropping base)
--TODO: "gyomor, majom" needs fixing in the <Pl,Acc> case =>
-- "gyomrokat, majmokat" instead of "gyomrokot,majmokot" (however in <Sg,Acc> it should be "ot")
-- This is a recurring problem with H_a harmony, since sometimes "at" is used instead of "ot"
dMajom : Str -> Noun = \majom -> dMajom : Str -> Noun = \majom ->
let mo = last majom + last (init majom); let mo = last majom + last (init majom);
maj = init (init majom) ; maj = init (init majom) ;
@@ -82,13 +78,15 @@ oper
nMajmo = mkNoun majmo ; nMajmo = mkNoun majmo ;
nMajom = mkNoun majom ; nMajom = mkNoun majom ;
in {s = \\n,c => case <n,c> of { in {s = \\n,c => case <n,c> of {
<Pl,Acc> => majmo + "kat" ; --Special case
-- All plural forms and Sg Acc use the "majmo" stem -- All plural forms and Sg Acc use the "majmo" stem
<Pl,_>|<Sg,Acc> => nMajmo.s ! n ! c ; <Pl,_> | <Sg,Acc> => nMajmo.s ! n ! c ;
-- The rest of the forms are formed with the regular constructor, -- The rest of the forms are formed with the regular constructor,
-- using "majom" as the stem. -- using "majom" as the stem.
_ => nMajom.s ! n ! c _ => nMajom.s ! n ! c
} ; } ;
} ; } ;
-- More words not covered by current paradigms: -- More words not covered by current paradigms: