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

(Ger) APred of OrdSuperl and OrdNumeralSuperl corrected

Browse Source
This commit is contained in:
Hans Leiss
2023-12-27 16:19:34 +01:00
parent c204bcc753
commit 55f8f5ebd8
2 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/german/NounGer.gf
View File

@@ -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 } ; 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}} ; af => a.s ! Superl ! af}} ;
OrdNumeralSuperl n a = OrdNumeralSuperl n a =
{s = table {APred => "am" ++ n.s ! NOrd APred ++ Predef.BIND {s = table {APred => "am" ++ n.s ! NOrd APred ++ BIND ++ a.s ! Superl ! APred ; -- am drittbesten
++ a.s ! Superl ! APred ++ BIND ++ "en" ; -- am drittbesten af => n.s ! NOrd APred ++ BIND ++ a.s ! Superl ! af} -- drittbeste
af => n.s ! NOrd APred ++ Predef.BIND ++ a.s ! Superl ! af} -- drittbeste
} ; } ;
DefArt = { DefArt = {
s = \\gn,c => artDef ! gn ! c ; s = \\gn,c => artDef ! gn ! c ;

2
src/german/ResGer.gf
View File

@@ -319,7 +319,7 @@ resource ResGer = ParamX ** open Prelude in {
{s = table { {s = table {
Posit => adjForms gut gute ; Posit => adjForms gut gute ;
Compar => adjForms besser besser ; Compar => adjForms besser besser ;
Superl => adjForms best best -- HL 12/2023: build ("am" ++ besten) via (OrdSuperl a) Superl => adjForms besten best -- HL 12/2023: build ("am" ++ besten) via (OrdSuperl a)
} -- to get zweitbeste, am zweitbesten; *zweit am besten } -- to get zweitbeste, am zweitbesten; *zweit am besten
} ; } ;