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

(Ger) Fix complement number agreement with AgPlPol

Browse Source 
"Sie sind ein Vogel", not *Sie sind Vögel
This commit is contained in:
Inari Listenmaa
2025-08-22 14:50:35 +02:00
parent 97227181fe
commit e3c9a0045e
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/german/VerbGer.gf
View File

@@ -113,12 +113,18 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer, Coordination in {
CompNP np = {s = \\_ => np.s ! False ! Nom ++ np.rc ; ext = np.ext} ; CompNP np = {s = \\_ => np.s ! False ! Nom ++ np.rc ; ext = np.ext} ;
CompAdv a = {s = \\_ => a.s ; ext = []} ; CompAdv a = {s = \\_ => a.s ; ext = []} ;
CompCN cn = {s = \\a => case numberAgr a of { CompCN cn = {
Sg => "ein" + pronEnding ! GSg cn.g ! Nom ++ cn.s ! Strong ! Sg ! Nom ++ cn.rc ! Sg ; --- s = let
Pl => cn.s ! Strong ! Pl ! Nom ++ cn.rc ! Pl --- sg : Str = "ein" + pronEnding ! GSg cn.g ! Nom ++ cn.s ! Strong ! Sg ! Nom ++ cn.rc ! Sg ; ---
} ; pl : Str = cn.s ! Strong ! Pl ! Nom ++ cn.rc ! Pl
ext = cn.adv ++ cn.ext in table {
} ; AgPlPol => sg ;
a => case numberAgr a of {
Sg => sg ;
Pl => pl }
} ;
ext = cn.adv ++ cn.ext
} ;
AdvVP vp adv = insertAdv adv.s vp ; AdvVP vp adv = insertAdv adv.s vp ;
ExtAdvVP vp adv = insertAdv (embedInCommas adv.s) vp ; ExtAdvVP vp adv = insertAdv (embedInCommas adv.s) vp ;