Added ló and kő cases (lovak, kövek) but not done yet

This commit is contained in:
Julia Jansson
2020-03-31 12:26:33 +02:00
parent cdb7655741
commit 91f7e2e0e8
2 changed files with 22 additions and 3 deletions

View File

@@ -47,6 +47,25 @@ oper
let foo : Str = "foo" ;
in mkNoun sör ;
--Handles words like "ló, kő" which are "lovak, kövek" in plural
--TODO: not fixed, right now "lovok" and "kövök"
dLó : Str -> Noun = \ló ->
let lo = shorten ló ;
lov = lo + "v" ;
nLov = mkNoun lov ;
nLó = mkNoun ló ;
in {s = \\n,c => case <n,c> of {
-- All plural forms and Sg Acc use the "lov" stem
<Pl,_>|<Sg,Acc> => nLov.s ! n ! c ;
-- The rest of the forms are formed with the regular constructor,
-- using "ló" as the stem.
_ => nLó.s ! n ! c
} ;
} ;
-- More words not covered by current paradigms:
-- https://cl.lingfil.uu.se/~bea/publ/megyesi-hungarian.pdf
-- falu ~ falva-k
@@ -161,7 +180,7 @@ oper
_ => endCaseCons c
} ;
-- Function to return a plural allomorph given the stem (e.g. nev, almá).
-- Function to return a plural allomorph given the stem (e.g. név, almá).
pluralAllomorph : (stem : Str) -> Str = \stem ->
case vowFinal stem of {
True => "k" ;