From 55f8f5ebd8a8bcdc45f703dcb6c416ad4cc0fc18 Mon Sep 17 00:00:00 2001 From: Hans Leiss Date: Wed, 27 Dec 2023 16:19:34 +0100 Subject: [PATCH] (Ger) APred of OrdSuperl and OrdNumeralSuperl corrected --- src/german/NounGer.gf | 7 +++---- src/german/ResGer.gf | 4 ++-- 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/src/german/NounGer.gf b/src/german/NounGer.gf index 295d9343..19d23437 100644 --- a/src/german/NounGer.gf +++ b/src/german/NounGer.gf @@ -154,13 +154,12 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in { AdNum adn num = {s = \\af => adn.s ++ num.s ! af ; n = num.n } ; - OrdSuperl a = {s = table {APred => "am" ++ a.s ! Superl ! APred ++ BIND ++ "en" ; + OrdSuperl a = {s = table {APred => "am" ++ a.s ! Superl ! APred ; af => a.s ! Superl ! af}} ; OrdNumeralSuperl n a = - {s = table {APred => "am" ++ n.s ! NOrd APred ++ Predef.BIND - ++ a.s ! Superl ! APred ++ BIND ++ "en" ; -- am drittbesten - af => n.s ! NOrd APred ++ Predef.BIND ++ a.s ! Superl ! af} -- drittbeste + {s = table {APred => "am" ++ n.s ! NOrd APred ++ BIND ++ a.s ! Superl ! APred ; -- am drittbesten + af => n.s ! NOrd APred ++ BIND ++ a.s ! Superl ! af} -- drittbeste } ; DefArt = { s = \\gn,c => artDef ! gn ! c ; diff --git a/src/german/ResGer.gf b/src/german/ResGer.gf index de68c5cd..8336d0c6 100644 --- a/src/german/ResGer.gf +++ b/src/german/ResGer.gf @@ -319,8 +319,8 @@ resource ResGer = ParamX ** open Prelude in { {s = table { Posit => adjForms gut gute ; Compar => adjForms besser besser ; - Superl => adjForms best best -- HL 12/2023: build ("am" ++ besten) via (OrdSuperl a) - } -- to get zweitbeste, am zweitbesten; *zweit am besten + Superl => adjForms besten best -- HL 12/2023: build ("am" ++ besten) via (OrdSuperl a) + } -- to get zweitbeste, am zweitbesten; *zweit am besten } ; -- Verbs need as many as 12 forms, to cover the variations with