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

German relative "was" in RelS

Browse Source
This commit is contained in:
aarne
2015-07-21 15:00:35 +00:00
parent b0a4dfeddd
commit e366ca76fd
7 changed files with 24 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/src/german/RelativeGer.gf
View File

@@ -10,13 +10,17 @@ concrete RelativeGer of Relative = CatGer ** open ResGer in {
} ;
RelVP rp vp = {
s = \\m,t,ant,b,gn =>
let
s = \\m,t,ant,b,rgn =>
let
gn = case rgn of {
RGenNum gf => gf ;
RSentence => GSg Neutr
} ;
agr = case rp.a of {
RNoAg => agrP3 (numGenNum gn) ;
RAg n p => Ag Neutr n p
} ;
cl = mkClause (rp.s ! gn ! Nom) agr vp
cl = mkClause (rp.s ! rgn ! Nom) agr vp
in
cl.s ! m ! t ! ant ! b ! Sub ;
c = Nom