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 } ;
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 ;

4
src/german/ResGer.gf
View File

@@ -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