GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-23 02:06:20 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Ger) Implemented QVP in Question, GenIP and GenModIP in Extend

Browse Source
This commit is contained in:
Hans Leiss
2025-09-28 18:15:45 +02:00
parent 7e52a4759c
commit 4bf528a429
4 changed files with 39 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/german/RelativeGer.gf
View File

@@ -18,9 +18,10 @@ concrete RelativeGer of Relative = CatGer ** open ResGer, Prelude in {
} ;
agr = case rp.a of {
RNoAg => agrP3 (numGenNum gn) ;
RAg n p => case n of {Sg => AgSgP3 Neutr ; Pl => AgPl p}
} ;
cl = mkClause (rp.s ! rgn ! Nom) agr vp
RAg Sg p => AgSgP3 Neutr ;
RAg Pl p => AgPl p
} ; -- subject may be non-nom, e.g. an dem gezweifelt wird
cl = mkClause (appPrep vp.c1 (rp.s ! rgn)) agr vp
in
cl.s ! m ! t ! ant ! b ! Sub ;
c = Nom