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

german bug fix in regular superlative

Browse Source
This commit is contained in:
aarne
2006-11-13 13:39:47 +00:00
parent ba2fafd298
commit 9f2d3f2d85
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/resource-1.0/german/LexiconGer.gf
View File

@@ -172,7 +172,7 @@ lin
shirt_N = reg2N "Hemd" "Hemden" neuter ; ---- infl
shoe_N = regN "Schuh" ;
shop_N = reg2N "Laden" "Läden" masculine ;
short_A = regA "kurz" ;
short_A = mkA "kurz" "kürzer" "kürzeste" ;
silver_N = reg2N "Silber" "Silber" neuter ; ---- infl
sister_N = reg2N "Schwester" "Schwestern" feminine ;
sleep_V = irregV "schlafen" "schläft" "schlief" "schliefe" "geschlafen" ;

6
lib/resource-1.0/german/ParadigmsGer.gf
View File

@@ -307,9 +307,9 @@ oper
MorphoGer.mkA a aa b (init c) ** {lock_A = <>} ;
regA : Str -> A = \a -> case a of {
teu + "er" => mkA a (teu + "rer") (teu + "rest") ;
_ + "e" => mkA a (a + "r") (a + "st") ;
_ => mkA a (a + "er") (a + "est")
teu + "er" => mkA a (teu + "rer") (teu + "reste") ;
_ + "e" => mkA a (a + "r") (a + "ste") ;
_ => mkA a (a + "er") (a + "este")
} ;
invarA = \s -> {s = \\_,_ => s ; lock_A = <>} ; ---- comparison