1
0
forked from GitHub/gf-rgl

(Dut) Choose stressed form of pronoun

This commit is contained in:
Inari Listenmaa
2018-04-19 15:46:57 +02:00
parent 6e9f81a4a3
commit 6a9145cc93

View File

@@ -20,7 +20,7 @@ concrete NounDut of Noun = CatDut ** open ResDut, Prelude in {
UsePN pn = noMerge ** {s = pn.s ; a = agrP3 Sg ; isPron = False} ; UsePN pn = noMerge ** {s = pn.s ; a = agrP3 Sg ; isPron = False} ;
UsePron pron = { UsePron pron = {
s = table {NPNom => pron.unstressed.nom ; NPAcc => pron.unstressed.acc} ; s = table {NPNom => pron.stressed.nom ; NPAcc => pron.stressed.acc} ;
a = pron.a ; a = pron.a ;
isPron = True ; isPron = True ;
mergesWithPrep = pron.mergesWithPrep ; mergesWithPrep = pron.mergesWithPrep ;
@@ -80,7 +80,7 @@ concrete NounDut of Noun = CatDut ** open ResDut, Prelude in {
} ; } ;
PossPron p = noMerge ** { PossPron p = noMerge ** {
s = \\_,n,g => p.unstressed.poss ; s = \\_,n,g => p.stressed.poss ;
sp = \\n,g => DefArt.s ! True ! n ! g ++ p.substposs ! n ; sp = \\n,g => DefArt.s ! True ! n ! g ++ p.substposs ! n ;
a = Weak a = Weak
} ; } ;