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

bug fixes in German lexicon

Browse Source
This commit is contained in:
aarne
2008-11-07 16:16:06 +00:00
parent bf79f8a074
commit e9d3b508ae
2 changed files with 104 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
next-lib/src/german/ParadigmsGer.gf
View File

@@ -127,11 +127,15 @@ mkN : overload {
mkA : Str -> A ;
-- In the worst case, adjectives need three forms - one for each degree.
-- Irregular adjectives need three forms - one for each degree.
mkA : (gut,besser,beste : Str) -> A -- gut,besser,beste
mkA : (gut,besser,beste : Str) -> A ;
};
-- Sometimes an extra form is needed for positive forms.
mkA : (gut,gute,besser,beste : Str) -> A
} ;
-- Invariable adjective are a special case.
@@ -358,6 +362,8 @@ mkV2 : overload {
_ => a
} in
MorphoGer.mkA a aa b (init c) ** {lock_A = <>} ;
mk4A : (gut,gute,besser,beste : Str) -> A = \a,aa,b,c ->
MorphoGer.mkA a aa b (init c) ** {lock_A = <>} ;
regA : Str -> A = \a -> case a of {
teu + "er" => mk3A a (teu + "rer") (teu + "reste") ;
@@ -476,7 +482,8 @@ mkV2 : overload {
mkA = overload {
mkA : Str -> A = regA ;
mkA : (gut,besser,beste : Str) -> A = mk3A
mkA : (gut,besser,beste : Str) -> A = mk3A ;
mkA : (gut,gute,besser,beste : Str) -> A = mk4A
};