GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

German and Dutch adjectives with -er corrected

Browse Source
This commit is contained in:
aarne
2010-08-23 07:43:58 +00:00
parent f2308d174f
commit 62e687869e
5 changed files with 53 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/german/ParadigmsGer.gf
View File

@@ -374,7 +374,8 @@ mkV2 : overload {
mk3A : (gut,besser,beste : Str) -> A = \a,b,c ->
let aa : Str = case a of {
teu + "er" => teu + "r" ;
dunk + "el" => dunk + "l" ;
te + "uer" => te + "ur" ;
mud + "e" => mud ;
_ => a
} in
@@ -383,7 +384,8 @@ mkV2 : overload {
MorphoGer.mkA a aa b (init c) ** {lock_A = <>} ;
regA : Str -> A = \a -> case a of {
teu + "er" => mk3A a (teu + "rer") (teu + "reste") ;
dunk + "el" => mk3A a (dunk + "ler") (dunk + "leste") ;
te + "uer" => mk3A a (te + "urer") (te + "ureste") ;
_ + "e" => mk3A a (a + "r") (a + "ste") ;
_ + ("t" | "d" | "s" | "sch" | "z") => mk3A a (a + "er") (a + "este") ;
_ => mk3A a (a + "er") (a + "ste")