Updated test file + lexicon words

This commit is contained in:
Julia Jansson
2020-04-07 20:16:27 +02:00
parent 5564ba42ee
commit 0cba0fe07c
3 changed files with 50 additions and 49 deletions
+2 -3
View File
@@ -47,8 +47,7 @@ oper
let foo : Str = "foo" ;
in mkNoun sör ;
--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...
--Handles words like "ló, kő" which are "lovak, kövek" in plural.
dLó : Str -> Noun = \ló ->
let lo = shorten ló ;
lov = lo + "v" ;
@@ -175,7 +174,7 @@ oper
-- Variant of case forms when the noun stem ends in consonant.
endCaseCons : Case -> HarmForms = \c -> case c of {
Nom => harm1 [] ;
Acc => harm3 "ot" "et" "öt" ; --TODO: does not take care of "at" case (in plural)
Acc => harm3 "ot" "et" "öt" ;
Dat => harm "nak" "nek" ;
Ill => harm "ba" "be" ;
Ine => harm "ban" "ben" ;