From 03ffe34dbbf335f35ed7a0dfe69a9044a111d736 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 7 Nov 2008 16:16:06 +0000 Subject: bug fixes in German lexicon --- next-lib/src/german/ParadigmsGer.gf | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'next-lib/src/german/ParadigmsGer.gf') diff --git a/next-lib/src/german/ParadigmsGer.gf b/next-lib/src/german/ParadigmsGer.gf index 03a70a946..ae93b5317 100644 --- a/next-lib/src/german/ParadigmsGer.gf +++ b/next-lib/src/german/ParadigmsGer.gf @@ -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 }; -- cgit v1.2.3